mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
Add TCL procedures for running COMPLR.
This commit is contained in:
Lars Brinkhoff
parent
c8757cd9db
commit
86084b6613
@ -110,12 +110,54 @@ proc ip_address {string} {
|
||||
format "%o" $x
|
||||
}
|
||||
|
||||
proc expect_load {} {
|
||||
# Loading a FASL outputs a number in the current base.
|
||||
# Loading a source file outputs T.
|
||||
expect -re {[\r\n]([0-9]+\.?|T) *[\r\n]}
|
||||
}
|
||||
|
||||
# Respond to the output from (load ...).
|
||||
proc respond_load { r } {
|
||||
expect -re {[\r\n][0-9]+\.? *[\r\n]}
|
||||
expect_load
|
||||
type $r
|
||||
}
|
||||
|
||||
# Call the LISP compiler. The action argument is evalutated first to
|
||||
# send commands to LISP for setting up the compilation environment.
|
||||
# The second argument is a list of files to be compiled.
|
||||
proc complr_action {action files} {
|
||||
respond "*" "complr\013"
|
||||
expect "LISP COMPILER"
|
||||
if {$action ne ""} {
|
||||
respond "_" "\007"
|
||||
eval $action
|
||||
type "(maklap)"
|
||||
}
|
||||
foreach i $files {
|
||||
respond "_" "$i\r"
|
||||
}
|
||||
respond "_" "\032"
|
||||
respond ") " ":kill\r"
|
||||
}
|
||||
|
||||
# Call the LISP compiler, first loading a set of libraries to set up
|
||||
# the compilation environment.
|
||||
proc complr_load {libs files} {
|
||||
set action ""
|
||||
set respond {respond "*"}
|
||||
foreach i $libs {
|
||||
set action "$action$respond \"(load '$i)\"\n"
|
||||
set respond "respond_load"
|
||||
}
|
||||
set action "$action;expect_load\n"
|
||||
complr_action $action $files
|
||||
}
|
||||
|
||||
# Call LISP compiler with no fuss.
|
||||
proc complr {files} {
|
||||
complr_action {} $files
|
||||
}
|
||||
|
||||
proc build_macsyma_portion {} {
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
|
||||
@ -3,10 +3,7 @@ log_progress "ENTERING BUILD SCRIPT: HAUNT"
|
||||
cwd "haunt"
|
||||
|
||||
# build ops4
|
||||
respond "*" "complr\013"
|
||||
respond "_" "haunt;_haunt;ops4 lsp\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"haunt;_haunt;ops4 lsp"}
|
||||
|
||||
# dump ops4
|
||||
respond "*" "lisp\013"
|
||||
@ -17,14 +14,9 @@ respond ":\$Job Suspended\$" ":pdump haunt;ts ops4\r"
|
||||
type ":kill\r"
|
||||
|
||||
# build compile haunt lisp code
|
||||
respond "*" "complr\013"
|
||||
respond "_" "haunt;_haunt;comman lsp\r"
|
||||
respond "_" "haunt;_haunt;haunt lsp\r"
|
||||
respond "_" "haunt;_haunt;slurp lsp\r"
|
||||
respond "_" "haunt;_haunt;tlist lsp\r"
|
||||
respond "_" "haunt;_haunt;user lsp\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"haunt;_haunt;comman lsp" "haunt;_haunt;haunt lsp"
|
||||
"haunt;_haunt;slurp lsp" "haunt;_haunt;tlist lsp"
|
||||
"haunt;_haunt;user lsp"}
|
||||
|
||||
# dump haunt
|
||||
respond "*" ":haunt;ops4\r"
|
||||
|
||||
633
build/lisp.tcl
633
build/lisp.tcl
@ -61,124 +61,41 @@ midas "lisp;" "lspsrc;sort"
|
||||
|
||||
respond "*" ":link lisp;subloa lsp,nilcom;subloa >\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;loop\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;loop"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_lspsrc;umlmac\r"
|
||||
respond "_" "lisp;_nilcom;sharpa\r"
|
||||
respond "_" "lisp;_nilcom;sharpc\r"
|
||||
respond "_" "lisp;_nilcom;defvst\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_lspsrc;umlmac" "lisp;_nilcom;sharpa"
|
||||
"lisp;_nilcom;sharpc" "lisp;_nilcom;defvst"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;errck\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_nilcom;errck"}
|
||||
complr {"lisp;_nilcom;backq"}
|
||||
complr {"lisp;_lspsrc;bits" "lisp;_lspsrc;cerror" "lisp;_nilcom;defmac"}
|
||||
complr {"lisp;_nilcom;defmax"}
|
||||
complr {"lisp;_nilcom;defvsx"}
|
||||
complr {"lisp;_nilcom;defvsy" "lisp;_lspsrc;descri" "lisp;_lspsrc;dumpar"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;backq\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_lspsrc;bits\r"
|
||||
respond "_" "lisp;_lspsrc;cerror\r"
|
||||
respond "_" "lisp;_nilcom;defmac\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;defmax\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;defvsx\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;defvsy\r"
|
||||
respond "_" "lisp;_lspsrc;descri\r"
|
||||
respond "_" "lisp;_lspsrc;dumpar\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_lspsrc;extmac\r"
|
||||
respond "_" "lisp;_lspsrc;extbas\r"
|
||||
respond "_" "lisp;_lspsrc;extsfa\r"
|
||||
respond "_" "lisp;_nilcom;evonce\r"
|
||||
respond "_" "lisp;_lspsrc;extend\r"
|
||||
respond "_" "lisp;_lspsrc;grind\r"
|
||||
respond "_" "lisp;_lspsrc;grinde\r"
|
||||
respond "_" "lisp;_lspsrc;lap\r"
|
||||
respond "_" "lisp;_comlap;ledit\r"
|
||||
respond "_" "lisp;_nilcom;let\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_lspsrc;extmac" "lisp;_lspsrc;extbas" "lisp;_lspsrc;extsfa"
|
||||
"lisp;_nilcom;evonce" "lisp;_lspsrc;extend" "lisp;_lspsrc;grind"
|
||||
"lisp;_lspsrc;grinde" "lisp;_lspsrc;lap" "lisp;_comlap;ledit"
|
||||
"lisp;_nilcom;let"}
|
||||
|
||||
respond "*" ":link l;humble fasl,lisp;\r"
|
||||
respond "*" ":link l;ledit* fasl,lisp;\r"
|
||||
respond "*" ":link l;let fasl,lisp;\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;macaid\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_nilcom;macaid"}
|
||||
complr {"lisp;_lspsrc;mlmac" "lisp;_lspsrc;mlsub"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_lspsrc;mlmac\r"
|
||||
respond "_" "lisp;_lspsrc;mlsub\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_action {respond "*" "(remprop 'eval-ordered* '*lexpr)"
|
||||
expect "(T AUTOLOAD ((LISP) EVONCE FASL))"} \
|
||||
{"lisp;_nilcom;setf"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(remprop 'eval-ordered* '*lexpr)"
|
||||
respond "(T AUTOLOAD ((LISP) EVONCE FASL))" "(maklap)"
|
||||
respond "_" "lisp;_nilcom;setf\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_nilcom;sharpm"}
|
||||
complr {"lisp;_nilcom;string"}
|
||||
complr {"lisp;_nilcom;subseq" "lisp;_lspsrc;trace"}
|
||||
complr {"lisp;_nilcom;yesnop"}
|
||||
complr {"liblsp;_libdoc;lspmac" "liblsp;_libdoc;lusets"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;sharpm\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;string\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;subseq\r"
|
||||
respond "_" "lisp;_lspsrc;trace\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;yesnop\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;lspmac\r"
|
||||
respond "_" "liblsp;_libdoc;lusets\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((lisp) extend))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "lisp;_lspsrc;extstr\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((lisp) extend)"} {"lisp;_lspsrc;extstr"}
|
||||
|
||||
# inquir
|
||||
midas "inquir;" "lsrrtn"
|
||||
@ -186,25 +103,15 @@ midas "inquir;" "cstacy;netrtn"
|
||||
|
||||
respond "*" ":link liblsp;debug fasl,liblsp;dbg fasl\r"
|
||||
respond "*" ":link lisp;debug fasl,liblsp;debug fasl\r"
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;tty\r"
|
||||
respond "_" "inquir;reader\r"
|
||||
respond "_" "inquir;fake-s\r"
|
||||
respond "_" "rwk;debmac\r"
|
||||
respond "_" "liblsp;_libdoc;lispm\r"
|
||||
respond "_" "inquir;inquir\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
complr {"liblsp;_libdoc;tty" "inquir;reader" "inquir;fake-s"
|
||||
"rwk;debmac" "liblsp;_libdoc;lispm" "inquir;inquir"}
|
||||
|
||||
midas "inquir;ts inqexm" "inqexm"
|
||||
midas "inquir;ts inqrep" "inqrep"
|
||||
respond "*" ":link inquir;ts inqchk,ts inquir\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;dbg ejs2\r"
|
||||
respond "_" "liblsp;_libdoc;comrd kmp1\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;dbg ejs2" "liblsp;_libdoc;comrd kmp1"}
|
||||
|
||||
respond "*" ":lisp inquir;inquir (dump)\r"
|
||||
respond "*" ":link inquir;ts inquir,inquir;inqbin >\r"
|
||||
@ -215,18 +122,12 @@ respond "*" ":link inquir;ts inqpat,inqupd bin\r"
|
||||
respond "*" ":link inquir;ts lsrini,inqupd bin\r"
|
||||
|
||||
# od
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc; od\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc; od"}
|
||||
respond "*" ":lisp libdoc;od (dump)\r"
|
||||
expect ":KILL"
|
||||
|
||||
# comred
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc; comred\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc; comred"}
|
||||
|
||||
respond "*" ":link inquir;lsrtns 1,syseng;lsrtns >\r"
|
||||
|
||||
@ -239,16 +140,9 @@ midas "sys3;ts lsrdmp" "bawden; lsrdmp"
|
||||
|
||||
# more lisp packages
|
||||
respond "*" ":link lisp;tty fasl,liblsp;tty fasl\r"
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((lisp) subloa lsp))"
|
||||
respond "T" "(maklap)"
|
||||
respond "_" "lisp;_lspsrc;funcel\r"
|
||||
respond "_" "lisp;_lspsrc;reap\r"
|
||||
respond "_" "lisp;_lspsrc;lexprf\r"
|
||||
respond "_" "lisp;_lspsrc;ldbhlp\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((lisp) subloa lsp)"} \
|
||||
{"lisp;_lspsrc;funcel" "lisp;_lspsrc;reap"
|
||||
"lisp;_lspsrc;lexprf" "lisp;_lspsrc;ldbhlp"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;lsets\r"
|
||||
@ -257,30 +151,14 @@ respond "(Y or N)" "Y"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((lisp) subloa lsp))"
|
||||
respond "T" "(maklap)"
|
||||
respond "_" "lisp;_lspsrc;nilaid\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((lisp) subloa lsp)"} {"lisp;_lspsrc;nilaid"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;sharab\r"
|
||||
respond "_" "liblsp;_libdoc;bs\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;sharab" "liblsp;_libdoc;bs"}
|
||||
|
||||
respond "*" ":link lisp;sharab fasl,liblsp;\r"
|
||||
respond "*" ":link lisp;bs fasl,liblsp;\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((lisp) subloa lsp))"
|
||||
respond "T" "(maklap)"
|
||||
respond "_" "lisp;_nilcom;thread\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((lisp) subloa lsp)"} {"lisp;_nilcom;thread"}
|
||||
|
||||
midas "lisp;" "l;lchnsp"
|
||||
midas "lisp;" "l;purep"
|
||||
@ -291,45 +169,23 @@ respond "*" ":link alan;dprint fasl,liblsp;dprint fasl\r"
|
||||
respond "*" ":link alan;struct 9,alan;nstruc 280\r"
|
||||
respond "*" ":copy liblsp;struct fasl,alan;struct boot\r"
|
||||
respond "*" ":link alan;struct fasl,liblsp;struct fasl\r"
|
||||
respond "*" "complr\013"
|
||||
respond "_" "alan;lspcom\r"
|
||||
respond "_" "alan;lspenv\r"
|
||||
respond "_" "alan;lspint\r"
|
||||
respond "_" "alan;setf\r"
|
||||
respond "_" "alan;binda\r"
|
||||
respond "_" "alan;crawl\r"
|
||||
respond "_" "alan;nstruc 280\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
complr {"alan;lspcom" "alan;lspenv" "alan;lspint" "alan;setf"
|
||||
"alan;binda" "alan;crawl" "alan;nstruc 280"}
|
||||
respond "*" ":copy alan;nstruc fasl,liblsp;struct fasl\r"
|
||||
respond "*" ":link lisp;struct fasl,liblsp;struct fasl\r"
|
||||
|
||||
midas "liblsp;" "alan;macits"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_alan;dprint\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_alan;dprint"}
|
||||
|
||||
#respond "*" "complr\013"
|
||||
#respond "_" "alan;ljob\r"
|
||||
#respond "_" "liblsp;_libdoc;gprint rcw3\r"
|
||||
#respond "_" "alan;lspgub\r"
|
||||
#respond "_" "\032"
|
||||
#type ":kill\r"
|
||||
#complr {"alan;ljob" "liblsp;_libdoc;gprint rcw3" "alan;lspgub"}
|
||||
|
||||
# compile lisp compiler
|
||||
respond "*" "complr\013"
|
||||
respond "_" "comlap;cd.fas 40_cdmacs\r"
|
||||
respond "_" "comlap;cx.fas 25_comaux\r"
|
||||
respond "_" "comlap;cl.fas 936_complr\r"
|
||||
respond "_" "comlap;fl.fas 392_faslap\r"
|
||||
respond "_" "comlap;in.fas 120_initia\r"
|
||||
respond "_" "comlap;mk.fas 80_maklap\r"
|
||||
respond "_" "comlap;ph.fas 86_phas1\r"
|
||||
respond "_" "comlap;st.fas 20_srctrn\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"comlap;cd.fas 40_cdmacs" "comlap;cx.fas 25_comaux"
|
||||
"comlap;cl.fas 936_complr" "comlap;fl.fas 392_faslap"
|
||||
"comlap;in.fas 120_initia" "comlap;mk.fas 80_maklap"
|
||||
"comlap;ph.fas 86_phas1" "comlap;st.fas 20_srctrn"}
|
||||
|
||||
# and redump compiler
|
||||
respond "*" "comlap\033\033\023"
|
||||
@ -340,112 +196,45 @@ type ":vk\r"
|
||||
respond "*" ":kill\r"
|
||||
|
||||
# Additional LSPLIB packages
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;iota\r"
|
||||
respond "_" "liblsp;_libdoc;time\r"
|
||||
respond "_" "liblsp;_libdoc;letfex\r"
|
||||
respond "_" "liblsp;_libdoc;break\r"
|
||||
respond "_" "liblsp;_libdoc;smurf\r"
|
||||
respond "_" "liblsp;_rlb%;fasdmp\r"
|
||||
respond "_" "liblsp;_libdoc;lispt\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;iota" "liblsp;_libdoc;time" "liblsp;_libdoc;letfex"
|
||||
"liblsp;_libdoc;break" "liblsp;_libdoc;smurf" "liblsp;_rlb%;fasdmp"
|
||||
"liblsp;_libdoc;lispt"}
|
||||
|
||||
respond "*" ":link liblsp;gcdemn fasl,lisp;\r"
|
||||
|
||||
### more lisplib stuff
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;%print\r"
|
||||
respond "_" "liblsp;_libdoc;6bit\r"
|
||||
respond "_" "liblsp;_libdoc;apropo\r"
|
||||
respond "_" "liblsp;_libdoc;arith\r"
|
||||
respond "_" "liblsp;_libdoc;aryfil\r"
|
||||
respond "_" "liblsp;_libdoc;atan\r"
|
||||
respond "_" "liblsp;_libdoc;autodf\r"
|
||||
respond "_" "liblsp;_libdoc;bboole\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;%print" "liblsp;_libdoc;6bit" "liblsp;_libdoc;apropo"
|
||||
"liblsp;_libdoc;arith" "liblsp;_libdoc;aryfil" "liblsp;_libdoc;atan"
|
||||
"liblsp;_libdoc;autodf" "liblsp;_libdoc;bboole"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;bench\r"
|
||||
respond "_" "liblsp;_libdoc;binprt\r"
|
||||
respond "_" "liblsp;_lmlib;gprint\r"
|
||||
respond "_" "liblsp;_libdoc;carcdr\r"
|
||||
respond "_" "liblsp;_libdoc;char\r"
|
||||
respond "_" "liblsp;_libdoc;debug*\r"
|
||||
respond "_" "liblsp;_libdoc;defsta\r"
|
||||
respond "_" "liblsp;_libdoc;doctor\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;bench" "liblsp;_libdoc;binprt" "liblsp;_lmlib;gprint"
|
||||
"liblsp;_libdoc;carcdr" "liblsp;_libdoc;char" "liblsp;_libdoc;debug*"
|
||||
"liblsp;_libdoc;defsta" "liblsp;_libdoc;doctor"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;dow\r"
|
||||
respond "_" "liblsp;_libdoc;dribbl\r"
|
||||
respond "_" "liblsp;_libdoc;dumpgc\r"
|
||||
respond "_" "liblsp;_libdoc;fake-s\r"
|
||||
respond "_" "liblsp;_libdoc;fforma\r"
|
||||
respond "_" "liblsp;_libdoc;filbit\r"
|
||||
respond "_" "liblsp;_libdoc;fload\r"
|
||||
respond "_" "liblsp;_libdoc;fontrd\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;dow" "liblsp;_libdoc;dribbl" "liblsp;_libdoc;dumpgc"
|
||||
"liblsp;_libdoc;fake-s" "liblsp;_libdoc;fforma" "liblsp;_libdoc;filbit"
|
||||
"liblsp;_libdoc;fload" "liblsp;_libdoc;fontrd"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;for\r"
|
||||
respond "_" "lisp;_lspsrc;gcdemn\r"
|
||||
respond "_" "liblsp;_libdoc;genfns\r"
|
||||
respond "_" "liblsp;_libdoc;graphs\r"
|
||||
respond "_" "liblsp;_libdoc;graphm\r"
|
||||
respond "_" "liblsp;_libdoc;graph$\r"
|
||||
respond "_" "liblsp;_libdoc;grapha\r"
|
||||
respond "_" "liblsp;_libdoc;grapht\r"
|
||||
respond "_" "liblsp;_libdoc;impdef\r"
|
||||
respond "_" "liblsp;_libdoc;laugh\r"
|
||||
respond "_" "liblsp;_libdoc;lets\r"
|
||||
respond "_" "liblsp;_libdoc;linere\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;for" "lisp;_lspsrc;gcdemn" "liblsp;_libdoc;genfns"
|
||||
"liblsp;_libdoc;graphs" "liblsp;_libdoc;graphm" "liblsp;_libdoc;graph$"
|
||||
"liblsp;_libdoc;grapha" "liblsp;_libdoc;grapht" "liblsp;_libdoc;impdef"
|
||||
"liblsp;_libdoc;laugh" "liblsp;_libdoc;lets" "liblsp;_libdoc;linere"}
|
||||
|
||||
respond "*" ":delete libdoc;gcdemn 999999\r"
|
||||
respond "*" ":link libdoc;gcdemn 999999,lspsrc;gcdemn >\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;loop\r"
|
||||
respond "_" "liblsp;_libdoc;more\r"
|
||||
respond "_" "liblsp;_libdoc;nshare\r"
|
||||
respond "_" "liblsp;_libdoc;octal\r"
|
||||
respond "_" "liblsp;_libdoc;optdef\r"
|
||||
respond "_" "liblsp;_libdoc;phsprt\r"
|
||||
respond "_" "liblsp;_libdoc;privob\r"
|
||||
respond "_" "liblsp;_libdoc;prompt\r"
|
||||
respond "_" "liblsp;_libdoc;qtrace\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;loop" "liblsp;_libdoc;more" "liblsp;_libdoc;nshare"
|
||||
"liblsp;_libdoc;octal" "liblsp;_libdoc;optdef" "liblsp;_libdoc;phsprt"
|
||||
"liblsp;_libdoc;privob" "liblsp;_libdoc;prompt" "liblsp;_libdoc;qtrace"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;reads\r"
|
||||
respond "_" "liblsp;_libdoc;redo\r"
|
||||
respond "_" "liblsp;_libdoc;save\r"
|
||||
respond "_" "liblsp;_libdoc;sets\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;reads" "liblsp;_libdoc;redo"
|
||||
"liblsp;_libdoc;save" "liblsp;_libdoc;sets"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;share\r"
|
||||
respond "_" "liblsp;_libdoc;sixbit\r"
|
||||
respond "_" "liblsp;_libdoc;split\r"
|
||||
respond "_" "liblsp;_libdoc;stack\r"
|
||||
respond "_" "liblsp;_libdoc;statty\r"
|
||||
respond "_" "liblsp;_libdoc;stepmm\r"
|
||||
respond "_" "liblsp;_libdoc;stepr\r"
|
||||
respond "_" "liblsp;_libdoc;string\r"
|
||||
respond "_" "liblsp;_libdoc;sun\r"
|
||||
respond "_" "liblsp;_libdoc;trap\r"
|
||||
respond "_" "liblsp;_libdoc;ttyhak\r"
|
||||
respond "_" "liblsp;_libdoc;wifs\r"
|
||||
respond "_" "liblsp;_libdoc;window\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;share" "liblsp;_libdoc;sixbit" "liblsp;_libdoc;split"
|
||||
"liblsp;_libdoc;stack" "liblsp;_libdoc;statty" "liblsp;_libdoc;stepmm"
|
||||
"liblsp;_libdoc;stepr" "liblsp;_libdoc;string" "liblsp;_libdoc;sun"
|
||||
"liblsp;_libdoc;trap" "liblsp;_libdoc;ttyhak" "liblsp;_libdoc;wifs"
|
||||
"liblsp;_libdoc;window"}
|
||||
|
||||
respond "*" ":link liblsp;defvst fasl,lisp;\r"
|
||||
respond "*" ":link liblsp;format fasl,liblsp;fforma fasl\r"
|
||||
@ -464,28 +253,13 @@ respond "Delete? (Y or N):" "y"
|
||||
respond "@" "q\r"
|
||||
expect ":KILL"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libdoc) set ira10))"
|
||||
respond "T" "(maklap)"
|
||||
respond "_" "liblsp;_libdoc;askusr\r"
|
||||
respond "_" "liblsp;_pratt;cgrub\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libdoc) set ira10)"} \
|
||||
{"liblsp;_libdoc;askusr" "liblsp;_pratt;cgrub"}
|
||||
|
||||
# compile cgol
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_pratt;cgol\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_pratt;cgol"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((lisp) cgol fasl))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "liblsp;_pratt;cgprin\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((lisp) cgol fasl)"} {"liblsp;_pratt;cgprin"}
|
||||
|
||||
# clean up remaining unfasl files in liblsp
|
||||
respond "*" ":dired liblsp;\r"
|
||||
@ -494,13 +268,9 @@ respond "Delete? (Y or N):" "y"
|
||||
respond "@" "q\r"
|
||||
expect ":KILL"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(sstatus features Compile-Subload)"
|
||||
respond "COMPILE-SUBLOAD" "(maklap)"
|
||||
respond "_" "lisp;_nilcom;subloa\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_action {respond "*" "(sstatus features Compile-Subload)"
|
||||
expect "COMPILE-SUBLOAD"} \
|
||||
{"lisp;_nilcom;subloa"}
|
||||
|
||||
midas "liblsp;" "libdoc;bssq"
|
||||
midas "liblsp;" "libdoc;aryadr"
|
||||
@ -513,29 +283,16 @@ midas "liblsp;" "libdoc;fft"
|
||||
midas "liblsp;" "libdoc;phase"
|
||||
|
||||
# More LIBLSP packages
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;didl\r"
|
||||
respond "_" "liblsp;_libdoc;getsyn\r"
|
||||
respond "_" "liblsp;_libdoc;iter\r"
|
||||
respond "_" "liblsp;_libdoc;hash\r"
|
||||
respond "_" "liblsp;_libdoc;graph3\r"
|
||||
respond "_" "liblsp;_libdoc;ledit*\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;didl" "liblsp;_libdoc;getsyn" "liblsp;_libdoc;iter"
|
||||
"liblsp;_libdoc;hash" "liblsp;_libdoc;graph3" "liblsp;_libdoc;ledit*"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;stacks\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;stacks"}
|
||||
|
||||
midas "liblsp;" "libdoc;dirsiz"
|
||||
midas "liblsp;" "z;timer"
|
||||
|
||||
respond "*" ":link lisp;vsaid lisp,nilcom;vsaid >\r"
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;vsaid\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_nilcom;vsaid"}
|
||||
respond "*" ":link liblsp;vsaid fasl,lisp;\r"
|
||||
|
||||
# cleanup unfasl files in lisp;
|
||||
@ -552,39 +309,17 @@ midas "liblsp;" "gsb;ttyvar" {
|
||||
midas "liblsp;" "libdoc;aryadr"
|
||||
midas "liblsp;" "libdoc;bssq"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;lddt\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;ndone\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;lddt"}
|
||||
complr {"liblsp;_libdoc;ndone"}
|
||||
|
||||
respond "*" ":link graphs;graph3 fasl,liblsp\r"
|
||||
respond "*" ":link graphs;plot3 fasl,liblsp\r"
|
||||
respond "*" ":link graphs;plot fasl,liblsp\r"
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;plot\r"
|
||||
respond "_" "liblsp;_libdoc;plot3\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;plot" "liblsp;_libdoc;plot3"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;prime\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;step\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "liblsp;_libdoc;utils\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;prime"}
|
||||
complr {"liblsp;_libdoc;step"}
|
||||
complr {"liblsp;_libdoc;utils"}
|
||||
|
||||
# cleanup unfasl files in liblsp;
|
||||
respond "*" ":dired liblsp;\r"
|
||||
@ -594,25 +329,13 @@ respond "@" "q\r"
|
||||
expect ":KILL"
|
||||
|
||||
# DEFSET
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;defset\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_nilcom;defset"}
|
||||
|
||||
# compile some lisp; libraries
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_nilcom;cnvd\r"
|
||||
respond "_" "lisp;_lspsrc;exthuk\r"
|
||||
respond "_" "lisp;_lspsrc;gfile\r"
|
||||
respond "_" "lisp;_lspsrc;gfn\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_nilcom;cnvd" "lisp;_lspsrc;exthuk"
|
||||
"lisp;_lspsrc;gfile" "lisp;_lspsrc;gfn"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "lisp;_lspsrc;querio\r"
|
||||
respond "_" "lisp;_lspsrc;vector\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lisp;_lspsrc;querio" "lisp;_lspsrc;vector"}
|
||||
|
||||
midas "lisp;" "lspsrc;sendi"
|
||||
midas "lisp;" "lspsrc;straux"
|
||||
@ -633,18 +356,10 @@ midas "sys; atsign 10slav" "sysen2; ld10" {
|
||||
}
|
||||
|
||||
# animal
|
||||
respond "*" "complr\013"
|
||||
respond "_" "games;_games;parse\r"
|
||||
respond "_" "games;_games;pattrn\r"
|
||||
respond "_" "games;_games;words\r"
|
||||
respond "_" "games;_games;word\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"games;_games;parse" "games;_games;pattrn"
|
||||
"games;_games;words" "games;_games;word"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "games;_games;animal 133\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"games;_games;animal 133"}
|
||||
|
||||
respond "*" "l\013"
|
||||
respond "Alloc?" "n"
|
||||
@ -653,42 +368,23 @@ respond_load "(dump '((games) ts animal))"
|
||||
expect "KILL"
|
||||
|
||||
# think
|
||||
respond "*" "complr\013"
|
||||
respond "_" "games;_games;think\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"games;_games;think"}
|
||||
|
||||
# wa
|
||||
respond "*" "complr\013"
|
||||
respond "_" "games;_games;wa 10\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"games;_games;wa 10"}
|
||||
|
||||
# chase
|
||||
respond "*" "complr\013"
|
||||
respond "_" "games;_chase\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"games;_chase"}
|
||||
|
||||
# yahtze
|
||||
respond "*" "complr\013"
|
||||
respond "_" "sca;macros\r"
|
||||
respond "_" "sca;modeb\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"sca;macros" "sca;modeb"}
|
||||
|
||||
# note sca;mode > will not compile. Yahtze will load it interpreted
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "games;yahtze\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"games;yahtze"}
|
||||
|
||||
# ITSter
|
||||
respond "*" "complr\013"
|
||||
respond "_" "games;_hibou;itster\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"games;_hibou;itster"}
|
||||
|
||||
# Knight TV Spacewar
|
||||
respond "*" ":lisp gjd; sine lisp\r"
|
||||
@ -696,44 +392,27 @@ expect ":KILL"
|
||||
|
||||
# Kermit
|
||||
respond "*" ":link math;defset fasl,lisp;\r"
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "math;common\r"
|
||||
respond "_" "math;kermit\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"math;common" "math;kermit"}
|
||||
respond "*" ":lisp math; kermit dumper\r"
|
||||
respond "to dump.|" "(kermit-dump)"
|
||||
expect ":KILL"
|
||||
respond "*" ":link sys3;ts kermit,math;\r"
|
||||
|
||||
# SUPDUP ARDS
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "dcp;sgincl\r"
|
||||
respond "_" "dcp;supard\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"dcp;sgincl" "dcp;supard"}
|
||||
respond "*" ":lisp\r"
|
||||
respond "Alloc?" "n"
|
||||
respond "*" {(load "dcp;supard")}
|
||||
respond "system program" "(bootstrap)"
|
||||
|
||||
# ARDS to SVG converter
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "victor; ards\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"victor; ards"}
|
||||
|
||||
# Forth
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "kle;forth\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"kle;forth"}
|
||||
|
||||
# ULisp
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "teach; ulisp\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"teach; ulisp"}
|
||||
respond "*" ":lisp\r"
|
||||
respond "Alloc?" "n\r"
|
||||
respond "*" "(load '((teach) ulisp))"
|
||||
@ -751,15 +430,8 @@ respond "\n" ":vk\r"
|
||||
respond "*" ":kill\r"
|
||||
|
||||
# AS8748
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "lmio1;as8748\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "moon;8478sa\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lmio1;as8748"}
|
||||
complr {"moon;8478sa"}
|
||||
|
||||
respond "*" ":lisp\r"
|
||||
respond "Alloc?" "n"
|
||||
@ -771,36 +443,11 @@ expect ":KILL"
|
||||
|
||||
# Lisp Logo
|
||||
cwd "llogo"
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "germ\r"
|
||||
respond "_" "ioc\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load 'ioc)"
|
||||
respond_load "(load 'define)"
|
||||
respond "T" "(maklap)"
|
||||
respond "_" "define\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load 'ioc)"
|
||||
respond_load "(load 'define)"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "error\r"
|
||||
respond "_" "parser\r"
|
||||
respond "_" "primit\r"
|
||||
respond "_" "print\r"
|
||||
respond "_" "reader\r"
|
||||
respond "_" "setup\r"
|
||||
respond "_" "unedit\r"
|
||||
respond "_" "music\r"
|
||||
respond "_" "turtle\r"
|
||||
respond "_" "tvrtle\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"germ" "ioc"}
|
||||
complr_load {"ioc" "define"} {"define"}
|
||||
complr_load {"ioc" "define"} \
|
||||
{"error" "parser" "primit" "print" "reader" "setup" "unedit" "music"
|
||||
"turtle" "tvrtle"}
|
||||
respond "*" ":lisp loader\r"
|
||||
respond "?" "Y\r"
|
||||
respond "?" "LLOGO\r"
|
||||
@ -809,13 +456,7 @@ expect ":KILL"
|
||||
respond "*" ":link sys1; ts llogo, llogo; ts llogo\r"
|
||||
|
||||
# 2500 assembler
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load 'ioc)"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "2500;zap\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"ioc"} {"2500;zap"}
|
||||
|
||||
# 2500 microcode
|
||||
cwd "minsky"
|
||||
@ -832,26 +473,11 @@ expect ":KILL"
|
||||
|
||||
# TEACH;TS XLISP
|
||||
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "teach;macro\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"teach;macro"}
|
||||
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "teach;apropos\r"
|
||||
respond "_" "teach;compla\r"
|
||||
respond "_" "teach;databa\r"
|
||||
respond "_" "teach;errhan\r"
|
||||
respond "_" "teach;errhel\r"
|
||||
respond "_" "teach;exlist\r"
|
||||
respond "_" "teach;io\r"
|
||||
respond "_" "teach;lessn\r"
|
||||
respond "_" "teach;more\r"
|
||||
respond "_" "teach;record\r"
|
||||
respond "_" "teach;teach\r"
|
||||
respond "_" "teach;treepr\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"teach;apropos" "teach;compla" "teach;databa" "teach;errhan"
|
||||
"teach;errhel" "teach;exlist" "teach;io" "teach;lessn"
|
||||
"teach;more" "teach;record" "teach;teach" "teach;treepr"}
|
||||
|
||||
respond "*" ":lisp\r"
|
||||
respond "Alloc?" "n"
|
||||
@ -862,20 +488,10 @@ expect ":KILL"
|
||||
respond "*" ":rename teach;ts xlisp,ts lisp\r"
|
||||
|
||||
# Munching squares for display terminals.
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "lars; munch lisp\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"lars; munch lisp"}
|
||||
|
||||
# CUBE, Rubik's cube by Bernard Greenberg.
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "bsg;cube\r"
|
||||
respond "_" "bsg;cutils\r"
|
||||
respond "_" "bsg;csolve\r"
|
||||
respond "_" "bsg;cinput\r"
|
||||
respond "_" "bsg;cxfrm\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"bsg;cube" "bsg;cutils" "bsg;csolve" "bsg;cinput" "bsg;cxfrm"}
|
||||
respond "*" ":lisp\r"
|
||||
respond "Alloc?" "n"
|
||||
respond "*" {(load "bsg;cdriv")}
|
||||
@ -884,14 +500,7 @@ respond "*" ":pdump sys3;ts cube\r"
|
||||
respond "*" ":kill\r"
|
||||
|
||||
# LMODEM
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "eb;sfadcl\r"
|
||||
respond "_" "eb;errmac\r"
|
||||
respond "_" "eb;signal\r"
|
||||
respond "_" "eb;dsk8\r"
|
||||
respond "_" "eb;lmodem\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"eb;sfadcl" "eb;errmac" "eb;signal" "eb;dsk8" "eb;lmodem"}
|
||||
respond "*" ":lisp\r"
|
||||
respond "Alloc?" "n"
|
||||
respond "*" {(load "eb;lmodem")}
|
||||
|
||||
@ -5,10 +5,7 @@ log_progress "ENTERING BUILD SCRIPT: MACSYMA"
|
||||
# all libmax components (well almost all) require libmax;module fasl
|
||||
# at compile time. Build it first.
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "libmax;module\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"libmax;module"}
|
||||
|
||||
# libmax;maxmac can't be compiled unless libmax;mforma is (first) compiled.
|
||||
# However, libmax;mforma uses libmax;macmac. Hence you end up having to
|
||||
@ -17,37 +14,10 @@ type ":kill\r"
|
||||
# files for each, but anything that depends on these two packages will also
|
||||
# have errors during compilation.
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;mforma\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;maxmac\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;mforma\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;maxmac\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libmax) module)"} {"libmax;mforma"}
|
||||
complr_load {"((libmax) module)"} {"libmax;maxmac"}
|
||||
complr_load {"((libmax) module)"} {"libmax;mforma"}
|
||||
complr_load {"((libmax) module)"} {"libmax;maxmac"}
|
||||
|
||||
# the following are required to compile some of the libmax;
|
||||
# FASL files
|
||||
@ -58,72 +28,31 @@ mkdir "maxdmp"
|
||||
respond "*" ":link maxdmp;ratlap fasl,rat;ratlap fasl\r"
|
||||
respond "*" ":link libmax;lusets fasl,liblsp;\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;ermsgx\r"
|
||||
respond "_" "libmax;ermsgc\r"
|
||||
respond "_" "z;fildir\r"
|
||||
respond "_" "libmax;lmmac\r"
|
||||
respond "_" "libmax;meta\r"
|
||||
respond "_" "libmax;lmrund\r"
|
||||
respond "_" "libmax;lmrun\r"
|
||||
respond "_" "libmax;displm\r"
|
||||
respond "_" "libmax;defopt\r"
|
||||
respond "_" "libmax;mopers\r"
|
||||
respond "_" "libmax;mrgmac\r"
|
||||
respond "_" "libmax;nummac\r"
|
||||
respond "_" "libmax;opshin\r"
|
||||
respond "_" "libmax;edmac_emaxim;\r"
|
||||
respond "_" "libmax;procs\r"
|
||||
respond "_" "libmax;readm\r"
|
||||
respond "_" "libmax;strmac\r"
|
||||
respond "_" "libmax;transm\r"
|
||||
respond "_" "libmax;rzmac_rz;macros\r"
|
||||
respond "_" "libmax;transq\r"
|
||||
respond "_" "libmax;mdefun\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libmax) module)"} \
|
||||
{"libmax;ermsgx" "libmax;ermsgc" "z;fildir" "libmax;lmmac"
|
||||
"libmax;meta" "libmax;lmrund" "libmax;lmrun" "libmax;displm"
|
||||
"libmax;defopt" "libmax;mopers" "libmax;mrgmac" "libmax;nummac"
|
||||
"libmax;opshin" "libmax;edmac_emaxim;" "libmax;procs" "libmax;readm"
|
||||
"libmax;strmac" "libmax;transm" "libmax;rzmac_rz;macros"
|
||||
"libmax;transq" "libmax;mdefun"}
|
||||
|
||||
# build MAXTUL FASL files
|
||||
|
||||
mkdir "maxerr"
|
||||
mkdir "maxer1"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "maxtul;strmrg\r"
|
||||
respond "_" "maxtul;defile\r"
|
||||
respond "_" "maxtul;docgen\r"
|
||||
respond "_" "maxtul;query\r"
|
||||
respond "_" "maxtul;maxtul\r"
|
||||
respond "_" "maxtul;toolm\r"
|
||||
respond "_" "maxtul;dclmak\r"
|
||||
respond "_" "maxtul;mailer\r"
|
||||
respond "_" "maxtul;mcl\r"
|
||||
respond "_" "maxtul;timepn\r"
|
||||
respond "_" "maxtul;expand\r"
|
||||
respond "_" "maxtul;fsubr!\r"
|
||||
respond "_" "maxtul;error!\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"maxtul;strmrg" "maxtul;defile" "maxtul;docgen" "maxtul;query"
|
||||
"maxtul;maxtul" "maxtul;toolm" "maxtul;dclmak" "maxtul;mailer"
|
||||
"maxtul;mcl" "maxtul;timepn" "maxtul;expand" "maxtul;fsubr!"
|
||||
"maxtul;error!"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "maxtul;fasmap\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"maxtul;fasmap"}
|
||||
|
||||
# define needs (for some reason) to be compiled separately.
|
||||
# not doing this results in errors compiling macsyma sources,
|
||||
# such as ELL; HYP >
|
||||
#
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;define\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libmax) module)"} {"libmax;define"}
|
||||
|
||||
# build macsyma
|
||||
|
||||
@ -131,21 +60,10 @@ mkdir "macsym"
|
||||
|
||||
respond "*" ":link macsym;mdefun fasl,libmax;\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "macsym;ermsgm_maxsrc;ermsgm\r"
|
||||
respond "_" "maxdoc;tdcl\r"
|
||||
respond "_" "rlb;bitmac\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libmax) module)"} \
|
||||
{"macsym;ermsgm_maxsrc;ermsgm" "maxdoc;tdcl" "rlb;bitmac"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "rlb;faslre\r"
|
||||
respond "_" "rlb;faslro\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"rlb;faslre" "rlb;faslro"}
|
||||
|
||||
respond "*" ":link rlb%;faslre fasl,rlb;\r"
|
||||
respond "*" ":copy rlb;faslre fasl,liblsp;\r"
|
||||
@ -175,33 +93,14 @@ respond "MAXIMUM TOOLAGE>" "declare-file-make\r"
|
||||
respond "MAXIMUM TOOLAGE>" "quit\r"
|
||||
respond "*" "(quit)"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;mhayat_rat;mhayat\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;ratmac_rat;ratmac\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libmax) module)"} {"libmax;mhayat_rat;mhayat"}
|
||||
complr_load {"((libmax) module)"} {"libmax;ratmac_rat;ratmac"}
|
||||
|
||||
# mforma needs to get recompiled (not sure exactly which
|
||||
# dependency yet causes the version we've built so far
|
||||
# not to work, but if recompiled at this point, we're
|
||||
# able to build macsyma
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "libmax;mforma\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libmax) module)"} {"libmax;mforma"}
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
@ -217,10 +116,7 @@ midas "maxtul;ts mcl" "mcldmp midas"
|
||||
respond "*" ":link maxtul;.good. complr,maxtul;mcldmp 32\r"
|
||||
|
||||
# build UTMCL -- the compiler invoked by compile_lisp_file in Macsyma
|
||||
respond "*" "complr\013"
|
||||
respond "_" "maxtul;utmcl\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"maxtul;utmcl"}
|
||||
|
||||
# dump out UTMCL
|
||||
respond "*" "complr\013"
|
||||
@ -231,10 +127,7 @@ respond "*" "(dump-utmcl)"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
|
||||
respond "*" "complr\013"
|
||||
respond "_" "mrg;macros\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"mrg;macros"}
|
||||
|
||||
mkdir "maxout"
|
||||
mkdir "share2"
|
||||
@ -314,31 +207,15 @@ respond "Type ALL;" "all;"
|
||||
respond "(C2)" "quit();"
|
||||
|
||||
### build share;array fasl and ellen;check fasl for macsyma
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(load '((libmax) maxmac))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "share;_maxsrc;array\r"
|
||||
respond "_" "ellen;check\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libmax) module)" "((libmax) maxmac)"} \
|
||||
{"share;_maxsrc;array" "ellen;check"}
|
||||
|
||||
### rebuild float because version built the first time gives
|
||||
### arithmetic overflows. See ticket #1211.
|
||||
respond "*" "complr\013"
|
||||
respond "_" "\007"
|
||||
respond "*" "(load '((libmax) module))"
|
||||
respond_load "(load '((libmax) maxmac))"
|
||||
respond_load "(maklap)"
|
||||
respond "_" "macsym;_rat;float\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr_load {"((libmax) module)" "((libmax) maxmac)"} \
|
||||
{"macsym;_rat;float"}
|
||||
|
||||
# this is not technically part of macsyma, but requires a bunch
|
||||
# of macsyma macros and libraries in order to compile
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "liblsp;_libdoc;lchstr\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"liblsp;_libdoc;lchstr"}
|
||||
respond "*" ":delete liblsp;lchstr unfasl\r"
|
||||
|
||||
@ -1,10 +1,7 @@
|
||||
log_progress "ENTERING BUILD SCRIPT: SCHEME"
|
||||
|
||||
# Old? Scheme interpreter
|
||||
respond "*" "complr\013"
|
||||
respond "_" "scheme;_nschsy\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"scheme;_nschsy"}
|
||||
respond "*" ":lisp\r"
|
||||
respond "Alloc?" "n"
|
||||
respond "*" {(load "scheme; nschsy fasl")}
|
||||
@ -12,12 +9,7 @@ respond "\n" "(schemedump)"
|
||||
respond "==>" "(quit)"
|
||||
|
||||
# New Scheme interpreter
|
||||
respond "*" "complr\013"
|
||||
respond "_" "quux;_schint lsp\r"
|
||||
respond "_" "quux;_schmac lsp\r"
|
||||
respond "_" "quux;_schuuo lsp\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"quux;_schint lsp" "quux;_schmac lsp" "quux;_schuuo lsp"}
|
||||
|
||||
respond "*" ":link quux;scheme interp, schint fasl\r"
|
||||
respond "*" ":link quux;scheme macros, schmac fasl\r"
|
||||
@ -32,10 +24,7 @@ respond "==>" {(schload "scheme; rabbit")}
|
||||
respond "==>" {(comfile "scheme; rabbit")}
|
||||
expect -timeout 3600 "COMPILE TIME:"
|
||||
respond "==>" "(quit)"
|
||||
respond "*" ":complr\r"
|
||||
respond "_" "scheme;_rabbit lisp\r"
|
||||
respond "_" "\032"
|
||||
type ":kill\r"
|
||||
complr {"scheme;_rabbit lisp"}
|
||||
respond "*" ":scheme;scheme\r"
|
||||
respond "==>" {(schload "scheme; rabbit fasl")}
|
||||
respond "==>" "(dumpit)"
|
||||
|
||||
@ -4,59 +4,24 @@ 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"
|
||||
complr {"graphf"}
|
||||
complr {"macros"}
|
||||
complr {"proggo"}
|
||||
complr {"plnr"}
|
||||
complr {"thtrac"}
|
||||
complr {"syscom"}
|
||||
complr {"morpho"}
|
||||
complr {"show"}
|
||||
complr {"progmr"}
|
||||
complr {"ginter"}
|
||||
complr {"gramar"}
|
||||
complr {"dictio"}
|
||||
complr {"smspec"}
|
||||
complr {"smass"}
|
||||
complr {"smutil"}
|
||||
complr {"newans"}
|
||||
complr {"blockp"}
|
||||
complr {"blockl"}
|
||||
|
||||
# now load up a compiled version of SHRDLU
|
||||
respond "*" ":lisp\r"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user