PrinterDefaultRemoteNamesImpl.mesa
Copyright © 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
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]<Cedar6.1>",
previous: "[Cedar]<Cedar6.0>",
registry: "pa",
printerHost: "[Printer]",
fontHost: "[Fonts]",
currentSystem: "[Printer]<CedarRaven>",
currentFont: "[Fonts]<CedarRaven>",
printerType: "Raven"
]];
currentState: PrinterDefaultNames ← initState;
Get:
PUBLIC
ENTRY PROC
RETURNS [PrinterDefaultNames] = {
Gets the current default names.
RETURN [currentState];
};
Set:
PUBLIC
ENTRY PROC [new: PrinterDefaultNames] = {
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.
IF new = NIL THEN currentState ← initState ELSE currentState ← new;
};
END.