github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Updated shrdlu build script to pass the file to compile in JCL and to use new load functions.

Browse Source
This commit is contained in:
Eric Swenson 2024-08-22 17:55:38 -07:00
parent e078f32eb0
commit 0f230859d5
1 changed files with 38 additions and 75 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
build/shrdlu.tcl
View File

@ -4,101 +4,65 @@ respond "*" ":cwd shrdlu\r"
# first, compile all the sources that should be compiled # first, compile all the sources that should be compiled
respond "*" ":complr\r" respond "*" ":complr graphf\r"
respond "_" "shrdlu; graphf\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr macros\r"
respond "_" "shrdlu; macros\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr proggo\r"
respond "_" "shrdlu; proggo\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr plnr\r"
respond "_" "shrdlu; plnr\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr thtrac\r"
respond "_" "shrdlu; thtrac\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr syscom\r"
respond "_" "shrdlu; syscom\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr morpho\r"
respond "_" "shrdlu; morpho\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr show\r"
respond "_" "shrdlu; show\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr progmr\r"
respond "_" "shrdlu; progmr\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr ginter\r"
respond "_" "shrdlu; ginter\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr gramar\r"
respond "_" "shrdlu; gramar\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr dictio\r"
respond "_" "shrdlu; dictio\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr smspec\r"
respond "_" "shrdlu; smspec\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr smass\r"
respond "_" "shrdlu; smass\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr smutil\r"
respond "_" "shrdlu; smutil\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr newans\r"
respond "_" "shrdlu; newans\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr blockp\r"
respond "_" "shrdlu; blockp\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
respond "*" ":complr\r" respond "*" ":complr blockl\r"
respond "_" "shrdlu; blockl\r" respond "Job COMPLR finished" ":kill\r"
respond "_" "\032"
type ":kill\r"
# now load up a compiled version of SHRDLU # now load up a compiled version of SHRDLU
respond "*" ":lisp\r" respond "*" ":lisp\r"
respond "Alloc?" "n" respond "Alloc?" "n"
respond "*" "(load 'loader)" respond "*" "(load 'loader)"
respond "T" "(shrdlu-compiled)" respond "T" "(load-shrdlu-compiled)"
respond "COMPLETED" "(dump-shrdlu)" respond "COMPLETED" "(dump-shrdlu)"
# dump it as SHRDLU;TS SHRDLU # dump it as SHRDLU;TS SHRDLU
@ -109,8 +73,7 @@ respond "*" ":kill\r"
respond "*" ":lisp\r" respond "*" ":lisp\r"
respond "Alloc?" "n" respond "Alloc?" "n"
respond "*" "(load 'loader)" respond "*" "(load 'loader)"
respond "T" "(load 'plnrfi)" respond "T" "(load-planner-compiled)"
respond "T" "(planner-compiled)"
respond "(THERT TOP LEVEL))" "(dump-planner)" respond "(THERT TOP LEVEL))" "(dump-planner)"
# dump it as SHRDLU;TS PLNR # dump it as SHRDLU;TS PLNR