mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
163 lines
5.4 KiB
Tcl
163 lines
5.4 KiB
Tcl
log_progress "ENTERING BUILD SCRIPT: MUDDLE"
|
|
|
|
mkdir "mudsav"
|
|
|
|
proc build_muddle {dir version} {
|
|
cwd "$dir"
|
|
|
|
respond "*" ":xfile mud$version assem\r"
|
|
expect -timeout 300 "Assembly done!"
|
|
|
|
respond "*" ":mudsys;stink\r"
|
|
respond "STINK." "MMUD$version STINK\033@\033\033"
|
|
expect "SETPUR"
|
|
respond "\n" "D\033\033"
|
|
respond "\n" ":xfile mud$version init\r"
|
|
expect -timeout 100 "Init done!"
|
|
}
|
|
|
|
build_muddle "muds54" "54"
|
|
build_muddle "mudsys" "56"
|
|
|
|
# Generate SAV FILE and FIXUP FILE for Muddle pure code library
|
|
midas "mudsys; ts mksvfl" "mudsys;mksvfl"
|
|
|
|
# Run mksvfl to create pure library for MDL 54 for the purposes of the 500-point zork
|
|
midas "sys3; ts mudinq" "sysen2; mudinq"
|
|
make_link "sys3; ts purge" " sys3; ts mudinq"
|
|
make_link "sys3; ts makscr" " sys3; ts mudinq"
|
|
make_link "sys3; ts status" " sys3; ts mudinq"
|
|
make_link "sys3; ts whomud" " sys3; ts mudinq"
|
|
|
|
make_link "sys3; ts mdl" "mudsav; ts mud56"
|
|
make_link "sys3; ts muddle" "mudsav; ts mud56"
|
|
|
|
midas "sys3; ts mudcom" "sysen3; mudcom" {
|
|
respond "(Y OR N)" "Y\r"
|
|
}
|
|
make_link "sys3; ts mudchk" " sys3; ts mudcom"
|
|
make_link "sys3; ts mudlst" " sys3; ts mudcom"
|
|
make_link "sys3; ts mudfnd" " sys3; ts mudcom"
|
|
|
|
midas "sys3; ts combat" "sysen3; combat" {
|
|
respond "(Y OR N)" "Y\r"
|
|
}
|
|
|
|
midas "sys3; ts pick" "sysen2; pick"
|
|
|
|
make_link "sys1;ts mud55" "mudsav;ts mud55"
|
|
|
|
#Build Muddle PCOMP compiler.
|
|
midas "sys1;ts pcomp" "mudsys;subsys maker" {
|
|
respond "Type in Subsystem (Save File) name:" "pcomp\r"
|
|
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
|
respond "Type Second Name of Save File:" "55save\r"
|
|
respond "Type Sname of Save File:" "mudsav\r"
|
|
}
|
|
|
|
#Build Muddle ASSEM assembler.
|
|
midas "sys1;ts assem" "mudsys;subsys maker" {
|
|
respond "Type in Subsystem (Save File) name:" "assem\r"
|
|
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
|
respond "Type Second Name of Save File:" "55save\r"
|
|
respond "Type Sname of Save File:" "mudsav\r"
|
|
}
|
|
|
|
mkdir "mbprog"
|
|
respond "*" ":assem \"mprog2;lsrtns >\" \"mbprog;lsrtns nbin\"\r"
|
|
expect ":KILL"
|
|
midas "mudsys;ts dem" "mudsys;itsdem"
|
|
|
|
# Build Muddle ECOMP compiler (PCOMP isn't good enough)
|
|
midas "sys1;ts ecomp" "mudsys;subsys maker" {
|
|
respond "Type in Subsystem (Save File) name:" "ecomp\r"
|
|
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
|
respond "Type Second Name of Save File:" "55save\r"
|
|
respond "Type Sname of Save File:" "mudsav\r"
|
|
}
|
|
|
|
# Build DM Daemons (COMBAT ZONE, BATCHN). GUNNER is already built in dm.tcl
|
|
|
|
# Build COMBAT ZONE (ZONE)
|
|
respond "*" ":assem \"combat;privat >\" \"combat;privat nbin\"\r"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":ecomp\r"
|
|
respond "T" "<FILE-COMPILE \"combat;master >\" \"combat;master nbin\">\033"
|
|
respond "Job ECOMP wants the TTY" "\033p"
|
|
respond "I'm done anyway." "<QUIT>\033"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":ecomp\r"
|
|
respond "T" "<FLOAD \"combat;master nbin\">\033"
|
|
respond "\"DONE\"" "<SNAME \"\">\033"
|
|
respond "\"\"" "<PROG () \n\i<SAVE \"mudsav;zone 55save\">\r"
|
|
type "\i<BATCH-COMPIL>\r>\033"
|
|
respond "#FALSE ()" "<QUIT>\033"
|
|
expect ":KILL"
|
|
|
|
midas "sys;atsign zone" "mudsys;subsys maker" {
|
|
respond "Type in Subsystem (Save File) name:" "zone\r"
|
|
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
|
respond "Type Second Name of Save File:" "55save\r"
|
|
respond "Type Sname of Save File:" "mudsav\r"
|
|
}
|
|
|
|
# Build BATCHN daemon
|
|
|
|
respond "*" ":ecomp\r"
|
|
respond "T" "<SNAME \".batch\">\033"
|
|
respond "\".batch\"" "<FILE-COMPILE \"templt >\" \"templt nbin\">\033"
|
|
respond "Job ECOMP wants the TTY" "\033p"
|
|
respond "I'm done anyway." "<FILE-COMPILE \"tcheck >\" \"tcheck nbin\">\033"
|
|
respond "Job ECOMP wants the TTY" "\033p"
|
|
respond "I'm done anyway." "<FILE-COMPILE \"taskm >\" \"taskm nbin\">\033"
|
|
expect -timeout 600 "Job ECOMP wants the TTY"
|
|
type "\033p"
|
|
respond "I'm done anyway." "<FILE-COMPILE \"batchq >\" \"batchq nbin\">\033"
|
|
respond "Job ECOMP wants the TTY" "\033p"
|
|
respond "I'm done anyway." "<FILE-COMPILE \"batchn >\" \"batchn nbin\">\033"
|
|
expect -timeout 600 "Job ECOMP wants the TTY"
|
|
type "\033p"
|
|
respond "I'm done anyway." "<QUIT>\033"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":mud55\r"
|
|
respond "LISTENING-AT-LEVEL 1 PROCESS 1" "<SNAME \".batch\">\033"
|
|
respond "\".batch\"" "<FLOAD \"batchn maker\">\033"
|
|
respond "\"DONE\"" "<SAVER T>\033"
|
|
respond "TO CREATE SAVE FILE\"" "<QUIT>\033"
|
|
expect ":KILL"
|
|
|
|
midas "sys;atsign batchn" "mudsys;subsys maker" {
|
|
respond "Type in Subsystem (Save File) name:" "batchn\r"
|
|
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
|
respond "Type Second Name of Save File:" "save\r"
|
|
respond "Type Sname of Save File:" ".batch\r"
|
|
}
|
|
|
|
# Now build BATCH user program (interfaces with BATCHN daemon)
|
|
|
|
make_link "libmud;pmap fbin" "mbprog;pmap fbin"
|
|
|
|
respond "*" ":ecomp\r"
|
|
respond "T" "<SNAME \".batch\">\033"
|
|
respond "\".batch\"" "<FILE-COMPILE \"nbatch >\" \"nbatch nbin\">\033"
|
|
expect -timeout 600 "Job ECOMP wants the TTY"
|
|
type "\033p"
|
|
respond "I'm done anyway." "<QUIT>\033"
|
|
expect ":KILL"
|
|
|
|
respond "*" ":mud55\r"
|
|
respond "LISTENING-AT-LEVEL 1 PROCESS 1" "<FLOAD \".batch;nbatch nbin\">\033"
|
|
respond "\"DONE\"" "<DUMPCAL!-MUDCAL!-PACKAGE B11 \".batch;nbatch 55save\">\033"
|
|
respond "\"SAVED\"" "<QUIT>\033"
|
|
expect ":KILL"
|
|
|
|
midas "sys3;ts batch" "mudsys;subsys maker" {
|
|
respond "Type in Subsystem (Save File) name:" "nbatch\r"
|
|
respond "Type Y if you wish to have Save File directly restored:" "y\r"
|
|
respond "Type Second Name of Save File:" "55save\r"
|
|
respond "Type Sname of Save File:" ".batch\r"
|
|
}
|