github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

Log progress in build scripts.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-08-03 14:53:52 +02:00
parent c47537394e
commit 7fa6be23db
8 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
build/basics.tcl
View File

@ -1,3 +1,5 @@
log_progress "ENTERING BUILD SCRIPT: BASICS"
expect "\n"; type "\033g"
pdset

13
build/build.tcl
View File

@ -1,3 +1,12 @@
proc log_progress {x} {
puts ""
puts "$x"
puts [exec date]
puts ""
}
log_progress "ENTERING MAIN BUILD SCRIPT"
# If the environment variable BASICS is set to "yes", only build
# the basics; ITS, tools, infastructure.
if {![info exists env(BASICS)]} {
@ -140,3 +149,7 @@ type "quit\r"
shutdown
quit_emulator
puts ""
puts "MAIN BUILD SCRIPT DONE"
puts [exec date]

2
build/lisp.tcl
View File

@ -1,3 +1,5 @@
log_progress "ENTERING BUILD SCRIPT: LISP"
# lisp
respond "*" ":link l;fasdfs 1,lisp;.fasl defs\r"
respond "*" ":link lisp;grind fasl,lisp;gfile fasl\r"

2
build/mark.tcl
View File

@ -1,3 +1,5 @@
log_progress "ENTERING BUILD SCRIPT: MARK"
start_salv
mark_packs

2
build/misc.tcl
View File

@ -1,3 +1,5 @@
log_progress "ENTERING BUILD SCRIPT: MISC"
respond "*" ":print teach;..new. (udir)\r"
type ":vk\r"

2
build/muddle.tcl
View File

@ -1,3 +1,5 @@
log_progress "ENTERING BUILD SCRIPT: MUDDLE"
respond "*" ":cwd mudsys\r"
respond "*" ":midas /t midasm_midas\r"
respond "\n" "itssw==1\r"

2
build/sail.tcl
View File

@ -1,3 +1,5 @@
log_progress "ENTERING BUILD SCRIPT: SAIL"
# stktrn
respond "*" ":cwd sail\r"
respond "*" ":fail stktrn\r"

2
build/scheme.tcl
View File

@ -1,3 +1,5 @@
log_progress "ENTERING BUILD SCRIPT: SCHEME"
# Old? Scheme interpreter
respond "*" "complr\013"
respond "_" "scheme;_nschsy\r"