pull (non-working) TCP files to obsolete (#1283)

Author: masinter

obsolete/tcp/TCP

@@ -0,0 +1 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "12-Jun-90 16:10:42" {DSK}<usr>local>lde>lispcore>library>TCPCHAT.;3
 11300        changes to%:  (FILES TCP)                    (VARS TCPCHATCOMS)      previous date%: "15-Feb-90 13:09:03" {DSK}<usr>local>lde>lispcore>library>TCPCHAT.;2)(* ; "Copyright (c) 1985, 1986, 1987, 1988, 1990 by Venue & Xerox Corporation.  All rights reserved.")(PRETTYCOMPRINT TCPCHATCOMS)(RPAQQ TCPCHATCOMS
       [(FNS TCPCHAT.BIN TCPCHAT.HOST.FILTER TCPCHAT.NEGOTIATE TCPCHAT.OPEN TCPCHAT.OPTION.COMMAND              TCPCHAT.OPTION.INPUT TCPCHAT.OPTION.OUTPUT TCPCHAT.OPTION.TRACE TCPCHAT.TERMINAL.TYPE)        (VARS TCPCHAT.TELNET.TTY.TYPES TELNET.OPTIONS)        (INITVARS (TCPCHAT.TRACEFLG)               (TCPCHAT.TRACEFILE))        (FILES (SYSLOAD)               TCP CHAT)        (DECLARE%: EVAL@COMPILE DONTCOPY (FILES CHATDECLS)               (COMS (CONSTANTS * TELNET.COMMANDS)                     (CONSTANTS * TELNET.MARKS))               (RECORDS TELNET.OPTION TELNET.OPTIONSTATE)               (GLOBALVARS TCPCHAT.TELNET.TTY.TYPES TELNET.OPTIONS TELNET.MARKS))        (DECLARE%: DONTEVAL@LOAD DOCOPY                (* ;; "Tell Chat we exist ")
               (ADDVARS (CHAT.PROTOCOLTYPES (TCP . TCPCHAT.HOST.FILTER))                      (CHAT.PROTOCOL.ABBREVS (N . TCP)                             (T . TCP])(DEFINEQ(TCPCHAT.BIN
(LAMBDA (STREAM) (* ; "Edited  7-Jul-88 18:03 by atm") (bind CHAR while (AND (EQ (SETQ CHAR (\BUFFERED.BIN STREAM)) TELNET.IAC) (NEQ (SETQ CHAR (\BUFFERED.BIN STREAM)) TELNET.IAC)) do (TCPCHAT.NEGOTIATE CHAR STREAM) finally (RETURN CHAR))))(TCPCHAT.HOST.FILTER
(LAMBDA (HOST) (* ; "Edited 12-Apr-88 17:14 by bvm") (COND ((AND \IPFLG (DODIP.HOSTP HOST)) (LIST HOST (FUNCTION TCPCHAT.OPEN))))))(TCPCHAT.NEGOTIATE
(LAMBDA (COMMAND STREAM) (* ; "Edited  7-Jul-88 18:03 by atm") (TCPCHAT.OPTION.INPUT (TCP.OTHER.STREAM STREAM) COMMAND (\BUFFERED.BIN STREAM))))(TCPCHAT.OPEN
(LAMBDA (HOST) (* ; "Edited 17-Apr-87 10:06 by jrb:") (PROG ((STREAM (TCP.OPEN (DODIP.HOSTP HOST) \TCP.TELNET.PORT NIL (QUOTE ACTIVE) (QUOTE INPUT))) (OSTYPE (OR (AND (GETHASH (U-CASE HOST) \IP.HOSTNAMES) (fetch (HOSTS.TXT.ENTRY HTE.OS.TYPE) of (GETHASH (U-CASE HOST) \IP.HOSTNAMES))) (GETHOSTINFO HOST (QUOTE OSTYPE)))) OUTPUTSTREAM) (COND (STREAM (replace (STREAM BINABLE) of STREAM with NIL) (* ; "Can't run microcoded") (replace (STREAM STRMBINFN) of STREAM with (FUNCTION TCPCHAT.BIN)) (STREAMPROP STREAM (QUOTE SETDISPLAYTYPE) (FUNCTION NILL)) (COND ((EQ OSTYPE (QUOTE INTERLISP)) (RETURN (CONS STREAM (TCP.OTHER.STREAM STREAM))))) (* ; "(STREAMPROP STREAM (QUOTE SETDISPLAYTYPE) (FUNCTION TCPCHAT.TERMINAL.TYPE))") (SETQ OUTPUTSTREAM (TCP.OTHER.STREAM STREAM)) (STREAMPROP OUTPUTSTREAM (QUOTE OPTIONSTATES) (for OPTION in TELNET.OPTIONS collect (create TELNET.OPTIONSTATE OPTION _ (fetch (TELNET.OPTION OPTION) of OPTION)))) (TCPCHAT.OPTION.COMMAND OUTPUTSTREAM TELNET.DO TELNET.ECHO) (TCPCHAT.OPTION.COMMAND OUTPUTSTREAM TELNET.DO TELNET.SUPPRESS.GOAHEAD) (TCPCHAT.OPTION.COMMAND OUTPUTSTREAM TELNET.WILL TELNET.SUPPRESS.GOAHEAD) (COND ((NEQ OSTYPE (QUOTE UNIX)) (TCPCHAT.OPTION.COMMAND OUTPUTSTREAM TELNET.DO TELNET.BINARY) (TCPCHAT.OPTION.COMMAND OUTPUTSTREAM TELNET.WILL TELNET.BINARY))) (RETURN (CONS STREAM OUTPUTSTREAM)))))))(TCPCHAT.OPTION.COMMAND
(LAMBDA (OUTPUTSTREAM COMMAND OPTION TRACECAPTION) (* ; "Edited 24-Aug-87 16:58 by scp") (LET ((OPTIONSTATE (FASSOC OPTION (STREAMPROP OUTPUTSTREAM (QUOTE OPTIONSTATES)))) GO.AHEAD.WITH.COMMAND) (COND ((NULL OPTIONSTATE) (SETQ GO.AHEAD.WITH.COMMAND T)) (T (SELECTC COMMAND (TELNET.DO (COND ((NEQ (fetch (TELNET.OPTIONSTATE DOING) of OPTIONSTATE) (QUOTE YES)) (SETQ GO.AHEAD.WITH.COMMAND T) (replace (TELNET.OPTIONSTATE DOING) of OPTIONSTATE with (QUOTE YES))))) (TELNET.WILL (COND ((NEQ (fetch (TELNET.OPTIONSTATE WILLING) of OPTIONSTATE) (QUOTE YES)) (SETQ GO.AHEAD.WITH.COMMAND T) (replace (TELNET.OPTIONSTATE WILLING) of OPTIONSTATE with (QUOTE YES))))) (TELNET.DONT (COND ((NEQ (fetch (TELNET.OPTIONSTATE DOING) of OPTIONSTATE) (QUOTE NO)) (SETQ GO.AHEAD.WITH.COMMAND T) (replace (TELNET.OPTIONSTATE DOING) of OPTIONSTATE with (QUOTE NO))))) (TELNET.WONT (COND ((NEQ (fetch (TELNET.OPTIONSTATE WILLING) of OPTIONSTATE) (QUOTE NO)) (SETQ GO.AHEAD.WITH.COMMAND T) (replace (TELNET.OPTIONSTATE WILLING) of OPTIONSTATE with (QUOTE NO))))) NIL))) (COND (GO.AHEAD.WITH.COMMAND (BOUT OUTPUTSTREAM TELNET.IAC) (BOUT OUTPUTSTREAM COMMAND) (BOUT OUTPUTSTREAM OPTION) (FORCEOUTPUT OUTPUTSTREAM) (TCPCHAT.OPTION.TRACE COMMAND OPTION (OR TRACECAPTION (QUOTE SEND))))))))(TCPCHAT.OPTION.INPUT
(LAMBDA (OUTPUTSTREAM COMMAND OPTION) (* ; "Edited 16-Apr-87 13:30 by jrb:") (LET ((OPTIONRECORD (FASSOC OPTION TELNET.OPTIONS))) (COND (OPTIONRECORD (SELECTC COMMAND (TELNET.DO (TCPCHAT.OPTION.TRACE (QUOTE DO) OPTION (QUOTE RECV)) (TCPCHAT.OPTION.OUTPUT OUTPUTSTREAM (fetch (TELNET.OPTION ON.DO) of OPTIONRECORD) OPTION)) (TELNET.DONT (TCPCHAT.OPTION.TRACE (QUOTE DONT) OPTION (QUOTE RECV)) (TCPCHAT.OPTION.OUTPUT OUTPUTSTREAM (fetch (TELNET.OPTION ON.DONT) of OPTIONRECORD) OPTION)) (TELNET.WILL (TCPCHAT.OPTION.TRACE (QUOTE WILL) OPTION (QUOTE RECV)) (TCPCHAT.OPTION.OUTPUT OUTPUTSTREAM (fetch (TELNET.OPTION ON.WILL) of OPTIONRECORD) OPTION)) (TELNET.WONT (TCPCHAT.OPTION.TRACE (QUOTE WONT) OPTION (QUOTE RECV)) (TCPCHAT.OPTION.OUTPUT OUTPUTSTREAM (fetch (TELNET.OPTION ON.WONT) of OPTIONRECORD) OPTION)) (TELNET.SB (TCPCHAT.OPTION.TRACE (QUOTE SB) OPTION (QUOTE RECV)) (TCPCHAT.OPTION.OUTPUT OUTPUTSTREAM (fetch (TELNET.OPTION ON.SB) of OPTIONRECORD) OPTION)) COMMAND)) (T (TCPCHAT.OPTION.TRACE COMMAND OPTION) (TCPCHAT.OPTION.OUTPUT OUTPUTSTREAM (QUOTE WONT) OPTION))))))(TCPCHAT.OPTION.OUTPUT
(LAMBDA (OUTPUTSTREAM COMMAND OPTION) (* ; "Edited 17-Apr-87 16:34 by jrb:") (LET (CMDNUM) (COND ((NULL COMMAND)) ((SETQ CMDNUM (CDR (FASSOC COMMAND (BQUOTE ((WILL \, TELNET.WILL) (WONT \, TELNET.WONT) (DO \, TELNET.DO) (DONT \, TELNET.DONT)))))) (TCPCHAT.OPTION.COMMAND OUTPUTSTREAM CMDNUM OPTION (QUOTE SENDBACK))) (T (APPLY* COMMAND (TCP.OTHER.STREAM OUTPUTSTREAM)))))))(TCPCHAT.OPTION.TRACE
(LAMBDA (COMMAND OPTION PREFIX) (* ejs%: "22-Apr-85 16:41") (DECLARE (GLOBALVARS TCPCHAT.TRACEFLG TCPCHAT.TRACEFILE)) (COND (TCPCHAT.TRACEFLG (COND ((SMALLP COMMAND) (SETQ COMMAND (SELECTC COMMAND (TELNET.DO (QUOTE DO)) (TELNET.DONT (QUOTE DONT)) (TELNET.WILL (QUOTE WILL)) (TELNET.WONT (QUOTE WONT)) COMMAND)))) (printout TCPCHAT.TRACEFILE PREFIX ": " COMMAND " ") (PRINTCONSTANT OPTION TELNET.MARKS TCPCHAT.TRACEFILE) (TERPRI TCPCHAT.TRACEFILE)))))(TCPCHAT.TERMINAL.TYPE
(LAMBDA (INPUTSTREAM) (* ; "Edited 20-Apr-87 13:42 by jrb:") (LET ((COMMAND)) (SELECTC (\BUFFERED.BIN INPUTSTREAM) (TELNET.SEND (* ; "OK, should be followed by IAC SE") (IF TCPCHAT.TRACEFLG THEN (printout TCPCHAT.TRACEFILE "REQUEST IS SEND")) (IF (EQ (SETQ COMMAND (\BUFFERED.BIN INPUTSTREAM)) TELNET.IAC) THEN (IF TCPCHAT.TRACEFLG THEN (printout TCPCHAT.TRACEFILE " IAC")) ELSE (IF TCPCHAT.TRACEFLG THEN (printout " EXPECTED IAC, GOT " COMMAND))) (IF (EQ (SETQ COMMAND (\BUFFERED.BIN INPUTSTREAM)) TELNET.SE) THEN (IF TCPCHAT.TRACEFLG THEN (printout TCPCHAT.TRACEFILE " SE")) ELSE (IF TCPCHAT.TRACEFLG THEN (printout " EXPECTED SE, GOT " COMMAND))) (IF TCPCHAT.TRACEFLG THEN (TERPRI TCPCHAT.TRACEFILE)) (LET* ((OUTPUTSTREAM (TCP.OTHER.STREAM INPUTSTREAM)) (DISPLAYTYPE (OR (CDR (FASSOC (fetch (CHATDISPLAYTYPE DPYNAME) of (STREAMPROP INPUTSTREAM (QUOTE DISPLAYTYPE))) TCPCHAT.TELNET.TTY.TYPES)) (CDR (FASSOC (fetch (CHATDISPLAYTYPE DPYNAME) of (STREAMPROP OUTPUTSTREAM (QUOTE DISPLAYTYPE))) TCPCHAT.TELNET.TTY.TYPES))))) (BOUT OUTPUTSTREAM TELNET.IAC) (BOUT OUTPUTSTREAM TELNET.SB) (BOUT OUTPUTSTREAM TELNET.TERMINAL.TYPE) (BOUT OUTPUTSTREAM TELNET.IS) (PRIN1 DISPLAYTYPE OUTPUTSTREAM) (BOUT OUTPUTSTREAM TELNET.IAC) (BOUT OUTPUTSTREAM TELNET.SE) (FORCEOUTPUT OUTPUTSTREAM) (COND (TCPCHAT.TRACEFLG (printout TCPCHAT.TRACEFILE "SEND(BACK) IAC SB TERMINAL-TYPE IS " DISPLAYTYPE " IAC SE" T))))) (TELNET.IS (* ; "We told them we couldn't handle this - or would have had they asked...") (IF TCPCHAT.TRACEFLG THEN (printout TCPCHAT.TRACEFILE "REQUEST IS IS, which is an error: rest of command is:" T)) (WHILE (NEQ (SETQ COMMAND (\BUFFERED.BIN INPUTSTREAM)) TELNET.SE) DO (IF TCPCHAT.TRACEFLG THEN (PRIN1 (CHARACTER COMMAND) TCPCHAT.TRACEFILE))) (IF TCPCHAT.TRACEFLG THEN (printout TCPCHAT.TRACEFILE " SE" T))) (IF TCPCHAT.TRACEFLG THEN (printout TCPCHAT.TRACEFILE "REQUEST IS " COMMAND ", which is an error" T)))))))(RPAQQ TCPCHAT.TELNET.TTY.TYPES
 ((DM2500 . DATAMEDIA-2500)                                     (VT100 . DEC-VT100)))(RPAQQ TELNET.OPTIONS
       ((94 WONT WONT DONT DONT)        (0 WILL WONT NIL DONT)        (1 WONT WONT DO DO)        (3 WILL WILL NIL NIL)        (5 WONT WONT DONT DONT)        (6 WILL NIL NIL NIL)        (24 WILL NIL DONT NIL TCPCHAT.TERMINAL.TYPE)))(RPAQ? TCPCHAT.TRACEFLG
 )(RPAQ? TCPCHAT.TRACEFILE
 )(FILESLOAD (SYSLOAD)       TCP CHAT)(DECLARE%: EVAL@COMPILE DONTCOPY (FILESLOAD CHATDECLS)(RPAQQ TELNET.COMMANDS
 ((TELNET.SE 240)                            (TELNET.SB 250)                            (TELNET.WILL 251)                            (TELNET.WONT 252)                            (TELNET.DO 253)                            (TELNET.DONT 254)                            (TELNET.IAC 255)                            (TELNET.SEND 1)                            (TELNET.IS 0)))(DECLARE%: EVAL@COMPILE (RPAQQ TELNET.SE
 240)(RPAQQ TELNET.SB
 250)(RPAQQ TELNET.WILL
 251)(RPAQQ TELNET.WONT
 252)(RPAQQ TELNET.DO
 253)(RPAQQ TELNET.DONT
 254)(RPAQQ TELNET.IAC
 255)(RPAQQ TELNET.SEND
 1)(RPAQQ TELNET.IS
 0)(CONSTANTS (TELNET.SE 240)       (TELNET.SB 250)       (TELNET.WILL 251)       (TELNET.WONT 252)       (TELNET.DO 253)       (TELNET.DONT 254)       (TELNET.IAC 255)       (TELNET.SEND 1)       (TELNET.IS 0)))(RPAQQ TELNET.MARKS
 ((TELNET.BINARY 0)                         (TELNET.ECHO 1)                         (TELNET.SUPPRESS.GOAHEAD 3)                         (TELNET.STATUS 5)                         (TELNET.TIMING.MARK 6)                         (TELNET.TERMINAL.TYPE 24)))(DECLARE%: EVAL@COMPILE (RPAQQ TELNET.BINARY
 0)(RPAQQ TELNET.ECHO
 1)(RPAQQ TELNET.SUPPRESS.GOAHEAD
 3)(RPAQQ TELNET.STATUS
 5)(RPAQQ TELNET.TIMING.MARK
 6)(RPAQQ TELNET.TERMINAL.TYPE
 24)(CONSTANTS (TELNET.BINARY 0)       (TELNET.ECHO 1)       (TELNET.SUPPRESS.GOAHEAD 3)       (TELNET.STATUS 5)       (TELNET.TIMING.MARK 6)       (TELNET.TERMINAL.TYPE 24)))(DECLARE%: EVAL@COMPILE(RECORD TELNET.OPTION
 (OPTION ON.DO ON.DONT ON.WILL ON.WONT ON.SB))(RECORD TELNET.OPTIONSTATE
 (OPTION WILLING DOING)))(DECLARE%: DOEVAL@COMPILE DONTCOPY(GLOBALVARS TCPCHAT.TELNET.TTY.TYPES TELNET.OPTIONS TELNET.MARKS)))(DECLARE%: DONTEVAL@LOAD DOCOPY (ADDTOVAR CHAT.PROTOCOLTYPES
 (TCP . TCPCHAT.HOST.FILTER))(ADDTOVAR CHAT.PROTOCOL.ABBREVS
 (N . TCP)                                    (T . TCP)))(PUTPROPS TCPCHAT COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1990))(DECLARE%: DONTCOPY  (FILEMAP (NIL (1430 8610 (TCPCHAT.BIN 1440 . 1698) (TCPCHAT.HOST.FILTER 1700 . 1857) (TCPCHAT.NEGOTIATE 1859 . 2027) (TCPCHAT.OPEN 2029 . 3387) (TCPCHAT.OPTION.COMMAND 3389 . 4679) (TCPCHAT.OPTION.INPUT 4681 . 5785) (TCPCHAT.OPTION.OUTPUT 5787 . 6188) (TCPCHAT.OPTION.TRACE 6190 . 6667) (TCPCHAT.TERMINAL.TYPE 6669 . 8608)))))STOP

obsolete/tcp/TCPCHAT

@@ -0,0 +1 @@
+(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP")
(FILECREATED "12-Jun-90 17:31:06" {DSK}<usr>local>lde>lispcore>library>TCPHTE.;3
 5753         changes to%:  (VARS TCPHTECOMS)      previous date%: "11-Feb-89 11:06:54" {DSK}<usr>local>lde>lispcore>library>TCPHTE.;2)(* ; "Copyright (c) 1985, 1987, 1988, 1989, 1990 by Venue & Xerox Corporation.  All rights reserved.")(PRETTYCOMPRINT TCPHTECOMS)(RPAQQ TCPHTECOMS
       ((PROP MAKEFILE-ENVIRONMENT TCPHTE)        (RECORDS HOSTS.TXT.ENTRY)        (FNS \HTE.PARSE.ENTRY \HTE.READ.FILE \HTE.READ; \HTE.READLINE)        (INITVARS (HOSTS.TEXT.DIRECTORIES)               (\HTE.RDTBL))        (DECLARE%: EVAL@COMPILE DONTCOPY (GLOBALVARS \HTE.RDTBL \IP.HOSTNAMES)               (RECORDS HTELINE))))(PUTPROPS TCPHTE
 MAKEFILE-ENVIRONMENT
 (:PACKAGE "IL" :READTABLE "INTERLISP"))(DECLARE%: EVAL@COMPILE(DATATYPE HOSTS.TXT.ENTRY
 (HTE.TYPE HTE.ADDRESSES HTE.NAMES HTE.MACHINE.TYPE HTE.OS.TYPE                                      HTE.PROTOCOLS)))(/DECLAREDATATYPE 'HOSTS.TXT.ENTRY '(POINTER POINTER POINTER POINTER POINTER POINTER)       '((HOSTS.TXT.ENTRY 0 POINTER)         (HOSTS.TXT.ENTRY 2 POINTER)         (HOSTS.TXT.ENTRY 4 POINTER)         (HOSTS.TXT.ENTRY 6 POINTER)         (HOSTS.TXT.ENTRY 8 POINTER)         (HOSTS.TXT.ENTRY 10 POINTER))       '12)(DEFINEQ(\HTE.PARSE.ENTRY
  [LAMBDA (ENTRY)
                                        (* ; "Edited 11-Feb-89 11:04 by akw:")
    (DECLARE
 (GLOBALVARS NETWORKOSTYPES))    (LET* [[NAMES (for
 NAME in
 (fetch
 (HTELINE NAMES) of
 ENTRY)                     collect
 (MKATOM (U-CASE NAME]           (OSTYPE (CAR (fetch
 (HTELINE OS.TYPE) of
 ENTRY))                  (MKATOM (U-CASE)))           (HTE.ENTRY (create
 HOSTS.TXT.ENTRY                             HTE.TYPE _ (CAR (fetch
 (HTELINE TYPE) of
 ENTRY))                             HTE.ADDRESSES _ (for
 X in
 (fetch
 (HTELINE ADDRESSES)                                                                  of
 ENTRY)                                                collect
 (\IP.READ.STRING.ADDRESS X))                             HTE.NAMES _ NAMES                             HTE.MACHINE.TYPE _ [MKATOM (U-CASE (CAR (fetch
 (HTELINE MACHINE.TYPE                                                                                       ) of
                                                                                         ENTRY]                             HTE.OS.TYPE _ [AND OSTYPE (SETQ OSTYPE (MKATOM (U-CASE OSTYPE]                             HTE.PROTOCOLS _ (for
 PROTOENTRY in
 (fetch
 (HTELINE PROTOCOLS                                                                                          )                                                                           of
 ENTRY) bind
                                                                                         SLASH                                                when
 (SETQ SLASH (STRPOS '/ PROTOENTRY))                                                collect
 (CONS (SUBATOM PROTOENTRY 1 (SUB1 SLASH))                                                                  (SUBATOM PROTOENTRY (ADD1 SLASH]          (for
 NAME in
 NAMES do
 (PUTHASH NAME HTE.ENTRY \IP.HOSTNAMES])(\HTE.READ.FILE
(LAMBDA (FILE WANTEDTYPES) (* ; "Edited 24-May-88 16:57 by bvm") (DECLARE (GLOBALVARS \IP.HOSTNAMES \TCP.LAST.HOSTS.FILE.DATE \TCP.LAST.HOSTS.FILE.READ)) (OR WANTEDTYPES (SETQ WANTEDTYPES (QUOTE (HOST)))) (CL:WITH-OPEN-FILE (STREAM FILE) (LET ((FILENAME (FULLNAME STREAM)) (DATE (GETFILEINFO STREAM (QUOTE ICREATIONDATE))) ENTRY) (PRINTOUT PROMPTWINDOW T "Reading " FILENAME " of " (GDATE DATE (DATEFORMAT NO.SECONDS))) (CLRHASH \IP.HOSTNAMES) (until (EOFP STREAM) when (AND (SETQ ENTRY (\HTE.READLINE STREAM WANTEDTYPES)) (FMEMB (CAR (fetch (HTELINE TYPE) of ENTRY)) WANTEDTYPES)) do (\HTE.PARSE.ENTRY ENTRY)) (SETQ \TCP.LAST.HOSTS.FILE.DATE DATE) (SETQ \TCP.LAST.HOSTS.FILE.READ FILENAME)))))(\HTE.READ;
(LAMBDA (FL RDTBL) (* ; "Edited 24-May-88 14:45 by bvm") (until (SELCHARQ (READCCODE FL) ((CR LF EOL) T) NIL)) NIL))(\HTE.READLINE
(LAMBDA (STREAM WANTEDTYPES) (* ; "Edited 24-May-88 16:57 by bvm") (while (EQ (PEEKCCODE STREAM T) (CHARCODE ";")) do (\HTE.READ; STREAM)) (AND (NOT (EOFP STREAM)) (for FIELD# from 1 bind FIELDCONTENTS DONE (RDTBL _ (COND (\HTE.RDTBL) (T (SETQ \HTE.RDTBL (COPYREADTABLE (QUOTE ORIG))) (SETSEPR (CHARCODE (SPACE TAB %,)) NIL \HTE.RDTBL) (SETBRK (CHARCODE (":" ";" CR LF)) NIL \HTE.RDTBL) (READTABLEPROP \HTE.RDTBL (QUOTE CASEINSENSITIVE) T) \HTE.RDTBL))) until DONE collect (SETQ FIELDCONTENTS (until (SELCHARQ (SKIPSEPRCODES STREAM RDTBL) (":" (* ; "End of field") (READCCODE STREAM) T) (";" (* ; "end of line") (\HTE.READ; STREAM) (SETQ DONE T)) ((CR LF) (* ; "end of line--consume the terminator") (READCCODE STREAM) (SETQ DONE T)) (NIL (* ; "Eof") (SETQ DONE T)) NIL) collect (* ; "Read up to the next field delimiter") (if (EQ FIELD# 1) then (* ; "Canonicalize the type field") (READ STREAM RDTBL) else (RSTRING STREAM RDTBL)))) (if (AND (EQ FIELD# 1) WANTEDTYPES (NOT (FMEMB (CAR FIELDCONTENTS) WANTEDTYPES))) then (* ; "Don't care about this line") (OR DONE (\HTE.READ; STREAM)) (RETURN NIL)) FIELDCONTENTS)))))(RPAQ? HOSTS.TEXT.DIRECTORIES
 )(RPAQ? \HTE.RDTBL
 )(DECLARE%: EVAL@COMPILE DONTCOPY (DECLARE%: DOEVAL@COMPILE DONTCOPY(GLOBALVARS \HTE.RDTBL \IP.HOSTNAMES))(DECLARE%: EVAL@COMPILE(RECORD HTELINE
 (TYPE ADDRESSES NAMES MACHINE.TYPE OS.TYPE PROTOCOLS))))(PUTPROPS TCPHTE COPYRIGHT ("Venue & Xerox Corporation" 1985 1987 1988 1989 1990))(DECLARE%: DONTCOPY  (FILEMAP (NIL (1360 5370 (\HTE.PARSE.ENTRY 1370 . 3378) (\HTE.READ.FILE 3380 . 4095) (\HTE.READ; 4097 . 4230) (\HTE.READLINE 4232 . 5368)))))STOP