DefaultRemoteNames.mesa
Copyright © 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
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]<Cedar5.1>"
previous: ROPE, -- root directory of last release, as in "[Indigo]<Cedar>"
registry: ROPE -- user's default Grapevine registry (as in "PA" for Palo Alto)
];
Get: PROC RETURNS [DefaultNames];
Gets the current default names.
Set: PROC [new: DefaultNames];
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.
END.
Russ Atkinson (RRA) February 4, 1985 2:10:03 pm PST
added registry component to DefaultNamesRep