/* $Id: tif_jbig.c,v 1.2.2.3 2010-06-08 18:50:42 bfriesen Exp $ */ /* * Copyright (c) 1988-1997 Sam Leffler * Copyright (c) 1991-1997 Silicon Graphics, Inc. * * Permission to use, copy, modify, distribute, and sell this software and * its documentation for any purpose is hereby granted without fee, provided * that (i) the above copyright notices and this permission notice appear in * all copies of the software and related documentation, and (ii) the names of * Sam Leffler and Silicon Graphics may not be used in any advertising or * publicity relating to the software without the specific, prior written * permission of Sam Leffler and Silicon Graphics. * * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND, * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. * * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND, * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE * OF THIS SOFTWARE. */ /* * TIFF Library. * * JBIG Compression Algorithm Support. * Contributed by Lee Howard * */ #include "tiffiop.h" #ifdef JBIG_SUPPORT #include "jbig.h" typedef struct { uint32 recvparams; /* encoded Class 2 session params */ char* subaddress; /* subaddress string */ uint32 recvtime; /* time spend receiving in seconds */ char* faxdcs; /* encoded fax parameters (DCS, Table 2/T.30) */ TIFFVGetMethod vgetparent; TIFFVSetMethod vsetparent; } JBIGState; #define GetJBIGState(tif) ((JBIGState*)(tif)->tif_data) #define FIELD_RECVPARAMS (FIELD_CODEC+0) #define FIELD_SUBADDRESS (FIELD_CODEC+1) #define FIELD_RECVTIME (FIELD_CODEC+2) #define FIELD_FAXDCS (FIELD_CODEC+3) static const TIFFFieldInfo jbigFieldInfo[] = { {TIFFTAG_FAXRECVPARAMS, 1, 1, TIFF_LONG, FIELD_RECVPARAMS, TRUE, FALSE, "FaxRecvParams"}, {TIFFTAG_FAXSUBADDRESS, -1, -1, TIFF_ASCII, FIELD_SUBADDRESS, TRUE, FALSE, "FaxSubAddress"}, {TIFFTAG_FAXRECVTIME, 1, 1, TIFF_LONG, FIELD_RECVTIME, TRUE, FALSE, "FaxRecvTime"}, {TIFFTAG_FAXDCS, -1, -1, TIFF_ASCII, FIELD_FAXDCS, TRUE, FALSE, "FaxDcs"}, }; static int JBIGSetupDecode(TIFF* tif) { if (TIFFNumberOfStrips(tif) != 1) { TIFFError("JBIG", "Multistrip images not supported in decoder"); return 0; } return 1; } static int JBIGDecode(TIFF* tif, tidata_t buffer, tsize_t size, tsample_t s) { struct jbg_dec_state decoder; int decodeStatus = 0; unsigned char* pImage = NULL; (void) size, (void) s; if (isFillOrder(tif, tif->tif_dir.td_fillorder)) { TIFFReverseBits(tif->tif_rawdata, tif->tif_rawdatasize); } jbg_dec_init(&decoder); #if defined(HAVE_JBG_NEWLEN) jbg_newlen(tif->tif_rawdata, tif->tif_rawdatasize); /* * I do not check the return status of jbg_newlen because even if this * function fails it does not necessarily mean that decoding the image * will fail. It is generally only needed for received fax images * that do not contain the actual length of the image in the BIE * header. I do not log when an error occurs because that will cause * problems when converting JBIG encoded TIFF's to * PostScript. As long as the actual image length is contained in the * BIE header jbg_dec_in should succeed. */ #endif /* HAVE_JBG_NEWLEN */ decodeStatus = jbg_dec_in(&decoder, tif->tif_rawdata, tif->tif_rawdatasize, NULL); if (JBG_EOK != decodeStatus) { /* * XXX: JBG_EN constant was defined in pre-2.0 releases of the * JBIG-KIT. Since the 2.0 the error reporting functions were * changed. We will handle both cases here. */ TIFFError("JBIG", "Error (%d) decoding: %s", decodeStatus, #if defined(JBG_EN) jbg_strerror(decodeStatus, JBG_EN) #else jbg_strerror(decodeStatus) #endif ); return 0; } pImage = jbg_dec_getimage(&decoder, 0); _TIFFmemcpy(buffer, pImage, jbg_dec_getsize(&decoder)); jbg_dec_free(&decoder); return 1; } static int JBIGSetupEncode(TIFF* tif) { if (TIFFNumberOfStrips(tif) != 1) { TIFFError("JBIG", "Multistrip images not supported in encoder"); return 0; } return 1; } static int JBIGCopyEncodedData(TIFF* tif, tidata_t pp, tsize_t cc, tsample_t s) { (void) s; while (cc > 0) { tsize_t n = cc; if (tif->tif_rawcc + n > tif->tif_rawdatasize) { n = tif->tif_rawdatasize - tif->tif_rawcc; } assert(n > 0); _TIFFmemcpy(tif->tif_rawcp, pp, n); tif->tif_rawcp += n; tif->tif_rawcc += n; pp += n; cc -= n; if (tif->tif_rawcc >= tif->tif_rawdatasize && !TIFFFlushData1(tif)) { return (-1); } } return (1); } static void JBIGOutputBie(unsigned char* buffer, size_t len, void *userData) { TIFF* tif = (TIFF*)userData; if (isFillOrder(tif, tif->tif_dir.td_fillorder)) { TIFFReverseBits(buffer, len); } JBIGCopyEncodedData(tif, buffer, len, 0); } static int JBIGEncode(TIFF* tif, tidata_t buffer, tsize_t size, tsample_t s) { TIFFDirectory* dir = &tif->tif_dir; struct jbg_enc_state encoder; (void) size, (void) s; jbg_enc_init(&encoder, dir->td_imagewidth, dir->td_imagelength, 1, &buffer, JBIGOutputBie, tif); /* * jbg_enc_out does the "real" encoding. As data is encoded, * JBIGOutputBie is called, which writes the data to the directory. */ jbg_enc_out(&encoder); jbg_enc_free(&encoder); return 1; } static void JBIGCleanup(TIFF* tif) { JBIGState *sp = GetJBIGState(tif); assert(sp != 0); tif->tif_tagmethods.vgetfield = sp->vgetparent; tif->tif_tagmethods.vsetfield = sp->vsetparent; _TIFFfree(tif->tif_data); tif->tif_data = NULL; _TIFFSetDefaultCompressionState(tif); } static void JBIGPrintDir(TIFF* tif, FILE* fd, long flags) { JBIGState* codec = GetJBIGState(tif); (void)flags; if (TIFFFieldSet(tif, FIELD_RECVPARAMS)) { fprintf(fd, " Fax Receive Parameters: %08lx\n", (unsigned long)codec->recvparams); } if (TIFFFieldSet(tif, FIELD_SUBADDRESS)) { fprintf(fd, " Fax SubAddress: %s\n", codec->subaddress); } if (TIFFFieldSet(tif, FIELD_RECVTIME)) { fprintf(fd, " Fax Receive Time: %lu secs\n", (unsigned long)codec->recvtime); } if (TIFFFieldSet(tif, FIELD_FAXDCS)) { fprintf(fd, " Fax DCS: %s\n", codec->faxdcs); } } static int JBIGVGetField(TIFF* tif, ttag_t tag, va_list ap) { JBIGState* codec = GetJBIGState(tif); switch (tag) { case TIFFTAG_FAXRECVPARAMS: *va_arg(ap, uint32*) = codec->recvparams; break; case TIFFTAG_FAXSUBADDRESS: *va_arg(ap, char**) = codec->subaddress; break; case TIFFTAG_FAXRECVTIME: *va_arg(ap, uint32*) = codec->recvtime; break; case TIFFTAG_FAXDCS: *va_arg(ap, char**) = codec->faxdcs; break; default: return (*codec->vgetparent)(tif, tag, ap); } return 1; } static int JBIGVSetField(TIFF* tif, ttag_t tag, va_list ap) { JBIGState* codec = GetJBIGState(tif); switch (tag) { case TIFFTAG_FAXRECVPARAMS: codec->recvparams = va_arg(ap, uint32); break; case TIFFTAG_FAXSUBADDRESS: _TIFFsetString(&codec->subaddress, va_arg(ap, char*)); break; case TIFFTAG_FAXRECVTIME: codec->recvtime = va_arg(ap, uint32); break; case TIFFTAG_FAXDCS: _TIFFsetString(&codec->faxdcs, va_arg(ap, char*)); break; default: return (*codec->vsetparent)(tif, tag, ap); } TIFFSetFieldBit(tif, _TIFFFieldWithTag(tif, tag)->field_bit); tif->tif_flags |= TIFF_DIRTYDIRECT; return 1; } int TIFFInitJBIG(TIFF* tif, int scheme) { JBIGState* codec = NULL; assert(scheme == COMPRESSION_JBIG); /* * Merge codec-specific tag information. */ if (!_TIFFMergeFieldInfo(tif, jbigFieldInfo, TIFFArrayCount(jbigFieldInfo))) { TIFFErrorExt(tif->tif_clientdata, "TIFFInitJBIG", "Merging JBIG codec-specific tags failed"); return 0; } /* Allocate memory for the JBIGState structure.*/ tif->tif_data = (tdata_t)_TIFFmalloc(sizeof(JBIGState)); if (tif->tif_data == NULL) { TIFFError("TIFFInitJBIG", "Not enough memory for JBIGState"); return 0; } _TIFFmemset(tif->tif_data, 0, sizeof(JBIGState)); codec = GetJBIGState(tif); /* Initialize codec private fields */ codec->recvparams = 0; codec->subaddress = NULL; codec->faxdcs = NULL; codec->recvtime = 0; /* * Override parent get/set field methods. */ codec->vgetparent = tif->tif_tagmethods.vgetfield; codec->vsetparent = tif->tif_tagmethods.vsetfield; tif->tif_tagmethods.vgetfield = JBIGVGetField; tif->tif_tagmethods.vsetfield = JBIGVSetField; tif->tif_tagmethods.printdir = JBIGPrintDir; /* * These flags are set so the JBIG Codec can control when to reverse * bits and when not to and to allow the jbig decoder and bit reverser * to write to memory when necessary. */ tif->tif_flags |= TIFF_NOBITREV; tif->tif_flags &= ~TIFF_MAPPED; /* Setup the function pointers for encode, decode, and cleanup. */ tif->tif_setupdecode = JBIGSetupDecode; tif->tif_decodestrip = JBIGDecode; tif->tif_setupencode = JBIGSetupEncode; tif->tif_encodestrip = JBIGEncode; tif->tif_cleanup = JBIGCleanup; return 1; } #endif /* JBIG_SUPPORT */ /* vim: set ts=8 sts=8 sw=8 noet: */ /* * Local Variables: * mode: c * c-basic-offset: 8 * fill-column: 78 * End: */