UnixEnvironImpl.mesa
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
Willie-s, January 19, 1993 12:21 pm PST
DIRECTORY
CStrings USING [CString],
Rope USING [ROPE],
UnixEnviron USING [],
UXEnviron,
UXStrings;
ROPE access to unix environment variables.
UnixEnvironImpl:
CEDAR
PROGRAM
IMPORTS UXEnviron, UXStrings
EXPORTS UnixEnviron
= BEGIN
ROPE: TYPE ~ Rope.ROPE;
Procedures.
GetEnv:
PUBLIC
PROC [ name:
ROPE ]
RETURNS [ value:
ROPE ] ~ {
RETURN[UXStrings.ToRope[UXEnviron.GetEnv[UXStrings.Create[name] ]]];
};
END.