DIRECTORY
Rope,
Arpa,
UT,
SunRPCAuth,
SunRPC;

LB: CEDAR DEFINITIONS =
BEGIN

ROPE: TYPE = Rope.ROPE;


ReturnCodes: TYPE = MACHINE DEPENDENT {
iluSuccess(0),
iluECantExportService(1),
EError(2)
};

ReturnCodesNames: READONLY ARRAY ReturnCodes OF ROPE;

LocRoom: TYPE = ROPE;

LocXYZ: TYPE = RECORD [
x: DREAL,
y: DREAL,
z: DREAL
];

LocationDescriminationValues: TYPE = MACHINE DEPENDENT {
LocationVLocRoom(0),
LocationVLocXYZ(1)
};

LocationDescriminationValuesNames: READONLY ARRAY LocationDescriminationValues OF ROPE;

Location: TYPE = REF LocationObject;
LocationObject: TYPE = RECORD [
union: SELECT descriminator: LocationDescriminationValues FROM
LocationVLocRoom => [vLocRoom: ROPE],
LocationVLocXYZ => [vLocXYZ: LocXYZ],
ENDCASE];

Sphere: TYPE = RECORD [
center: LocXYZ,
radius: DREAL
];

BasicVolumeDescriminationValues: TYPE = MACHINE DEPENDENT {
BasicVolumeVLocRoom(0),
BasicVolumeVSphere(1)
};

BasicVolumeDescriminationValuesNames: READONLY ARRAY BasicVolumeDescriminationValues OF ROPE;

BasicVolume: TYPE = REF BasicVolumeObject;
BasicVolumeObject: TYPE = RECORD [
union: SELECT descriminator: BasicVolumeDescriminationValues FROM
BasicVolumeVLocRoom => [vLocRoom: ROPE],
BasicVolumeVSphere => [vSphere: Sphere],
ENDCASE];

Volume: TYPE = SeqType0;

SeqType0: TYPE = REF SeqType0Object;
SeqType0Object: TYPE = RECORD [SEQUENCE size: [0..LAST[INT32]) OF BasicVolume];

LocatedObject: TYPE = RECORD [
o: UT.Objct,
l: Location
];

LocatedObjectSet: TYPE = SeqType1;

SeqType1: TYPE = REF SeqType1Object;
SeqType1Object: TYPE = RECORD [SEQUENCE size: [0..LAST[INT32]) OF LocatedObject];

ChangeOperation: TYPE = MACHINE DEPENDENT {
Add(0),
Delete(1)
};

ChangeOperationNames: READONLY ARRAY ChangeOperation OF ROPE;

ErrorType: TYPE = MACHINE DEPENDENT {
BadLoc(0),
BadObject(1),
BadCallback(2),
BadRoom(3),
BadRock(4),
NotDescendantLoc(5),
NotCompositeLoc(6)
};

ErrorTypeNames: READONLY ARRAY ErrorType OF ROPE;

Simple: TYPE = ROPE;

String: TYPE = ROPE;

T: TYPE = SeqType2;

SeqType2: TYPE = REF SeqType2Object;
SeqType2Object: TYPE = RECORD [SEQUENCE size: [0..LAST[INT32]) OF String];

Set: TYPE = SeqType3;

SeqType3: TYPE = REF SeqType3Object;
SeqType3Object: TYPE = RECORD [SEQUENCE size: [0..LAST[INT32]) OF T];

Atomic: TYPE = ROPE;

Distance: TYPE = DREAL;

Step: TYPE = RECORD [
d: Distance,
to: ROPE
];

StepSeq: TYPE = SeqType4;

SeqType4: TYPE = REF SeqType4Object;
SeqType4Object: TYPE = RECORD [SEQUENCE size: [0..LAST[INT32]) OF Step];

Path: TYPE = RECORD [
frm: ROPE,
d: Distance,
steps: StepSeq
];

PathSet: TYPE = SeqType5;

SeqType5: TYPE = REF SeqType5Object;
SeqType5Object: TYPE = RECORD [SEQUENCE size: [0..LAST[INT32]) OF Path];

PathSolution: TYPE = RECORD [
dmin: Distance,
dmax: Distance,
ps: PathSet
];

