(FILECREATED "21-Feb-84 12:51:37" ("compiled on " {PHYLUM}LIBRARY>MAILCLIENT.;6) "18-Feb-84 12:57:23" recompiled exprs: \RESPTORETRIEVEMESSAGE \RECEIVEMESSAGEITEM in WORK dated "18-Feb-84 13:08:48") (FILECREATED "21-Feb-84 12:49:30" {PHYLUM}LIBRARY>MAILCLIENT.;6 22347 changes to: (FNS \RESPTORETRIEVEMESSAGE \RECEIVEMESSAGEITEM) previous date: "24-Jan-84 18:33:08" {PHYLUM}LIBRARY>MAILCLIENT.;5) GV.STARTSEND D1 (P 1 STARTSENDRESULT P 0 SENDINGSOCKET I 3 VALIDATEFLG I 2 RETURN I 1 KEY I 0 SENDER) N XElH@ A B `Ckjhhg YHo` I` ` h(112Q TERPRI 103Q PRIN1 73Q PRIN1 55Q MS.SENDOPERATION 27Q \CHECKNAME 23Q \CHECKKEY 17Q \CHECKNAME 5 \FINDMAILSERVER) (107Q PROMPTWINDOW 100Q PROMPTWINDOW 70Q PROMPTWINDOW 52Q \RESPTOSTARTSEND 32Q \3BYTEKLUDGEKEY) (65Q "Couldn't start sending the message - reason: ") GV.ADDRECIPIENT D1 (I 1 NAME I 0 SOCKET) l@A h (13Q MS.SENDOPERATION 6 \CHECKNAME) NIL NIL GV.CHECKVALIDITY D1 (I 0 SOCKET) l@hg (11Q MS.SENDOPERATION) (6 \RESPTOCHECKVAL) NIL GV.STARTITEM D1 (I 1 TYPE I 0 SOCKET) l@AAnh (21Q MS.SENDOPERATION) NIL NIL GV.ADDTOITEM D1 (P 5 CHAR P 3 #CHARS P 2 INSTREAM P 1 WASOPEN P 0 OUTSTREAM I 1 STR I 0 SOCKET) @1l@ A dgA 'dgAZYgA Ag Zg A b [HK HKl J-AAL_L_OLk^ON h jJj JH IJ OOdk_½HM (267Q BOUT 243Q CLOSEF 233Q COPYBYTES 225Q SETFILEPTR 215Q GETFILEPTR 134Q \BOUT 123Q \BOUT 114Q NCHARS 107Q MKSTRING 101Q GETFILEINFO 72Q OPENSTREAM 62Q INFILEP 32Q NCHARS 17Q TYPENAME 13Q MS.SENDOPERATION) (173Q STRINGP 160Q STRINGP 147Q STRINGP 76Q LENGTH 67Q INPUT 53Q LITATOM 40Q STREAM 23Q STRINGP) () GV.SEND D1 (I 0 SOCKET) l@g (10Q MS.SENDOPERATION) (5 \RECEIVEACK) NIL MS.EXPAND D1 (I 1 NAME I 0 SOCKET) l@A hg (16Q MS.SENDOPERATION 6 \CHECKNAME) (13Q \RESPTOEXPAND) NIL MS.SENDOPERATIONA0011 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 1 ARG P 0 STREAM F 2 OP F 3 SOCKET F 4 ARGS) .SHR HRl TdHI H i(52Q BSPFORCEOUTPUT 41Q \SENDITEM 24Q \BOUT 13Q \BOUT) NIL NIL MS.SENDOPERATIONA0012 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 SOCKET F 1 RESPONSEFN) PkQhNIL NIL NIL MS.SENDOPERATION D1 (I 3 RESPONSEFN I 2 ARGS I 1 SOCKET I 0 OP) Ao Co ig(24Q MS.SENDOPERATIONA0012 11Q MS.SENDOPERATIONA0011) (33Q StreamLost) (21Q (DUMMY.FOR.ERRORSET) 6 (DUMMY.FOR.ERRORSET)) \FINDMAILSERVER D1 (I 0 ERRORFLG) $@ ``h` @ o` h(40Q ERROR 21Q OPENCLOSESTSOCKET 3 \MAILSERVERSOCKETS) (35Q \MAILSERVERNAME 15Q \MAILIOTIMEOUT 11Q \MAILSERVERENQUIRYSOC 6 \MAILSERVERPOLLINGSOC) (32Q "Couldn't open connection for") \MAILSERVERSOCKETS D1 (P 0 SOCKETS I 0 ERRORFLG) 3``@ Xl oHHg `(52Q TIMEREXPIRED? 27Q \CLOCK0 16Q LOCATESOCKETS) (57Q \MAILSERVERSOCKETCACHE 47Q MILLISECONDS 41Q \MAILSERVERSOCKETCACHE 12Q \MAILSERVERNAME 5 \MAILSERVERSOCKETCACHE) (33Q 211250400Q) \RECEIVEACK D1 (I 0 STREAM) @ iNIL NIL NIL \RESPTOCHECKVAL D1 (P 3 N I 0 INSTREAM) .@@ @ [dj@ @ H@ I JhYJ&(33Q \RECEIVERNAME) NIL NIL \RESPTOEXPAND D1 (I 0 INSTREAM) B0@ @ I JhYJ&@ djdlidkdlgH(75Q SHOULDNT 14Q \RECEIVERNAME 6 \RECEIVEBOOL) (70Q BadRName) NIL \RESPTOSTARTSEND D1 (I 0 INSTREAM) /@ djidkgdlgdlglg(54Q SHOULDNT) (50Q NetworkCommunicationsFailure 40Q ReturnToNotRegistered 27Q SenderNotRegistered 16Q InvalidPassword) NIL GV.PORTFROMNAME D1 (I 0 SERVERNAME) @ bd (12Q ETHERPORT 3 GV.READCONNECT) NIL () GV.POLLNEWMAIL D1 (P 3 INPUP P 2 RESULT P 1 OUTPUP P 0 SOC I 1 GVPORT I 0 REGISTEREDNAME) g3IAAlhHi I@ `k]LLHIhi [;dliZIdlhZ?dl9l`K` KllMkذ`o` ` KK I J(224Q RELEASE.PUP 217Q RELEASE.PUP 210Q TERPRI 201Q PRIN1 141Q PRINTERRORPUP 57Q EXCHANGEPUPS 36Q PUTPUPSTRING 31Q SETUPPUP 5 ALLOCATE.PUP 2 \GETMISCSOCKET) (205Q PUPTRACEFILE 176Q PUPTRACEFILE 165Q PUPTRACEFLG 136Q PUPTRACEFILE 131Q PUPTRACEFLG 41Q \MAXETHERTRIES 10Q ?) (173Q "Mail check timed out") GV.OPENMAILBOX D1 (P 1 INBOXRESULT P 0 MAILBOX I 3 HOSTNAME I 2 PASSWORD I 1 NAME I 0 PORT)  @ XjHA B hg Y` C` o` dlHgIhdkvdl` A` o`Tdl-` o` ` A` o`#l"`i oi Ai oi h(314Q PRIN1 303Q PRIN1 275Q PRIN1 264Q PRIN1 236Q PRIN1 226Q TERPRI 217Q PRIN1 204Q TERPRI 155Q PRIN1 145Q TERPRI 74Q PRIN1 61Q PRIN1 51Q TERPRI 40Q MS.RETRIEVEOPERATION 27Q \CHECKKEY 23Q \CHECKNAME 6 \CONNECTTOMAILSERVER) (260Q PROMPTWINDOW 246Q PROMPTWINDOW 233Q PROMPTWINDOW 223Q PROMPTWINDOW 214Q PROMPTWINDOW 201Q PROMPTWINDOW 165Q PROMPTWINDOW 152Q PROMPTWINDOW 142Q PROMPTWINDOW 113Q #OFMESSAGES 71Q PROMPTWINDOW 56Q PROMPTWINDOW 46Q PROMPTWINDOW 35Q \RESPTOOPENMAILBOX) ( 310Q "." 271Q "Password invalid for user " 243Q ". Please try again later." 211Q "Communications failure reported by GV while trying to open an inbox for" 162Q " not a registered in GV naming database." 66Q " is busy - please try again later.") GV.NEXTMESSAGE D1 (P 0 RESULT I 0 MAILBOX) %k@hg XdgHgHh(13Q MS.RETRIEVEOPERATION) (31Q DELETEDFLG 23Q ARCHIEVEDFLG 10Q \RESPTONEXTMESSAGE) () GV.RETRIEVEMESSAGEA0008 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MAILBOX) lPhg i(11Q MS.RETRIEVEOPERATION) (6 \RESPTORETRIEVEMESSAGE) NIL GV.RETRIEVEMESSAGE D1 (P 0 MSGOUTSTREAM I 1 MSGOUTFILE I 0 MAILBOX) Ag o i(20Q GV.RETRIEVEMESSAGEA0008 6 GETSTREAM) (3 OUTPUT) (15Q (DUMMY.FOR.ERRORSET)) GV.CLOSEMAILBOX D1 (I 1 FLUSHP I 0 MAILBOX) Al@hg @` (24Q CLOSEBSPSTREAM 13Q MS.RETRIEVEOPERATION) (21Q \ETHERTIMEOUT 10Q \RECEIVEACK) NIL GV.READTOC D1 (I 0 MAILBOX) l@hg (11Q MS.RETRIEVEOPERATION) (6 \RECEIVESTRING) NIL GV.WRITETOC D1 (I 1 REMARK I 0 MAILBOX) l@Ahg (13Q MS.RETRIEVEOPERATION) (10Q \RECEIVEACK) NIL GV.DELETEMESSAGE D1 (I 0 MAILBOX) l@hg (11Q MS.RETRIEVEOPERATION) (6 \RECEIVEACK) NIL MS.RETRIEVEOPERATION D1 (P 1 E P 0 OUTSTREAM I 3 RESPONSEFN I 2 ARGS I 1 MAILBOX I 0 OP) 6AH@ H@l BdHI H CAkCi(51Q BSPFORCEOUTPUT 40Q \SENDITEM 24Q \BOUT 13Q \BOUT) NIL NIL \CONNECTTOMAILSERVER D1 (I 0 PORT) @``` (14Q \OPENMAILSERVER) (11Q \MAILIOTIMEOUT 6 \MAILSERVERRETRIEVALSOC 3 \MAILSERVERPOLLINGSOC) NIL \OPENMAILSERVER D1 (P 2 INPUP P 1 OUTPUP P 0 SOC I 3 TIMEOUT I 2 CONNSOC I 1 POLLSOC I 0 PORT) K@H"I@A @`khH HIhi Zd lJ%B Jl[K C (110Q \OPENGVCONNECTION 46Q EXCHANGEPUPS 37Q SETUPPUP 10Q ALLOCATE.PUP 5 \GETMISCSOCKET) (30Q \MAILSERVERPOLLINGSOC) NIL \RESPTOOPENMAILBOX D1 (I 0 INSTREAM) @ @ @ hNIL NIL NIL \RESPTONEXTMESSAGE D1 (I 0 INSTREAM) @ @ @ h(13Q \RECEIVEBOOL 7 \RECEIVEBOOL 3 \RECEIVEBOOL) NIL NIL \RESPTORETRIEVEMESSAGE D1 (I 0 INSTREAM) "@4@kH@ h@ (35Q \RECEIVEMESSAGEITEM 27Q BSPGETMARK) (10Q FDEV 3 STREAM) () \RECEIVEMESSAGEITEM D1 (P 7 PUPSTREAM P 1 LW P 0 W I 0 STREAM F 11Q MSGOUTSTREAM) @ @ @ BHnIk[JYW@ Kkذ`iOo` H` ` I`g k_NO@ Okذ` Ikj@ HIk]L@ Mkذ(161Q TERPRI 143Q \OUTCHAR 123Q \GETSTREAM 110Q TERPRI 101Q PRIN1 71Q PRIN1 42Q \OUTCHAR 11Q \RECEIVELONGWORD) (156Q PUPTRACEFILE 120Q OUTPUT 115Q PUPTRACEFILE 105Q PUPTRACEFILE 76Q PUPTRACEFILE 66Q PUPTRACEFILE 53Q PUPTRACEFLG) ( 63Q "FIELD ") \RECEIVELONGWORD D1 (P 1 HI P 0 LO I 0 STREAM) @ @ @ @ IHNIL NIL NIL (PRETTYCOMPRINT MAILCLIENTCOMS) (RPAQQ MAILCLIENTCOMS ((COMS (* Sending mail) (FNS GV.STARTSEND GV.ADDRECIPIENT GV.CHECKVALIDITY GV.STARTITEM GV.ADDTOITEM GV.SEND MS.EXPAND) (* Internal sending) (FNS MS.SENDOPERATION \FINDMAILSERVER \MAILSERVERSOCKETS \RECEIVEACK \RESPTOCHECKVAL \RESPTOEXPAND \RESPTOSTARTSEND) (VARS ( \MAILIOTIMEOUT NIL) (\MAILSERVERENQUIRYSOC 46) (\MAILSERVERNAME (QUOTE (Maildrop . ms))) ( \MAILSERVERPOLLINGSOC 44) (\MAILSERVERSOCKETCACHE) (\MAILSERVERRETRIEVALSOC 47)) (GLOBALVARS \MAILIOTIMEOUT \MAILSERVERENQUIRYSOC \MAILSERVERNAME \MAILSERVERPOLLINGSOC \MAILSERVERSOCKETCACHE \MAILSERVERRETRIEVALSOC) (ADDVARS (\SYSTEMCACHEVARS \MAILSERVERSOCKETCACHE))) (COMS (* Definition of a GV mail server for clients) (FNS GV.PORTFROMNAME GV.POLLNEWMAIL GV.OPENMAILBOX GV.NEXTMESSAGE GV.RETRIEVEMESSAGE GV.CLOSEMAILBOX) (ADDVARS (MAILSERVERTYPES (GV GV.POLLNEWMAIL GV.OPENMAILBOX GV.NEXTMESSAGE GV.RETRIEVEMESSAGE GV.CLOSEMAILBOX GV.PORTFROMNAME))) (* Other ops someone might want) (FNS GV.READTOC GV.WRITETOC GV.DELETEMESSAGE) (* The low-level Mail Retrieval Protocol functions *) ( FNS MS.RETRIEVEOPERATION \CONNECTTOMAILSERVER \OPENMAILSERVER \RESPTOOPENMAILBOX \RESPTONEXTMESSAGE \RESPTORETRIEVEMESSAGE \RECEIVEMESSAGEITEM \RECEIVELONGWORD)) (DECLARE: DOEVAL@COMPILE DONTCOPY ( EXPORT (RECORDS MAILPORT OPENEDMAILBOX NEXTMESSAGE)) (COMS * MAILCLIENTCONSTANTCOMS)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (FILES (LOADCOMP) GRAPEVINE PUP BSP)))) (RPAQQ \MAILIOTIMEOUT NIL) (RPAQQ \MAILSERVERENQUIRYSOC 46) (RPAQQ \MAILSERVERNAME (Maildrop . ms)) (RPAQQ \MAILSERVERPOLLINGSOC 44) (RPAQQ \MAILSERVERSOCKETCACHE NIL) (RPAQQ \MAILSERVERRETRIEVALSOC 47) (ADDTOVAR \SYSTEMCACHEVARS \MAILSERVERSOCKETCACHE) (ADDTOVAR MAILSERVERTYPES (GV GV.POLLNEWMAIL GV.OPENMAILBOX GV.NEXTMESSAGE GV.RETRIEVEMESSAGE GV.CLOSEMAILBOX GV.PORTFROMNAME)) (PUTPROPS MAILCLIENT COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL