From b69c2988bbca5d1ecd5dcedb5feb55a5d1a71c53 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 30 Apr 2018 19:15:03 +0200
Subject: [PATCH] Move FAIL and friends to separate script file.

---
 build/build.tcl |  1 +
 build/misc.tcl  | 19 -------------------
 build/sail.tcl  | 18 ++++++++++++++++++
 3 files changed, 19 insertions(+), 19 deletions(-)
 create mode 100644 build/sail.tcl

diff --git a/build/build.tcl b/build/build.tcl
index 0917eec2..912cf19f 100644
--- a/build/build.tcl
+++ b/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"
diff --git a/build/misc.tcl b/build/misc.tcl
index ffa36234..ab32b46d 100644
--- a/build/misc.tcl
+++ b/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"
diff --git a/build/sail.tcl b/build/sail.tcl
new file mode 100644
index 00000000..22f8a6fb
--- /dev/null
+++ b/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"