TO: Jerry Duffy FROM: Helen Baker RE: Release 2.0 Lisp Software Update Tape DATE: Tuesday the first of April, 1986; 9:34:38 am This tape updates lisp software from the following versions: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10-*- ;; Loaded patch status for LMI-BORIS dumped by GJC ;; on Sunday the fourth of August, 1985; 3:45:29 pm ;; recopied to the file it is in now for use as a base reference for report making. (SET 'SI:*SAVED-LOADED-PATCH-STATUS* '( ("TCP-Server" 33 0 :RELEASED) ("TCP-User" 57 0 :RELEASED) ("TCP-Kernel" 30 3 :RELEASED) )) to the following versions: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10;READTABLE:ZL-*- ;; Loaded patch status for LMI-DAN-DARE dumped by GJC ;; on Tuesday the first of April, 1986; 9:34:24 am (SET 'SI:*SAVED-LOADED-PATCH-STATUS* '( ("TCP-Server" 33 9 :RELEASED) ("TCP-User" 57 14 :RELEASED) ("TCP-Kernel" 30 12 :RELEASED) )) The tape contains the following files: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10;READTABLE:ZL-*- ;; patch update file list dumped by GJC from LMI-DAN-DARE ;; on Tuesday the first of April, 1986; 9:31:27 am (SET 'SI:*SAVED-PATCH-UPDATE-FILES* '( #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30.DIRECTORY#26" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-4.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-4.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-5.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-5.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-6.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-6.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-7.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-7.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-8.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-8.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-9.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-9.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-10.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-10.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-11.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-11.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-12.LISP#2" Page 2 #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-30-12.QFASL#2" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57.DIRECTORY#30" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-1.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-1.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-2.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-2.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-3.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-3.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-4.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-4.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-5.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-5.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-6.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-6.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-7.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-7.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-8.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-8.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-9.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-9.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-10.LISP#2" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-10.QFASL#2" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-11.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-11.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-12.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-12.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-13.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-13.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-14.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57-14.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33.DIRECTORY#20" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-1.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-1.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-2.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-2.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-3.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-3.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-4.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-4.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-5.LISP#3" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-5.QFASL#3" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-6.LISP#2" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-6.QFASL#2" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-7.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-7.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-8.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-8.QFASL#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-9.LISP#1" #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-33-9.QFASL#1" Page 3 )) The following is a detailed report each patch file, with a note of every FILE, FUNCTION, or VARIABLE modified: Report of patches to update from DJ: GJC.UPDATE; TCP-REL1-STATUS#> Created by GJC from LMI-DAN-DARE on Tuesday the first of April, 1986; 9:31:27 am Report on directory of patches: #FS::LM-PATHNAME "LAD: TCP.PATCH; KER NEL-30.DIRECTORY#26" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for TCP-Kernel version 30 ;;; Written 20-Dec-85 20:37:22 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Ser ver 33.4, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 778, 2.0 Process Systems 5/2/85 Fork.. Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.4 ;;; Reason: ;;; exsetup-verbose to T for a look at the link init message reply v alues. ;;; Written 7-Aug-85 15:27:45 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff. ; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (43) (defvar exsetup-verbose nil) (DEFUN EXSETUP-1 (MODE IM &AUX (MAGIC (MAKE-ARRAY 8 :TYPE :ART-8B)) ; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (43) (defun describe-init-msg (array) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-4.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-5.LISP#1" Page 4 ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.5 ;;; Reason: ;;; dont cons tcp:*mapped-dma* in disk buffer area. avoid bad intera ction with disk rqb's. ;;; Written 26-Aug-85 11:34:54 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, TCP-Kernel 30.4, Experimental LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff. ; From file DRIVER-LISPM.LISP#> TCP.KERNEL; LAMH: (43) (DEFUN MAKE-WIRED-WD-ARRAY (SIZE &OPTIONAL REUSABLE) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-5.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-6.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.6 ;;; Reason: ;;; make warm boot behavior be better. dont bother hacking board. ;;; Written 27-Nov-85 11:59:24 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78) (DEFVAR *CALLED-START* NIL) ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78) (DEFUN START (&REST ARGLIST &AUX (*CALLED-START* T)) ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78) (DEFUN START-INITIALIZATION-FORM (L) ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78) (DEFVAR *TCP-ABORTIONP* NIL "If T then all board-level operations wil l abort") ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78) (DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS ; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83) (DEFUN GENERIC-XSOOPEN (&AUX IDN) ; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83) (DEFUN GENERIC-CLEANUP-EXOS-SOCKET-IF-UNFINISHED (IDN) ; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83) Page 5 (DEFUN GENERIC-XCONTROL (SOCKET-ID CMD DATA SA SP TYPE OPTIONS) ; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83) (DEFUN GENERIC-XSOCLOSE (SOCKET-ID ABORT-P) ; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83) (DEFUN GENERIC-XSORECEIVE (SOCKET-ID SA DEST COUNT) ; From file SOCKET.LISP#> TCP.KERNEL; LAMH: (83) (DEFUN GENERIC-XSOSEND (SOCKET-ID SA SOURCE COUNT) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-6.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-7.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.7 ;;; Reason: ;;; Patches needed to allow use of new 8086-NETLOAD-DATA format ;;; Written 1-Dec-85 14:41:21 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 33.2, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93) (DEFVAR *NETLOAD-DEBUG-P* NIL) ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93) (DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93) (defconst XP_COLD0) (defconst XP_COOL1"chit-chat") (defconst XP_WARM2"benign operational problems") (defconst XP_HOT3"unexpected, non-fatal problems") (defconst XP_PANIC4"unexpected, fatal problems") (defconst *DATAADDR* #x01000000 "address to load exos program data se gment") (defconst XOBIN (lsh 1 0)) (defconst XOECHO (lsh 1 1)) (defconst XOSGA (lsh 1 3)) (defconst exosopt.xo_doarp 0"1 = use ARP protocol") (defprop exosopt.xo_doarp 1 size-in-bytes) (defconst exosopt.xo_docksum 1"1 = do checksums") (defprop exosopt.xo_docksum 1 size-in-bytes) (defconst exosopt.xo_useaddr 2"1 = use Ethernet address below") (defprop exosopt.xo_useaddr 1 size-in-bytes) (defconst exosopt.xo_ntsconn 3"up to 8 telnet connections, 0 disables ") (defprop exosopt.xo_ntsconn 1 size-in-bytes) (defconst exosopt.xo_iaddr 4 "Internet address, in network order") (defprop exosopt.xo_iaddr 4 size-in-bytes) Page 6 (defconst exosopt.xo_eaddr 8 "Ethernet address, in network order") (defprop exosopt.xo_eaddr 6 size-in-bytes) (defconst exosopt.xo_tsoffer 14 "bit map of Telnet options to offer" ) (defprop exosopt.xo_tsoffer 1 size-in-bytes) (defconst exosopt.xo_tspermit 15 "bit map of Telnet options to permit ") (defprop exosopt.xo_tspermit 1 size-in-bytes) (defconst exosopt.xo_dolink 16 "1 = enable host access to link mode ") (defprop exosopt.xo_dolink 1 size-in-bytes) (defconst exosopt.xo_npending 17 "number of outstanding host requests ") (defprop exosopt.xo_npending 1 size-in-bytes) (defconst exosopt.xo_nxmbufs 18 "number of extended memory buffers") (defprop exosopt.xo_nxmbufs 1 size-in-bytes) (defconst exosopt.xo_xptemp 19 "priority level for PRINTF messages" ) (defprop exosopt.xo_xptemp 1 size-in-bytes) (defconst exosopt.xo_bufchain 20 "1 = use NX 5.0 buffer-chaining") (defprop exosopt.xo_bufchain 1 size-in-bytes) (defconst sizeof-exosopt 21) (defstruct (netload (conc-name netload.) named (defun netload (&optional &key internet-address ethernet-address (defvar *normalize-addrp* nil "doesnt work if set to T") (DEFUN EXOS-LSEEK (ADDR) (DEFUN EXOS-WRITE (DATA START COUNT) (DEFUN EXOS-START (ADDR) (defun normalize-segmented-address (addr) (defun segment-normal-address (addr) (defun init-msg-wordptn-as-long (im) (defvar*ID86V7* #o0411 "first 16-bit word in exec module, or swapped version thereof") (defun 2byteswap (n) (defun load-download-data (filename) (defun save-download-data-qfasl (8086-netload-data filename) (defun read-array-from-stream (stream size swap?) (defun hexprint-art-8b (array &optional (stream standard-output)) (defun make-art-8b-from-hex (length data-as-string) (defun save-download-data-ascii (data &optiopnal (filename "TCP:KERNE L;NETDATA LISP >")) (DEFUN DESCRIBE-DATA-OPTIONS-VECTOR (DATA-ARRAY) ; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (50) (DEFUN EXSETUP-1 (MODE IM &AUX (MAGIC (MAKE-ARRAY 8 :TYPE :ART-8B)) ; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (51) (defun describe-init-msg (array) ; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (51) (DEFVAR *LAST-INIT-MSG* NIL "setq'd or rplaca'd by DECODE-INIT-MSG") ; From file DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (51) Page 7 (DEFUN DECODE-INIT-MSG (ARRAY) ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93) (DEFUN XDLWRITE (ARRAY START-OFFSET COUNT &OPTIONAL LONGADDRP &AUX KP MSG) ; From file DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93) (DEFUN XDLIOCSTART (ADDR &OPTIONAL LONGADDRP &AUX KP MSG) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-7.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-8.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.8 ;;; Reason: ;;; make exos-stats print software version numbers properly ;;; Written 2-Dec-85 09:27:38 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file DRIVER-DEFS.LISP#> TCP.KERNEL; LAMH: (31) (DEFUN EXOS-STATS (&KEY (FORMAT-STREAM T) (HOW :DEFAULT) (RESET-P NIL ) (PRINT-P T)) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-8.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-9.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.9 ;;; Reason: ;;; IOCTL extensions to support ROUTE ;;; Written 13-Dec-85 17:57:22 by GJC, ;;; while running on Natasha Nogoodnik from band 3 ;;; with System 102.174, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.8, TCP-User 57.11, TCP-Server 33.3, DOE-M acsyma 9.17, Macsyma-Help-Database 1.1, microcode 778, GJC MADE THIS BAND. ; From file EXOS-DEFS.LISP#> TCP.KERNEL; LAM6: (14) (DEFCONST EXIOCSARP(IOS 20)"set an arp entry") (DEFCONST EXIOCGARP(IOS 21)"get an arp entry") (DEFCONST EXIOCDARP(IOS 22)"delete an arp entry") (DEFCONST EXIOCADDRT(IOS 23)"add route entry") (DEFCONST EXIOCDELRT(IOS 24)"delete route entry") Page 8 (DEFCONST EXIOCSHOWRT(IOS 25)"show route entry") (DEFCONST EXIOCDISPRT(IOS 26)"display route entry") ; From file DRIVER-DEFS.LISP#> TCP.KERNEL; LAM6: (33) (DEFCONST EXOS-IOCTL-CODE-ALIST ; From file DRIVER-DEFS.LISP#> TCP.KERNEL; LAM6: (33) (DEFUN EXINTR (&AUX (READ-MP (RMSG-AREA-LASTR RMSGAREA)) KP REQUEST-C ODE REPLY-CODE Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-9.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-10.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.10 ;;; Reason: ;;; Fix host table parsing ;;; Written 17-Dec-85 19:52:26 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.9, TCP-User 57.11, TCP-Serv er 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file HOSTS.LISP#> TCP.KERNEL; LAM6: (17) (defun host-table-parse-host (string start end) ; From file HOSTS.LISP#> TCP.KERNEL; LAM6: (17) (defun host-table-parse-gateway (string start end) ; From file HOSTS.LISP#> TCP.KERNEL; LAM6: (17) (DEFUN ADD-HOST-INFORMATION (ADDR NAME MACHINE-TYPE OPSYS PROTOCOLS) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-10.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-11.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.11 ;;; Reason: ;;; add new functions in new file to handle internet routing table m anipulation and ARP ;;; Written 17-Dec-85 19:56:53 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.9, TCP-User 57.11, TCP-Serv er 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file ROUTE.LISP#> TCP.KERNEL; LAM6: (10) (DEFUN NEXT-SLOT-AFTER (X) (DEFCONST RTENTRY.RT_DST.SIN_FAMILY 0) Page 9 (DEFPROP RTENTRY.RT_DST.SIN_FAMILY 2 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_DST.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_FAMILY)) (DEFPROP RTENTRY.RT_DST.SIN_PORT 2 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_DST.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_PORT)) (DEFPROP RTENTRY.RT_DST.SIN_ADDR 4 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_DST.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_ADDR)) (DEFPROP RTENTRY.RT_DST.SIN_ZERO 8 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_GATEWAY.SIN_FAMILY (NEXT-SLOT-AFTER 'RTENTRY.RT_ DST.SIN_ZERO)) (DEFPROP RTENTRY.RT_GATEWAY.SIN_FAMILY 2 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_GATEWAY.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_FAMILY)) (DEFPROP RTENTRY.RT_GATEWAY.SIN_PORT 2 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_GATEWAY.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_PORT)) (DEFPROP RTENTRY.RT_GATEWAY.SIN_ADDR 4 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_GATEWAY.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_ADDR)) (DEFPROP RTENTRY.RT_GATEWAY.SIN_ZERO 8 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_NEXT (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_ZE RO)) (DEFPROP RTENTRY.RT_NEXT 4 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_USE (NEXT-SLOT-AFTER 'RTENTRY.RT_NEXT)) (DEFPROP RTENTRY.RT_USE 4 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_IFP (NEXT-SLOT-AFTER 'RTENTRY.RT_USE)) (DEFPROP RTENTRY.RT_IFP 4 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_FLAGS (NEXT-SLOT-AFTER 'RTENTRY.RT_IFP)) (DEFPROP RTENTRY.RT_FLAGS 1 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_REFCNT (NEXT-SLOT-AFTER 'RTENTRY.RT_FLAGS)) (DEFPROP RTENTRY.RT_REFCNT 1 SIZE-IN-BYTES) (DEFCONST RTENTRY.RT_HASH (NEXT-SLOT-AFTER 'RTENTRY.RT_REFCNT)) (DEFPROP RTENTRY.RT_HASH 2 SIZE-IN-BYTES) (DEFCONST SIZEOF_RTENTRY (NEXT-SLOT-AFTER 'RTENTRY.RT_HASH)) (DEFCONST RTHASHSIZ 7) (DEFCONST RTF_UP#x1"route useable") (DEFCONST RTF_GATEWAY#x2"destination is a gateway") (DEFCONST RTF_HOST#x4"host entry (net otherwise)") (DEFCONST IN_CLASSA #x80000000) (DEFCONST IN_CLASSA_NET #xff000000 "8 bits of net number") (DEFCONST IN_CLASSA_LNA #x00ffffff) (DEFCONST IN_CLASSB #x40000000) (DEFCONST IN_CLASSB_NET #xffff0000 "16 bits of net number") (DEFCONST IN_CLASSB_LNA #x0000ffff) (DEFCONST IN_CLASSC_NET #xffffff00 "24 bits of net number") (DEFCONST IN_CLASSC_LNA #x000000ff) (DEFUN IN_NETOF (IN) Page 10 (DEFUN IN_LNAOF (IN) (DEFUN DESCRIBE-RTENTRY (X) (DEFCONST BRDSARPEXIOCSARP) (DEFCONST BRDGARPEXIOCGARP) (DEFCONST BRDDARPEXIOCDARP) (DEFCONST BRDADDRTEXIOCADDRT) (DEFCONST BRDDELRTEXIOCDELRT) (DEFCONST BRDSHOWRT EXIOCSHOWRT) (DEFCONST BRDDISPRTEXIOCDISPRT) (DEFRESOURCE RTENTRY () (DEFUN DISPLAY-ROUTE (&REST L) (DEFUN DISPLAY-ENTRIES (ROUTE FLAGS) (DEFUN ADD-ROUTE (DESTINATION GATEWAY) (DEFUN DELETE-ROUTE (DESTINATION GATEWAY) (DEFUN MODIFY-ROUTE (DESTINATION GATEWAY OPER VERBOSE) (DEFUN GET-INTERNET-ADDRESS (X &AUX TEMP) (DEFUN EXOS-IOCTL-DIRECT (CMD DATA LENGTH &OPTIONAL (ERRORP T) &AUX R EPLY MP KP) (defconst ether_addr.ea_family 0) (defprop ether_addr.ea_family 2 size-in-bytes) (defconst ether_addr.ea_addr (next-slot-after 'ether_addr.ea_family)) (defprop ether_addr.ea_addr 6 size-in-bytes) (defconst ether_addr.ea_extra (next-slot-after 'ether_addr.ea_addr)) (defprop ether_addr.ea_extra 8 size-in-bytes) (defconst next_addr.nxt_family 0) (defprop next_addr.nxt_family 2 size-in-bytes) (defconst next_addr.nxt_count (next-slot-after 'next_addr.nxt_family) ) (defprop next_addr.nxt_count 4 size-in-bytes) (defconst next_addr.nxt_extra (next-slot-after 'next_addr.nxt_count)) (defprop next_addr.nxt_extra 10 size-in-bytes) (defconst AF-COUNT 12 "A count") ;; should be added to SOCKET-DEFS.LI SP (defconst exarp_ioctl.arp_pa 0 "protocol address") (defconst exarp_ioctl.arp_ha (next-slot-after 'exarp_ioctl.arp_pa) "h ardware address") (defconst exarp_ioctl.arp_flags (next-slot-after 'exarp_ioctl.arp_ha) ) (defprop exarp_ioctl.arp_flags 4 size-in-bytes) (defconst sizeof_exarp_ioctl (next-slot-after 'exarp_ioctl.arp_flags) ) (defconst ATF_COM2"completed entry") (defconst ATF_PERM4"perminant entry") (defconst ATF_PUBL8"respond for another host") (defun describe-exarp_ioctl (x) (defun display-arp (&rest hosts &aux r return) (defun add-arp (host ethernet-address &optional &key temporary publis hed) (defun delete-arp (host) Page 11 (defun set-up-default-internet-routing-table () (DEFINE-TCP-START-FORM "default routing table" Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-11.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; KERNEL-30-12.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Kernel version 30.12 ;;; Reason: ;;; get-internet-address now prefers address on local network, EASY open now uses that too. ;;; Written 20-Dec-85 19:39:35 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Ser ver 33.4, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file ROUTE.LISP#> TCP.KERNEL; LAM6: (13) (DEFUN GET-INTERNET-ADDRESS (X &AUX TEMP) ; From file HOSTS.LISP#> TCP.KERNEL; LAM6: (18) (DEFUN ADD-HOST-INFORMATION (ADDR NAME MACHINE-TYPE OPSYS PROTOCOLS) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; KERNEL-3 0-12.QFASL#2" Report on directory of patches: #FS::LM-PATHNAME "LAD: TCP.PATCH; USE R-57.DIRECTORY#30" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for TCP-User version 57 ;;; Written 29-Mar-86 11:19:52 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.186, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.13, TCP-Server 33.8, micr ocode 783. Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.1 ;;; Reason: ;;; directory line parser capability for :LISPM. ;;; Written 5-Aug-85 13:44:09 by gjc, ;;; while running on Lambda Six from band 3 Page 12 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff. ; From file FTP-ACCESS.LISP#> TCP.USER; LAMH: (88) (defprop :lispm lispm-directory-line-parser :directory-line-parser) (defun lispm-directory-line-parser (line host pathname &aux start end p temp pn) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 1.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-2.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.2 ;;; Reason: ;;; string-right-trim the #\return from some directory list lines cr eated by probe-stream. ;;; Written 12-Aug-85 19:19:42 by SYSTEM, ;;; while running on Lambda Six from band 3 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff. ; From file FTP-ACCESS.LISP#> TCP.USER; LAMH: (88) (defun ftp-parse-directory-list-line (line host pathname) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 2.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-3.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.3 ;;; Reason: ;;; add an "ignorant" :change-properties handler to ftp-file-stream- mixin. -GJC ;;; Written 3-Oct-85 18:48:47 by HEL, ;;; while running on Natasha Nogoodnik from band 1 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo Page 13 w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microco de 778, LMI Site--mrc 9/12/85. ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (90) (defmethod (ftp-file-stream-mixin :change-properties) (&rest l) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 3.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.4 ;;; Reason: ;;; more switches. ;;; Written 3-Oct-85 19:01:58 by HEL, ;;; while running on Natasha Nogoodnik from band 1 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microco de 778, LMI Site--mrc 9/12/85. ; From file FTP.LISP#> TCP.USER; NAT: (69) (defvar *ignore-reply-from-quit* nil) ; From file FTP.LISP#> TCP.USER; NAT: (69) (defun command (fmt &rest args) ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (90) (defvar *ftp-probe-before-open-directions* '(:input :output) ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (90) (defmethod (ftp-access :open) (file pathname Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 4.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-5.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.5 ;;; Reason: ;;; make lambda->lambda ftp-access work. ;;; Written 3-Oct-85 19:46:38 by HEL, ;;; while running on Natasha Nogoodnik from band 1 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, microco de 778, LMI Site--mrc 9/12/85. ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (91) (defun lispm-directory-line-parser (line host pathname &aux start end p temp pn) Page 14 ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (91) (defmethod (ftp-probe-stream :after :init) (&rest ignored) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 5.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-6.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.6 ;;; Reason: ;;; ftp-access from Lispm->lispm now works a lot better. ;;; Written 5-Oct-85 14:02:44 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.5, TCP-Server 33.1, microco de 768. ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (93) (defmethod (ftp-access :directory-list) (given-pathname options) ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (93) (defun ftp-access-canonicalize-directory-list (l) ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (93) (defun lispm-directory-line-parser (line host pathname &aux start end p temp pn) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 6.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-7.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.7 ;;; Reason: ;;; more patches to get access to vms systems to work more smoothly. ;;; Written 8-Oct-85 16:56:38 by HEL, ;;; while running on Boris Badinoff from band 1 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.6, TCP-Server 33.0, microco de 778, LMI Site--mrc 9/12/85. ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (94) (defmethod (ftp-access :open) (file pathname ; From file FTP-ACCESS.LISP#> TCP.USER; NAT: (94) (defun excelan-8040-vms-directory-line-parser (line host pathname &au x start end p e) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- Page 15 7.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-8.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.8 ;;; Reason: ;;; make *ftp-host-unit-lifetime* be 3 minutes instead of 45 ;;; Written 24-Oct-85 18:25:29 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.170, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.5, TCP-User 57.7, TCP-Server 33.1, DOE-Ma csyma 9.15, Macsyma-Help-Database 1.1, microcode 773. ; From file FTP-ACCESS.LISP#> TCP.USER; LAMH: (95) (defvar *ftp-host-unit-lifetime* (* 3. 3600.) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 8.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-9.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.9 ;;; Reason: ;;; fixup-ftp-string-for-host now puts lispm host name (convenient f or various hacks). ;;; Written 25-Nov-85 18:43:24 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file FTP-ACCESS.LISP#> TCP.USER; LAMH: (96) (defun fixup-ftp-string-for-host (string pathname) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 9.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-10.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.10 ;;; Reason: ;;; handle tcp:exos-error in input-coroutine-input-pump, and :after :close properly ;;; Written 26-Nov-85 19:39:13 by GJC, Page 16 ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file EASY.LISP#> TCP.USER; LAMH: (29) (defmethod (input-coroutine-stream :after :close) (&rest ignored) ; From file EASY.LISP#> TCP.USER; LAMH: (29) (defun input-coroutine-input-pump (from to) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 10.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-11.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.11 ;;; Reason: ;;; input-coroutine-stream now handles pending force-output on input operations ;;; Written 2-Dec-85 09:03:48 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file EASY.LISP#> TCP.USER; LAMH: (32) (defun open-easy-tcp-stream (internet-address port &optional &key &al low-other-keys ; From file EASY.LISP#> TCP.USER; LAMH: (32) (defun make-input-coroutine-stream (syncronous-stream &optional auto- force-output) ; From file EASY.LISP#> TCP.USER; LAMH: (32) (defflavor input-coroutine-stream ; From file EASY.LISP#> TCP.USER; LAMH: (32) (defmethod (input-coroutine-stream :listen) () ; From file EASY.LISP#> TCP.USER; LAMH: (32) (defmethod (input-coroutine-stream :tyi) (&optional ignored) ; From file EASY.LISP#> TCP.USER; LAMH: (32) (defmethod (input-coroutine-stream :tyi-no-hang) (&optional ignored) ; From file EASY.LISP#> TCP.USER; LAMH: (32) (defmethod (input-coroutine-stream :tyo) (char) ; From file EASY.LISP#> TCP.USER; LAMH: (32) (defmethod (input-coroutine-stream :force-output) () ; From file EASY.LISP#> TCP.USER; LAMH: (32) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 11.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH Page 17 ; USER-57-12.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.12 ;;; Reason: ;;; :OPEN method to TCP-HOST: now chooses address smartly using func tion from kernel-30-12 ;;; Written 26-Dec-85 16:16:40 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.12, TCP-User 57.11, TCP-Ser ver 33.5, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file EASY.LISP#> TCP.USER; LAM6: (35) (defmethod (tcp-host-pathname :open) (&rest options) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 12.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-13.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.13 ;;; Reason: ;;; dont give host name ":" to symbolics ftp servers. ;;; Written 29-Mar-86 09:08:48 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.185, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, micr ocode 783. ; From file FTP-ACCESS.LISP#> TCP.USER; LAD: (97) (defun fixup-ftp-string-for-host (string pathname) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 13.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; USER-57-14.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-User version 57.14 ;;; Reason: ;;; :force-output in translating stream ;;; Written 29-Mar-86 11:18:35 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.186, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME Page 18 DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.13, TCP-Server 33.8, micr ocode 783. ; From file FTP.LISP#> TCP.USER; LAD: (71) (defun make-ascii-translating-output-stream (output &aux (bytes 0)) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; USER-57- 14.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "LAD: TCP.PATCH; SER VER-33.DIRECTORY#20" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for TCP-Server version 33 ;;; Written 1-Apr-86 09:28:10 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.187, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.14, TCP-Server 33.8, micr ocode 783. Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.1 ;;; Reason: ;;; LIST now gets zwei:directory-input-stream with :DELETED T ;;; Written 4-Oct-85 14:09:43 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.5, TCP-Server 33.0, microco de 768. ; From file FTP.LISP#> TCP.SERVER; NAT: (25) (DEFUN FTP-RETRIEVE-1 (STATE PN DIRECTORY-P &AUX OS IS) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-1.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-2.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.2 ;;; Reason: ;;; fix and
characters in incoming mail. ;;; Written 25-Nov-85 18:17:44 by GJC, ;;; while running on Lambda Six from band 1 Page 19 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file SMTP.LISP#> TCP.SERVER; LAMH: (9) (defun (data smtp-command) (IGNORE stream &aux data) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-2.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-3.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.3 ;;; Reason: ;;; fix calls to zwei:directory-input-stream, pass options as set, n ot as keyword arguments. ;;; Written 2-Dec-85 07:54:26 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 33.2, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file FTP.LISP#> TCP.SERVER; LAMH: (26) (DEFUN FTP-RETRIEVE-1 (STATE PN DIRECTORY-P &AUX OS IS) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-3.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.4 ;;; Reason: ;;; password security for TELNET and FTP ;;; Written 20-Dec-85 17:33:07 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.11, TCP-User 57.11, TCP-Ser ver 33.3, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 773, 2.0 Process Systems 5/2/85 Fork.. ; From file TELNET.LISP#> TCP.SERVER; LAM6: (55) (DEFVAR *TELNET-USER-LOGIN-PUNT* 3) ; From file TELNET.LISP#> TCP.SERVER; LAM6: (55) (DEFUN TELNET-USER-LOGIN (TERMINAL &AUX USER PASS) ; From file FTP.LISP#> TCP.SERVER; LAM6: (28) (DEFUN FTP-VALID-LM-PASSWORD-P (USERNAME PASSWORD HOST) ; From file FTP.LISP#> TCP.SERVER; LAM6: (28) Page 20 (DEFUN FTP-LOGIN (STATE USER HOST-OBJECT PASSWORD HOMEDIR) ; From file FTP.LISP#> TCP.SERVER; LAM6: (28) (DEFUN (USER FTP-SERVER-HANDLE) (STATE ARG CMDLINE) CMDLINE ; From file GENERIC.LISP#> TCP.SERVER; LAM6: (52) (DEFVAR *FAILED-LOGIN-NOTIFICATION-P* NIL) ; From file GENERIC.LISP#> TCP.SERVER; LAM6: (52) (DEFUN VALIDATE-TCP-SERVER-PASSWORD (USERNAME PASSWORD TO-HOST) ; From file GENERIC.LISP#> TCP.SERVER; LAM6: (52) (DEFUN TCP-SERVER-PASSWORD-MATCH (ITEM PATTERN) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-4.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-5.LISP#3" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.5 ;;; Reason: ;;; condition-case for tcp:exos-error inside listener loop for TCP s erver ports ;;; Written 21-Dec-85 12:22:24 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.12, TCP-User 57.11, TCP-Ser ver 33.4, Experimental window-maker 1.0, Experimental Sited 1.0, micr ocode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file GENERIC.LISP#> TCP.SERVER; LAM6: (54) (DEFVAR *LISTENER-HANDLE-EXOS-ERROR-CODES* '("ETIMEDOUT:" "EBADF:")) (DEFUN TCP-GENERIC-SERVER-FUNCTION-LOOP-ERROR (ERROR) (DEFUN TCP-GENERIC-SERVER-FUNCTION-LOOP (NAME) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-5.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-6.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.6 ;;; Reason: ;;; fix connect of data connection in ftp server to specify local po rt. ;;; Reason: ;;; add art-16b <=> art-8b translating streams, e.g. as used by QFAS L files. ;;; Written 28-Mar-86 15:24:08 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.184, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME Page 21 DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, micr ocode 783. ; From file FTP.LISP#> TCP.SERVER; LAD: (28) (DEFUN MAKE-FTP-DATA-CONNECTION (STATE NAME SIZE MODE) ; From file FTP.LISP#> TCP.SERVER; LAD: (28) (DEFUN FTP-SEND-DATA-FUNCTION (STATE INSTREAM OUTSTREAM DIRECTORY-P) ; From file FTP.LISP#> TCP.SERVER; LAD: (28) (DEFUN FTP-RECEIVE-DATA-FUNCTION (STATE INSTREAM OUTSTREAM &AUX SUCCE SS) ; From file FTP.LISP#> TCP.SERVER; LAD: (28) (DEFFLAVOR 16B-TO-8B-TRANSLATING-OUTPUT-STREAM (DEFMETHOD (16B-TO-8B-TRANSLATING-OUTPUT-STREAM :NEW-OUTPUT-BUFFER) ( ) (DEFMETHOD (16B-TO-8B-TRANSLATING-OUTPUT-STREAM :SEND-OUTPUT-BUFFER) (ARRAY END) (DEFMETHOD (16B-TO-8B-TRANSLATING-OUTPUT-STREAM :DISCARD-OUTPUT-BUFFE R) (ARRAY) (DEFFLAVOR 8B-TO-16B-TRANSLATING-OUTPUT-STREAM (DEFMETHOD (8B-TO-16B-TRANSLATING-OUTPUT-STREAM :NEW-OUTPUT-BUFFER) ( ) (DEFMETHOD (8B-TO-16B-TRANSLATING-OUTPUT-STREAM :SEND-OUTPUT-BUFFER) (ARRAY END) (DEFMETHOD (8B-TO-16B-TRANSLATING-OUTPUT-STREAM :DISCARD-OUTPUT-BUFFE R) (ARRAY) (DEFUN MAKE-16B-TO-8B-TRANSLATING-OUTPUT-STREAM (OUTPUT) (DEFUN MAKE-8B-TO-16B-TRANSLATING-OUTPUT-STREAM (OUTPUT) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-6.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-7.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.7 ;;; Reason: ;;; fix *define-tcp-server to create server if tcp already enabled a nd running ;;; Written 29-Mar-86 09:01:29 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.185, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, micr ocode 783. ; From file GENERIC.LISP#> TCP.SERVER; LAD: (58) (defun *define-tcp-server (name documentation &KEY TOPLEVEL-FUNCTION LISTEN-PORT ; From file GENERIC.LISP#> TCP.SERVER; LAD: (58) Page 22 (DEFUN START-ONE-TCP-SERVER (S) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-7.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-8.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.8 ;;; Reason: ;;; remote disk server ;;; Written 29-Mar-86 09:22:00 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.185, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.13, TCP-Server 33.7, micr ocode 783. ; From file DISK.LISP#> TCP.SERVER; LAD: (2) (define-tcp-server DISK "Read and write disk blocks" (defflavor serial-stream-disk-unit (defun transmit-32b (word stream) (defun receive-32b (stream) (defun transmit-string (string stream) (defun receive-string (stream &optional to-string) (defmethod (serial-stream-disk-unit :notify) (string) (DEFMETHOD (SERIAL-STREAM-DISK-UNIT :READ) (RQB ADDRESS) (defmethod (serial-stream-disk-unit :write) (rqb address) (defmethod (serial-stream-disk-unit :ANTICIPATE-OPERATIONS) (KIND STA RT-ADDRESS N-OPERATIONS RQB-NPAGES) (defmethod (serial-stream-disk-unit :remote-error) (code) (DEFMETHOD (serial-stream-disk-unit :ANTICIPATION-PROTOCOL-VIOLATION) (OP RQB ADDRESS) (defmethod (serial-stream-disk-unit :dispose) () (defun serial-stream-disk-server (stream) (DEFUN serial-stream-disk-server-INTERNAL (stream &aux rqb) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-8.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: TCP.PATCH ; SERVER-33-9.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for TCP-Server version 33.9 ;;; Reason: ;;; fix ftp server type command so that qfasl files will work ;;; Written 1-Apr-86 09:26:49 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.187, Local-File 56.16, FILE-Server 13.2, Unix-Int Page 23 erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.14, TCP-Server 33.8, micr ocode 783. ; From file FTP.LISP#> TCP.SERVER; LAD: (32) (DEFUN FTP-FIRST-CMD-ARG (CMDLINE ALLOW-SPACES-P &AUX TEMP) ; From file FTP.LISP#> TCP.SERVER; LAD: (32) (DEFUN FTP-SECOND-CMD-ARG (CMDLINE) ; From file FTP.LISP#> TCP.SERVER; LAD: (32) (DEFUN (TYPE FTP-SERVER-HANDLE) (STATE ARG CMDLINE) Object file for patches is #FS::LM-PATHNAME "LAD: TCP.PATCH; SERVER-3 3-9.QFASL#1" A list of all files modified: FTP.LISP#> TCP.SERVER; LAD: (32) DISK.LISP#> TCP.SERVER; LAD: (2) GENERIC.LISP#> TCP.SERVER; LAD: (58) FTP.LISP#> TCP.SERVER; LAD: (28) GENERIC.LISP#> TCP.SERVER; LAM6: (54) GENERIC.LISP#> TCP.SERVER; LAM6: (52) FTP.LISP#> TCP.SERVER; LAM6: (28) TELNET.LISP#> TCP.SERVER; LAM6: (55) FTP.LISP#> TCP.SERVER; LAMH: (26) SMTP.LISP#> TCP.SERVER; LAMH: (9) FTP.LISP#> TCP.SERVER; NAT: (25) FTP.LISP#> TCP.USER; LAD: (71) FTP-ACCESS.LISP#> TCP.USER; LAD: (97) EASY.LISP#> TCP.USER; LAM6: (35) EASY.LISP#> TCP.USER; LAMH: (32) EASY.LISP#> TCP.USER; LAMH: (29) FTP-ACCESS.LISP#> TCP.USER; LAMH: (96) FTP-ACCESS.LISP#> TCP.USER; LAMH: (95) FTP-ACCESS.LISP#> TCP.USER; NAT: (94) FTP-ACCESS.LISP#> TCP.USER; NAT: (93) FTP-ACCESS.LISP#> TCP.USER; NAT: (91) FTP.LISP#> TCP.USER; NAT: (69) FTP-ACCESS.LISP#> TCP.USER; NAT: (90) FTP-ACCESS.LISP#> TCP.USER; LAMH: (88) HOSTS.LISP#> TCP.KERNEL; LAM6: (18) ROUTE.LISP#> TCP.KERNEL; LAM6: (13) ROUTE.LISP#> TCP.KERNEL; LAM6: (10) HOSTS.LISP#> TCP.KERNEL; LAM6: (17) DRIVER-DEFS.LISP#> TCP.KERNEL; LAM6: (33) EXOS-DEFS.LISP#> TCP.KERNEL; LAM6: (14) DRIVER-DEFS.LISP#> TCP.KERNEL; LAMH: (31) DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (51) DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (50) Page 24 DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (93) SOCKET.LISP#> TCP.KERNEL; LAMH: (83) DRIVER-DLOAD.LISP#> TCP.KERNEL; LAMH: (78) DRIVER-LISPM.LISP#> TCP.KERNEL; LAMH: (43) DRIVER-SUBR.LISP#> TCP.KERNEL; LAMH: (43) A list of all definitions modified: DEFUN (TYPE FTP-SERVER-HANDLE) (STATE ARG CMDLINE) DEFUN FTP-SECOND-CMD-ARG (CMDLINE) DEFUN FTP-FIRST-CMD-ARG (CMDLINE ALLOW-SPACES-P &AUX TEMP) DEFUN serial-stream-disk-server-INTERNAL (stream &aux rqb) defun serial-stream-disk-server (stream) defmethod (serial-stream-disk-unit :dispose) () DEFMETHOD (serial-stream-disk-unit :ANTICIPATION-PROTOCOL-VIOLATION) (OP RQB ADDRESS) defmethod (serial-stream-disk-unit :remote-error) (code) defmethod (serial-stream-disk-unit :ANTICIPATE-OPERATIONS) (KIND STA RT-ADDRESS N-OPERATIONS RQB-NPAGES) defmethod (serial-stream-disk-unit :write) (rqb address) DEFMETHOD (SERIAL-STREAM-DISK-UNIT :READ) (RQB ADDRESS) defmethod (serial-stream-disk-unit :notify) (string) defun receive-string (stream &optional to-string) defun transmit-string (string stream) defun receive-32b (stream) defun transmit-32b (word stream) defflavor serial-stream-disk-unit define-tcp-server DISK "Read and write disk blocks" DEFUN START-ONE-TCP-SERVER (S) defun *define-tcp-server (name documentation &KEY TOPLEVEL-FUNCTION LISTEN-PORT DEFUN MAKE-8B-TO-16B-TRANSLATING-OUTPUT-STREAM (OUTPUT) DEFUN MAKE-16B-TO-8B-TRANSLATING-OUTPUT-STREAM (OUTPUT) DEFMETHOD (8B-TO-16B-TRANSLATING-OUTPUT-STREAM :DISCARD-OUTPUT-BUFFE R) (ARRAY) DEFMETHOD (8B-TO-16B-TRANSLATING-OUTPUT-STREAM :SEND-OUTPUT-BUFFER) (ARRAY END) DEFMETHOD (8B-TO-16B-TRANSLATING-OUTPUT-STREAM :NEW-OUTPUT-BUFFER) ( ) DEFFLAVOR 8B-TO-16B-TRANSLATING-OUTPUT-STREAM DEFMETHOD (16B-TO-8B-TRANSLATING-OUTPUT-STREAM :DISCARD-OUTPUT-BUFFE R) (ARRAY) DEFMETHOD (16B-TO-8B-TRANSLATING-OUTPUT-STREAM :SEND-OUTPUT-BUFFER) (ARRAY END) DEFMETHOD (16B-TO-8B-TRANSLATING-OUTPUT-STREAM :NEW-OUTPUT-BUFFER) ( ) DEFFLAVOR 16B-TO-8B-TRANSLATING-OUTPUT-STREAM Page 25 DEFUN FTP-RECEIVE-DATA-FUNCTION (STATE INSTREAM OUTSTREAM &AUX SUCCE SS) DEFUN FTP-SEND-DATA-FUNCTION (STATE INSTREAM OUTSTREAM DIRECTORY-P) DEFUN MAKE-FTP-DATA-CONNECTION (STATE NAME SIZE MODE) DEFUN TCP-GENERIC-SERVER-FUNCTION-LOOP (NAME) DEFUN TCP-GENERIC-SERVER-FUNCTION-LOOP-ERROR (ERROR) DEFVAR *LISTENER-HANDLE-EXOS-ERROR-CODES* '("ETIMEDOUT:" "EBADF:")) DEFUN TCP-SERVER-PASSWORD-MATCH (ITEM PATTERN) DEFUN VALIDATE-TCP-SERVER-PASSWORD (USERNAME PASSWORD TO-HOST) DEFVAR *FAILED-LOGIN-NOTIFICATION-P* NIL) DEFUN (USER FTP-SERVER-HANDLE) (STATE ARG CMDLINE) CMDLINE DEFUN FTP-LOGIN (STATE USER HOST-OBJECT PASSWORD HOMEDIR) DEFUN FTP-VALID-LM-PASSWORD-P (USERNAME PASSWORD HOST) DEFUN TELNET-USER-LOGIN (TERMINAL &AUX USER PASS) DEFVAR *TELNET-USER-LOGIN-PUNT* 3) DEFUN FTP-RETRIEVE-1 (STATE PN DIRECTORY-P &AUX OS IS) defun (data smtp-command) (IGNORE stream &aux data) DEFUN FTP-RETRIEVE-1 (STATE PN DIRECTORY-P &AUX OS IS) defun make-ascii-translating-output-stream (output &aux (bytes 0)) defun fixup-ftp-string-for-host (string pathname) defmethod (tcp-host-pathname :open) (&rest options) defmethod (input-coroutine-stream :force-output) () defmethod (input-coroutine-stream :tyo) (char) defmethod (input-coroutine-stream :tyi-no-hang) (&optional ignored) defmethod (input-coroutine-stream :tyi) (&optional ignored) defmethod (input-coroutine-stream :listen) () defflavor input-coroutine-stream defun make-input-coroutine-stream (syncronous-stream &optional auto- force-output) defun open-easy-tcp-stream (internet-address port &optional &key &al low-other-keys defun input-coroutine-input-pump (from to) defmethod (input-coroutine-stream :after :close) (&rest ignored) defun fixup-ftp-string-for-host (string pathname) defvar *ftp-host-unit-lifetime* (* 3. 3600.) defun excelan-8040-vms-directory-line-parser (line host pathname &au x start end p e) defmethod (ftp-access :open) (file pathname defun lispm-directory-line-parser (line host pathname &aux start end p temp pn) defun ftp-access-canonicalize-directory-list (l) defmethod (ftp-access :directory-list) (given-pathname options) defmethod (ftp-probe-stream :after :init) (&rest ignored) defun lispm-directory-line-parser (line host pathname &aux start end p temp pn) defmethod (ftp-access :open) (file pathname defvar *ftp-probe-before-open-directions* '(:input :output) defun command (fmt &rest args) defvar *ignore-reply-from-quit* nil) Page 26 defmethod (ftp-file-stream-mixin :change-properties) (&rest l) defun ftp-parse-directory-list-line (line host pathname) defun lispm-directory-line-parser (line host pathname &aux start end p temp pn) defprop :lispm lispm-directory-line-parser :directory-line-parser) DEFUN ADD-HOST-INFORMATION (ADDR NAME MACHINE-TYPE OPSYS PROTOCOLS) DEFUN GET-INTERNET-ADDRESS (X &AUX TEMP) DEFINE-TCP-START-FORM "default routing table" defun set-up-default-internet-routing-table () defun delete-arp (host) defun add-arp (host ethernet-address &optional &key temporary publis hed) defun display-arp (&rest hosts &aux r return) defun describe-exarp_ioctl (x) defconst ATF_PUBL8"respond for another host") defconst ATF_PERM4"perminant entry") defconst ATF_COM2"completed entry") defconst sizeof_exarp_ioctl (next-slot-after 'exarp_ioctl.arp_flags) ) defprop exarp_ioctl.arp_flags 4 size-in-bytes) defconst exarp_ioctl.arp_flags (next-slot-after 'exarp_ioctl.arp_ha) ) defconst exarp_ioctl.arp_ha (next-slot-after 'exarp_ioctl.arp_pa) "h ardware address") defconst exarp_ioctl.arp_pa 0 "protocol address") defconst AF-COUNT 12 "A count") ;; should be added to SOCKET-DEFS.LI SP defprop next_addr.nxt_extra 10 size-in-bytes) defconst next_addr.nxt_extra (next-slot-after 'next_addr.nxt_count)) defprop next_addr.nxt_count 4 size-in-bytes) defconst next_addr.nxt_count (next-slot-after 'next_addr.nxt_family) ) defprop next_addr.nxt_family 2 size-in-bytes) defconst next_addr.nxt_family 0) defprop ether_addr.ea_extra 8 size-in-bytes) defconst ether_addr.ea_extra (next-slot-after 'ether_addr.ea_addr)) defprop ether_addr.ea_addr 6 size-in-bytes) defconst ether_addr.ea_addr (next-slot-after 'ether_addr.ea_family)) defprop ether_addr.ea_family 2 size-in-bytes) defconst ether_addr.ea_family 0) DEFUN EXOS-IOCTL-DIRECT (CMD DATA LENGTH &OPTIONAL (ERRORP T) &AUX R EPLY MP KP) DEFUN GET-INTERNET-ADDRESS (X &AUX TEMP) DEFUN MODIFY-ROUTE (DESTINATION GATEWAY OPER VERBOSE) DEFUN DELETE-ROUTE (DESTINATION GATEWAY) DEFUN ADD-ROUTE (DESTINATION GATEWAY) DEFUN DISPLAY-ENTRIES (ROUTE FLAGS) DEFUN DISPLAY-ROUTE (&REST L) DEFRESOURCE RTENTRY () Page 27 DEFCONST BRDDISPRTEXIOCDISPRT) DEFCONST BRDSHOWRT EXIOCSHOWRT) DEFCONST BRDDELRTEXIOCDELRT) DEFCONST BRDADDRTEXIOCADDRT) DEFCONST BRDDARPEXIOCDARP) DEFCONST BRDGARPEXIOCGARP) DEFCONST BRDSARPEXIOCSARP) DEFUN DESCRIBE-RTENTRY (X) DEFUN IN_LNAOF (IN) DEFUN IN_NETOF (IN) DEFCONST IN_CLASSC_LNA #x000000ff) DEFCONST IN_CLASSC_NET #xffffff00 "24 bits of net number") DEFCONST IN_CLASSB_LNA #x0000ffff) DEFCONST IN_CLASSB_NET #xffff0000 "16 bits of net number") DEFCONST IN_CLASSB #x40000000) DEFCONST IN_CLASSA_LNA #x00ffffff) DEFCONST IN_CLASSA_NET #xff000000 "8 bits of net number") DEFCONST IN_CLASSA #x80000000) DEFCONST RTF_HOST#x4"host entry (net otherwise)") DEFCONST RTF_GATEWAY#x2"destination is a gateway") DEFCONST RTF_UP#x1"route useable") DEFCONST RTHASHSIZ 7) DEFCONST SIZEOF_RTENTRY (NEXT-SLOT-AFTER 'RTENTRY.RT_HASH)) DEFPROP RTENTRY.RT_HASH 2 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_HASH (NEXT-SLOT-AFTER 'RTENTRY.RT_REFCNT)) DEFPROP RTENTRY.RT_REFCNT 1 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_REFCNT (NEXT-SLOT-AFTER 'RTENTRY.RT_FLAGS)) DEFPROP RTENTRY.RT_FLAGS 1 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_FLAGS (NEXT-SLOT-AFTER 'RTENTRY.RT_IFP)) DEFPROP RTENTRY.RT_IFP 4 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_IFP (NEXT-SLOT-AFTER 'RTENTRY.RT_USE)) DEFPROP RTENTRY.RT_USE 4 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_USE (NEXT-SLOT-AFTER 'RTENTRY.RT_NEXT)) DEFPROP RTENTRY.RT_NEXT 4 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_NEXT (NEXT-SLOT-AFTER 'RTENTRY.RT_GATEWAY.SIN_ZE RO)) DEFPROP RTENTRY.RT_GATEWAY.SIN_ZERO 8 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_GATEWAY.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_ADDR)) DEFPROP RTENTRY.RT_GATEWAY.SIN_ADDR 4 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_GATEWAY.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_PORT)) DEFPROP RTENTRY.RT_GATEWAY.SIN_PORT 2 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_GATEWAY.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_GA TEWAY.SIN_FAMILY)) DEFPROP RTENTRY.RT_GATEWAY.SIN_FAMILY 2 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_GATEWAY.SIN_FAMILY (NEXT-SLOT-AFTER 'RTENTRY.RT_ DST.SIN_ZERO)) DEFPROP RTENTRY.RT_DST.SIN_ZERO 8 SIZE-IN-BYTES) Page 28 DEFCONST RTENTRY.RT_DST.SIN_ZERO (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_ADDR)) DEFPROP RTENTRY.RT_DST.SIN_ADDR 4 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_DST.SIN_ADDR (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_PORT)) DEFPROP RTENTRY.RT_DST.SIN_PORT 2 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_DST.SIN_PORT (NEXT-SLOT-AFTER 'RTENTRY.RT_DST.SI N_FAMILY)) DEFPROP RTENTRY.RT_DST.SIN_FAMILY 2 SIZE-IN-BYTES) DEFCONST RTENTRY.RT_DST.SIN_FAMILY 0) DEFUN NEXT-SLOT-AFTER (X) DEFUN ADD-HOST-INFORMATION (ADDR NAME MACHINE-TYPE OPSYS PROTOCOLS) defun host-table-parse-gateway (string start end) defun host-table-parse-host (string start end) DEFUN EXINTR (&AUX (READ-MP (RMSG-AREA-LASTR RMSGAREA)) KP REQUEST-C ODE REPLY-CODE DEFCONST EXOS-IOCTL-CODE-ALIST DEFCONST EXIOCDISPRT(IOS 26)"display route entry") DEFCONST EXIOCSHOWRT(IOS 25)"show route entry") DEFCONST EXIOCDELRT(IOS 24)"delete route entry") DEFCONST EXIOCADDRT(IOS 23)"add route entry") DEFCONST EXIOCDARP(IOS 22)"delete an arp entry") DEFCONST EXIOCGARP(IOS 21)"get an arp entry") DEFCONST EXIOCSARP(IOS 20)"set an arp entry") DEFUN EXOS-STATS (&KEY (FORMAT-STREAM T) (HOW :DEFAULT) (RESET-P NIL ) (PRINT-P T)) DEFUN XDLIOCSTART (ADDR &OPTIONAL LONGADDRP &AUX KP MSG) DEFUN XDLWRITE (ARRAY START-OFFSET COUNT &OPTIONAL LONGADDRP &AUX KP MSG) DEFUN DECODE-INIT-MSG (ARRAY) DEFVAR *LAST-INIT-MSG* NIL "setq'd or rplaca'd by DECODE-INIT-MSG") defun describe-init-msg (array) DEFUN EXSETUP-1 (MODE IM &AUX (MAGIC (MAKE-ARRAY 8 :TYPE :ART-8B)) DEFUN DESCRIBE-DATA-OPTIONS-VECTOR (DATA-ARRAY) defun save-download-data-ascii (data &optiopnal (filename "TCP:KERNE L;NETDATA LISP >")) defun make-art-8b-from-hex (length data-as-string) defun hexprint-art-8b (array &optional (stream standard-output)) defun read-array-from-stream (stream size swap?) defun save-download-data-qfasl (8086-netload-data filename) defun load-download-data (filename) defun 2byteswap (n) defvar*ID86V7* #o0411 "first 16-bit word in exec module, or swapped version thereof") defun init-msg-wordptn-as-long (im) defun segment-normal-address (addr) defun normalize-segmented-address (addr) DEFUN EXOS-START (ADDR) DEFUN EXOS-WRITE (DATA START COUNT) Page 29 DEFUN EXOS-LSEEK (ADDR) defvar *normalize-addrp* nil "doesnt work if set to T") defun netload (&optional &key internet-address ethernet-address defstruct (netload (conc-name netload.) named defconst sizeof-exosopt 21) defprop exosopt.xo_bufchain 1 size-in-bytes) defconst exosopt.xo_bufchain 20 "1 = use NX 5.0 buffer-chaining") defprop exosopt.xo_xptemp 1 size-in-bytes) defconst exosopt.xo_xptemp 19 "priority level for PRINTF messages" ) defprop exosopt.xo_nxmbufs 1 size-in-bytes) defconst exosopt.xo_nxmbufs 18 "number of extended memory buffers") defprop exosopt.xo_npending 1 size-in-bytes) defconst exosopt.xo_npending 17 "number of outstanding host requests ") defprop exosopt.xo_dolink 1 size-in-bytes) defconst exosopt.xo_dolink 16 "1 = enable host access to link mode ") defprop exosopt.xo_tspermit 1 size-in-bytes) defconst exosopt.xo_tspermit 15 "bit map of Telnet options to permit ") defprop exosopt.xo_tsoffer 1 size-in-bytes) defconst exosopt.xo_tsoffer 14 "bit map of Telnet options to offer" ) defprop exosopt.xo_eaddr 6 size-in-bytes) defconst exosopt.xo_eaddr 8 "Ethernet address, in network order") defprop exosopt.xo_iaddr 4 size-in-bytes) defconst exosopt.xo_iaddr 4 "Internet address, in network order") defprop exosopt.xo_ntsconn 1 size-in-bytes) defconst exosopt.xo_ntsconn 3"up to 8 telnet connections, 0 disables ") defprop exosopt.xo_useaddr 1 size-in-bytes) defconst exosopt.xo_useaddr 2"1 = use Ethernet address below") defprop exosopt.xo_docksum 1 size-in-bytes) defconst exosopt.xo_docksum 1"1 = do checksums") defprop exosopt.xo_doarp 1 size-in-bytes) defconst exosopt.xo_doarp 0"1 = use ARP protocol") defconst XOSGA (lsh 1 3)) defconst XOECHO (lsh 1 1)) defconst XOBIN (lsh 1 0)) defconst *DATAADDR* #x01000000 "address to load exos program data se gment") defconst XP_PANIC4"unexpected, fatal problems") defconst XP_HOT3"unexpected, non-fatal problems") defconst XP_WARM2"benign operational problems") defconst XP_COOL1"chit-chat") defconst XP_COLD0) DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS DEFVAR *NETLOAD-DEBUG-P* NIL) Page 30 DEFUN GENERIC-XSOSEND (SOCKET-ID SA SOURCE COUNT) DEFUN GENERIC-XSORECEIVE (SOCKET-ID SA DEST COUNT) DEFUN GENERIC-XSOCLOSE (SOCKET-ID ABORT-P) DEFUN GENERIC-XCONTROL (SOCKET-ID CMD DATA SA SP TYPE OPTIONS) DEFUN GENERIC-CLEANUP-EXOS-SOCKET-IF-UNFINISHED (IDN) DEFUN GENERIC-XSOOPEN (&AUX IDN) DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS DEFVAR *TCP-ABORTIONP* NIL "If T then all board-level operations wil l abort") DEFUN START-INITIALIZATION-FORM (L) DEFUN START (&REST ARGLIST &AUX (*CALLED-START* T)) DEFVAR *CALLED-START* NIL) DEFUN MAKE-WIRED-WD-ARRAY (SIZE &OPTIONAL REUSABLE) defun describe-init-msg (array) DEFUN EXSETUP-1 (MODE IM &AUX (MAGIC (MAKE-ARRAY 8 :TYPE :ART-8B)) defvar exsetup-verbose nil)