<> <> <> <> <> 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.