DIRECTORY Rope USING [ROPE]; PrinterDefaultRemoteNames: 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]" previous: ROPE, -- root directory of last release, as in "[Indigo]" registry: ROPE, -- user's default Grapevine registry (as in "PA" for Palo Alto) printerHost: ROPE, -- host name, including brackets, as in "[Printer]" fontHost: ROPE, -- host name for users, including brackets, as in "[Fonts]" currentSystem: ROPE, -- system root directory, including host, as in "[Printer]" currentFont: ROPE, -- font root directory, including host, as in "[Fonts]" printerType: ROPE -- printer type as in "Raven" ]; Get: PROC RETURNS [DefaultNames]; Set: PROC [new: DefaultNames]; END. 0PrinterDefaultRemoteNames.mesa Copyright c 1985, 1986 by Xerox Corporation. All rights reserved. Bob Hagmann February 4, 1985 10:54:12 am PST Russ Atkinson, February 4, 1985 2:09:57 pm PST Doug Wyatt, February 27, 1985 10:43:15 am PST Tim Diebert: July 8, 1986 9:00:51 am 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. Russ Atkinson (RRA) February 4, 1985 2:10:03 pm PST added registry component to DefaultNamesRep Κ•˜codešœ™Kšœ Οmœ7™BK™,Kšœ.™.K™-K™(—K˜šΟk ˜ Kšœžœžœ˜—K˜KšΠblœžœž ˜,šœž˜K˜Kšžœžœžœ˜K˜Kšœžœžœ˜)šœžœžœ˜ Kšœ žœΟc2˜DKšœ žœ 9˜IKšœ žœ D˜SKšœ žœ :˜JKšœ žœ ?˜OKšœ žœ 3˜FKšœ žœ ;˜KKšœžœ G˜\Kšœ žœ C˜VKšœ žœ ˜/K˜—K˜šΟnœžœžœ˜!Kšœ™—K˜š‘œžœ˜KšœX™XKšœ žœ-™9—K˜—šžœ˜K˜™3Kšœ+™+——K™—…—όΑ