(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "21-Jan-93 18:45:15" ("compiled on " {DSK}lde>lispcore>library>UNIXCHAT.;1) " 7-Oct-92 12:15:13" bcompl'd in "Medley 7-Oct-92 ..." dated " 7-Oct-92 15:18:52") (FILECREATED "15-Aug-90 11:05:53" |{PELE:MV:ENVOS}LIBRARY>UNIXCHAT.;3| 6995 changes to%: ( VARS UNIXCHATCOMS) previous date%: "13-Jun-90 01:05:35" |{PELE:MV:ENVOS}LIBRARY>UNIXCHAT.;2| ) UNIX.HOST.FILTER :D8 (I 0 HOST) `l@o o(20 STRING.EQUAL) (4 \MACHINETYPE) ( 27 (SHELL UNIXCHAT.OPEN) 15 "SHELL") UNIXCHAT.OPEN :D8 (I 1 TERMTYPE I 0 HOST) "`lA dggh(15 CREATE-SHELL-STREAM) (26 NONE 21 LOGOPTION 4 \MACHINETYPE) () UNIX.SENDSCREENPARAMS :D8 (P 0 CONN I 3 ASK I 2 WIDTH I 1 HEIGHT I 0 STREAM) l}u#@Hzl HAB}uC@o D@gBA 3gg@hgAhgBho hi@oAB (135 CL:FORMAT 116 ADD.PROCESS 68 STREAMPROP 52 UNIX.PARAMS.CONFIRM) (98 QUOTE 89 QUOTE 80 QUOTE 75 UNIX.SENDSCREENPARAMS 60 UNIXWINDOWSIZE 35 SMALLP 29 SMALLP 23 SMALLP) ( 128 "stty rows ~D columns ~D~%%" 107 (T) 47 "size") UNIX.SETDISPLAYTYPE :D8 (P 4 %%CODE P 3 BS P 2 WINDOW P 1 TIMER P 0 OLDTYPE I 3 ASK I 2 NAME I 1 CODE I 0 STREAM F 5 UNIXCHAT.TSET.DELAY) *B!@g X;C@o Bgg@hhgBho hl}u@gB hiHCl n:`g JJg ZL@ I DJ,@oHhWg Kdl'o8jU kl@\lLllhlLB @gB (295 STREAMPROP 283 CL:FORMAT 278 LISP-TO-UNIX-TERMTYPE 243 BLOCK 228 DISMISS 197 KEYACTION 170 TIMEREXPIRED? 163 READP 154 GETWINDOWUSERPROP 138 PROCESSPROP 119 \CLOCK0 98 STREAMPROP 76 ADD.PROCESS 36 UNIX.PARAMS.CONFIRM 20 STREAMPROP) (289 UNIXTERMTYPE 192 BS 149 CHATSTATE 133 WINDOW 128 \RUNNING.PROCESS 92 UNIXTERMTYPE 58 QUOTE 48 QUOTE 43 UNIX.SETDISPLAYTYPE 15 UNIXTERMTYPE) ( 215 "?" 182 "set noglob; eval `tset ~@[-e^~A ~]-srIQ ~A`; set glob~%%" 67 (T) 31 "type") LISP-TO-UNIX-TERMTYPE :D8 (I 0 TERMTYPE) @`@ (15 CL:STRING-DOWNCASE) (5 CHAT.TO.UNIX.TERMINALS) () UNIX.PARAMS.CONFIRM :D8 (I 1 TYPE I 0 STREAM) o`diig\`dodi hoA HdIdg dgjdndhHdI hi i(106 MENU 50 CL:FORMAT) (75 DEFAULTMENUHELDFN 66 CLRPROMPT 23 |MENUTYPE#| 15 ASK 4 UNIXCHAT.NOTICE.RESHAPE) ( 44 "Tell host about change in terminal ~A?" 30 (("Stuff shell command to adjust terminal parms" T "Chat will inject a command to set the terminal parameters. You must be talking to a shell prompt for this to work. If you're not at a shell prompt now, get to one before selecting this.") ("Skip it--I'm not talking to the shell" :NO "Don't tell the host about the change"))) (PRETTYCOMPRINT UNIXCHATCOMS) (RPAQQ UNIXCHATCOMS ((* ;; "A Chat %"protocol%" that handles 1 host: SHELL, by opening a pty & fork to a csh.") (FILES UNIXCOMM CHAT) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) UNIXCOMM CHATDECLS)) (COMS (* ;; "Tell Chat about us: give host filter & opening fn.") (FNS UNIX.HOST.FILTER UNIXCHAT.OPEN) (ADDVARS ( CHAT.PROTOCOLTYPES (SHELL . UNIX.HOST.FILTER)) (CHAT.HOST.TO.PROTOCOL (SHELL . SHELL))) (* ;; "make the BS key send DEL when talking to shell") (ALISTS (CHAT.HOSTINFO SHELL))) (COMS (* ; "pseudo ostype for Shell. Not sure if this is still needed. Make sure it survives logout") (ADDVARS (NETWORKOSTYPES (SHELL . SHELL))) (PROP VARTYPE SYSTEMINITVARS) (ALISTS (SYSTEMINITVARS NETWORKOSTYPES ))) (COMS (* ; "telling unix about terminal") (FNS UNIX.SENDSCREENPARAMS UNIX.SETDISPLAYTYPE LISP-TO-UNIX-TERMTYPE UNIX.PARAMS.CONFIRM) (INITVARS (CHAT.TO.UNIX.TERMINALS) (UNIXCHAT.NOTICE.RESHAPE (QUOTE ASK)) (UNIXCHAT.TSET.DELAY 2000)) (GLOBALVARS CHAT.TO.UNIX.TERMINALS UNIXCHAT.NOTICE.RESHAPE)) (VARS (CHAT.ALLHOSTS (SORT (UNION (QUOTE (SHELL)) CHAT.ALLHOSTS) (FUNCTION UALPHORDER))) ( CHAT.HOSTMENU)))) (FILESLOAD UNIXCOMM CHAT) (ADDTOVAR CHAT.PROTOCOLTYPES (SHELL . UNIX.HOST.FILTER)) (ADDTOVAR CHAT.HOST.TO.PROTOCOL (SHELL . SHELL)) (ADDTOVAR CHAT.HOSTINFO (SHELL :KEYACTIONS ((BS (127 127))))) (ADDTOVAR NETWORKOSTYPES (SHELL . SHELL)) (PUTPROPS SYSTEMINITVARS VARTYPE ALIST) (ADDTOVAR SYSTEMINITVARS (NETWORKOSTYPES (SHELL . SHELL))) (RPAQ? CHAT.TO.UNIX.TERMINALS) (RPAQ? UNIXCHAT.NOTICE.RESHAPE (QUOTE ASK)) (RPAQ? UNIXCHAT.TSET.DELAY 2000) (RPAQ CHAT.ALLHOSTS (SORT (UNION (QUOTE (SHELL)) CHAT.ALLHOSTS) (FUNCTION UALPHORDER))) (RPAQQ CHAT.HOSTMENU NIL) (PUTPROPS UNIXCHAT COPYRIGHT ("Venue & Xerox Corporation" 1989 1990)) NIL