DEFINITION CommandLine; (* 1993 by Dirk Theisen. Version 10.10.93      *)
                        (* email : dirk_theisen@su.maus.de            *)

(* Module for reading the command line arguments according to the *)
(* ARGV specifications. If ARGV is not used, the normal           *)
(* Commandline will be evaluated.                                 *)

(* Details: *)

(* arg first points to the first argument. Use PROCEDURE Next to  *)
(* move to the next argument.                                     *)
(* You may for example COPY arg^ for further use.                 *)
(* arg is NIL if there is no more argument left.                  *)

(* Reset resets the Module. Should only be called in case of a    *)
(* canged command line! Do only ONE pass!                         *)

(* prgName points to the programs name (ARGV[0]). NIL, if ARGV is *)
(* not used. *)


  TYPE

    String  = POINTER TO ARRAY 256 OF CHAR;

  VAR

    arg-     : String; (*  points always to next arg or NIL *)
    prgName- : String;

  PROCEDURE Next();
  PROCEDURE Reset();

END CommandLine.