Nearest: TYPE = RECORD [
to: T,
paths: PathSolution
];

Nearests: TYPE = SeqType6;

SeqType6: TYPE = REF SeqType6Object;
SeqType6Object: TYPE = RECORD [SEQUENCE size: [0..LAST[INT32]) OF Nearest];

AtLocargs: TYPE = RECORD [
o: UT.Objct,
loc: Location
];

AtLocreturn: TYPE = REF AtLocreturnObject;
AtLocreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [],
iluECantExportService => [],
ENDCASE];

RemoveObjectargs: TYPE = RECORD [
o: UT.Objct
];

RemoveObjectreturn: TYPE = REF RemoveObjectreturnObject;
RemoveObjectreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [returnValue: CARD32],
iluECantExportService => [],
ENDCASE];

FindObjectsargs: TYPE = RECORD [
locs: Volume,
types: UT.ObjectTypeSet
];

FindObjectsreturn: TYPE = REF FindObjectsreturnObject;
FindObjectsreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [returnValue: LocatedObjectSet],
iluECantExportService => [],
ENDCASE];

NotifyOfObjectsargs: TYPE = RECORD [
locs: Volume,
types: UT.ObjectTypeSet,
who: ROPE,
rock: UT.OPAQUE
];

NotifyOfObjectsreturn: TYPE = REF NotifyOfObjectsreturnObject;
NotifyOfObjectsreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [],
iluECantExportService => [],
ENDCASE];

RemoveObjectCallbackargs: TYPE = RECORD [
who: ROPE,
rock: UT.OPAQUE
];

RemoveObjectCallbackreturn: TYPE = REF RemoveObjectCallbackreturnObject;
RemoveObjectCallbackreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [],
iluECantExportService => [],
ENDCASE];

Parentargs: TYPE = RECORD [
l: ROPE
];

Parentreturn: TYPE = REF ParentreturnObject;
ParentreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [returnValue: ROPE],
iluECantExportService => [],
ENDCASE];

Childrenargs: TYPE = RECORD [
l: ROPE
];

Childrenreturn: TYPE = REF ChildrenreturnObject;
ChildrenreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [returnValue: Set],
iluECantExportService => [],
ENDCASE];

ShortestPathsargs: TYPE = RECORD [
frm: T,
to: T,
wantPaths: CARD32
];

ShortestPathsreturn: TYPE = REF ShortestPathsreturnObject;
ShortestPathsreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [returnValue: PathSolution],
iluECantExportService => [],
ENDCASE];

FindNearestsargs: TYPE = RECORD [
frm: T,
to: Set,
wantPaths: CARD32
];

FindNearestsreturn: TYPE = REF FindNearestsreturnObject;
FindNearestsreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [returnValue: Nearests],
iluECantExportService => [],
ENDCASE];

FindNearestsOfKindargs: TYPE = RECORD [
frm: T,
kind: ROPE,
description: UT.ObjectDescription,
wantPaths: CARD32
];

FindNearestsOfKindreturn: TYPE = REF FindNearestsOfKindreturnObject;
FindNearestsOfKindreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [returnValue: Nearests],
iluECantExportService => [],
ENDCASE];

LBPrognum: CARDINAL = 822083614;

version1: CARDINAL = 1;

servernoopProc: TYPE = PROC[o: LB1];
atlocProc: TYPE = PROC[o0: LB1,
o: UT.Objct,
loc: Location]
RETURNS [res: AtLocreturn];
removeobjectProc: TYPE = PROC[o0: LB1,
o: UT.Objct]
RETURNS [res: RemoveObjectreturn];
findobjectsProc: TYPE = PROC[o: LB1,
locs: Volume,
types: UT.ObjectTypeSet]
RETURNS [res: FindObjectsreturn];
notifyofobjectsProc: TYPE = PROC[o: LB1,
locs: Volume,
types: UT.ObjectTypeSet,
who: ROPE,
rock: UT.OPAQUE]
RETURNS [res: NotifyOfObjectsreturn];
removeobjectcallbackProc: TYPE = PROC[o: LB1,
who: ROPE,
rock: UT.OPAQUE]
RETURNS [res: RemoveObjectCallbackreturn];
parentProc: TYPE = PROC[o: LB1,
l: ROPE]
RETURNS [res: Parentreturn];
childrenProc: TYPE = PROC[o: LB1,
l: ROPE]
RETURNS [res: Childrenreturn];
shortestpathsProc: TYPE = PROC[o: LB1,
frm: T,
to: T,
wantPaths: CARD32]
RETURNS [res: ShortestPathsreturn];
findnearestsProc: TYPE = PROC[o: LB1,
frm: T,
to: Set,
wantPaths: CARD32]
RETURNS [res: FindNearestsreturn];
findnearestsofkindProc: TYPE = PROC[o: LB1,
frm: T,
kind: ROPE,
description: UT.ObjectDescription,
wantPaths: CARD32]
RETURNS [res: FindNearestsOfKindreturn];

