Updated shrdlu build script to pass the file to compile in JCL and to…

… use new load functions.
PDP-10 · Aug 23, 2024 · bafb0c1 · bafb0c1
1 parent 173f822
commit bafb0c1
Showing 1 changed file with 55 additions and 92 deletions.
diff --git a/build/shrdlu.tcl b/build/shrdlu.tcl
@@ -4,101 +4,65 @@ respond "*" ":cwd shrdlu\r"
 
 # first, compile all the sources that should be compiled
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; graphf\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; macros\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; proggo\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; plnr\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; thtrac\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; syscom\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; morpho\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; show\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; progmr\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; ginter\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; gramar\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; dictio\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; smspec\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; smass\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; smutil\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; newans\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; blockp\r"
-respond "_" "\032"
-type ":kill\r"
-
-respond "*" ":complr\r"
-respond "_" "shrdlu; blockl\r"
-respond "_" "\032"
-type ":kill\r"
+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" "(shrdlu-compiled)"
+respond "T" "(load-shrdlu-compiled)"
 respond "COMPLETED" "(dump-shrdlu)"
 
 # dump it as SHRDLU;TS SHRDLU
@@ -109,8 +73,7 @@ respond "*" ":kill\r"
 respond "*" ":lisp\r"
 respond "Alloc?" "n"
 respond "*" "(load 'loader)"
-respond "T" "(load 'plnrfi)"
-respond "T" "(planner-compiled)"
+respond "T" "(load-planner-compiled)"
 respond "(THERT TOP LEVEL))" "(dump-planner)"
 
 # dump it as SHRDLU;TS PLNR