tcp makefile new

obsolete/tcp/TCPHTE

@@ -0,0 +1,64 @@
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+
+
(FILECREATED "20-Jul-2023 19:12:24" {DSK}<home>larry>il>medley>obsolete>tcp>TCPHTE.;2
 5567   
+
+      :EDIT-BY "lmm"
+
+      :PREVIOUS-DATE "12-Jun-90 17:31:06" {DSK}<home>larry>il>medley>obsolete>tcp>TCPHTE.;1)
+
+
+(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))
+)
+)
+(DECLARE%: DONTCOPY
+  (FILEMAP (NIL (1257 5267 (\HTE.PARSE.ENTRY 1267 . 3275) (\HTE.READ.FILE 3277 . 3992) (\HTE.READ; 3994
+ . 4127) (\HTE.READLINE 4129 . 5265)))))
+STOP