Move FAIL and friends to separate script file.

build/build.tcl

@@ -471,6 +471,7 @@ if {$env(BASICS)!="yes"} {
 }
 
 source $build/muddle.tcl
+source $build/sail.tcl
 
 respond "*" ":midas sys3;ts lsrprt_sysen1; lsrprt\r"
 expect ":KILL"

build/misc.tcl

@@ -386,25 +386,6 @@ respond "*" ":kill\r"
 respond "*" ":midas sys3;ts ten50_mrc; ten50\r"
 expect ":KILL"
 
-# stktrn
-respond "*" ":cwd sail\r"
-respond "*" ":fail stktrn\r"
-
-# jobdat
-respond "*" "jobdat\r"
-
-# fail
-respond "*" "fail\r"
-respond "*" "\032:kill\r"
-respond "*" ":delete fail bin\r"
-respond "*" ":stink fail\r"
-respond "\n" "\177"
-respond "??" "\033\0331l decsys;decbot bin\r"
-respond "*" ".jbsa/strt\r"
-respond ":" "56/1000\r"
-respond "\n" "\033y sail; fail bin\r"
-respond "*" ":kill\r"
-
 # who%
 respond "*" ":midas sys1;ts who%_sysen3;who%\r"
 expect ":KILL"

build/sail.tcl

@@ -0,0 +1,18 @@
+# stktrn
+respond "*" ":cwd sail\r"
+respond "*" ":fail stktrn\r"
+
+# jobdat
+respond "*" "jobdat\r"
+
+# fail
+respond "*" "fail\r"
+respond "*" "\032:kill\r"
+respond "*" ":delete fail bin\r"
+respond "*" ":stink fail\r"
+respond "\n" "\177"
+respond "??" "\033\0331l decsys;decbot bin\r"
+respond "*" ".jbsa/strt\r"
+respond ":" "56/1000\r"
+respond "\n" "\033y sail; fail bin\r"
+respond "*" ":kill\r"