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]" registry: ROPE -- user's default Grapevine registry (as in "PA" for Palo Alto) ]; Get: PROC RETURNS [DefaultNames]; Set: PROC [new: DefaultNames]; END. ϊDefaultRemoteNames.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Bob Hagmann February 4, 1985 10:54:12 am PST Russ Atkinson, February 4, 1985 2:09:57 pm PST Doug Wyatt, February 27, 1985 10:43:15 am PST 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. Russ Atkinson (RRA) February 4, 1985 2:10:03 pm PST added registry component to DefaultNamesRep ΚQ˜codešœ™Kšœ Οmœ1™