From 4ce7483afba22f237eba6cb1555e0d45ccf20a8e Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Thu, 24 Nov 2016 09:09:45 +0100 Subject: [PATCH] Create all system directories after starting new ITS. --- build/build.tcl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/build/build.tcl b/build/build.tcl index 5ff40374..150bfffb 100644 --- a/build/build.tcl +++ b/build/build.tcl @@ -199,6 +199,13 @@ pdset respond "*" ":rename .;@ its, .;@ oits\r" respond "*" ":rename .;@ nits, .;@ its\r" +respond "*" ":print sys1;..new. (udir)\r" +type ":vk\r" +respond "*" ":print sys2;..new. (udir)\r" +type ":vk\r" +respond "*" ":print sys3;..new. (udir)\r" +type ":vk\r" + respond "*" ":midas sysbin;_.teco.;teco\r" expect ":KILL" respond "*" ":job teco\r" @@ -208,14 +215,9 @@ respond "*" "dumpit\033g" sleep 2 respond "TECPUR" "\r" respond "*" ":kill\r" -respond "*" ":print sys3;..new. (udir)\r" -type ":vk\r" respond "*" ":link sys3;ts teco,.teco.;tecpur >\r" -respond "*" ":print sys2;..new. (udir)\r" -type ":vk\r" respond "*" ":link sys2;ts emacs,emacs;ts >\r" - respond "*" ":emacs\r" respond "EMACS Editor" "\033xrun\033einit\033? Generate\r" expect "EINIT" @@ -283,8 +285,6 @@ respond "*" ":link device;jobdev ar,device;jobdev arc\r" respond "*" ":midas sysbin;_ar1:cstacy;whoj\r" expect ":KILL" -respond "*" ":print sys1;..new. (udir)\r" -type ":vk\r" respond "*" ":link sys1;ts talk,sysbin;whoj bin\r" type ":vk\r" respond "*" ":link sys1;ts who,sysbin;whoj bin\r"