programargs.def 340 B

123456789
  1. DEFINITION MODULE ProgramArgs;
  2. (* Command-line arguments. ArgCount is the number of arguments
  3. *after* the program name; GetArg is 1-based (1 = first argument).
  4. GetArg returns FALSE when there is no such argument. *)
  5. PROCEDURE ArgCount() : CARDINAL;
  6. PROCEDURE GetArg(n : CARDINAL; VAR s : ARRAY OF CHAR) : BOOLEAN;
  7. END ProgramArgs.