(FILECREATED " 1-Aug-85 12:17:11" ("compiled on " {IVY}LISP>RPC>LUPINE.;113) "19-Mar-85 14:34:17" recompiled exprs: \ServerComs \MakeUnmarshalRecord \MakeMarshalRecord in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED " 1-Aug-85 12:16:27" {IVY}LISP>RPC>LUPINE.;113 56288 changes to: (FNS \ServerComs \MakeUnmarshalRecord \MakeMarshalRecord) previous date: " 1-Aug-85 09:40:04" {IVY}LISP>RPC>LUPINE.;112) LupineA0001 D1 (NAME ERRORSET P 3 s P 2 cName P 1 sName P 0 typeTable F 4 packageName F 5 functionSpecList F 6 signalSpecList F 7 RESETVARSLST F 10Q lupineTypeString F 11Q typeList F 12Q noServer F 13Q RESETY F 14Q noClient)  gd gi WcW !UdKH VdKHi W/T gh YTUVHW  T gh W/T gh ZTUVHW  T gh IJci(241Q ADDFILE 236Q PACK 225Q U-CASE 220Q SET 215Q \ClientComs 202Q PACK 171Q U-CASE 160Q ADDFILE 155Q PACK 144Q U-CASE 137Q SET 134Q \ServerComs 121Q PACK 110Q U-CASE 73Q \CheckSpec 51Q \CheckSpec 32Q \DeclareTypes 16Q SETTOPVAL 6 GETTOPVAL) (230Q CLIENT 174Q CLIENTCOMS 147Q SERVER 113Q SERVERCOMS 12Q DFNFLG 2 DFNFLG) () Lupine D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 noClient I 5 noServer I 4 lupineTypeString I 3 typeList I 2 signalSpecList I 1 functionSpecList I 0 packageName F 3 LISPXHIST F 4 RESETVARSLST) @lo@ AlB[CJD)oi @h bi i DD bS!Tog /h/oC oB oA gZ JI(225Q ERROR! 220Q RESETRESTORE 206Q ERROR 170Q ERROR 152Q ERROR 132Q LupineA0001 110Q MKSTRING 77Q TERPRI 72Q PRIN1 64Q MKSTRING 61Q PACK 52Q ETHERHOSTNUMBER 47Q GDATE 42Q PRIN1 15Q ERROR) (214Q ERROR 127Q INTERNAL) ( 202Q "function spec must be a list" 164Q "signal spec must be a list" 146Q "type declarations must be a list" 124Q (LupineA0001) 36Q "type string defaulted to " 11Q "package name must be an atom") \ServerComs D1 (P 56Q aSpec P 52Q aSpec P 46Q i P 44Q umres P 43Q margs P 42Q resultSpec P 41Q specs P 40Q cName P 37Q sSpec P 36Q j P 34Q res P 33Q wh P 32Q r P 30Q result P 27Q end P 26Q argSets P 25Q fn P 24Q rfl P 23Q rec P 22Q nameMap P 21Q argNames P 20Q spec P 14Q i P 11Q loads P 10Q hideFn P 7 movds P 6 labelTerms P 5 catchTerms P 4 $rNames$ P 3 selTerms P 2 iName P 1 dfn P 0 $fns$ I 4 lupineTypeString I 3 typeTable I 2 signalSpecList I 1 functionSpecList I 0 $packageName$) / AlOOH X@gh YBIoogMggKo N hkgIHX@gh Zd J g@h hoggJgog@hhhhgJohkgHXg@h oogJggog@hhhgJgggggDhgggIhhhhkgHXg@gh _hoggggOhohkgHXL1O2O8gh _gggggoOhh_gggghgHgJhhgJhOoggoOhhhhh lb$O:$_ dg^gh _*O kB*OJON_"0-O C _T gOT_0OTgOL O$_$_ROPORh_P_NOJ_JOLk_LOR&_Pd.gO\O$ O\O O\C h_VOX OVh_ZOV&_XOZ_,O0dO*ggC _.O*oooggO"O,ggO O"hoO.o  hkgKOO*ohh O gO  O*O_Ok_O*_OOh__O_O&__>dg_B gOBOB_BO>ggC _FOB gOBO>gC _HgO>h _@ooooggOggO@ohh O 2032Q DEFINEQ 1774Q l..cPup 1771Q \AddPupWord 1733Q Catch 1721Q RESULT 1703Q RETURNS 1661Q arg 1656Q SIGARGS 1632Q ARGS 1612Q * 1512Q Hidden. 1456Q DEFINEQ 1406Q l..result 1403Q SETQ 1373Q l..result 1370Q PROG 1337Q l..result 1334Q RESULT 1227Q SETQ 1133Q l..arg 1115Q RETURNS 1033Q ServerStub 1022Q * 734Q COND 731Q P 714Q GLOBALVARS 703Q VARS 676Q FNS 662Q Lupine 657Q by 654Q Created 651Q * 623Q FILES 620Q EVAL@LOAD 615Q EVAL@COMPILE 612Q DONTCOPY 607Q DECLARE: 574Q SIGNAL 543Q DEFINEQ 515Q QUOTE 512Q in 507Q p 504Q for 463Q ServerMovds 457Q Hide 446Q DEFINEQ 414Q FUNCTION 411Q version 406Q instance 376Q type 373Q OR 370Q password 365Q user 362Q ExportInterface 356Q SETQ 336Q QUOTE 327Q ERROR 324Q then 320Q if 276Q Export 265Q DEFINEQ 244Q SETQ 222Q QUOTE 213Q ERROR 207Q OR 204Q UnexportInterface 165Q Unexport 141Q ServerInterface 127Q DEFINEQ 76Q request 73Q SELECTQ 67Q enable 35Q ServerDispatch) ( 2164Q " is not on any known file" 2144Q "Note - the record " 2060Q (arg l..conv) 2010Q (SETQ l..cPup (\Call l..cPup NIL l..conv)) 1766Q (\StartSignal l..cPup) 1762Q (DECLARE (USEDFREE l..cPup)) 1756Q (* Lupine generated signal catcher) 1752Q (arg l..conv) 1472Q (l..pup l..conv) 1432Q ((RETURN l..cPup)) 1424Q (\StartReturn l..cPup) 1365Q (DECLARE (SPECVARS l..cPup l..conv)) 1361Q (* Lupine generated stub) 1355Q (l..cPup l..conv) 740Q (EQ (QUOTE Y) (ASKUSER 17Q (QUOTE N) "Hide server fns (must have been already loaded)? ")) 726Q (DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY (FILES (SYSLOAD) RPC)) 627Q (LOADCOMP) 526Q (do (PUTD (CADR p) (GETD (CAR p))) (PUTD (CAR p)) (CHANGENAME (CDDR p) (CAR p) (CADR p))) 501Q (* Lupine generated utility) 333Q "Already exported" 315Q (* Lupine generated interface) 311Q (type instance version user password) 251Q (NIL) 217Q "not exported" 201Q (* Lupine generated interface) 103Q ((SHOULDNT)) 64Q (* Lupine generated dispatcher) 60Q (l..pup request l..conv)) \MakeUnmarshal D1 (P 0 fragment I 4 pupName I 3 typeTable I 2 name I 1 fn I 0 type) ;@8Dgb@ABCjlD XddggHhhHo (66Q \APPEND2 31Q \MakeUnmarshal1) (46Q l..datum 43Q LET 7 l..cPup) ( 63Q (l..datum)) \MakeUnmarshal1 D1 (P 11Q nilCheck P 10Q typeSpec P 7 trueType P 3 typeSpec P 2 afn P 1 typeParm P 0 typeName I 6 pupName I 5 size I 4 whereAreWe I 3 typeTable I 2 name I 1 fn I 0 type) ! @ @@RHgHdggKggFgFohgggkggFogIABCF hhhHdgIC ODgFo FggOo_gOghgIABCF hhgC\h_ABCDElO]OMiLF gJlEE@DABC 6Djo )IdlgFol gFohHd`qlEE@DABC hDjo H` ZFIdddidd gIhho FgNgNohC [oAB@h dg&KABCDEdlKlKEF ABCDEF (1036Q \MakeUnmarshal1 1021Q \MakeUnmarshalRecord 743Q ERROR 722Q ASSOC 666Q \APPEND2 614Q SHOULDNT 605Q ASSOC 575Q HELP 557Q \FixedFetch 524Q SHOULDNT 453Q HELP 436Q \FixedFetch 410Q \MakeUnmarshalRecord 403Q SHOULDNT 334Q SHOULDNT 275Q \MakeUnmarshal 176Q \BaseType 135Q \MakeUnmarshal 35Q SHOULDNT 3 \TypeName) (753Q RECORD 704Q PROG1 675Q l..cPup 651Q QUOTE 602Q \LupineGetFns 534Q \LupinePrimativeTypes 511Q \GetArgDblWord 470Q \GetArgWord 414Q BITS 314Q SEQRECORD 263Q else 257Q then 252Q if 234Q PROG1 227Q l..pup 211Q \GetArgBool 162Q REF 123Q collect 111Q \GetArgDblWord 106Q to 102Q from 77Q l..i 74Q for 56Q \CheckPupExhausted 52Q SETQ 47Q PROGN 41Q LIST 27Q SEQRECORD 20Q RECORD) ( 731Q "Invalid spec" 711Q ((SETQ l..pup l..cPup)) 663Q (l..conv) 572Q "bad layout" 516Q (l..conv) 475Q (l..conv) 450Q "bad layout" 242Q ((SETQ l..pup l..cPup)) 216Q (l..conv) 116Q (l..conv) 63Q (2)) \MakeUnmarshalRecord D1 (P 36Q nf P 35Q f P 34Q term P 33Q prelim P 32Q field P 25Q size P 24Q last P 23Q field P 21Q nFixed P 20Q whereAreWe P 15Q seqStatic? P 14Q seqSubSpec P 13Q seqEltFetch P 12Q seqSpec P 11Q res P 10Q someNot P 7 notFixed P 6 umc P 5 indirects P 4 createExpr P 3 fetches P 2 seq? P 1 bits P 0 fnName I 6 pupName I 5 bitWidth I 4 startBit I 3 typeTable I 2 name I 1 fn I 0 spec F 37Q $rNames$ F 40Q $fns$ F 41Q $packageName$) gWB@gDgE @@g Hd@x@W>c>@dEIE@IY!EDjDD o I@DjDO_&OO"j7O"O" +O(gO(ggggO"hhhO$g@KO@AO,*O.OM _J\@OcO_:_*O$O&dO<O>h_<_:O6_6 O>&_<_Jg _L'i oi OJi oi i OLONOLON_NOH_HM(2154Q TERPRI 2147Q PRIN1 2136Q PRIN1 2127Q PRIN1 2116Q TERPRI 2106Q WHEREIS 1742Q \MakeArgsMarshal 1711Q U-CASE 1677Q \MakeArgsUnmarshal 1644Q U-CASE 1537Q U-CASE 1520Q LAST 1411Q \APPEND2 1217Q \MakeArgsUnmarshal 1175Q \NCONC2 1101Q \MakeMarshal 1051Q \StaticsFirst 1034Q PACK 704Q \APPEND2 626Q GDATE 525Q PACK 422Q PACK 220Q PACK 205Q SET 200Q BOUNDP 146Q \APPEND2 63Q \NCONC2 33Q PACK 14Q PACK) (2103Q RECORDS 1772Q QUOTE 1767Q Signal 1764Q l..result 1761Q SETQ 1752Q PROG 1735Q l..result 1732Q RESULT 1714Q RETURNS 1673Q SIGARGS 1647Q ARGS 1627Q * 1542Q RETURNS 1427Q DEFINEQ 1370Q PROG1 1365Q RETURN 1342Q FUNCTION 1337Q l..cPup 1334Q \Call 1331Q l..cPup 1326Q SETQ 1310Q l..cPup 1305Q \AddPupWord 1254Q CAR 1251Q l..interfaceArg 1246Q OR 1243Q l..interface 1240Q l..cPup 1235Q PROG 1213Q RESULT 1167Q l..conv 1164Q l..interfaceArg 1024Q RPCClientStub. 1010Q * 753Q FILES 750Q EVAL@LOAD 745Q EVAL@COMPILE 742Q DONTCOPY 737Q DECLARE: 664Q P 655Q GLOBALVARS 644Q VARS 637Q FNS 623Q Lupine 620Q by 615Q Created 612Q * 576Q DEFINEQ 550Q QUOTE 545Q in 542Q p 537Q for 516Q MovdsFor 505Q DEFINEQ 452Q type 447Q OR 444Q ImportInterface 440Q push 435Q CAR 413Q Import 402Q DEFINEQ 352Q SETQ 336Q in 333Q e 330Q for 325Q else 300Q l..interface 275Q DREMOVE 271Q SETQ 262Q then 252Q l..interface 247Q FMEMB 244Q if 241Q then 236Q l..interface 233Q if 211Q Unimport 165Q DEFINEQ 131Q SELECTQ 24Q Signals 20Q Dispatch 6 ClientInterface) ( 2143Q " is not on any known file" 2123Q "Note - the record " 2016Q (\StartReturn l..cPup) 1756Q (l..result) 1376Q ((\RELEASE.PUP l..cPup)) 1353Q (l..conv) 1316Q (l..conv) 1302Q (SETQ l..cPup (\StartCall (CAR l..interface) (CDR l..interface) l..conv)) 1276Q (DECLARE (SPECVARS l..cPup)) 1232Q (* Lupine generated stub) 757Q (LOADCOMP) 701Q ((DECLARE: EVAL@LOAD DONTEVAL@COMPILE DOCOPY (FILES (SYSLOAD) RPC))) 561Q (do (PUTD (CDR p) (GETD (CAR p)))) 534Q (* Lupine generated utility) 463Q (instance version) 432Q (* Lupine generated interface) 426Q (type instance version) 357Q (NIL) 343Q (do (UnimportInterface e)) 315Q (else (ERROR "not imported" l..interface)) 266Q (UnimportInterface l..interface) 230Q (* Lupine generated interface) 224Q (l..interface) 154Q (l..cPup) 143Q ((SHOULDNT)) 135Q (\GetArgWord l..cPup l..conv) 126Q (DECLARE (SPECVARS l..cPup l..conv)) 122Q (* Lupine generated dispatcher) 116Q (l..cPup l..conv)) \MakeMarshal D1 (P 0 fragment I 5 pupName I 4 typeTable I 3 name I 2 fn I 1 val I 0 type) F@CEgb @ABCDjlE XdddAgggAhhHhH (103Q \NCONC2 32Q \MakeMarshal1) (61Q l..datum 56Q LET 50Q l..datum 7 l..cPup) () \MakeMarshal1 D1 (P 7 typeSpec P 6 trueType P 3 typeSpec P 2 afn P 1 typeParm P 0 typeName I 7 pupName I 6 size I 5 whereAreWe I 4 typeTable I 3 name I 2 fn I 1 val I 0 type) @ @@BHgHdggMggGogGgAhogggAgIgBCDG hhhHdgID N=gAggGoIABCDG ggGoh hhgD\h_ABCDEFlO]NMiLG gVlFF@AEBCD AEjo 4IdlgGAohl gGAohhHd`dlFF@AEBCD hEjo H` ZGIdddidd gIhhAo hhD [oBC@h dg(KABCDEFdlKlKFG ABCDEFG (1034Q \MakeMarshal1 1015Q \MakeMarshalRecord 735Q ERROR 714Q ASSOC 701Q \APPEND2 624Q SHOULDNT 615Q ASSOC 605Q HELP 567Q \FixedStore 533Q SHOULDNT 447Q HELP 432Q \FixedStore 403Q \MakeMarshalRecord 375Q SHOULDNT 326Q SHOULDNT 271Q \APPEND2 245Q \MakeMarshal 200Q \BaseType 140Q \MakeMarshal 35Q SHOULDNT 3 \TypeName) (745Q RECORD 662Q QUOTE 612Q \LupinePutFns 543Q \LupinePrimativeTypes 513Q \AddPupDblWord 465Q \AddPupWord 407Q BITS 306Q SEQRECORD 253Q \AddPupBoolean 250Q else 221Q \AddPupBoolean 216Q then 212Q if 164Q REF 127Q l..v 122Q do 116Q in 113Q l..v 110Q for 72Q LENGTH 65Q \AddPupDblWord 52Q \CheckPupOverflow 47Q PROGN 41Q LIST 27Q SEQRECORD 20Q RECORD) ( 723Q "Invalid spec" 675Q (l..conv) 602Q "bad layout" 522Q (l..conv) 474Q (l..conv) 444Q "bad layout" 261Q (T l..conv) 227Q (NIL l..conv) 102Q (l..conv) 60Q (4)) \MakeMarshalRecord D1 (P 30Q nf P 27Q f P 26Q code P 25Q field P 22Q size P 21Q field P 17Q nFixed P 16Q whereAreWe P 13Q someNot P 12Q mc P 11Q indirects P 10Q notFixed P 7 stores P 6 seqStatic? P 5 seqEltStore P 4 seqSubSpec P 3 seqSpec P 2 seq? P 1 bits P 0 fnName I 7 pupName I 6 bitWidth I 5 startBit I 4 typeTable I 3 name I 2 fn I 1 val I 0 spec F 31Q $rNames$ F 32Q $fns$ F 33Q $packageName$) HgW6@gEgF @@g Hd@@W2c2@dFIF@IY!FEjEE o I@Ej4O_"O0Oj(OO O ggOhh _$O O"d:dg0J$O"[\gBCDLD ^gg ]hD Ok_i_hO"g@O"hoBCDOO$g _d0Oggg@O"hohhOh _O_OO$l_Oj$OO ggOhOj_O _ O_O_O _O@!O&"O(_OO _J0N>M_.__*D )O(O*g@O*hoBCDg  _(O&_&gggLD ohh_,M_0O.gggggO.h_,O0/Ogggg@KhogO0h _ogggggg@KhohhooOO, oh_JOgggOh_HooOkgHgO HW4c4@H@g _HGAohO(1462Q \APPEND2 1430Q PUT 1316Q \APPEND2 1224Q \NCONC2 1061Q \TypeSize 1031Q \NCONC2 1026Q \MakeMarshal 763Q \LupineNotFixed 731Q \NCONC2 644Q \NCONC2 607Q \FZEROP 543Q \NCONC2 464Q \MakeMarshal1 401Q \LupineNotFixed 370Q SHOULDNT 363Q \MakeMarshal 346Q \IsStatic 264Q \NCONC2 233Q \FZEROP 157Q HELP 147Q \FZEROP 22Q PACK*) (1456Q LupineNotFixed 1423Q LupineNotFixed 1414Q DEFINEQ 1360Q then 1355Q l..datum 1352Q if 1255Q fetch 1252Q l..sequence 1247Q LET 1244Q then 1241Q l..datum 1236Q if 1210Q do 1170Q fetch 1165Q in 1162Q l..datum 1157Q for 1132Q do 1127Q l..sequence 1124Q in 1121Q l..datum 1116Q for 1054Q ITIMES 1051Q l..pup 1046Q \SkipBytesOut 1022Q l..cPup 776Q fetch 617Q l..pup 614Q \SkipBytesOut 506Q fetch 503Q l..datum 500Q LET 460Q l..pup 430Q fetch 357Q l..cPup 353Q l..pup 336Q l..datum 314Q SEQUENCE 247Q l..pup 244Q \SkipBytesOut 36Q SEQRECORD 15Q # 11Q # 2 Marshal) ( 1475Q (l..conv) 1403Q (* Lupine generated stub) 1377Q (l..pup l..datum l..conv) 1326Q (else (\AddPupBoolean l..pup T l..conv)) 1307Q (\AddPupDblWord l..pup (LENGTH l..sequence) l..conv) 1303Q (\AddPupBoolean l..pup NIL l..conv) 1270Q (of l..datum) 1233Q (\CheckPupOverflow l..pup 6) 1203Q (of l..datum) 1070Q ((LENGTH l..sequence)) 1012Q (of l..datum) 522Q (of l..datum) 444Q (of l..datum) 154Q "bad layout") \FixedStore D1 (P 4 form P 3 bitNum P 2 rf P 1 typeParm P 0 typeName I 6 typeTable I 5 name I 4 fn I 3 whereAreWe I 2 val I 1 type I 0 size) A AA2HdggHgHgC@k[HdgByg_gggjggggIhggggBhoggogBgIhhhhHggBo\gghjgKhhoLhZCjCd oJhC@lJohJh(342Q \FZEROP 266Q SHOULDNT 27Q SHOULDNT 3 \TypeName) (302Q BITS 275Q QUOTE 272Q REPLACEFIELD 253Q if 246Q BOOLEAN 207Q QUOTE 203Q CONS 174Q Signal 171Q finally 153Q l..t 150Q EQ 145Q if 142Q do 133Q QUOTE 130Q in 125Q l..t 122Q as 116Q from 113Q l..i 110Q for 102Q ENUMERATION 71Q BITS 47Q ENUMERATION 41Q BITS 33Q BOOLEAN 21Q RECORD) ( 370Q (\IncrPupLength l..pup 2) 347Q (\CheckPupOverflow l..pup 2) 317Q (\CurrentPupPosition l..pup) 260Q (then 1 else 0) 200Q (QUOTE BoundsCheck) 164Q (then (RETURN l..i))) \MakeArgsMarshal D1 (P 4 rBit P 0 resultSpec I 4 typeTable I 3 varName I 2 multTypeName I 1 fn I 0 spec F 5 $rNames$) o@dlD XH @CACD B@Uc 0HD 0dLg@LhgChALD YJ I[ZK ZI(150Q LAST 124Q \MakeMarshal 60Q \StaticsFirst 34Q \MakeMarshal 15Q \BaseType) (106Q of 75Q fetch) () \CheckSpec D1 (P 5 last P 4 argsAlready P 3 aSpec P 2 specP P 1 an I 2 sigFlg I 1 typeTable I 0 spec) @ o@ @go@dlo@ @@do@ @@ g oi @i oi i @B@ @ h2HZ>Ioi ki @i i @ M gMAhi  gJoJ J[B#J gLi\o KAhi dIKIIYPoKII ?KloK @ )oi ki @i ki Ki i KA Joi @i oi i h(601Q TERPRI 575Q PRIN1 565Q PRIN1 557Q PRIN1 541Q \CheckType 533Q TERPRI 526Q PRIN1 520Q SPACES 512Q PRIN1 503Q SPACES 475Q PRIN1 463Q \DEFINEDP 455Q ERROR 434Q ERROR 375Q \CheckType 365Q ERROR 344Q U-CASE 326Q ERROR 305Q U-CASE 277Q \CheckType 260Q U-CASE 247Q LAST 241Q TERPRI 234Q PRIN1 225Q SPACES 217Q PRIN1 172Q ARGLIST 163Q \DEFINEDP 151Q TERPRI 144Q PRIN1 133Q PRIN1 124Q PRIN1 106Q U-CASE 73Q ERROR 50Q ERROR 13Q ERROR) (347Q ARGS 310Q RETURNS 263Q RETURNS 111Q RETURNS 21Q *) ( 571Q " has no result" 553Q "Note: " 471Q "Note: spec has more arguments than function" 451Q "arg name must be litatom" 421Q "arg name not right" 362Q "first and only arg spec for a signal must be called ARGS" 322Q "RETURNS must be the last spec" 213Q "Note: spec has fewer arguments than function" 140Q " has no args" 120Q "Note: " 66Q "the arg specs of a spec must be a list" 43Q "the fn/signal of a spec must be an atom" 7 "each spec must be a list") \CheckType D1 (I 5 inSeq I 4 inRef I 3 inSpecial I 2 inDecl I 1 typeTable I 0 spec) @d @@ABCDE (31Q \CheckType1 6 \TypeName) NIL () \CheckType1 D1 (P 3 fieldSpecPointer P 1 fs P 0 trueType I 7 inSeq I 6 inRef I 5 inSpecial I 4 inDecl I 3 typeTable I 2 typeParm I 1 typeName I 0 spec) Ad`L`8Bo@ Adgdgdg#gGo@ @ChdAg g3BddBjBdll Bo@ AgAgAdg&Do@ @B BdIC hgDo@ @B BJ[5ho@ Bl  `oi ki @i  gKo@ iKChddi KiKB o@ C EBo@ AC Xddd`Eo@ Hg5F/o@ o@ (646Q ERROR 635Q ERROR 603Q ERROR 553Q \BaseType 545Q ERROR 531Q ASSOC 524Q ERROR 475Q \CheckType 460Q ERROR 437Q U-CASE 434Q \TypeName 425Q PRIN1 417Q SPACES 411Q PRIN1 373Q \TypeName 365Q NLEFT 356Q ERROR 331Q \CheckRecordDecl 323Q ERROR 274Q \CheckType 260Q \CheckRecordDecl 252Q ERROR 212Q ERROR 123Q \CheckType 103Q ERROR 36Q ERROR) (611Q SEQRECORD 566Q \LupineDummyTypes 442Q SEQUENCE 376Q \LupineNumberTypes 306Q SEQRECORD 234Q SIGARGS 225Q RESULT 217Q RECORD 127Q BITS 116Q REF 66Q SEQUENCE 60Q SEQUENCE 52Q REF 44Q LIST 17Q \LupineTypesWithParm 7 \LupinePrimativeTypes) ( 642Q "Not a type" 631Q "Must get to SEQRECORD via a REF, not directly" 577Q "Can't use RESULT/SIGARGS except from RETURNS/ARGS spec" 541Q "Shouldnt have type parm for user-defined type" 520Q "Shouldnt have type parm for type" 454Q "SEQUENCE must be the last field of a SEQRECORD" 405Q "Warning - next to last field in SEQRECORD not a numeric type?" 352Q "SEQRECORD must end with a SEQUENCE field" 317Q "In line SEQRECORDs not allowed - must be pre-declared as a named type" 246Q "In line RECORDs/RESULTs/SIGARGSs not allowed - must be pre-declared as a named type" 206Q "BITS type must have exactly one numeric parameter in [1..16] U [32]" 77Q "SEQUENCE field can occur only in SEQRECORDs" 32Q "Must have type parm for type") \CheckRecordDecl D1 (P 0 recFields I 1 fieldSpecs I 0 spec) B@ H o@ H A AYioH@h HhIh(61Q ERROR 33Q LENGTH 27Q LENGTH 22Q ERROR 4 RECORDFIELDNAMES) NIL ( 51Q "Field names in type declaration don't match up with those of record" 16Q "No record declaration for record type") \DeclareTypes D1 (P 4 allocation P 3 newEntry P 2 ty P 1 typeTable I 0 typeDecls) @` 2HIZdgJdloJ JJdoJ J g&JJlIJ- MoJ DJIi JJhdhJd `JI KLKLKIYHXS(236Q \Allocate 221Q U-CASE 167Q \CheckType 157Q ERROR 145Q \NCONC2 142Q \DeclareTypes 107Q U-CASE 101Q ERROR 56Q ERROR 6 \APPEND2) (224Q \LupineDummyTypes 112Q INCLUDE 26Q * 3 \LupineInitialTypeTable) ( 153Q "INCLUDE must be of the form (INCLUDE )" 75Q "there must be one and only one type in a type declaration" 52Q "type declaration must begin with an atomic type name") \Allocate D1 (P 7 need P 5 max P 3 rRes P 2 res P 1 typeParm P 0 typeName I 2 subFlg I 1 typeTable I 0 type) @ @@2Hg2Hg+Hg$HgHgHgHgHdgl glHdgdgIA BKrKp`aHdgkBgI9Hg/I kjMjMd NkLLM]NkؾkOdlo HA ZBdhJddh(327Q \TypeLayout 320Q SHOULDNT 276Q SHOULDNT 244Q \FZEROP 222Q LENGTH 144Q \AllocateRecord 3 \TypeName) (213Q ENUMERATION 201Q BITS 170Q BOOLEAN 160Q \LupinePrimativeTypes 135Q SEQRECORD 127Q RECORD 113Q SSMALLP 100Q SEQUENCE 71Q REF 63Q FIXP 54Q ARB 45Q STREAM 36Q LIST 27Q ATOM 20Q STRING) ( 315Q "Too big") \AllocateRecord D1 (P 7 need P 6 sub P 5 left P 4 t P 2 wordsUsed P 1 bitsLeft I 2 typeTable I 1 typeParm I 0 typeName) AljSH;Ij0I&JdjJ yIlsMdIJkZg JkZ\KLBi ^_I7IjId IlMdIJkԺlOlJOԺj_IOչN] HXnJjJd lIՄJK(250Q \FZEROP 225Q \NCONC2 143Q \FZEROP 116Q \Allocate 73Q \FZEROP 43Q \FZEROP) NIL () \TypeName D1 (P 0 typen I 0 type) @dH `H H(24Q U-CASE 13Q U-CASE) (16Q \LupinePrimativeTypes) () \BaseType D1 (P 0 typeName I 1 typeTable I 0 type) @ Hd`@A A (31Q \BaseType 23Q \TypeLayout 3 \TypeName) (13Q \LupinePrimativeTypes) () \TypeLayout D1 (I 1 typeTable I 0 typeName) @A o@ (16Q HELP 4 ASSOC) NIL ( 12Q "Type not defined") \TypeSize D1 (P 1 entry P 0 typeName I 1 typeTable I 0 type) @ HA H`l l(13Q ASSOC 3 \TypeName) (21Q \LupineNotFixedTypes) () \LupineNotFixed D1 (I 1 typeTable I 0 field) @A `(11Q \TypeName 6 \BaseType) (14Q \LupineNotFixedTypes) () \StaticsFirst D1 (P 5 nonStatics P 4 s I 1 typeTable I 0 specs) @@QHIM \ gLA MLh LJ KhZHXK&(50Q \NCONC2 40Q \IsStatic 23Q U-CASE 14Q \NCONC2) (26Q RETURNS) () \IsStatic D1 (P 3 f P 1 typeName P 0 trueType I 1 typeTable I 0 type) 6@A H !I` Ig HZi[A hJ(56Q \IsStatic 25Q MEMB 13Q \TypeName 4 \BaseType) (33Q RECORD 22Q \LupineStatics) () (PRETTYCOMPRINT LUPINECOMS) (RPAQQ LUPINECOMS ((DECLARE: DONTCOPY (RECORDS ArgSpec Fragment FunctionSpec FieldSpec LupineType RecordLayout TypeSpec)) (* Basic stub construction) (FNS Lupine \ServerComs \MakeUnmarshal \MakeUnmarshal1 \MakeUnmarshalRecord \FixedFetch \MakeArgsUnmarshal \ClientComs \MakeMarshal \MakeMarshal1 \MakeMarshalRecord \FixedStore \MakeArgsMarshal) (* Checking of declarations) (FNS \CheckSpec \CheckType \CheckType1 \CheckRecordDecl) (* Type table construction) (FNS \DeclareTypes \Allocate \AllocateRecord) (* Utilities) (FNS \TypeName \BaseType \TypeLayout \TypeSize \LupineNotFixed \StaticsFirst \IsStatic) (VARS \LupineGetFns \LupinePutFns \LupinePrimativeTypes \LupineInitialTypeTable \LupineNumberTypes \LupineNotFixedTypes \LupineDummyTypes \LupineStatics \LupineTypesWithParm) (GLOBALVARS \LupineGetFns \LupinePutFns \LupineStatics \LupineTypesWithParm \LupinePrimativeTypes \LupineDummyTypes \LupineNotFixedTypes \LupineNumberTypes \LupineInitialTypeTable) (DECLARE: DONTCOPY (CONSTANTS (\FirstLupineUserCall 4) (\FirstLupineSignal 4) )))) (RPAQQ \LupineGetFns ((SSMALLP . \GetArgSmallp) (FIXP . \GetArgDblWord) (BOOLEAN . \GetArgBool) ( STRING . \UnmarshalString) (ATOM . \UnmarshalAtom) (STREAM . \UnmarshalStream) (ENUMERATION . \GetArgEnum) (ARB . \UnmarshalArb))) (RPAQQ \LupinePutFns ((SSMALLP . \AddPupSmallp) (FIXP . \AddPupDblWord) (BOOLEAN . \AddPupBoolean) ( STRING . \MarshalString) (ATOM . \MarshalAtom) (STREAM . \MarshalStream) (ENUMERATION . \AddPupEnum) ( ARB . \MarshalArb) (BITS . \AddPupWord))) (RPAQQ \LupinePrimativeTypes (SSMALLP FIXP BOOLEAN STRING ATOM STREAM ENUMERATION ARB BITS LIST RECORD RESULT SIGARGS REF SEQRECORD SEQUENCE)) (RPAQQ \LupineInitialTypeTable ((CARDINAL (BITS 16) NIL 16 16) (* the next is not true, but is as close as we get) (LONGCARDINAL (BITS 32) NIL 32 32))) (RPAQQ \LupineNumberTypes (FIXP SSMALLP ENUMERATION BITS)) (RPAQQ \LupineNotFixedTypes (STRING ATOM STREAM ARB LIST REF)) (RPAQQ \LupineDummyTypes (RESULT SIGARGS)) (RPAQQ \LupineStatics (SSMALLP FIXP BOOLEAN ENUMERATION BITS)) (RPAQQ \LupineTypesWithParm (ENUMERATION BITS LIST REF SEQRECORD SEQUENCE RECORD RESULT SIGARGS STREAM )) (PUTPROPS LUPINE COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL