mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
34 lines
942 B
Tcl
34 lines
942 B
Tcl
log_progress "ENTERING BUILD SCRIPT: SCHEME"
|
|
|
|
# Old? Scheme interpreter
|
|
complr {"scheme;_nschsy"}
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" {(load "scheme; nschsy fasl")}
|
|
respond "\n" "(schemedump)"
|
|
respond "==>" "(quit)"
|
|
|
|
# New Scheme interpreter
|
|
complr {"quux;_schint lsp" "quux;_schmac lsp" "quux;_schuuo lsp"}
|
|
|
|
make_link "quux;scheme interp" " schint fasl"
|
|
make_link "quux;scheme macros" " schmac fasl"
|
|
make_link "quux;scheme uuohan" " schuuo fasl"
|
|
respond "*" ":lisp quux;scheme (dump)\r"
|
|
|
|
# Fails the build, disabled for now.
|
|
if 0 {
|
|
# Rabbit Scheme compiler
|
|
respond "*" ":scheme;scheme\r"
|
|
respond "==>" {(schload "scheme; rabbit")}
|
|
respond "==>" {(comfile "scheme; rabbit")}
|
|
expect -timeout 3600 "COMPILE TIME:"
|
|
respond "==>" "(quit)"
|
|
complr {"scheme;_rabbit lisp"}
|
|
respond "*" ":scheme;scheme\r"
|
|
respond "==>" {(schload "scheme; rabbit fasl")}
|
|
respond "==>" "(dumpit)"
|
|
respond "Dump anyway" " "
|
|
respond "TS RABBIT" "\r"
|
|
}
|