Browsing the content of a dictionary

Thread View: comp.lang.postscript

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by hiep Tue, 12 Jan 1988 14:00

#6807

Author: 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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads