开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 传真(Fax)编程 > 查看源码
dpsprinter.ps
资源名称：hylafax-5.3.0.tar.gz　[点击查看]
上传用户：weiyuanprp
上传日期：2020-05-20
资源大小：1169k
文件大小：3k
源码类别：

传真(Fax)编程

开发平台：

C/C++

dpsprinter.ps：源码内容
  1. %!
  2. %%Title: dpsprinter.ps -- DPS prolog to emulate some printer features.
  4. %%Notice: Copyright (c) 1989 Adobe Systems Incorporated.  All rights reserved.
  6. % $Revision: 1.1.1.1 $
  7. % $Date: 2005/11/11 21:32:03 $
  9. %
  10. % This file makes a number of definitions that are technically system specific
  11. % but are used by many existing PostScript language drivers that were written
  12. % without sufficient attention to the specification.
  13. % 
  14. % This prolog ensures that serverdict, exitserver, and assorted statusdict 
  15. % operators are defined as expected.  The flushfile operator is also redefined
  16. % to allow Macintosh files with a prepended Laser Prep file to work properly.
  17. % 
  18. % There is one special "feature" definition.  The ASCII character 04
  19. % (CTRL-D) is defined as a no-op operator in case the prolog contains
  20. % one to indicate end-of-file in some contexts.
  21. % 
  22. %%BeginProcSet: DPSPrinter 1 0
  24. /serverdict where {%if
  25.   pop
  26. } {%else
  27.   /serverdict 1 dict def
  28. } ifelse
  30. serverdict /exitserver known not {
  31.   % NOTE: We let the usual invalidaccess error occur if serverdict is not
  32.   %       writeable and exitserver is not known.  This is unlikely because
  33.   %       either serverdict was just created (above) or it already existed
  34.   %       in which case exitserver should have been defined.
  35.   serverdict /exitserver
  36.     % int exitserver --
  37.   {
  38.     0 ne {
  39.       /exitserver errordict /invalidaccess get exec
  40.     } if
  41.     {{end} loop} stopped pop % Clear dictstack
  42.     clear
  43.   } bind put
  44. } if
  46. statusdict /execjob known not {
  47.   statusdict /execjob {exec} bind put
  48. } if
  50. userdict /legal known not {
  51.   userdict /legal {} put
  52. } if
  54. userdict /letter known not {
  55.   userdict /letter {} put
  56. } if
  58. userdict /a4 known not {
  59.   userdict /a4 {} put
  60. } if
  62. userdict /b4 known not {
  63.   userdict /b4 {} put
  64. } if
  66. statusdict /pagecount known not {
  67.   statusdict /pagecount 0 put
  68. } if
  70. statusdict /printername known not {
  71.   statusdict /printername (DPS) put
  72. } if
  74. statusdict /setjobtimeout known not {
  75.   statusdict /setjobtimeout {pop} bind put
  76. } if
  78. statusdict /setrealdevice known not {
  79.   statusdict /setrealdevice {} put
  80. } if
  82. statusdict /waittimeout known not {
  83.   statusdict /waittimeout 600 put
  84. } if
  86. % The Mac Laser Prep file executes the flushfile operator to get to the end
  87. % of the prolog.  When documents are saved with the prolog attached, the
  88. % flushfile consumes the document and nothing is printed.  To get around this
  89. % problem the definition of flushfile is changed below to consume bytes of
  90. % input until a PostScript language comment (%) character is found.  The
  91. % rest of the line is then consumed before the revised flushfile terminates.
  93. /*flushfile /flushfile load def
  95. /flushfile
  96.   % file flushfile --
  97. {%def
  98.   {%loop -- search for next percent character in file
  99.     dup % Copy file parameter
  100.     read { % Consume character
  101.       8#045 eq { % Check for ASCII percent character
  102. exit % Leave loop
  103.       } if
  104.     } if
  105.   } loop
  106.   {%loop -- search for newline character at end of comment
  107.     dup % Copy file parameter
  108.     read { % Consume character
  109.       8#012 eq { % Check for ASCII newline character
  110. exit % Leave loop
  111.       } if
  112.     } if
  113.   } loop
  114.   pop % Discard file parameterp
  115. } bind def
  117. (04) cvn {} def % To ignore ^D at the end of prologs.
  119. %%EndProcSet