DIRECTORY CStrings USING [ CString ]; UXEnviron: CEDAR DEFINITIONS ~ { CString: TYPE ~ CStrings.CString; FindEnv: PROC [ name: CString, offset: INT32 ] RETURNS [ value: CString ] ~ TRUSTED MACHINE CODE { "XR_findenv" }; 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" }; }. Ά UXEnviron.mesa 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 char *XR_findenv(/* 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; */ ΚŒ•NewlineDelimiter –(cedarcode) style™™Icodešœ Οeœ7™BK™-K™$J™—šΟk ˜ Kšœ žœ ˜K˜—šΟn œžœž œ˜ K˜Kšœ žœ˜!K˜Kš ΠizœΠbkΟbœ œ œ œ ™MKš œ‘’œ œ ™.Kš  œ‘’œ! œ œ œ ™ZKš œ‘’ œ œ ™/K˜KšŸœžœžœžœžœžœžœ˜rK˜Kš Ÿœžœžœžœžœžœ˜aK˜KšŸœžœ+žœžœžœžœžœžœ˜{K˜Kš Ÿœžœžœžœžœ˜JK˜K˜K˜——…—T