parameters.def

<B>Digital的Unix操作系统VAX 4.2源码</B>

(*#@(#)parameters.def	4.1	Ultrix	7/17/90 *)
(* $Header: parameters.def,v 1.5 84/05/19 11:40:02 powell Exp $ *)

(* This module provides clean access to the command parameters *)

DEFINITION MODULE parameters;

EXPORT QUALIFIED NumParameters, GetParameter, GetEnvironment;

VAR
    (* NumParameters = argc = number of parameters counting name of the *)
    (*  program (the 0th parameter) *)
    NumParameters : cardinal;

(* GetParameter copies the num'th parameter (starting at 0, which is the *)
(*  program name) into the value array.  It sets length to the number of *)
(*  characters stored in the array, < 0 if there aren't that many parameters *)
(*  If there is room in value, it adds a 0C at the end *)
PROCEDURE GetParameter(num : CARDINAL; VAR value : ARRAY OF CHAR;
	VAR length: INTEGER);

(* GetEnvironment copies the value of the environment variable with the *)
(*  specified name into the value array.  It sets length to the number of *)
(*  characters stored in the array, < 0 if that variable doesn't exist. *)
(*  The value is the part after the = in the environment string. *)
(*  If there is room in value, it adds a 0C at the end *)
PROCEDURE GetEnvironment(name : ARRAY OF CHAR; VAR value : ARRAY OF CHAR;
	VAR length: INTEGER);

END parameters.