-- Copyright (C) 1987 by Xerox Corporation. All rights reserved. -- Stub file was translated on March 25, 1987 3:05:16 pm PST by Lupine of January 22, 1987 5:37:32 pm PST -- Source interface AlpineDebug came from file AlpineDebug.bcd, which was created on March 25, 1987 12:09:55 pm PST with version stamp 253#315#12234636614 from source of March 7, 1985 2:08:38 pm PST. -- The RPC stub modules for AlpineDebug are: -- AlpineDebugRpcControl.mesa; -- AlpineDebugRpcClientImpl.mesa; -- AlpineDebugRpcBinderImpl.mesa; -- AlpineDebugRpcServerImpl.mesa. -- The parameters for this translation are: -- Target language = Cedar -- Default parameter passing = VALUE -- Deallocate server heap arguments = TRUE -- Inline RpcServerImpl dispatcher stubs = FALSE -- Declare signals = FALSE -- Warn about short POINTER ("MDS") allocations = TRUE -- Maximum number of dynamic heap NEWs = 50, MDS NEWs = 50 -- Acceptable parameter protocols = VersionRange[1..1]. DIRECTORY AlpineEnvironment, AlpineDebug, AlpineDebugRpcControl USING [InterMdsCallsOnly, LupineProtocolVersion, ProcedureIndex, SignalIndex], RPC USING [EncryptionKey, InterfaceName, Principal, standardZones, Zones], RPCLupine --USING SOME OF [Call, DataLength, Dispatcher, ExportHandle, -- ExportInterface, GetStubPkt, maxDataLength, maxPrincipalLength, -- maxShortStringLength, pktOverhead, ReceiveExtraPkt, SendPrelimPkt, -- StartCall, StartSignal, StubPkt, UnexportInterface]--, LupineRuntime --USING SOME OF [BindingError, CheckPktLength, CopyFromPkt, -- CopyFromMultiplePkts, CopyToPkt, CopyToMultiplePkts, defaultZones, -- DispatchingError, FinishThisPkt, ListHeader, MarshalingError, -- MarshalingExprError, MarshalAtom, MarshalRope, NilHeader, ProtocolError, -- RopeHeader, RpcPktDoubleWord, RuntimeError, SequenceHeader, SHORT, -- StartNextPkt, StringHeader, StubPktDoubleWord, TranslationError, -- UnmarshalingError, UnmarshalingExprError, UnmarshalAtom, UnmarshalRope, -- WordsForChars]--, Atom --USING SOME OF [GetPName, MakeAtom]--, Rope --USING SOME OF [InlineFlatten, Length, NewText, Text]--; AlpineDebugRpcServerImpl: MONITOR IMPORTS AlpineDebug, RpcPrivate: RPCLupine, Lupine: LupineRuntime, Atom, Rope EXPORTS AlpineDebugRpcControl SHARES AlpineDebug, AlpineDebugRpcControl, Rope = BEGIN OPEN AlpineDebug, RpcControl: AlpineDebugRpcControl, RpcPublic: RPC; -- Standard remote binding routines. bound: BOOLEAN ← FALSE; myInterface: RpcPrivate.ExportHandle; paramZones: RpcPublic.Zones ← RpcPublic.standardZones; ExportInterface: PUBLIC ENTRY SAFE PROCEDURE [ interfaceName: RpcPublic.InterfaceName, user: RpcPublic.Principal, password: RpcPublic.EncryptionKey, parameterStorage: RpcPublic.Zones ] = TRUSTED BEGIN ENABLE UNWIND => NULL; IsNull: PROCEDURE [string: Rope.ROPE] RETURNS [BOOLEAN] = INLINE {RETURN[string.Length[] = 0]}; IF bound THEN Lupine.BindingError; myInterface ← RpcPrivate.ExportInterface [ interface: [ type: IF ~IsNull[interfaceName.type] THEN interfaceName.type ELSE "AlpineDebug~253#315#12234636614", instance: interfaceName.instance, version: interfaceName.version ], user: user, password: password, dispatcher: ServerDispatcher, localOnly: RpcControl.InterMdsCallsOnly, stubProtocol: RpcControl.LupineProtocolVersion ]; paramZones ← [ gc: IF parameterStorage.gc # NIL THEN parameterStorage.gc ELSE Lupine.defaultZones.gc, heap: IF parameterStorage.heap # NIL THEN parameterStorage.heap ELSE Lupine.defaultZones.heap, mds: IF parameterStorage.mds # NIL THEN parameterStorage.mds ELSE Lupine.defaultZones.mds ]; bound ← TRUE; END; UnexportInterface: PUBLIC ENTRY SAFE PROCEDURE = TRUSTED BEGIN ENABLE UNWIND => NULL; IF ~bound THEN Lupine.BindingError; myInterface ← RpcPrivate.UnexportInterface[myInterface]; paramZones ← RpcPublic.standardZones; bound ← FALSE; END; -- Public procedure dispatcher and public signal and error catcher. ServerDispatcher: --PROCEDURE [pkt: RPCPkt, callLength: DataLength, -- lastPkt: BOOLEAN, localConversation: Conversation] RETURNS [returnLength: -- DataLength]-- RpcPrivate.Dispatcher = BEGIN -- Catch public signals. ENABLE BEGIN AccessFailed --ERROR [missingAccess: AlpineEnvironment.NeededAccess]-- => BEGIN ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.SignalIndex ← AccessFailed, missingAccess (1): AlpineEnvironment.NeededAccess]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 2; lastPkt: BOOLEAN; RpcPrivate.StartSignal[signalPkt: pkt]; argPkt↑ ← [missingAccess: missingAccess]; [returnLength: , lastPkt: lastPkt] ← RpcPrivate.Call[ pkt: pkt, callLength: pktLength, maxReturnLength: 0]; Lupine.RuntimeError; -- Impossible to RESUME an ERROR. END; -- AccessFailed. LockFailed --ERROR [why: AlpineEnvironment.LockFailure]-- => BEGIN ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.SignalIndex ← LockFailed, why (1): AlpineEnvironment.LockFailure]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 2; lastPkt: BOOLEAN; RpcPrivate.StartSignal[signalPkt: pkt]; argPkt↑ ← [why: why]; [returnLength: , lastPkt: lastPkt] ← RpcPrivate.Call[ pkt: pkt, callLength: pktLength, maxReturnLength: 0]; Lupine.RuntimeError; -- Impossible to RESUME an ERROR. END; -- LockFailed. OperationFailed --ERROR [why: AlpineEnvironment.OperationFailure]-- => BEGIN ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.SignalIndex ← OperationFailed, why (1): AlpineEnvironment.OperationFailure]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 2; lastPkt: BOOLEAN; RpcPrivate.StartSignal[signalPkt: pkt]; argPkt↑ ← [why: why]; [returnLength: , lastPkt: lastPkt] ← RpcPrivate.Call[ pkt: pkt, callLength: pktLength, maxReturnLength: 0]; Lupine.RuntimeError; -- Impossible to RESUME an ERROR. END; -- OperationFailed. StaticallyInvalid --ERROR-- => BEGIN ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.SignalIndex ← StaticallyInvalid]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 1; lastPkt: BOOLEAN; RpcPrivate.StartSignal[signalPkt: pkt]; argPkt.transferIndex ← StaticallyInvalid; [returnLength: , lastPkt: lastPkt] ← RpcPrivate.Call[ pkt: pkt, callLength: pktLength, maxReturnLength: 0]; Lupine.RuntimeError; -- Impossible to RESUME an ERROR. END; -- StaticallyInvalid. Unknown --ERROR [what: AlpineEnvironment.UnknownType]-- => BEGIN ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.SignalIndex ← Unknown, what (1): AlpineEnvironment.UnknownType]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 2; lastPkt: BOOLEAN; RpcPrivate.StartSignal[signalPkt: pkt]; argPkt↑ ← [what: what]; [returnLength: , lastPkt: lastPkt] ← RpcPrivate.Call[ pkt: pkt, callLength: pktLength, maxReturnLength: 0]; Lupine.RuntimeError; -- Impossible to RESUME an ERROR. END; -- Unknown. END; -- Catch public signals. -- Call public procedures (still in dispatcher). SELECT LOOPHOLE[pkt.data[0], RpcControl.ProcedureIndex] FROM ReadOwnerFileHeader => RETURN[ ReadOwnerFileHeaderStub[pkt: pkt, callLength: callLength, lastPkt: lastPkt, localConversation: localConversation]]; ReadNextOwnerRecord => RETURN[ ReadNextOwnerRecordStub[pkt: pkt, callLength: callLength, lastPkt: lastPkt, localConversation: localConversation]]; ChangeSpaceForOwner => RETURN[ ChangeSpaceForOwnerStub[pkt: pkt, callLength: callLength, lastPkt: lastPkt, localConversation: localConversation]]; ReadDBUniversalFile => RETURN[ ReadDBUniversalFileStub[pkt: pkt, callLength: callLength, lastPkt: lastPkt, localConversation: localConversation]]; ReportAccessCacheStats => RETURN[ ReportAccessCacheStatsStub[pkt: pkt, callLength: callLength, lastPkt: lastPkt, localConversation: localConversation]]; ReportAccessVolatileStats => RETURN[ ReportAccessVolatileStatsStub[pkt: pkt, callLength: callLength, lastPkt: lastPkt, localConversation: localConversation]]; CrashSystem => RETURN[ CrashSystemStub[pkt: pkt, callLength: callLength, lastPkt: lastPkt, localConversation: localConversation]]; ENDCASE => RETURN[Lupine.DispatchingError[]]; END; -- ServerDispatcher -- Public procedure dispatcher stubs. ReadOwnerFileHeaderStub: --PROCEDURE [conversation: AlpineEnvironment.Conversation, -- transID: AlpineEnvironment.TransID, volumeGroupID: AlpineEnvironment.VolumeGroupID] -- RETURNS [version: NAT, recordedVolGroupID: AlpineEnvironment.VolumeGroupID, -- totalQuota: AlpineEnvironment.PageCount, quotaLeft: AlpineEnvironment.PageCount, -- numberOfOwners: NAT, numberOfOwnerSlotsInUse: NAT, maxNumberOfOwnersAllowed: -- NAT]-- RpcPrivate.Dispatcher = BEGIN ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.ProcedureIndex, transID (1): AlpineEnvironment.TransID, volumeGroupID (10): AlpineEnvironment.VolumeGroupID]; ResultOverlay: TYPE = MACHINE DEPENDENT RECORD [ version (0): NAT, recordedVolGroupID (1): AlpineEnvironment.VolumeGroupID, totalQuota (6): AlpineEnvironment.PageCount, quotaLeft (8): AlpineEnvironment.PageCount, numberOfOwners (10): NAT, numberOfOwnerSlotsInUse (11): NAT, maxNumberOfOwnersAllowed (12): NAT]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; resPkt: LONG POINTER TO ResultOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 15; Lupine.CheckPktLength[pkt: pkt, pktLength: pktLength]; [resPkt.version, resPkt.recordedVolGroupID, resPkt.totalQuota, resPkt.quotaLeft, resPkt.numberOfOwners, resPkt.numberOfOwnerSlotsInUse, resPkt.maxNumberOfOwnersAllowed] ← ReadOwnerFileHeader[localConversation, argPkt.transID, argPkt.volumeGroupID]; pktLength ← 13; RETURN[returnLength: pktLength]; END; -- ReadOwnerFileHeaderStub. ReadNextOwnerRecordStub: --PROCEDURE [conversation: AlpineEnvironment.Conversation, -- transID: AlpineEnvironment.TransID, volumeGroupID: AlpineEnvironment.VolumeGroupID, -- contRecNum: INT, desiredProperties: AlpineEnvironment.OwnerPropertySet] -- RETURNS [entryEmpty: BOOLEAN, entryValid: BOOLEAN, owner: AlpineEnvironment.OwnerName, -- properties: LIST OF AlpineEnvironment.OwnerPropertyValuePair, -- nextContRecNum: INT]-- RpcPrivate.Dispatcher = BEGIN owner: AlpineEnvironment.OwnerName; properties: LIST OF AlpineEnvironment.OwnerPropertyValuePair; ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.ProcedureIndex, transID (1): AlpineEnvironment.TransID, volumeGroupID (10): AlpineEnvironment.VolumeGroupID, contRecNum (15): INT, desiredProperties (17): AlpineEnvironment.OwnerPropertySet]; ResultOverlay: TYPE = MACHINE DEPENDENT RECORD [ entryEmpty (0): BOOLEAN, entryValid (1): BOOLEAN, nextContRecNum (2): INT]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; resPkt: LONG POINTER TO ResultOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 18; Lupine.CheckPktLength[pkt: pkt, pktLength: pktLength]; [resPkt.entryEmpty, resPkt.entryValid, owner, properties, resPkt.nextContRecNum] ← ReadNextOwnerRecord[localConversation, argPkt.transID, argPkt.volumeGroupID, argPkt.contRecNum, argPkt.desiredProperties]; pktLength ← 4; BEGIN -- Marshal owner: AlpineEnvironment.OwnerName to pkt.data[pktLength]. IF pktLength+2 > RpcPrivate.maxDataLength THEN pktLength ← Lupine.StartNextPkt[pkt: pkt, pktLength: pktLength]; pkt.data[pktLength] ← owner=NIL; pktLength ← pktLength+1; IF owner # NIL THEN BEGIN textRope: Rope.Text = Rope.InlineFlatten[r: owner]; IF textRope.length > RpcPrivate.maxShortStringLength THEN Lupine.MarshalingError; pkt.data[pktLength] ← textRope.length; pktLength ← pktLength+1; pktLength ← Lupine.CopyToPkt[pkt: pkt, pktLength: pktLength, dataAdr: BASE[DESCRIPTOR[textRope.text]], dataLength: Lupine.WordsForChars[textRope.length], alwaysOnePkt: FALSE]; END; -- IF owner # NIL. END; -- Marshal owner. BEGIN -- Marshal properties: LIST OF AlpineEnvironment.OwnerPropertyValuePair -- to pkt.data[pktLength]. thisNode1: LIST OF AlpineEnvironment.OwnerPropertyValuePair; listLength: Lupine.ListHeader ← 0; FOR thisNode1 ← properties, thisNode1.rest UNTIL thisNode1 = NIL DO listLength ← listLength + 1; ENDLOOP; IF pktLength+2 > RpcPrivate.maxDataLength THEN pktLength ← Lupine.StartNextPkt[pkt: pkt, pktLength: pktLength]; Lupine.RpcPktDoubleWord[pkt, pktLength]↑ ← listLength; pktLength ← pktLength + 2; FOR thisNode1 ← properties, thisNode1.rest UNTIL thisNode1 = NIL DO BEGIN -- Marshal thisNode1.first: AlpineEnvironment.OwnerPropertyValuePair -- to pkt.data[pktLength]. pktLength ← Lupine.CopyToPkt[pkt: pkt, pktLength: pktLength, dataAdr: @thisNode1.first, dataLength: SIZE[AlpineEnvironment.OwnerPropertyValuePair], alwaysOnePkt: FALSE]; BEGIN OPEN record: thisNode1.first; WITH variant: record SELECT FROM createAccessList => BEGIN -- Marshal variant: RECORD [createAccessList: -- AccessList] to pkt.data[pktLength]. BEGIN OPEN record: variant; BEGIN -- Marshal record.createAccessList: AccessList -- to pkt.data[pktLength]. thisNode5: AccessList; listLength: Lupine.ListHeader ← 0; FOR thisNode5 ← record.createAccessList, thisNode5.rest UNTIL thisNode5 = NIL DO listLength ← listLength + 1; ENDLOOP; IF pktLength+2 > RpcPrivate.maxDataLength THEN pktLength ← Lupine.StartNextPkt[pkt: pkt, pktLength: pktLength]; Lupine.RpcPktDoubleWord[pkt, pktLength]↑ ← listLength; pktLength ← pktLength + 2; FOR thisNode5 ← record.createAccessList, thisNode5.rest UNTIL thisNode5 = NIL DO BEGIN -- Marshal thisNode5.first: RName to pkt.data[pktLength]. IF pktLength+2 > RpcPrivate.maxDataLength THEN pktLength ← Lupine.StartNextPkt[pkt: pkt, pktLength: pktLength]; pkt.data[pktLength] ← thisNode5.first=NIL; pktLength ← pktLength+1; IF thisNode5.first # NIL THEN BEGIN textRope: Rope.Text = Rope.InlineFlatten[r: thisNode5.first]; IF textRope.length > RpcPrivate.maxShortStringLength THEN Lupine.MarshalingError; pkt.data[pktLength] ← textRope.length; pktLength ← pktLength+1; pktLength ← Lupine.CopyToPkt[pkt: pkt, pktLength: pktLength, dataAdr: BASE[DESCRIPTOR[textRope.text]], dataLength: Lupine.WordsForChars[textRope.length], alwaysOnePkt: FALSE]; END; -- IF thisNode5.first # NIL. END; -- Marshal thisNode5.first. ENDLOOP; -- FOR thisNode5. END; -- Marshal record.createAccessList. END; -- OPEN record: variant. END; -- Marshal variant. modifyAccessList => BEGIN -- Marshal variant: RECORD [modifyAccessList: -- AccessList] to pkt.data[pktLength]. BEGIN OPEN record: variant; BEGIN -- Marshal record.modifyAccessList: AccessList -- to pkt.data[pktLength]. thisNode5: AccessList; listLength: Lupine.ListHeader ← 0; FOR thisNode5 ← record.modifyAccessList, thisNode5.rest UNTIL thisNode5 = NIL DO listLength ← listLength + 1; ENDLOOP; IF pktLength+2 > RpcPrivate.maxDataLength THEN pktLength ← Lupine.StartNextPkt[pkt: pkt, pktLength: pktLength]; Lupine.RpcPktDoubleWord[pkt, pktLength]↑ ← listLength; pktLength ← pktLength + 2; FOR thisNode5 ← record.modifyAccessList, thisNode5.rest UNTIL thisNode5 = NIL DO BEGIN -- Marshal thisNode5.first: RName to pkt.data[pktLength]. IF pktLength+2 > RpcPrivate.maxDataLength THEN pktLength ← Lupine.StartNextPkt[pkt: pkt, pktLength: pktLength]; pkt.data[pktLength] ← thisNode5.first=NIL; pktLength ← pktLength+1; IF thisNode5.first # NIL THEN BEGIN textRope: Rope.Text = Rope.InlineFlatten[r: thisNode5.first]; IF textRope.length > RpcPrivate.maxShortStringLength THEN Lupine.MarshalingError; pkt.data[pktLength] ← textRope.length; pktLength ← pktLength+1; pktLength ← Lupine.CopyToPkt[pkt: pkt, pktLength: pktLength, dataAdr: BASE[DESCRIPTOR[textRope.text]], dataLength: Lupine.WordsForChars[textRope.length], alwaysOnePkt: FALSE]; END; -- IF thisNode5.first # NIL. END; -- Marshal thisNode5.first. ENDLOOP; -- FOR thisNode5. END; -- Marshal record.modifyAccessList. END; -- OPEN record: variant. END; -- Marshal variant. ENDCASE => NULL; -- WITH variant: record. END; -- OPEN record: thisNode1.first. END; -- Marshal thisNode1.first. ENDLOOP; -- FOR thisNode1. END; -- Marshal properties. RETURN[returnLength: pktLength]; END; -- ReadNextOwnerRecordStub. ChangeSpaceForOwnerStub: --PROCEDURE [conversation: AlpineEnvironment.Conversation, -- transID: AlpineEnvironment.TransID, volumeGroupID: AlpineEnvironment.VolumeGroupID, -- owner: AlpineEnvironment.OwnerName, nPages: AlpineEnvironment.PageCount]-- RpcPrivate.Dispatcher = BEGIN owner: AlpineEnvironment.OwnerName; ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.ProcedureIndex, transID (1): AlpineEnvironment.TransID, volumeGroupID (10): AlpineEnvironment.VolumeGroupID, nPages (15): AlpineEnvironment.PageCount]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 17; BEGIN -- Unmarshal owner: AlpineEnvironment.OwnerName from pkt.data[pktLength]. ropeIsNIL: Lupine.NilHeader; ropeIsNIL ← pkt.data[pktLength]; pktLength ← pktLength+1; IF ropeIsNIL THEN owner ← NIL ELSE BEGIN ropeLength: Lupine.RopeHeader; textRope: Rope.Text; ropeLength ← pkt.data[pktLength]; pktLength ← pktLength+1; IF ropeLength > RpcPrivate.maxShortStringLength THEN Lupine.UnmarshalingError; owner ← textRope ← Rope.NewText[size: ropeLength]; pktLength ← Lupine.CopyFromPkt[pkt: pkt, pktLength: pktLength, dataAdr: BASE[DESCRIPTOR[textRope.text]], dataLength: Lupine.WordsForChars[ropeLength], alwaysOnePkt: TRUE]; END; -- IF ropeIsNIL. END; -- Unmarshal owner. Lupine.CheckPktLength[pkt: pkt, pktLength: pktLength]; ChangeSpaceForOwner[localConversation, argPkt.transID, argPkt.volumeGroupID, owner, argPkt.nPages]; pktLength ← 0; RETURN[returnLength: pktLength]; END; -- ChangeSpaceForOwnerStub. ReadDBUniversalFileStub: --PROCEDURE [volumeGroupID: AlpineEnvironment.VolumeGroupID] -- RETURNS [dBID: AlpineEnvironment.UniversalFile]-- RpcPrivate.Dispatcher = BEGIN ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.ProcedureIndex, volumeGroupID (1): AlpineEnvironment.VolumeGroupID]; ResultOverlay: TYPE = MACHINE DEPENDENT RECORD [ dBID (0): AlpineEnvironment.UniversalFile]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; resPkt: LONG POINTER TO ResultOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength; Lupine.CheckPktLength[pkt: pkt, pktLength: 6]; [resPkt.dBID] ← ReadDBUniversalFile[argPkt.volumeGroupID]; pktLength ← 9; RETURN[returnLength: pktLength]; END; -- ReadDBUniversalFileStub. ReportAccessCacheStatsStub: --PROCEDURE RETURNS [nCacheEntries: NAT, -- statsCacheHit: INT, statsGrapevineAuthorized: INT, statsGrapevineNotAuthorized: -- INT, statsRegServersDown: INT, statsIndivGrapeNotAuthorized: INT]-- RpcPrivate.Dispatcher = BEGIN ResultOverlay: TYPE = MACHINE DEPENDENT RECORD [ nCacheEntries (0): NAT, statsCacheHit (1): INT, statsGrapevineAuthorized (3): INT, statsGrapevineNotAuthorized (5): INT, statsRegServersDown (7): INT, statsIndivGrapeNotAuthorized (9): INT]; resPkt: LONG POINTER TO ResultOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength; Lupine.CheckPktLength[pkt: pkt, pktLength: 1]; [resPkt.nCacheEntries, resPkt.statsCacheHit, resPkt.statsGrapevineAuthorized, resPkt.statsGrapevineNotAuthorized, resPkt.statsRegServersDown, resPkt.statsIndivGrapeNotAuthorized] ← ReportAccessCacheStats[]; pktLength ← 11; RETURN[returnLength: pktLength]; END; -- ReportAccessCacheStatsStub. ReportAccessVolatileStatsStub: --PROCEDURE RETURNS [nRegs: INT, nInits: -- INT, nUnRegs: INT, nReorganizes: INT, nEnumAlls: INT, nAllocReqsWin: -- INT, nAllocReqsLose: INT, nDeallocReqs: INT, nRemoveOwner: INT, -- nEnumFindWin: INT, nEnumFindLose: INT, nSetEnums: INT, nActions: -- INT, nPhaseOnes: INT, nPhaseTwos: INT, nAborts: INT]-- RpcPrivate.Dispatcher = BEGIN ResultOverlay: TYPE = MACHINE DEPENDENT RECORD [ nRegs (0): INT, nInits (2): INT, nUnRegs (4): INT, nReorganizes (6): INT, nEnumAlls (8): INT, nAllocReqsWin (10): INT, nAllocReqsLose (12): INT, nDeallocReqs (14): INT, nRemoveOwner (16): INT, nEnumFindWin (18): INT, nEnumFindLose (20): INT, nSetEnums (22): INT, nActions (24): INT, nPhaseOnes (26): INT, nPhaseTwos (28): INT, nAborts (30): INT]; resPkt: LONG POINTER TO ResultOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength; Lupine.CheckPktLength[pkt: pkt, pktLength: 1]; [resPkt.nRegs, resPkt.nInits, resPkt.nUnRegs, resPkt.nReorganizes, resPkt.nEnumAlls, resPkt.nAllocReqsWin, resPkt.nAllocReqsLose, resPkt.nDeallocReqs, resPkt.nRemoveOwner, resPkt.nEnumFindWin, resPkt.nEnumFindLose, resPkt.nSetEnums, resPkt.nActions, resPkt.nPhaseOnes, resPkt.nPhaseTwos, resPkt.nAborts] ← ReportAccessVolatileStats[]; pktLength ← 32; RETURN[returnLength: pktLength]; END; -- ReportAccessVolatileStatsStub. CrashSystemStub: --PROCEDURE [conversation: AlpineEnvironment.Conversation, -- transID: AlpineEnvironment.TransID]-- RpcPrivate.Dispatcher = BEGIN ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [ transferIndex (0): RpcControl.ProcedureIndex, transID (1): AlpineEnvironment.TransID]; argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0]; pktLength: RpcPrivate.DataLength ← 10; Lupine.CheckPktLength[pkt: pkt, pktLength: pktLength]; CrashSystem[localConversation, argPkt.transID]; pktLength ← 0; RETURN[returnLength: pktLength]; END; -- CrashSystemStub. -- No module initialization. END. -- AlpineDebugRpcServerImpl.