From 0f230859d5e384fe14942af900ec5cfa986f9aa6 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Thu, 22 Aug 2024 17:55:38 -0700
Subject: [PATCH] Updated shrdlu build script to pass the file to compile in
 JCL and to use new load functions.

---
 build/shrdlu.tcl | 113 ++++++++++++++++-------------------------------
 1 file changed, 38 insertions(+), 75 deletions(-)

diff --git a/build/shrdlu.tcl b/build/shrdlu.tcl
index 31dabaf4..e0ef4f47 100644
--- 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 graphf\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; macros\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr macros\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; proggo\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr proggo\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; plnr\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr plnr\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; thtrac\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr thtrac\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; syscom\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr syscom\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; morpho\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr morpho\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; show\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr show\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; progmr\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr progmr\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; ginter\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr ginter\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; gramar\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr gramar\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; dictio\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr dictio\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; smspec\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr smspec\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; smass\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr smass\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; smutil\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr smutil\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; newans\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr newans\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; blockp\r"
-respond "_" "\032"
-type ":kill\r"
+respond "*" ":complr blockp\r"
+respond "Job COMPLR finished" ":kill\r"
 
-respond "*" ":complr\r"
-respond "_" "shrdlu; blockl\r"
-respond "_" "\032"
-type ":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