(FILECREATED "20-Jul-85 18:04:14" ("compiled on " {ERIS}LIBRARY>GRAPEVINE.;3) "18-Jul-85 03:27:00" recompiled exprs: \PERFORMGVOP \UNPACKREG \CHECKKEY GV.MAKEKEY \CHECKSTAMP \SENDITEM \SENDSTRING \RECEIVESTAMP \RECEIVESTRING in "INTERLISP-D 18-Jul-85 ..." dated "18-Jul-85 03:39:30") (FILECREATED "20-Jul-85 18:02:29" {ERIS}LIBRARY>GRAPEVINE.;3 40330 changes to: (VARS GRAPEVINECOMS \#BYTES.TIMESTAMP \#BYTES.GVKEY) (FNS GV.MAKEKEY \PERFORMGVOP \CHECKSTAMP \SENDSTRING \RECEIVESTRING \UNPACKREG \SENDITEM \RECEIVESTAMP OPENCLOSESTSOCKET \TIMESTAMP.DEFPRINT) (MACROS KEYP CREATEKEY GETKEYBYTE SETKEYBYTE) (RECORDS GVKEY) previous date: "11-Jul-84 16:40:09" {ERIS}LIBRARY>GRAPEVINE.;1) GV.AUTHENTICATE D1 (I 1 KEY I 0 NAME) l @ A h(16Q \GVOP 11Q \CHECKKEY 5 \CHECKNAME) NIL NIL GV.CHECKSTAMP D1 (I 1 OLDSTAMP I 0 NAME) l@ A hg(21Q \GVOP 11Q \CHECKSTAMP 5 \CHECKNAME) (16Q \RECEIVESTAMP) NIL GV.EXPAND D1 (I 1 OLDSTAMP I 0 NAME) k@ A hg(20Q \GVOP 10Q \CHECKSTAMP 4 \CHECKNAME) (15Q \RECEIVERLIST) NIL GV.IDENTIFYCALLER D1 (I 1 KEY I 0 NAME) l!@ A h(16Q \GVOP 11Q \CHECKKEY 5 \CHECKNAME) NIL NIL GV.IDENTIFYME D1 (P 0 npw) h HH (15Q GV.IDENTIFYCALLER 3 \INTERNAL/GETPASSWORD) NIL NIL GV.ISINLIST D1 (I 4 WHERE I 3 WHICH I 2 WHAT I 1 STRING I 0 NAME) )l.@ A `BµjCµjDµjhhg(46Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) (43Q \RECEIVEBOOL 14Q \3BYTEKLUDGEKEY) NIL GV.ISMEMBERCLOSURE D1 (I 1 STRING I 0 NAME) l+@ A hg(21Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) (16Q \RECEIVEBOOL) NIL GV.ISMEMBERDIRECT D1 (I 1 STRING I 0 NAME) l(@ A hg(21Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) (16Q \RECEIVEBOOL) NIL GV.READCONNECT D1 (I 0 NAME) l@ hg(14Q \GVOP 5 \CHECKNAME) (11Q \RECEIVERNAME) NIL GV.READENTRY D1 (I 2 READFN I 1 OLDSTAMP I 0 NAME) l@ A hBµg(24Q \GVOP 11Q \CHECKSTAMP 5 \CHECKNAME) (21Q \RECEIVECLIST) () GV.READFRIENDS D1 (I 2 READFN I 1 OLDSTAMP I 0 NAME) l@ A hBµg(24Q \GVOP 11Q \CHECKSTAMP 5 \CHECKNAME) (21Q \RECEIVERLIST) () GV.READMEMBERS D1 (I 2 READFN I 1 OLDSTAMP I 0 NAME) l@ A hBµg(24Q \GVOP 11Q \CHECKSTAMP 5 \CHECKNAME) (21Q \RECEIVERLIST) () GV.READOWNERS D1 (I 2 READFN I 1 OLDSTAMP I 0 NAME) l@ A hBµg(24Q \GVOP 11Q \CHECKSTAMP 5 \CHECKNAME) (21Q \RECEIVERLIST) () GV.READREMARK D1 (I 0 NAME) l@ hg(14Q \GVOP 5 \CHECKNAME) (11Q \RECEIVERNAME) NIL GV.ADDFORWARD D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.ADDFRIEND D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.ADDLISTOFMEMBERS D1 (P 1 p I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRINGLIST I 0 NAME) ^l@ AµoA hhBµiC §Alð²áAHYµ i²ÔA°Ù²I¨Ilð´êII ¢h°ÞI°Õ(124Q ALPHORDER 35Q \GVOP 21Q ERROR 5 \CHECKNAME) NIL (15Q "must have ordered list of strings") GV.ADDMAILBOX D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.ADDMEMBER D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.ADDOWNER D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.CHANGECONNECT D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 SITE I 0 NAME) El@ Aµ1Adlð’d³'³Add¥d¡§«`b•A µ oA hhBC (102Q \GVOP 71Q ERROR 57Q PORTSTRING 5 \CHECKNAME) (50Q \LOCALPUPNETHOST) (65Q "Invalid Site") GV.CHANGEPASSWORD D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 KEY I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKKEY 5 \CHECKNAME) NIL NIL GV.CHANGEREMARK D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.CREATEGROUP D1 (I 2 PASSWORD I 1 IDENTIFYUSER I 0 NAME) l@ hdAµiB (20Q \GVOP 5 \CHECKNAME) NIL NIL GV.CREATEINDIVIDUAL D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 KEY I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKKEY 5 \CHECKNAME) NIL NIL GV.DELETEGROUP D1 (I 2 PASSWORD I 1 IDENTIFYUSER I 0 NAME) l@ hdAµiB (20Q \GVOP 5 \CHECKNAME) NIL NIL GV.DELETEINDIVIDUAL D1 (I 2 PASSWORD I 1 IDENTIFYUSER I 0 NAME) l @ hdAµiB (20Q \GVOP 5 \CHECKNAME) NIL NIL GV.NEWNAME D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 GV.NEWNAME I 0 NAME) l @ A hhBµiC (25Q \GVOP 11Q \CHECKNAME 5 \CHECKNAME) NIL NIL GV.REMOVEFORWARD D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.REMOVEFRIEND D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.REMOVEMAILBOX D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.REMOVEMEMBER D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL GV.REMOVEOWNER D1 (I 3 PASSWORD I 2 IDENTIFYUSER I 1 STRING I 0 NAME) l@ A hhBµiC (25Q \GVOP 11Q \CHECKSTRING 5 \CHECKNAME) NIL NIL \GVOP D1 (I 5 PASSWORD I 4 IDENTIFYUSER I 3 READFN I 2 itemList I 1 name I 0 OP) A@ABCDE (14Q \ENQUIRE) NIL () \ENQUIRE D1 (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¿±ÿglÿåc¿IãYdkð•¿g°_djð¿B—JkB°Pi°Mdlð²¿H`ð¤g°;Jh¿@gX±ÿdlð•¿g° dlð•¿g°dlð”¿gˆl ð“g€I¹JhI(233Q SHOULDNT 151Q BLOCK 143Q \PERFORMGVOP 134Q \CHECKKEY 124Q \CHECKNAME 113Q EQUAL 60Q \INTERNAL/GETPASSWORD 41Q BLOCK 27Q \PERFORMGVOP 11Q FINDREGSERVER) (434Q AllDown 424Q BadPassword 411Q NotAllowed 376Q BadRName 360Q GV 343Q BadRName 336Q REGROOT 277Q NoChange 222Q AllDown 207Q BadPassword 174Q BadRName 16Q AllDown 2 REGROOT) () \PERFORMGVOPA0001 D1 (NAME ERRORSET P 2 e P 0 STREAM F 3 CONN F 4 ARGS) )ST‹dHJ µóH ¿SY áI Øh(32Q FORCEOUTPUT 21Q \SENDITEM) NIL () \PERFORMGVOP D1 (I 1 ARGS I 0 CONN) o (6 \PERFORMGVOPA0001) NIL ( 3 (\PERFORMGVOPA0001)) FINDREGSERVER D1 (P 0 NEWSOC I 1 ERRORFLG I 0 REGISTRY) n0@¦@ b¿`Yµ7hµ3@A l*l(`XµA´o@ @HiH`HZ³@`ð©@J ˜Ji¿J°®I°¥(136Q EQUAL 63Q ERROR 45Q OPENCLOSESTSOCKET 33Q LOCATESOCKETS 11Q \UNPACKREG) (123Q REGROOT 106Q \GVCONNECTIONS 102Q \GVCONNECTIONS 42Q \REG.IOTIMEOUT 17Q \GVCONNECTIONS) (57Q "Couldn't open connection for") LOCATESOCKETS D1 (P 3 cn P 2 rName I 1 ERRORFLG I 0 SITE) _@` ˜`Ai@ µ A´ o@ 1HµIºIJ [—KhiµJhiµA´oJK ¹HX°Ì(127Q \NCONC2 124Q HELP 105Q ETHERPORT 75Q ETHERPORT 63Q GV.READCONNECT 42Q ERROR 24Q GV.READMEMBERS 17Q ETHERPORT 6 EQUAL) (12Q REGROOTNLSNAME 3 REGROOT) (116Q "Can't look up connect name" 36Q "Not a valid site") OPENCLOSESTSOCKETA0001 D1 (NAME ERRORSET P 12Q PUP P 11Q VAL P 10Q 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 F 14Q POLLSOC F 15Q RESETVARSLST F 16Q PORTLIST F 17Q RESETY F 20Q CONNSOC F 21Q TIMEOUT) `ãl jök“W°d_¿W›OdãHð•K»„OL¼µåLµKµL³±Þd¿HáhL‰ ¼°èL ¼g]hhhWc¿l `ö¾L_¿I ²ZJkÙZjð²O_ãHð‘klºOµL_¿_OWµ OµlkhMg ¿MO ¿Ilð‘I‚l `ö¹¿M _²2OÊ‡lð²(OÊ%Hð—OÈ%K²OÈ%W µOË&W" _µN ¢±ÿahci(423Q TIMEREXPIRED? 413Q \OPENGVCONNECTION 333Q GETPUP 326Q BLOCK 316Q \CLOCK0 277Q SENDPUP 270Q SETUPPUP 236Q ALLOCATE.PUP 171Q TIMEREXPIRED? 154Q \CLOCK0 130Q OPENPUPSOCKET 121Q \APPEND2 112Q SORT.PUPHOSTS.BY.DISTANCE 11Q \CLOCK0) (321Q \BETWEENPROBEDELAY 264Q FREE 157Q \CONNECTTIMEOUT 125Q CLOSEPUPSOCKET 2 \LOCALPUPNETHOST) () OPENCLOSESTSOCKET D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 TIMEOUT I 2 CONNSOC I 1 POLLSOC I 0 PORTLIST F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q OPENCLOSESTSOCKETA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (OPENCLOSESTSOCKETA0001)) \OPENGVCONNECTION D1 (P 0 INSTREAM I 1 TIMEOUT I 0 FRNSOCKET) #@hdAhg Hdžd hdddh(25Q BSPOUTPUTSTREAM 13Q OPENBSPSTREAM) (7 \GV.WHENCLOSED) () GV.KILLSOCKET D1 (I 1 TIMEOUT I 0 SOCKET) @A (10Q BLOCK 5 CLOSEBSPSTREAM) NIL () \GV.WHENCLOSED D1 (P 0 CONN I 0 BSPSTREAM) ,`°#dH@ð²Hh¿H` ¿µÞh(37Q DREMOVE) (42Q \GVCONNECTIONS 34Q \GVCONNECTIONS 2 \GVCONNECTIONS) NIL \CHECKNAME D1 (I 0 NAME) *@«@µ b¿l@@ @ Øñ‘@o@ (47Q ERROR 32Q NCHARS 25Q NCHARS 13Q \UNPACKREG 10Q \NONAMEERR) NIL (43Q "name too long - must be < 65 chars") \CHECKSTRING D1 (I 0 STRING) f@ dgð³Hdgð²-¿@²#@lð²@²@lð@g@b°ogð–@ b‰o@ ¿@ l@ñ˜o@ @(141Q ERROR 125Q NCHARS 120Q ERROR 105Q MKSTRING 63Q CONCAT 3 TYPENAME) (77Q LITATOM 56Q %. 16Q LISTP 7 STRINGP) (135Q "string too long" 114Q "bad string arg" 73Q "bad string arg") \NONAMEERR D1 NIL o (6 ERROR) NIL (3 "must have name for GV user op") \UNPACKREG D1 (P 0 PPOS I 0 REG) )o@ H²@kHkÙ@HkØ @ `(42Q MKATOM 34Q SUBATOM 25Q SUBATOM 7 STRPOS) (45Q DEFAULTREGISTRY) ( 3 ".") \CHECKKEY D1 (I 0 KEY) @d`ð (13Q GV.MAKEKEY) (5 GVKEYTYPE#) () GV.MAKEKEY D1 (P 3 C P 2 J P 1 KEY P 0 I I 1 ISCLEAR I 0 STRING) @j`"@HkØ)[²/IHlåZIJÂA¤KlIæ»lAKñ©KdlZñ¤l Ø€KàlÿåæÇ¿HkÔ¸°ÍINIL (3 GVKEYTYPE#) () \TIMESTAMP.DEFPRINT D1 (I 0 STAMP) /o@È o@Ëoæo o h(52Q CONCAT 42Q GDATE 14Q PORTSTRING) (24Q TIMESTAMP 7 TIMESTAMP) ( 46Q ">" 37Q (DATEFORMAT NO.SECONDS) 32Q -20000000000Q 20Q " at " 3 "#