home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / pdfwrite.ps < prev    next >
Text File  |  2000-12-05  |  7KB  |  268 lines
  1. %    Copyright (C) 1999, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: pdfwrite.ps,v 1.3 2000/09/19 18:29:11 lpd Exp $
  19. % Writer for transmuting PDF files.
  20.  
  21. % NOTES:
  22. % We do editing by replacing objects (in the cache) and then doing a
  23. %   simple recursive walk with object renumbering.
  24. % Free variables:
  25. %   RMap [per input file] (dict): input_obj# => output_obj#
  26. %   PDFfile (file): current input file
  27. %   OFile (file): current output file
  28. %   XRef (dict): output_obj# => output_file_pos
  29. %   ToWrite: 0..N-1 => [obj# gen#]
  30.  
  31. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  32. .currentglobal true .setglobal
  33.  
  34. /PDEBUG where { pop } { /PDEBUG false def } ifelse
  35.  
  36. % ================ Object mapping ================ %
  37.  
  38. % Initialize the object number and location map.
  39. /omapinit {        % - omapinit -
  40.   /RMap 100 dict def
  41.   /XRef 100 dict def
  42. } def
  43.  
  44. % Map an object number.
  45. /omapnew {        % <oldobj#> omap <newobj#> <isnew>
  46.   RMap 1 index .knownget {
  47.     exch pop false
  48.   } {
  49.     RMap dup length 1 add 2 index exch dup 5 1 roll put pop true
  50.   } ifelse
  51. } def
  52. /omap {            % <oldobj#> omap <newobj#>
  53.   omapnew pop
  54. } bind def
  55.  
  56. % Save and restore the object map.
  57. % Note that currentomap either returns a copy or calls omapinit.
  58. /currentomap {        % <copy> currentomap <omap>
  59.   {
  60.     [RMap dup length dict copy XRef dup length dict copy]
  61.   } {
  62.     [RMap XRef] omapinit
  63.   } ifelse
  64. } bind def
  65. /setomap {        % <omap> setomap -
  66.   aload pop /XRef exch def /RMap exch def
  67. } bind def
  68.  
  69. % ================ Writing ================ %
  70.  
  71. % ---------------- Low-level output ---------------- %
  72.  
  73. % Write a string on the output file.
  74. /ows {            % <string> ows -
  75.   OFile exch writestring
  76. } def
  77.  
  78. % ---------------- Scalars ---------------- %
  79.  
  80. /pdfnamechars (!"$&'*+,-.0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\^_`abcdefghijklmnopqrstuvwxyz|~) readonly def
  81. /pdfwritename {        % <name> pdfwritename -
  82.   (/) ows .namestring {
  83.     ( ) dup 0 4 -1 roll put
  84.     //pdfnamechars 1 index search {
  85.       pop pop pop
  86.     } {
  87.       pop 256 add 16 =string cvrs
  88.       dup 0 (#) 0 get put
  89.     } ifelse ows
  90.   } forall
  91. } def
  92.  
  93. % ---------------- Composite objects ---------------- %
  94.  
  95. /pdfwriteprocs mark
  96.   /resolveR { pdfwriteref }
  97.   /O { pdfwritenewref }
  98. .dicttomark readonly def
  99. /pdfwritearray {    % <array> pdfwritearray -
  100.   dup xcheck {
  101.     aload pop //pdfwriteprocs exch get exec
  102.   } {
  103.     ([) ows { pdfwritevalue (\n) ows } forall (]) ows
  104.   } ifelse
  105. } def
  106.  
  107. /pdfwritedict {        % <dict> pdfwritedict -
  108.   dup xcheck {
  109.     pdfwritestream
  110.   } {
  111.     (<<) ows {
  112.       exch pdfwritevalue ( ) ows pdfwritevalue (\n) ows
  113.     } forall (>>) ows
  114.   } ifelse
  115. } def
  116.  
  117. % ---------------- References ---------------- %
  118.  
  119. /pdfwritenewref {    % <newobj#> pdfwritenewref -
  120.   OFile exch write=only ( 0 R) ows
  121. } def
  122.  
  123. /pdfwriteref {        % <obj#> <gen#> pdfwriteref -
  124.   1 index omapnew {
  125.     ToWrite dup length 5 -2 roll 2 packedarray put
  126.   } {
  127.     exch pop exch pop
  128.   } ifelse
  129.   pdfwritenewref
  130. } def
  131.  
  132. /pdfcopystring 200 string def
  133. /pdfwritestream {    % <streamdict> pdfwritestream -
  134.     % Remove File, FilePosition, and StreamKey;
  135.     % optimize by replacing an indirect Length.
  136.   dup dup length dict copy
  137.     % Stack: origdict dict
  138.   dup /File undef dup /FilePosition undef dup /StreamKey undef
  139.   dup /Length get dup oforce ne {
  140.     dup /Length 2 copy oget put
  141.   } if
  142.   exch dup /File get dup 3 -1 roll /FilePosition get setfileposition
  143.   pdfcopystream
  144. } def
  145.  
  146. % We put copying the stream contents in separate procedures so that we
  147. % can replace this function if desired.
  148. /pdfcopybytes {        % <fromfile> <tofile> <length> pdfcopybytes -
  149.   {
  150.     dup 0 eq { exit } if
  151.     //pdfcopystring 0 2 index 2 index length .min getinterval
  152.     3 index exch readstring 3 1 roll
  153.     3 index 1 index writestring length sub exch not { exit } if
  154.   } loop pop pop pop
  155. } def
  156. /pdfcopystream {    % <newstreamdict> <file> pdfcopystream -
  157.             %   (file has been positioned)
  158.   1 index pdfwritevalue (stream\n) ows
  159.   exch /Length get OFile exch pdfcopybytes
  160.   (endstream) ows
  161. } def
  162.  
  163. % ---------------- General values/objects ---------------- %
  164.  
  165. /pdfwritetypes mark
  166.     % Scalars
  167.   /nulltype { =string cvs ows }
  168.   /integertype 1 index
  169.   /booleantype 1 index
  170.   /realtype { OFile exch write===only }
  171.   /stringtype 1 index
  172.   /nametype { pdfwritename }
  173.     % Composite/reference objects
  174.   /arraytype { pdfwritearray }
  175.   /packedarraytype 1 index
  176.   /dicttype { pdfwritedict }
  177. .dicttomark readonly def
  178.  
  179. /pdfwritevalue {    % <obj> pdfwritevalue -
  180.   PDEBUG { (****Writing: ) print dup === flush } if
  181.   //pdfwritetypes 1 index type get exec
  182. } def
  183.  
  184. % We make pdfwriteobjdef a separate procedure for external use.
  185. /pdfwriteobjheader {    % <newobj#> pdfwriteobjheader -
  186.   XRef 1 index OFile .fileposition put
  187.   OFile exch write=only ( 0 obj\n) ows
  188. } def
  189. /pdfwriteobjdef {    % <newobj#> <value> pdfwriteobjdef -
  190.   exch pdfwriteobjheader
  191.   pdfwritevalue (\nendobj\n) ows
  192. } def
  193. /pdfwriteobj {        % <obj#> <gen#> pdfwriteobj -
  194.   1 index exch resolveR exch omap exch pdfwriteobjdef
  195. } def
  196.  
  197. % ---------------- File-level entities ---------------- %
  198.  
  199. % Write a PDF file header.
  200. % Free variables: OFile, PDFversion.
  201. /pdfwriteheader {    % - pdfwriteheader -
  202.   (%PDF-) ows OFile PDFversion write=
  203.   (%\347\363\317\323\n) ows
  204. } bind def
  205.  
  206. % Write a cross-reference table and trailer.
  207. /pdfwritexref {        % <firstobj#> <#objs> pdfwritexref -
  208.   (xref\n) ows
  209.   OFile 2 index write=only ( ) ows OFile 1 index write=
  210.   1 index add 1 sub 1 exch {
  211.     dup 0 eq {
  212.       pop (0000000000 65535 f \n) ows
  213.     } {
  214.       XRef exch get 1000000000 add =string cvs
  215.       dup 0 (0) 0 get put
  216.       ows ( 00000 n \n) ows
  217.     } ifelse
  218.   } for
  219. } bind def
  220. /pdfwritetrailer {    % <trailer> pdfwritetrailer -
  221.   (trailer\n) ows pdfwritevalue (\n) ows
  222. } bind def
  223. /pdfwritestartxref {    % <startpos> pdfwritestartxref -
  224.   (startxref\n) ows OFile exch write=
  225.   (%%EOF\n) ows
  226. } bind def
  227.  
  228. % ================ Top-level control ================ %
  229.  
  230. /pdfwrite {        % <file> <trailer> pdfwrite -
  231.   10 dict begin
  232.   /trailer exch def
  233.   /OFile exch def
  234.   /ToWrite 100 dict def
  235.   omapinit
  236.  
  237.     % Write the PDF file header.
  238.  
  239.   pdfwriteheader
  240.  
  241.     % Write the objects.
  242.  
  243.   trailer {
  244.     exch pop dup xcheck {    % The only executable objects are references.
  245.       aload pop pop pdfwriteobj
  246.     } {
  247.       pop
  248.     } ifelse
  249.   } forall
  250.     % Walk the object graph.
  251.   {
  252.     ToWrite dup length dup 0 eq { pop pop exit } if
  253.     1 sub 2 copy get 3 1 roll undef aload pop pdfwriteobj
  254.   } loop
  255.  
  256.     % Write the xref table and trailer.
  257.  
  258.   /xref OFile fileposition def
  259.   0 XRef length 1 add pdfwritexref
  260.   trailer dup length 1 add dict copy
  261.   dup /Size XRef length 1 add put pdfwritetrailer
  262.   xref pdfwritestartxref
  263.  
  264.   end
  265. } def
  266.  
  267. .setglobal
  268.