home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_cmdl.ps < prev    next >
Text File  |  2000-03-09  |  5KB  |  183 lines
  1. %    Copyright (C) 1994, 1996, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: gs_cmdl.ps,v 1.1 2000/03/09 08:40:39 lpd Exp $
  19. % Parse and execute the command line.
  20. % C code handles the following switches: -h/-? -I -M -v
  21.  
  22. /cmddict 50 dict def
  23. cmddict begin
  24.  
  25. % ---------------- Utility procedures ---------------- %
  26.  
  27. % Get the next argument from the parsed argument list.
  28. /nextarg        % - nextarg <arg> true
  29.             % - nextarg false
  30.  { argv length 0 eq
  31.     { false }
  32.     { argv dup 0 get exch dup length 1 sub 1 exch getinterval /argv exch def }
  33.    ifelse
  34.  } bind def
  35.  
  36. % Run a file, under job control if implemented.
  37. /runjob            % <file> runjob -
  38.  { end        % cmddict
  39.    /startjob where { pop false () startjob pop }
  40.    run
  41.    //cmddict begin
  42.  } bind def
  43. /runfilejob        % <filename> runfilejob -
  44.  { findlibfile { exch pop } { (r) file } runjob
  45.  } bind def
  46.  
  47. % Expand arguments.  Free variables: expand@.
  48. /expandarg        % <string> expandarg <args...>
  49.  { dup () eq
  50.     { pop
  51.     }
  52.     { dup dup (--) eq exch (-+) eq or
  53.        { pop /expand@ false def
  54.        }
  55.        { expand@ { (@) anchorsearch } { false } ifelse
  56.       { pop findlibfile
  57.          { exch pop }
  58.          { (r) file }        % let the error happen
  59.         expandargfile
  60.       }
  61.      if
  62.        }
  63.       ifelse
  64.     }
  65.  } bind def
  66. /expandargfile        % <file> expandargfile <args...>
  67.  { [ exch cvlit
  68.     { token not { exit } if
  69.       dup type /stringtype ne { =string cvs dup length string copy } if
  70.       expandarg
  71.     }
  72.    /exec cvx
  73.    ] cvx loop
  74.  } bind def
  75.  
  76. % ---------------- Recognized switches ---------------- %
  77.  
  78. % Switches with arguments are defined as <x>;
  79. % switches without arguments are defined as -<x>.
  80.  
  81. % Switches without arguments
  82. /--
  83.  { nextarg not
  84.     { (-- and -+ require a file name.) = flush }
  85.     { //systemdict /ARGUMENTS argv put /argv [] def runjob }
  86.    ifelse
  87.  } bind def
  88. /-+ /-- load def
  89. /-@ /-- load def
  90. /-A { (@) Z } bind def
  91. /-c
  92.  {  { argv length 0 eq { exit } if
  93.       argv 0 get (-) anchorsearch { pop pop exit } if
  94.       pop nextarg token
  95.        { exch pop            % Probably should check for empty.
  96.      end exec //cmddict begin
  97.        }
  98.       if
  99.     }
  100.    loop
  101.  } bind def
  102. /-e { (#) Z } bind def
  103. /-E /-e load def
  104. /-f { } def
  105. /-q { //systemdict /QUIET true put } bind def
  106.  
  107. % Switches with arguments
  108. /d
  109.  { (=) search not { (#) search not { () exch dup } if } if
  110.    exch pop cvn dup where
  111.     { pop (Redefining ) print print ( is not allowed.) = flush pop }
  112.     { exch token
  113.        { exch pop }        % Probably should check for empty.
  114.        { true }
  115.       ifelse
  116.       //systemdict 3 1 roll put
  117.     }
  118.    ifelse
  119.  } bind def
  120. /D /d load def
  121. /f { dup length 0 ne { runfilejob } if } bind def
  122. /g
  123.  { (x) search { cvi pop exch cvi } { cvi dup } ifelse
  124.    //systemdict begin /DEVICEHEIGHT exch def /DEVICEWIDTH exch def end
  125.  } bind def
  126. /r
  127.  { (x) search { cvr pop exch cvr } { cvr dup } ifelse
  128.    //systemdict begin /DEVICEYRESOLUTION exch def /DEVICEXRESOLUTION exch def end
  129.  } bind def
  130. /s
  131.  { (=) search not { (#) search not { () exch dup } if } if
  132.    exch pop cvn dup where { pop dup load } { () } ifelse
  133.    type /stringtype ne
  134.     { (Redefining ) print print ( is not allowed.) = flush pop }
  135.     { exch //systemdict 3 1 roll put }
  136.    ifelse
  137.  } bind def
  138. /S /s load def
  139. /Z { true .setdebug } bind def
  140.  
  141. % ---------------- Main program ---------------- %
  142.  
  143. % We process the command line in two passes.  In the first pass,
  144. % we read and expand any @-files as necessary.  The second pass
  145. % does the real work.
  146.  
  147. /cmdstart
  148.  { //cmddict begin
  149.    /expand@ true def
  150.    [
  151.         % Process the GS_OPTIONS environment variable.
  152.    (GS_OPTIONS) getenv { 0 () /SubFileDecode filter expandargfile } if
  153.         % Process the actual command line.
  154.    .getargv { expandarg } forall
  155.    ] readonly /argv exch def
  156.         % Now interpret the commands.
  157.     { nextarg not { exit } if
  158.       dup 0 get (-) 0 get eq
  159.        { dup length 1 eq
  160.       { pop (%stdin) (r) file runjob
  161.       }
  162.       { dup length 2 gt
  163.          { dup dup length 2 sub 2 exch getinterval exch 1 1 getinterval }
  164.         if currentdict .knownget
  165.          { exec
  166.          }
  167.          { (Ignoring unknown switch ) print
  168.            dup length 1 eq { (-) print print } if print
  169.            () = flush
  170.          }
  171.         ifelse
  172.       }
  173.      ifelse
  174.        }
  175.        { runfilejob
  176.        }
  177.       ifelse
  178.     }
  179.    loop end
  180.  } bind def
  181.  
  182. end        % cmddict
  183.