DIRECTORY DefaultRemoteNames, Rope USING [ROPE]; DefaultRemoteNamesImpl: CEDAR MONITOR EXPORTS DefaultRemoteNames = BEGIN OPEN Rope; DefaultNames: TYPE = DefaultRemoteNames.DefaultNames; DefaultNamesRep: TYPE = DefaultRemoteNames.DefaultNamesRep; initState: DefaultNames _ NEW[DefaultNamesRep _ [ systemHost: "[Cedar]", userHost: "[User]", current: "[Cedar]", previous: "[Cedar]", registry: "pa" ]]; currentState: DefaultNames _ initState; Get: PUBLIC ENTRY PROC RETURNS [DefaultNames] = { RETURN [currentState]; }; Set: PUBLIC ENTRY PROC [new: DefaultNames] = { IF new = NIL THEN currentState _ initState ELSE currentState _ new; }; END. xDefaultRemoteNamesImpl.mesa Copyright c 1984, 1985, 1986 by Xerox Corporation. All rights reserved. Russ Atkinson, February 4, 1985 2:16:42 pm PST Doug Wyatt, June 10, 1986 5:46:41 pm PDT 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. ΚF˜codešœ™Kšœ Οmœ=™HKšœ.™.K™(—K˜šΟk ˜ Kšœ˜Kšœžœžœ˜—K˜šΟnœžœž˜%Kšžœ˜Kšœž œž˜—K˜Kšœžœ#˜5Kšœžœ&˜;K˜šœžœ˜1Kšœ˜Kšœ˜K˜K˜K˜Kšœ˜—Kšœ'˜'K˜šŸœžœž œžœ˜1Kšœ™Kšžœ˜K˜—K˜šŸœžœž œ˜.Kšœ“™“Kšžœžœžœžœ˜CK˜—K˜Kšžœ˜K˜—…—œZ