LB1: TYPE =  REF LB1Object;
LB1Object: TYPE = RECORD [
servernoop: servernoopProc,
atloc: atlocProc,
removeobject: removeobjectProc,
findobjects: findobjectsProc,
notifyofobjects: notifyofobjectsProc,
removeobjectcallback: removeobjectcallbackProc,
parent: parentProc,
children: childrenProc,
shortestpaths: shortestpathsProc,
findnearests: findnearestsProc,
findnearestsofkind: findnearestsofkindProc,
rpcHandle: SunRPC.Handle _ NIL,
rpcConversation: SunRPCAuth.Conversation _ NIL,
data: REF ANY _ NIL
];

MakeLB1Client: PROC[h: SunRPC.Handle,
c: SunRPCAuth.Conversation] RETURNS [LB1];
MakeLB1Server: PROC[
data: REF,
servernoop: servernoopProc,
atloc: atlocProc,
removeobject: removeobjectProc,
findobjects: findobjectsProc,
notifyofobjects: notifyofobjectsProc,
removeobjectcallback: removeobjectcallbackProc,
parent: parentProc,
children: childrenProc,
shortestpaths: shortestpathsProc,
findnearests: findnearestsProc,
findnearestsofkind: findnearestsofkindProc
] RETURNS [SunRPC.Server];


NotifyObjectsCallbackargs: TYPE = RECORD [
rock: UT.OPAQUE,
os: LocatedObjectSet,
change: ChangeOperation
];

NotifyObjectsCallbackreturn: TYPE = REF NotifyObjectsCallbackreturnObject;
NotifyObjectsCallbackreturnObject: TYPE = RECORD [
union: SELECT returnCode: ReturnCodes FROM
EError => [EErrorValue: ErrorType],
iluSuccess => [],
iluECantExportService => [],
ENDCASE];

callbacks: CARDINAL = 822083615;

callbacksversion1: CARDINAL = 1;

clientnoopProc: TYPE = PROC[o: callbacks1];
notifyobjectscallbackProc: TYPE = PROC[o: callbacks1,
rock: UT.OPAQUE,
os: LocatedObjectSet,
change: ChangeOperation]
RETURNS [res: NotifyObjectsCallbackreturn];

callbacks1: TYPE =  REF callbacks1Object;
callbacks1Object: TYPE = RECORD [
clientnoop: clientnoopProc,
notifyobjectscallback: notifyobjectscallbackProc,
rpcHandle: SunRPC.Handle _ NIL,
rpcConversation: SunRPCAuth.Conversation _ NIL,
data: REF ANY _ NIL
];

Makecallbacks1Client: PROC[h: SunRPC.Handle,
c: SunRPCAuth.Conversation] RETURNS [callbacks1];
Makecallbacks1Server: PROC[
data: REF,
clientnoop: clientnoopProc,
notifyobjectscallback: notifyobjectscallbackProc
] RETURNS [SunRPC.Server];


END.
R
LB.mesa
Please do not edit this file.
It was generated using CedarRPCGen.
�Êk•NewlineDelimiter

