From 588a5cc7c662bc5720c7b34523dfbf1bad0c2485 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Thu, 7 Mar 2024 17:02:35 -0800
Subject: [PATCH] Create empty INQUIR database using LSRINI.

This PR changes the way that the INQUIR database is installed into ITS.
Previously, we included a binary INQUIR;LSR1 1 database on the tape we
load.  Now, we build the INQUPD program (and INQUIR;DIRS BIN) database,
which is required by INQUPD, when run in LSRINI mode.  LSRINI mode,
invoked by a JNAME of LSRINI for INQUPD, generates an empty
.TEMP.;LSR1 EMPTY database for INQUIR.  The build scripts generate
this empty database and copy it to the appropriate plact (INQUIR;LSR 1).
---
 Makefile              |   2 +-
 bin/inquir/lsr1.empty | Bin 5420 -> 0 bytes
 build/basics.tcl      |  18 +++++++++++++++++-
 build/lisp.tcl        |   5 -----
 4 files changed, 18 insertions(+), 7 deletions(-)
 delete mode 100644 bin/inquir/lsr1.empty

diff --git a/Makefile b/Makefile
index 35923d6d..e09166a0 100644
--- a/Makefile
+++ b/Makefile
@@ -55,7 +55,7 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       combat pdl minits mits_s chaos hal -pics- imlac maint cent ksc klh \
       digest prs decus bsg madman hur lmdoc rrs danny netwrk klotz hello \
       clu r mini nova sits jay rjl nlogo mprog2 mudbug cfs hudini
-BIN = sys sys1 sys2 emacs _teco_ lisp liblsp alan inquir sail comlap \
+BIN = sys sys1 sys2 emacs _teco_ lisp liblsp alan sail comlap \
       c decsys graphs draw datdrw fonts fonts1 fonts2 games macsym \
       maint _www_ gt40 llogo bawden sysbin -pics- lmman shrdlu imlac \
       pdp10 madman survey rrs clu clucmp rws mini mudsav mudsys libmud \
diff --git a/bin/inquir/lsr1.empty b/bin/inquir/lsr1.empty
deleted file mode 100644
index 9242ce7e0479254ab750c4b36430a217546e61cf..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 5420
zcmeHL-D(q25T0NPDOgN3rAQD?ttGp-UAAdcgIL&Q6YawOq%o07Zd^**U6bsVCjPuZ
zE_{GKlb0eQzJo|^ybzV+%*nQRqj)Qvft@q^%{S-FeCO_b-+o)PSaYeQ+&);(7XU3!
zZs8(;!VJTlaIHI(LdyZ1=9dAYJot_a&}e#rFEX5eh6VeAXA|~CB!uf-&El7|-x~dt
zDYARd&~q|eVV$rZMLWGBdXXS(K-k=R2CkPCbpaCP)ii>fNxwhG=i0k#*c}XfU5m>E
z683&-WDLTiMVeP|MRS5%LTJuid4LgN&sUWU`*3SN!v<nbs{Ob@?GSHRp)6sarmgIp
z;EBFh5ZZqGdcL=O9SK0#;!WC<up4W|3|k^dU@OztS-ri1(0|(X>F>9(s^K6);eWWL
z%jqknvdQ@m2uK;YE4*}40jYpgKq?>=kP1izqyka_sen{KDj*e*3P=T{0)JCr25&f5
zRC>JAm^F;UF*{Drzz;f1@w=|eDwt8>q2o3j_NX0nTddu5t&Z3;Nm-ioAxS4uoSZ;K
zK`z7ZaoeWF4m_qaMO7h*hhPG}3%2{C@N6)?&wMKM4#Dvcx=x$bw~g9Xb<+?AifVc`
z7Mh+*zTq)EZU!mmy1j38bZGQPX`(SZ3McS~-mGDmz)?CHy-4Dta1y7<7%bQF;c0)2
r??)EyNEFj@1kCEYMy+~pbE{U{-KoO-985Cm#PkmFYlxX=aE0?<c^T(`

diff --git a/build/basics.tcl b/build/basics.tcl
index 546cbc53..8c676c91 100644
--- a/build/basics.tcl
+++ b/build/basics.tcl
@@ -252,7 +252,23 @@ respond "*" ":midas sysbin;name_sysen2;name\r"
 expect ":KILL"
 
 respond "*" ":link syseng;ttytyp 999999,system;ttytyp >\r"
-respond "*" ":copy inquir;lsr1 empty,inquir;lsr1 >\r"
+
+# Build INQUIR;INQUPD BIN
+respond "*" ":midas inquir;inqupd bin_inquir;inqupd\r"
+expect ":KILL"
+
+# Build INQUIR;DIRS BIN
+respond "*" ":midas inquir;dirs bin_inquir;dmunch\r"
+expect ":KILL"
+
+# create .temp.;lsr1 empty
+respond "*" "lsrini\033j"
+respond "*" "\033linquir;inqupd bin\r"
+respond "*" "\033g"
+expect ":KILL"
+
+# create inquir;lsr1 1
+respond "*" ":move .temp.;lsr1 empty,inquir;lsr1 1\r"
 
 # pword/panda
 respond "*" ":midas sysbin;panda bin_sysen1;pword\r"
diff --git a/build/lisp.tcl b/build/lisp.tcl
index 1ceaf0c9..8a7edf6a 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -215,11 +215,6 @@ respond "*" ":lisp inquir;inquir (dump)\r"
 respond "*" ":link inquir;ts inquir,inquir;inqbin >\r"
 respond "*" ":link sys;ts inquir,inquir;ts inquir\r"
 
-respond "*" ":midas inquir;dirs bin_inquir;dmunch\r"
-expect ":KILL"
-
-respond "*" ":midas inquir;inqupd bin_inquir;inqupd\r"
-expect ":KILL"
 respond "*" ":link inquir;ts inqcpy,inqupd bin\r"
 respond "*" ":link inquir;ts inqpat,inqupd bin\r"
 respond "*" ":link inquir;ts lsrini,inqupd bin\r"