home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_pdfwr.ps < prev    next >
Text File  |  2000-03-29  |  8KB  |  263 lines
  1. %    Copyright (C) 1996, 1997, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. %
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: gs_pdfwr.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % PDF writer additions to systemdict.
  20.  
  21. % This file should be included iff the pdfwrite "device" is included
  22. % in the executable.
  23.  
  24. % Redefine pdfmark to pass the data to the driver.
  25. % We use a pseudo-parameter named /pdfmark whose value is an array:
  26. %    key1 value1 ... CTM /type
  27. /.pdf===dict mark
  28.   /arraytype
  29.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  30.         % Stack: file obj left right
  31.       4 1 roll 2 index exch writestring () exch
  32.        { exch 2 index exch writestring
  33.      1 index exch pdfmark===only ( )
  34.        }
  35.       forall pop exch writestring
  36.    } bind
  37.   /packedarraytype 1 index
  38.   /dicttype
  39.    { 1 index (<<\n) writestring
  40.       { 2 index 3 -1 roll pdfmark===only 1 index ( ) writestring
  41.     1 index exch pdfmark===only dup (\n) writestring
  42.       }
  43.      forall (>>) writestring
  44.    } bind
  45. .dicttomark readonly def
  46. /pdfmark===only {    % <file> <obj> pdfmark===only -
  47.   .pdf===dict 1 index type .knownget { exec } { write===only } ifelse
  48. } bind def
  49. /.pdfcvbuf 10 string def    % enough for most arguments
  50. userdict /.pdfcvstring () put
  51. /.pdfcvs {        % <obj> .pdfcvs <string>
  52.   currentglobal exch false .setglobal
  53.   /.pdfcvstring () store
  54.         % We can't handle long values yet.
  55.   { pop dup length 0 eq { pop } {
  56.       /.pdfcvstring .pdfcvstring 3 -1 roll concatstrings store
  57.     } ifelse //.pdfcvbuf
  58.   } /NullEncode filter dup 3 -1 roll pdfmark===only
  59.   closefile
  60.   .setglobal .pdfcvstring
  61. } bind def
  62. /.pdfputparams {    % -mark- <key1> <value1> ... .pdfputparams <result...>
  63.   currentdevice null false counttomark 1 add 3 roll
  64.         % Don't allow the page device to get cleared....
  65.   {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
  66. } bind def
  67. % Convert relevant operands to strings in an array.
  68. /.pdfcvsloop {        % -mark- values ... markname start step .pdfcvsloop
  69.             %   [values ... ctm markname]
  70.    matrix currentmatrix .pdfcvs 4 1 roll
  71.    counttomark 1 add 2 roll ] 3 1 roll
  72.             % Stack: values start step
  73.    2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  74. } bind def
  75. /.pdfcvsall {        % -mark- values ... markname .pdfcvsall <<same>>
  76.   0 1 .pdfcvsloop
  77. } bind def
  78. /.pdfcvseven {        % -mark- key value ... markname .pdfcvseven <<same>>
  79.   1 2 .pdfcvsloop
  80. } bind def
  81. /.pdfcvsnone {        % -mark- values ... markname .pdfcvsnone <<same>>
  82.   100000 1 .pdfcvsloop
  83. } bind def
  84. /.pdfcvsfirst {        % -mark- first values ... markname .pdfcvsfirst<<same>>
  85.   .pdfcvsnone
  86.   dup 0 2 copy get .pdfcvs put
  87. } bind def
  88. % The procedures in the following dictionary are called with the entire
  89. % pdfmark operand list (including the pdfmark name) on the stack;
  90. % they may modify this ad lib.  They must call .pdfcvsxxx.
  91. /.pdfmarkparams mark
  92.     % Unpack a dictionary for PUT, and don't convert stream data.
  93.   /PUT {
  94.     counttomark 3 eq {
  95.       1 index type /dicttype eq {
  96.     pop { } forall /.PUTDICT .pdfcvsall
  97.       } {
  98.     pop dup type /filetype eq {
  99.         % Read the file into a sequence of strings.
  100.         % This isn't great, but it's simple.
  101.       {
  102.         dup 1000 string readstring not { exch exit } if
  103.         exch
  104.       } loop closefile
  105.     } if
  106.     /.PUTSTREAM .pdfcvsfirst
  107.       } ifelse
  108.     } {
  109.       .pdfcvsall
  110.     } ifelse
  111.   } bind
  112.     % Unpack the array for PUTINTERVAL.
  113.   /PUTINTERVAL {
  114.     pop aload pop /.PUTINTERVAL .pdfcvsall
  115.   } bind
  116. .dicttomark readonly def
  117. /.pdfparamerror {    % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
  118.     counttomark 4 add 2 roll cleartomark pop pop pop
  119.     .systemvar exch signalerror
  120. } bind def
  121. /pdfmark {        % -mark- <key> <value> ... <markname> pdfmark -
  122.   counttomark 1 add copy
  123.   //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
  124.   mark /pdfmark 3 -1 roll .pdfputparams
  125.   dup type /booleantype ne {
  126.     /pdfmark .pdfparamerror
  127.   } if cleartomark
  128. } odef
  129. userdict /pdfmark .undef
  130. currentdict /.pdfmarkparams .undef
  131.  
  132. % Define setdistillerparams / currentdistillerparams.
  133. % Distiller parameters are currently treated as device parameters.
  134. /.distillerparamkeys mark
  135.         % General parameters -- all distillers
  136.         % ****** NOTE: StartPage and EndPage are disabled because
  137.         % ****** EndPage clashes with a page device parameter.
  138.   /ASCII85EncodePages { }
  139.   /AutoRotatePages { }
  140.   /Binding { }
  141.   /CompressPages { }
  142.   /DefaultRenderingIntent { }
  143.   /DetectBlends { }
  144.   /DoThumbnails { }
  145. %  /EndPage { }
  146.   /ImageMemory { }
  147.   /LockDistillerParams { }
  148.   /LZWEncodePages { }
  149.   /OPM { }
  150.   /PreserveHalftoneInfo { }
  151.   /PreserveOPIComments { }
  152.   /PreserveOverprintSettings { }
  153. %  /StartPage { }
  154.   /TransferFunctionInfo { }
  155.   /UCRandBGInfo { }
  156.   /UseFlateCompression { }
  157.         % General parameters -- PDF writer
  158.   /CoreDistVersion { }
  159.   /CompatibilityLevel { }
  160.   /Optimize { }
  161.   /ParseDSCCommentsForDocInfo { }
  162.   /ParseDSCComments { }
  163.   /EmitDSCWarnings { }
  164.   /CreateJobTicket { }
  165.   /PreserveEPSInfo { }
  166.   /AutoPositionEPSFile { }
  167.   /PreserveCopyPage { }
  168.   /UsePrologue { }
  169.         % Color sampled image parameters
  170.   /ColorACSDict { }
  171.   /AntiAliasColorImages { }
  172.   /AutoFilterColorImages { }
  173.   /ColorImageDepth { }
  174.   /ColorImageDict { }
  175.   /DownsampleColorImages { }
  176.   /ColorImageDownsampleThreshold { }
  177.   /ColorImageDownsampleType { }
  178.   /EncodeColorImages { }
  179.   /ColorImageFilter { }
  180.   /ColorImageResolution { }
  181.         % Color processing parameters
  182.   /CalCMYKProfile { }
  183.   /CalGrayProfile { }
  184.   /CalRGBProfile { }
  185.   /sRGBProfile { }
  186.   /ColorConversionStrategy { }
  187.   /ConvertCMYKImagesToRGB { }
  188.   /ConvertImagesToIndexed { }
  189.         % Grayscale sampled image parameters
  190.   /GrayACSDict { }
  191.   /AntiAliasGrayImages { }
  192.   /AutoFilterGrayImages { }
  193.   /GrayImageDepth { }
  194.   /GrayImageDict { }
  195.   /DownsampleGrayImages { }
  196.   /GrayImageDownsampleThreshold { }
  197.   /GrayImageDownsampleType { }
  198.   /EncodeGrayImages { }
  199.   /GrayImageFilter { }
  200.   /GrayImageResolution { }
  201.         % Monochrome sampled image parameters
  202.   /AntiAliasMonoImages { }
  203.   /MonoImageDepth { }
  204.   /MonoImageDict { }
  205.   /DownsampleMonoImages { }
  206.   /MonoImageDownsampleThreshold { }
  207.   /MonoImageDownsampleType { }
  208.   /EncodeMonoImages { }
  209.   /MonoImageFilter { }
  210.   /MonoImageResolution { }
  211.         % Font embedding parameters
  212.   /AlwaysEmbed
  213.    { dup length 0 gt
  214.       { dup 0 get false eq
  215.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  216.          } if
  217.       } if
  218.    }
  219.   /NeverEmbed
  220.    { dup length 0 gt
  221.       { dup 0 get false eq
  222.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  223.          } if
  224.       } if
  225.    }
  226.   /CannotEmbedFontPolicy { }
  227.   /EmbedAllFonts { }
  228.   /MaxSubsetPct { }
  229.   /SubsetFonts { }
  230. .dicttomark readonly def
  231. /.distillerdevice
  232.  { currentdevice .devicename /pdfwrite eq
  233.     { currentdevice }
  234.     { /pdfwrite finddevice }
  235.    ifelse
  236.  } bind def
  237. /setdistillerparams {        % <dict> setdistillerparams -
  238.   .distillerdevice null false mark 4 index {
  239.     //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
  240.   } forall .putdeviceparams
  241.   dup type /booleantype ne {
  242.     /setdistillerparams .pdfparamerror
  243.   } {
  244.     pop pop pop
  245.   } ifelse
  246. } odef
  247. /currentdistillerparams        % - currentdistillerparams <dict>
  248.  { .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  249.  } odef
  250.  
  251. % Patch 'where' so that the distillerparams operators are only visible
  252. % if the pdfwrite device is the current one, for the benefit of badly
  253. % designed PostScript files that "know" they have to do something different
  254. % if a distiller is processing them.
  255. .wheredict /currentdistillerparams {
  256.   currentdevice .devicename /pdfwrite eq {
  257.     .where
  258.   } {
  259.     .where pop dup //systemdict eq { pop false } { true } ifelse
  260.   } ifelse
  261. } bind put
  262. .wheredict /setdistillerparams .wheredict /currentdistillerparams get put
  263.