🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.postscript
Article #6807

Browsing the content of a dictionary

#6807
From: hiep
Date: Tue, 12 Jan 1988 14:00
29 lines
1215 bytes
        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
Technical Details
Message-ID: <599@cernvax.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!mcvax!cernvax!hiep

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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