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