github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-04 02:35:00 +00:00
Code Issues Releases Wiki Activity

Make Macsyma build script more stable.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-05-15 14:30:33 +02:00
parent 88bf6d0461
commit f6fc1233e8
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
build/build.tcl
View File

@@ -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