home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / clipart / gs22.zip / GS_STATD.PS < prev    next >
Text File  |  1991-02-15  |  4KB  |  104 lines
  1. %    Copyright (C) 1989, 1990, 1991 Aladdin Enterprises.  All rights reserved.
  2. %    Distributed by Free Software Foundation, Inc.
  3. %
  4. % This file is part of Ghostscript.
  5. %
  6. % Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the Ghostscript General Public License for full details.
  11. %
  12. % Everyone is granted permission to copy, modify and redistribute
  13. % Ghostscript, but only under the conditions described in the Ghostscript
  14. % General Public License.  A copy of this license is supposed to have been
  15. % given to you along with Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % This file provides a dummy 'statusdict' and 'serverdict',
  21. % and a few of the other LaserWriter operators, for the benefit of
  22. % PostScript programs that think they are running on a LaserWriter.
  23.  
  24. systemdict begin
  25.  
  26.  /letter {statusdict begin 0 setpagetype end} def
  27.  /note {statusdict begin 1 setpagetype end} def
  28.  /legal {} def
  29.  /a4 {} def            % not in original Red Book,
  30.                  % but apparently standard now
  31.  
  32.  /statusdict 50 dict def
  33.  /serverdict 4 dict def
  34.  
  35. end
  36.  
  37. statusdict begin
  38.  
  39.  /checkpassword {statusdict begin .password eq end} def
  40.  /defaulttimeouts {statusdict begin .timeouts aload pop end} def
  41. %/dostartpage
  42.  /eescratch {pop 0} def
  43.  /idlefonts {statusdict begin mark .idlefonts aload pop end} def
  44.  /jobname () def
  45. %/jobtimeout
  46.  /manualfeed false def
  47.  /manualfeedtimeout 60 def
  48.  /margins {statusdict begin .topmargin .leftmargin end} def
  49.  /pagecount {4711} def
  50.  /pagestackorder {false} def
  51. %/pagetype
  52.  /prefeed false def
  53.  /printererror {pop pop} def
  54.  /printername {statusdict begin .printername exch copy end} def
  55.  /product (Ghostscript) def
  56.  /revision 20100 def
  57.  /sccbatch {pop 9600 0} def
  58.  /sccinteractive {pop 9600 0} def
  59.  /setdefaulttimeouts {statusdict begin .timeouts astore pop end} def
  60.  /setdostartpage {statusdict exch /dostartpage exch put} def
  61.  /seteescratch {pop pop} def
  62.  /setidlefonts {] statusdict exch /.idlefonts exch put} def
  63.  /setjobtimeout {statusdict exch /jobtimeout exch put} def
  64.  /setmargins
  65.   {statusdict begin /.lmargin exch def /.topmargin exch def end} def
  66.  /setpagetype {statusdict exch /pagetype exch put} def
  67.  /setpassword
  68.   {exch checkpassword
  69.     {statusdict exch /.password exch put true}
  70.     {pop false}
  71.    ifelse} def
  72.  /setprintername
  73.   {dup length string copy statusdict exch /printername exch put} def
  74.  /setsccbatch {pop pop pop} def
  75.  /setsccinteractive {pop pop pop} def
  76.  /waittimeout 300 def
  77.  
  78. /.password 0 def
  79. /.timeouts [0 60 30] def
  80. true setdostartpage
  81. mark setidlefonts
  82. 0 setjobtimeout
  83. 0 0 setmargins
  84. 0 setpagetype
  85. product setprintername
  86.  
  87. end    % statusdict
  88.  
  89. % The following contents of serverdict are a complete guess,
  90. % based on some observed LaserWriter boilerplate.
  91.  
  92. serverdict begin
  93.  
  94.  /execjob { } def
  95. % The Red Book implies that something like the following is
  96. % an appropriate definition of exitserver.
  97.  /exitserver { clear stop } def
  98. % However, this interacts badly with Ghostscript's present error handler,
  99. % so we override it with the following less appropriate definition.
  100.  /exitserver { clear cleardictstack } def
  101.  /setrealdevice { } def
  102.  
  103. end    % serverdict
  104.