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 / pdf_2ps.ps < prev    next >
Text File  |  1996-10-12  |  8KB  |  266 lines
  1. %    Copyright (C) 1994, 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. % pdf_2ps.ps
  19. % PDF to PostScript additions to PDF reader.
  20.  
  21. GS_PDF_ProcSet begin
  22. pdfdict begin
  23.  
  24. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  25. .currentglobal true .setglobal
  26.  
  27. userdict /pdf2psdict 30 dict put
  28. pdf2psdict begin
  29.  
  30. % Generate a sufficiently unique name (at least unique within the current
  31. % save/restore environment).
  32. /uniqueid#
  33.  { userdict length
  34.     { dup neg =string cvs dup 0 (_) putinterval cvn
  35.       userdict 1 index known not { exch pop exit } if pop 1 add
  36.     }
  37.    loop
  38.  } bdef
  39.  
  40. % "Wrap" all the runtime operators so they call #exec.
  41. % Make sure we have enough room in the current dictionary for this.
  42. currentdict dup maxlength numargsdict length add .setmaxlength
  43. numargsdict
  44.  { 1 index load exch 2 index exch /#exec cvx 4 packedarray cvx def
  45.  }
  46. forall
  47. /pdfmark
  48.   /pdfmark load dup type /operatortype eq { 1 packedarray cvx } if
  49.    { /pdfmark counttomark 1 sub #exec } bind
  50.   aload length 1 add packedarray cvx
  51. def
  52. % Define #exec so it also prints out its arguments.
  53. /dictwrite#     % <file> <dict> dictwrite# -
  54.  { dup length 240 le
  55.     { 1 index (mark ) writestring
  56.        { exch 2 index exch write#
  57.      1 index ( ) writestring 1 index exch write#
  58.      2 index (\n) writestring
  59.         }
  60.       forall dup (.dicttomark) writestring
  61.     }
  62.     { 2 copy length write=only 1 index ( dict\n) writestring
  63.        { exch 2 index dup (dup ) writestring exch write#
  64.      1 index dup ( ) writestring exch write#
  65.      dup ( put\n) writestring
  66.        }
  67.       forall
  68.     }
  69.    ifelse pop
  70.  } bdef
  71. /fontwrite#     % <file> <font> fontwrite# -
  72.  {      % Find the named font and then modify it.
  73.    2 copy /FontName get =string cvs
  74.     { dup dup length 1 sub 1 getinterval (%) ne { exit } if
  75.       0 1 index length 1 sub getinterval
  76.     }
  77.    loop cvn write===only 1 index ( findfont ) writestring
  78.         % Load the appropriate Encoding, by name if possible.
  79.    dup /Encoding get
  80.    dup dup StandardEncoding eq exch ISOLatin1Encoding eq or
  81.         % Stack: file font encoding stdbool
  82.     { StandardEncoding eq { (StandardEncoding) } { (ISOLatin1Encoding) } ifelse
  83.       2 index exch writestring
  84.     }
  85.     { 2 index exch write#
  86.     }
  87.    ifelse
  88.         % Check for modified Metrics.
  89.    dup /Metrics .knownget
  90.     { 2 index ( ) writestring
  91.       2 index exch write#
  92.     }
  93.     { 1 index ( null) writestring
  94.     }
  95.    ifelse
  96.    1 index ( .updatefont { /_ exch definefont } if\n) writestring
  97.    pop pop
  98.  } bdef
  99. /write#dict 10 dict dup begin
  100.   /arraytype
  101.    { dup xcheck { (}) ({) } { (]) ([) } ifelse
  102.      2 index length 0 eq
  103.       { 3 index exch writestring exch
  104.       }
  105.       { 3 -1 roll
  106.      { 3 index 2 index writestring 3 index exch write# pop (\n) }
  107.     forall
  108.       }
  109.      ifelse pop writestring
  110.    } bdef
  111.   /dicttype
  112.    { null userdict { 3 index eq { exch pop exit } if pop } forall
  113.      dup null eq
  114.       { pop 2 copy dup /FID known { fontwrite# } { dictwrite# } ifelse
  115.     1 index ( userdict ) writestring
  116.     uniqueid# 2 index 1 index write# 2 index ( 2 index put) writestring
  117.     userdict exch 3 -1 roll put pop
  118.       }
  119.       { exch pop cvx write===only
  120.       }
  121.      ifelse
  122.    } bdef
  123.   /marktype
  124.    { pop ([) writestring
  125.    } bdef
  126.   /packedarraytype
  127.    /arraytype load def
  128.   /realtype
  129.    { dup abs 16#ffffff le { dup dup cvi eq { cvi } if } if write=only
  130.    } bdef
  131. end def
  132. /write#
  133.  { dup type //write#dict exch .knownget { exec } { write===only } ifelse
  134.  } bind def
  135.  
  136. % Rebind the procedures that conditionally write out PostScript.
  137.  
  138. /#          % <arg1> ... <argN> <opname> <N> # -
  139.  { 1 index load 3 1 roll #exec
  140.  } bdef
  141. /#?         % - #? <writing>
  142.  { /PSout where { pop true } { false } ifelse
  143.  } bdef
  144. /defined#       % <name> defined# <bool>
  145.  { dup where { exch get } { pop false } ifelse
  146.  } bdef
  147. /#exec      % <arg1> ... <argN> <proc|operator> <opname> <N> #exec -
  148.  { /PSout where
  149.     { pop dup ([) eq { pop counttomark 1 sub } if
  150.       -1 1 { 1 add index PSout exch write# PSout ( ) writestring } for
  151.       PSout exch write=
  152.     }
  153.     { pop pop
  154.     }
  155.    ifelse exec
  156.  } bdef
  157. /#dsc       % mark <obj1> ... #dsc -
  158.  { /PSout where
  159.     { pop counttomark
  160.        { counttomark -1 roll PSout exch write=only }
  161.       repeat pop PSout (\n) writestring
  162.     }
  163.     { cleartomark
  164.     }
  165.    ifelse
  166.  } bdef
  167. /copyfile#  % <filename> copyfile# -
  168.     { findlibfile
  169.        { exch pop }
  170.        { (r) file }     % let the error happen
  171.       ifelse
  172.        { dup =string readline pop (%BEGIN) eq { exit } if
  173.        }
  174.       loop
  175.        { dup =string readline not { pop exit } if
  176.          dup (%END) eq { pop exit } if
  177.       { ( ) anchorsearch
  178.          { pop }
  179.          { (\t) anchorsearch { pop } { exit } ifelse }
  180.         ifelse
  181.       }
  182.      loop
  183.      dup () eq { true } { dup 0 1 getinterval (%) eq } ifelse
  184.       { pop }
  185.       { (%) search { exch pop exch pop } if mark exch #dsc }
  186.      ifelse
  187.        }
  188.       loop closefile
  189.     } bdef
  190. /#dscfile   % <filename> #dscfile -
  191.  { /PSout where
  192.     { pop /PSNoProcSet defined#
  193.        { PSout exch write===only PSout ( runlibfile\n) writestring }
  194.        { copyfile# }
  195.       ifelse
  196.     }
  197.     { pop
  198.     }
  199.    ifelse
  200.  } bdef
  201.  
  202. % Rebind Is, which constructs a data source for an image.
  203. % pdf_draw defined it to simply retrieve the stream.
  204. /ID_draw /ID load def
  205. /Is_draw /Is load def
  206. /EI_draw /EI load def
  207. userdict /Is_string null put    % establish a binding
  208. userdict /Is_data null put  % ditto
  209. /ID_proc1 {/ASCIIHexDecode filter} def      % no bind
  210. /ID_proc2 {/ASCII85Decode filter /RunLengthDecode filter} def   % no bind
  211. /ID
  212.  { /PSout where
  213.     { pop dup length 1 add dict copy
  214.       dup /FilterProc PSLevel1 { /ID_proc1 } { /ID_proc2 } ifelse load
  215.       /PSBinaryOK defined# { dup length 2 sub 2 exch getinterval } if
  216.       dup length 0 eq { pop pop pop } { put } ifelse
  217.     }
  218.    if ID_draw
  219.  } bdef
  220. /Is     % <imagedict> Is <imagedict> <datasource>
  221.  { /PSout where
  222.     { pop dup /DataSource get string /Is_string exch store
  223.       /Is_data [ PSout
  224.       PSLevel1
  225.        { /PSBinaryOK defined#
  226.       { /NullEncode } { /ASCIIHexEncode } ifelse
  227.      filter
  228.        }
  229.        { /PSBinaryOK defined#
  230.       { Is_string length /RunLengthEncode filter
  231.       }
  232.       { /ASCII85Encode filter
  233.         dup Is_string length /RunLengthEncode filter exch
  234.       }
  235.      ifelse
  236.        }
  237.       ifelse ] store
  238.       Is_draw
  239.        { Is_string readstring pop Is_data 0 get 1 index writestring }
  240.       aload length 1 add packedarray cvx
  241.     }
  242.     { Is_draw
  243.     }
  244.    ifelse
  245.  } bdef
  246. /EI
  247.  { /PSout where { pop Is_data { closefile } forall } { EI_draw } ifelse
  248.  } bdef
  249.  
  250. % Rebind readfontfilter, which constructs the filter that
  251. % reads the text of an embedded Type 1 (and eventually Type 3) font.
  252. /readfontfilter_orig /readfontfilter load def
  253. /readfontfilter     % <proc> readfontfilter <filter>
  254.  { /copyfontdata cvx 2 array astore cvx
  255.    0 () /SubFileDecode filter
  256.  } bdef
  257. /copyfontdata       % <string> <origproc> copyfontdata <substring>
  258.  { exec /PSout where { pop PSout 1 index writestring } if
  259.  } bdef
  260.  
  261. currentdict readonly pop end    % pdf2psdict
  262.  
  263. .setglobal
  264. end     % pdfdict
  265. end     % GS_PDF_ProcSet
  266.