<<>> <> <> <> DIRECTORY CStrings USING [CString], Rope USING [ROPE], UnixEnviron USING [], UXEnviron, UXStrings; <<>> <> <<>> UnixEnvironImpl: CEDAR PROGRAM IMPORTS UXEnviron, UXStrings EXPORTS UnixEnviron = BEGIN ROPE: TYPE ~ Rope.ROPE; <> GetEnv: PUBLIC PROC [ name: ROPE ] RETURNS [ value: ROPE ] ~ { RETURN[UXStrings.ToRope[UXEnviron.GetEnv[UXStrings.Create[name] ]]]; }; END.