(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "17-Nov-93 18:31:22" ("compiled on " {DSK}export>lispcore>lispusers>CHATSERVER.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED " 7-Sep-88 17:08:57" {ERINYES}MEDLEY>CHATSERVER.;11 47957 changes to%: (FNS CHATSERVEROPENFN) previous date%: "19-May-88 00:37:49" {ERINYES}MEDLEY>CHATSERVER.;10) CHATSERVERA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 *READTABLE* P 1 *PACKAGE* P 0 PROFILE I 0 SI::*CLEANUP-FORMS* F 3 CHATSERVER.PROFILE F 4 \IDLING F 5 IDLE.PROFILE) Sg' Toi i n' SU H H H ro Tooi oi `o i oi i o o i oi i (208 TERPRI 202 PRIN1 191 TERPRI 184 SERVER-EXEC 176 FIND-READTABLE 166 CL:FIND-PACKAGE 156 TERPRI 149 PRIN1 137 PRIN1 131 GDATE 114 PRIN1 102 PRIN1 83 PROMPTPRINT 70 REQUIRED.LOGIN 62 REQUIRED.LOGIN 54 REQUIRED.LOGIN 45 \APPEND2 37 DISMISS 29 TERPRI 22 PRIN1) (120 \LASTUSERACTION 5 IDLE.ONLY) ( 196 "Sorry... bye" 171 "XCL" 161 "XCL-USER" 143 "]" 125 -2147483648 108 "last user action " 96 "[Not in Idle, " 90 "[Idling, " 78 "Remote CHAT exec in use" 16 " Machine not in idle mode, login not allowed ") CHATSERVERA0002 :D8 NIL o (9 PROMPTPRINT) NIL ( 4 "Remote CHAT disconnect") CHATSERVER :D8 (F 0 HERALDSTRING) Jo oi Pi i i g o $(67 PROMPTPRINT 57 \MVLIST 52 CHATSERVERA0001 42 TERPRI 35 TERPRI 28 PRIN1 20 PRIN1 9 PROMPTPRINT) (47 CHATSERVERA0002) ( 62 "Remote CHAT disconnect" 14 "Remote " 4 "Remote CHAT connection attempted") CHATSERVERWHENCLOSEDFN :D8 (P 0 PROC I 0 STREAM) @g Hd H (29 DEL.PROCESS 21 FIND.PROCESS 10 STREAMPROP) (5 SERVER.PROCESS) () CHATSERVEROPENFNA0001A0003 :D8 (L (0 COND) F 0 OUTSTREAM F 1 INSTREAM) )@PQP Q hg(33 RESET 21 FULLNAME 15 FULLNAME) (38 ; 5 XCL:STREAM-NOT-OPEN) () CHATSERVEROPENFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 6 *CONDITION-HANDLER-BINDINGS* P 5 *TRACE-OUTPUT* P 4 *STANDARD-INPUT* P 3 \LINEBUF.OFD P 2 *STANDARD-OUTPUT* P 1 \TERM.OFD I 0 SI::*CLEANUP-FORMS* F 7 OUTSTREAM F 8 *KEYBOARD-STREAM* F 9 \SWEPT.OFDS F 10 \SIMPLEIMAGEOPS F 11 *CONDITION-HANDLER-BINDINGS*) _lPW lW Wg` Wgg Wg` Wgg W pj%WdWWcg o W`` dgcW.`WW.Wg(Wl W$W ,Wg$'W$goW W W QWYH[JggW(348 CHATSERVER 314 \CREATELINEBUFFER 306 TERPRI 298 PRIN1 160 NCREATE2 140 ADD.PROCESS 129 DEL.PROCESS 85 STREAMPROP 68 STREAMPROP 51 STREAMPROP 34 STREAMPROP 17 PAGEHEIGHT 8 LINELENGTH) (336 CHATSERVEROPENFNA0001A0003 331 XCL:STREAM-NOT-OPEN 283 \REMOTE.BIN 276 STREAM 265 \REMOTE.BIN 260 STREAM 249 FDEV 242 STREAM 233 STREAM 221 STREAM 212 \REMOTE.EXEC.OUTCHARFN 207 STREAM 195 STREAM 186 \NOIMAGEOPS 179 STREAM 166 CHATSERVER.FONT 155 \NOIMAGEOPS 150 |IMAGEOPSTYPE#| 124 SWEEP.OFD 99 FDEV 92 STREAM 80 CHATSERVERWHENCLOSEDFN 75 AFTERCLOSE 63 \RUNNING.PROCESS 58 SERVER.PROCESS 46 CHATSERVERWHENCLOSEDFN 41 AFTERCLOSE 29 \RUNNING.PROCESS 24 SERVER.PROCESS) ( 291 "[Interrupts not enabled]" 135 (SWEEP.OFD)) CHATSERVEROPENFNA0004 :D8 (F 0 \SWEPT.OFDS F 1 OUTSTREAM) QP c(6 REMOVE) NIL () CHATSERVEROPENFN :D8 (I 1 OUTSTREAM I 0 *KEYBOARD-STREAM* F 0 \SWEPT.OFDS) g AP c$(21 REMOVE 14 \MVLIST 9 CHATSERVEROPENFNA0001) (4 CHATSERVEROPENFNA0004) () DOBE :D8 NIL id (6 FLUSHOUTPUT) NIL () REQUIRED.LOGIN :D8 (P 3 PWD P 2 NAME P 1 AUTHTYPE P 0 GROUP I 0 PROFILE F 4 \IDLE.PASSWORD.SET) >@g'@g'hdi H@g'hJo iJ j(iohdig i Ko_id hdi hHoJ&oJhihio Zo o hddg [KhiH gH JKHo UHJK 6IJKIiH h i@g'hJK ici oi i h(314 TERPRI 307 PRIN1 294 TERPRI 284 SETPASSWORD 264 \IDLE.AUTHENTICATE 257 MEMB 242 \IDLE.ISMEMBER 230 \IDLE.IS.PREVIOUS 214 MEMB 202 MEMB 188 PROMPTFORWORD 174 CONCAT 160 MEMBER 149 PROMPTFORWORD 114 USERNAME 105 CLEARBUF 88 TERPRI 81 PROMPTFORWORD 56 NCHARS 48 SETPASSWORD 21 USERNAME) (274 FORGET 208 * 182 * 75 * 34 FORGET 12 AUTHENTICATE 5 ALLOWED.LOGINS) ( 301 "login incorrect" 224 (T) 169 " password:" 155 ("Logon" "ogon") 143 (13 10) 133 "Login ( to terminate): " 123 (T) 95 "Logon" 67 " (password) " 43 "") SERVER-EXEC :D8 (NAME T) gi (10 EXEC) (4 :TOP-LEVEL-P) () SWEEP.OFDA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R hcg(10 FORCEOUTPUT) (19 :NORMAL) () SWEEP.OFD :D8 (P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 X F 5 \SWEPT.OFDS F 6 *PROCEED-CASES* F 7 *CONDITION-HANDLER-BINDINGS*) ^UdVdH9Hg .`VioWJ gIhiHU c (85 BLOCK 77 REMOVE 54 SWEEP.OFDA0001 24 OPENP) (60 :NORMAL 34 SI::NLSETQ-PROCEED-CASE 19 OUTPUT) ( 42 (CL:ERROR . SI::NLSETQHANDLER)) \CLEARSYSBUF :D8 (P 0 KEY I 0 ALLFLG F 1 \LINEBUF.OFD) QH hH (16 READP) (5 STREAM) () PROMPTFORWORDA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 20 X P 19 SPACEP P 18 C P 14 CONVERTIBLEP P 13 C P 11 TIMER P 10 ?HELPMSGLIST P 9 ?HELPMSGTRIEDP P 8 RUBBING? P 7 BEGUNTYPING? P 6 CHAR P 5 CANDIDATATE.LENGTH P 4 BELLBEENHEARD? P 3 TIMELIMITEXPIRED? P 2 X0Y0 P 1 TTYD P 0 CHARBUFFER I 0 SI::*CLEANUP-FORMS* F 21 ECHO.CHANNEL F 22 DONTECHOTYPEIN.FLG F 23 URGENCY.OPTION F 24 TERMINCHARS.LST F 25 SI::*RESETFORMS* F 26 \PROMPTFORWORDTTBL F 27 KEYBD.CHANNEL F 28 CANDIDATE.STR F 29 GENERATE?LIST.FN F 30 \PROMPTFORWORD.CURSOR F 31 PROMPT.STR) h gW4 hhW2c2W8d  W.gW.dYgW.L`)``g` hhW2c2W<6gW< hhW2c2W.3 W.ddiihW. W*ig c* YgW* hhW2c2W,W0)oc0iW, kW,k ic, W0hc0W0d{!O Ok0W0Z_ Od3@O O ki_O_i2dO$d3 _O Oh_"O&_ O"c0hW0 W6xW.l W.3 j_W>FIhI hI HW6IW.O ^NdW0?KdW8dj bW* oW* gh c6|W4 dgH i__hdgHW,ii_h_hdgHW,i_hdgYHOi_HgW4 HO&NgW4 NgW4 h_&_hfgW,#OIW*l\ h_N W* W6IW.Oi ^I W,INhdddi iyOHNl W,hNHi_W,iOOIgW* h_W*W,N 'Nl?W* W:COW: W>W8lW:_i_OZgW* gW* O,Og_dO(W* gW* gW* OW* W* hHd W* H(1124 \CARET.DOWN 1116 CONCATCODES 1111 DREVERSE 1100 FRESHLINE 1092 PRIN1 1082 PRIN3 1065 PRIN3 1052 PRIN1 1020 PRIN3 1007 PRIN3 971 STRINGP 955 FRESHLINE 939 BOUT 922 PRIN3 884 \PROMPTFORWORDERASE 855 \PROMPTFORWORDRETYPE 849 \PROMPTFORWORDERASE 843 \DSPMOVELR 818 \PROMPTFORWORDBIN 803 PRIN3 796 CHARACTER 785 BOUT 743 SYNTAXP 725 SYNTAXP 700 \PROMPTFORWORDBS 692 SYNTAXP 653 \PROMPTFORWORDRETYPE 647 \PROMPTFORWORDERASE 609 \PROMPTFORWORDERASE 578 \PROMPTFORWORDBS 556 GETSYNTAX 543 \GETSTREAM 529 PRIN3 516 PRIN3 506 CONCAT 479 \PROMPTFORWORDBIN 466 \PROMPTFORWORDRETYPE 457 DSPYPOSITION 450 DSPXPOSITION 426 \DAYTIME0 409 \ILLEGAL.ARG 368 CHCON1 335 NCHARS 326 STRINGP 310 CHARCODEP 267 CHARCODEP 255 NTHCHARCODE 244 NCHARS 204 TTYDISPLAYSTREAM 189 DISPLAYSTREAMP 182 GETSTREAM 166 \ILLEGAL.ARG 127 CURSOR 100 TTY.PROCESS 35 DREVERSE 30 CHCON 11 SETTERMTABLE) (1075 } 1058 % 1034 ?? 1013 % 1000 { 915 \ 762 CNTRLV 736 WORDSEPR 718 WORDSEPR 685 WORDSEPR 667 WORDDELETE 630 RETYPE 592 LINEDELETE 562 CHARDELETE 537 INPUT 197 TTYDISPLAYSTREAM 177 OUTPUT 120 CURSOR 95 \RUNNING.PROCESS 90 TTY.PROCESS 82 \TTY.PROCESS 77 \RUNNING.PROCESS 70 \RUNNING.PROCESS 60 TTY 45 TTY 4 SETTERMTABLE) ( 522 " " 228 (13 27 32 10 9)) PROMPTFORWORD :D8 (P 5 RESETSTATE P 4 SI::*RESETFORMS* P 3 LISPXHIST P 2 TTBL P 1 CHAR I 7 KEYBD.CHANNEL I 6 TERMINCHARS.LST I 5 URGENCY.OPTION I 4 DONTECHOTYPEIN.FLG I 3 ECHO.CHANNEL I 2 GENERATE?LIST.FN I 1 CANDIDATE.STR I 0 PROMPT.STR F 6 \PROMPTFORWORDTTBL F 7 LISPXHIST) V ,ljg IH5hJ iJ Jc W!g $Idl &dl dl dl dl gJ IkY(120 ECHOCHAR 74 SI::RESETUNWIND 69 \MVLIST 64 PROMPTFORWORDA0001 43 CONTROL 35 ECHOMODE 20 COPYTERMTABLE 5 TERMTABLEP) (114 INDICATE 59 SI::RESETUNWIND 15 ORIG) () \CREATELINEBUFFERA0005 :D8 (I 0 STREAM F 0 \RefillBufferFn) jPNIL NIL () \CREATELINEBUFFER :D8 (P 2 EOFMETHOD P 1 DEV P 0 STREAM I 0 TERMINAL.STREAM) gggo !H hHkH@`Hj0jdhHj jdhHg*@H