home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / gs403osk.tgz / gs403osk.tar / gs_pdfwr.ps < prev    next >
Text File  |  1996-09-22  |  9KB  |  284 lines
  1. %    Copyright (C) 1996 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. % gs_pdfwr.ps
  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. /.pdf===dict mark
  26.   /arraytype
  27.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  28.         % Stack: file obj left right
  29.       4 1 roll 2 index exch writestring () exch
  30.        { exch 2 index exch writestring
  31.      1 index exch pdfmark===only ( )
  32.        }
  33.       forall pop exch writestring
  34.    } bind
  35.   /packedarraytype 1 index
  36.   /dicttype
  37.    { 1 index (<<\n) writestring
  38.       { 2 index 3 -1 roll pdfmark===only 1 index ( ) writestring
  39.     1 index exch pdfmark===only dup (\n) writestring
  40.       }
  41.      forall (>>) writestring
  42.    } bind
  43. .dicttomark readonly def
  44. /pdfmark===only     % <file> <obj> pdfmark===only -
  45.  { .pdf===dict 1 index type .knownget { exec } { write==only } ifelse
  46.  } bind def
  47. /.pdfcvs        % <obj> .pdfcvs <string>
  48.  {      % We can't handle long values yet.
  49.    =string /NullEncode filter dup 2 index pdfmark===only
  50.    dup (\n\000) writestring closefile pop
  51.    =string (\n\000) search
  52.     { dup length string copy exch pop exch pop }
  53.     {       % The converted representation didn't fit.  Punt.
  54.       pop (???)
  55.     }
  56.    ifelse
  57.  } bind def
  58. /.pdfputparams      % <paramarray> <paramname> .pdfputparams <result...>
  59.  { currentdevice null false mark 6 -2 roll exch
  60.         % Don't allow the page device to get cleared....
  61.      {.putdeviceparams} 0 get .currentpagedevice pop {.setpagedevice} 0 get
  62.    3 array astore cvx exec
  63.  } bind def
  64. /pdfmark
  65.  { ] 1 2 2 index length 1 sub { 2 copy 2 copy get .pdfcvs put pop } for
  66.    /pdfmark .pdfputparams
  67.    type /booleantype ne { cleartomark pop pop } if pop
  68.  } odef
  69. userdict /pdfmark .undef
  70.  
  71. % Define setdistillerparams / currentdistillerparams.
  72. % Distiller parameters are currently treated as device parameters.
  73. /.distillerparamkeys mark
  74.         % General parameters
  75.   /CoreDistVersion { }
  76.   /DoThumbnails { }
  77.   /LZWEncodePages { }
  78.   /ASCII85EncodePages { }
  79.         % Color sampled image parameters
  80.   /DownsampleColorImages { }
  81.   /ColorImageResolution { }
  82.   /EncodeColorImages { }
  83.   /ColorImageFilter { }
  84.   /ColorImageDict { }
  85.   /ColorImageDepth { }
  86.   /AntiAliasColorImages { }
  87.   /ConvertCMYKImagesToRGB { }
  88.         % Grayscale sampled image parameters
  89.   /DownsampleGrayImages { }
  90.   /GrayImageResolution { }
  91.   /EncodeGrayImages { }
  92.   /GrayImageFilter { }
  93.   /GrayImageDict { }
  94.   /GrayImageDepth { }
  95.   /AntiAliasGrayImages { }
  96.         % Monochrome sampled image parameters
  97.   /DownsampleMonoImages { }
  98.   /MonoImageResolution { }
  99.   /EncodeMonoImages { }
  100.   /MonoImageFilter { }
  101.   /MonoImageDict { }
  102.   /MonoImageDepth { }
  103.   /AntiAliasMonoImages { }
  104.         % Font embedding parameters
  105.   /AlwaysEmbed
  106.    { dup length 0 gt
  107.       { dup 0 get false eq
  108.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  109.          } if
  110.       } if
  111.    }
  112.   /NeverEmbed
  113.    { dup length 0 gt
  114.       { dup 0 get false eq
  115.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  116.          } if
  117.       } if
  118.    }
  119.   /EmbedAllFonts { }
  120.   /SubsetFonts { }
  121.   /MaxSubsetPct { }
  122. .dicttomark readonly def
  123. /.distillerdevice
  124.  { currentdevice .devicename /pdfwrite eq
  125.     { currentdevice }
  126.     { /pdfwrite finddevice }
  127.    ifelse
  128.  } bind def
  129. /setdistillerparams     % <dict> setdistillerparams -
  130.  { .distillerdevice null false mark 5 -1 roll
  131.     { //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse }
  132.    forall .putdeviceparams
  133.    type /booleantype eq { pop } { cleartomark pop pop pop } ifelse
  134.  } odef
  135. /currentdistillerparams     % - currentdistillerparams <dict>
  136.  { .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  137.  } odef
  138.  
  139. % Patch the 'show' operators to pass the data to the device.
  140. % We use a pseudo-parameter named /show whose value is a dictionary:
  141. %   /String (str)
  142. %   /Values [cx cy char ax ay px py]
  143. %   /Matrix [xx xy yx yy tx ty]
  144. %   /FontName /fontname
  145. %   /Color [r g b]
  146. %   /Encoding [e0 .. e255]
  147. %   /BaseEncoding [e0 ... e255]
  148. % THIS IS A BIG HACK.
  149. /.findorigfont      % <font> .findorigfont <origfont>
  150.  {          % Check for a known font with this name and
  151.             % the same UniqueID.
  152.    dup /UniqueID .knownget
  153.     { 1 index /FontName .knownget
  154.        {        % Stack: font uniqueid fontname
  155.      FontDirectory exch .knownget
  156.       { dup /UniqueID .knownget
  157.          {      % Stack: font uniqueid knownfont knownid
  158.            3 -1 roll eq { true } { pop false } ifelse
  159.          }
  160.          { pop pop false
  161.          }
  162.         ifelse
  163.       }
  164.       { pop false
  165.       }
  166.      ifelse
  167.        }
  168.        { pop false
  169.        }
  170.       ifelse
  171.     }
  172.     { false
  173.     }
  174.    ifelse
  175.             % Stack: font knownfont -true- | font -false-
  176.     { exch pop
  177.     }
  178.     {  { dup /OrigFont .knownget not { exit } if exch pop } loop
  179.     }
  180.    ifelse
  181.  } .bind def
  182. /.pdfdoshow     % <string> <cxd> <cyd> <char> <axd> <ayd> .pdfdoshow
  183.             %   <bool>
  184.  { mark /String 8 2 roll
  185.    currentpoint transform 7 array astore /Values exch
  186.         % Concatenate the "quotient" of the current FontMatrix
  187.         % and the FontMatrix of the original font.
  188.         % Be sure to include any translation.
  189.    /Matrix
  190.      currentfont .findorigfont /FontMatrix get matrix invertmatrix
  191.      currentfont /FontMatrix get 1 index concatmatrix
  192.      matrix currentmatrix dup 4 0 put dup 5 0 put dup concatmatrix
  193.    /FontName currentfont /FontName get
  194.    /Color [ currentrgbcolor ]
  195.    /Encoding currentfont /Encoding .knownget not { [] } if
  196.     % Make a reasonable guess at the base encoding.
  197.    /BaseEncoding StandardEncoding
  198.    .dicttomark /show .pdfputparams
  199.    dup type /booleantype eq
  200.     { pop pop true }
  201.     { dup /undefined eq
  202.        { cleartomark pop pop pop false }
  203.        { dup mark eq { /unknown /rangecheck } if
  204.      counttomark 4 add 1 roll cleartomark pop pop pop
  205.      /.pdfshow cvx exch signalerror
  206.        }
  207.       ifelse
  208.     }
  209.    ifelse
  210.  } .bind def
  211. /.pdfexecshow       % <proc> .pdfexecshow -
  212.  { matrix currentmatrix gsave nulldevice setmatrix
  213.    exec currentpoint grestore moveto
  214.  } .bind def
  215. % Create a 1-element cache for currentdevice .devicename /pdfwrite eq.
  216. userdict begin
  217.   /.pdfwritedevice null def
  218.   /.pdfwriteenabled false def       % place-holder
  219. end
  220. /.pdfwrite?     % - .pdfwrite? <bool>
  221.  { currentdevice .pdfwritedevice eq
  222.     { .pdfwriteenabled
  223.     }
  224.     { currentdevice .devicename /pdfwrite eq
  225.       userdict /.pdfwriteenabled 2 index put
  226.       userdict /.pdfwritedevice currentdevice put
  227.     }
  228.    ifelse currentfont /FontType get 1 eq and
  229.  } .bind def
  230. /.pdfshow       % <string> <cxd> <cyd> <char> <axd> <ayd> <showproc>
  231.             %   .pdfdoshow -
  232.  { 7 1 roll .pdfwrite?
  233.     { .pdfdoshow }
  234.     { 6 { pop } repeat false }
  235.    ifelse
  236.     { .pdfexecshow }
  237.     { exec }
  238.    ifelse
  239.  } .bind def
  240. /show
  241.  { dup 0 0 32 0 0 { show } .pdfshow
  242.  } .bind odef
  243. /ashow
  244.  { dup 0 0 32 6 index 6 index dtransform { ashow } .pdfshow
  245.  } .bind odef
  246. /widthshow
  247.  { 4 copy 4 -2 roll dtransform 4 -1 roll 0 0 { widthshow } .pdfshow
  248.  } .bind odef
  249. /awidthshow
  250.  { 6 copy 6 -2 roll dtransform 6 -3 roll dtransform { awidthshow } .pdfshow
  251.  } .bind odef
  252. /glyphshow
  253.  { .pdfwrite?
  254.     { currentfont /Encoding .knownget not { {} } if
  255.       0 1 2 index length 1 sub
  256.        {        % Stack: glyph encoding index
  257.      2 copy get 3 index eq { exch pop exch pop null exit } if pop
  258.        }
  259.       for null eq
  260.        { (X) dup 0 4 -1 roll put show }
  261.        { glyphshow }
  262.       ifelse
  263.     }
  264.     { glyphshow
  265.     }
  266.    ifelse
  267.  } .bind odef
  268. % The remaining operators aren't implemented correctly.
  269. /kshow
  270.  { .pdfwrite?
  271.     {  { (X) dup 0 4 -1 roll put show dup exec } forall pop }
  272.     { kshow }
  273.    ifelse
  274.  } .bind odef
  275. /xshow
  276.  { .pdfwrite? { pop show } { xshow } ifelse
  277.  } .bind odef
  278. /yshow
  279.  { .pdfwrite? { pop show } { yshow } ifelse
  280.  } .bind odef
  281. /xyshow
  282.  { .pdfwrite? { pop show } { xyshow } ifelse
  283.  } .bind odef
  284.