(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "16-Nov-93 15:29:47" ("compiled on " {DSK}export>lispcore>lispusers>access.;5) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED " 3-Apr-86 21:33:56" |{LOGOS:AFB:SIP}LISP>ACCESS.;3| 15492 changes to%: (VARS ACCESSCOMS) (FNS ACCESS) previous date%: " 1-Apr-86 17:15:26" |{LOGOS:AFB:SIP}LISP>ACCESS.;2|) ACCESSA0001 :D8 (P 6 Y P 5 X P 2 COMMAND P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 7 USER/PWD F 8 DIR F 9 OBJ F 10 ACCESS F 11 COM F 12 SI::NLSETQ-VALUE) i@WWWWJcdgð¿oi °cdgð˜¿i °Rdgð–¿Jc°Cgð²i ¿g °(oJ"Lµ…½KµWWWWW hcg^M ¿L¼K»°Ê(162 SET 143 ACCESS.DO.COMMAND 103 USEREXEC 92 TERPRI 61 TERPRI 44 PRIN1 17 ACCESS.PARSE) (153 :NORMAL 98 __ 83 P 69 L 52 Q 30 ABORT) ( 110 (DIR OBJ ACCESS) 38 "[aborted]") ACCESS :D8 (P 10 ERROR P 9 *CONDITION-HANDLER-BINDINGS* P 8 SI::*NLSETQFLAG* P 7 *PROCEED-CASES* P 6 SI::NLSETQ-VALUE P 5 VALUE P 4 ACCESS P 3 OBJ P 2 DIR P 1 COM P 0 USER/PWD F 11 *PROCEED-CASES* F 12 *CONDITION-HANDLER-BINDINGS*) phddddg QIgð‘h`WioW O gð´N]³Ë Odl/ðœ¿oi „ °¦(107 ERRORMESS 101 PRIN1 78 ERRORN 58 ACCESSA0001 15 \INTERNAL/GETPASSWORD) (64 :NORMAL 36 SI::NLSETQ-PROCEED-CASE 24 Q 9 NS) ( 95 "[aborted]" 45 (CL:ERROR . SI::NLSETQHANDLER)) ACCESS.PARSEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 PWD P 5 USER P 4 ACCESS P 3 OBJ P 2 DIR P 1 COMMAND P 0 CHAR I 0 SI::*CLEANUP-FORMS* F 7 USER/PWD F 8 DIR.DEFAULT F 9 OBJ.DEFAULT F 10 ACCESS.DEFAULT) ˆpi ¿oi ¿id XlLð§Hdllð²>¿oi ¿g¹oWhdddl l h ]’±olSð§Hdlsð²¿oi ¿g°]lAð§Hdlað²¿oi ¿g°>lRð§Hdlrð²¿oi ¿g°lCð§Hdlcð²)¿oi ¿g¹WW Z’±)olPð§Hdlpð²¿oi ¿ghlð²oi ¿ghHlQð§Hdlqð²¿oi ¿ghlHð®Hlhð©Hdl?ð¢±˜¿oi ¿i ¿oi ¿i ¿oi ¿i ¿oi ¿i ¿oi ¿i ¿oi ¿i ¿oi ¿i ¿oi ¿±þl ð’±þHl ð’±ýýl ¿±ýíIgð•IJhWI [¥oIgð—IJKhWI \™IJKLhoohddo ^¥oIMN(632 \ENCRYPT.PWD 627 PROMPTFORWORD 590 ACCESS.PARSE.ACCESS 558 ACCESS.PARSE.OBJ 532 PRIN1 527 CHARACTER 501 PRIN1 489 TERPRI 482 PRIN1 470 TERPRI 463 PRIN1 451 TERPRI 444 PRIN1 432 TERPRI 425 PRIN1 413 TERPRI 406 PRIN1 394 TERPRI 387 PRIN1 375 TERPRI 368 PRIN1 329 PRIN1 296 PRIN1 271 PRIN1 237 ACCESS.PARSE.DIRECTORY 221 PRIN1 190 PRIN1 159 PRIN1 128 PRIN1 94 MKATOM 89 PROMPTFORWORD 57 PRIN1 33 CHCON1 28 READC 20 PRIN1 8 FRESHLINE) (572 R 542 S 335 Q 302 P 277 P 227 C 196 R 165 A 134 S 63 L) ( 639 (ABORT) 621 "*" 613 " (password)" 607 (ABORT) 565 (ABORT) 495 "or Q - Quit." 476 " P, ^Y - Push," 457 " C - Change," 438 " R - Remove," 419 " A - Add," 400 " S - Show," 381 " L - Login," 362 " one of:" 323 "uit" 290 " (type OK to return)" 265 "ush (type OK to return)" 247 (ABORT) 215 "hange" 184 "emove" 153 "dd" 122 "how" 104 (ABORT) 69 " (username)" 51 "ogin" 14 "FS: ") ACCESS.PARSE :D8 (P 0 SI::*RESETFORMS* I 3 USER/PWD I 2 ACCESS.DEFAULT I 1 OBJ.DEFAULT I 0 DIR.DEFAULT) /gi hhhg ¿$(40 SI::RESETUNWIND 35 \MVLIST 30 ACCESS.PARSEA0001 10 CONTROL) (25 SI::RESETUNWIND 4 CONTROL) () ACCESS.PARSE.DIRECTORY :D8 (P 0 DIR I 2 DON'T.CHECK I 1 USER/PWD I 0 DIR.DEFAULT) co@oHd²Lg ³'g`g gH ¸B‘HHA µoi h(95 PRIN1 82 ACCESS.DIRECTORYNAME 70 MKSTRING 65 PACKFILENAME 54 FILENAMEFIELD 32 FILENAMEFIELD 15 PROMPTFORWORD) (59 DIRECTORY 49 HOST 44 \CONNECTED.DIRECTORY 39 HOST 27 HOST) ( 89 " not an NS directory." 10 "the name of an NS directory" 4 " (access to directory)") ACCESS.DIRECTORYNAME :D8 (P 0 POS I 1 USER/PWD I 0 HOST/DIR) go@ ˜@ ‘@o@ H´o@HkØ´0`go@ogð´ @A (100 ACCESS.MKDIR 85 ASKUSER 80 CONCAT 51 STRPOS 31 STRPOS 17 DIRECTORYNAMEP 10 STRPOS) (90 Y 64 Y 59 DWIMWAIT) ( 75 " ? " 69 " Create subdirectory " 42 ">" 25 ">" 4 ":") ACCESS.MKDIRA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 HANDLE P 5 SESSION P 4 STREAM P 3 CONNECTION P 2 PARENT P 1 DIR P 0 HOST I 0 SI::*CLEANUP-FORMS* F 7 HOST/DIR F 8 USER/PWD) †Wg Wg gI HJW1K¼K½K¾LggNgIhohMg W(129 COURIER.CALL 74 ACCESS.OPEN 62 CONCATLIST 57 DREVERSE 50 DREVERSE 45 UNPACK 31 ACCESS.SLASHIFY.DIRNAME 26 FILENAMEFIELD 11 FILENAMEFIELD) (123 RETURNERRORS 106 NAME 100 CREATE 95 FILING 39 / 21 DIRECTORY 6 HOST) ( 115 ((IS.DIRECTORY T) (FILE.TYPE 1))) ACCESS.MKDIR :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 USER/PWD I 0 HOST/DIR F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 ACCESS.MKDIRA0001) (8 SI::RESETUNWIND) () ACCESS.PARSE.OBJ :D8 (P 0 OBJ I 1 COMMAND I 0 OBJ.DEFAULT) ToAgð•o„oo@ohddl l h Hd² µoi h(80 PRIN1 67 CH.LOOKUP.OBJECT 55 PROMPTFORWORD 33 CONCAT) (10 C) ( 74 " not an NS object." 39 "an NS user or group name" 28 "user or group)" 23 "" 17 "for " 4 " (") ACCESS.PARSE.ACCESS :D8 (P 1 ACCESS.BYTE P 0 ACCESS I 1 COMMAND I 0 ACCESS.DEFAULT) `Adgð—¿o°gð•o‰o @d” oHd² Yd˜djñ”l Iñ«oi h(92 PRIN1 69 ACCESS.STRING.TO.NUM 57 PROMPTFORWORD 47 ACCESS.NUM.TO.STRING 39 SHOULDNT) (21 A 6 C) ( 86 " bad access specification." 52 "A sequence of letters (R=Read, W=Write, A=Add, D=Delete, C=Change access list)" 34 "UNKNOWN COMMAND" 28 " (with access)" 14 " (to be)") ACCESS.DO.COMMANDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 OLD.LIST P 5 HANDLE P 4 SESSION P 3 STREAM P 2 CONNECTION P 1 DIR P 0 HOST I 0 SI::*CLEANUP-FORMS* F 7 HOST/DIR F 8 NSNAME F 9 ACCESS F 10 USER/PWD F 11 COMMAND) ¹Wg Wg RHIWZd[J\J]KggMlhL ^Wdgðš¿WN °Vdgð²¿WWNKML ° 4 /) () ACCESS.NUM.TO.STRING :D8 (I 0 NUM) @ooRIµ…½Hµ J ¾@Måjð©N¼KµLh[ºI¹H¸°ÕL&»°õ(30 CONCATLIST) NIL ( 9 (16 8 4 2 1) 4 (R W C A D)) ACCESS.STRING.TO.NUM :D8 (I 0 STRING) og@ AHµ I \dgð“¿k°0gð“l°%Ldgð”¿l°gð’lŠLgð´Ál»JµKhZ¹HX°K&º°ø(29 APPLY 15 UNPACK 10 U-CASE) (85 R 74 W 62 C 49 A 38 D 4 IPLUS) () (PRETTYCOMPRINT ACCESSCOMS) (RPAQQ ACCESSCOMS ((FNS ACCESS ACCESS.PARSE ACCESS.PARSE.DIRECTORY ACCESS.DIRECTORYNAME ACCESS.MKDIR ACCESS.PARSE.OBJ ACCESS.PARSE.ACCESS ACCESS.DO.COMMAND ACCESS.OPEN ACCESS.SHOW ACCESS.ADD ACCESS.REMOVE ACCESS.CHANGE ACCESS.SLASHIFY.DIRNAME ACCESS.NUM.TO.STRING ACCESS.STRING.TO.NUM))) (PUTPROPS ACCESS COPYRIGHT ("Speech Input Project, Univ. of Edinburgh" 1986)) NIL