DIRECTORY InstallationSupportPrivate, MesaLoadState USING [InstallationProblem], IO USING [STREAM], Rope USING [ROPE]; InstallationComforts: CEDAR DEFINITIONS ~ { InterfaceFromConfig: PROCEDURE [ interfaceName: Rope.ROPE, context: InstallationSupportPrivate.Config ¬ NIL ] RETURNS [InstallationSupportPrivate.Interface]; ChildProgramFromConfig: PROCEDURE [ programName: Rope.ROPE, context: InstallationSupportPrivate.Config ¬ NIL ] RETURNS [InstallationSupportPrivate.Program]; ChildConfigFromConfig: PROCEDURE [ configName: Rope.ROPE, context: InstallationSupportPrivate.Config ¬ NIL ] RETURNS [InstallationSupportPrivate.Config]; ProcFromInterface: PROCEDURE [ interface: InstallationSupportPrivate.Interface, procName: Rope.ROPE] RETURNS [PROCEDURE ANY RETURNS ANY]; ProcFromNamedInterface: PROCEDURE [ interfaceName: Rope.ROPE, procName: Rope.ROPE, context: InstallationSupportPrivate.Config ¬ NIL ] RETURNS [PROCEDURE ANY RETURNS ANY]; ProcName: PROCEDURE [p: PROCEDURE ANY RETURNS ANY] RETURNS [Rope.ROPE]; ModuleName: PROCEDURE [p: PROCEDURE ANY RETURNS ANY] RETURNS [Rope.ROPE]; PutProblems: PROC[ s: IO.STREAM, problems: LIST OF MesaLoadState.InstallationProblem ]; }. € InstallationComforts.mesa Copyright Σ 1990, 1991, 1992 by Xerox Corporation. All rights reserved. Chauser, July 16, 1991 9:37 am PDT Peter B. Kessler, May 24, 1990 2:24 pm PDT Willie-s, August 7, 1991 4:20 pm PDT A collection of handy procedures for trekking around the mesa load state from mesa. All these procedures that take a context argument accept NIL as meaning the global scope (the "outermost config" sometimes called the "virtual config") Returns a "best guess" as to the module name and procedure name for a mesa procedure. Returns a "best guess" as to the module name for a mesa procedure. formats the list of problems onto the stream in a pretty way Κ–(cedarcode) style•NewlineDelimiter ™codešœ™Kšœ Οeœ=™HK™"K™*K™$K™KšœS™SK™šΟk ˜ Kšœ˜Kšœžœ˜*Kšžœžœžœ˜Kšœžœžœ˜K˜——unitšΠlnœžœž œ˜+K˜K™—K™š Οnœž œžœ0žœžœ(˜ŸK˜—š  œž œžœ0žœžœ&˜žK˜—š  œž œžœ0žœžœ%˜›K˜—š œž œDžœžœž œžœžœžœ˜‹K˜—š œž œžœžœ0žœžœž œžœžœžœ˜­K˜—š œž œž œžœžœžœžœžœ˜HK™UK˜—š  œž œž œžœžœžœžœžœ˜JK™BK™—š   œžœžœžœ žœžœ%˜WK™<—K™L˜——…—° [