home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 October / Chip_2002-10_cd1.bin / zkuste / pdf / download / gs704w32.exe / gs7.04 / lib / pphs.ps < prev    next >
Encoding:
Text File  |  2002-01-31  |  7.2 KB  |  224 lines
  1. %    Copyright (C) 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: pphs.ps,v 1.3 2001/07/24 22:24:28 lpd Exp $
  19. % Print Linearized PDF hint streams
  20.  
  21. % Utilities
  22. /read1 {    % <file> read1 <value>
  23.   read not {
  24.     (**** Unexpected EOF) = flush quit
  25.   } if
  26. } bind def
  27. /read2 {    % <file> read2 <value>
  28.   dup read1 8 bitshift exch read1 add
  29. } bind def
  30. /read4 {    % <file> read4 <value>
  31.   dup read2 16 bitshift exch read2 add
  32. } bind def
  33. % Free variables: Bits, Bitsleft
  34. /readninit {    % - <readninit> -
  35.   /Bits 0 def
  36.   /Bitsleft 0 def
  37. } bind def
  38.  
  39. /pdftoken {    % <file> pdftoken <token>
  40.   dup token pop
  41.   dup type /nametype eq 1 index xcheck and {
  42.     dup dup (<<) cvn eq exch ([) eq or {
  43.       exec exch {
  44.     dup pdftoken dup dup (>>) cvn eq exch (]) eq or {
  45.       exch pop exec exit
  46.     } if exch
  47.       } loop
  48.     } {
  49.       exch pop
  50.     } ifelse
  51.   } {
  52.     exch pop
  53.   } ifelse
  54. } bind def
  55. /makemask {    % <nbits> makemask <mask>
  56.   1 exch bitshift 1 sub
  57. } bind def
  58. /readn {    % <file> <nbits> readn <value>
  59.   dup Bitsleft le {
  60.     exch pop
  61.     /Bitsleft Bitsleft 2 index sub def
  62.     makemask Bits Bitsleft neg bitshift and
  63.   } {
  64.     Bitsleft makemask Bits and
  65.     exch Bitsleft sub exch 1 index bitshift 3 1 roll
  66.     /Bits 2 index read1 def /Bitsleft 8 def
  67.     readn add
  68.   } ifelse
  69. } bind def
  70. /sread {    % <string> sread <file>
  71.   0 () /SubFileDecode filter
  72. } bind def
  73.  
  74. /ptag {        % <pre-tag> <proc> <post-tag> ptag -
  75.   3 -1 roll print (: ) print
  76.   exch exec
  77.   (        % ) print =
  78. } bind def
  79.  
  80. % Print the linearization parameters dictionary.
  81. /plpkeys <<
  82.   /E (end of p. 1 objects)
  83.   /L (total file length)
  84.   /H (PHS start + length)
  85.   /N (# of pages)
  86.   /O (p. 1 object #)
  87.   /T (offset of first main xref entry)
  88. >> def
  89. /plpdict {    % <dict> plpdict -
  90.   (<<) = plpkeys {
  91.     2 index 2 index .knownget {
  92.     % Stack: dict key label value
  93.       (  ) print 3 -1 roll ===only ( ) print ===only
  94.       (        % ) print =
  95.     } {
  96.       pop pop
  97.     } ifelse
  98.   } forall {
  99.     plpkeys 2 index known {
  100.       pop pop
  101.     } {
  102.       (  ) print exch ===only ( ) print ===
  103.     } ifelse
  104.   } forall (>>) =
  105. } bind def
  106.  
  107. % Print the Page Offset Hint Table.
  108. /ppoht {    % <npages> <file> ppoht -
  109.  
  110.   20 dict begin
  111.   /f exch def
  112.   /npages exch def
  113.   readninit
  114.  
  115.   (1) { f read4 =only } (least # objs/page) ptag
  116.   (2) { f read4 =only } (offset of p. 1 object (+PHS length if beyond PHS)) ptag
  117.   (3) { f read2 dup =only /nb3 exch def } (# bits for # objs/page delta) ptag
  118.   (4) { f read4 =only } (least # bytes/page) ptag
  119.   (5) { f read2 dup =only /nb5 exch def } (# bits for # bytes/page delta) ptag
  120.   (6) { f read4 =only } (least content stream offset-in-page) ptag
  121.   (7) { f read2 dup =only /nb7 exch def } (# bits for content stream offset delta) ptag
  122.   (8) { f read4 =only } (least content stream length) ptag
  123.   (9) { f read2 dup =only /nb9 exch def } (# bits for content stream length delta) ptag
  124.   (10) { f read2 dup =only /nb10 exch def } (# bits for # of shared obj refs) ptag
  125.   (11) { f read2 dup =only /nb11 exch def } (# bits for shared obj indices) ptag
  126.   (12) { f read2 dup =only /nb12 exch def } (# bits for shared obj ref pos numerators) ptag
  127.   (13) { f read2 =only } (shared obj ref pos denominator) ptag
  128.  
  129.   (*1) { [ npages { f nb3 readn } repeat ] ==only } (# objs/page deltas (see 1,3)) ptag
  130.   (*2) { [ npages { f nb5 readn } repeat ] ==only } (# bytes/page deltas (see 4,5)) ptag
  131.   (*3) { [ npages { f nb10 readn } repeat ] dup ==only /nso exch def } (# of shared obj refs (see 10)) ptag
  132.   (*4) { [ nso { [ exch { f nb11 readn } repeat ] } forall ] ==only } (shared obj indices (see 11)) ptag
  133.   (*5) { [ nso { [ exch { f nb12 readn } repeat ] } forall ] ==only } (shared obj ref pos numerators (see 12)) ptag
  134.   (*6) { [ npages { f nb7 readn } repeat ] ==only } (content stream offset-in-page deltas (see 6,7)) ptag
  135.   (*7) { [ npages { f nb9 readn } repeat ] ==only } (content stream length deltas (see 8,9)) ptag
  136.  
  137.   end        % temp dict
  138.  
  139. } bind def
  140.  
  141. % Print the Shared Objects Hint Table.
  142. /psoht {    % <file> psoht -
  143.  
  144.   20 dict begin
  145.   /f exch def
  146.   readninit
  147.  
  148.   (1) { f read4 =only } (first shared obj #) ptag
  149.   (2) { f read4 =only } (first shared obj offset (+PHS length if beyond PHS)) ptag
  150.   (3) { f read4 dup =only /n3 exch def } (# of p. 1 shared objs) ptag
  151.   (4) { f read4 dup =only /n4 exch def } (total # of shared objs) ptag
  152.   (5) { f read2 dup =only /nb5 exch def } (# bits for # of shared objs/group) ptag
  153.   (6) { f read4 =only } (least shared obj group length) ptag
  154.   (7) { f read2 dup =only /nb7 exch def } (# bits for shared obj group length delta) ptag
  155.  
  156.   /nse n4 def
  157.   (*1) { [ nse { f nb7 readn } repeat ] ==only } (shared obj group length deltas (see 6,7)) ptag
  158.   (*2) { [ nse { f 1 readn } repeat ] dup ==only /md5s exch def } (MD5 present?) ptag
  159.   (*3:) = md5s {
  160.     0 ne {
  161.       (  ) print f 16 string readstring pop
  162.       (%stdout) (w) file dup 3 -1 roll writehexstring closefile () =
  163.     } if
  164.   } forall
  165.   (*4) { [ nse { f nb5 readn } repeat ] ==only } (# objs/group (see 5)) ptag
  166.  
  167.   end        % temp dict
  168.  
  169. } bind def
  170.  
  171. % Print the Primary Hint Stream of a PDF file.
  172. /pphs {        % <file> pphs -
  173.   /pdf exch def
  174.  
  175.     % Read the linearization parameter dictionary.
  176.   { pdf pdftoken /obj eq { exit } if } loop
  177.   pdf pdftoken /lpdict exch def
  178.   /lpdict type /dicttype eq { lpdict /Linearized known } { false } ifelse {
  179.     (Not a linearized PDF file.) = stop
  180.   } if
  181.  
  182.   lpdict plpdict flush
  183.  
  184.     % Read the primary hint stream.
  185.   null {
  186.     pdf pdftoken dup /stream eq { pop exit } if
  187.     exch pop
  188.   } loop
  189.   /phsdict exch def
  190.     % Remove Length if indirect reference.
  191.   phsdict 0 known {
  192.     phsdict 0 undef  phsdict /Length undef
  193.   } if
  194.   (PHS: ) print phsdict === flush
  195.   pdf 0 (endstream) /SubFileDecode filter
  196.   dup 5000 string readstring pop exch closefile
  197.   sread /phsdata exch def
  198.  
  199.     % Decode the hint stream data if necessary.
  200.   phsdict /Filter .knownget {
  201.     phsdata exch filter
  202.     dup 5000 string readstring pop exch closefile
  203.     sread /phsdata exch def
  204.   } if
  205.  
  206.     % Adobe says we can assume /P = 0.
  207.   (Page Offset Hint Table:) =
  208.   lpdict /N get
  209.   phsdata phsdict /S get string readstring pop sread
  210.   ppoht
  211.   (Shared Objects Hint Table:) =
  212.   phsdata psoht
  213. } bind def
  214.  
  215. % Check for command line arguments.
  216. [ shellarguments
  217.  { ] dup length 1 eq
  218.     { 0 get (r) file dup pphs closefile }
  219.     { (Usage: pphs filename.pdf\n) print flush }
  220.    ifelse
  221.  }
  222.  { pop }
  223. ifelse
  224.