home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 March / PCWorld_2004-03_cd.bin / Software / topware / paintshop / psp810entr.exe / Data1.cab / prolog.ps < prev    next >
Encoding:
Text File  |  2003-10-02  |  2.4 KB  |  92 lines
  1. %
  2. % Standard prolog file for BengtPS
  3. %
  4. /bd {bind def} bind def
  5. /run {(r) file cvx exec} bd
  6.  
  7. % Set this to TRUE for more verbose output
  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. %
  21. % This proc is required by the api - don't delete it
  22. /_execprocstopped {_execfilestopped {handleerror _die} if} bd
  23.  
  24. % bind the system FontDirectory and GlobalFontDirectory to the
  25. % global font resource instance dictionary
  26. /Font /Category findresource
  27. dup /GlobalResInstances get /GlobalFontDirectory exch def
  28. /GlobalResInstances get /SharedFontDirectory exch def
  29.  
  30. %
  31. % Names which many postscript programs depend on
  32. % (but really shouldn't be there)
  33. %
  34. /letter {<</PageSize [612 792]>> setpagedevice } bd
  35. /legal {<</PageSize [612 1008]>> setpagedevice } bd
  36. /b5 {<</PageSize [516 729]>> setpagedevice } bd
  37. /a4 {<</PageSize [595 842]>> setpagedevice } bd
  38. /legalsmall /legal load def
  39. /lettersmall /letter load def
  40. /a4small /a4 load def
  41.  
  42. /setjobtimeout /pop load def
  43. /_tmpstring 300 string def % temporary string
  44. % Adobe uses these in its error processing
  45. /=string _tmpstring def
  46. /=print /=only load def
  47. /framedevice {} def
  48. currentdict readonly
  49. pop
  50. end
  51.  
  52. % Build a status dictionary
  53. false setglobal
  54. statusdict begin
  55. /checkpassword { 0 eq } bd
  56. /jobname (dummy.ps) def
  57. /lettertray {} def
  58. end
  59. true setglobal
  60.  
  61. % Build a server dictionary
  62. /serverdict 6 dict def
  63. serverdict begin
  64. /execjob {} def
  65. /exitserver {clear cleardictstack} bd
  66. /setrealdevice {} def
  67. end
  68. false setglobal
  69.  
  70. %-Load default color rendering dict
  71. /DefaultColorRendering /ColorRendering findresource setcolorrendering
  72.  
  73. %
  74. % Create an executive from the statement editing file
  75. /executive {
  76.     product print ( Executive Version ) print version print (\n\n) print
  77.     { prompt (%statementedit) (r) file
  78.         dup bytesavailable 0 lt
  79.         { (%stdin) (r) file bytesavailable 0 lt {closefile exit} if }
  80.         if cvx stopped { handleerror } if
  81.     } bind loop (\n) print
  82. } bd
  83.  
  84. <1b> cvn { } def % MS Windows LaserJet 4 prologue
  85. /@PJL { % H-P job control
  86.     currentfile //_tmpstring readline { pop } if
  87. } bd
  88.  
  89. userdict /internaldict /_internaldict load put
  90. /showdict {{exch == == (\n) print} forall} def
  91. 1 _verbose
  92.