[Cyan]<Cedar6.0>RPC>LupineManager.mesa!3

LupineManager.mesa.

Last edited by BZM on 2-May-82 22:48:33.

Last Edited by: Birrell, September 13, 1983 4:08 pm

Last Edited by: Swinehart, July 3, 1984 1:49:26 pm PDT

Bob Hagmann February 8, 1985 4:58:07 pm PST

DIRECTORY

FS USING [OpenFile, nullOpenFile],

Rope USING [ROPE];

LupineManager: DEFINITIONS = BEGIN

These string definitions are used for easy SDD compatibility.

String: TYPE = Rope.ROPE ← StringNIL;

StringNIL: String = NIL; -- Explicit nonNIL constant needed for INLINEs.

TranslateRemoteInterface is the procedural access to Lupine.

It is not reentrant, and is monitored to enforce serial access.

If interfaceBcdCapability is specified, then it is used in

preference to interfaceBcdFilename. But interfaceBcdFilename

must always be specified for error reporting.

All errors are reported through the errorHandler procedure.

TranslateRemoteInterface: PROCEDURE [

interfaceBcdFilename: String --Truth if capability is null, else just for error messages--,

interfaceBcdCapability: FS.OpenFile ← FS.nullOpenFile,

errorHandler: ErrorHandlerProc,

options: Options,

desiredLineLength: LONG INTEGER ← 82 ];

Options: TYPE = REF OptionsRec;

OptionsRec: TYPE = RECORD [

targetLanguage: Language ← Cedar,

defaultParamPassing: ParamPassingMethod ← Value,

freeServerArguments: BOOLEAN ← TRUE,

inlineServerDispatcherStubs: BOOLEAN ← TRUE,

inlineMarshal: BOOLEAN ← TRUE,

inlinePacketAllocateCount: INT ← 1000,

inlineRopeMarshal: BOOLEAN ← TRUE,

maxHeapAllocations, maxMdsAllocations: LONG INTEGER ← 50,

declareSignals: BOOLEAN ← TRUE,

warnMDSAllocs: BOOLEAN ← TRUE,

importMultiple: BOOLEAN ← TRUE,

noClientModulesOut: INT ← 1];

Language: TYPE = {Cedar, Mesa};

ParamPassingMethod: TYPE = {Var, Value, Result, Handle, InterMds};

ErrorHandlerProc is called so that clients can see and act on each

translation error. The problemCausingText argument usually contains the

the source text in which the error was located (e.g., bad file name,

invalid procedure name, unmarshalable type). Even when problemCausingText

is NIL, however, the generated stub files contain full error descriptions

as comments. If type=abort, abortTranslation is always forced to be TRUE.

The outputFileName and outputFilePosition arguments tell where the error

occurred. For errors found before code generation starts, outputFileName=NIL.

ErrorHandlerProc must behave since a monitor lock is held during the call.

ErrorHandlerProc: TYPE = --INTERNAL-- PROCEDURE [

type: ErrorType,

code: ErrorCode,

codeExplanation: String,

outputFileName: String←StringNIL,

outputFileCharPosition: LONG INTEGER,

problemCausingText: String←StringNIL ]

RETURNS [abortTranslation: BOOLEAN←FALSE];

ErrorType: TYPE = {abort, error, warning};

ErrorCode: TYPE = {

AnonymousIdentifier,

BadBcdFileFormat, BadBcdFileVersion,

ComputedSequence, ComputedVariant,

EmbeddedRESULT,

EmptyArray,

HandleREF,

ImproperPassingMethod, ImproperReadonlyRESULT, ImproperRESULTResult,

InterfaceVariables,

InvalidHandle,

MdsAllocation,

NoSuchFile,

NotInterfaceModule,

ProbablePointerRecursion,

SequenceInsideVariant,

ShortInterMdsPointers,

TransferParameter,

UnimplementedMarshaling,

Unknown,

UnsupportedTransfers };

END. -- LupineManager.