home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 September / PCWorld_2001-09_cd.bin / Software / Vyzkuste / rychlokurz / gs700w32.exe / gs7.00 / lib / gs_dscp.ps < prev    next >
Text File  |  2001-03-12  |  4KB  |  121 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.4 2001/03/12 22:41:22 dancoby Exp $
  19. %  Postscript interface routines to DSC parser
  20.  
  21. /send_orientation {            % <orientation> send_orientation -
  22.     % .parse_dsc_comments returns -1 for an Orientation key with an
  23.     % unrecognized value.
  24.   dup 0 ge {
  25.     << /Orientation 2 index >> setpagedevice
  26.   } if pop
  27. } bind def
  28.  
  29. % This dictionary contains local handlers for DSC comments.
  30. % See header in zdscpars.c for more information.
  31. % <dsc_dict> handler <dsc_dict>
  32. /DSCparseprocs mark
  33.    /Orientation { dup /Orientation get send_orientation } bind
  34.    /PageOrientation { dup /PageOrientation .knownget { send_orientation }
  35.               { dup /Orientation .knownget { send_orientation } if }
  36.               ifelse } bind
  37.    /Page { dup /Orientation .knownget { send_orientation } if } bind
  38.    /NOP { } bind
  39. .dicttomark readonly def
  40.  
  41. % This procedure is called whenever a DSC comment is found by the interpreter
  42. /do_parse_dsc false def
  43. /parse_dsc {                % <file> <DSC string> [<prev proc>]
  44.                     %   parse_dsc -
  45.     % Run any previously installed parser.
  46.   0 get dup null eq { pop } { 3 copy exec pop } ifelse
  47.  
  48.   do_parse_dsc {            % Check if this parser is enabled
  49.     currentglobal true setglobal    % Go to global VM, save old state
  50.     3 1 roll                % Put old VM state under <file> <string>
  51.     dsc_dict exch            % <VM state> <file> <dict> <string>
  52.     .parse_dsc_comments            % <VM state> <file> <dict> <DSC name>
  53.     4 -1 roll                % Get old VM state from under <file> <dict> <DSC name>
  54.     setglobal                % restore previous VM state
  55.     //DSCparseprocs exch .knownget {    % Check DSC name against local handler list
  56.       exec                % execute any local handler
  57.     } if
  58.   } if
  59.   pop pop                % remove file, dict
  60. } bind def
  61.  
  62.  
  63. % Check whether the currently installed parser is the one defined in this file.
  64. /.using_parse_dsc {            % - .using_parse_dsc <proc> <using?>
  65.   currentuserparams /ProcessDSCComment get
  66.   dup null eq { pop {{//null} //parse_dsc exec} } if
  67.   dup length 3 eq {
  68.     dup dup length 1 sub get /parse_dsc load eq
  69.   } {
  70.     false
  71.   } ifelse
  72. } bind def
  73.  
  74. % Establish a binding for dsc_dict.
  75. userdict /dsc_dict null put
  76.  
  77. % - dsc_init -
  78. /dsc_init {                % Initialize DSC parser
  79.   currentglobal true setglobal
  80.   /dsc_dict 50 dict store        % Size must be large enough for all DSC values
  81.   dsc_dict .initialize_dsc_parser
  82.   .using_parse_dsc {
  83.     % Already using this parser.
  84.     pop
  85.   } {
  86.     % Encapsulate the previous parser.  We know it is in global VM:
  87.     % allocate the new one in global VM as well.
  88.     1 array astore
  89.     /parse_dsc load /exec load 3 array astore cvx readonly
  90.     << /ProcessDSCComment 3 -1 roll >>
  91.     setuserparams
  92.   } ifelse
  93.   setglobal
  94.   /do_parse_dsc true def
  95. } bind def
  96.  
  97.  
  98. % Enable the DSC parser defined in this file.
  99. % - enable_dsc -
  100. /enable_dsc {
  101.   dsc_init
  102. } bind def
  103.  
  104. % Disable the DSC parser defined in this file.
  105. % - disable_dsc -
  106. /disable_dsc {
  107.     % There might be another parser installed: if so, restore it.
  108.     % (If it has encapsulated our parser, we can't.)
  109.   .using_parse_dsc {
  110.     % Restore the parser we encapsulated.
  111.     0 get 0 get
  112.     currentglobal true setglobal exch
  113.     << /ProcessDSCComment 3 -1 roll >>
  114.     exch setglobal setuserparams
  115.   } {
  116.     pop
  117.   } ifelse
  118.     % If we couldn't restore the old parser, at least disable ours.
  119.   /do_parse_dsc false def
  120. } bind def
  121.