(*
    Title: 	UnixArgs - Definitions
    LastEdit:	"Mon Sep 17 16:33:55 1984"
    Author: 	Mick Jordan
		Acorn Research Centre
*)

DEFINITION MODULE UnixArgs;
EXPORT QUALIFIED 
    GetArg, argCount (*, NoSuchArgument *);

VAR argCount : CARDINAL;	
(*  no of arguments on command line (including command name) *)

(* EXCEPTION NoSuchArgument; *)

PROCEDURE GetArg(argnum : CARDINAL; VAR arg: ARRAY OF CHAR)
           (* RAISES {NoSuchArgument} *);
(*  Returns a string containing the "argnum"th argument 
    on the command line. (The command name is argument number zero).
    If "argnum" is out of range, the NoSuchArgument exception
    will be raised.  If there is inadequate space in 'arg'
    an array-bounds fault will occur.
*)

END UnixArgs.
