diff options
Diffstat (limited to 'Build/source/utils/sam2p/rule.cpp')
-rw-r--r-- | Build/source/utils/sam2p/rule.cpp | 1088 |
1 files changed, 0 insertions, 1088 deletions
diff --git a/Build/source/utils/sam2p/rule.cpp b/Build/source/utils/sam2p/rule.cpp deleted file mode 100644 index 3c8b84f905f..00000000000 --- a/Build/source/utils/sam2p/rule.cpp +++ /dev/null @@ -1,1088 +0,0 @@ -/* - * rule.cpp -- generic Rule handling - * by pts@fazekas.hu at Fri Mar 15 21:13:47 CET 2002 - */ - -#ifdef __GNUC__ -#pragma implementation -#endif - -#include "rule.hpp" -#include "error.hpp" -#include <string.h> /* strlen() */ - -bool Rule::Cache::isPDF() const { - return 80<=FileFormat && FileFormat<100; -} -bool Rule::Cache::isPDFB() const { - return 90<=FileFormat && FileFormat<100; -} -bool Rule::Cache::isIndexed() const { - return SampleFormat==Image::SF_Indexed1 - || SampleFormat==Image::SF_Indexed2 - || SampleFormat==Image::SF_Indexed4 - || SampleFormat==Image::SF_Indexed8; -} -bool Rule::Cache::isTransparentM() const { - return SampleFormat==Image::SF_Mask - || SampleFormat==Image::SF_Transparent2 - || SampleFormat==Image::SF_Transparent4 - || SampleFormat==Image::SF_Transparent8; -} -bool Rule::Cache::isOneBit() const { - return SampleFormat==Image::SF_Mask - || SampleFormat==Image::SF_Indexed1 - || SampleFormat==Image::SF_Gray1; -} -#if 0 -bool Rule::Cache::is8() const { - return SampleFormat==Image::SF_Indexed1 - || SampleFormat==Image::SF_Indexed2 - || SampleFormat==Image::SF_Indexed4 - || SampleFormat==Image::SF_Indexed8; -} -#endif -bool Rule::Cache::isGray() const { - return SampleFormat==Image::SF_Gray1 - || SampleFormat==Image::SF_Gray2 - || SampleFormat==Image::SF_Gray4 - || SampleFormat==Image::SF_Gray8; -} -bool Rule::Cache::isRGB() const { - return SampleFormat==Image::SF_Rgb1 - || SampleFormat==Image::SF_Rgb2 - || SampleFormat==Image::SF_Rgb4 - || SampleFormat==Image::SF_Rgb8; -} -bool Rule::Cache::isBinSB() const { - return TransferEncoding==TE_Binary - || TransferEncoding==TE_MSBfirst - || TransferEncoding==TE_LSBfirst; -} -bool Rule::Cache::isPS() const { - return FileFormat>=100; -} -bool Rule::Cache::isPSL2() const { - return FileFormat>=120; -} -bool Rule::Cache::isPSL3() const { - return FileFormat>=130; -} -bool Rule::Cache::hasPredictor() const { - return Predictor!=PR_None; -} -bool Rule::Cache::isDCTE() const { - /* Dat: _not_ CO_JAI */ - return Compression==CO_DCT || Compression==CO_IJG; -} -bool Rule::Cache::isZIPOK() const { - return Compression!=CO_ZIP || - ( FileFormat!=FF_PSL1 && FileFormat!=FF_PSLC && FileFormat!=FF_PSL2 - && FileFormat!=FF_PDF10 && FileFormat!=FF_PDFB10 - ); -} - -static MiniPS::Dict *y_FileFormat=(MiniPS::Dict*)NULLP, - *y_SampleFormat, *y_TransferEncoding, - *y_Compression, *y_Scale; -static const slen_t SampleFormat_MAXLEN=32; - -static void init_dicts() { - register MiniPS::Dict*y; - - if (y_FileFormat!=NULLP) return; - - y=y_FileFormat=new MiniPS::Dict(); - y->put("/PSL1", MiniPS::Qinteger(Rule::Cache::FF_PSL1)); - y->put("/PSLC", MiniPS::Qinteger(Rule::Cache::FF_PSLC)); - y->put("/PSL2", MiniPS::Qinteger(Rule::Cache::FF_PSL2)); - y->put("/PSL3", MiniPS::Qinteger(Rule::Cache::FF_PSL3)); - y->put("/PDFB1.0",MiniPS::Qinteger(Rule::Cache::FF_PDFB10)); - y->put("/PDFB1.2",MiniPS::Qinteger(Rule::Cache::FF_PDFB12)); - y->put("/PDF1.0", MiniPS::Qinteger(Rule::Cache::FF_PDF10)); - y->put("/PDF1.2", MiniPS::Qinteger(Rule::Cache::FF_PDF12)); - y->put("/GIF89a", MiniPS::Qinteger(Rule::Cache::FF_GIF89a)); - y->put("/GIF", MiniPS::Qinteger(Rule::Cache::FF_GIF89a)); - y->put("/Empty", MiniPS::Qinteger(Rule::Cache::FF_Empty)); - y->put("/Meta", MiniPS::Qinteger(Rule::Cache::FF_Meta)); - y->put("/PNM", MiniPS::Qinteger(Rule::Cache::FF_PNM)); - y->put("/PAM", MiniPS::Qinteger(Rule::Cache::FF_PAM)); - y->put("/PIP", MiniPS::Qinteger(Rule::Cache::FF_PIP)); - y->put("/JPEG", MiniPS::Qinteger(Rule::Cache::FF_JPEG)); - y->put("/JPG", MiniPS::Qinteger(Rule::Cache::FF_JPEG)); - y->put("/TIFF", MiniPS::Qinteger(Rule::Cache::FF_TIFF)); - y->put("/TIF", MiniPS::Qinteger(Rule::Cache::FF_TIFF)); - y->put("/PNG", MiniPS::Qinteger(Rule::Cache::FF_PNG)); - y->put("/XPM", MiniPS::Qinteger(Rule::Cache::FF_XPM)); - y->put("/BMP", MiniPS::Qinteger(Rule::Cache::FF_BMP)); - y->put("/XWD", MiniPS::Qinteger(Rule::Cache::FF_XWD)); - y->put("/X11", MiniPS::Qinteger(Rule::Cache::FF_X11)); - - /* vvv strlen must be shorter then SampleFormat_MAXLEN */ - y=y_SampleFormat=new MiniPS::Dict(); - y->put("/Opaque", MiniPS::Qinteger(Image::SF_Opaque)); - y->put("/Transparent", MiniPS::Qinteger(Image::SF_Transparent)); - y->put("/Transparent2", MiniPS::Qinteger(Image::SF_Transparent2)); - y->put("/Transparent4", MiniPS::Qinteger(Image::SF_Transparent4)); - y->put("/Transparent8", MiniPS::Qinteger(Image::SF_Transparent8)); - y->put("/Gray1", MiniPS::Qinteger(Image::SF_Gray1)); - y->put("/Gray2", MiniPS::Qinteger(Image::SF_Gray2)); - y->put("/Gray4", MiniPS::Qinteger(Image::SF_Gray4)); - y->put("/Gray8", MiniPS::Qinteger(Image::SF_Gray8)); - y->put("/Indexed1", MiniPS::Qinteger(Image::SF_Indexed1)); - y->put("/Indexed2", MiniPS::Qinteger(Image::SF_Indexed2)); - y->put("/Indexed4", MiniPS::Qinteger(Image::SF_Indexed4)); - y->put("/Indexed8", MiniPS::Qinteger(Image::SF_Indexed8)); - y->put("/Mask", MiniPS::Qinteger(Image::SF_Mask)); - y->put("/Rgb1", MiniPS::Qinteger(Image::SF_Rgb1)); /* recommended */ - y->put("/Rgb2", MiniPS::Qinteger(Image::SF_Rgb2)); - y->put("/Rgb4", MiniPS::Qinteger(Image::SF_Rgb4)); - y->put("/Rgb8", MiniPS::Qinteger(Image::SF_Rgb8)); - y->put("/RGB1", MiniPS::Qinteger(Image::SF_Rgb1)); /* obsolete */ - y->put("/RGB2", MiniPS::Qinteger(Image::SF_Rgb2)); - y->put("/RGB4", MiniPS::Qinteger(Image::SF_Rgb4)); - y->put("/RGB8", MiniPS::Qinteger(Image::SF_Rgb8)); - y->put("/Asis", MiniPS::Qinteger(Image::SF_Asis)); - y->put("/Bbox", MiniPS::Qinteger(Image::SF_Bbox)); - - y=y_TransferEncoding=new MiniPS::Dict(); - y->put("/Binary", MiniPS::Qinteger(Rule::Cache::TE_Binary)); - y->put("/ASCII", MiniPS::Qinteger(Rule::Cache::TE_ASCII)); - y->put("/Hex", MiniPS::Qinteger(Rule::Cache::TE_Hex)); /* recommended */ - y->put("/AHx", MiniPS::Qinteger(Rule::Cache::TE_Hex)); - y->put("/ASCIIHex", MiniPS::Qinteger(Rule::Cache::TE_Hex)); - y->put("/A85", MiniPS::Qinteger(Rule::Cache::TE_A85)); /* recommended */ - y->put("/ASCII85", MiniPS::Qinteger(Rule::Cache::TE_A85)); - y->put("/MSBfirst", MiniPS::Qinteger(Rule::Cache::TE_MSBfirst)); - y->put("/LSBfirst", MiniPS::Qinteger(Rule::Cache::TE_LSBfirst)); - - y=y_Compression=new MiniPS::Dict(); - y->put("/ ", MiniPS::Qinteger(Rule::Cache::CO_None)); /* default */ - y->put("/None", MiniPS::Qinteger(Rule::Cache::CO_None)); /* recommended */ - y->put("/LZW", MiniPS::Qinteger(Rule::Cache::CO_LZW)); /* recommended */ - y->put("/ZIP", MiniPS::Qinteger(Rule::Cache::CO_ZIP)); /* recommended */ - y->put("/Flate", MiniPS::Qinteger(Rule::Cache::CO_ZIP)); - y->put("/Fl", MiniPS::Qinteger(Rule::Cache::CO_ZIP)); - y->put("/RLE", MiniPS::Qinteger(Rule::Cache::CO_RLE)); /* recommended */ - y->put("/RunLength", MiniPS::Qinteger(Rule::Cache::CO_RLE)); - y->put("/RunLengthEncoded", MiniPS::Qinteger(Rule::Cache::CO_RLE)); - y->put("/RL", MiniPS::Qinteger(Rule::Cache::CO_RLE)); - y->put("/PackBits", MiniPS::Qinteger(Rule::Cache::CO_RLE)); - y->put("/Fax", MiniPS::Qinteger(Rule::Cache::CO_Fax)); /* recommended */ - y->put("/CCITTFax", MiniPS::Qinteger(Rule::Cache::CO_Fax)); - y->put("/CCF", MiniPS::Qinteger(Rule::Cache::CO_Fax)); - y->put("/DCT", MiniPS::Qinteger(Rule::Cache::CO_DCT)); /* recommended */ - y->put("/JPEG",MiniPS::Qinteger(Rule::Cache::CO_IJG)); /* changed at Sun Jun 23 17:06:34 CEST 2002 */ - y->put("/JPG", MiniPS::Qinteger(Rule::Cache::CO_IJG)); /* changed at Sun Jun 23 17:06:34 CEST 2002 */ - y->put("/JFIF",MiniPS::Qinteger(Rule::Cache::CO_IJG)); /* changed at Sun Jun 23 17:06:34 CEST 2002 */ - y->put("/IJG", MiniPS::Qinteger(Rule::Cache::CO_IJG)); /* recommended */ - y->put("/JAI", MiniPS::Qinteger(Rule::Cache::CO_JAI)); /* recommended */ - - y=y_Scale=new MiniPS::Dict(); - y->put("/ ", MiniPS::Qinteger(Rule::CacheHints::SC_None)); /* default */ - y->put("/None", MiniPS::Qinteger(Rule::CacheHints::SC_None)); - y->put("/OK", MiniPS::Qinteger(Rule::CacheHints::SC_OK)); - y->put("/RotateOK",MiniPS::Qinteger(Rule::CacheHints::SC_RotateOK)); -} - -Image::sf_t Rule::Cache::parseSampleFormat(char const*s, slen_t slen) { - /* Tue Jul 2 13:48:12 CEST 2002 */ - #if 0 /* BUGFIX for g++-3.4 (needs symbols __cxa_guard_acquire, __cxa_guard_release) */ - static char rule_dummy=(init_dicts(),0); /* call once per process */ - (void)rule_dummy; - #else - if (y_FileFormat==NULLP) init_dicts(); - #endif - while (slen!=0 && s[0]=='/') { s++; slen--; } - if (slen<=0 || slen>=SampleFormat_MAXLEN) return Image::SF_max; - char buf[SampleFormat_MAXLEN]; - GenBuffer::tolower_memcpy(buf, s, slen); - if (buf[0]>='a' && buf[0]<='z') buf[0]+='A'-'a'; /* capitalize 1st letter */ - MiniPS::VALUE v=y_SampleFormat->get(buf, slen); - return (Image::sf_t) (v==MiniPS::Qundef ? Image::SF_max : MiniPS::int2ii(v)); -} - -char const* Rule::Cache::dumpFileFormat(ff_t FileFormat, co_t Compression) { - switch (FileFormat) { - case FF_eps: return Compression==CO_ZIP ? "PSL3" : "PSL2"; - case FF_pdf: return Compression==CO_ZIP ? "PDF1.2" : "PDF1.0"; - case FF_pdfb: return Compression==CO_ZIP ? "PDFB1.2" : "PDFB1.0"; - case FF_PSL1: return "PSL1"; - case FF_PSLC: return "PSLC"; - case FF_PSL2: return "PSL2"; - case FF_PSL3: return "PSL3"; - case FF_PDFB10:return "PDFB1.0"; - case FF_PDFB12:return "PDFB1.2"; - case FF_PDF10: return "PDF1.0"; - case FF_PDF12: return "PDF1.2"; - case FF_GIF89a:return "GIF89a"; - case FF_PNM: return "PNM"; - case FF_PAM: return "PAM"; - case FF_PIP: return "PIP"; - case FF_Empty: return "Empty"; - case FF_Meta: return "Meta"; - case FF_JPEG: return "JPEG"; - case FF_TIFF: return "TIFF"; - case FF_PNG: return "PNG"; - case FF_XPM: return "XPM"; - case FF_BMP: return "BMP"; - case FF_XWD: return "XWD"; - case FF_X11: return "X11"; - } - return (char const*)NULLP; -} -char const* Rule::Cache::dumpTransferEncoding(te_t TransferEncoding) { - switch (TransferEncoding) { - case TE_Binary: return "Binary"; - case TE_ASCII: return "ASCII"; - case TE_Hex: return "Hex"; - case TE_A85: return "A85"; - case TE_MSBfirst:return "MSBfirst"; - case TE_LSBfirst:return "LSBfirst"; - } - return (char const*)NULLP; -} -char const* Rule::Cache::dumpSampleFormat(Image::sf_t SampleFormat) { - switch (SampleFormat) { - case Image::SF_Opaque: return "Opaque"; - case Image::SF_Transparent: return "Transparent"; - case Image::SF_Gray1: return "Gray1"; - case Image::SF_Indexed1: return "Indexed1"; - case Image::SF_Mask: return "Mask"; - case Image::SF_Transparent2: return "Transparent2"; - case Image::SF_Gray2: return "Gray2"; - case Image::SF_Indexed2: return "Indexed2"; - case Image::SF_Transparent4: return "Transparent4"; - case Image::SF_Rgb1: return "Rgb1"; - case Image::SF_Gray4: return "Gray4"; - case Image::SF_Indexed4: return "Indexed4"; - case Image::SF_Transparent8: return "Transparent8"; - case Image::SF_Rgb2: return "Rgb2"; - case Image::SF_Gray8: return "Gray8"; - case Image::SF_Indexed8: return "Indexed8"; - case Image::SF_Rgb4: return "Rgb4"; - case Image::SF_Rgb8: return "Rgb8"; - case Image::SF_Asis: return "Asis"; - case Image::SF_Bbox: return "Bbox"; - } - return (char const*)NULLP; -} -char const* Rule::Cache::dumpCompression(co_t Compression) { - switch (Compression) { - case CO_None:return "None"; - case CO_LZW: return "LZW"; - case CO_ZIP: return "ZIP"; - case CO_RLE: return "RLE"; - case CO_Fax: return "Fax"; - case CO_DCT: return "DCT"; - case CO_IJG: return "IJG"; - case CO_JAI: return "JAI"; - } - return (char const*)NULLP; -} - -char const* Rule::CacheHints::dumpScale(sc_t Scale) { - switch (Scale) { - case SC_None: return "None"; - case SC_OK: return "OK"; - case SC_RotateOK:return "RotateOK"; - } - return (char const*)NULLP; -} - -/* Checks and recovers Predictor. Called by scanf_dict. - * @return Qundef if param invalid - * Qinteger(1) if param==Qundef - * valid Qinteger otherwise - */ -static MiniPS::VALUE better_predictor(MiniPS::VALUE v) { - return v==MiniPS::Qundef ? MiniPS::Qinteger(1) /* PR_None */ - : v==MiniPS::Qinteger(1) || v==MiniPS::Qinteger(2) || v==MiniPS::Qinteger(45) || - ((v&1)!=0 && v>=MiniPS::Qinteger(10) && v<=MiniPS::Qinteger(15)) ? v - : MiniPS::Qundef; -} -static MiniPS::VALUE better_xColors(MiniPS::VALUE v) { - return v==MiniPS::Qundef ? MiniPS::Qinteger(0) - : ((v&1)!=0 && v>=MiniPS::Qinteger(1) && v<=MiniPS::Qinteger(4)) ? v - : MiniPS::Qundef; -} -static MiniPS::VALUE better_predictorBPC(MiniPS::VALUE v) { - return v==MiniPS::Qundef ? MiniPS::Qinteger(0) - : v==MiniPS::Qinteger(1) || v==MiniPS::Qinteger(2) || - v==MiniPS::Qinteger(4) || v==MiniPS::Qinteger(8) ? v - : MiniPS::Qundef; -} -static MiniPS::VALUE better_effort(MiniPS::VALUE v) { - return v==MiniPS::Qundef ? MiniPS::Qinteger(-1) - : ((v&1)!=0 && v>=MiniPS::Qinteger(-1) && v<=MiniPS::Qinteger(9)) ? v - : MiniPS::Qundef; -} -static MiniPS::VALUE better_k(MiniPS::VALUE v) { - return v==MiniPS::Qundef ? MiniPS::Qinteger(0) - : ((v&1)!=0 && v>=MiniPS::Qinteger(-2)) ? v /* -2 means: positive value marking the image height */ - : MiniPS::Qundef; -} -static MiniPS::VALUE better_quality(MiniPS::VALUE v) { - return v==MiniPS::Qundef ? MiniPS::Qinteger(75) - : ((v&1)!=0 && v>=MiniPS::Qinteger(0) && v<=MiniPS::Qinteger(100)) ? v - : MiniPS::Qundef; -} -static MiniPS::VALUE better_colorTransform(MiniPS::VALUE v) { - return v==MiniPS::Qundef ? MiniPS::Qinteger(3) - : ((v&1)!=0 && v>=MiniPS::Qinteger(0) && v<=MiniPS::Qinteger(3)) ? v - : MiniPS::Qundef; -} - -void Rule::OutputRule::fromDict(MiniPS::VALUE dict_) { - #if 0 /* BUGFIX for g++-3.4 (needs symbols __cxa_guard_acquire, __cxa_guard_release) */ - static char rule_dummy=(init_dicts(),0); /* call once per process */ - (void)rule_dummy; - #else - if (y_FileFormat==NULLP) init_dicts(); - #endif - MiniPS::VALUE dummy; (void)dummy; - MiniPS::VALUE FileFormat, SampleFormat, WarningOK, TransferEncoding, - Compression, Predictor, Transparent; - MiniPS::VALUE PredictorColumns, PredictorColors, PredictorBPC, Effort, K, - RecordSize, Quality, ColorTransform, TransferCPL, - EncoderRows, EncoderColumns, EncoderBPL, EncoderColors, DCT, Scale; - - MiniPS::scanf_dict(dict_, /*show_warnings:*/true, - "FileFormat", MiniPS::S_SENUM, y_FileFormat, &FileFormat, - "SampleFormat", MiniPS::S_SENUM, y_SampleFormat, &SampleFormat, - "WarningOK", MiniPS::T_BOOLEAN, MiniPS::Qtrue, &WarningOK, - "TransferEncoding",MiniPS::S_SENUM, y_TransferEncoding, &TransferEncoding, - "Compression", MiniPS::S_SENUM, y_Compression, &Compression, - "Predictor", MiniPS::S_FUNC, better_predictor, &Predictor, - "Transparent", MiniPS::S_RGBSTR, MiniPS::Qnull, &Transparent, /* force an RGB color transparent */ - "Hints", MiniPS::T_DICT, MiniPS::Qnull, &dictHints, - NULLP - ); - dict=(MiniPS::Dict*)dict_; - cache.FileFormat=(Rule::Cache::ff_t)MiniPS::int2ii(FileFormat); - cache.SampleFormat=(Image::sf_t)MiniPS::int2ii(SampleFormat); - cache.WarningOK=(Rule::Cache::ff_t)WarningOK==MiniPS::Qtrue; - cache.TransferEncoding=(Rule::Cache::te_t)MiniPS::int2ii(TransferEncoding); - cache.Compression=(Rule::Cache::co_t)MiniPS::int2ii(Compression); - cache.Predictor=(Rule::Cache::pr_t)MiniPS::int2ii(Predictor); - cache.Transparent=0x1000000UL; /* No extra transparency */ - if (Transparent!=MiniPS::Qnull) { - unsigned char const*p=(unsigned char const*)(MiniPS::RSTRING(Transparent)->begin_()); - cache.Transparent=(p[0]<<16)+(p[1]<<8)+p[2]; - } - //MiniPS::dump(Predictor); - // fprintf(stderr,"cpred=%u\n", cache.Predictor); - - if ((MiniPS::VALUE)dictHints==MiniPS::Qnull) dict->put("/Hints", (MiniPS::VALUE)(dictHints=new MiniPS::Dict())); - MiniPS::scanf_dict((MiniPS::VALUE)dictHints, /*show_warnings:*/true, - "EncoderBPL", MiniPS::S_PINTEGER,MiniPS::Qinteger(0), &EncoderBPL, - "EncoderColumns", MiniPS::S_PINTEGER,MiniPS::Qinteger(0), &EncoderColumns, - "EncoderRows", MiniPS::S_PINTEGER,MiniPS::Qinteger(0), &EncoderRows, - "EncoderColors", MiniPS::S_FUNC, better_xColors, &EncoderColors, - "PredictorColumns",MiniPS::S_PINTEGER,MiniPS::Qinteger(0), &PredictorColumns, - "PredictorColors", MiniPS::S_FUNC, better_xColors, &PredictorColors, - "PredictorBPC", MiniPS::S_FUNC, better_predictorBPC, &PredictorBPC, - "Effort", MiniPS::S_FUNC, better_effort, &Effort, - "RecordSize", MiniPS::S_UINTEGER,MiniPS::Qinteger(0), &RecordSize, - "K", MiniPS::S_FUNC, better_k, &K, - "Quality", MiniPS::S_FUNC, better_quality, &Quality, - "ColorTransform", MiniPS::S_FUNC, better_colorTransform, &ColorTransform, - "TransferCPL", MiniPS::S_PINTEGER,MiniPS::Qinteger(78), &TransferCPL, - "DCT", MiniPS::T_DICT, MiniPS::Qnull, &DCT, - "Scale", MiniPS::S_SENUM, y_Scale, &Scale, - "ImageDPI", MiniPS::S_PNUMBER, MiniPS::Qinteger(72), &cacheHints.ImageDPI, - "TopMargin", MiniPS::S_NUMBER, MiniPS::Qinteger(0), &cacheHints.TopMargin, - "BottomMargin", MiniPS::S_NUMBER, MiniPS::Qinteger(0), &cacheHints.BottomMargin, - "LeftMargin", MiniPS::S_NUMBER, MiniPS::Qinteger(0), &cacheHints.LeftMargin, - "RightMargin", MiniPS::S_NUMBER, MiniPS::Qinteger(0), &cacheHints.RightMargin, - "LowerMargin", MiniPS::S_NUMBER, MiniPS::Qinteger(0), &cacheHints.LowerMargin, - - "Comment", MiniPS::T_STRING, MiniPS::Qnull, &cacheHints.Comment, - "Title", MiniPS::T_STRING, MiniPS::Qnull, &cacheHints.Title, - "Subject", MiniPS::T_STRING, MiniPS::Qnull, &cacheHints.Subject, - "Author", MiniPS::T_STRING, MiniPS::Qnull, &cacheHints.Author, - "Creator", MiniPS::T_STRING, MiniPS::Qnull, &cacheHints.Creator, - "Producer", MiniPS::T_STRING, MiniPS::Qnull, &cacheHints.Producer, - "Created", MiniPS::T_STRING, MiniPS::Qnull, &cacheHints.Created, - "Produced", MiniPS::T_STRING, MiniPS::Qnull, &cacheHints.Produced, -#if 0 - /* vvv parameters for /DCTEncode. Currently ignored. Obsoleted by /DCT */ - "Colors", MiniPS::S_ANY, MiniPS::Qnull, &dummy, - "HSamples", MiniPS::S_ANY, MiniPS::Qnull, &dummy, - "VSamples", MiniPS::S_ANY, MiniPS::Qnull, &dummy, - "QuantTables", MiniPS::S_ANY, MiniPS::Qnull, &dummy, - "QFactor", MiniPS::S_ANY, MiniPS::Qnull, &dummy, - "HuffTables", MiniPS::S_ANY, MiniPS::Qnull, &dummy, -#endif - NULLP - ); - if (DCT==MiniPS::Qnull) dict->put("/DCT", DCT=(MiniPS::VALUE)new MiniPS::Dict()); - // cacheHints.DCT=(DCT==MiniPS::Qnull)? new MiniPS::Dict() : MiniPS::RDICT(DCT); - if (cache.isPS()) { - MiniPS::setDumpPS(cacheHints.TopMargin, true); - MiniPS::setDumpPS(cacheHints.BottomMargin, true); - MiniPS::setDumpPS(cacheHints.LeftMargin, true); - MiniPS::setDumpPS(cacheHints.RightMargin, true); - MiniPS::setDumpPS(cacheHints.LowerMargin, true); - } - cacheHints.DCT=MiniPS::RDICT(DCT); - cacheHints.EncoderColumns=MiniPS::int2ii(EncoderColumns); - cacheHints.EncoderBPL=MiniPS::int2ii(EncoderBPL); - cacheHints.EncoderColors=MiniPS::int2ii(EncoderColors); - cacheHints.EncoderRows=MiniPS::int2ii(EncoderRows); - cacheHints.PredictorColumns=MiniPS::int2ii(PredictorColumns); - cacheHints.PredictorColors=MiniPS::int2ii(PredictorColors); - cacheHints.PredictorBPC=MiniPS::int2ii(PredictorBPC); - cacheHints.Effort=MiniPS::int2ii(Effort); - cacheHints.RecordSize=MiniPS::int2ii(RecordSize); - cacheHints.K=MiniPS::int2ii(K); - cacheHints.Quality=MiniPS::int2ii(Quality); - cacheHints.ColorTransform=MiniPS::int2ii(ColorTransform); - cacheHints.TransferCPL=MiniPS::int2ii(TransferCPL); - cacheHints.Scale=(Rule::CacheHints::sc_t)MiniPS::int2ii(Scale); - /* fprintf(stderr, "scaled=%g\n", (char*)MiniPS::scale(ImageDPI,1)); */ -} - -void Rule::OutputRule::doSampleFormat(Image::SampledInfo *info, bool separatep) { - /* Dat: called from appliers.cpp:out_*_work(); the sample format is final */ - bool separatep2= - separatep && - ( cache.SampleFormat==Image::SF_Transparent2 - || cache.SampleFormat==Image::SF_Transparent4 - || cache.SampleFormat==Image::SF_Transparent8); - /* vvv simplifier added at Sat Jun 15 13:59:40 CEST 2002 */ - if (separatep2) cache.SampleFormat=Image::SF_Transparent8; - if (!info->setSampleFormat(cache.SampleFormat, cache.WarningOK, /*TryOnly*/false, cache.Transparent)) - Error::sev(Error::EERROR) << "doSampleFormat: cannot set desired SampleFormat" << (Error*)0; - Image::Sampled *img=info->getImg(); - slen_t n=1; - if (separatep2) { - info->separate(); - img=info->getImgs()[0];/*NULLP OK*/; - n=info->getNncols(); - } - if (img!=NULLP) { - if (0==cacheHints.EncoderBPL) cacheHints.EncoderBPL=(slen_t)img->getWd()*img->getCpp()*img->getBpc(); - if (0==cacheHints.EncoderColumns) cacheHints.EncoderColumns=img->getWd(); - if (0==cacheHints.EncoderColors) cacheHints.EncoderColors=img->getCpp(); - if (0==cacheHints.EncoderRows) cacheHints.EncoderRows=img->getHt()*n; - if (0==cacheHints.PredictorColumns) cacheHints.PredictorColumns=img->getWd(); - if (0==cacheHints.PredictorColors) cacheHints.PredictorColors=img->getCpp(); - if (0==cacheHints.PredictorBPC) cacheHints.PredictorBPC=img->getBpc(); - if (-2==cacheHints.K) cacheHints.K=img->getHt()*n; - } -} - -static char const*getDecode(Rule::Cache::co_t Compression) { - return (Compression==Rule::Cache::CO_LZW ? "/LZWDecode" - :Compression==Rule::Cache::CO_Fax ? "/CCITTFaxDecode" - :Compression==Rule::Cache::CO_ZIP ? "/FlateDecode" - :Compression==Rule::Cache::CO_RLE ? "/RunLengthDecode" - :Compression==Rule::Cache::CO_DCT ? "/DCTDecode" - :Compression==Rule::Cache::CO_IJG ? "/DCTDecode" - :Compression==Rule::Cache::CO_JAI ? "/DCTDecode" - :""); -} - -/** For PDF BI inline images */ -static char const*getBIDecode(Rule::Cache::co_t Compression) { - return (Compression==Rule::Cache::CO_LZW ? "/LZW" - :Compression==Rule::Cache::CO_Fax ? "/CCF" - :Compression==Rule::Cache::CO_ZIP ? "/Fl" - :Compression==Rule::Cache::CO_RLE ? "/RL" - :Compression==Rule::Cache::CO_DCT ? "/DCT" - :Compression==Rule::Cache::CO_IJG ? "/DCT" - :Compression==Rule::Cache::CO_JAI ? "/DCT" - :""); -} - -void Rule::OutputRule::appendDecoderSpec(GenBuffer::Writable &out) const { - assert(cacheHints.PredictorBPC!=0 && "doSampleFormat already called"); - bool hps=hasPredictorSpec(); - if (cache.isPDF()) { - /* Dat: also implies appendTransferSpec() -- this is true only for PDF */ - if (!cache.isPDFB()) { - if (cache.Compression==cache.CO_None) { - if (cache.TransferEncoding==cache.TE_Hex) out << "/Filter/ASCIIHexDecode"; - else if (cache.TransferEncoding==cache.TE_A85) out << "/Filter/ASCII85Decode"; - } else if (cache.TransferEncoding!=cache.TE_Hex && cache.TransferEncoding!=cache.TE_A85) { - out << "/Filter" << getDecode(cache.Compression); - if (hps) { out << "/DecodeParms"; appendPredictorSpec(out); } - } else { /* both TransferEncoding and Compression */ - if (cache.TransferEncoding==cache.TE_Hex) out << "/Filter[/ASCIIHexDecode"; - else if (cache.TransferEncoding==cache.TE_A85) out << "/Filter[/ASCII85Decode"; - else assert(0); - out << getDecode(cache.Compression); - if (hps) { out << "]/DecodeParms[null"; appendPredictorSpec(out); } - /* ^^^ BUGFIX at Tue Jun 4 18:50:13 CEST 2002 */ - out << ']'; - } - } else { - if (cache.Compression==cache.CO_None) { - if (cache.TransferEncoding==cache.TE_Hex) out << "/F/AHx"; - else if (cache.TransferEncoding==cache.TE_A85) out << "/F/A85"; - } else if (cache.TransferEncoding!=cache.TE_Hex && cache.TransferEncoding!=cache.TE_A85) { - out << "/F" << getBIDecode(cache.Compression); - if (hps) { out << "/DP"; appendPredictorSpec(out); } - } else { /* both TransferEncoding and Compression */ - if (cache.TransferEncoding==cache.TE_Hex) out << "/F[/AHx"; - else if (cache.TransferEncoding==cache.TE_A85) out << "/F[/A85"; - else assert(0); - out << getBIDecode(cache.Compression); - if (hps) { out << "]/DP[null"; appendPredictorSpec(out); } - out << ']'; - } - } /* IFELSE PDFB */ - } else { /* NOT PDF */ - if (cache.Compression!=cache.CO_None) { - appendPredictorSpec(out); - out << getDecode(cache.Compression) << " filter"; - } - } /* IFELSE PDF */ -} - -bool Rule::OutputRule::hasPredictorSpec() const { - return cache.Compression==cache.CO_Fax - || (cache.Compression==cache.CO_ZIP || cache.Compression==cache.CO_LZW) && cache.Predictor!=cache.PR_None; -} - -void Rule::OutputRule::appendPredictorSpec(GenBuffer::Writable &out) const { - assert(cacheHints.PredictorBPC!=0 && "doSampleFormat already called"); - if (cache.Compression==cache.CO_Fax) - out << "<</K " << cacheHints.K - << "/Columns " << cacheHints.EncoderBPL - /* ^^^ EncoderColumns -> EncoderBPL BUGFIX at Wed Jul 3 20:05:12 CEST 2002 */ - << ">>"; - else if ((cache.Compression==cache.CO_ZIP || cache.Compression==cache.CO_LZW) && - cache.Predictor!=cache.PR_None) - out<< "<</BitsPerComponent " << (unsigned)cacheHints.PredictorBPC - << "/Columns " << cacheHints.PredictorColumns - << "/Colors " << (unsigned)cacheHints.PredictorColors - << (cache.Predictor==cache.PR_TIFF2 ? "/Predictor 2>>": "/Predictor 10>>"); -} -void Rule::OutputRule::appendTransferSpec(GenBuffer::Writable &out) const { - if (cache.TransferEncoding==cache.TE_Hex) out << "/ASCIIHexDecode filter"; - else if (cache.TransferEncoding==cache.TE_A85) out << "/ASCII85Decode filter"; -} - -/* --- */ - -static Rule::Applier *first=(Rule::Applier*)NULLP; - -void Rule::register0(Rule::Applier *anew) { - param_assert(anew!=NULLP); - anew->next=first; - first=anew; -} - -unsigned Rule::printAppliers(GenBuffer::Writable &out) { - unsigned num=0; - Applier *p=first; - while (p!=(Applier*)NULLP) { - if (p->check_rule!=0/*NULLP*/ && p->work!=0/*NULLP*/) { num++; out << ' ' << p->format; } - p=p->next; - } - return num; -} - -Rule::OutputRule* Rule::buildProfile(MiniPS::VALUE Profile, bool quiet) { - param_assert(MiniPS::getType(Profile)==MiniPS::T_ARRAY); - MiniPS::Array *pary=MiniPS::RARRAY(Profile); - OutputRule *ret=new OutputRule[pary->getLength()+1], *or_=ret; - /* ^^^ just enough place; there may be BAD items which won't be stored */ - MiniPS::VALUE *val; - unsigned c; - #if !USE_BUILTIN_LZW - bool lzw_warning=true; - #endif - if (quiet) Error::pushPolicy((Error::level_t)0, - /*printed_:*/Error::getTopPrinted()+0>Error::WARNING+0 ? Error::getTopPrinted() : Error::WARNING, - Error::WARNING_DEFER, (GenBuffer::Writable*)NULLP); /* Dat: WARNING_DEFER untested */ - for (c=0, pary->getFirst(val); val!=NULLP; pary->getNext(val), c++) { - /* val: each OutputRule of the Profile */ - or_->fromDict(*val); - or_->c=c; - Applier *p=first; - // printf("building: %s...\n", p->format); - #if !USE_BUILTIN_LZW - if (or_->cache.Compression==or_->cache.CO_LZW && lzw_warning) { - lzw_warning=false; - Error::sev(Error::WARNING) << "buildProfile: please `configure --enable-lzw' for /Compression/LZW support in OutputRule #" << c << (Error*)0; - } - #endif - while (p!=NULLP) { - if (p->check_rule!=0/*NULLP*/) switch (p->check_rule(or_)) { - case Applier::BAD: - Error::sev(Error::WARNING_DEFER) << "buildProfile: ^^^ thus ignoring impossible OutputRule #" << c << (Error*)0; - goto end_appliers; - case Applier::MAYBE: case Applier::OK: - if (p->work!=0/*NULLP*/) { or_++; goto end_appliers; } - Error::sev(Error::WARNING_DEFER) << "buildProfile: ^^^ ignoring unimplemented OutputRule #" << c << (Error*)0; - // case p->DONT_KNOW: ; - } - p=p->next; /* continue with other Appliers; hope other than DONT_KNOW */ - } - Error::sev(Error::WARNING_DEFER) << "buildProfile: ignoring, no handlers for OutputRule #" << c << (Error*)0; - end_appliers: - if (quiet) delete Error::getRecorded(); - } - if (quiet) { delete Error::getRecorded(); Error::popPolicy(); } - if (or_==ret) Error::sev(Error::WARNING) << "buildProfile: all OutputRules in the .job file are useless" << (Error*)0; - or_->dict=or_->dictHints=(MiniPS::Dict*)NULLP; /* end-of-list */ - return ret; -} - -void Rule::applyProfile(GenBuffer::Writable& out, OutputRule*rule_list, Image::SampledInfo *sf) { - OutputRule *or_; - // unsigned tryc=0; /* Wed Jul 3 19:30:33 CEST 2002 */ - Error::pushPolicy((Error::level_t)0, - /*printed_:*/Error::getTopPrinted()+0>Error::NOTICE+0 ? Error::getTopPrinted() : Error::NOTICE, - Error::NOTICE_DEFER, (GenBuffer::Writable*)NULLP); - Image::Sampled::rgb_t Transparent=0x1000000UL; - if (rule_list->dict!=NULLP) { - Transparent=rule_list->cache.Transparent; - for (or_=rule_list+1; or_->dict!=NULLP; or_++) { - if (Transparent!=rule_list->cache.Transparent) { - /* Imp: make different copies, based on different or_->cache.Transparent -- or not? */ - Error::sev(Error::EERROR) << "applyProfile: ambiguous /Transparent" << (Error*)0; - } - } - } - /* Dat: -transparent ... makes the specified color transparent, but it cannot - * be used to remove transparenct - */ - // printf("Transparent=0x%lx\n",Transparent); - for (or_=rule_list; or_->dict!=NULLP; or_++) { - /* ^^^ Try each OutputRule (or_) in reverse order of registration */ - Error::sev(Error::NOTICE_DEFER) << "applyProfile: trying OutputRule #" << or_->c << (Error*)0; - if (sf->setSampleFormat(or_->cache.SampleFormat, or_->cache.WarningOK, /*TryOnly*/true, or_->cache.Transparent)) { - /* image supports the SampleFormat of OutputRule */ - Applier *p=first; - while (p!=NULLP) { - /* ^^^ Try each output Applier for the current candidate OutputRule */ - if (p->check_rule!=0/*NULLP*/ && p->work!=0/*NULLP*/) { - // tryc++; - switch (p->work(out, or_, sf)) { - case Applier::BAD: - Error::sev(Error::WARNING) << "applyProfile: ^^^ thus cannot apply OutputRule #" << or_->c << (Error*)0; - goto end_appliers; - case Applier::OK: - // if (or_->c!=0) { - delete Error::getRecorded(); Error::popPolicy(); - Error::sev(Error::NOTICE) << "applyProfile: applied OutputRule #" << or_->c << (Error*)0; - return; - /* case Applier::MAYBE: impossible */ - // case p->DONT_KNOW: ; - } - } - p=p->next; /* continue with other Appliers; hope other than DONT_KNOW */ - end_appliers: ; - } - } /* IF image supports SampleFormat */ - } - Error::sev(Error::EERROR) << "applyProfile: invalid combination, no applicable OutputRule" << (Error*)0; -} - -void Rule::deleteProfile(OutputRule*rule_list) { - /* MiniPS::* objects still remain -- the caller (reader) will delete them. */ - delete [] rule_list; -} - -/* --- */ - -//#include <string.h> -//static char xx[5000]; - -void Rule::writeData(GenBuffer::Writable&, GenBuffer::Writable&outstream, Image::SampledInfo *sf) { - Image::Indexed **imgs=sf->getImgs(); - slen_t rlenht; - if (imgs!=NULLP) { - unsigned i; - if (sf->getNncols()!=0 && 0!=(rlenht=imgs[0]->getRlen()*imgs[0]->getHt())) { - // fprintf(stderr,"rh=%u nc=%u\n", rlenht, sf->getNncols()); - for (i=0;i<sf->getNncols();i++) outstream.vi_write(imgs[i]->getRowbeg(), rlenht); - //for (i=0;i<sf->getNncols();i++) { - // memset(xx, 1<<(i), sizeof(xx)); - // outstream.vi_write(xx, rlenht); - //} - } - } else { - Image::Sampled *img=sf->getImg(); - rlenht=img->getRlen()*img->getHt(); - if (rlenht!=0) outstream.vi_write(img->getRowbeg(), rlenht); - } - outstream.vi_write(0,0); /* Dat: frees cp, bp, (ap) */ -} -void Rule::writePalData(GenBuffer::Writable& outpal, GenBuffer::Writable&outstream, Image::SampledInfo *sf) { - Image::Sampled *img=sf->getImg(); - slen_t wlen=img->getRowbeg()-img->getHeadp(); - if (wlen!=0) outpal.vi_write(img->getHeadp(), wlen); - writeData(outpal, outstream, sf); - /* vvv replaced by the more generic writeData */ - // slen_t rlenht=img->getRlen()*img->getHt(); - // if (rlenht!=0) outstream.vi_write(img->getRowbeg(), rlenht); - // outstream.vi_write(0,0); /* Dat: frees cp, bp, (ap) */ -} - -/** Returns a divisor of v1*v2 near 4096 */ -static slen_t near_div(slen_t v1, slen_t v2) { - static const slen_t LOW=2048, MID=4096, HIGH=8192; - slen_t d, p; - if (v1>v2) { d=v1; v1=v2; v2=d; } - if (LOW<=v2 && v2<=HIGH) return v2; /* larger */ - if (LOW<=v1 && v1<=HIGH) return v1; /* smaller */ - if ((p=v1*v2)<=HIGH) return p; /* smaller */ - for (d=MID;d<=HIGH;d++) if (p%d==0) return d; - for (d=MID-1;d>=LOW;d--) if (p%d==0) return d; - return v1; /* the smaller one */ -} - -/** Basicly out.format("%g", (double)n/255);, but we don't want to depend on - * floating point arithmetic of the underlying architecture. - */ -static void div255(GenBuffer::Writable& out, unsigned n) { - char tmp[7]; - unsigned abc; - param_assert(n<=255); - tmp[0]='0'; tmp[1]='.'; tmp[3]='\0'; - if (n%51!=0) { - /* Divisors of 255: 1, 3, 5, 15, 17, 51, 85, 255. - * 0/255 == "0" 51/255 == "0.2" - * 102/255 == "0.4" 153/255 == "0.6" - * 204/255 == "0.8" 255/255 == "1" - * All other k/255 are infinite as a decimal fraction. - * 1000 > 2*255, so 3 digits after '.' is enough. - */ - assert(n<=254); - #if 0 - abc=(127L+1000*n)/255; - tmp[2]='0'+abc/100; - tmp[3]='0'+(abc/10)%10; - tmp[4]='0'+abc%10; - tmp[5]='\0'; - #else - abc=(127L+10000*n)/255; - tmp[2]='0'+abc/1000; - tmp[3]='0'+(abc/100)%10; - tmp[4]='0'+(abc/10)%10; - tmp[5]='0'+abc%10; - tmp[6]='\0'; - #endif - } else if (n<153) { - if (n<51) tmp[1]='\0'; - else if (n>51) tmp[2]='4'; - else tmp[2]='2'; - } - else if (n<204) tmp[2]='6'; - else if (n>204) { tmp[0]='1'; tmp[1]='\0'; } - else tmp[2]='8'; - out << tmp; -} - -void Rule::writeTTE( - GenBuffer::Writable& out, - GenBuffer::Writable&outpal, - GenBuffer::Writable&outstream, - char const*template_, Rule::OutputRule*or_, Image::SampledInfo *sf, stream_writer_t stream_writer, char const*const*strings) { - unsigned int i, j; - register char const*p; - char *r; - Image::Sampled *img=sf->getImg(); - param_assert(template_!=(const char*)NULLP); - p=template_; - bool nzp, scp; - SimBuffer::B scf; - while (1) { - assert(template_==p); - while (*p!='`' && *p!='\0') p++; /* '`' is the escape character */ - if (p!=template_) out.vi_write(template_, p-template_); - if (*p++=='\0') break; - switch (*p++) { - case '\0': - p--; /* fall through */ - case '`': - out.vi_write("`", 1); break; - case '#': /* number of non-transparent colors of /Indexed*, /Transparent* */ - out << sf->getNncols(); break; - case 'p': /* 3*(number of non-transparent colors of /Indexed*, /Transparent*) */ - out << (3*sf->getNncols()); break; - case 'P': /* number of palette bytes (including the transparent color) */ - out << img->getRowbeg()-img->getHeadp(); break; - case '0': case '1': case '2': /* arbitrary, user-defined string */ - param_assert(strings!=(char const*const*)NULLP); - out << strings[p[-1]-'0']; break; - case 'C': /* PDF /Procset entries */ - if (or_->cache.isIndexed()) out << "/ImageI"; - else if (or_->cache.isGray()) out << "/ImageB"; - else out << "/ImageC"; /* SF_Rgb*, SF_Asis etc. */ - break; - case 'i': /* PS image or colorimage operator */ - out << (or_->cache.isGray() ? "image" - : or_->cache.SampleFormat==Image::SF_Mask || or_->cache.SampleFormat==Image::SF_Indexed1 ? "imagemask" - : "false 3 colorimage"); - break; - case 'I': /* PS warning for usage of colorimage operator */ - // if (!or_->cache.isGray()) out << "% PSLC required\n"; - if (!or_->cache.isGray() && !or_->cache.isTransparentM()) out << "%%Extensions: CMYK\n"; - break; -#if 0 - case "p:invalid": /* optional predictor specification */ - { unsigned char pred=or_->cache.Predictor; - if (pred== 2) out << "/Predictor 2"; /* TIFF predictor */ - else if (pred>=10) out << "/Predictor 10"; /* any PNG predictor */ - } -#endif - case 'w': /* image width, decimal */ - out << img->getWd(); - break; - case 'h': /* image height, decimal */ - out << img->getHt(); - break; - case '?': /* a divisor of rlen*height near 4096 */ - if (sf->getImgs()!=NULLP) { /* /Transparent+ */ - out << near_div(sf->getImgs()[0]->getRlen(), img->getHt()); - /* Dat: `img->getHt()*sf->getNncols()' would be wrong */ - } else { - out << near_div(img->getRlen(), img->getHt()); - } - break; - case 'B': /* Clean7Bits or Binary; Sun Jun 23 18:55:35 CEST 2002 */ - out << (or_->cache.isPDF() ? (or_->cache.isBinSB() ? "%\307\354\217\242\n" : "") - : (or_->cache.isBinSB() ? "Binary" : "Clean7Bit")); - break; - case 'b': /* image bpc, decimal */ - /* added "true"|"false" for sam2p-0.39 at Sun Sep 22 17:49:25 CEST 2002 */ - if (or_->cache.SampleFormat==Image::SF_Mask) out << "false"; - else if (or_->cache.SampleFormat==Image::SF_Indexed1) out << "true"; - else out << (unsigned)img->getBpc(); - break; - case 'c': /* image cpp, decimal */ - out << (unsigned)img->getCpp(); - break; - case 'd': /* device-specific color-space name */ - out << Image::Sampled::cs2devcs(img->getCs()); - break; - case 't': /* closefile specification in PostScript */ - if (or_->cache.Compression!=or_->cache.CO_None) out << " F closefile"; - if (or_->cache.TransferEncoding!=or_->cache.TE_Binary) out << " T closefile"; - break; - case 'T': /* TransferEncoding specification in PostScript */ - or_->appendTransferSpec(out); - break; - case 'F': /* decoding filter specification in PostScript */ - or_->appendDecoderSpec(out); - break; - case 'O': /* 0..1 /Decode values */ - i=1; - emit_Decode: - j=img->getCpp(); - out << "0 " << i; - while (j--!=1) out << " 0 " << i; - break; - case 'D': /* 0..1 /Decode values for indexed, 0..max-1 for others */ - i=(or_->cache.isIndexed())?(1<<img->getBpc())-1:1; - goto emit_Decode; - case 'S': /* image data stream */ - stream_writer(outpal, outstream, sf); - break; - case 'g': /* PDF 0..1 RGB triplet of the 0th palette color */ - assert(img->getTy()==img->TY_INDEXED); - r=img->getHeadp(); - goto appG; - case 'G': /* PDF 0..1 RGB triplet of the 1st palette color */ - assert(img->getTy()==img->TY_INDEXED); - r=img->getHeadp()+3; - appG: - div255(out, (unsigned char)r[0]); out << ' '; - div255(out, (unsigned char)r[1]); out << ' '; - div255(out, (unsigned char)r[2]); - break; - case 'r': /* PS 0..1 RGB triplet of the 0th palette color */ - assert(img->getTy()==img->TY_INDEXED); - r=img->getHeadp(); - out << (unsigned)(unsigned char)r[0] << " 255 div " - << (unsigned)(unsigned char)r[1] << " 255 div " - << (unsigned)(unsigned char)r[2] << " 255 div"; - break; - case 'R': /* PS code for setting up bg and fg colors for an imagemask */ - /* formerly: PS 0..1 RGB triplet of the 1st palette color */ - /* changed at Sun Sep 22 18:02:41 CEST 2002 */ - if (or_->cache.SampleFormat==Image::SF_Mask || or_->cache.SampleFormat==Image::SF_Indexed1) { - assert(img->getTy()==img->TY_INDEXED); - r=img->getHeadp(); - out << (unsigned)(unsigned char)r[0] << " 255 div " /* 0th palette color */ - << (unsigned)(unsigned char)r[1] << " 255 div " - << (unsigned)(unsigned char)r[2] << " 255 div setrgbcolor\n"; - if (or_->cache.SampleFormat==Image::SF_Indexed1) { - out << "0 0 moveto\n" - << img->getWd() << " 0 lineto\n0 " - << img->getHt() << " rlineto\n-" - << img->getWd() << " 0 rlineto\nclosepath fill\n" - << (unsigned)(unsigned char)r[3] << " 255 div " /* 1st palette color */ - << (unsigned)(unsigned char)r[4] << " 255 div " - << (unsigned)(unsigned char)r[5] << " 255 div\nsetrgbcolor\n"; - } - } - break; - case 'E': /* EPS header for unscaled PS files */ - if (or_->cacheHints.Scale==or_->cacheHints.SC_None) out << " EPSF-3.0"; - break; - case 'X': /* BoundingBox for EPS, MediaBox for PDF */ - if (or_->cache.isPDF()) { - // out << "0 0 "; - out << "0 "; - goto do_bbox; - } else if (or_->cacheHints.Scale==or_->cacheHints.SC_None) { - /* It is no point to start the BoundingBox of EPS files at - * (LeftMargin,BottomMargin). The effect would be the same as - * specifying no margins at all. Our choice is better: the - * BoundingBox contains the image and the margins too. - */ - // out << "%%BoundingBox: 0 0 "; - out << "%%BoundingBox: 0 "; - do_bbox: - // out << MiniPS::RVALUE(or_->cacheHints.LowerMargin) << ';'; /* SUXX: this would put `1 72 mul' */ - // out << MiniPS::RVALUE(or_->cacheHints.BottomMargin) << ';'; /* SUXX: this would put `1 72 mul' */ - MiniPS::dumpAdd3(out, MiniPS::Qinteger(0), MiniPS::Qinteger(0), MiniPS::Qinteger(0), or_->cacheHints.LowerMargin, or_->cacheHints.BottomMargin, 1); - out << ' '; - MiniPS::dumpAdd3(out, or_->cacheHints.ImageDPI, MiniPS::Qinteger(img->getWd()), - or_->cacheHints.LeftMargin, or_->cacheHints.RightMargin, MiniPS::Qinteger(0), 2); - out << ' '; - MiniPS::dumpAdd3(out, or_->cacheHints.ImageDPI, MiniPS::Qinteger(img->getHt()), - or_->cacheHints.TopMargin, or_->cacheHints.LowerMargin, MiniPS::Qinteger(0), 2); - if (!or_->cache.isPDF()) out << '\n'; - } - break; - case 's': /* scaling to a full PostScript page or translation for PDF and EPS */ - nzp=!(MiniPS::isZero(or_->cacheHints.LowerMargin) - && MiniPS::isZero(or_->cacheHints.TopMargin)); - scp=!MiniPS::isEq(or_->cacheHints.ImageDPI, 72); - - if (or_->cache.isPDF()) { - SimBuffer::B scf; - if (scp) MiniPS::dumpScale(scf, or_->cacheHints.ImageDPI); - else scf << 'x'; - if (nzp || scp) out << " " << scf << " 0 0 " << scf << " " << MiniPS::RVALUE(or_->cacheHints.LeftMargin) - << ' ' << MiniPS::RVALUE(or_->cacheHints.LowerMargin) - << " cm"; /* translate */ - } else switch (or_->cacheHints.Scale) { - case Rule::CacheHints::SC_None: - if (nzp) out << '\n' << MiniPS::RVALUE(or_->cacheHints.LeftMargin) - << ' ' << MiniPS::RVALUE(or_->cacheHints.LowerMargin) - << " translate"; - if (scp) { - MiniPS::dumpScale(scf, or_->cacheHints.ImageDPI); - out << '\n' << scf << " dup scale"; - } - break; - case Rule::CacheHints::SC_OK: - /* from pshack/big.ps */ - out <<"\n6 dict begin currentpagedevice/PageSize get dup 0 get\n " << MiniPS::RVALUE(or_->cacheHints.LeftMargin) << " sub " << MiniPS::RVALUE(or_->cacheHints.RightMargin) << " sub/w exch\n" - " def 1 get " << MiniPS::RVALUE(or_->cacheHints.TopMargin) << " sub " << MiniPS::RVALUE(or_->cacheHints.BottomMargin) << " sub/h exch\n" - " def/x " << img->getWd() << " def/y " << img->getHt() << " def " << MiniPS::RVALUE(or_->cacheHints.LeftMargin) << ' ' << MiniPS::RVALUE(or_->cacheHints.BottomMargin) << " translate x h\n" - " mul y w mul gt{w x 0 h y w mul x div sub 2 div}{h y w x h mul y div sub 2 div\n" - " 0}ifelse translate div dup scale\nend"; - break; - case Rule::CacheHints::SC_RotateOK: - /* from pshack/big.ps */ - out <<"\n6 dict begin currentpagedevice/PageSize get dup 0 get\n " << MiniPS::RVALUE(or_->cacheHints.LeftMargin) << " sub " << MiniPS::RVALUE(or_->cacheHints.RightMargin) << " sub/w exch\n" - " def 1 get " << MiniPS::RVALUE(or_->cacheHints.TopMargin) << " sub " << MiniPS::RVALUE(or_->cacheHints.BottomMargin) << " sub/h exch\n" - " def/x " << img->getWd() << " def/y " << img->getHt() << " def " << MiniPS::RVALUE(or_->cacheHints.LeftMargin) << ' ' << MiniPS::RVALUE(or_->cacheHints.BottomMargin) << "/b y h mul x\n" - " w mul gt def b{w y}{h x}ifelse div/c x h mul y w mul gt def c{w x}{h y}ifelse\n" - " div gt{h add translate -90 rotate b{w y h x w mul y div sub 2 div 0}{h\n" - " x 0 w y h mul x div sub 2 div}}{translate c{w x 0 h y w mul x div sub 2 div}{h\n" - " y w x h mul y div sub 2 div 0}}ifelse ifelse translate div dup scale\nend"; - break; - } - break; - default: - Error::sev(Error::EERROR) << "writeTTE: unknown escape: " << (char)p[-1] << (Error*)0; - } - template_=p; - } -} - -/** by pts@fazekas.hu at Mon Apr 15 22:31:03 CEST 2002 */ -void Rule::writeTTM( - Filter::VerbatimE &outve, - GenBuffer::Writable&outpal, - GenBuffer::Writable&outstream, - MiniPS::Array *chunkArray, - Rule::OutputRule*or_, - Image::SampledInfo *sf, - stream_writer_t stream_writer, - char const*const*strings) { - static const unsigned MAXLEN=64; - /* Imp: use heap instead of stack space */ - slen_t offsets[MAXLEN+1]; /* 260 bytes stack */ - SimBuffer::B chunks[MAXLEN]; /* <=1024 bytes stack; default constructor */ - MiniPS::VALUE *chunk; - param_assert(chunkArray!=NULLP); - // param_assert(chunkArray->getLength()<=MAXLEN); - if (chunkArray->getLength()>(int)MAXLEN) Error::sev(Error::EERROR) << "writeTTM: TTM too long" << (Error*)0; - GenBuffer::Writable& out=outve.getOut(); - MiniPS::ii_t i, ii; - for (chunkArray->getFirst(chunk), i=0; chunk!=NULLP; chunkArray->getNext(chunk), i++) { - if (MiniPS::getType(*chunk)==MiniPS::T_ARRAY) { - outve.setOut(chunks[i]); - writeTTM(outve, outpal, outstream, MiniPS::RARRAY(*chunk), or_, sf, stream_writer, strings); - } - } - for (chunkArray->getFirst(chunk), offsets[i=0]=0; chunk!=NULLP; chunkArray->getNext(chunk), i++) { - switch (MiniPS::getType(*chunk)) { - case MiniPS::T_ARRAY: - break; - case MiniPS::T_STRING: /* always null-terminated */ - outve.setOut(chunks[i]); - writeTTE(outve, outpal, outstream, MiniPS::RSTRING(*chunk)->begin_(), or_, sf, stream_writer, strings); - break; - case MiniPS::T_INTEGER: - if (0==(ii=MiniPS::int2ii(*chunk))) Error::sev(Error::EERROR) << "writeTTM: zero is an invalid chunk" << (Error*)0; - if (ii>0) { /* an offset */ - if (ii>i) Error::sev(Error::EERROR) << "writeTTM: cannot predict chunk offset" << (Error*)0; - if (MiniPS::T_ARRAY==MiniPS::getType(chunkArray->get(ii))) - chunks[i].write_num(offsets[ii], 10); /* Dat: 10: 10 digits (for PDF xref table), not base 10 */ - else chunks[i] << offsets[ii]; - } else { /* a length */ - chunks[i] << chunks[-ii].getLength(); - } - break; - default: - Error::sev(Error::EERROR) << "writeTTM: invalid chunk type: " << MiniPS::getTypeStr(MiniPS::getType(*chunk)) << (Error*)0; - } - offsets[i+1]=offsets[i]+chunks[i].getLength(); - } /* NEXT */ - outve.setOut(out); - for (i=0; i<chunkArray->getLength(); i++) out << chunks[i]; - /* Imp: organize that chunks[.] gets freed earlier than this */ -} /* Rule::writeTTM() */ - -MiniPS::Dict *Rule::Templates=(MiniPS::Dict*)NULLP; - -void Rule::writeTTT( - GenBuffer::Writable&out, - GenBuffer::Writable&outpal, - GenBuffer::Writable&outstream, - char const *template_key, - Rule::OutputRule*or_, - Image::SampledInfo *sf, - stream_writer_t stream_writer, - char const*const*strings) { - assert(Templates!=NULLP); - Error::sev(Error::NOTICE) << "writeTTT: using template: " << template_key << (Error*)0; - MiniPS::VALUE val=Templates->get(template_key, strlen(template_key)); - assert(val!=MiniPS::Qundef); - switch (MiniPS::getType(val)) { - case MiniPS::T_STRING: - writeTTE(out, outpal, outstream, MiniPS::RSTRING(val)->begin_(), or_, sf, stream_writer, strings); - break; - case MiniPS::T_ARRAY: - /* Imp: vvv This up-cast is unsafe! */ - writeTTM(*(Filter::VerbatimE*)&out, outpal, outstream, MiniPS::RARRAY(val), or_, sf, stream_writer, strings); - break; - default: - Error::sev(Error::EERROR) << "writeTTT: invalid template type: " << MiniPS::getTypeStr(MiniPS::getType(val)) << (Error*)0; - } -} - -/* __END__ */ |