mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
82 lines
1.9 KiB
Tcl
82 lines
1.9 KiB
Tcl
log_progress "ENTERING BUILD SCRIPT: SHRDLU"
|
|
|
|
cwd "shrdlu"
|
|
|
|
# first, compile all the sources that should be compiled
|
|
|
|
respond "*" ":complr graphf\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr macros\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr proggo\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr plnr\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr thtrac\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr syscom\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr morpho\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr show\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr progmr\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr ginter\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr gramar\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr dictio\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr smspec\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr smass\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr smutil\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr newans\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr blockp\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
respond "*" ":complr blockl\r"
|
|
respond "Job COMPLR finished" ":kill\r"
|
|
|
|
# now load up a compiled version of SHRDLU
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" "(load 'loader)"
|
|
respond "T" "(load-shrdlu-compiled)"
|
|
respond "COMPLETED" "(dump-shrdlu)"
|
|
|
|
# dump it as SHRDLU;TS SHRDLU
|
|
respond "*" ":pdump shrdlu;ts shrdlu\r"
|
|
respond "*" ":kill\r"
|
|
|
|
# load up a compiled version of PLNR
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" "(load 'loader)"
|
|
respond "T" "(load-planner-compiled)"
|
|
respond "(THERT TOP LEVEL))" "(dump-planner)"
|
|
|
|
# dump it as SHRDLU;TS PLNR
|
|
respond "*" ":pdump shrdlu;ts plnr\r"
|
|
respond "*" ":kill\r"
|