(FILECREATED " 6-Dec-85 16:41:33" ("compiled on " {ERIS}KOTO>RPC-EXAMPLESERVER.;1) "12-Nov-85 14:59:23" bcompl'd in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED " 6-Dec-85 16:26:09" {ERIS}KOTO>RPC-EXAMPLESERVER.;1 17367 changes to: (FNS HideRPC-EXAMPLEServerMovds ExportRPC-EXAMPLE UnexportRPC-EXAMPLE RPC-EXAMPLEServerDispatch CatchFake CatchNooneFailed CatchSimpleFailed SimpleServerStub ComplexServerStub ArgTestAServerStub ArgTestBServerStub UnmarshalRPC-EXAMPLERec5#0#96 UnmarshalRPC-EXAMPLERec6#0#48 UnmarshalRPC-EXAMPLERec2#0#128 UnmarshalRPC-EXAMPLERec1#0#80 UnmarshalRPC-EXAMPLERec4#0#48 UnmarshalRPC-EXAMPLERec3#1#15 UnmarshalRPC-EXAMPLERec3#0#16 HideRPC-ExampleServerMovds ExportRPC-Example UnexportRPC-Example RPC-ExampleServerDispatch UnmarshalRPC-ExampleRec5#0#96 UnmarshalRPC-ExampleRec6#0#48 UnmarshalRPC-ExampleRec2#0#128 UnmarshalRPC-ExampleRec1#0#80 UnmarshalRPC-ExampleRec4#0#48 UnmarshalRPC-ExampleRec3#1#15 UnmarshalRPC-ExampleRec3#0#16)) HideRPC-ExampleServerMovds D1 (P 0 p) 0o&dHH H HHH h(47Q CHANGENAME 33Q PUTD 25Q PUTD 22Q GETD) NIL ( 3 ((ArgTestB Hidden.ArgTestB . ArgTestBServerStub) (ArgTestA Hidden.ArgTestA . ArgTestAServerStub) (Complex Hidden.Complex . ComplexServerStub) (Simple Hidden.Simple . SimpleServerStub))) ExportRPC-Example D1 (I 4 password I 3 user I 2 version I 1 instance I 0 type) &`og CD@oABg (40Q ExportInterface 15Q ERROR) (43Q RPC-ExampleServerInterface 34Q RPC-ExampleServerDispatch 12Q RPC-Example 2 RPC-ExampleServerInterface) ( 27Q "RPC-Example 6-Dec-85 16:24:271540" 7 "Already exported") UnexportRPC-Example D1 NIL ` og h(21Q UnexportInterface 16Q ERROR) (25Q RPC-ExampleServerInterface 13Q RPC-Example 2 RPC-ExampleServerInterface) ( 10Q "not exported") RPC-ExampleServerDispatchA0001 D1 (I 1 arg I 0 type F 0 l..conv) -@dgAP hgAP h@g AP h(50Q CatchFake 31Q CatchNooneFailed 14Q CatchSimpleFailed) (40Q Fake 22Q NooneFailed 4 SimpleFailed) () RPC-ExampleServerDispatchA0002 D1 (NAME ERRORSET F 0 l..pup F 1 l..conv F 2 request) 8RdlPQ (dlPQ dlPQ lPQ h(63Q SHOULDNT 57Q ArgTestBServerStub 45Q ArgTestAServerStub 30Q ComplexServerStub 13Q SimpleServerStub) NIL () RPC-ExampleServerDispatch D1 (P 4 $Exit$ P 3 result P 2 $SignalArg$ P 1 $SignalType$ P 0 $SignalCatcher$ I 2 l..conv I 1 request I 0 l..pup) #gAo [ Lih(40Q SHOULDNT 25Q ERROR! 14Q RPC-ExampleServerDispatchA0002) (2 RPC-ExampleServerDispatchA0001) ( 11Q (RPC-ExampleServerDispatchA0002)) CatchFake D1 (P 0 l..datum I 1 l..conv I 0 arg F 1 l..cPup) =Q Ql QhA cdA QA HQA HQA Hh(63Q \UnmarshalAtom 47Q \UnmarshalString 33Q UnmarshalRPC-ExampleRec1#0#80 26Q \UnmarshalAtom 17Q \Call 11Q \AddPupWord 3 \StartSignal) NIL () CatchNooneFailed D1 (I 1 l..conv I 0 arg F 0 l..cPup) (P Pl P@A P@A PhA cdA (45Q \GetArgBool 36Q \Call 30Q \MarshalString 21Q \AddPupSmallp 11Q \AddPupWord 3 \StartSignal) NIL () CatchSimpleFailed D1 (I 1 l..conv I 0 arg F 0 l..cPup) P Pl Po@A PhA ch(31Q \Call 23Q \AddPupEnum 11Q \AddPupWord 3 \StartSignal) NIL ( 16Q (badNum badString)) SimpleServerStub D1 (P 2 l..arg2 P 1 l..arg1 P 0 l..result I 1 l..conv I 0 l..cPup) "0@A Y@A ZIJ X@ @HA @(36Q \AddPupBoolean 30Q \StartReturn 23Q Simple 15Q \UnmarshalString 7 \GetArgDblWord) NIL () ComplexServerStub D1 (P 30Q l..i P 23Q l..i P 21Q l..p P 20Q l..datum P 17Q l..datum P 16Q l..arg14 P 15Q l..arg13 P 14Q l..arg12 P 13Q l..arg11 P 12Q l..arg10 P 11Q l..arg9 P 10Q l..arg8 P 7 l..arg7 P 6 l..arg6 P 5 l..arg5 P 4 l..arg4 P 3 l..arg3 P 2 l..arg2 P 1 l..arg1 P 0 l..result I 1 l..conv I 0 l..cPup) @A Y@A Z@A [@A \@A _@oA ]@A h@A ^@A h@A _@A _@A O@A O@A O_@A OO @A O @A O@A O_@A Od3@A OdO"@A O @A O O_@l bA k2O&O$'@A _,O*O,h_*_(O&k_&O,&_*O(_@l bA k2O&O$@l bA k2O0O.F@A O@A O@A O_6O4O6h_4_2O0k_0O6&_4O2_,O*O,h_*_(O&k_&O,&_*O(_IJKLMNOOOOOOOO X@ @HA @HA @HA @(1004Q \MarshalString 774Q \AddPupBoolean 763Q \AddPupBoolean 754Q \StartReturn 747Q Complex 600Q \UnmarshalAtom 563Q \UnmarshalString 546Q UnmarshalRPC-ExampleRec1#0#80 526Q \GetArgDblWord 520Q \CheckPupExhausted 475Q \GetArgDblWord 467Q \CheckPupExhausted 414Q \GetArgSmallp 374Q \GetArgDblWord 366Q \CheckPupExhausted 340Q \UnmarshalString 325Q UnmarshalRPC-ExampleRec6#0#48 302Q \UnmarshalString 264Q UnmarshalRPC-ExampleRec5#0#96 250Q \UnmarshalAtom 234Q \UnmarshalAtom 217Q \UnmarshalString 172Q UnmarshalRPC-ExampleRec2#0#128 156Q \UnmarshalAtom 141Q \UnmarshalString 124Q UnmarshalRPC-ExampleRec1#0#80 115Q \UnmarshalString 106Q UnmarshalRPC-ExampleRec3#0#16 76Q \GetArgBool 70Q UnmarshalRPC-ExampleRec3#0#16 60Q \GetArgBool 52Q \UnmarshalStream 37Q UnmarshalRPC-ExampleRec3#0#16 31Q UnmarshalRPC-ExampleRec4#0#48 23Q UnmarshalRPC-ExampleRec3#0#16 15Q \GetArgBool 7 \GetArgBool) NIL ( 46Q ({NODIRCORE})) ArgTestAServerStub D1 (P 6 l..arg6 P 5 l..arg5 P 4 l..arg4 P 3 l..arg3 P 2 l..arg2 P 1 l..arg1 P 0 l..result I 1 l..conv I 0 l..cPup) jp@A Y@A Z@A [@A \@A ]@oA ^IJKLMN X@ @HA @HA @HA @HA @HA @(146Q \MarshalAtom 133Q \MarshalString 121Q \AddPupBoolean 110Q \AddPupDblWord 100Q \AddPupSmallp 71Q \StartReturn 64Q ArgTestA 51Q \UnmarshalStream 37Q \UnmarshalAtom 31Q \UnmarshalString 23Q \GetArgBool 15Q \GetArgDblWord 7 \GetArgSmallp) NIL ( 45Q ({DSK}ARGFILE)) ArgTestBServerStub D1 (P 6 l..arg6 P 5 l..arg5 P 4 l..arg4 P 3 l..arg3 P 2 l..arg2 P 1 l..arg1 P 0 l..result I 1 l..conv I 0 l..cPup) jp@A Z@A ]@A ^@A Y@A [@oA \IJKLMN X@ @HA @HA @HA @HA @HA @(146Q \MarshalAtom 135Q \MarshalString 126Q \AddPupBoolean 113Q \AddPupDblWord 101Q \AddPupSmallp 71Q \StartReturn 64Q ArgTestB 51Q \UnmarshalStream 37Q \UnmarshalAtom 31Q \UnmarshalString 23Q \GetArgBool 15Q \GetArgDblWord 7 \GetArgSmallp) NIL ( 45Q ({NODIRCORE})) UnmarshalRPC-ExampleRec5#0#96 D1 (P 3 l..result P 2 l..i P 0 l..size I 1 l..conv I 0 l..pup F 7 l..cPup) g@l bdA h@A Hk@A Wbh@l bA Wbh3@Hl JI KLKM Nh]JkZN&(104Q \SkipWordsIn 60Q \GetArgSmallp 52Q \SkipWordsIn 36Q \GetArgBool 24Q \GetArgDblWord 14Q \GetArgBool 5 \CheckPupExhausted) NIL () UnmarshalRPC-ExampleRec6#0#48 D1 (I 1 l..conv I 0 l..pup F 0 l..cPup) @A Pbl hh(14Q \SkipWordsIn 4 \GetArgBool) NIL () UnmarshalRPC-ExampleRec2#0#128 D1 (I 1 l..conv I 0 l..pup F 1 l..cPup) X@k b Hj HH h@ Hj HH h@k @A Qbl hh(116Q \SkipWordsIn 106Q UnmarshalRPC-ExampleRec1#0#80 100Q \IncrDataOffset 70Q \FZEROP 44Q \CurrentPupBase 35Q \FZEROP 11Q \CurrentPupBase 4 \CheckPupExhausted) NIL () UnmarshalRPC-ExampleRec1#0#80 D1 (I 1 l..conv I 0 l..pup) d@k b Hj HH h@ Hj HH ho@ -k @k @l hdh(130Q \SkipWordsIn 121Q \IncrDataOffset 113Q NTH 103Q \CurrentPupBase 70Q \FZEROP 44Q \CurrentPupBase 35Q \FZEROP 11Q \CurrentPupBase 4 \CheckPupExhausted) NIL ( 77Q (yen twa henery penery flat)) UnmarshalRPC-ExampleRec4#0#48 D1 (I 1 l..conv I 0 l..pup F 1 l..cPup) 3@k b Hj HH h@A QbA h(54Q \GetArgDblWord 45Q UnmarshalRPC-ExampleRec3#1#15 35Q \FZEROP 11Q \CurrentPupBase 4 \CheckPupExhausted) NIL () UnmarshalRPC-ExampleRec3#1#15 D1 (I 1 l..conv I 0 l..pup) 7@ Hj HH ho@ k @k h(60Q \IncrDataOffset 52Q NTH 42Q \CurrentPupBase 27Q \FZEROP 3 \CurrentPupBase) NIL ( 36Q (yen twa henery penery flat)) UnmarshalRPC-ExampleRec3#0#16 D1 (I 1 l..conv I 0 l..pup) =@k b Hj HH ho@ k @k h(66Q \IncrDataOffset 60Q NTH 50Q \CurrentPupBase 35Q \FZEROP 11Q \CurrentPupBase 4 \CheckPupExhausted) NIL ( 44Q (yen twa henery penery flat)) (PRETTYCOMPRINT RPC-EXAMPLESERVERCOMS) (RPAQQ RPC-EXAMPLESERVERCOMS ((* Created by Lupine " 6-Dec-85 16:24:32") (FNS HideRPC-ExampleServerMovds ExportRPC-Example UnexportRPC-Example RPC-ExampleServerDispatch CatchFake CatchNooneFailed CatchSimpleFailed SimpleServerStub ComplexServerStub ArgTestAServerStub ArgTestBServerStub UnmarshalRPC-ExampleRec5#0#96 UnmarshalRPC-ExampleRec6#0#48 UnmarshalRPC-ExampleRec2#0#128 UnmarshalRPC-ExampleRec1#0#80 UnmarshalRPC-ExampleRec4#0#48 UnmarshalRPC-ExampleRec3#1#15 UnmarshalRPC-ExampleRec3#0#16) (VARS (RPC-ExampleServerInterface)) ( GLOBALVARS RPC-ExampleServerInterface) (DECLARE: DONTCOPY EVAL@COMPILE EVAL@LOAD (FILES (LOADCOMP) RPC-EXAMPLE SIGNAL)) (DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY (FILES (SYSLOAD) RPC)) (P (COND ((EQ (QUOTE Y) (ASKUSER 15 (QUOTE N) "Hide server fns (must have been already loaded)? ")) ( HideRPC-ExampleServerMovds)))))) (RPAQQ RPC-ExampleServerInterface NIL) (FILESLOAD (SYSLOAD) RPC) (COND ((EQ (QUOTE Y) (ASKUSER 15 (QUOTE N) "Hide server fns (must have been already loaded)? ")) ( HideRPC-ExampleServerMovds))) (PUTPROPS RPC-EXAMPLESERVER COPYRIGHT ("Xerox Corporation" 1985)) NIL