home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / pdf / download / gs704w32.exe / gs7.04 / lib / pdfwrite.ps < prev    next >
Encoding:
Text File  |  2002-01-31  |  8.3 KB  |  286 lines
  1. %    Copyright (C) 1999, 2000, 2001 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.7 2001/07/30 07:16:32 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.   PDEBUG { (omapinit) = } if
  43. } def
  44.  
  45. % Map an object number.
  46. /omapnew {        % <oldobj#> omap <newobj#> <isnew>
  47.   RMap 1 index .knownget {
  48.     exch pop false
  49.   } {
  50.     PDEBUG { (omap\() print dup =only } if
  51.     RMap dup length 1 add 2 index exch dup 5 1 roll put pop true
  52.     PDEBUG { (\) = ) print 1 index = } if
  53.   } ifelse
  54. } def
  55. /omap {            % <oldobj#> omap <newobj#>
  56.   omapnew pop
  57. } bind def
  58.  
  59. % Save and restore the object map.
  60. % Note that currentomap either returns a copy or calls omapinit.
  61. /currentomap {        % <copy> currentomap <omap>
  62.   {
  63.     [RMap dup length dict copy XRef dup length dict copy]
  64.   } {
  65.     [RMap XRef] omapinit
  66.   } ifelse
  67. } bind def
  68. /setomap {        % <omap> setomap -
  69.   aload pop /XRef exch def /RMap exch def
  70.   PDEBUG {
  71.     (setomap: #Xref = ) print XRef length =only
  72.     (, #RMap = ) print RMap length =
  73.   } if
  74. } bind def
  75.  
  76. % ================ Writing ================ %
  77.  
  78. % ---------------- Low-level output ---------------- %
  79.  
  80. % Write a string on the output file.
  81. /ows {            % <string> ows -
  82.   OFile exch writestring
  83. } def
  84.  
  85. % ---------------- Scalars ---------------- %
  86.  
  87. % Note that the '#' character isn't legal in a name unless it is a prefix
  88. % for a hex encoded character (for PDF 1.2 and later). The following assumes
  89. % that the names are already valid PDF 1.2+ names so that  we can treat the
  90. % '#' as a legal character. The next two hex characters are already in the
  91. % set of valid name characters. PDF 1.1 and earlier allowed spaces in names
  92. % which probably wouldn't make it past the tokenizer anyway.
  93. /pdfnamechars
  94.   (!"#$&'*+,-.0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\^_`abcdefghijklmnopqrstuvwxyz|~)
  95. readonly def
  96. /pdfwritename {        % <name> pdfwritename -
  97.   (/) ows .namestring {
  98.     ( ) dup 0 4 -1 roll put
  99.     //pdfnamechars 1 index search {
  100.       pop pop pop
  101.     } {
  102.       pop 0 get 256 add 16 =string cvrs
  103.       dup 0 (#) 0 get put
  104.     } ifelse ows
  105.   } forall
  106. } def
  107.  
  108. % ---------------- Composite objects ---------------- %
  109.  
  110. /pdfwriteprocs mark
  111.   /resolveR { pdfwriteref }
  112.   /O { pdfwritenewref }
  113. .dicttomark readonly def
  114. /pdfwritearray {    % <array> pdfwritearray -
  115.   dup xcheck {
  116.     aload pop //pdfwriteprocs exch get exec
  117.   } {
  118.     % Because of a bug in Acrobat's parser for linearization parameters,
  119.     % we have to include some whitespace after the opening [ (!).
  120.     ([ ) ows { pdfwritevalue (\n) ows } forall (]) ows
  121.   } ifelse
  122. } def
  123.  
  124. /pdfwritedict {        % <dict> pdfwritedict -
  125.   dup xcheck {
  126.     pdfwritestream
  127.   } {
  128.     (<<) ows {
  129.       exch pdfwritevalue ( ) ows pdfwritevalue (\n) ows
  130.     } forall (>>) ows
  131.   } ifelse
  132. } def
  133.  
  134. % ---------------- References ---------------- %
  135.  
  136. /pdfwritenewref {    % <newobj#> pdfwritenewref -
  137.   OFile exch write=only ( 0 R) ows
  138. } def
  139.  
  140. /pdfwriteref {        % <obj#> <gen#> pdfwriteref -
  141.   1 index omapnew {
  142.     ToWrite dup length 5 -2 roll 2 packedarray put
  143.   } {
  144.     exch pop exch pop
  145.   } ifelse
  146.   pdfwritenewref
  147. } def
  148.  
  149. /pdfcopystring 200 string def
  150. /pdfwritestream {    % <streamdict> pdfwritestream -
  151.     % Remove File, FilePosition, and StreamKey;
  152.     % optimize by replacing an indirect Length.
  153.   dup dup length dict copy
  154.     % Stack: origdict dict
  155.   dup /File undef dup /FilePosition undef dup /StreamKey undef
  156.   dup /Length get dup oforce ne {
  157.     dup /Length 2 copy oget put
  158.   } if
  159.   exch dup /File get dup 3 -1 roll /FilePosition get setfileposition
  160.   pdfcopystream
  161. } def
  162.  
  163. % We put copying the stream contents in separate procedures so that we
  164. % can replace this function if desired.
  165. /pdfcopybytes {        % <fromfile> <tofile> <length> pdfcopybytes -
  166.   {
  167.     dup 0 eq { exit } if
  168.     //pdfcopystring 0 2 index 2 index length .min getinterval
  169.     3 index exch readstring 3 1 roll
  170.     3 index 1 index writestring length sub exch not { exit } if
  171.   } loop pop pop pop
  172. } def
  173. /pdfcopystream {    % <newstreamdict> <file> pdfcopystream -
  174.             %   (file has been positioned)
  175.   1 index pdfwritevalue (stream\n) ows
  176.   exch /Length get OFile exch pdfcopybytes
  177.   (endstream) ows
  178. } def
  179.  
  180. % ---------------- General values/objects ---------------- %
  181.  
  182. /pdfwritetypes mark
  183.     % Scalars
  184.   /nulltype { pop (null) ows }
  185.   /integertype { =string cvs ows }
  186.   /booleantype 1 index
  187.   /realtype { OFile exch write===only }
  188.   /stringtype 1 index
  189.   /nametype { pdfwritename }
  190.     % Composite/reference objects
  191.   /arraytype { pdfwritearray }
  192.   /packedarraytype 1 index
  193.   /dicttype { pdfwritedict }
  194. .dicttomark readonly def
  195.  
  196. /pdfwritevalue {    % <obj> pdfwritevalue -
  197.   PDEBUG { (****Writing: ) print dup === flush } if
  198.   //pdfwritetypes 1 index type get exec
  199. } def
  200.  
  201. % We make pdfwriteobjdef a separate procedure for external use.
  202. /pdfwriteobjheader {    % <newobj#> pdfwriteobjheader -
  203.   XRef 1 index OFile .fileposition put
  204.   PDEBUG { (XRef\() print dup =only (\) = ) print XRef 1 index get = } if
  205.   OFile exch write=only ( 0 obj\n) ows
  206. } def
  207. /pdfwriteobjdef {    % <newobj#> <value> pdfwriteobjdef -
  208.   exch pdfwriteobjheader
  209.   pdfwritevalue (\nendobj\n) ows
  210. } def
  211. /pdfwriteobj {        % <obj#> <gen#> pdfwriteobj -
  212.   1 index exch resolveR exch omap exch pdfwriteobjdef
  213. } def
  214.  
  215. % ---------------- File-level entities ---------------- %
  216.  
  217. % Write a PDF file header.
  218. % Free variables: OFile, PDFversion.
  219. /pdfwriteheader {    % - pdfwriteheader -
  220.   (%PDF-) ows OFile PDFversion write=
  221.   (%\347\363\317\323\n) ows
  222. } bind def
  223.  
  224. % Write a cross-reference table and trailer.
  225. /pdfwritexref {        % <firstobj#> <#objs> pdfwritexref -
  226.   (xref\n) ows
  227.   OFile 2 index write=only ( ) ows OFile 1 index write=
  228.   1 index add 1 sub 1 exch {
  229.     dup 0 eq {
  230.       pop (0000000000 65535 f \n) ows
  231.     } {
  232.       XRef exch get 1000000000 add =string cvs
  233.       dup 0 (0) 0 get put
  234.       ows ( 00000 n \n) ows
  235.     } ifelse
  236.   } for
  237. } bind def
  238. /pdfwritetrailer {    % <trailer> pdfwritetrailer -
  239.   (trailer\n) ows pdfwritevalue (\n) ows
  240. } bind def
  241. /pdfwritestartxref {    % <startpos> pdfwritestartxref -
  242.   (startxref\n) ows OFile exch write=
  243.   (%%EOF\n) ows
  244. } bind def
  245.  
  246. % ================ Top-level control ================ %
  247.  
  248. /pdfwrite {        % <file> <trailer> pdfwrite -
  249.   10 dict begin
  250.   /trailer exch def
  251.   /OFile exch def
  252.   /ToWrite 100 dict def
  253.   omapinit
  254.  
  255.     % Write the PDF file header.
  256.  
  257.   pdfwriteheader
  258.  
  259.     % Write the objects.
  260.  
  261.   trailer {
  262.     exch pop dup xcheck {    % The only executable objects are references.
  263.       aload pop pop pdfwriteobj
  264.     } {
  265.       pop
  266.     } ifelse
  267.   } forall
  268.     % Walk the object graph.
  269.   {
  270.     ToWrite dup length dup 0 eq { pop pop exit } if
  271.     1 sub 2 copy get 3 1 roll undef aload pop pdfwriteobj
  272.   } loop
  273.  
  274.     % Write the xref table and trailer.
  275.  
  276.   /xref OFile fileposition def
  277.   0 XRef length 1 add pdfwritexref
  278.   trailer dup length 1 add dict copy
  279.   dup /Size XRef length 1 add put pdfwritetrailer
  280.   xref pdfwritestartxref
  281.  
  282.   end
  283. } def
  284.  
  285. .setglobal
  286.