home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Impressora_PDF / converter.exe / GPLGS / gs_pdfwr.ps < prev    next >
Text File  |  2004-12-02  |  22KB  |  674 lines
  1. %    Copyright (C) 1996, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_pdfwr.ps,v 1.31.2.3 2004/08/11 13:12:24 ray Exp $
  17. % PDF writer additions to systemdict.
  18.  
  19. % This file should be included iff the pdfwrite "device" is included
  20. % in the executable.
  21.  
  22. % ---------------- Predefined configurations ---------------- %
  23.  
  24. % These correspond to the 4 predefined settings in Acrobat Distiller 5,
  25. % plus a "default" setting that doesn't downsample images.
  26.  
  27. /.a2112 [2 1 1 2] readonly def
  28. /.a1111 [1 1 1 1] readonly def
  29. /.standardfonts [
  30.   /Courier /Courier-Bold /Courier-Oblique /Courier-BoldOblique
  31.   /Helvetica /Helvetica-Bold /Helvetica-Oblique /Helvetica-BoldOblique
  32.   /Times-Roman /Times-Bold /Times-Italic /Times-BoldItalic
  33.   /Symbol /ZapfDingbats
  34. ] readonly def
  35.  
  36. % Parameters common to all non-default configurations.
  37. % Note that the default configuration overrides a few of these.
  38. /.defaultImageDict mark
  39.   /QFactor 0.9 /Blend 1
  40.   /HSamples .a2112 /VSamples .a2112
  41. .dicttomark readonly def
  42. /.distillercommon mark
  43.   /AlwaysEmbed []
  44.   /AntiAliasColorImages false
  45.   /AntiAliasGrayImages false
  46.   /AntiAliasMonoImages false
  47.   /ASCII85EncodePages false
  48.   /AutoFilterColorImages true
  49.   /AutoFilterGrayImages true
  50.   /AutoPositionEPSFiles true
  51.   /Binding /Left
  52.   /CalCMYKProfile (None)        % (U.S. Web Coated (SWOP) v2)
  53.   /CalGrayProfile (None)        % (Dot Gain 20%)  
  54.   /CalRGBProfile (None)            % (sRGB IEC61966-2.1)
  55.   /ColorImageDepth -1
  56.   /ColorImageDict .defaultImageDict
  57.   /ColorImageDownsampleThreshold 1.5
  58.   /ColorImageFilter /DCTEncode
  59.   /CompressPages true
  60.   /ConvertImagesToIndexed true
  61.   /DefaultRenderingIntent /Default
  62.   /DetectBlends true
  63.   /DownsampleColorImages true
  64.   /DownsampleGrayImages true
  65.   /DownsampleMonoImages true
  66.   /EmitDSCWarnings false
  67.   /EncodeColorImages true
  68.   /EncodeGrayImages true
  69.   /EncodeMonoImages true
  70.   /EndPage -1
  71.   /GrayImageDepth -1
  72.   /GrayImageDict .defaultImageDict
  73.   /GrayImageDownsampleThreshold 1.5
  74.   /GrayImageFilter /DCTEncode
  75.   /ImageMemory 524288
  76.   /LockDistillerParams false
  77.   /MaxSubsetPct 100
  78.   /MonoImageDepth -1
  79.   /MonoImageDict mark
  80.     /K -1
  81.   .dicttomark readonly
  82.   /MonoImageDownsampleThreshold 1.5
  83.   /MonoImageFilter /CCITTFaxEncode
  84.   /OffOptimizations 0
  85.   /OPM 1
  86.   /Optimize true
  87.   /ParseDSCComments true
  88.   /ParseDSCCommentsForDocInfo true
  89.   /PreserveCopyPage true
  90.   /PreserveHalftoneInfo false
  91.   /sRGBProfile (None)            % (sRGB IEC61966-2.1)
  92.   /StartPage 1
  93.   /SubsetFonts true
  94.   /TransferFunctionInfo /Preserve
  95.   /UseFlateCompression true
  96.   /UsePrologue false
  97. .dicttomark readonly def
  98.  
  99. /.distillersettings mark
  100.  
  101. /default mark
  102.   /AutoRotatePages /PageByPage
  103.   /CannotEmbedFontPolicy /Warning
  104.   /ColorACSImageDict .defaultImageDict
  105.   /ColorConversionStrategy /LeaveColorUnchanged
  106. %  /ColorImageDownsampleType
  107. %  /ColorImageResolution
  108. %  /CompatibilityLevel
  109.   /CreateJobTicket false
  110.   /DoThumbnails false
  111.   /DownsampleColorImages false        % override
  112.   /DownsampleGrayImages false        % override
  113.   /DownsampleMonoImages false        % override
  114.   /EmbedAllFonts true
  115.   /GrayACSImageDict .defaultImageDict
  116. %  /GrayImageDownsampleType
  117. %  /GrayImageResolution
  118. %  /MonoImageDownsampleType
  119. %  /MonoImageResolution
  120.   /NeverEmbed .standardfonts
  121.   /Optimize false            % override
  122.   /PreserveEPSInfo true
  123.   /PreserveOPIComments true
  124.   /PreserveOverprintSettings true
  125.   /UCRandBGInfo /Preserve
  126. .dicttomark readonly
  127.  
  128. /.screenACSImageDict mark
  129.   /QFactor 0.76 /Blend 1 /ColorTransform 1
  130.   /HSamples .a2112 /VSamples .a2112
  131. .dicttomark readonly def
  132. /screen mark
  133.   /AutoRotatePages /PageByPage
  134. %  /CalGrayProfile (None)
  135.   /CannotEmbedFontPolicy /Warning
  136.   /ColorACSImageDict .screenACSImageDict
  137.   /ColorConversionStrategy /sRGB
  138.   /ColorImageDownsampleType /Average
  139.   /ColorImageResolution 72
  140.   /CompatibilityLevel 1.2
  141.   /CreateJobTicket false
  142.   /DoThumbnails false
  143.   /EmbedAllFonts true
  144.   /GrayACSImageDict .screenACSImageDict
  145.   /GrayImageDownsampleType /Average
  146.   /GrayImageResolution 72
  147.   /MonoImageDownsampleType /Average
  148.   /MonoImageResolution 300
  149.   /NeverEmbed .standardfonts
  150.   /PreserveEPSInfo false
  151.   /PreserveOPIComments false
  152.   /PreserveOverprintSettings false
  153.   /UCRandBGInfo /Remove
  154. .dicttomark readonly
  155.  
  156. /ebook mark
  157.   /AutoRotatePages /All
  158. %  /CalGrayProfile (None)
  159.   /CannotEmbedFontPolicy /Warning
  160.   /ColorACSImageDict .screenACSImageDict
  161.   /ColorConversionStrategy /sRGB
  162.   /ColorImageDownsampleType /Bicubic
  163.   /ColorImageResolution 150
  164.   /CompatibilityLevel 1.3
  165.   /CreateJobTicket false
  166.   /DoThumbnails false
  167.   /EmbedAllFonts true
  168.   /GrayACSImageDict .screenACSImageDict
  169.   /GrayImageDownsampleType /Bicubic
  170.   /GrayImageResolution 150
  171.   /MonoImageDownsampleType /Bicubic
  172.   /MonoImageResolution 300
  173.   /NeverEmbed .standardfonts
  174.   /PreserveEPSInfo false
  175.   /PreserveOPIComments false
  176.   /PreserveOverprintSettings false
  177.   /UCRandBGInfo /Remove
  178. .dicttomark readonly
  179.  
  180. /.printerACSImageDict mark
  181.   /QFactor 0.4 /Blend 1 /ColorTransform 1
  182.   /HSamples .a1111 /VSamples .a1111
  183. .dicttomark readonly def
  184. /printer mark
  185.   /AutoRotatePages /PageByPage
  186. %  /CalGrayProfile (None)
  187.   /CannotEmbedFontPolicy /Warning
  188.   /ColorACSImageDict .printerACSImageDict
  189.   /ColorConversionStrategy /UseDeviceIndependentColor
  190.   /ColorImageDownsampleType /Bicubic
  191.   /ColorImageResolution 300
  192.   /CompatibilityLevel 1.3
  193.   /CreateJobTicket true
  194.   /DoThumbnails false
  195.   /EmbedAllFonts true
  196.   /GrayACSImageDict .printerACSImageDict
  197.   /GrayImageDownsampleType /Bicubic
  198.   /GrayImageResolution 300
  199.   /MonoImageDownsampleType /Bicubic
  200.   /MonoImageResolution 1200
  201.   /NeverEmbed []
  202.   /PreserveEPSInfo true
  203.   /PreserveOPIComments true
  204.   /PreserveOverprintSettings true
  205.   /UCRandBGInfo /Preserve
  206. .dicttomark readonly
  207.  
  208. /.prepressACSImageDict mark
  209.   /QFactor 0.15 /Blend 1 /ColorTransform 1
  210.   /HSamples .a1111 /VSamples .a1111
  211. .dicttomark readonly def
  212. /prepress mark
  213.   /AutoRotatePages /PageByPage
  214.   /CannotEmbedFontPolicy /Error
  215.   /ColorACSImageDict .prepressACSImageDict
  216.   /ColorConversionStrategy /LeaveColorUnchanged
  217.   /ColorImageDownsampleType /Bicubic
  218.   /ColorImageResolution 300
  219.   /CompatibilityLevel 1.3
  220.   /CreateJobTicket true
  221.   /DoThumbnails true
  222.   /EmbedAllFonts true
  223.   /GrayACSImageDict .prepressACSImageDict
  224.   /GrayImageDownsampleType /Bicubic
  225.   /GrayImageResolution 300
  226.   /MonoImageDownsampleType /Bicubic
  227.   /MonoImageResolution 1200
  228.   /NeverEmbed []
  229.   /PreserveEPSInfo true
  230.   /PreserveOPIComments true
  231.   /PreserveOverprintSettings true
  232.   /UCRandBGInfo /Preserve
  233. .dicttomark readonly
  234.  
  235. .dicttomark readonly def
  236.  
  237. % ---------------- End of predefined configurations ---------------- %
  238.  
  239. % Set optimizations for converting PostScript to PDF.
  240. % The ps2pdf* scripts invoke this.
  241. /.setpdfwrite {        % - .setpdfwrite -
  242.         % Set a large VM threshold to reduce garbage collection.
  243.   currentuserparams /VMThreshold get 3000000 .max setvmthreshold
  244. } bind def
  245.  
  246. % ---------------- pdfmark and DSC processing ---------------- %
  247.  
  248. % Encode values to pass for the /pdfmark or /DSC pseudo-parameter.
  249. /.pdf===dict mark
  250.   /arraytype
  251.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  252.         % Stack: file obj left right
  253.       4 1 roll 2 index exch writestring () exch
  254.        { exch 2 index exch writestring
  255.      1 index exch pdf===only ( )
  256.        }
  257.       forall pop exch writestring
  258.    } bind
  259.   /packedarraytype 1 index
  260.   /dicttype
  261.    { 1 index (<<\n) writestring
  262.       { 2 index 3 -1 roll pdf===only 1 index ( ) writestring
  263.     1 index exch pdf===only dup (\n) writestring
  264.       }
  265.      forall (>>) writestring
  266.    } bind
  267.   /nametype {
  268.     % If the name string includes any non-regular characters,
  269.     % write it with two preceding and one following null character(s).
  270.     % (Null characters in the name itself are not allowed.)
  271.     % This non-standard escape convention is required for passing names
  272.     % that include non-regular characters, because PostScript provides
  273.     % no way to do this.  The pdf_scan_token procedure in the C code of
  274.     % the pdfwrite driver is currently the only place that recognizes
  275.     % this convention.
  276.     dup .namestring (\000\011\012\014\015 %()/<>[]{}) .stringbreak null ne {
  277.       dup .namestring (\000) .stringbreak null ne {
  278.     /rangecheck signalerror
  279.       } if
  280.       1 index <0000> writestring 1 index exch write===only 0 write
  281.     } {
  282.       write===only
  283.     } ifelse
  284.   } bind
  285. .dicttomark readonly def
  286. /pdf===only {    % <file> <obj> pdf===only -
  287.   .pdf===dict 1 index type .knownget { exec } { write===only } ifelse
  288. } bind def
  289. /.pdfcvbuf 30 string def    % enough for most arguments
  290. userdict /.pdfcvstring () put
  291. /.pdfcvs {        % <obj> .pdfcvs <string>
  292.   currentglobal exch false .setglobal
  293.   /.pdfcvstring () store
  294.         % We can't handle long values yet.
  295.   { pop dup length 0 eq { pop } {
  296.       /.pdfcvstring .pdfcvstring 3 -1 roll concatstrings store
  297.     } ifelse //.pdfcvbuf
  298.   } /NullEncode filter dup 3 -1 roll pdf===only
  299.   closefile
  300.   .setglobal .pdfcvstring
  301. } bind def
  302.  
  303. % Redefine pdfmark to pass the data to the driver.
  304. % We use a pseudo-parameter named /pdfmark whose value is an array:
  305. %    /key1 (value1) ... (CTM) /type
  306. /.pdfputparams {    % -mark- <key1> <value1> ... .pdfputparams <result...>
  307.   currentdevice null false counttomark 1 add 3 roll
  308.         % Don't allow the page device to get cleared....
  309.   {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
  310. } bind def
  311. % Convert relevant operands to strings in an array.
  312. /.pdfcvsloop {        % -mark- values ... markname start step .pdfcvsloop
  313.             %   [values ... ctm markname]
  314.    matrix currentmatrix .pdfcvs 4 1 roll
  315.    counttomark 1 add 2 roll 
  316.    counttomark .localvmarray astore exch pop
  317.    3 1 roll
  318.             % Stack: values start step
  319.    2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  320. } bind def
  321. /.pdfcvsall {        % -mark- values ... markname .pdfcvsall <<same>>
  322.   0 1 .pdfcvsloop
  323. } bind def
  324. /.pdfcvseven {        % -mark- key value ... markname .pdfcvseven <<same>>
  325.   1 2 .pdfcvsloop
  326. } bind def
  327. /.pdfcvsnone {        % -mark- values ... markname .pdfcvsnone <<same>>
  328.   100000 1 .pdfcvsloop
  329. } bind def
  330. /.pdfcvsfirst {        % -mark- first values ... markname .pdfcvsfirst<<same>>
  331.   .pdfcvsnone
  332.   dup 0 2 copy get .pdfcvs put
  333. } bind def
  334. % The procedures in the following dictionary are called with the entire
  335. % pdfmark operand list (including the pdfmark name) on the stack;
  336. % they may modify this ad lib.  They must call .pdfcvsxxx.
  337. /.pdfmarkparams mark
  338.     % Unpack a dictionary for PUT, and don't convert stream data.
  339.   /PUT {
  340.     counttomark 3 eq {
  341.       1 index type /dicttype eq {
  342.     pop { } forall /.PUTDICT .pdfcvsall
  343.       } {
  344.     pop dup type /filetype eq {
  345.         % Read the file into a sequence of strings.
  346.         % This isn't great, but it's simple.
  347.       {
  348.         dup 64000 string readstring not { exch exit } if
  349.         exch
  350.       } loop closefile
  351.     } if
  352.     /.PUTSTREAM .pdfcvsfirst
  353.       } ifelse
  354.     } {
  355.       .pdfcvsall
  356.     } ifelse
  357.   } bind
  358.     % Unpack the array for PUTINTERVAL.
  359.   /PUTINTERVAL {
  360.     pop aload pop /.PUTINTERVAL .pdfcvsall
  361.   } bind
  362. .dicttomark readonly def
  363. /.pdfparamerror {    % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
  364.     counttomark 4 add 2 roll cleartomark pop pop pop
  365.     .systemvar exch signalerror
  366. } bind def
  367. /pdfmark {        % -mark- <key> <value> ... <markname> pdfmark -
  368.   counttomark 1 add copy
  369.   //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
  370.   mark /pdfmark 3 -1 roll .pdfputparams
  371.   dup type /booleantype ne {
  372.     /pdfmark .pdfparamerror
  373.   } if cleartomark
  374. } odef
  375. userdict /pdfmark .undef
  376. currentdict /.pdfmarkparams .undef
  377.  
  378.  
  379. %    <dict> .hook_DSC_Creator -
  380. /.pdf_hook_DSC_Creator
  381. {
  382.   % If the Creator is PScript5.dll, disable the 32 /FontType resource for
  383.   % handling GlyphNames2Unicode. Since /FontType category can't redefine,
  384.   % we can do only with redefining the operator 'resourcestatus'.
  385.   currentdevice .devicename /pdfwrite eq {
  386.     /Creator .knownget {
  387.       (PScript5.dll) search {
  388.         pop pop
  389.         systemdict /resourcestatus dup
  390.         { dup /FontType eq 2 index 32 eq and {
  391.             pop pop false
  392.           } {
  393.             resourcestatus
  394.           } ifelse
  395.         } bind .makeoperator .forceput
  396.       } if
  397.       pop
  398.     } if
  399.   } {
  400.     pop
  401.   } ifelse
  402. } 
  403. bind def
  404.  
  405. % Use the DSC processing hook to pass DSC comments to the driver.
  406. % We use a pseudo-parameter named DSC whose value is an array:
  407. %    /key1 (value1) ... /type
  408. /.pdfdsc_dict 2 dict def
  409. /.pdfdsc {    % <file> <DSC string> <dsc dict> [<prev proc>] .pdfdsc -
  410.   0 get dup null ne { 4 copy exch pop exec pop } { pop } ifelse 3 -1 roll pop
  411.         % Stack: <dsc string> <dsc dict>
  412.   20 .localvmdict 1 index { 3 copy put pop pop } forall
  413.   3 -1 roll .parse_dsc_comments    % <dsc dict> <dict> <type>
  414.   1 index //.pdf_hook_DSC_Creator exec
  415.   dup /NOP ne 2 index length 1 gt or {    % Skip unparsed comments
  416.     PDFWRDEBUG { (**** DSC comment: ) print dup == 1 index === flush } if
  417.     exch mark 4 1 roll {
  418.         % mark <key1> <value1> ... <dsc dict> <type> <key> <value>
  419.       3 index 2 index known {    % Skip the DSC_struct entry
  420.         pop pop
  421.       } {
  422.         .pdfcvs 4 -2 roll
  423.       } ifelse
  424.     } forall exch pop counttomark .localvmarray astore
  425.     mark /DSC 3 -1 roll .pdfputparams
  426.     dup type /booleantype ne {
  427.       /DSC .pdfparamerror
  428.     } {
  429.       cleartomark
  430.     } ifelse
  431.   } {
  432.     pop pop pop
  433.   } ifelse
  434. } bind def
  435. currentdict /.pdf_hook_DSC_Creator undef
  436. /.initialize_dsc_parser where {
  437.   pop
  438.   3000 % priority 
  439.   {
  440.     currentglobal true setglobal
  441.     2 dict dup .initialize_dsc_parser readonly
  442.     currentuserparams /ProcessDSCComment get
  443.     1 array astore    % in case the value is executable
  444.     //.pdfdsc /exec load 4 array astore cvx readonly
  445.     << /ProcessDSCComment 3 -1 roll >> setuserparams
  446.     setglobal
  447.   } bind .schedule_init
  448. } if
  449.  
  450. % ---------------- {set,current}distillerparams ---------------- %
  451.  
  452. % Define setdistillerparams / currentdistillerparams.
  453. % Distiller parameters are currently treated as device parameters.
  454. /.distillerparamkeys mark
  455.         % General parameters -- all distillers
  456.   /ASCII85EncodePages { }
  457.   /AutoRotatePages { }
  458.   /Binding { }
  459.   /CompressPages { }
  460.   /DefaultRenderingIntent { }
  461.   /DetectBlends { }
  462.   /DoThumbnails { }
  463.   /ImageMemory { }
  464.   /LockDistillerParams { }
  465.   /LZWEncodePages { }
  466.   /OPM { }
  467.   /PreserveHalftoneInfo { }
  468.   /PreserveOPIComments { }
  469.   /PreserveOverprintSettings { }
  470.   /TransferFunctionInfo { }
  471.   /UCRandBGInfo { }
  472.   /UseFlateCompression { }
  473.         % General parameters -- PDF writer
  474.         % StartPage and EndPage are renamed because EndPage
  475.         % clashes with a page device parameter.
  476.   /CoreDistVersion { }
  477.   /CompatibilityLevel { }
  478.         % ****** NOTE: StartPage and EndPage are disabled because
  479.         % ****** EndPage clashes with a page device parameter.
  480. %  /EndPage { exch pop /PDFEndPage exch }
  481.     /PDFEndPage { pop pop }
  482. %  /StartPage { exch pop /PDFStartPage exch }
  483.     /PDFStartPage { pop pop }
  484.   /Optimize { }
  485.   /ParseDSCCommentsForDocInfo { }
  486.   /ParseDSCComments { }
  487.   /EmitDSCWarnings { }
  488.   /CreateJobTicket { }
  489.   /PreserveEPSInfo { }
  490.   /AutoPositionEPSFiles { }
  491.   /PreserveCopyPage { }
  492.   /UsePrologue { }
  493.   /OffOptimizations { }
  494.         % Color sampled image parameters
  495.   /ColorACSImageDict { }
  496.   /AntiAliasColorImages { }
  497.   /AutoFilterColorImages { }
  498.   /ColorImageDepth { }
  499.   /ColorImageDict { }
  500.   /DownsampleColorImages { }
  501.   /ColorImageDownsampleThreshold { }
  502.   /ColorImageDownsampleType { }
  503.   /EncodeColorImages { }
  504.   /ColorImageFilter { }
  505.   /ColorImageResolution { }
  506.         % Color processing parameters
  507.   /CalCMYKProfile { }
  508.   /CalGrayProfile { }
  509.   /CalRGBProfile { }
  510.   /sRGBProfile { }
  511.   /ColorConversionStrategy { }
  512.   /ConvertCMYKImagesToRGB { }
  513.   /ConvertImagesToIndexed { }
  514.         % Grayscale sampled image parameters
  515.   /GrayACSImageDict { }
  516.   /AntiAliasGrayImages { }
  517.   /AutoFilterGrayImages { }
  518.   /GrayImageDepth { }
  519.   /GrayImageDict { }
  520.   /DownsampleGrayImages { }
  521.   /GrayImageDownsampleThreshold { }
  522.   /GrayImageDownsampleType { }
  523.   /EncodeGrayImages { }
  524.   /GrayImageFilter { }
  525.   /GrayImageResolution { }
  526.         % Monochrome sampled image parameters
  527.   /AntiAliasMonoImages { }
  528.   /MonoImageDepth { }
  529.   /MonoImageDict { }
  530.   /DownsampleMonoImages { }
  531.   /MonoImageDownsampleThreshold { }
  532.   /MonoImageDownsampleType { }
  533.   /EncodeMonoImages { }
  534.   /MonoImageFilter { }
  535.   /MonoImageResolution { }
  536.         % Font embedding parameters
  537.   /AlwaysEmbed
  538.    { dup length 0 gt
  539.       { dup 0 get false eq
  540.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  541.          } if
  542.       } if
  543.    }
  544.   /NeverEmbed
  545.    { dup length 0 gt
  546.       { dup 0 get false eq
  547.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  548.          } if
  549.       } if
  550.    }
  551.   /CannotEmbedFontPolicy { }
  552.   /EmbedAllFonts { }
  553.   /MaxSubsetPct { }
  554.   /SubsetFonts { }
  555. .dicttomark readonly def
  556. /.distillerdevice
  557.  { currentdevice .devicename /pdfwrite eq
  558.     { currentdevice }
  559.     { /pdfwrite finddevice }
  560.    ifelse
  561.  } bind def
  562.  
  563. % Some badly designed PostScript files only expect the current/set
  564. % distillerparams operators to exist in a distiller. Since we have
  565. % this as a runtime option, we enable these operators IFF the
  566. % currentdevice is pdfwrite. Also, we mask their existence in 
  567. % systemdict so that 'where' and 'known' don't show them unless
  568. % the currentdevice is pdfwrite.
  569. /.setdistillerparams {        % <dict> setdistillerparams -
  570.   .distillerdevice //null false mark 4 index {
  571.     //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
  572.   } forall .putdeviceparamsonly
  573.   dup type /booleantype ne {
  574.     /setdistillerparams .pdfparamerror
  575.   } {
  576.     pop pop pop
  577.   } ifelse
  578. } odef
  579. /.currentdistillerparams {    % - currentdistillerparams <dict>
  580.   .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  581.         % Patch StartPage and EndPage
  582.         % ****** NOTE: StartPage and EndPage are disabled because
  583.         % ****** EndPage clashes with a page device parameter.
  584. %  begin /StartPage PDFStartPage /EndPage PDFEndPage
  585. %  currentdict dup /PDFStartPage undef /PDFEndPage undef
  586. %  def def currentdict end
  587. } odef
  588. /setdistillerparams {
  589.   currentdevice .devicename /pdfwrite ne {
  590.     /setdistillerparams /undefined signalerror
  591.   } if
  592.   .setdistillerparams
  593. } bind odef
  594. /currentdistillerparams {
  595.   currentdevice .devicename /pdfwrite ne {
  596.     /currentdistillerparams /undefined signalerror
  597.   } if
  598.   .currentdistillerparams
  599. } bind odef
  600.  
  601. % Patch 'where' so that the distiller operators are only visible
  602. % if the pdfwrite device is the current one.
  603. { currentdevice .devicename /pdfwrite eq {
  604.     .where
  605.   } {
  606.     .where pop dup //systemdict eq { pop false } { true } ifelse
  607.   } ifelse
  608. } bind
  609. { /currentdistillerparams /setdistillerparams /pdfmark }
  610. { .wheredict exch 2 index put } forall pop
  611.  
  612. % Patch 'known' to hide the systemdict version of distiller operators
  613. % unless the currentdevice is pdfwrite.
  614. /known {
  615.   /currentdistillerparams 1 index eq /setdistillerparams 2 index eq or 
  616.   /pdfmark 2 index eq or {
  617.     systemdict 2 index eq {    % only mask the operator in systemdict
  618.       known currentdevice .devicename /pdfwrite ne { pop false } if
  619.   } {
  620.     known
  621.   } ifelse
  622.   } {
  623.     known
  624.   } ifelse
  625. } .bind odef
  626.  
  627. 1000 % priority
  628. {
  629.   % Note, this may not work if the initial device is not pdfwrite
  630.   % and may require the use of -dProvideUnicode on the command line.
  631.   currentdevice .devicename /pdfwrite eq
  632.   systemdict /ProvideUnicode .knownget not { false } if or {
  633.     currentglobal true setglobal
  634.     systemdict /.setupUnicodeDecoder known {
  635.       /Unicode /Decoding resourcestatus {
  636.         pop pop
  637.         /Unicode /Decoding findresource
  638.         .setupUnicodeDecoder
  639.       } {
  640.         QUIET not {
  641.           (WARNING: /Unicode /Decoding resource is not accessible but it is useful for generating ToUnicode CMap.) =
  642.         } if
  643.       } ifelse
  644.     } if
  645.     setglobal
  646.   } if
  647. } bind .schedule_init
  648.  
  649. 1010 % priority
  650. {
  651.     % Set a predefined configuration in the distiller device (pdfwrite)
  652.     /PDFSETTINGS where { pop /PDFSETTINGS load } { /default } ifelse
  653.     .distillersettings exch get
  654.     % Don't override parameters defined on the command line.
  655.     dup length .distillercommon length add dict begin
  656.     .distillercommon 2 {
  657.       {
  658.         systemdict 2 index known { pop pop } { def } ifelse
  659.       } forall
  660.     } repeat
  661.     currentdict end .setdistillerparams
  662.     .distillerdevice //null false mark .putdeviceparams 
  663.     dup type /booleantype eq not { cleartomark pop } if pop pop
  664. } bind .schedule_init
  665.  
  666. 2000 % priority
  667. { % Note, this may not work if the initial device is not pdfwrite
  668.   currentdevice .devicename /pdfwrite eq {
  669.     % Inform the device with initial graphic state. See gdev_pdf_fill_path.
  670.     newpath fill
  671.   } if
  672. } bind .schedule_init
  673.  
  674.