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

Improve MACSYMA build script.

Browse Source 
After typing (todo) or (todoi), wait for the string ") \r" to appear.
This signals the end of of a list printed right before reading new
input from the console.
This commit is contained in:
Lars Brinkhoff
2018-06-08 14:12:47 +02:00
parent d3ed356afe
commit 2840566e29
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
build/build.tcl
View File

@@ -82,15 +82,16 @@ proc build_macsyma_portion {} {
respond "302615" "(load \"libmax;module\")"
respond "303351" "(load \"libmax;maxmac\")"
expect "307161"
send "(todo)"
expect "(todo)"
sleep 10
send "(todoi)"
sleep 10
expect "(todoi)"
sleep 10
send "(mapcan "
expect "(mapcan "
type "(todo)"
expect ") \r"
type "(todoi)"
expect {
") \r" {
}
"NIL" {
}
}
type "(mapcan "
type "#'(lambda (x) (cond ((not (memq x\r"
type "'(SETS TRANSS MTREE TRHOOK EDLM)\r"
type ")) (doit x)))) (append todo todoi))"