Artifact cf53a910ff71c07310c1f52c4eb8e89120a506b442e47b4f593849a990cc385c:

• File psl-1983/3-1/util/20/get-command-args.sl — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 610) [annotate] [blame] [check-ins using] [more...]

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% GET-COMMAND-ARGS -- get command line arguments
%%%
%%% Author: Cris Perdue
%%%  5 Apr 1983 1320-PST
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(load parse-command-string get-command-string)

%%% Returns a list of strings which are the command line
%%% arguments to the program that was run.  Program name is not
%%% included.  The code per se is not machine-dependent, but the
%%% idea of getting a "command string" is so.
(de get-command-args ()
  (parse-command-string (get-command-string)))