Add a TCL procedure for running MIDAS.

Author: larsbrinkhoff

build/basics.tcl

@@ -13,9 +13,7 @@ respond "*" ":delete .;@ its\r"
 # The new ITS is now canonical.
 respond "*" ":rename .;@ nits, .;@ its\r"
 
-respond "*" ":midas sysbin;_syseng;dump\r"
-dump_switches
-expect ":KILL"
+midas "sysbin;" "syseng;dump" dump_switches
 respond "*" ":delete sys;ts dump\r"
 respond "*" ":link sys;ts dump,sysbin;dump bin\r"
 respond "*" ":link sys;ts load,sys;ts dump\r"
@@ -34,47 +32,39 @@ mkdir "device"
 mkdir "cstacy"
 
 # TCTYP
-respond "*" ":midas sys1; ts tctyp_syseng;tctyp\r"
-expect ":KILL"
+midas "sys1; ts tctyp" "syseng;tctyp"
 respond "*" ":link sys1;ts tctype, sys1; ts tctyp\r"
 
 source $build/emacs.tcl
 
 # TAGS
-respond "*" ":midas sys2;ts tags_sysen2;tags\r"
-expect ":KILL"
+midas "sys2;ts tags" "sysen2;tags"
 
 # magdmp, paper tape
-respond "*" ":midas dsk0:.;_syseng;magdmp\r"
-respond "PTRHRI=" "y\r"
-magdmp_switches
-expect ":KILL"
+midas "dsk0:.;" "syseng;magdmp" {
+    respond "PTRHRI=" "y\r"
+    magdmp_switches
+}
 
 # magdmp
-respond "*" ":midas sys1;ts magfrm_syseng;magfrm\r"
-expect ":KILL"
+midas "sys1;ts magfrm" "syseng;magfrm"
 
-respond "*" ":midas sys1;ts stink_sysen2;stink\r"
-expect ":KILL"
+midas "sys1;ts stink" "sysen2;stink"
 
-respond "*" ":midas sysbin;_sysen1;pdset\r"
-expect ":KILL"
+midas "sysbin;" "sysen1;pdset"
 respond "*" ":delete sys;ts pdset\r"
 respond "*" ":link sys;ts pdset,sysbin;pdset bin\r"
 
-respond "*" ":midas sysbin;_syseng;lock\r"
-expect ":KILL"
+midas "sysbin;" "syseng;lock"
 respond "*" ":delete sys;ts lock\r"
 respond "*" ":link sys;ts lock,sysbin;lock bin\r"
 respond "*" ":link sys3; ts vtfix, sys; ts lock\r"
 
-respond "*" ":midas sysbin;_syseng;@dev\r"
-expect ":KILL"
+midas "sysbin;" "syseng;@dev\r"
 respond "*" ":delete sys;atsign device\r"
 respond "*" ":link sys;atsign device,sysbin;@dev bin\r"
 
-respond "*" ":midas sysbin;_syseng;crtsty\r"
-expect ":KILL"
+midas "sysbin;" "syseng;crtsty"
 respond "*" ":job crtsty\r"
 respond "*" ":load sysbin;crtsty bin\r"
 respond "*" "purify\033g"
@@ -83,9 +73,9 @@ respond "*" ":kill\r"
 respond "*" ":link sys3;ts crtsty,sysbin;crtsty bin\r"
 
 # CTN, networking "supdup" CRTSTY
-respond "*" ":midas /t sysbin;ctn bin_syseng; crtsty\r"
-respond "with ^C" "NET==1\r\003"
-expect ":KILL"
+midast "sysbin;ctn bin" "syseng; crtsty" {
+    respond "with ^C" "NET==1\r\003"
+}
 respond "*" ":job ctn\r"
 respond "*" ":load sysbin; ctn bin\r"
 respond "*" "purify\033g"

build/build.tcl

@@ -173,6 +173,16 @@ proc arpanet {rfc file} {
     }
 }
 
+proc midas {target source {action ""}} {
+    respond "*" ":midas $target_$source\r"
+    eval $action
+    expect ":KILL"
+}
+
+proc midast {target source {action ""}} {
+    midas "/t $target" $source $action
+}
+
 proc macro {target sources} {
     respond "*" ":macro\r"
     respond "*" "$target=$sources\r"