[comp.lang.postscript] Browsing the content of a dictionary

hiep@cernvax.UUCP (hiep) (01/12/88)

        The following is a routine for listing the content
of a dictionary (in the example :systemdict),which I thought
would be useful for someone (I remembered someone asking for
this somewhile ago) .
Just change systemdict with any dictionary you like ($error,
userdict ...)
        The displaystack routine is a routine for printing out
the content of opstack destructively.
Have fun
HDH
%%%%%%%%%%%%%%%%%%%%%%%%CUT HERE %%%%%%%%%%%%%%%%%%%%%%
%!
%% BY :HOANG DO HIEP

/x 45 def 
/nextpoint {currentpoint exch pop x  exch -15 add  dup 30 le {pop 100 add 
              dup 500 ge {showpage pop 45 } if  dup /x exch def  700 } if 
  moveto  }def 
/displaystack { count    { 200 string cvs   show nextpoint} repeat } def
/Helvetica findfont
12 scalefont setfont
45 700 moveto     



systemdict {} forall displaystack

showpage