home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p024 / 6.img / SUPPORT4.LIB / ACADPSD.PS < prev    next >
Encoding:
Text File  |  1991-09-10  |  6.4 KB  |  157 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. %
  25. %  ***********************************************************************
  26. %  *                                                                     *
  27. %  *    M   M    OOO    DDDD     III    FFFFF    III    EEEEE   DDDD     *
  28. %  *    MM MM   O   O   D   D     I     F         I     E       D   D    *
  29. %  *    M M M   O   O   D   D     I     F         I     E       D   D    *
  30. %  *    M   M   O   O   D   D     I     FFF       I     EEE     D   D    *
  31. %  *    M   M   O   O   D   D     I     F         I     E       D   D    *
  32. %  *    M   M   O   O   D   D     I     F         I     E       D   D    *
  33. %  *    M   M    OOO    DDDD     III    F        III    EEEEE   DDDD     *
  34. %  *                                                                     *
  35. %  *                                                                     *
  36. %  *                   FFFFF    III    L       EEEEE                     *
  37. %  *                   F         I     L       E                         *
  38. %  *                   F         I     L       E                         *
  39. %  *                   FFF       I     L       EEE                       *
  40. %  *                   F         I     L       E                         *
  41. %  *                   F         I     L       E                         *
  42. %  *                   F        III    LLLLL   EEEEE                     *
  43. %  *                                                                     *
  44. %  ***********************************************************************
  45. %
  46. %                              .-------------.
  47. %                              |      /\     |
  48. %                              |     /  \    |
  49. %                              |    / /\ \   |
  50. %                              |   / /  \ \  |
  51. %                              |  / / /\ \ \ |
  52. %                              | / / /  \ \ \|
  53. %                              `-------------'  (R)
  54. %                               Autodesk, Inc.
  55. %                   Tools For the Golden Age of Engineering
  56. %
  57. %   In  keeping with subparagraph 2a of the Gnu General Public License
  58. %   (Version 1, February 1989):
  59. %
  60. %   2.  You may modify your copy or  copies  of  the  Program  or  any
  61. %   portion  of  it,  and copy and distribute such modifications under
  62. %   the terms of Paragraph 1 above, provided  that  you  also  do  the
  63. %   following:
  64. %
  65. %      a)  cause the modified files to carry prominent notices stating
  66. %          that you changed the files and the date of any change; and...
  67. %
  68. %   the  following  is  a  summary of the changes to this file made by
  69. %   Autodesk, Inc. in August 1991 in order to adapt Ghostscript to run
  70. %   as  an  ADS  application  and  thereby  to  perform  rendering  of
  71. %   PostScript files within AutoCAD.
  72. %
  73. %   STATUSD.PS      Renamed to be ACADPSD.PS
  74. %
  75. % ************************************************************************
  76.  
  77. systemdict begin
  78.  
  79.  /letter {statusdict begin 0 setpagetype end} def
  80.  /note {statusdict begin 1 setpagetype end} def
  81.  /legal {} def
  82.  /a4 {} def                     % not in original Red Book,
  83.                                 % but apparently standard now
  84.  
  85.  /statusdict 50 dict def
  86.  /serverdict 4 dict def
  87.  
  88. end
  89.  
  90. statusdict begin
  91.  
  92.  /checkpassword {statusdict begin .password eq end} def
  93.  /defaulttimeouts {statusdict begin .timeouts aload pop end} def
  94. %/dostartpage
  95.  /eescratch {pop 0} def
  96.  /idlefonts {statusdict begin mark .idlefonts aload pop end} def
  97.  /jobname () def
  98. %/jobtimeout
  99.  /manualfeed false def
  100.  /manualfeedtimeout 60 def
  101.  /margins {statusdict begin .topmargin .leftmargin end} def
  102.  /pagecount {4711} def
  103.  /pagestackorder {false} def
  104. %/pagetype
  105.  /prefeed false def
  106.  /printererror {pop pop} def
  107.  /printername {statusdict begin .printername exch copy end} def
  108.  /product (Ghostscript) def
  109.  /revision 20100 def
  110.  /sccbatch {pop 9600 0} def
  111.  /sccinteractive {pop 9600 0} def
  112.  /setdefaulttimeouts {statusdict begin .timeouts astore pop end} def
  113.  /setdostartpage {statusdict exch /dostartpage exch put} def
  114.  /seteescratch {pop pop} def
  115.  /setidlefonts {] statusdict exch /.idlefonts exch put} def
  116.  /setjobtimeout {statusdict exch /jobtimeout exch put} def
  117.  /setmargins
  118.   {statusdict begin /.lmargin exch def /.topmargin exch def end} def
  119.  /setpagetype {statusdict exch /pagetype exch put} def
  120.  /setpassword
  121.   {exch checkpassword
  122.     {statusdict exch /.password exch put true}
  123.     {pop false}
  124.    ifelse} def
  125.  /setprintername
  126.   {dup length string copy statusdict exch /printername exch put} def
  127.  /setsccbatch {pop pop pop} def
  128.  /setsccinteractive {pop pop pop} def
  129.  /waittimeout 300 def
  130.  
  131. /.password 0 def
  132. /.timeouts [0 60 30] def
  133. true setdostartpage
  134. mark setidlefonts
  135. 0 setjobtimeout
  136. 0 0 setmargins
  137. 0 setpagetype
  138. product setprintername
  139.  
  140. end     % statusdict
  141.  
  142. % The following contents of serverdict are a complete guess,
  143. % based on some observed LaserWriter boilerplate.
  144.  
  145. serverdict begin
  146.  
  147.  /execjob { } def
  148. % The Red Book implies that something like the following is
  149. % an appropriate definition of exitserver.
  150.  /exitserver { clear stop } def
  151. % However, this interacts badly with Ghostscript's present error handler,
  152. % so we override it with the following less appropriate definition.
  153.  /exitserver { clear cleardictstack } def
  154.  /setrealdevice { } def
  155.  
  156. end     % serverdict
  157.