home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 August / 08_02.iso / software / psp7 / files / psp704ev.exe / Data.Cab / F3472_prolog.ps < prev    next >
Encoding:
Text File  |  2001-07-13  |  2.7 KB  |  103 lines
  1. %
  2. % Standard prolog file for BengtPS
  3. % Copyright (C) Bengt Computer Graphics 1996
  4. %
  5. initmatrix
  6. /bd {bind def} bind def
  7. /run {(r) file cvx exec} bd
  8.  
  9. % System operators which may be needed 
  10. true setglobal
  11. systemdict begin
  12.  
  13. % Font and Encoding stuff --
  14. /findencoding    { /Encoding findresource } bd
  15. /findfont        { /Font findresource } bd
  16. /definefont        { /Font defineresource } bd
  17. /undefinefont    { /Font undefineresource } bd
  18. /packedarray    { array astore } bd
  19.  
  20. % bind the system FontDirectory and GlobalFontDirectory to the
  21. % global font resource instance dictionary
  22. /Font /Category findresource
  23. dup /GlobalResInstances get /GlobalFontDirectory exch def
  24. /GlobalResInstances get /SharedFontDirectory exch def
  25.  
  26. % Names which many programs depend on (but really shouldn't be there)
  27. %
  28. /letter {<</PageSize [612 792]>> setpagedevice } bd
  29. /legal { <</PageSize [612 1008]>> setpagedevice } bd
  30. /b5 { <</PageSize [516 729]>> setpagedevice } bd
  31. /a4 { <</PageSize [595 842]>> setpagedevice } bd
  32. /legalsmall /legal load def
  33. /lettersmall /letter load def
  34. /a4small /a4 load def
  35.  
  36. /setjobtimeout /pop load def
  37. /_tmpstring 300 string def % temporary string
  38. % Adobe uses these in its error processing
  39. /=string _tmpstring def
  40. /=print /=only load def
  41. /framedevice {} def
  42. currentdict readonly
  43. pop
  44. end
  45.  
  46. % Build a status dictionary
  47. false setglobal
  48. statusdict begin
  49. /checkpassword { 0 eq } bd
  50. /jobname (dummy.ps) def
  51. /lettertray {} def
  52. end
  53. true setglobal
  54.  
  55. % Build a server dictionary
  56. /serverdict 6 dict def
  57. serverdict begin
  58. /execjob {} def
  59. /exitserver {clear cleardictstack} bd
  60. /setrealdevice {} def
  61. end
  62. false setglobal
  63.  
  64. /showdict {{== == (\n) print} forall} bd
  65.  
  66. %-Open standard files
  67. /.stdin  (%stdin)(r)file def
  68. /.stdout (%stdout)(w)file def
  69. /.stderr (%stderr)(w)file def
  70.  
  71. %-Load default color rendering dict
  72. /DefaultColorRendering /ColorRendering findresource setcolorrendering
  73.  
  74. /prompt {
  75.     (P) print count 0 ne {(<) print count print} if (>) print flush
  76. } bd
  77.  
  78. /executive {
  79.     /.stdin (%stdin) (r) file def
  80.     product print ( Executive Version ) print version print (\n\n) print
  81.     false _trace
  82.     { prompt (%statementedit) (r) file
  83.         dup bytesavailable 0 lt
  84.         { .stdin bytesavailable 0 lt {closefile exit} if }
  85.         if cvx stopped { handleerror } if
  86.     } loop (\n) print
  87. } bd
  88.  
  89. %
  90. % This proc is required by the api - don't delete it
  91. /_execprocstopped {
  92.     _execfilestopped {handleerror _die} if
  93. } bd
  94.  
  95. <1b> cvn { } def % MS Windows LaserJet 4 prologue
  96. /@PJL { % H-P job control
  97.     currentfile //_tmpstring readline { pop } if
  98. } bd
  99.  
  100. % This makes the interpreter think we have a bunch of memory free as it is hard
  101. %  to tell under Windows how much we can actually get at any one time
  102. /vmstatus {vmstatus pop pop 0 2000000000} bind def
  103.