(FILECREATED " 6-Dec-85 16:25:45" ("compiled on " {ERIS}KOTO>RPC-EXAMPLECLIENT.;2) "12-Nov-85 14:59:23" recompiled ALL in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED " 6-Dec-85 16:25:08" {ERIS}KOTO>RPC-EXAMPLECLIENT.;2 16322 changes to: (FNS ImportRPC-Example MovdsForRPC-EXAMPLE ImportRPC-EXAMPLE UnimportRPC-EXAMPLE DispatchRPC-EXAMPLESignals RPCClientStub.Simple RPCClientStub.Complex RPCClientStub.ArgTestA RPCClientStub.ArgTestB MarshalRPC-EXAMPLERec5#0#96 MarshalRPC-EXAMPLERec6#0#48 MarshalRPC-EXAMPLERec2#0#128 MarshalRPC-EXAMPLERec1#0#80 MarshalRPC-EXAMPLERec4#0#48 MarshalRPC-EXAMPLERec3#1#15 MarshalRPC-EXAMPLERec3#0#16 MovdsForRPC-Example UnimportRPC-Example DispatchRPC-ExampleSignals MarshalRPC-ExampleRec5#0#96 MarshalRPC-ExampleRec6#0#48 MarshalRPC-ExampleRec2#0#128 MarshalRPC-ExampleRec1#0#80 MarshalRPC-ExampleRec4#0#48 MarshalRPC-ExampleRec3#1#15 MarshalRPC-ExampleRec3#0#16) previous date: " 6-Dec-85 16:16:02" {ERIS}KOTO>RPC-EXAMPLECLIENT.;1) MovdsForRPC-Example D1 (P 0 p) odHH h(24Q PUTD 21Q GETD) NIL ( 3 ((RPCClientStub.ArgTestB . ArgTestB) (RPCClientStub.ArgTestA . ArgTestA) (RPCClientStub.Complex . Complex) (RPCClientStub.Simple . Simple))) ImportRPC-Example D1 (I 2 version I 1 instance I 0 type) @oAB `(13Q ImportInterface) (22Q RPC-ExampleClientInterface 16Q RPC-ExampleClientInterface) ( 6 "RPC-Example 6-Dec-85 16:24:271540") UnimportRPC-Example D1 (I 0 l..interface) 5@`&`@ @` o@ d h(51Q UnimportInterface 43Q ERROR 27Q DREMOVE 20Q UnimportInterface) (62Q RPC-ExampleClientInterface 32Q RPC-ExampleClientInterface 24Q RPC-ExampleClientInterface 12Q RPC-ExampleClientInterface 5 RPC-ExampleClientInterface) ( 37Q "not imported") DispatchRPC-ExampleSignals D1 (P 2 l..datum P 0 l..result I 1 l..conv I 0 l..cPup) @A dlg@oA @ wdl* g@A @A Ih @ @HA IlAg @ @HA @HA H@JA @JA @(232Q SHOULDNT 224Q \MarshalAtom 210Q \MarshalString 167Q MarshalRPC-ExampleRec1#0#80 156Q \MarshalAtom 146Q \StartReturn 141Q Signal 120Q \AddPupBoolean 111Q \StartReturn 104Q Signal 75Q \UnmarshalString 67Q \GetArgSmallp 42Q \StartReturn 35Q Signal 32Q \GetArgEnum 4 \GetArgWord) (136Q Fake 62Q NooneFailed 21Q SimpleFailed) ( 26Q (badNum badString)) RPCClientStub.Simple D1 (P 1 l..cPup P 0 l..interface I 3 l..conv I 2 l..interfaceArg I 1 second I 0 first) ;B`HHC YdlC I@C IAC IgC YdC I (67Q \RELEASE.PUP 63Q \GetArgBool 55Q \Call 45Q \MarshalString 37Q \AddPupDblWord 31Q \AddPupWord 21Q \StartCall) (51Q DispatchRPC-ExampleSignals 5 RPC-ExampleClientInterface) () RPCClientStub.Complex D1 (P 6 l..v P 5 l..v P 4 l..datum P 3 l..datum P 1 l..cPup P 0 l..interface I 17Q l..conv I 16Q l..interfaceArg I 15Q l2 I 14Q l1 I 13Q r10 I 12Q r9 I 11Q r8 I 10Q r7 I 7 r6 I 6 r5b I 5 r5a I 4 r5 I 3 r4 I 2 r3 I 1 r2 I 0 r1) G`!HHG YdlG I@G IAG IBG ICG IGG IoDG EIhG IEG IiG FIhG IFG IiG IGG IGG GIKG IKG IGG GKILG ILG IKG IGG GK,IKG KdILG ILG Il IG G GdIMG Il IG G GNdIl IM G M.dING NIKG IKG hIgG YdG IG IG JhI (724Q \RELEASE.PUP 713Q \UnmarshalString 704Q \GetArgBool 676Q \GetArgBool 667Q \Call 642Q \MarshalAtom 625Q \MarshalString 605Q MarshalRPC-ExampleRec1#0#80 565Q \AddPupDblWord 560Q LENGTH 552Q \CheckPupOverflow 532Q \AddPupDblWord 525Q LENGTH 516Q \CheckPupOverflow 503Q \AddPupSmallp 463Q \AddPupDblWord 456Q LENGTH 447Q \CheckPupOverflow 433Q \MarshalString 421Q MarshalRPC-ExampleRec6#0#48 377Q \MarshalString 356Q MarshalRPC-ExampleRec5#0#96 345Q \MarshalAtom 331Q \MarshalAtom 314Q \MarshalString 265Q MarshalRPC-ExampleRec2#0#128 254Q \MarshalAtom 237Q \MarshalString 217Q MarshalRPC-ExampleRec1#0#80 207Q \MarshalString 176Q \AddPupBoolean 166Q MarshalRPC-ExampleRec3#0#16 156Q \AddPupBoolean 144Q \AddPupBoolean 134Q MarshalRPC-ExampleRec3#0#16 124Q \AddPupBoolean 113Q \MarshalStream 100Q MarshalRPC-ExampleRec3#0#16 70Q MarshalRPC-ExampleRec4#0#48 61Q MarshalRPC-ExampleRec3#0#16 52Q \AddPupBoolean 43Q \AddPupBoolean 34Q \AddPupWord 23Q \StartCall) (662Q DispatchRPC-ExampleSignals 6 RPC-ExampleClientInterface) ( 105Q ({NODIRCORE})) RPCClientStub.ArgTestA D1 (P 1 l..cPup P 0 l..interface I 7 l..conv I 6 l..interfaceArg I 5 f I 4 e I 3 d I 2 c I 1 b I 0 a) F`HHG YdlG I@G IAG IBG ICG IDG IoEG IgG YdG IG IG IG IG hI (173Q \RELEASE.PUP 161Q \UnmarshalAtom 153Q \UnmarshalString 145Q \GetArgBool 137Q \GetArgDblWord 131Q \GetArgSmallp 122Q \Call 111Q \MarshalStream 76Q \MarshalAtom 67Q \MarshalString 60Q \AddPupBoolean 51Q \AddPupDblWord 42Q \AddPupSmallp 33Q \AddPupWord 22Q \StartCall) (115Q DispatchRPC-ExampleSignals 5 RPC-ExampleClientInterface) ( 103Q ({DSK}ARGFILE)) RPCClientStub.ArgTestB D1 (P 1 l..cPup P 0 l..interface I 7 l..conv I 6 l..interfaceArg I 5 f I 4 e I 3 d I 2 c I 1 b I 0 a) F`HHG YdlG IAG IDG IEG I@G IBG IoCG IgG Y0IG IG IG IG LIG KJhI (205Q \RELEASE.PUP 170Q \UnmarshalAtom 161Q \UnmarshalString 152Q \GetArgBool 143Q \GetArgDblWord 134Q \GetArgSmallp 122Q \Call 111Q \MarshalStream 76Q \MarshalAtom 67Q \MarshalString 60Q \AddPupBoolean 51Q \AddPupDblWord 42Q \AddPupSmallp 33Q \AddPupWord 22Q \StartCall) (115Q DispatchRPC-ExampleSignals 5 RPC-ExampleClientInterface) ( 103Q ({NODIRCORE})) MarshalRPC-ExampleRec5#0#96 D1 (P 0 l..sequence I 2 l..conv I 1 l..datum I 0 l..pup) H@l A @iB @hB @H B @AB @l @AB @H l (105Q \SkipBytesOut 77Q LENGTH 72Q \AddPupSmallp 61Q \SkipBytesOut 53Q \AddPupBoolean 44Q \AddPupDblWord 40Q LENGTH 33Q \AddPupBoolean 16Q \AddPupBoolean 5 \CheckPupOverflow) NIL () MarshalRPC-ExampleRec6#0#48 D1 (I 2 l..conv I 1 l..datum I 0 l..pup) @AB @l (14Q \SkipBytesOut 6 \AddPupBoolean) NIL () MarshalRPC-ExampleRec2#0#128 D1 (I 2 l..conv I 1 l..datum I 0 l..pup) 8@l @ Akj@ Akj@l @AB @l (65Q \SkipBytesOut 57Q MarshalRPC-ExampleRec1#0#80 46Q \IncrPupLength 26Q \CurrentPupPosition 11Q \CurrentPupPosition 5 \CheckPupOverflow) NIL () MarshalRPC-ExampleRec1#0#80 D1 (P 2 l..t P 1 l..i I 2 l..conv I 1 l..datum I 0 l..pup) h@l @ Akj@ Akj@ ojH$gAo h-@l @l ZAIIkԹHX(121Q \SkipBytesOut 113Q \IncrPupLength 77Q Signal 44Q \CurrentPupPosition 26Q \CurrentPupPosition 11Q \CurrentPupPosition 5 \CheckPupOverflow) (63Q BoundsCheck) ( 73Q (yen twa henery penery flat) 50Q (yen twa henery penery flat)) MarshalRPC-ExampleRec4#0#48 D1 (I 2 l..conv I 1 l..datum I 0 l..pup) &@l @ Akj@AB @AB (43Q \AddPupDblWord 32Q MarshalRPC-ExampleRec3#1#15 11Q \CurrentPupPosition 5 \CheckPupOverflow) NIL () MarshalRPC-ExampleRec3#1#15 D1 (P 2 l..t P 1 l..i I 2 l..conv I 1 l..datum I 0 l..pup) L@ Akj@ ojHgAo h@l ZAIIkԹHX(66Q \IncrPupLength 52Q Signal 20Q \CurrentPupPosition 3 \CurrentPupPosition) (37Q BoundsCheck) ( 46Q (yen twa henery penery flat) 24Q (yen twa henery penery flat)) MarshalRPC-ExampleRec3#0#16 D1 (P 2 l..t P 1 l..i I 2 l..conv I 1 l..datum I 0 l..pup) R@l @ Akj @ ojHgAo h@l ZAIIkԹHX(74Q \IncrPupLength 60Q Signal 26Q \CurrentPupPosition 11Q \CurrentPupPosition 5 \CheckPupOverflow) (45Q BoundsCheck) ( 54Q (yen twa henery penery flat) 32Q (yen twa henery penery flat)) (PRETTYCOMPRINT RPC-EXAMPLECLIENTCOMS) (RPAQQ RPC-EXAMPLECLIENTCOMS ((* Created by Lupine " 6-Dec-85 16:24:38") (FNS MovdsForRPC-Example ImportRPC-Example UnimportRPC-Example DispatchRPC-ExampleSignals RPCClientStub.Simple RPCClientStub.Complex RPCClientStub.ArgTestA RPCClientStub.ArgTestB MarshalRPC-ExampleRec5#0#96 MarshalRPC-ExampleRec6#0#48 MarshalRPC-ExampleRec2#0#128 MarshalRPC-ExampleRec1#0#80 MarshalRPC-ExampleRec4#0#48 MarshalRPC-ExampleRec3#1#15 MarshalRPC-ExampleRec3#0#16) (VARS ( RPC-ExampleClientInterface)) (GLOBALVARS RPC-ExampleClientInterface) (P (MovdsForRPC-Example)) ( DECLARE: DONTCOPY EVAL@COMPILE EVAL@LOAD (FILES (LOADCOMP) RPC-EXAMPLE)) (DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY (FILES (SYSLOAD) RPC)))) (RPAQQ RPC-ExampleClientInterface NIL) (MovdsForRPC-Example) (FILESLOAD (SYSLOAD) RPC) (PUTPROPS RPC-EXAMPLECLIENT COPYRIGHT ("Xerox Corporation" 1985)) NIL