Path: utzoo!mnetor!uunet!mcvax!cernvax!hiep
From: hiep@cernvax.UUCP (hiep)
Newsgroups: comp.lang.postscript
Subject: Browsing the content of a dictionary
Message-ID: <599@cernvax.UUCP>
Date: 12 Jan 88 14:00:56 GMT
Reply-To: hiep@cernvax.UUCP ()
Organization: CERN European Laboratory for Particle Physics, CH-1211 Geneva, Switzerland
Lines: 29


        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