From f6fc1233e834bbef086e14290650cfd3481e7c55 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Tue, 15 May 2018 14:30:33 +0200 Subject: [PATCH] Make Macsyma build script more stable. --- build/build.tcl | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/build/build.tcl b/build/build.tcl index 0a44f60e..259fb271 100644 --- a/build/build.tcl +++ b/build/build.tcl @@ -81,14 +81,21 @@ proc build_macsyma_portion {} { respond "302615" "(load \"maxdoc;mcldat\")" respond "302615" "(load \"libmax;module\")" respond "303351" "(load \"libmax;maxmac\")" - respond "307161" "(todo)" + expect "307161" + send "(todo)" + expect "(todo)" sleep 10 - type "(todoi)" + send "(todoi)" sleep 10 - type "(mapcan #'(lambda (x) (cond ((not (memq x\r" + expect "(todoi)" + sleep 10 + send "(mapcan " + expect "(mapcan " + type "#'(lambda (x) (cond ((not (memq x\r" type "'(SETS TRANSS MTREE TRHOOK EDLM)\r" type ")) (doit x)))) (append todo todoi))" - expect -timeout 1000 { + set timeout 1000 + expect { ";BKPT" { type "(quit)" } @@ -96,6 +103,7 @@ proc build_macsyma_portion {} { type "(quit)" } } + set timeout 100 } set timeout 100