mirror of
https://github.com/PDP-10/its.git
synced 2026-02-13 11:34:04 +00:00
37f57931e9
Now, we build SHRDLU;TS SHRDLU and SHRDLU;TS PLNR from compiled lisp code. This should allow it to run faster and have fewer issues with garbage collection and running out of LIST space. Found lots of bugs going through the compilation effort. Also fixed several issues that were resulting in weird/incorrect responses to standard demo prompts. Below is a list of prompts that I have tested: pick up a big red block. grasp the pyramid find a block that is taller than the one you are holding and put it into the box. what does the box contain? what is the pyramid supported by? how many blocks are not in the box? is the red cube supported? can the table pick up blocks? can a pyramid be supported by a block? can a pyramid support a pyramid? stack up two pyramids. stack up two red blocks. put the green pyramid on the red cube. which cube is sitting on the table? is there a large block behind a pyramid? put a small one onto the green cube that supports a pyramid. put the littlest pyramid on top of it. does the red cube support anything? what color is the block that supports the green pyramid? how many things are on top of green cubes? had you touched any pyramid before you put the green pyramid on the little cube? when did you pick it up? why did you pick it up? why did you clear off that cube? how did you clean off the red cube? how many objects did you touch while you were doing it? put the blue pyramid on the block in the box. is there anything which is bigger than every pyramid but is not as wide as the thing that supports it? thank you. Of course, lots more things are possible. It is still best to do this without answering "Y" to the Type 340 display prompt at the start. There is either an issue with the GRAPHF module or the SLAVE module (or perhaps with the Type 340 simulator) that is causing crashes after several successful commands with graphic output.
119 lines
2.3 KiB
Tcl
119 lines
2.3 KiB
Tcl
log_progress "ENTERING BUILD SCRIPT: SHRDLU"
|
|
|
|
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"
|
|
|
|
# now load up a compiled version of SHRDLU
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" "(load 'loader)"
|
|
respond "T" "(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 'plnrfi)"
|
|
respond "T" "(planner-compiled)"
|
|
respond "(THERT TOP LEVEL))" "(dump-planner)"
|
|
|
|
# dump it as SHRDLU;TS PLNR
|
|
respond "*" ":pdump shrdlu;ts plnr\r"
|
|
respond "*" ":kill\r"
|