DIRECTORY PrinterDefaultRemoteNames, Rope USING [ROPE]; PrinterDefaultRemoteNamesImpl: CEDAR MONITOR EXPORTS PrinterDefaultRemoteNames = BEGIN OPEN Rope; PrinterDefaultNames: TYPE = PrinterDefaultRemoteNames.DefaultNames; PrinterDefaultNamesRep: TYPE = PrinterDefaultRemoteNames.DefaultNamesRep; initState: PrinterDefaultNames _ NEW[PrinterDefaultNamesRep _ [ systemHost: "[Cedar]", userHost: "[User]", current: "[Cedar]", previous: "[Cedar]", registry: "pa", printerHost: "[Printer]", fontHost: "[Fonts]", currentSystem: "[Printer]", currentFont: "[Fonts]", printerType: "Raven" ]]; currentState: PrinterDefaultNames _ initState; Get: PUBLIC ENTRY PROC RETURNS [PrinterDefaultNames] = { RETURN [currentState]; }; Set: PUBLIC ENTRY PROC [new: PrinterDefaultNames] = { IF new = NIL THEN currentState _ initState ELSE currentState _ new; }; END. ¨PrinterDefaultRemoteNamesImpl.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 Tim Diebert: July 24, 1986 3:38:59 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. Κl˜codešœ"™"Kšœ Οmœ=™HKšœ.™.K™(K™)—K˜šΟk ˜ Kšœ˜Kšœžœžœ˜—K˜šΟnœžœž˜,Kšžœ˜!Kšœž œž˜—K˜Kšœžœ*˜CKšœžœ-˜IK˜šœ!žœ˜?Kšœ˜Kšœ˜K˜K˜K˜Kšœ˜Kšœ˜Kšœ'˜'Kšœ#˜#Kšœ˜Kšœ˜—Kšœ.˜.K˜šŸœžœž œžœ˜8Kšœ™Kšžœ˜K˜—K˜šŸœžœž œ˜5Kšœ“™“Kšžœžœžœžœ˜CK˜—K˜Kšžœ˜K˜—…—‚–