mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
43 lines
1.1 KiB
Tcl
43 lines
1.1 KiB
Tcl
# Old? Scheme interpreter
|
|
respond "*" "complr\013"
|
|
respond "_" "scheme;_nschsy\r"
|
|
respond "_" "\032"
|
|
type ":kill\r"
|
|
respond "*" ":lisp\r"
|
|
respond "Alloc?" "n"
|
|
respond "*" {(load "scheme; nschsy fasl")}
|
|
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"
|
|
|
|
respond "*" ":link quux;scheme interp, schint fasl\r"
|
|
respond "*" ":link quux;scheme macros, schmac fasl\r"
|
|
respond "*" ":link quux;scheme uuohan, schuuo fasl\r"
|
|
respond "*" ":lisp 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)"
|
|
respond "*" ":complr\r"
|
|
respond "_" "scheme;_rabbit lisp\r"
|
|
respond "_" "\032"
|
|
type ":kill\r"
|
|
respond "*" ":scheme;scheme\r"
|
|
respond "==>" {(schload "scheme; rabbit fasl")}
|
|
respond "==>" "(dumpit)"
|
|
respond "Dump anyway" " "
|
|
respond "TS RABBIT" "\r"
|
|
}
|