github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Create empty INQUIR database using LSRINI.

Browse Source 
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).
This commit is contained in:
Eric Swenson 2024-03-07 17:02:35 -08:00
parent 727eb189fd
commit 588a5cc7c6
4 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@ -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 \

BIN
bin/inquir/lsr1.empty
View File

Binary file not shown.

18
build/basics.tcl
View File

@ -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"

5
build/lisp.tcl
View File

@ -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"