DIRECTORY Rope USING [ROPE]; DefaultRemoteNames: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; DefaultNames: TYPE = REF DefaultNamesRep; DefaultNamesRep: TYPE = RECORD [ systemHost: ROPE, -- host name, including brackets, as in "[Indigo]" userHost: ROPE, -- host name for users, including brackets, as in "[Ivy]" current: ROPE, -- system root directory, including host, as in "[Indigo]" previous: ROPE -- root directory of last release, as in "[Indigo]" ]; Get: PROC RETURNS [DefaultNames]; Set: PROC [new: DefaultNames]; END. úDefaultRemoteNames.mesa Russ Atkinson, January 10, 1984 5:27 pm Gets the current default names. No error checking is performed, so the caller is presumed to be both honest and careful. If new = NIL, the defaults are rest to the initial state. Ê ˜šœ™Jšœ'™'—J˜šÏk ˜ Jšœœœ˜—J˜Jšœœ œ˜-J˜Jšœœœ˜J˜Jšœœœ˜)šœœœ˜ Jšœ œÏc2˜DJšœ œž9˜JJšœ œžD˜TJšœ œž:˜JJ˜—J˜šÏnœœœ˜!Jšœ™—J˜šŸœœ˜Jšœ“™“—J˜Jšœ˜J˜—…—05