%!% Copyright (C) 1997 Aladdin Enterprises. All rights reserved% % This software is provided AS-IS with no warranty, either express or% implied.% % This software is distributed under license and may not be copied,% modified or distributed except as expressly authorized under the terms% of the license contained in the file LICENSE in this distribution.% % For more information about licensing, please refer to% http://www.ghostscript.com/licensing/. For information on% commercial licensing, go to http://www.artifex.com/licensing/ or% contact Artifex Software, Inc., 101 Lucas Valley Road #110,% San Rafael, CA 94903, U.S.A., +1(415)492-9861.% $Id: uninfo.ps,v 1.4 2002/02/21 21:49:28 giles Exp $% uninfo.ps: Utilities for "printing" PostScript items, especially dictionaries% Usage:% (prefix-string) dict unprint% Maximum Print-Width/HSpwidth 80 def% any HScvs string/HScvs {% Number-Syntax dup type % stack: any /anytype dup /integertype eq 1 index /realtype eq or { pop 16 string cvs }{% Logical-Type dup /booleantype eq { pop 5 string cvs }{% Identifiers dup /nametype eq { pop dup length 1 add string dup 0 (/) putinterval exch 1 index 1 1 index length 1 sub getinterval cvs pop }{% Strings dup /stringtype eq { pop% ------- Compute Length 2 1 index { % stack: str len item dup 32 lt 1 index 126 gt or { % need 4 pop 4 add }{ dup 40 eq 1 index 41 eq or 1 index 92 eq or { pop 2 add }{ pop 1 add } ifelse } ifelse } forall% ------- Allocate & Fill String string dup 0 (\() putinterval 1 3 -1 roll { % outstr pos item dup 32 lt 1 index 126 gt or { dup 7 le { 2 index 2 index (\\00) putinterval 8 3 index 3 index 3 add 1 getinterval cvrs }{ dup 63 le { 2 index 2 index (\\0) putinterval 8 3 index 3 index 2 add 2 getinterval cvrs }{ 2 index 2 index (\\) putinterval 8 3 index 3 index 1 add 3 getinterval cvrs } ifelse } ifelse pop 4 add }{ dup 40 eq 1 index 41 eq or 1 index 92 eq or { 2 index 2 index (\\) putinterval exch 1 add exch } if 2 index exch 2 index exch put 1 add } ifelse } forall 1 index exch (\)) putinterval }{ exch pop dup length 1 add string dup 0 (-) putinterval exch 1 index 1 1 index length 1 sub getinterval cvs pop dup dup length 4 sub (-) putinterval 0 1 index length 3 sub getinterval } ifelse } ifelse } ifelse } ifelse} bind def% int HSpindent - indent-spaces/HSpindent { dup 0 gt { 1 1 3 -1 roll { pop ( ) print } for }{ pop } ifelse} bind def% indent array HSaprint -> Print an Array/HSaprint { dup type /arraytype eq { ( [) print exch 1 add dup 1 add 3 -1 roll { % rind pos item HScvs dup length % rind pos str len dup 3 index add HSpwidth ge { (\n) print 3 index HSpindent 3 -1 roll pop 2 index add exch }{ ( ) print 2 index add 1 add 3 -1 roll pop exch } ifelse print } forall ( ]) print pop pop }{ ( ) print HScvs print pop } ifelse (\n) print} bind def% dict HSdnames dict names (creates sorted name-strings)/HSdnames {% Build namelist, stack: dic dup length 0 eq { [] }{ [ 1 index { pop dup type /nametype eq { dup length string cvs }{ pop } ifelse } forall ]% Sort the namelist, stack: dic nam 0 1 2 index length 2 sub { % stack: dic nam I 2 copy get % stack: pre dic nam I nam[I] 1 index 1 add 1 4 index length 1 sub { % stack: dic nam I nam[I] J 3 index 1 index get % dic nam I S[I] J S[J] 2 index 1 index gt { % swap them 4 index 2 index 4 index put 4 index 4 index 2 index put 3 1 roll } if pop pop } for pop pop } for } ifelse} bind def% string:prefix dict:which unprint/unprint { HSdnames % pre dic nam% compute the maximum length 0 1 index { % pre dic nam maxlen nam[I] length 2 copy lt { exch } if pop } forall% Print out all the items, stack: pre dic nam maxlen (\n) print exch { % pre dic maxlen nam[I]% no prefix yet, -> flush right 3 index length 0 eq { dup length 2 index exch sub HSpindent }{ 3 index print (/) print } ifelse % print the name dup print% prefix: fill up with blanks 3 index length 0 ne { dup length 2 index exch sub HSpindent } if% now print the item itself, stack: pre dic maxlen nam[I] 2 index 1 index cvn get dup type % stack: pre dic maxlen nam[i] item typ % Dict-Syntax dup /dicttype eq { pop % stack: pre dic maxlen nam[i] item ( ) print dup HScvs print 4 index length 0 eq { % brand new prefix 2 index string 0 1 5 index 1 sub { 1 index exch 32 put } for dup 4 index 4 index length sub 5 -1 roll putinterval }{ 4 index length 1 add 2 index length add string dup 0 7 index putinterval dup 6 index length (/) putinterval dup 6 index length 1 add 5 -1 roll putinterval } ifelse exch unprint }{ 3 -1 roll pop % tack: pre dic maxlen item typ% Array-Syntax dup /arraytype eq { pop % stack: pre dic maxlen item 3 index length dup 0 ne { 1 add } if 2 index add exch HSaprint }{ pop ( ) print HScvs print (\n) print } ifelse } ifelse } forall pop pop length -1 eq { (\n) print } if} bind def/currentpagedevice where { % check for currentpagedevice /currentpagedevice get exec () exch unprint} if
%!
% Copyright (C) 1997 Aladdin Enterprises. All rights reserved
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
%
% For more information about licensing, please refer to
% http://www.ghostscript.com/licensing/. For information on
% commercial licensing, go to http://www.artifex.com/licensing/ or
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
% San Rafael, CA 94903, U.S.A., +1(415)492-9861.
% $Id: uninfo.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
% uninfo.ps: Utilities for "printing" PostScript items, especially dictionaries
% Usage:
% (prefix-string) dict unprint
% Maximum Print-Width
/HSpwidth 80 def
% any HScvs string
/HScvs {
% Number-Syntax
dup type % stack: any /anytype
dup /integertype eq 1 index /realtype eq or { pop
16 string cvs
}{
% Logical-Type
dup /booleantype eq { pop
5 string cvs
}{
% Identifiers
dup /nametype eq { pop
dup length 1 add string
dup 0 (/) putinterval
exch 1 index 1 1 index length 1 sub getinterval cvs pop
}{
% Strings
dup /stringtype eq { pop
% ------- Compute Length
2 1 index { % stack: str len item
dup 32 lt 1 index 126 gt or { % need 4
pop 4 add
}{
dup 40 eq 1 index 41 eq or 1 index 92 eq or {
pop 2 add
}{
pop 1 add
} ifelse
} ifelse
} forall
% ------- Allocate & Fill String
string dup 0 (\() putinterval 1
3 -1 roll { % outstr pos item
dup 32 lt 1 index 126 gt or {
dup 7 le {
2 index 2 index (\\00) putinterval
8 3 index 3 index 3 add 1 getinterval cvrs
}{
dup 63 le {
2 index 2 index (\\0) putinterval
8 3 index 3 index 2 add 2 getinterval cvrs
}{
2 index 2 index (\\) putinterval
8 3 index 3 index 1 add 3 getinterval cvrs
} ifelse
} ifelse
pop 4 add
}{
dup 40 eq 1 index 41 eq or 1 index 92 eq or {
2 index 2 index (\\) putinterval
exch 1 add exch
} if
2 index exch 2 index exch put
1 add
} ifelse
} forall
1 index exch (\)) putinterval
}{ exch pop
dup length 1 add string
dup 0 (-) putinterval
exch 1 index 1 1 index length 1 sub getinterval cvs pop
dup dup length 4 sub (-) putinterval
0 1 index length 3 sub getinterval
} ifelse
} ifelse
} ifelse
} ifelse
} bind def
% int HSpindent - indent-spaces
/HSpindent {
dup 0 gt {
1 1 3 -1 roll { pop ( ) print } for
}{
pop
} ifelse
} bind def
% indent array HSaprint -> Print an Array
/HSaprint {
dup type /arraytype eq {
( [) print
exch 1 add dup 1 add
3 -1 roll { % rind pos item
HScvs dup length % rind pos str len
dup 3 index add HSpwidth ge {
(\n) print
3 index HSpindent
3 -1 roll pop
2 index add
exch
}{
( ) print
2 index add 1 add
3 -1 roll pop
exch
} ifelse
print
} forall
( ]) print
pop pop
}{
( ) print
HScvs print pop
} ifelse
(\n) print
} bind def
% dict HSdnames dict names (creates sorted name-strings)
/HSdnames {
% Build namelist, stack: dic
dup length 0 eq {
[]
}{
[ 1 index {
pop dup type /nametype eq {
dup length string cvs
}{
pop
} ifelse
} forall
]
% Sort the namelist, stack: dic nam
0 1 2 index length 2 sub { % stack: dic nam I
2 copy get % stack: pre dic nam I nam[I]
1 index 1 add 1 4 index length 1 sub { % stack: dic nam I nam[I] J
3 index 1 index get % dic nam I S[I] J S[J]
2 index 1 index gt { % swap them
4 index 2 index 4 index put
4 index 4 index 2 index put
3 1 roll
} if
pop pop
} for
pop pop
} for
} ifelse
} bind def
% string:prefix dict:which unprint
/unprint {
HSdnames % pre dic nam
% compute the maximum length
0 1 index { % pre dic nam maxlen nam[I]
length 2 copy lt { exch } if pop
} forall
% Print out all the items, stack: pre dic nam maxlen
(\n) print
exch { % pre dic maxlen nam[I]
% no prefix yet, -> flush right
3 index length 0 eq {
dup length 2 index exch sub HSpindent
}{
3 index print (/) print
} ifelse
% print the name
dup print
% prefix: fill up with blanks
3 index length 0 ne {
dup length 2 index exch sub HSpindent
} if
% now print the item itself, stack: pre dic maxlen nam[I]
2 index 1 index cvn get dup type % stack: pre dic maxlen nam[i] item typ
% Dict-Syntax
dup /dicttype eq { pop % stack: pre dic maxlen nam[i] item
( ) print dup HScvs print
4 index length 0 eq { % brand new prefix
2 index string 0 1 5 index 1 sub { 1 index exch 32 put } for
dup 4 index 4 index length sub 5 -1 roll putinterval
}{
4 index length 1 add 2 index length add string
dup 0 7 index putinterval
dup 6 index length (/) putinterval
dup 6 index length 1 add 5 -1 roll putinterval
} ifelse
exch unprint
}{
3 -1 roll pop % tack: pre dic maxlen item typ
% Array-Syntax
dup /arraytype eq { pop % stack: pre dic maxlen item
3 index length dup 0 ne { 1 add } if 2 index add
exch HSaprint
}{ pop
( ) print
HScvs print
(\n) print
} ifelse
} ifelse
} forall
pop pop length -1 eq { (\n) print } if
} bind def
/currentpagedevice where { % check for currentpagedevice
/currentpagedevice get exec () exch unprint
} if