home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / gs_dscp.ps < prev    next >
Text File  |  2000-12-05  |  4KB  |  113 lines
  1. %  Copyright (C) 2000 Artifex Software Inc.   All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: gs_dscp.ps,v 1.2.2.1 2000/11/09 23:47:04 rayjj Exp $
  19. %  Postscript interface routines to DSC parser
  20.  
  21.  
  22. /send_orientation {            % <orientation> send_orienation -
  23.   << /Orientation 2 index >> setpagedevice pop
  24. } bind def
  25.  
  26. % This dictionary contains local handlers for DSC comments.  See header in zdscpars.c
  27. % <dsc_dict> handler <dsc_dict>
  28. /DSCparseprocs mark
  29.    /Orientation { dup /Orientation get send_orientation } bind
  30.    /PageOrientation { dup /PageOrientation .knownget { send_orientation }
  31.               { dup /Orientation .knownget { send_orientation } if }
  32.               ifelse } bind
  33.    /Page { dup /Orientation .knownget { send_orientation } if } bind
  34.    /NOP { } bind
  35. .dicttomark readonly def
  36.  
  37. % This procedure is called whenever a DSC comment is found by the interpreter
  38. /do_parse_dsc false def
  39. /parse_dsc {                % <file> <DSC string> [<prev proc>]
  40.                     %   parse_dsc -
  41.     % Run any previously installed parser.
  42.   0 get dup null eq { pop } { 3 copy exec pop } ifelse
  43.     % Check whether this parser is disabled.
  44.   do_parse_dsc {
  45.     dsc_dict exch            % <file> <dict> <string>
  46.     .parse_dsc_comments            % <file> <dict> <name>
  47.     //DSCparseprocs exch .knownget {
  48.       exec                % execute any local handler
  49.     } if
  50.   } if
  51.   pop pop                % remove file, dict
  52. } bind def
  53.  
  54.  
  55. % Check whether the currently installed parser is the one defined in this file.
  56. /.using_parse_dsc {            % - .using_parse_dsc <proc> <using?>
  57.   currentuserparams /ProcessDSCComment get
  58.   dup null eq { pop {{//null} //parse_dsc exec} } if
  59.   dup length 3 eq {
  60.     dup dup length 1 sub get /parse_dsc load eq
  61.   } {
  62.     false
  63.   } ifelse
  64. } bind def
  65.  
  66. % Establish a binding for dsc_dict.
  67. userdict /dsc_dict null put
  68.  
  69. % - dsc_init -
  70. /dsc_init {                % Initialize DSC parser
  71.   currentglobal true setglobal
  72.   /dsc_dict 50 dict store        % Size must be large enough for all DSC values
  73.   dsc_dict .initialize_dsc_parser
  74.   .using_parse_dsc {
  75.     % Already using this parser.
  76.     pop
  77.   } {
  78.     % Encapsulate the previous parser.  We know it is in global VM:
  79.     % allocate the new one in global VM as well.
  80.     1 array astore
  81.     /parse_dsc load /exec load 3 array astore cvx readonly
  82.     << /ProcessDSCComment 3 -1 roll >>
  83.     setuserparams
  84.   } ifelse
  85.   /do_parse_dsc true store
  86.   setglobal
  87. } bind def
  88.  
  89.  
  90. % Enable the DSC parser defined in this file.
  91. % - enable_dsc -
  92. /enable_dsc {
  93.   dsc_init
  94. } bind def
  95.  
  96. % Disable the DSC parser defined in this file.
  97. % - disable_dsc -
  98. /disable_dsc {
  99.     % There might be another parser installed: if so, restore it.
  100.     % (If it has encapsulated our parser, we can't.)
  101.   .using_parse_dsc {
  102.     % Restore the parser we encapsulated.
  103.     0 get 0 get
  104.     currentglobal true setglobal exch
  105.     << /ProcessDSCComment 3 -1 roll >>
  106.     exch setglobal setuserparams
  107.   } {
  108.     pop
  109.   } ifelse
  110.     % If we couldn't restore the old parser, at least disable ours.
  111.   /do_parse_dsc false store
  112. } bind def
  113.