™J™J™J™#J˜š
Ïk	˜	J˜J˜Jš�œ
˜J˜J˜J˜—Jš�œ�œ
�œ˜Jš
�˜J˜Jš�œ�œ�œ
˜J˜J˜šœ
�œ�œ
�	œ˜'J˜J˜J˜	J˜J˜—Jš
Ïnœ�œ
�œ
�œ
�œ
˜5J˜Jšœ	�œ�œ
˜J˜šœ�œ�œ˜Jšœ�œ
˜	Jšœ�œ
˜	šœ�˜J˜J˜——šœ�œ�œ
�	œ˜8J˜J˜J˜J˜—Jš
ž!œ�œ
�œ�œ
�œ
˜WJ˜Jšœ
�œ�œ˜$šœ�œ�œ˜šœ�œ-�˜>Jšœ�œ˜%J˜%Jš�œ˜	J˜——šœ�œ�œ˜J˜šœ�˜
J˜J˜——šœ!�œ�œ
�	œ˜;J˜J˜J˜J˜—Jš
ž$œ�œ
�œ!�œ
�œ
˜]J˜Jšœ
�œ�œ˜*šœ�œ�œ˜"šœ�œ0�˜AJšœ"�œ˜(J˜(Jš�œ˜	J˜——Jšœ�œ˜J˜Jšœ
�œ�œ˜$Jš
œ�œ�œ�œ�œ
�œ�œ˜OJ˜šœ�œ�œ˜Jšœ�œ˜˜J˜J˜——Jšœ�œ˜"J˜Jšœ
�œ�œ˜$Jš
œ�œ�œ�œ�œ
�œ�œ˜QJ˜šœ�œ�œ
�	œ˜+J˜J˜	J˜J˜—Jš
žœ�œ
�œ�œ
�œ
˜=J˜šœ�œ�œ
�	œ˜%J˜
J˜
J˜J˜J˜J˜J˜J˜J˜—Jš
žœ�œ
�œ�œ
�œ
˜1J˜Jšœ�œ�œ
˜J˜Jšœ�œ�œ
˜J˜Jšœ�œ˜J˜Jšœ
�œ�œ˜$Jš
œ�œ�œ�œ�œ
�œ�œ	˜JJ˜Jšœ�œ˜J˜Jšœ
�œ�œ˜$Jš
œ�œ�œ�œ�œ
�œ�œ˜EJ˜Jšœ�œ�œ
˜J˜Jšœ
�œ�œ
˜J˜šœ�œ�œ˜J˜šœ�˜J˜J˜——Jšœ	�œ˜J˜Jšœ
�œ�œ˜$Jš
œ�œ�œ�œ�œ
�œ�œ˜HJ˜šœ�œ�œ˜Jšœ�œ
˜
J˜˜J˜J˜——Jšœ	�œ˜J˜Jšœ
�œ�œ˜$Jš
œ�œ�œ�œ�œ
�œ�œ˜HJ˜šœ�œ�œ˜J˜J˜˜J˜J˜——šœ	�œ�œ˜J˜˜J˜J˜——Jšœ
�œ˜J˜Jšœ
�œ�œ˜$Jš
œ�œ�œ�œ�œ
�œ�œ
˜KJ˜šœ�œ�œ˜Jšœ�œ˜˜
J˜J˜——Jšœ
�œ�œ˜*šœ�œ�œ˜"šœ�œ�˜*Jšœžœ
˜#J˜J˜Jš�œ˜	J˜——šœ�œ�œ˜!šœ�œ˜J˜J˜——Jšœ�œ�œ˜8šœ�œ�œ˜)šœ�œ�˜*Jšœžœ
˜#Jšœ�œ˜$J˜Jš�œ˜	J˜——šœ�œ�œ˜ J˜
šœ�œ˜J˜J˜——Jšœ�œ�œ˜6šœ�œ�œ˜(šœ�œ�˜*Jšœžœ
˜#J˜.J˜Jš�œ˜	J˜——šœ�œ�œ˜$J˜
Jšœ�œ˜Jšœ�œ
˜
šœ�œ
�˜J˜J˜——Jšœ�œ�œ˜>šœ�œ�œ˜,šœ�œ�˜*Jšœžœ
˜#J˜J˜Jš�œ˜	J˜——šœ�œ�œ˜)Jšœ�œ
˜
šœ�œ
�˜J˜J˜——Jšœ�œ�œ"˜Hšœ"�œ�œ˜1šœ�œ�˜*Jšœžœ
˜#J˜J˜Jš�œ˜	J˜——šœ�œ�œ˜šœ�˜J˜J˜——Jšœ�œ�œ˜,šœ�œ�œ˜#šœ�œ�˜*Jšœžœ
˜#Jšœ�œ˜"J˜Jš�œ˜	J˜——šœ�œ�œ˜šœ�˜J˜J˜——Jšœ�œ�œ˜0šœ�œ�œ˜%šœ�œ�˜*Jšœžœ
˜#J˜!J˜Jš�œ˜	J˜——šœ�œ�œ˜"J˜J˜šœ�˜J˜J˜——Jšœ�œ�œ˜:šœ�œ�œ˜*šœ�œ�˜*Jšœžœ
˜#J˜*J˜Jš�œ˜	J˜——šœ�œ�œ˜!J˜J˜šœ�˜J˜J˜——Jšœ�œ�œ˜8šœ�œ�œ˜)šœ�œ�˜*Jšœžœ
˜#J˜&J˜Jš�œ˜	J˜——šœ�œ�œ˜'J˜Jšœ�œ
˜Jšœ
�œ˜"šœ�˜J˜J˜——Jšœ�œ�œ ˜Dšœ �œ�œ˜/šœ�œ�˜*Jšœžœ
˜#J˜&J˜Jš�œ˜	J˜——Jšž	œ�œ
˜ J˜Jšœ
�œ˜J˜Jšœ�œ�œ�œ˜$šœ�œ�œ�œ
˜Jšœ�œ˜J˜Jš�œ˜—šœ�œ�œ�œ
˜&Jšœ�œ˜Jš�œ˜"—šœ�œ�œ�œ
˜$J˜
Jšœ�œ˜Jš�œ˜!—šœ�œ�œ�œ
˜(J˜
Jšœ�œ˜Jšœ�œ
˜
Jšœ�œ
�œ
˜Jš�œ˜%—šœ�œ�œ�œ
˜-Jšœ�œ
˜
Jšœ�œ
�œ
˜Jš�œ#˜*—šœ�œ�œ�œ
˜Jšœ�œ
˜Jš�œ˜—šœ�œ�œ�œ
˜!Jšœ�œ
˜Jš�œ˜—šœ�œ�œ�œ
˜&J˜J˜Jšœ�œ
˜Jš�œ˜#—šœ�œ�œ�œ
˜%J˜J˜Jšœ�œ
˜Jš�œ˜"—šœ�œ�œ�œ
˜+J˜Jšœ�œ
˜Jšœ
�œ˜"Jšœ�œ
˜Jš�œ!˜(J˜—Jš�œ�œ�œ˜šœ�œ�œ˜J˜J˜J˜J˜J˜%J˜/J˜J˜J˜!J˜J˜+Jšœ�œ
˜Jšœ+�œ
˜/Jšœ�œ
�œ�˜J˜J˜—šž
œ�œ˜%Jšœ�œ�œ˜*—šž
œ�œ
˜Jšœ�œ
˜
J˜J˜J˜J˜J˜%J˜/J˜J˜J˜!J˜J˜*Jšœ�œ˜J˜J˜—šœ�œ�œ˜*Jšœ�œ
�œ
˜J˜˜J˜J˜——Jšœ�œ�œ#˜Jšœ#�œ�œ˜2šœ�œ�˜*Jšœžœ
˜#J˜J˜Jš�œ˜	J˜——Jšœ�œ
˜ J˜Jšœ�œ˜ J˜Jšœ�œ�œ˜+šœ�œ�œ˜5Jšœ�œ
�œ
˜J˜J˜Jš�œ$˜+J˜—Jšœ�œ�œ˜)šœ�œ�œ˜!J˜J˜1Jšœ�œ
˜Jšœ+�œ
˜/Jšœ�œ
�œ�˜J˜J˜—šžœ�œ˜,Jšœ�œ˜1—šžœ�œ
˜Jšœ�œ
˜
J˜J˜0Jšœ�œ˜J˜J˜—Jš�œ
˜—…—%3Å