IMPLEMENTATION MODULE GlobalString;
(* Environment Variable	Management. *)

(* ----------------------------------------------------------------------- *)
PROCEDURE SetGlobalString(
  envName: ARRAY OF CHAR;  (* in *)
  envValue: ARRAY OF CHAR) (* in *)
  : INTEGER;		   (* result >=	0 success else error *)
  BEGIN
  END SetGlobalString;

(* ----------------------------------------------------------------------- *)
PROCEDURE GetGlobalString(
  VAR envValue:	ARRAY OF CHAR;	(* out *)
  VAR envValueLength: CARDINAL;	(* out *)
  envName : ARRAY OF CHAR)	(* in *)
  : INTEGER;			(* result >= 0 success else error *)
  BEGIN
  END GetGlobalString;

(* ----------------------------------------------------------------------- *)
PROCEDURE DeleteGlobalString(
  name:	ARRAY OF CHAR) (* in *)
  : INTEGER;	       (* result >= 0 success else error *)
  BEGIN
  END DeleteGlobalString;

(* ----------------------------------------------------------------------- *)
PROCEDURE GetGlobalStringName(
  VAR name: ARRAY OF CHAR;  (* out *)
  VAR nameLength: CARDINAL; (* out *)
  index: CARDINAL)	    (* in *)
  : INTEGER;		    (* result >= 0 success else	error *)
  BEGIN
  END GetGlobalStringName;

(* ----------------------------------------------------------------------- *)
PROCEDURE XSetGlobalString(
  envName: ARRAY OF CHAR;   (* in *)
  envValue: ARRAY OF CHAR); (* in *)
  BEGIN
  END XSetGlobalString;

(* ----------------------------------------------------------------------- *)
PROCEDURE XGetGlobalString(
  VAR envValue:	ARRAY OF CHAR; (* out *)
  envName : ARRAY OF CHAR)     (* in *)
  : CARDINAL;		       (* result = envValueLength *)
  BEGIN
  END XGetGlobalString;

(* ----------------------------------------------------------------------- *)
PROCEDURE XDeleteGlobalString(name: ARRAY OF CHAR); (* in *)
  BEGIN
  END XDeleteGlobalString;

(* ----------------------------------------------------------------------- *)
PROCEDURE XGetGlobalStringName(
  VAR name: ARRAY OF CHAR; (* out *)
  index: CARDINAL)	   (* in *)
  : CARDINAL;		   (* result nameLength	*)
  BEGIN
  END XGetGlobalStringName;

END GlobalString.