DefaultRemoteNames.mesa
Russ Atkinson, January 10, 1984 5:27 pm
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>"
];
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.