From 8e9a2a736fc477f21a86ca1a602e01b8df30d017 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Tue, 7 Aug 2018 14:53:11 +0100
Subject: [PATCH] TEMP: Horrible hacks to only build the exec.

---
 Makefile         |  9 +++++---
 build/basics.tcl | 54 ++++++++++++++++++++++++++++++++++++++++++++++++
 build/build.tcl  |  4 ++--
 3 files changed, 62 insertions(+), 5 deletions(-)

diff --git a/Makefile b/Makefile
index ddb5ebdf..aefaeed2 100644
--- a/Makefile
+++ b/Makefile
@@ -16,7 +16,8 @@ include conf/network
 
 # The directores listed in SRC, DOC, and BIN are put on the sources tape.
 SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
-      midas _teco_ emacs emacs1 rms klh syshst sra mrc ksc eak gren	\
+      midas syshst mrc ksc sra
+XSRC = _teco_ emacs emacs1 rms klh eak gren	\
       bawden _mail_ l lisp libdoc comlap lspsrc nilcom rwk chprog rg	\
       inquir acount gz sys decsys ecc alan sail kcc kcc_sy c games archy dcp \
       spcwar rwg libmax rat z emaxim rz maxtul aljabr cffk das ell ellen \
@@ -24,11 +25,13 @@ SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       tensor transl wgd zz graphs lmlib pratt quux scheme gsb ejs mudsys \
       draw wl taa tj6 budd sharem ucode rvb kldcp math as imsrc gls demo \
       macsym lmcons dmcg hack hibou agb gt40
-DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
+DOC = info _info_ sysdoc sysnet syshst kshack
+XDOC = _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \
       kldcp libdoc lisp _mail_ midas quux scheme manual
-BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys moon \
+BIN = sys2
+XBIN = emacs _teco_ lisp liblsp alan inquir sail comlap c decsys moon \
       graphs draw datdrw fonts fonts1 fonts2 games macsym maint imlac \
       _www_
 
diff --git a/build/basics.tcl b/build/basics.tcl
index d2c86f33..1a060cd5 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -18,6 +18,60 @@ type ":vk\r"
 respond "*" ":print device;..new. (udir)\r"
 type ":vk\r"
 
+#---- hack hack ----
+if {1} {
+
+respond "*" ":link syseng;netwrk 999999,sysnet;netwrk >\r"
+
+respond "*" ":midas syshst;_syshst;hosts3\r"
+expect ":KILL"
+respond "*" ":link syshst;ts hosts3,syshst;hosts3 bin\r"
+
+respond "*" ":link syseng;t20mac 999999,system;t20mac >\r"
+
+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"
+
+# basic TCP support
+respond "*" ":midas sys;atsign tcp_syseng;@tcp\r"
+expect ":KILL"
+
+# telnet server
+respond "*" ":midas sysbin;telser_sysnet;telser\r"
+expect ":KILL"
+
+# port 23 (telnet) uses TELSER
+respond "*" ":link device;tcp syn027,sysbin;telser bin\r"
+
+# telnet client
+respond "*" ":midas sysbin;telnet_sysnet;telnet\r"
+expect ":KILL"
+
+respond "*" ":link sys;ts telnet,sysbin;telnet bin\r"
+respond "*" ":link sys;ts tn,sys;ts telnet\r"
+
+# supdup port (95) uses telser
+respond "*" ":link device;tcp syn137,sysbin;telser bin\r"
+
+# supdup client
+respond "*" ":midas sysbin;supdup_sysnet;supdup\r"
+expect ":KILL"
+
+respond "*" ":link sys1;ts supdup,sysbin;supdup bin\r"
+
+respond "*" ":link syseng;fsdefs 999999,system;fsdefs >\r"
+
+shutdown
+exit 0
+
+}
+#---hack hack---
+
 source $build/emacs.tcl
 
 # TAGS
diff --git a/build/build.tcl b/build/build.tcl
index 31b308de..f38e3777 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -42,8 +42,8 @@ proc patch_its_and_go {} {
 
     # Disable SYSJOB output (e.g. "IT IS NOW ...") that appears at random
     # places during the build process.
-    type "styo+2/popj p,\r"
-    expect "\n"
+#    type "styo+2/popj p,\r"
+#    expect "\n"
 
     type "\033g"
 }