(FILECREATED "15-Mar-85 10:58:51" ("compiled on " {ERIS}MAILREADER>MAIL-READER-USERS.;26) "20-Dec-84 12:07:22" recompiled changes: ADD.ALL.TO.NAME.HASHFILE in "INTERLISP-D 10-Jan-85 ..." dated "10-Jan-85 13:28:55") (FILECREATED "15-Mar-85 10:58:19" {ERIS}MAILREADER>MAIL-READER-USERS.;26 8541 changes to: ( VARS ISL MAIL-READER-USERSCOMS OTHER AISBU) (FNS ADD.ALL.TO.NAME.HASHFILE) previous date: " 4-Mar-85 14:08:31" {ERIS}MAILREADER>MAIL-READER-USERS.;23) ADD.TO.NAME.HASHFILE D1 (P 3 STRING.PTR P 2 PEOPLE.WITH.SAME.TOUCHTONES P 1 NAME.IN.TOUCHTONES P 0 CHANGED.PERSON I 0 PERSON F 4 OLD.STRING.PTR F 5 NAME.HASHFILE) I@@@µ@ @1H khT [d YhZd˜IH@J ƒIHhU h(105Q PUTHASHFILE 73Q REMOVE 57Q CONCATLIST 54Q COMPUTE.TOUCHTONES 47Q SUBSTRING 41Q MKSTRING 22Q STRIPVERSION 17Q P.SEARCH.FOR.MAILFILE) NIL () STRIPVERSION D1 (I 0 FILE) 1@´.g@g g@g g@g g@g (56Q PACKFILENAME 52Q FILENAMEFIELD 40Q FILENAMEFIELD 26Q FILENAMEFIELD 14Q FILENAMEFIELD) (47Q EXTENSION 43Q EXTENSION 35Q NAME 31Q NAME 23Q DIRECTORY 17Q DIRECTORY 11Q HOST 5 HOST) () ADD.ALL.TO.NAME.HASHFILE D1 (P 1 OLD.STRING.PTR P 0 NAME.HASHFILE F 2 ISL F 3 AISBU F 4 PTS F 5 OTHER) Uggln° k R†d ¿µøS†d ¿µøT†d ¿µøU†d ¿µøH gg h(121Q COPYFILE 110Q CLOSEHASHFILE 77Q ADD.TO.NAME.HASHFILE 63Q ADD.TO.NAME.HASHFILE 47Q ADD.TO.NAME.HASHFILE 33Q ADD.TO.NAME.HASHFILE 21Q ALLOCSTRING 15Q CREATEHASHFILE) (116Q {DSK}NAME.HASH 113Q {CORE}NAME.HASH 5 EXPR 2 {CORE}NAME.HASH) () CHANGE.MAILFILE D1 (P 1 ALL.LOGININFO P 0 PEOPLE.WITH.SAME.TOUCHTONES I 2 MAILFILE I 1 TOUCHTONES I 0 USER F 3 MAILREADERUSERSFILE) 'AS !HZµ hYAIS hd@ð“B¿J°å(24Q PUTHASHFILE 4 GETHASHFILE) NIL () COMPUTE.TOUCHTONES D1 (P 0 LETTER I 0 NAME.STRING) )0@ XµIo »Jµ KhZ¹°åK&º°à(25Q FASSOC 11Q GNC) NIL ( 22Q ((A "2") (B "2") (C "2") (D "3") (E "3") (F "3") (G "4") (H "4") (I "4") (J "5") (K "5") (L "5") (M "6") (N "6") (O "6") (P "7") (Q "1") (R "7") (S "7") (T "8") (U "8") (V "8") (W "9") (X "9") (Y "9") (Z "1") (- "1") (' "1"))) GET.LOGININFO D1 (I 1 TOUCHTONES I 0 USER F 2 MAILREADERUSERSFILE) AR HµhY@ð‘IHX°ð(4 GETHASHFILE) NIL () (PRETTYCOMPRINT MAIL-READER-USERSCOMS) (RPAQQ MAIL-READER-USERSCOMS ((VARS LETTER.TO.NUMBER.LIST ISL AISBU PTS OTHER) (CONSTANTS LETTER.TO.NUMBER.LIST) (FNS ADD.TO.NAME.HASHFILE STRIPVERSION ADD.ALL.TO.NAME.HASHFILE CHANGE.MAILFILE COMPUTE.TOUCHTONES GET.LOGININFO) (RECORDS LOGININFO))) (RPAQQ LETTER.TO.NUMBER.LIST ((A "2") (B "2") (C "2") (D "3") (E "3") (F "3") (G "4") (H "4") (I "4") (J "5") (K "5") (L "5") (M "6") (N "6") (O "6") (P "7") (Q "1") (R "7") (S "7") (T "8") (U "8") (V "8" ) (W "9") (X "9") (Y "9") (Z "1") (- "1") (' "1"))) (RPAQQ ISL ((ARAYA NIL NIL) (ABELL NIL NIL) (BARWISE NIL NIL) (BERLIN NIL NIL) (BLOMBERG NIL NIL) ( DBLOOMBERG NIL NIL) (BOBROW NIL NIL) (BORRIELLO NIL NIL) (BRESNAN NIL NIL) (BRIGGS NIL NIL) (BROWN NIL NIL) (BURTON NIL NIL) (BURWELL NIL NIL) (CARD NIL NIL) (DEKLEER NIL NIL) (DESMARAIS NIL NIL) ( MIKEDIXON NIL NIL) (FARLEY NIL NIL) (FORD NIL NIL) (FOSS NIL NIL) (FOSTER NIL NIL) (GARCIA NIL NIL) ( MGARDNER NIL NIL) (GASCON NIL NIL) (GREENO NIL NIL) (GUEVARA NIL NIL) (GUIBERT NIL NIL) (HALASZ NIL NIL) (HALVORSEN NIL NIL) (HAYASHI NIL NIL) (AHENDERSON NIL NIL) (HOGG NIL NIL) (ISHIKAWA NIL NIL) ( LJOHNSON NIL NIL) (JORDAN NIL NIL) (KAHN NIL NIL) (KAPLAN NIL NIL) (KAY NIL NIL) (GREGOR NIL NIL) ( CKIPARSKY NIL NIL) (KIPARSKY NIL NIL) (LAIRD NIL NIL) (LANNING NIL NIL) (DLEVY NIL NIL) (LIN NIL NIL) (MASINTER NIL NIL) (MAXWELL NIL NIL) (MCALLESTER NIL NIL) (MITTAL NIL NIL) (MONT-REYNAUD NIL NIL) ( MONTY NIL NIL) (MORAN NIL NIL) (SNEWMAN NIL NIL) (ORR NIL NIL) (ROACH NIL NIL) (JROBERTS NIL NIL) ( ROOTH NIL NIL) (DMRUSSELL NIL NIL) (SCHOPPERS NIL NIL) (SELKER NIL NIL) (SHEEHAN NIL NIL) (BRIANSMITH NIL NIL) (STANSBURY NIL NIL) (STEFIK NIL NIL) (SUCHMAN NIL NIL) (SUGAI NIL NIL) (TREICHEL NIL NIL) ( TRIGG NIL NIL) (VANLEHN NIL NIL) (VANMELLE NIL NIL) (WESCOAT NIL NIL) (WITHGOTT NIL NIL) (YUE NIL NIL) (ZAENEN NIL NIL))) (RPAQQ AISBU ((BOKELMAN NIL NIL) (BLUM NIL NIL) (CHARNLEY NIL NIL) (DEMERRITT NIL NIL) (FISHER NIL NIL ) (GRIMBLE NIL NIL) (HANEY NIL NIL) (HAUSLADEN NIL NIL) (JAMES NIL NIL) (JELLINEK NIL NIL) (KRISTY NIL NIL) (LESLIE NIL NIL) (LILLY NIL NIL) (NUYENS NIL NIL) (PEDERSEN NIL NIL) (PURCELL NIL NIL) (RHOADES NIL NIL) (RICCI NIL NIL) (SANNELLA NIL NIL) (SANTOSA NIL NIL) (SCHOEN NIL NIL) (SHEIL NIL NIL) ( SYBALSKY NIL NIL))) (RPAQQ PTS ((BURNS NIL NIL) (ESSER NIL NIL) (MANN NIL NIL) (MORRILL NIL NIL) (PIROGOWICZ NIL NIL) ( WALTERS NIL NIL) (WINFIELD NIL NIL))) (RPAQQ OTHER ((HUBERMAN NIL NIL) (PTURNER NIL NIL) (SPENCER NIL NIL))) (RPAQQ LETTER.TO.NUMBER.LIST ((A "2") (B "2") (C "2") (D "3") (E "3") (F "3") (G "4") (H "4") (I "4") (J "5") (K "5") (L "5") (M "6") (N "6") (O "6") (P "7") (Q "1") (R "7") (S "7") (T "8") (U "8") (V "8" ) (W "9") (X "9") (Y "9") (Z "1") (- "1") (' "1"))) (CONSTANTS LETTER.TO.NUMBER.LIST) (RECORD LOGININFO (NAME PRONUNCIATION MAILFILE)) (PUTPROPS MAIL-READER-USERS COPYRIGHT ("Xerox Corporation" 1984 1985)) NIL