1
0
mirror of https://github.com/PDP-10/its.git synced 2026-02-26 17:03:20 +00:00

Use H3MAKE instead of HOSTS3 to compile the host table.

H3MAKE runs HOSTS3 with an appropriate JCL.
This commit is contained in:
Lars Brinkhoff
2019-01-21 12:56:07 +01:00
parent 656c2a01e9
commit 68dbc592ae
3 changed files with 11 additions and 4 deletions

View File

@@ -36,7 +36,7 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
combat pdl minits mits_s chaos hal
BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys \
graphs draw datdrw fonts fonts1 fonts2 games macsym maint imlac \
_www_ hqm gt40 llogo bawden
_www_ hqm gt40 llogo bawden sysbin
MINSRC = midas system $(DDT) $(SALV) $(KSFEDR) $(DUMP)
# These are not included on the tape.

0
bin/sysbin/hosts3.2013 Normal file
View File

View File

@@ -178,9 +178,13 @@ respond "*" ":midas syshst;_syshst;h3make\r"
expect ":KILL"
respond "*" ":link syshst;ts h3make,syshst;h3make bin\r"
# build binary host table
respond "*" ":syshst;hosts3 /insert syshst; h3text > /outfil sysbin; hosts3 bin\r"
expect ":KILL"
# Run H3MAKE to make the SYSBIN; HOSTS3 > database. H3MAKE looks for
# an older version, so there is an empty placeholder to make this
# work. H3MAKE runs in the background and leaves either SYSHST; H3TYO
# or H3ERR with the output from the HOSTS3 program. The placeholder
# file is removed later.
respond "*" ":syshst;h3make\r"
expect {$$^K}
# basic TCP support
respond "*" ":midas sys;atsign tcp_syseng;@tcp\r"
@@ -283,6 +287,9 @@ respond "*" ":kill\r"
respond "*" ":link sys;atsign pword,sysbin;pword bin\r"
respond "*" ":link sys;ts panda,sysbin;panda bin\r"
# Remove placeholder SYSBIN; HOSTS3 database.
respond "*" ":delete sysbin; hosts3 <\r"
respond "*" ":copy sysbin;name bin,sys;ts name\r"
respond "*" "name\033j"
respond "*" "\033l sys;ts name\r"