Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!newstop!exodus!appserv!angel.Eng.Sun.COM!henry
From: henry@angel.Eng.Sun.COM (Henry McGilton)
Newsgroups: comp.lang.postscript
Subject: Re: PostScript reference wanted
Message-ID: <385@appserv.Eng.Sun.COM>
Date: 21 Jan 91 21:48:49 GMT
References: <1991Jan18.214630.21667@ddsw1.MCS.COM>
Sender: news@appserv.Eng.Sun.COM
Lines: 41

I tried to mail this to avoid using net bandwidth, but mail bounced.

In article <1991Jan18.214630.21667@ddsw1.MCS.COM>, jeffw@ddsw1.MCS.COM (Jeffrey H. West) writes:

    *  I am looking for a reference that covers the use of commands like
    *  statusdict, serverdict, setsccbatch, setprintername, etc.
The PostScript Language Reference Manual ISBN 0-201-10174-2
contains all this stuff in Apendix D.  The brand new PostScript
Language Reference Manual encyclopaedia ISBN 0-201-18127-4 contains
most of these details scattered throughout the operator summary, but
the sccbatch  operator isn't there and the appendix on the specifics of
the Apple LaserWriter has gone.  I assume that you're now encouraged to
buy the Apple LaserWriter Reference Manual, or obtain the supplementary
manuals for the specific printers you're using.

    *  Alternatly, does anyone know the command sequence which would
    *  allow an Apple LaserWriter I, IINT, IINTX (connected to a Sun) to
    *  return the printer name, baud rate, and any other pertinent
    *  information that may be stored in the PostScript ROM?
Here's a short program that does some of the things you want.
PostScript `experts' direct flames elsewhere.
%!

/Courier-Bold findfont 24 scalefont setfont
216 72 9 mul moveto 100 string statusdict /printername get exec show
72 72 8 mul moveto
    (Product Name:  ) show statusdict /product get show
72 72 7 mul moveto
    (Version Number:  ) show version show
72 72 6 mul moveto
    (Revision Number:  ) show statusdict /revision get 16 string cvs show
25 statusdict /sccbatch get exec
72 72 5 mul moveto
    (Parity:  ) show [ (Ignore) (Odd) (Even) (None) ] exch get show
72 72 4 mul moveto
    (Baud:  ) show 10 string cvs show
72 72 3 mul moveto
    (Start Page:  ) show statusdict /dostartpage get exec 6 string cvs show
72 72 2 mul moveto
    (Pages Printed:  ) show statusdict /pagecount get exec 10 string cvs show
showpage