(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 1-Feb-98 09:45:53" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>internal>library>MAINTAIN.;1) "31-Jan-98 19:10:48" bcompl'd in "Medley 31-Jan-98 ..." dated "31-Jan-98 19:12:50") (FILECREATED "15-Jun-90 18:32:50" {DSK}local>lde>lispcore>internal>library>MAINTAIN.;2 21701 changes to%: (VARS MAINTAINCOMS) (FNS \MT.PRINTSTRINGLIST) previous date%: "20-Jul-85 18:04:41" {DSK}local>lde>lispcore>internal>library>MAINTAIN.;1) MAINTAINA0001 :D8 (P 2 CMD P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 3 SI::NLSETQ-VALUE) i@ZªhdcgjJ¿°é(9 \GETMAINTAINCOMMAND) (21 :NORMAL) () MAINTAIN :D8 (P 9 SI::*NLSETQFLAG* P 8 *PROCEED-CASES* P 7 SI::NLSETQ-VALUE P 6 RNAMEDELIMITERS P 5 LASTSTRING P 4 LASTGROUP P 3 LASTNAME P 2 GVGROUPS P 1 GVPASSWORD P 0 GVUSERNAME F 10 *PROCEED-CASES*) / pi `W O gð´O²ßh(29 MAINTAINA0001 8 \MT.LOGIN) (35 :NORMAL 16 SI::NLSETQ-PROCEED-CASE) () \GETMAINTAINCOMMAND :D8 NIL !i hdooiho (30 ASKUSER 5 TERPRI) NIL ( 24 (AUTOCOMPLETEFLG T) 17 (("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 __)))))) 12 "GV: ") \MT.ADD.FRIEND :D8 NIL gg (14 \MT.CHANGE.GROUP.COMPONENT) (9 ADD 4 GV.ADDFRIEND) () \MT.ADD.MEMBER :D8 NIL gg (14 \MT.CHANGE.GROUP.COMPONENT) (9 ADD 4 GV.ADDMEMBER) () \MT.ADD.OWNER :D8 NIL gg (14 \MT.CHANGE.GROUP.COMPONENT) (9 ADD 4 GV.ADDOWNER) () \MT.CHANGE.PASSWORD :D8 (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 °b`i ¿H YJi [UV\dið²4¿oi ¿i ¿Ic ¿Kc¿gHcc J…i h(198 PRIN1 191 SETPASSWORD 185 MKATOM 161 TERPRI 154 PRIN1 136 GV.CHANGEPASSWORD 128 GV.MAKEKEY 120 \CHECKNAME 113 PRIN1 100 TERPRI 93 PRIN1 80 STREQUAL 75 PROMPTFORWORD 52 PROMPTFORWORD 26 \MT.READRNAME 21 CONCAT) (175 GV 107 \MT.ELLIPSIS 69 * 46 *) ( 148 " done" 87 " xxx" 61 " (retype password) " 38 " to be: " 14 "." 7 " for individual: ") \MT.CHANGE.REMARK :D8 (P 3 NEWREMARK P 2 RESULT P 1 GROUP P 0 GVNAMETYPE F 4 LASTGROUP F 5 GVUSERNAME F 6 GVPASSWORD F 7 LASTSTRING) Ž@oT Y´}`i ¿I Z ²Doi ¿i ¿oJhihdo [´8`i ¿IKUVZ€Jið•o€Ji ¿i ¿Icch(132 TERPRI 125 PRIN1 106 GV.CHANGEREMARK 96 PRIN1 82 PROMPTFORWORD 60 TERPRI 53 PRIN1 40 STRINGP 34 GV.READREMARK 27 PRIN1 13 \MT.READRNAME) (90 \MT.ELLIPSIS 21 \MT.ELLIPSIS) ( 117 "done" 76 (13) 66 "Remark: " 47 " to be (type remark, terminate with )" 7 " for group: ") \MT.CHANGE.GROUP.COMPONENT :D8 (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) y@oT Z´hAdgð—¿o°gð•o„U Y´<`i ¿IJWWl@[dið•¿oi ¿i ¿Jc¿Ic ch(107 TERPRI 100 PRIN1 71 PRIN1 57 \MT.READRNAME 51 SHOULDNT 13 \MT.READRNAME) (65 \MT.ELLIPSIS 38 REMOVE 23 ADD) ( 94 "done" 45 " from group: " 31 " to group: " 7 " name: ") \MT.LIST.GROUPS :D8 (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 [´eoW Y´Voi ¿gK W Zdgð”¿Wº‚c¿oi ¿i ¿JMµ Icch^I ²L›oi i\¿Ni ¿M]°Ï(151 PRIN1 140 PRIN1 125 GV.ISMEMBERCLOSURE 99 TERPRI 92 PRIN1 64 GV.READMEMBERS 55 MKATOM 43 PRIN1 29 \MT.READRNAME 14 PROMPTFORWORD) (71 NoChange 49 GROUPS) ( 134 ", " 86 " done." 37 " ... enumerating groups" 22 " that contain the name: " 7 " in registry: ") \MT.LOGIN :D8 (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) „@hðAgH Yd²d ZI [ \dið²K¿i ¿oi ¿JoJc ci ¿oi ¿i ¿Jc¿KcUi ¿i¸°…(125 PRIN1 109 TERPRI 102 PRIN1 90 PRIN1 80 CONCAT 65 PRIN1 53 TERPRI 40 GV.AUTHENTICATE 34 GV.MAKEKEY 26 \CHECKNAME 16 \INTERNAL/GETPASSWORD) (10 GV) ( 96 " logged in." 73 "." 59 "User ") \MT.REMOVE.FRIEND :D8 NIL gg (14 \MT.CHANGE.GROUP.COMPONENT) (9 REMOVE 4 GV.REMOVEFRIEND) () \MT.REMOVE.MEMBER :D8 NIL gg (14 \MT.CHANGE.GROUP.COMPONENT) (9 REMOVE 4 GV.REMOVEMEMBER) () \MT.REMOVE.OWNER :D8 NIL gg (14 \MT.CHANGE.GROUP.COMPONENT) (9 REMOVE 4 GV.REMOVEOWNER) () \MT.TYPE.ENTRY :D8 (P 1 RNAME P 0 GVNAMETYPE F 2 LASTSTRING) Q oR Y´@`i ¿Ihggð²i ¿oi ¿i ¿Ich(73 TERPRI 66 PRIN1 54 TERPRI 40 GV.READENTRY 27 PRIN1 13 \MT.READRNAME) (45 BadRName 35 \MT.RECEIVE.ENTRY 21 \MT.ELLIPSIS) ( 60 "Name not found" 7 " for R-Name: ") \MT.TYPE.MEMBERS :D8 (P 2 INFO P 1 NAME P 0 GVNAMETYPE F 3 LASTGROUP F 4 LASTNAME F 5 LASTSTRING) …0oS Y´t`i ¿Ihg¿Hdjð•¿Ic°Dkð².i ¿oi ¿Ii ¿oi ¿Ic°i ¿oi ¿i ¿Ic h(125 TERPRI 118 PRIN1 106 TERPRI 94 PRIN1 82 PRIN1 74 PRIN1 62 TERPRI 40 GV.READMEMBERS 27 PRIN1 13 \MT.READRNAME) (35 \MT.PRINTRLIST 21 \MT.ELLIPSIS) ( 112 "Name not found" 88 " is an individual" 68 "Can't: " 7 " of group: ") \MT.MAYBE.PRINT.OVERSTAMPED.RLIST :D8 (I 3 EVENIFNIL I 2 HEADING I 1 OUTSTREAM I 0 INSTREAM) @ABC@ @ @ (26 \SKIPCOMPONENT 20 \SKIPCOMPONENT 14 \SKIPCOMPONENT 8 \MT.PRINTSTRINGLIST) NIL () \MT.MAYBE.PRINT.STRING :D8 (P 0 STRLEN I 2 HEADING I 1 OUTSTREAM I 0 INSTREAM) ^P@ á@ Øjð³P@i ¿@ á@ ØXjð³=B—BA ¿H\jñ²A@ »ZÉ(¹JKlI¿LkÙ°äHkåjð¢@ ¿B´ A h(90 TERPRI 40 PRIN1 19 \RECEIVESTAMP) (57 STREAM) () \MT.PRINTRLIST :D8 (I 0 INSTREAM) @i i @ig (29 \MT.PRINTSTRINGLIST 24 GETSTREAM 12 TERPRI 6 \RECEIVESTAMP) (19 OUTPUT) () \MT.PRINTSTRINGLIST :D8 (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Ô¸@ á@ Øº@ á@ Ø¿JlØAÈØKñ–A ¿Jdjñ²A@ ¾]É(¼MNlL¿kÙ°å¿Jkåjð¢@ ¿IJkØâlØÙYjñ™DA ¿°šB•A H(185 TERPRI 174 PRIN1 113 FRESHLINE 72 LINELENGTH 64 PRIN1 53 TERPRI 46 PRIN1 34 PRIN1) (130 STREAM 101 STREAM) ( 40 "null" 6 ", ") \SKIPCOMPONENT :D8 (I 0 STREAM) @ á@ ØkYHó‘h@ á@ Ø¿IkÔ°ðNIL NIL () \MT.SKIPSTRINGLIST :D8 (P 2 STRLEN P 1 NWORDS P 0 CNT I 0 INSTREAM) Ej@ á@ ØIjñ¡HHkÔ¸@ á@ Øº@ á@ Ø¿Jdjñ–@ ¿kÙ°÷¿Jkåjð¢@ ¿IJkØâlØÙY°ÉNIL NIL () \MT.RECEIVE.ENTRY :D8 (P 1 NAMETYPE P 0 OUTSTREAM I 0 INSTREAM F 2 RNAME F 3 LASTNAME F 4 LASTGROUP) ?ig @i @ á@ ØH Idlð³5¿@ á@ Ø¿@i ¿@ á@ Ø¹@ cH ¿oH ¿Ikð²JoH ¿H ¿@ ¿@Ho¿@Ho¿@Ho¿Rc¿±˜Idjð²z¿oH ¿H ¿@Ho¿oH ¿@ H ¿H ¿@ ¿@ ¿@ ¿@Hoi¿@Hoi¿Rc¿°lð´oH ¿H h(315 TERPRI 308 PRIN1 285 \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 271 \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 257 \SKIPCOMPONENT 250 \SKIPCOMPONENT 243 \SKIPCOMPONENT 236 TERPRI 229 PRIN2 223 \MT.SKIPSTRINGLIST 216 PRIN1 204 \MT.MAYBE.PRINT.STRING 191 TERPRI 184 PRIN1 158 \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 145 \MT.MAYBE.PRINT.OVERSTAMPED.RLIST 132 \MT.MAYBE.PRINT.STRING 119 \SKIPCOMPONENT 112 TERPRI 105 PRIN1 88 PRIN1 76 PRIN1 68 \RECEIVERNAME 54 \RECEIVESTAMP 32 TERPRI 20 \RECEIVESTAMP 10 GETSTREAM) (5 OUTPUT) ( 302 "dead" 279 "Friends: " 265 "Owners: " 210 "Number of members: " 199 "Remark: " 178 "a group" 153 "Mailbox-sites: " 140 "Forwarding: " 127 "Connect-site: " 99 "an individual" 82 " is ") \MT.READRNAME :D8 (P 0 NAME I 1 DEFAULT I 0 PROMPT F 1 DEFAULTREGISTRY F 2 RNAMEDELIMITERS) e@AhihdR H³oi ¿i hoH ³0oH ³#oi ¿Qi ¿HoQH(96 CONCAT 83 PRIN1 75 PRIN1 62 STRPOS 49 STRPOS 36 TERPRI 29 PRIN1 12 PROMPTFORWORD) NIL ( 90 "." 69 "." 56 "*" 43 "." 23 " xxx") \MT.PERMIT.NS :D8 (F 0 RNAMEDELIMITERS) ocNIL NIL ( 4 (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 ("Venue & Xerox Corporation" 1983 1984 1985 1990)) NIL