Copyright Ó 1989, 1991 by Xerox Corporation. All rights reserved.

Bill Jackson (bj) June 3, 1989 0:14:11 am PDT

Willie-s, August 8, 1991 2:47 pm PDT

CStrings USING [ CString ];

CString: TYPE ~ CStrings.CString;

char *XR𡤏indenv(/* name, offset */); /* register char *name; int *offset; */

char *XR←getenv(/* name */); /* char *name; */

int XR←setenv(/* name, value, rewrite */); /* register char *name, *value; int rewrite; */

void XR←unsetenv(/* name */); /* char *name; */

FindEnv: PROC [ name: CString, offset: INT32 ] RETURNS [ value: CString ] ~
TRUSTED MACHINE CODE { "XR𡤏indenv" };

GetEnv: PROC [ name: CString ] RETURNS [ value: CString ] ~
TRUSTED MACHINE CODE { "XR←getenv" };

SetEnv: PROC [ name: CString, value: CString, rewrite: BOOL ] RETURNS [ new: BOOL ] ~
TRUSTED MACHINE CODE { "XR←setenv" };

UnsetEnv: PROC [ name: CString ] ~
TRUSTED MACHINE CODE { "XR←unsetenv" };

}.