home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / uninfo.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  6.4 KB  |  224 lines
  1. %!
  2. % Copyright (C) 1997 Aladdin Enterprises.  All rights reserved
  3. % 
  4. % This file is part of GNU Ghostscript.
  5. % 
  6. % GNU Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the GNU General Public License for full details.
  11. % 
  12. % Everyone is granted permission to copy, modify and redistribute GNU
  13. % Ghostscript, but only under the conditions described in the GNU General
  14. % Public License.  A copy of this license is supposed to have been given
  15. % to you along with GNU Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % $RCSfile: uninfo.ps,v $ $Revision: 1.2.2.1 $
  21. % uninfo.ps: Utilities for "printing" PostScript items, especially dictionaries
  22. % Usage:
  23. % (prefix-string) dict unprint
  24.  
  25. % Maximum Print-Width
  26. /HSpwidth 80 def
  27.  
  28. % any  HScvs string
  29. /HScvs {
  30. % Number-Syntax
  31.   dup type % stack: any /anytype
  32.   dup /integertype eq 1 index /realtype eq or { pop
  33.     16 string cvs
  34.   }{
  35. % Logical-Type
  36.     dup /booleantype eq { pop
  37.       5 string cvs
  38.     }{
  39. % Identifiers
  40.       dup /nametype eq { pop
  41.         dup length 1 add string
  42.         dup 0 (/) putinterval
  43.         exch 1 index 1 1 index length 1 sub getinterval cvs pop
  44.       }{
  45. % Strings
  46.         dup /stringtype eq { pop
  47. % ------- Compute Length
  48.           2 1 index { % stack: str len item
  49.             dup 32 lt 1 index 126 gt or { % need 4
  50.               pop 4 add
  51.             }{
  52.               dup 40 eq 1 index 41 eq or 1 index 92 eq or {
  53.                 pop 2 add
  54.               }{
  55.                 pop 1 add
  56.               } ifelse
  57.             } ifelse
  58.           } forall
  59. % ------- Allocate & Fill String
  60.           string dup 0 (\() putinterval 1
  61.           3 -1 roll { % outstr pos item
  62.             dup 32 lt 1 index 126 gt or {
  63.               dup 7 le {
  64.                 2 index 2 index (\\00) putinterval
  65.                 8 3 index 3 index 3 add 1 getinterval cvrs
  66.               }{
  67.                 dup 63 le {
  68.                   2 index 2 index (\\0) putinterval
  69.                   8 3 index 3 index 2 add 2 getinterval cvrs
  70.                 }{
  71.                   2 index 2 index (\\) putinterval
  72.                   8 3 index 3 index 1 add 3 getinterval cvrs
  73.                 } ifelse
  74.               } ifelse
  75.               pop 4 add
  76.             }{
  77.               dup 40 eq 1 index 41 eq or 1 index 92 eq or {
  78.                 2 index 2 index (\\) putinterval
  79.                 exch 1 add exch
  80.               } if
  81.               2 index exch 2 index exch put
  82.               1 add
  83.             } ifelse 
  84.           } forall
  85.           1 index exch (\)) putinterval
  86.         }{ exch pop
  87.           dup length 1 add string
  88.           dup 0 (-) putinterval
  89.           exch 1 index 1 1 index length 1 sub getinterval cvs pop
  90.           dup dup length 4 sub (-) putinterval
  91.           0 1 index length 3 sub getinterval
  92.         } ifelse
  93.       } ifelse
  94.     } ifelse
  95.   } ifelse
  96. } bind def
  97.  
  98. % int HSpindent - indent-spaces
  99. /HSpindent {
  100.   dup 0 gt {
  101.     1 1 3 -1 roll { pop ( ) print } for
  102.   }{
  103.     pop
  104.   } ifelse
  105. } bind def
  106.  
  107. % indent array HSaprint -> Print an Array
  108. /HSaprint {
  109.   dup type /arraytype eq {
  110.     ( [) print
  111.     exch 1 add dup 1 add
  112.     3 -1 roll { % rind pos item
  113.       HScvs dup length % rind pos str len
  114.       dup 3 index add HSpwidth ge {
  115.         (\n) print
  116.         3 index HSpindent
  117.         3 -1 roll pop
  118.         2 index add
  119.         exch
  120.       }{
  121.         ( ) print
  122.         2 index add 1 add 
  123.         3 -1 roll pop
  124.         exch
  125.       } ifelse
  126.       print
  127.     } forall
  128.     ( ]) print
  129.     pop pop
  130.   }{
  131.     ( ) print
  132.     HScvs print pop
  133.   } ifelse
  134.   (\n) print
  135. } bind def
  136.  
  137. % dict HSdnames dict names (creates sorted name-strings)
  138. /HSdnames {
  139. % Build namelist, stack: dic
  140.   dup length 0 eq {
  141.     []
  142.   }{
  143.     [ 1 index {
  144.         pop dup type /nametype eq {
  145.           dup length string cvs
  146.         }{ 
  147.           pop
  148.         } ifelse
  149.       } forall
  150.     ]
  151. % Sort the namelist, stack: dic nam
  152.     0 1 2 index length 2 sub { % stack: dic nam I
  153.       2 copy get % stack: pre dic nam I nam[I]
  154.       1 index 1 add 1 4 index length 1 sub { % stack: dic nam I nam[I] J
  155.         3 index 1 index get % dic nam I S[I] J S[J]
  156.         2 index 1 index gt { % swap them
  157.            4 index 2 index 4 index put 
  158.            4 index 4 index 2 index put
  159.            3 1 roll
  160.         } if
  161.         pop pop
  162.       } for
  163.       pop pop
  164.     } for
  165.   } ifelse
  166. } bind def
  167.  
  168. % string:prefix dict:which unprint
  169. /unprint {
  170.   HSdnames % pre dic nam
  171. % compute the maximum length
  172.   0 1 index { % pre dic nam maxlen nam[I]
  173.     length 2 copy lt { exch } if pop
  174.   } forall
  175. % Print out all the items, stack: pre dic nam maxlen
  176.   (\n) print  
  177.   exch { % pre dic maxlen nam[I]
  178. % no prefix yet, -> flush right
  179.     3 index length 0 eq {
  180.       dup length 2 index exch sub HSpindent
  181.     }{
  182.       3 index print (/) print
  183.     } ifelse 
  184. % print the name
  185.     dup print
  186. % prefix: fill up with blanks 
  187.     3 index length 0 ne {
  188.       dup length 2 index exch sub HSpindent
  189.     } if
  190. % now print the item itself, stack: pre dic maxlen nam[I]
  191.     2 index 1 index cvn get dup type % stack: pre dic maxlen nam[i] item typ 
  192. % Dict-Syntax
  193.     dup /dicttype eq { pop % stack: pre dic maxlen nam[i] item
  194.       ( ) print dup HScvs print
  195.       4 index length 0 eq { % brand new prefix
  196.         2 index string 0 1 5 index 1 sub { 1 index exch 32 put } for
  197.         dup 4 index 4 index length sub 5 -1 roll putinterval
  198.       }{
  199.         4 index length 1 add 2 index length add string
  200.         dup 0 7 index putinterval
  201.         dup 6 index length (/) putinterval
  202.         dup 6 index length 1 add 5 -1 roll putinterval
  203.       } ifelse
  204.       exch unprint
  205.     }{
  206.       3 -1 roll pop % tack: pre dic maxlen item typ
  207. % Array-Syntax
  208.       dup /arraytype eq { pop % stack: pre dic maxlen item
  209.         3 index length dup 0 ne { 1 add } if 2 index add 
  210.         exch HSaprint
  211.       }{ pop
  212.         ( ) print
  213.         HScvs print
  214.         (\n) print
  215.       } ifelse
  216.     } ifelse
  217.   } forall
  218.   pop pop length -1 eq { (\n) print } if
  219. } bind def
  220.  
  221. /currentpagedevice where { % check for currentpagedevice
  222.    /currentpagedevice get exec () exch unprint
  223. } if
  224.