%    Copyright (C) 1994 Aladdin Enterprises.  All rights reserved. % pdf_test.ps% Test for PDF reader. /ESTACKPRINT true def/OSTACKPRINT true def /defaultfontname /Times-Roman def/GS_PDF_ProcSet where { pop } { (gs_pdf.ps) runlibfile }ifelse/pdfdict where { pop } { [(pdf_base.ps) (pdf_draw.ps) (pdf_main.ps)    (gs_pdf_e.ps) (gs_wan_e.ps) (gs_mro_e.ps) (gs_mex_e.ps)]    { runlibfile }   forall }ifelse GS_PDF_ProcSet beginuserdict begin /.setlanguagelevel where { pop 2 .setlanguagelevel } if.currentglobal true .setglobal /PSFile where {	pop } { (%END #) .skipeof } ifelse % "Wrap" all the runtime operators so they call #exec.numargsdict { 1 index load exch 2 index exch /#exec cvx 4 packedarray cvx def }forall/pdfmark  /pdfmark load dup type /operatortype eq { 1 packedarray cvx } if   { /pdfmark counttomark 1 sub #exec } bind  aload length 1 add packedarray cvxdef% Define #exec so it also prints out its arguments.% Eventually this will move into pdf_base./dictwrite#		% <file> <dict> dictwrite# - { 2 copy length write=only 1 index ( dict) writestring    { exch 2 index dup ( dup ) writestring exch write#      1 index dup ( ) writestring exch write#      dup ( put) writestring    }   forall pop } bdef/write#dict 10 dict dup begin  /arraytype   { dup xcheck { (}) ({) } { (]) ([) } ifelse     2 index length 0 eq      { 3 index exch writestring exch      }      { 3 -1 roll	 { 3 index 2 index writestring 3 index exch write# pop ( ) }	forall      }     ifelse pop writestring   } bdef  /dicttype   { dictwrite#   } bdef  /marktype   { pop ([) writestring   } bdefend def/write# { dup type //write#dict exch .knownget { exec } { write==only } ifelse } bind def % Rebind the procedures that conditionally write out PostScript.pdfdict begin/#			% <arg1> ... <argN> <opname> <N> # - { 1 index load 3 1 roll #exec } bdef/#exec		% <arg1> ... <argN> <proc|operator> <opname> <N> #exec - { -1 1 { 1 add index PSout exch write# PSout ( ) writestring } for   PSout exch write= exec } bdef/#dsc		% mark <obj1> ... #dsc - { counttomark    { counttomark -1 roll PSout exch write=only }   repeat pop PSout (\n) writestring } bdef % Rebind Is, which constructs a data source for an image.% pdf_draw already redefined it to retrieve the stream./Is_draw /Is load defuserdict /Is_string null put	% establish a binding/Is		% <imagedict> Is <imagedict> <datasource> { dup /DataSource get string /Is_string exch store   /PStext PSout /ASCII85Encode filter def   /PSdata PStext Is_string length /RunLengthEncode filter def   Is_draw    { Is_string readstring pop PSdata 1 index writestring }   aload length 1 add packedarray cvx } bdef/Ie { PSdata closefile PStext closefile } bdef % Rebind readfontfilter, which constructs the filter that% reads the text of an embedded Type 1 (and eventually Type 3) font./readfontfilter_orig /readfontfilter load def/readfontfilter		% <proc> readfontfilter <filter> { /copyfontdata cvx 2 array astore cvx   0 () /SubFileDecode filter } bdef/copyfontdata		% <string> <origproc> copyfontdata <substring> { exec PSout 1 index writestring } bdef % Open the output file./PSout PSFile (w) file def end		% pdfdict %END # .setglobal % Check for parameters supplied on the command line./File where { pop } { /File (import/pdf/shrewdem.pdf) def } ifelse/FirstPage where { pop } { /FirstPage 0 def } ifelse/LastPage where { pop } { /LastPage { pdfpagecount 1 sub } def } ifelse File (r) file/Page# null def/Page null defpdfdict beginpdfopen beginTrailer /Root oget /Pages oget /CropBox knownoget { mark /CropBox 3 -1 roll /PAGES pdfmark }ifFirstPage 1 LastPage { dup /Page# exch store   (Page ) print dup == flush   [ (%%Page: ) 2 index ( ) 1 index 1 add #dsc   pdfgetpage /Page exch storesave(before exec) VMDEBUG   Page pdfshowpage(after exec) VMDEBUGrestore } for/PSFile where { [ (%%Trailer) #dsc PSout closefile } (Done.\n) print flushquit