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