PDP-10.its/build/muddle.tcl

log_progress "ENTERING BUILD SCRIPT: MUDDLE"

mkdir "mudsav"

proc build_muddle {dir version} {
	respond "*" ":cwd $dir\r"

	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
respond "*" ":midas mudsys; ts mksvfl_mudsys;mksvfl\r"
expect ":KILL"

# Run mksvfl to create pure library for MDL 54 for the purposes of the 500-point zork
respond "*" ":mudsys;mksvfl\r"
expect ":KILL"

respond "*" ":midas sys3; ts mudinq_sysen2; mudinq\r"
expect ":KILL"
respond "*" ":link sys3; ts purge, sys3; ts mudinq\r"
respond "*" ":link sys3; ts makscr, sys3; ts mudinq\r"
respond "*" ":link sys3; ts status, sys3; ts mudinq\r"
respond "*" ":link sys3; ts whomud, sys3; ts mudinq\r"

respond "*" ":link sys3; ts mdl,mudsav; ts mud56\r"
respond "*" ":link sys3; ts muddle,mudsav; ts mud56\r"

respond "*" ":midas sys3; ts mudcom_sysen3; mudcom\r"
respond "(Y OR N)" "Y\r"
expect ":KILL"
respond "*" ":link sys3; ts mudchk, sys3; ts mudcom\r"
respond "*" ":link sys3; ts mudlst, sys3; ts mudcom\r"
respond "*" ":link sys3; ts mudfnd, sys3; ts mudcom\r"

respond "*" ":midas sys3; ts combat_sysen3; combat\r"
respond "(Y OR N)" "Y\r"
expect ":KILL"

respond "*" ":midas sys3; ts pick_sysen2; pick\r"
expect ":KILL"

respond "*" ":link sys1;ts mud55,mudsav;ts mud55\r"

#Build Muddle PCOMP compiler.
respond "*" ":midas sys1;ts pcomp_mudsys;subsys maker\r"
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"
expect ":KILL"

#Build Muddle ASSEM assembler.
respond "*" ":midas sys1;ts assem_mudsys;subsys maker\r"
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"
expect ":KILL"

mkdir "mbprog"
respond "*" ":assem \"mprog2;lsrtns >\" \"mbprog;lsrtns nbin\"\r"
expect ":KILL"
respond "*" ":midas mudsys;ts dem_mudsys;itsdem\r"
expect ":KILL"

# Build Muddle ECOMP compiler (PCOMP isn't good enough)
respond "*" ":midas sys1;ts ecomp_mudsys;subsys maker\r"
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"
expect ":KILL"

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

respond "*" ":midas sys;atsign zone_mudsys;subsys maker\r"
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"
expect ":KILL"

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

respond "*" ":midas sys;atsign batchn_mudsys;subsys maker\r"
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"
expect ":KILL"

# Now build BATCH user program (interfaces with BATCHN daemon)

respond "*" ":link libmud;pmap fbin,mbprog;pmap fbin\r"

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"

respond "*" ":midas sys3;ts batch_mudsys;subsys maker\r"
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"
expect ":KILL"