Skip to content

Commit

Permalink
Create empty INQUIR database using LSRINI.
Browse files Browse the repository at this point in the history
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).
  • Loading branch information
eswenson1 committed Mar 8, 2024
1 parent 727eb18 commit 588a5cc
Show file tree
Hide file tree
Showing 4 changed files with 18 additions and 7 deletions.
2 changes: 1 addition & 1 deletion Makefile
Original file line number Diff line number Diff line change
Expand Up @@ -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 \
Expand Down
Binary file removed bin/inquir/lsr1.empty
Binary file not shown.
18 changes: 17 additions & 1 deletion build/basics.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -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"
Expand Down
5 changes: 0 additions & 5 deletions build/lisp.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -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"
Expand Down

0 comments on commit 588a5cc

Please sign in to comment.