(FILECREATED "27-Nov-86 14:41:57" ("compiled on " {ERIS}LIBRARY>GRAPEVINE.;6) "25-Nov-86 00:46:57" bcompl'd in "Xerox Lisp 25-Nov-86 ..." dated "25-Nov-86 01:18:01") (FILECREATED "21-May-86 10:53:33" {ERIS}LIBRARY>GRAPEVINE.;6 51369 changes to: (RECORDS TIMESTAMP) (FNS GV.ISINLIST GV.ISMEMBERCLOSURE GV.ISMEMBERDIRECT GV.ADDFRIEND GV.ADDLISTOFMEMBERS GV.ADDMEMBER GV.ADDOWNER GV.REMOVEFRIEND GV.REMOVEMEMBER GV.REMOVEOWNER \TIMESTAMP.DEFPRINT \RECEIVESTRING) previous date: " 4-Feb-86 14:56:28" {ERIS}LIBRARY>GRAPEVINE.;5) GV.AUTHENTICATE §D4 (I 1 KEY I 0 NAME) l @ A h(14 \GVOP 9 \CHECKKEY 5 \CHECKNAME) NIL () GV.CHECKSTAMP §D4 (I 1 OLDSTAMP I 0 NAME) l@ A hg(17 \GVOP 9 \CHECKSTAMP 5 \CHECKNAME) (14 \RECEIVESTAMP) () GV.EXPAND §D4 (I 1 OLDSTAMP I 0 NAME) k@ A hg(16 \GVOP 8 \CHECKSTAMP 4 \CHECKNAME) (13 \RECEIVERLIST) () GV.IDENTIFYCALLER §D4 (I 1 KEY I 0 NAME) l!@ A h(14 \GVOP 9 \CHECKKEY 5 \CHECKNAME) NIL () GV.IDENTIFYME §D4 (P 0 npw) h HH (13 GV.IDENTIFYCALLER 3 \INTERNAL/GETPASSWORD) NIL () GV.ISINLIST §D4 (I 4 WHERE I 3 WHICH I 2 WHAT I 1 MEMBER I 0 GROUP) )l.@ A `BµjCµjDµjhhg(38 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) (35 \RECEIVEBOOL 12 \3BYTEKLUDGEKEY) () GV.ISMEMBERCLOSURE §D4 (I 1 MEMBER I 0 GROUP) l+@ A hg(17 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) (14 \RECEIVEBOOL) () GV.ISMEMBERDIRECT §D4 (I 1 MEMBER I 0 GROUP) l(@ A hg(17 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) (14 \RECEIVEBOOL) () GV.READCONNECT §D4 (I 0 NAME) l@ hg(12 \GVOP 5 \CHECKNAME) (9 \RECEIVERNAME) () GV.READENTRY §D4 (I 2 READFN I 1 OLDSTAMP I 0 NAME) l@ A hBµg(20 \GVOP 9 \CHECKSTAMP 5 \CHECKNAME) (17 \RECEIVECLIST) () GV.READFRIENDS §D4 (I 2 READFN I 1 OLDSTAMP I 0 NAME) l@ A hBµg(20 \GVOP 9 \CHECKSTAMP 5 \CHECKNAME) (17 \RECEIVERLIST) () GV.READMEMBERS §D4 (I 2 READFN I 1 OLDSTAMP I 0 NAME) l@ A hBµg(20 \GVOP 9 \CHECKSTAMP 5 \CHECKNAME) (17 \RECEIVERLIST) () GV.READOWNERS §D4 (I 2 READFN I 1 OLDSTAMP I 0 NAME) l@ A hBµg(20 \GVOP 9 \CHECKSTAMP 5 \CHECKNAME) (17 \RECEIVERLIST) () GV.READREMARK §D4 (I 0 NAME) l@ hg(12 \GVOP 5 \CHECKNAME) (9 \RECEIVERNAME) () GV.ADDFORWARD §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.ADDFRIEND §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 FRIEND I 0 GROUP) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.ADDLISTOFMEMBERS §D4 (P 1 p I 3 PASSWORD I 2 IDENTIFYUSER I 1 MEMBERS I 0 GROUP) `l@ AµoA hhBµiC §Alð²àAHYµ i²ÓA°Ø²I ¨Ilð´éII ¢h°ÝI°Ô(86 ALPHORDER 68 STRINGP 34 STRINGP 29 \GVOP 17 ERROR 5 \CHECKNAME) NIL ( 13 "must have ordered list of strings") GV.ADDMAILBOX §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.ADDMEMBER §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 MEMBER I 0 GROUP) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.ADDOWNER §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 OWNER I 0 GROUP) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.CHANGECONNECT §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 SITE I 0 NAME) =l@ A µ(Adlð’d³«Ad3§«`b•A µ oA hhBC (58 \GVOP 49 ERROR 39 PORTSTRING 9 STRINGP 5 \CHECKNAME) (32 \LOCALPUPNETHOST) ( 45 "Invalid Site") GV.CHANGEPASSWORD §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 KEY I 0 NAME) l@ A hhBµiC (21 \GVOP 9 \CHECKKEY 5 \CHECKNAME) NIL () GV.CHANGEREMARK §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.CREATEGROUP §D4 (I 2 PASSWORD I 1 IDENTIFYUSER I 0 NAME) l@ hdAµiB (16 \GVOP 5 \CHECKNAME) NIL () GV.CREATEINDIVIDUAL §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 KEY I 0 NAME) l@ A hhBµiC (21 \GVOP 9 \CHECKKEY 5 \CHECKNAME) NIL () GV.DELETEGROUP §D4 (I 2 PASSWORD I 1 IDENTIFYUSER I 0 NAME) l@ hdAµiB (16 \GVOP 5 \CHECKNAME) NIL () GV.DELETEINDIVIDUAL §D4 (I 2 PASSWORD I 1 IDENTIFYUSER I 0 NAME) l @ hdAµiB (16 \GVOP 5 \CHECKNAME) NIL () GV.NEWNAME §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 GV.NEWNAME I 0 NAME) l @ A hhBµiC (21 \GVOP 9 \CHECKNAME 5 \CHECKNAME) NIL () GV.REMOVEFORWARD §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.REMOVEFRIEND §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 FRIEND I 0 GROUP) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.REMOVEMAILBOX §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.REMOVEMEMBER §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 MEMBER I 0 GROUP) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () GV.REMOVEOWNER §D4 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 OWNER I 0 GROUP) l@ A hhBµiC (21 \GVOP 9 \CHECKSTRING 5 \CHECKNAME) NIL () \GVOP §D4 (I 5 PASSWORD I 4 IDENTIFYUSER I 3 READFN I 2 itemList I 1 name I 0 OP) A@ABCDE (12 \ENQUIRE) NIL () \ENQUIRE §D4 (P 3 INFO P 2 CONN P 1 RESULT P 0 REGISTRY I 4 PASSWORD I 3 IDENTIFYUSER I 2 READFN I 1 ARGS I 0 NAME F 4 GVNAMETYPE) &`1H Z£gCµJA Yµ‚±‘¿Jh¿°Ýið—[b¿JdCð³ÔCô³ÉJl!C DµK h Yµ¿Jh¿°—ãdlð•¿g°dlð•¿g°dl ð”¿g‡jð‘h‚Yµ‚±†JC¿±ÿilÿåc¿IãYdkð•¿g°_djð¿B—JkB°Pi°Mdlð²¿H`ð¤g°;Jh¿@gX±ÿdlð•¿g° dlð•¿g°dlð”¿gˆl ð“g€I¹JhI(153 SHOULDNT 103 BLOCK 97 \PERFORMGVOP 90 \CHECKKEY 82 \CHECKNAME 48 \INTERNAL/GETPASSWORD 33 BLOCK 23 \PERFORMGVOP 9 FINDREGSERVER) (282 AllDown 274 BadPassword 263 NotAllowed 252 BadRName 238 GV 225 BadRName 220 REGROOT 189 NoChange 144 AllDown 133 BadPassword 122 BadRName 14 AllDown 2 REGROOT) () \PERFORMGVOPA0001 §D4 (P 7 e P 6 SI§§*NLSETQFLAG* P 5 STREAM P 4 *CONDITION-HANDLER-BINDINGS* P 3 *PROCEED-CASES* P 1 SI§§*CATCH-RETURN-FROM* P 0 SI§§*DUMMY-FOR-CATCH* F 8 CONN F 9 PROCEED-CASE0403 F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS* F 12 ARGS) ri@ggggWgjgg gg WggW!i¾W½WŒdMO µòM ¿WZ áJ Øh (109 \MVLIST 93 FORCEOUTPUT 84 \SENDITEM 44 MAKE-PROCEED-CASE 40 CL§SYMBOL-FUNCTION 31 CL§SYMBOL-FUNCTION) (56 SI§§NLSETQHANDLER 53 SERIOUS-CONDITION 37 SI§§ERRORSET-PRINT-FUNCTION 34 §REPORT 28 TRUE 25 §TEST 21 §SELECTOR 16 §TAG 13 ABORT 10 §NAME 7 §NORMAL) () \PERFORMGVOP §D4 (P 4 PROCEED-CASE0401 P 3 A0405 P 2 PROCEED-CASE0402 P 1 A0404 P 0 PROCEED-CASE0403 I 1 ARGS I 0 CONN) +hhH 1I¼I[ºLdgð•¿J „j:´h(32 CL§VALUES-LIST 9 \PERFORMGVOPA0001) (25 §NORMAL) () FINDREGSERVER §D4 (P 3 \INTERRUPTABLE P 0 NEWSOC I 1 ERRORFLG I 0 REGISTRY) p0@¦@ b¿`Yµ8hµ3@A l*l(`XµA´o@ @HiH`HZ³@`ð§@Jô˜Ji¿J°¯I°¦(55 ERROR 41 OPENCLOSESTSOCKET 31 LOCATESOCKETS 9 \UNPACKREG) (87 REGROOT 74 \GVCONNECTIONS 70 \GVCONNECTIONS 38 \REG.IOTIMEOUT 18 \GVCONNECTIONS) ( 51 "Couldn't open connection for") LOCATESOCKETS §D4 (P 3 cn P 2 rName I 1 ERRORFLG I 0 SITE) ^@`ô˜`Ai@ µ A´ o@ 1HµIºIJ [—KhiµJhiµA´oJK ¹HX°Ë(86 \NCONC2 83 HELP 68 ETHERPORT 60 ETHERPORT 52 STRINGP 49 GV.READCONNECT 32 ERROR 18 GV.READMEMBERS 13 ETHERPORT) (8 REGROOTNLSNAME 3 REGROOT) ( 77 "Can't look up connect name" 28 "Not a valid site") OPENCLOSESTSOCKETA0001 §D4 (NAME SI§§*UNWIND-PROTECT* P 10 PUP P 9 VAL P 8 PORT P 7 REMAININGPORTS P 6 CNTIME P 5 SOC P 4 ALLPORTS P 3 LOCALPORTS P 2 PROBECOUNT P 1 BETWEENPROBE P 0 MYNET I 0 SI§§*CLEANUP-FORMS* F 12 POLLSOC F 13 SI§§*RESETFORMS* F 14 PORTLIST F 15 TIMEOUT F 16 CONNSOC) `ãl jök“W°d_¿W›OdãHð•K»„OL¼µåLµKµL³hd¿HáhL‰ ¼°éL ¼g]hhhWcl `ö^L_I ²YJkÙZjð²O_ãHð‘klºOµL_¿_OWµ OµlkhMg ¿MO ¿IÃ‘I‚l `ö¹¿M _²8OÊ‡lð².OÊ%Hð—OÈ%K²OÈ%W µOlÐl W _µN ¢±ÿ\h(277 TIMEREXPIRED? 269 \OPENGVCONNECTION 263 \GETBASEFIXP 215 GETPUP 210 BLOCK 202 \CLOCK0 188 SENDPUP 181 SETUPPUP 155 ALLOCATE.PUP 118 TIMEREXPIRED? 106 \CLOCK0 87 OPENPUPSOCKET 80 \APPEND2 73 SORT.PUPHOSTS.BY.DISTANCE 9 \CLOCK0) (205 \BETWEENPROBEDELAY 193 FIXP 177 FREE 109 \CONNECTTIMEOUT 84 CLOSEPUPSOCKET 2 \LOCALPUPNETHOST) () OPENCLOSESTSOCKET §D4 (P 1 SI§§*RESETFORMS* P 0 LISPXHIST I 3 TIMEOUT I 2 CONNSOC I 1 POLLSOC I 0 PORTLIST F 2 LISPXHIST) Rg ¿ (19 CL§VALUES-LIST 15 SI§§RESETUNWIND 12 \MVLIST 9 OPENCLOSESTSOCKETA0001) (6 SI§§RESETUNWIND) () \OPENGVCONNECTION §D4 (P 0 INSTREAM I 3 FAILURESTRING I 2 ERRORHANDLER I 1 TIMEOUT I 0 FRNSOCKET) -@hBAhgC Hd² ²Hd hdddhH(29 BSPOUTPUTSTREAM 22 STREAMP 12 OPENBSPSTREAM) (7 \GV.WHENCLOSED) () GV.KILLSOCKET §D4 (I 1 TIMEOUT I 0 SOCKET) @A (8 BLOCK 5 CLOSEBSPSTREAM) NIL () \GV.WHENCLOSED §D4 (P 1 CONN I 0 BSPSTREAM) -`HµhYd@ð²h¿I` ¿HX°Ý(34 DREMOVE) (37 \GVCONNECTIONS 31 \GVCONNECTIONS 2 \GVCONNECTIONS) () \CHECKNAME §D4 (I 0 NAME) *@«@µ b¿l@@ @ Øñ‘@o@ (39 ERROR 26 NCHARS 21 NCHARS 11 \UNPACKREG 8 \NONAMEERR) NIL ( 35 "name too long - must be < 65 chars") \CHECKSTRING §D4 (I 0 STRING) f@ dgð³Hdgð²-¿@²#@lð²@²@lð@g@b°ogð–@ b‰o@ ¿@ l@ñ˜o@ @(97 ERROR 85 NCHARS 80 ERROR 69 MKSTRING 51 CONCAT 3 TYPENAME) (63 LITATOM 46 %. 14 LISTP 7 STRINGP) ( 93 "string too long" 76 "bad string arg" 59 "bad string arg") \NONAMEERR §D4 NIL o (6 ERROR) NIL ( 3 "must have name for GV user op") \UNPACKREG §D4 (P 0 PPOS I 0 REG) )o@ H²@kHkÙ@HkØ @ `(34 MKATOM 28 SUBATOM 21 SUBATOM 7 STRPOS) (37 DEFAULTREGISTRY) ( 3 ".") \CHECKKEY §D4 (I 0 KEY) @Ã‘@@ (10 GV.MAKEKEY) (3 GVKEY) () GV.MAKEKEY §D4 (P 3 C P 2 J P 1 KEY P 0 I I 1 ISCLEAR I 0 STRING) Bj`"@HkØ [²/IHlåZIJÂA¤KlIæ»lAKñ©KdlZñ¤l Ø€KàlÿåæÇ¿HkÔ¸°ËI(14 NTHCHARCODE) (3 GVKEYTYPE#) () \TIMESTAMP.DEFPRINT §D4 (I 1 STREAM I 0 STAMP F 3 \THISFILELINELENGTH F 4 *READTABLE*) vS²AÈlØSñ”A ¿ATÊHÉ(ºHIlJoA ¿@È A ¿oA ¿@È@Èõoæo A ¿oA i(114 PRIN1 105 PRIN1 101 GDATE 75 PRIN1 66 PRIN1 62 PORTSTRING 52 PRIN1 18 FRESHLINE) (86 TIMESTAMP 80 TIMESTAMP 57 TIMESTAMP 34 STREAM 24 READTABLEP 6 STREAM) ( 110 ">" 98 (DATEFORMAT NO.SECONDS) 93 -2147483648 71 " at " 48 "@AjllHAÃ²@É É>@AjllHAµdlð²L¿A A kØØ@Iã ¿@Ilÿå @j ¿@j A@ @l. A@ Ikåjð³j@j `ð²Ad@Jlÿå µðh@AjKµLKLã ¿KLlÿå A°"½LM kØâlØÔ¼K[°Ód@M µóh(293 \SENDSTRING 270 NCHARS 259 \BOUT 250 \BOUT 222 BOUT 199 BOUT 187 PRIN3 181 BOUT 175 PRIN3 169 \BOUT 163 \BOUT 158 \BOUT 149 \BOUT 137 NCHARS 132 NCHARS 117 SHOULDNT 49 \BOUT 44 \BOUT 38 \SENDSTRING 29 STRINGP 19 \BOUT 11 \BOUT) (204 \3BYTEKLUDGEKEY 95 FDEV 90 STREAM 84 TIMESTAMP 65 FDEV 60 STREAM 54 GVKEY) () \SENDSTRING §D4 (P 0 L I 1 STRING I 0 STREAM) DA Hl@ñ™oA h@Hã ¿@Hlÿå @j ¿@l@ A@ Hkåjð¤@j h(64 BOUT 53 PRIN3 48 \BOUT 41 \BOUT 36 \BOUT 27 \BOUT 19 ERROR 3 NCHARS) NIL ( 15 "string too long") \RECEIVEBOOL §D4 (I 0 STREAM) @ dkð‘ijð‘h(15 SHOULDNT) NIL () \RECEIVECLIST §D4 (I 0 STREAM) .@i @ á@ ØAk\Hó³@ »JµKhZ¹LkÔ°ëK&º°øI(23 \RECEIVECOMPONENT 4 \RECEIVESTAMP) NIL () \RECEIVECOMPONENT §D4 (I 0 STREAM) +@ á@ ØAk\Hó³@ á@ Ø»JµKhZ¹LkÔ°éK&º°øINIL NIL () \RECEIVERLIST §D4 (P 5 STRLEN P 1 NWORDS P 0 STAMP I 0 INSTREAM) <@ @ á@ ØBIjñ²'@d á@ Ø] IMkØâlØÙ¹¼Kµ Lh[º°ÝL&»°ØHJ(28 \RECEIVESTRING 3 \RECEIVESTAMP) NIL () \RECEIVERNAME §D4 (I 0 INSTREAM) @d á@ Ø (9 \RECEIVESTRING) NIL () \RECEIVESTAMP §D4 (I 1 OLDSTAMP I 0 STREAM) AAdið²¿lHjñ˜@ ¿HkÙX°ö°$Ã¦`b¿@É É<@AjllHANIL (47 FDEV 42 STREAM 34 TIMESTAMPTYPE# 30 TIMESTAMP) () \RECEIVESTRING §D4 (P 0 STRING I 1 LENGTH I 0 STREAM) N@ ¿@ A @HÊjð¤H ‚HÉHÊjð¤H ‚HÈJÉ É<¹JKLAlIAkåjð¡@ H(38 %%ARRAY-OFFSET 23 %%ARRAY-BASE 8 ALLOCSTRING) (54 FDEV 49 STREAM) () (PRETTYCOMPRINT GRAPEVINECOMS) (RPAQQ GRAPEVINECOMS ((COMS (* Functions for interrogating the database) (FNS GV.AUTHENTICATE GV.CHECKSTAMP GV.EXPAND GV.IDENTIFYCALLER GV.IDENTIFYME GV.ISINLIST GV.ISMEMBERCLOSURE GV.ISMEMBERDIRECT GV.READCONNECT GV.READENTRY GV.READFRIENDS GV.READMEMBERS GV.READOWNERS GV.READREMARK) (* Functions which update the database) (FNS GV.ADDFORWARD GV.ADDFRIEND GV.ADDLISTOFMEMBERS GV.ADDMAILBOX GV.ADDMEMBER GV.ADDOWNER GV.CHANGECONNECT GV.CHANGEPASSWORD GV.CHANGEREMARK GV.CREATEGROUP GV.CREATEINDIVIDUAL GV.DELETEGROUP GV.DELETEINDIVIDUAL GV.NEWNAME GV.REMOVEFORWARD GV.REMOVEFRIEND GV.REMOVEMAILBOX GV.REMOVEMEMBER GV.REMOVEOWNER)) (COMS (* Talking to Reg Servers) (FNS \GVOP \ENQUIRE \PERFORMGVOP FINDREGSERVER LOCATESOCKETS) (ADDVARS (\GVCONNECTIONS)) (VARS (REGROOT (QUOTE (GV . GV))) (REGROOTNLSNAME "GrapevineRServer") (\REG.IOTIMEOUT 30000)) ( DECLARE: DOEVAL@COMPILE DONTCOPY (COMS * GVPROTOCOLDEFS))) (COMS (* Making server connections) (FNS OPENCLOSESTSOCKET \OPENGVCONNECTION GV.KILLSOCKET \GV.WHENCLOSED) (DECLARE: DOEVAL@COMPILE DONTCOPY ( RECORDS GVCONNECTION) (CONSTANTS (\DEFAULTPOLLINGSOC 5)) (GLOBALVARS \BETWEENPROBEDELAY \CONNECTTIMEOUT)) (VARS (\BETWEENPROBEDELAY 1000) (\CONNECTTIMEOUT 30000))) (COMS (* Checking arguments) (FNS \CHECKNAME \CHECKSTRING \NONAMEERR \UNPACKREG) (INITVARS (DEFAULTREGISTRY)) ( GLOBALVARS DEFAULTREGISTRY)) (COMS (* GVKEY) (FNS \CHECKKEY GV.MAKEKEY) (DECLARE: DOEVAL@COMPILE DONTCOPY (RECORDS GVKEY) (CONSTANTS \#BYTES.GVKEY) (MACROS KEYP CREATEKEY GETKEYBYTE SETKEYBYTE)) ( INITRECORDS GVKEY)) (COMS (* TIMESTAMP) (DECLARE: DOEVAL@COMPILE DONTCOPY (RECORDS TIMESTAMP) ( CONSTANTS \#BYTES.TIMESTAMP)) (INITRECORDS TIMESTAMP) (FNS \TIMESTAMP.DEFPRINT \CHECKSTAMP) (DECLARE: DONTEVAL@LOAD DOCOPY (P (DEFPRINT (QUOTE TIMESTAMP) (QUOTE \TIMESTAMP.DEFPRINT))))) (COMS (* I/O primitives) (FNS \SENDITEM \SENDSTRING) (FNS \RECEIVEBOOL \RECEIVECLIST \RECEIVECOMPONENT \RECEIVERLIST \RECEIVERNAME \RECEIVESTAMP \RECEIVESTRING) (VARS (\3BYTEKLUDGEKEY (QUOTE $$3byte$$))) ( DECLARE: DOEVAL@COMPILE DONTCOPY (MACROS \RECEIVEWORD \SKIPWORD \SENDWORD) (CONSTANTS (\MAXGVSTRING 64 )) (GLOBALVARS \3BYTEKLUDGEKEY))) (DECLARE: DONTEVAL@LOAD EVAL@COMPILE DONTCOPY (P (SELECTQ ( COMPILEMODE) (D (FILESLOAD (LOADCOMP) PUP BSP)) (PDP-10 (FILESLOAD (LOADCOMP) PUP10 BSPAUX)) NIL))))) (ADDTOVAR \GVCONNECTIONS) (RPAQQ REGROOT (GV . GV)) (RPAQ REGROOTNLSNAME "GrapevineRServer") (RPAQQ \REG.IOTIMEOUT 30000) (RPAQQ \BETWEENPROBEDELAY 1000) (RPAQQ \CONNECTTIMEOUT 30000) (RPAQ? DEFAULTREGISTRY) (/DECLAREDATATYPE (QUOTE GVKEY) (QUOTE (BYTE BYTE BYTE BYTE BYTE BYTE BYTE BYTE)) (QUOTE ((GVKEY 0 ( BITS . 7)) (GVKEY 0 (BITS . 135)) (GVKEY 1 (BITS . 7)) (GVKEY 1 (BITS . 135)) (GVKEY 2 (BITS . 7)) ( GVKEY 2 (BITS . 135)) (GVKEY 3 (BITS . 7)) (GVKEY 3 (BITS . 135)))) (QUOTE 4)) (/DECLAREDATATYPE (QUOTE TIMESTAMP) (QUOTE ((BITS 16) WORD WORD)) (QUOTE ((TIMESTAMP 0 (BITS . 15)) ( TIMESTAMP 1 (BITS . 15)) (TIMESTAMP 2 (BITS . 15)))) (QUOTE 4)) (DEFPRINT (QUOTE TIMESTAMP) (QUOTE \TIMESTAMP.DEFPRINT)) (RPAQQ \3BYTEKLUDGEKEY $$3byte$$) (PUTPROPS GRAPEVINE COPYRIGHT ("Xerox Corporation" 1983 1984 1985 1986)) NIL