1987-05-13 14:36:45 +00:00
|
|
|
DEFINITION MODULE Arguments;
|
1988-02-19 15:54:01 +00:00
|
|
|
(*
|
|
|
|
|
Module: Access to program arguments and environment
|
|
|
|
|
Author: Ceriel J.H. Jacobs
|
|
|
|
|
Version: $Header$
|
1987-05-13 14:36:45 +00:00
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
VAR Argc: CARDINAL; (* Number of program arguments, including the program
|
|
|
|
|
name, so it is at least 1.
|
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
PROCEDURE Argv( argnum : CARDINAL;
|
|
|
|
|
VAR argument : ARRAY OF CHAR
|
|
|
|
|
) : CARDINAL;
|
|
|
|
|
(* Stores the "argnum'th" argument in "argument", and returns its length,
|
|
|
|
|
including a terminating null-byte. If it returns 0, the argument was not
|
|
|
|
|
present, and if it returns a number larger than the size of "argument",
|
|
|
|
|
"argument" was'nt large enough.
|
|
|
|
|
Argument 0 contains the program name.
|
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
PROCEDURE GetEnv( name : ARRAY OF CHAR;
|
|
|
|
|
VAR value : ARRAY OF CHAR
|
|
|
|
|
) : CARDINAL;
|
|
|
|
|
(* Searches the environment list for a string of the form
|
|
|
|
|
name=value
|
|
|
|
|
and stores the value in "value", if such a string is present.
|
|
|
|
|
It returns the length of the "value" part, including a terminating
|
|
|
|
|
null-byte. If it returns 0, such a string is not present, and
|
|
|
|
|
if it returns a number larger than the size of the "value",
|
|
|
|
|
"value" was'nt large enough.
|
|
|
|
|
The string in "name" must be null_terminated.
|
|
|
|
|
*)
|
|
|
|
|
END Arguments.
|
