(FILECREATED " 7-Jan-87 21:45:32" ("compiled on " {ERIS}INTERNAL>LIBRARY>MAINTAIN.;2) "30-Dec-86 11:35:10" bcompl'd in "Xerox Lisp 30-Dec-86 ..." dated "30-Dec-86 12:05:28") (FILECREATED "20-Jul-85 18:04:41" {ERIS}LIBRARY>MAINTAIN.;2 18206 changes to: (VARS MAINTAINCOMS) (FNS \MT.MAYBE.PRINT.STRING \MT.PRINTSTRINGLIST \SKIPCOMPONENT \MT.SKIPSTRINGLIST \MT.RECEIVE.ENTRY MAINTAIN \GETMAINTAINCOMMAND \MT.READRNAME \MT.PERMIT.NS) previous date: "26-Apr-84 10:48:19" {ERIS}LIBRARY>MAINTAIN.;1) MAINTAINA0001 §D4 (P 4 CMD P 3 SI§§*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI§§*CATCH-RETURN-FROM* P 0 SI§§*DUMMY-FOR-CATCH* F 5 PROCEED-CASE0069 F 6 *PROCEED-CASES*) Ki@ggggUgjgg gg V \©hh jL¿°ì(63 \MVLIST 54 \GETMAINTAINCOMMAND 43 MAKE-PROCEED-CASE 39 CL§SYMBOL-FUNCTION 30 CL§SYMBOL-FUNCTION) (36 SI§§ERRORSET-PRINT-FUNCTION 33 §REPORT 27 TRUE 24 §TEST 20 §SELECTOR 16 §TAG 13 ABORT 10 §NAME 7 §NORMAL) () MAINTAIN §D4 (P 11 PROCEED-CASE0067 P 10 A0071 P 9 PROCEED-CASE0068 P 8 A0070 P 7 PROCEED-CASE0069 P 6 RNAMEDELIMITERS P 5 LASTSTRING P 4 LASTGROUP P 3 LASTNAME P 2 GVGROUPS P 1 GVPASSWORD P 0 GVUSERNAME) >pi hhO 1O_¿O__¿Odgð–¿O „j:´h´Ïh(49 CL§VALUES-LIST 17 MAINTAINA0001 6 \MT.LOGIN) (41 §NORMAL) () \GETMAINTAINCOMMAND §D4 NIL i hdooiho (23 ASKUSER 3 TERPRI) NIL ( 19 (AUTOCOMPLETEFLG T) 13 (("Add Friend" "" RETURN (FUNCTION \MT.ADD.FRIEND)) ("Add Member" "" RETURN (FUNCTION \MT.ADD.MEMBER)) ("Add Owner" "" RETURN (FUNCTION \MT.ADD.OWNER)) ("Change Password" "" RETURN (FUNCTION \MT.CHANGE.PASSWORD)) ("Change Remark" "" RETURN (FUNCTION \MT.CHANGE.REMARK)) ("Login" "" RETURN (FUNCTION \MT.LOGIN)) ("Quit" " [confirm]" CONFIRMFLG T RETURN NIL) ("Permit Pseudo-NS names (must type CR to terminate names) [confirm]" "" CONFIRMFLG T RETURN (FUNCTION \MT.PERMIT.NS)) ("Remove Friend" "" RETURN (FUNCTION \MT.REMOVE.FRIEND)) ("Remove Member" "" RETURN (FUNCTION \MT.REMOVE.MEMBER)) ("Remove Owner" "" RETURN (FUNCTION \MT.REMOVE.OWNER)) ("Type Entry" "" RETURN (FUNCTION \MT.TYPE.ENTRY)) ("Type Members" "" RETURN (FUNCTION \MT.TYPE.MEMBERS)) (% "^Y - Enter Lisp" NOECHOFLG T RETURN (FUNCTION (LAMBDA NIL (TERPRI T) (USEREXEC (QUOTE __)))))) 9 "GV: ") \MT.ADD.FRIEND §D4 NIL gg (8 \MT.CHANGE.GROUP.COMPONENT) (5 ADD 2 GV.ADDFRIEND) () \MT.ADD.MEMBER §D4 NIL gg (8 \MT.CHANGE.GROUP.COMPONENT) (5 ADD 2 GV.ADDMEMBER) () \MT.ADD.OWNER §D4 NIL gg (8 \MT.CHANGE.GROUP.COMPONENT) (5 ADD 2 GV.ADDOWNER) () \MT.CHANGE.PASSWORD §D4 (P 4 RESULT P 3 PASSKEY P 2 PASS P 1 UPNAME P 0 NAME F 5 GVUSERNAME F 6 GVPASSWORD F 7 LASTSTRING F 8 LASTNAME) ›PoUoU X´‚±€ohdig Z²Johdig ®oi ¿i °K`i ¿H YJi [UV\dið²)¿oi ¿i ¿Ic ¿Kc¿gHcc Jƒi h(151 PRIN1 146 SETPASSWORD 142 MKATOM 122 TERPRI 117 PRIN1 102 GV.CHANGEPASSWORD 96 GV.MAKEKEY 90 \CHECKNAME 85 PRIN1 76 TERPRI 71 PRIN1 62 STREQUAL 59 PROMPTFORWORD 41 PROMPTFORWORD 20 \MT.READRNAME 17 CONCAT) (134 GV 81 \MT.ELLIPSIS 55 * 37 *) ( 113 " done" 67 " xxx" 49 " (retype password) " 31 " to be: " 12 "." 6 " for individual: ") \MT.CHANGE.REMARK §D4 (P 3 NEWREMARK P 2 RESULT P 1 GROUP P 0 GVNAMETYPE F 4 LASTGROUP F 5 GVUSERNAME F 6 GVPASSWORD F 7 LASTSTRING) o@oT Y´a`i ¿I Z ²5oi ¿i ¿oJhihdo [´-`i ¿IKUVZ€Jið”o€Ji ¿i ¿Icch(101 TERPRI 96 PRIN1 80 GV.CHANGEREMARK 72 PRIN1 62 PROMPTFORWORD 44 TERPRI 39 PRIN1 29 STRINGP 25 GV.READREMARK 20 PRIN1 10 \MT.READRNAME) (68 \MT.ELLIPSIS 16 \MT.ELLIPSIS) ( 90 "done" 58 (13) 49 "Remark: " 35 " to be (type remark, terminate with )" 6 " for group: ") \MT.CHANGE.GROUP.COMPONENT §D4 (P 3 RESULT P 2 INDIVIDUAL P 1 GROUP P 0 GVNAMETYPE I 1 OPERATION I 0 GVACCESSFN F 4 LASTNAME F 5 LASTGROUP F 6 LASTSTRING F 7 GVUSERNAME F 8 GVPASSWORD) b@oT Z´TAdgð•¿oŒgð”o‚U Y´3`i ¿IJWWl@[dið”¿oi ¿i ¿Jc¿Ic ch(84 TERPRI 79 PRIN1 53 PRIN1 43 \MT.READRNAME 39 SHOULDNT 10 \MT.READRNAME) (49 \MT.ELLIPSIS 29 REMOVE 18 ADD) ( 75 "done" 35 " from group: " 25 " to group: " 6 " name: ") \MT.LIST.GROUPS §D4 (P 6 GROUP P 4 FOUNDONE P 3 REG P 2 GROUPS P 1 NAME P 0 GVNAMETYPE F 7 GVGROUPS F 8 LASTNAME F 9 DEFAULTREGISTRY F 10 LASTSTRING) ‚PoW [´RoW Y´Foi ¿gK W Zdgð”¿Wº‚c¿oi ¿i ¿JMµ Icch^I ²L˜oi i\¿Ni ¿M]°Ö(122 PRIN1 113 PRIN1 101 GV.ISMEMBERCLOSURE 77 TERPRI 72 PRIN1 49 GV.READMEMBERS 42 MKATOM 34 PRIN1 23 \MT.READRNAME 11 PROMPTFORWORD) (54 NoChange 38 GROUPS) ( 109 ", " 68 " done." 30 " ... enumerating groups" 18 " that contain the name: " 6 " in registry: ") \MT.LOGIN §D4 (P 4 EC P 3 PASSKEY P 2 UPNAME P 1 LOGINFO P 0 ALWAYSASK I 0 QUIET F 5 LASTNAME F 6 LASTSTRING F 7 GVUSERNAME F 8 GVPASSWORD) i@hðAgH Yd²O ZI [ \dið²<¿i ¿oi ¿JoJc ci ¿oi ¿i ¿Jc¿KcUi ¿i¸° (98 PRIN1 84 TERPRI 79 PRIN1 70 PRIN1 62 CONCAT 50 PRIN1 41 TERPRI 30 GV.AUTHENTICATE 26 GV.MAKEKEY 20 \CHECKNAME 12 \INTERNAL/GETPASSWORD) (8 GV) ( 75 " logged in." 57 "." 46 "User ") \MT.REMOVE.FRIEND §D4 NIL gg (8 \MT.CHANGE.GROUP.COMPONENT) (5 REMOVE 2 GV.REMOVEFRIEND) () \MT.REMOVE.MEMBER §D4 NIL gg (8 \MT.CHANGE.GROUP.COMPONENT) (5 REMOVE 2 GV.REMOVEMEMBER) () \MT.REMOVE.OWNER §D4 NIL gg (8 \MT.CHANGE.GROUP.COMPONENT) (5 REMOVE 2 GV.REMOVEOWNER) () \MT.TYPE.ENTRY §D4 (P 1 RNAME P 0 GVNAMETYPE F 2 LASTSTRING) = oR Y´/`i ¿Ihggð²i ¿oi ¿i ¿Ich(53 TERPRI 48 PRIN1 39 TERPRI 29 GV.READENTRY 20 PRIN1 10 \MT.READRNAME) (32 BadRName 26 \MT.RECEIVE.ENTRY 16 \MT.ELLIPSIS) ( 44 "Name not found" 6 " for R-Name: ") \MT.TYPE.MEMBERS §D4 (P 2 INFO P 1 NAME P 0 GVNAMETYPE F 3 LASTGROUP F 4 LASTNAME F 5 LASTSTRING) h0oS Y´Z`i ¿Ihg¿Hdjð•¿Ic°4kð²#i ¿oi ¿Ii ¿oi ¿IcŒi ¿oi ¿i ¿Ic h(96 TERPRI 91 PRIN1 82 TERPRI 73 PRIN1 64 PRIN1 58 PRIN1 49 TERPRI 29 GV.READMEMBERS 20 PRIN1 10 \MT.READRNAME) (26 \MT.PRINTRLIST 16 \MT.ELLIPSIS) ( 87 "Name not found" 69 " is an individual" 54 "Can't: " 6 " of group: ") \MT.MAYBE.PRINT.OVERSTAMPED.RLIST §D4 (I 3 EVENIFNIL I 2 HEADING I 1 OUTSTREAM I 0 INSTREAM) @ABC@ @ @ (18 \SKIPCOMPONENT 14 \SKIPCOMPONENT 10 \SKIPCOMPONENT 6 \MT.PRINTSTRINGLIST) NIL () \MT.MAYBE.PRINT.STRING §D4 (P 0 STRLEN I 2 HEADING I 1 OUTSTREAM I 0 INSTREAM) SP@ á@ Øjð³E@i ¿@ á@ ØXjð³4B•BA ¿H\jñ²A@ »ZÉ(¹JKlI¿LkÙ°éHkåjð¢@ ¿B´A h(79 TERPRI 36 PRIN1 17 \RECEIVESTAMP) NIL () \MT.PRINTRLIST §D4 (I 0 INSTREAM) @i i @ig (19 \MT.PRINTSTRINGLIST 16 GETSTREAM 8 TERPRI 4 \RECEIVESTAMP) (13 OUTPUT) () \MT.PRINTSTRINGLIST §D4 (P 3 RMAR P 2 STRLEN P 1 NWORDS P 0 CNT I 4 SEPR I 3 EVENIFNIL I 2 HEADING I 1 OUTSTREAM I 0 INSTREAM) ¢D¦ob¿j@ á@ ØRIjð²C²BA ¿oA ¿A jBd•A ¿hA [HkÔ¸@ á@ Øº@ ¿@ ¿JdAÈlØØKñ–¿A ¿Jdjñ²A@ ¾]É(¼MNlL¿kÙ°ê¿Jkåjð¢@ ¿IJkØâlØÙYjñ—DA ¿°§B“A H(158 TERPRI 149 PRIN1 95 FRESHLINE 60 LINELENGTH 54 PRIN1 45 TERPRI 40 PRIN1 31 PRIN1) NIL ( 36 "null" 5 ", ") \SKIPCOMPONENT §D4 (I 0 STREAM) @ á@ ØkYHó‘h@ ¿@ ¿IkÔ°ñNIL NIL () \MT.SKIPSTRINGLIST §D4 (P 2 STRLEN P 1 NWORDS P 0 CNT I 0 INSTREAM) Ej@ á@ ØIjñ²5HkÔ¸@ á@ Øº@ ¿@ ¿Jdjñ–@ ¿kÙ°÷¿Jkåjð¢@ ¿IJkØâlØÙY°ËHNIL NIL () \MT.RECEIVE.ENTRY §D4 (P 1 NAMETYPE P 0 OUTSTREAM I 0 INSTREAM F 2 RNAME F 3 LASTNAME F 4 LASTGROUP) ùig @i @ ¿@ H Idlð³+¿@ ¿@ ¿@i ¿@ á@ Ø¹@ cH ¿oH ¿Ikð²9oH ¿H ¿@ ¿@Ho¿@Ho¿@Ho¿Rc¿°uIdjð²]¿oH ¿H ¿@Ho¿oH ¿@ H ¿H ¿@ ¿@ ¿@ ¿@Hoi¿@Hoi¿Rc¿°lð´oH ¿H h(245 TERPRI 240 PRIN1 220 \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 209 \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 198 \SKIPCOMPONENT 193 \SKIPCOMPONENT 188 \SKIPCOMPONENT 183 TERPRI 178 PRIN2 174 \MT.SKIPSTRINGLIST 169 PRIN1 160 \MT.MAYBE.PRINT.STRING 150 TERPRI 145 PRIN1 123 \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 113 \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 103 \MT.MAYBE.PRINT.STRING 93 \SKIPCOMPONENT 88 TERPRI 83 PRIN1 69 PRIN1 60 PRIN1 54 \RECEIVERNAME 42 \RECEIVESTAMP 23 TERPRI 14 \RECEIVESTAMP 6 GETSTREAM) (3 OUTPUT) ( 236 "dead" 216 "Friends: " 205 "Owners: " 165 "Number of members: " 157 "Remark: " 141 "a group" 120 "Mailbox-sites: " 110 "Forwarding: " 100 "Connect-site: " 79 "an individual" 65 " is ") \MT.READRNAME §D4 (P 0 NAME I 1 DEFAULT I 0 PROMPT F 1 DEFAULTREGISTRY F 2 RNAMEDELIMITERS) O@AhihdR H®oi ¿i hoH ³%oH ³oi ¿Qi ¿HoQH(74 CONCAT 64 PRIN1 58 PRIN1 48 STRPOS 38 STRPOS 28 TERPRI 23 PRIN1 10 PROMPTFORWORD) NIL ( 70 "." 54 "." 44 "*" 34 "." 19 " xxx") \MT.PERMIT.NS §D4 (F 0 RNAMEDELIMITERS) ocNIL NIL ( 3 (13)) (PRETTYCOMPRINT MAINTAINCOMS) (RPAQQ MAINTAINCOMS ((FNS MAINTAIN \GETMAINTAINCOMMAND) (FNS \MT.ADD.FRIEND \MT.ADD.MEMBER \MT.ADD.OWNER \MT.CHANGE.PASSWORD \MT.CHANGE.REMARK \MT.CHANGE.GROUP.COMPONENT \MT.LIST.GROUPS \MT.LOGIN \MT.REMOVE.FRIEND \MT.REMOVE.MEMBER \MT.REMOVE.OWNER \MT.TYPE.ENTRY \MT.TYPE.MEMBERS) (FNS \MT.MAYBE.PRINT.OVERSTAMPED.RLIST \MT.MAYBE.PRINT.STRING \MT.PRINTRLIST \MT.PRINTSTRINGLIST \SKIPCOMPONENT \MT.SKIPSTRINGLIST \MT.RECEIVE.ENTRY) (FNS \MT.READRNAME \MT.PERMIT.NS) (VARS \MT.ELLIPSIS) (DECLARE: EVAL@COMPILE DONTCOPY (CONSTANTS * GVNAMETYPES) (MACROS .ELLIPSIS.) ( GLOBALVARS \MT.ELLIPSIS)) (FILES GRAPEVINE))) (RPAQQ \MT.ELLIPSIS " ... ") (FILESLOAD GRAPEVINE) (PUTPROPS MAINTAIN COPYRIGHT ("Xerox Corporation" 1983 1984 1985)) NIL