(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 2-Apr-87 12:42:02" ("compiled on " {ERIS}LIBRARY>TCPCONFIG.;14) "31-Mar-87 21:33:35" brecompiled changes%: TCPCONF.GET.LOCAL.ADDRESSES TCPCONF.GET.LOCAL.MASKS in "Xerox Lisp 31-Mar-87 ..." dated "31-Mar-87 21:58:30") (FILECREATED " 2-Apr-87 12:40:37" {ERIS}LIBRARY>TCPCONFIG.;14 36359 changes to%: (FNS TCPCONF.GET.LOCAL.ADDRESSES TCPCONF.GET.LOCAL.MASKS) previous date%: " 8-Jan-87 16:36:27" {ERIS}LIBRARY>TCPCONFIG.;12) TCP.CONFIGURE :D4 (P 1 PROPERLENGTH P 0 STREAM) pg Iggg hdddddddd H H `I `hh ggg `H H (109 CLOSEF 105 PRIN2 95 OPENSTREAM 81 TCPCONF.DIALOGUE 72 \NCONC2 62 EQLENGTH 54 CLOSEF 46 READ 39 LENGTH 19 OPENSTREAM 5 INFILEP) (101 \IP.DEFAULT.CONFIGURATION 92 NEW 89 OUTPUT 86 {DSK}IP.INIT 75 \IP.DEFAULT.CONFIGURATION 66 \IP.DEFAULT.CONFIGURATION 58 \IP.DEFAULT.CONFIGURATION 49 \IP.DEFAULT.CONFIGURATION 16 OLD 13 INPUT 10 {DSK}IP.INIT 2 {DSK}IP.INIT) () TCP.CONFIGURE.WINDOW :D4 (P 2 INSPECTW P 1 POS P 0 HEIGHT F 3 DEFAULTFONT) g Si nXH IInXH o g `dddddddddgJ Jgo Jg dgJg dgJgg (161 PUTWINDOWPROP 137 GETWINDOWUSERPROP 116 GETWINDOWUSERPROP 109 PUTWINDOWPROP 98 INSPECT 64 BOUNDP 55 CREATEW 48 CREATEREGION 34 GETBOXPOSITION 24 HEIGHTIFWINDOW 8 LENGTH 5 RECORDFIELDNAMES) (158 TCPCONF.TITLECOMMANDFN 155 TITLECOMMANDFN 144 NILL 134 SELECTABLEITEMS 123 TCPCONF.SET.PROPERTY 113 SELECTABLEITEMS 102 TITLE 94 IPINIT 91 \IP.DEFAULT.CONFIGURATION 69 \IP.DEFAULT.CONFIGURATION 61 \IP.DEFAULT.CONFIGURATION 17 FONTDESCRIPTOR 12 FONTCLASS 2 IPINIT) ( 106 "TCP/IP Configuration Window" 52 "TCP/IP Configuration Window") TCPCONF.DIALOGUEA0001A0002 :D4 (NAME SI::*UNWIND-PROTECT* P 2 DEFAULT.GATEWAY P 1 ADDRESS.STRING I 0 SI::*CLEANUP-FORMS* F 3 PROPERTY) eSdg0ohog `H `dg$`ohog `dg2 Johog Y`I`h ZdgH`H`dgH`Hddg"H|`H `dg%HT`H `g5ohog `H `(324 MKATOM 321 U-CASE 318 TTYIN 266 TCPCONF.GET.DOMAIN.SERVERS 226 TCPCONF.GET.LOCAL.MASKS 195 TCPCONF.GET.LOCAL.ADDRESSES 160 TCPCONF.GET.LOCAL.NETWORKS 146 \IP.READ.STRING.ADDRESS 123 TTYIN 82 TTYIN 29 MKATOM 26 U-CASE 23 TTYIN) (343 \IP.DEFAULT.CONFIGURATION 330 \IP.DEFAULT.CONFIGURATION 315 STRING 300 LOCAL.DOMAIN 287 \IP.DEFAULT.CONFIGURATION 275 \IP.DEFAULT.CONFIGURATION 259 DOMAIN.SERVERS 246 \IP.DEFAULT.CONFIGURATION 235 \IP.DEFAULT.CONFIGURATION 220 SUBNETMASK 208 \IP.DEFAULT.CONFIGURATION 189 LOCAL.ADDRESSES 180 \IP.DEFAULT.CONFIGURATION 173 \IP.DEFAULT.CONFIGURATION 153 LOCAL.NETWORKS 137 \IP.DEFAULT.CONFIGURATION 129 \IP.DEFAULT.CONFIGURATION 120 STRING 98 DEFAULT.GATEWAY 87 \IP.DEFAULT.CONFIGURATION 79 STRING 64 \IP.DEFAULT.CONFIGURATION 57 HTE.FILE 45 \IP.DEFAULT.CONFIGURATION 35 \IP.DEFAULT.CONFIGURATION 20 STRING 4 HOSTNAME) ( 312 "Enter the name of the internet domain in which this host resides." 307 "Please enter this host's local domain ( if none): " 117 "Enter an IP address, in the form 192.10.200.1" 112 "Please enter the IP address of the default gateway for this host. If you have no gateway, just type a carriage return: " 76 "Enter the name of a file to be used in translating IP host names to IP host addresses." 71 "Please enter the name of a HOSTS.TXT file. If you have no HOSTS.TXT file, type a carriage return." 17 "Enter a name to call this host by" 12 "Please enter this host's name: ") TCPCONF.DIALOGUEA0001 :D4 (P 5 SI::*RESETFORMS* P 4 LISPXHIST P 3 PROPERTY P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 LISPXHIST F 7 SATISFIED? F 8 SI::NLSETQ-VALUE) i@oi i hdo gjdohdi i oJh[`g g 3i Ki lhi K`g g i hihi )i Ki lhi K`g g i i Vg  JZnichcg(208 CL:VALUES-LIST 204 SI::RESETUNWIND 201 \MVLIST 198 TCPCONF.DIALOGUEA0001A0002 187 TERPRI 182 PRIN1 178 RECORDACCESS 172 RECLOOK 161 TAB 153 PRIN1 147 TERPRI 141 PRINTDEF 133 POSITION 129 RECORDACCESS 123 RECLOOK 112 TAB 104 PRIN1 98 TERPRI 91 RECORDACCESS 85 RECLOOK 57 TERPRI 52 PRINTPARA 31 ASKUSER 21 TCPCONF.PRINT.CONFIGURATION 17 TERPRI 12 PRIN1) (225 :NORMAL 195 SI::RESETUNWIND 175 FETCH 169 IPINIT 166 \IP.DEFAULT.CONFIGURATION 126 FETCH 120 IPINIT 117 \IP.DEFAULT.CONFIGURATION 88 FETCH 82 IPINIT 79 \IP.DEFAULT.CONFIGURATION 34 N) ( 62 (HOSTNAME HTE.FILE DEFAULT.GATEWAY LOCAL.NETWORKS LOCAL.ADDRESSES SUBNETMASK DOMAIN.SERVERS LOCAL.DOMAIN) 45 (In the following dialogue, you will be presented with the current value for a configuration parameter, and then be given a chance to enter a new value. Simply type to default to the current value.) 28 "Are you satisfied with the current configuration? " 8 "Here is the current configuration:") TCPCONF.DIALOGUE :D4 (P 6 *CONDITION-HANDLER-BINDINGS* P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 2 CHANGEDFLG P 1 SATISFIED? P 0 OLDCONFIGURATION F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) .` 1h`WioWL IH`h(31 TCPCONF.DIALOGUEA0001 5 COPYALL) (40 \IP.DEFAULT.CONFIGURATION 13 SI::NLSETQ-PROCEED-CASE 2 \IP.DEFAULT.CONFIGURATION) ( 21 (CL:ERROR . SI::NLSETQHANDLER)) TCPCONF.GET.DOMAIN.SERVERSA0001 :D4 (P 2 ADDRESS P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 6 LIST F 7 SI::NLSETQ-VALUE) 0i@0VdZ LKh]\Kh\Mhcg(16 \IP.READ.STRING.ADDRESS) (45 :NORMAL) () TCPCONF.GET.DOMAIN.SERVERS :D4 (P 9 ADDRESS P 5 *CONDITION-HANDLER-BINDINGS* P 4 SI::*NLSETQFLAG* P 3 *PROCEED-CASES* P 2 SI::NLSETQ-VALUE P 1 ADDRESSES P 0 LIST F 10 *PROCEED-CASES* F 11 *CONDITION-HANDLER-BINDINGS*)  I{oho X6Hdgh'`WioWK gJY;H`@ Hd_ O Nh__Nh_OYH(96 \IP.READ.STRING.ADDRESS 56 TCPCONF.GET.DOMAIN.SERVERSA0001 17 TTYIN) (75 \IP.DEFAULT.CONFIGURATION 60 :NORMAL 38 SI::NLSETQ-PROCEED-CASE 26 NONE) ( 46 (CL:ERROR . SI::NLSETQHANDLER) 14 "Enter a list of IP addresses, in the form 36.47.0.45, separated by spaces." 9 "Please enter the addresses of the local domain servers for this host, separated by spaces. If you have no domain servers, type NONE: ") TCPCONF.GET.LOCAL.ADDRESSES :D4 (P 8 3MBADDRESS P 7 10MBADDRESS P 6 ADDRESS P 5 STRING P 2 IPAddressErrorMsg P 1 IPAddressHelpMsg P 0 ADDRESSES F 9 \10MBLOCALNDB F 10 \3MBLOCALNDB) `oo#WQ NGohIg ]M ^MHH] ^ [jKK hJi i MhWQ NGohIg ]M ^MHH] ^ \jLL hJi i MhOO (190 \APPEND2 173 TERPRI 168 PRIN1 159 \FZEROP 146 \IPNETADDRESS 140 \IP.READ.STRING.ADDRESS 125 \IP.READ.STRING.ADDRESS 119 TTYIN 90 TERPRI 85 PRIN1 76 \FZEROP 63 \IPNETADDRESS 57 \IP.READ.STRING.ADDRESS 42 \IP.READ.STRING.ADDRESS 36 TTYIN) (116 STRING 33 STRING 2 \IP.DEFAULT.CONFIGURATION) ( 111 "Please enter this host's IP address on the 3MB network, in the form 36.9.0.9: " 28 "Please enter this host's IP address on the 10MB network, in the form 36.9.0.9: " 11 "The network address you have entered is in an incorrect form. Please try again." 7 "Enter an IP address. Leave the host number portion of the address 0.") TCPCONF.GET.LOCAL.MASKS :D4 (P 8 3MBADDRESS P 7 10MBADDRESS P 6 ADDRESS P 5 STRING P 2 IPAddressErrorMsg P 1 IPAddressHelpMsg P 0 SUBNETMASK F 9 \10MBLOCALNDB F 10 \3MBLOCALNDB) `oo#WQ NGohIg ]M ^MHH] ^ [jKK hJi i MhWQ NGohIg ]M ^MHH] ^ \jLL hJi i MhOO (195 \APPEND2 178 TERPRI 173 PRIN1 164 \FZEROP 151 \IPNETADDRESS 145 \IP.READ.STRING.ADDRESS 130 \IP.READ.STRING.ADDRESS 124 TTYIN 95 TERPRI 90 PRIN1 81 \FZEROP 68 \IPNETADDRESS 62 \IP.READ.STRING.ADDRESS 47 \IP.READ.STRING.ADDRESS 41 TTYIN) (121 STRING 38 STRING 2 \IP.DEFAULT.CONFIGURATION) ( 116 "Please enter the subnet address mask for this host's 3MB network, in the form 36.9.0.0: " 33 "Please enter the subnet address mask for this host's 10MB network, in the form 39.9.0.0: " 16 "The network address you have entered is in an incorrect form. Please try again." 12 "Enter an IP address. If the bitwise-AND of this address and any destination IP address is not equal to the bitwise-AND of this address and the host's local IP address, the destination IP address will be considered to be on another (sub)network") TCPCONF.PRINT.CONFIGURATION :D4 (P 2 FIELD P 1 DEC) tg g HhZ`Ig )Ji lhi J`Ig i hihi Ji lhi J`Ig i i HX(108 TERPRI 103 PRIN1 99 RECORDACCESS 87 TAB 79 PRIN1 72 PRINTDEF 64 POSITION 60 RECORDACCESS 48 TAB 40 PRIN1 32 RECORDACCESS 11 RECLOOK 5 RECORDFIELDNAMES) (96 FETCH 92 \IP.DEFAULT.CONFIGURATION 57 FETCH 53 \IP.DEFAULT.CONFIGURATION 29 FETCH 25 \IP.DEFAULT.CONFIGURATION 8 IPINIT 2 IPINIT) () \IPNETADDRESS :D4 (P 0 NETFIELD I 0 IPADDRESS) :@Hdln@ Xdln@ jn@ j(53 LDB 41 LDB 25 LDB) NIL () \IP.READ.STRING.ADDRESS :D4 (P 4 CHAR P 2 TEMP P 1 INDEX P 0 CELL I 0 STRING.OR.ATOM)  lgjd jd@ d Kdj kپKdj _NKؽKdj lD_Nk^MVOONON¼IlAJdl;Ll.HHIJǿjIkԹl0LLl9Jl Ll0غJlHHIJǿIlRl_dHHjHHkOHHlHHl(69 %%ARRAY-TYPE-NUMBER 46 %%ARRAY-BASE 29 %%ARRAY-OFFSET 15 MKSTRING 9 ARRAY) (270 ARRAYP 264 ARRAYP 253 ARRAYP 247 ARRAYP 232 ARRAYP 226 ARRAYP 216 ARRAYP 210 ARRAYP 187 ARRAYP 181 ARRAYP 132 ARRAYP 126 ARRAYP 4 BYTE) () TCPCONF.GET.LOCAL.NETWORKS :D4 (P 4 3MBADDRESS P 3 10MBADDRESS P 1 ADDRESS P 0 STRING) `j0I]ohog XH Y H`. ZjJJ hoi i dl hX YHl h`j0I]ohog XH Y H`. ZjJJ hoi i dlhX YHlhKL (225 \APPEND2 207 \IP.READ.STRING.ADDRESS 186 TERPRI 181 PRIN1 169 \FZEROP 156 \IPNETADDRESS 140 \IP.READ.STRING.ADDRESS 134 TTYIN 98 \IP.READ.STRING.ADDRESS 77 TERPRI 72 PRIN1 60 \FZEROP 47 \IPNETADDRESS 31 \IP.READ.STRING.ADDRESS 25 TTYIN) (149 \IP.DEFAULT.CONFIGURATION 131 STRING 111 \3MBLOCALNDB 40 \IP.DEFAULT.CONFIGURATION 22 STRING 2 \10MBLOCALNDB) ( 177 "The network address you have entered is in an incorrect form. Please try again." 128 "Enter an IP address. Leave the host number portion of the address 0." 123 "Please enter the network number for this host's 3MB network, in the form 36.0.0.0: " 68 "The network address you have entered is in an incorrect form. Please try again." 19 "Enter an IP address. Leave the host number portion of the address 0." 14 "Please enter the network number for this host's 10MB network, in the form 36.0.0.0: ") TCPCONF.SET.PROPERTYA0003A0004 :D4 (F 0 \TERM.OFD) P (6 CLOSEW 3 WFROMDS) NIL () TCPCONF.SET.PROPERTYA0003 :D4 (NAME SI::*UNWIND-PROTECT* P 4 LOCAL.ADDRESSES P 3 LOCAL.NETWORKS P 2 DEFAULT.GATEWAY P 1 ADDRESS.STRING P 0 NAME I 0 SI::*CLEANUP-FORMS* F 5 INSPECTW F 6 PROPERTY F 7 SI::*RESETFORMS* F 8 DATUM) gUl hhWcghhdWcVdg(HUVH hohog XdgUVohog dg* Johog YdUVI h ZdgKUVK gLUVL VWU (209 DEFAULT.INSPECTW.PROPCOMMANDFN 201 INSPECTW.REPLACE 189 TCPCONF.GET.LOCAL.ADDRESSES 180 INSPECTW.REPLACE 168 TCPCONF.GET.LOCAL.NETWORKS 154 \IP.READ.STRING.ADDRESS 149 INSPECTW.REPLACE 139 TTYIN 109 INSPECTW.REPLACE 106 TTYIN 78 MKATOM 75 U-CASE 72 TTYIN 55 INSPECTW.REPLACE 11 TTYDISPLAYSTREAM 8 GETPROMPTWINDOW) (184 LOCAL.ADDRESSES 161 LOCAL.NETWORKS 136 STRING 114 DEFAULT.GATEWAY 103 STRING 85 HTE.FILE 69 STRING 40 HOSTNAME 24 TCPCONF.SET.PROPERTYA0003A0004 2 TTYDISPLAYSTREAM) ( 133 "Enter an IP address, in the form 192.10.200.1" 128 "Please enter the IP address of the default gateway for this host. If you have no gateway, just type a carriage return: " 100 "Enter the name of a file to be used in translating IP host names to IP host addresses." 95 "Please enter the name of a HOSTS.TXT file. If you have no HOSTS.TXT file, type a carriage return." 66 "Enter a name to call this host by" 61 "Please enter this host's name: ") TCPCONF.SET.PROPERTY :D4 (P 2 SI::*RESETFORMS* P 1 LISPXHIST I 2 INSPECTW I 1 DATUM I 0 PROPERTY F 3 LISPXHIST) Y`lHj HH :`lHj HH Sg  h(84 CL:VALUES-LIST 80 SI::RESETUNWIND 77 \MVLIST 74 TCPCONF.SET.PROPERTYA0003 61 \BACKGROUND 56 \FZEROP 32 GETMOUSESTATE 26 \FZEROP 2 GETMOUSESTATE) (71 SI::RESETUNWIND 36 LASTMOUSEBUTTONS 6 LASTMOUSEBUTTONS) () TCPCONF.TITLECOMMANDFNA0007A0008 :D4 (F 0 \TERM.OFD) P (6 CLOSEW 3 WFROMDS) NIL () TCPCONF.TITLECOMMANDFNA0007 :D4 (NAME SI::*UNWIND-PROTECT* P 0 FILE I 0 SI::*CLEANUP-FORMS* F 1 SI::*RESETFORMS* F 2 INSPECTW F 3 DATUM) JgRl hhQcghhdQcohog Hgg XSH H (71 CLOSEF 67 PRIN2 61 OPENSTREAM 48 TTYIN 11 TTYDISPLAYSTREAM 8 GETPROMPTWINDOW) (58 NEW 55 OUTPUT 45 STRING 23 TCPCONF.TITLECOMMANDFNA0007A0008 2 TTYDISPLAYSTREAM) ( 42 "Enter a filename. Carriage return defaults to {DSK}IP.INIT" 37 "Please specify the name for the new IP init file: ") TCPCONF.TITLECOMMANDFN :D4 (P 3 SI::*RESETFORMS* P 2 LISPXHIST I 1 DATUM I 0 INSPECTW F 4 LISPXHIST) z`lHj HH [`dodg dgjdndhHdI  dg@ gTg  h(117 CL:VALUES-LIST 113 SI::RESETUNWIND 110 \MVLIST 107 TCPCONF.TITLECOMMANDFNA0007 90 INSPECTW.REDISPLAY 79 MENU 26 \FZEROP 2 GETMOUSESTATE) (104 SI::RESETUNWIND 94 Create% Init 83 ReFetch 52 DEFAULTMENUHELDFN 45 CLRPROMPT 32 |MENUTYPE#| 6 LASTMOUSEBUTTONS) ( 38 (ReFetch Create% Init)) (PRETTYCOMPRINT TCPCONFIGCOMS) (RPAQQ TCPCONFIGCOMS ((COMS (* TCP configuration module) (EXPORT (RECORDS IPINIT)) (INITVARS ( \IP.DEFAULT.CONFIGURATION (create IPINIT))) (FNS TCP.CONFIGURE TCP.CONFIGURE.WINDOW TCPCONF.DIALOGUE TCPCONF.GET.DOMAIN.SERVERS TCPCONF.GET.LOCAL.ADDRESSES TCPCONF.GET.LOCAL.MASKS TCPCONF.PRINT.CONFIGURATION \IPNETADDRESS \IP.READ.STRING.ADDRESS TCPCONF.GET.LOCAL.NETWORKS TCPCONF.SET.PROPERTY TCPCONF.TITLECOMMANDFN)))) (RECORD IPINIT (LOCAL.ADDRESSES LOCAL.NETWORKS DEFAULT.GATEWAY HTE.FILE HOSTNAME SUBNETMASK DOMAIN.SERVERS LOCAL.DOMAIN)) (RPAQ? \IP.DEFAULT.CONFIGURATION (create IPINIT)) (PUTPROPS TCPCONFIG COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL