Skip to content
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.

Commit 02b7349

Browse files
larsbrinkhofflarsbrinkhoff
committedFeb 9, 2025
Add a "cwd" TCP procedure.
And use it in the build scripts.
1 parent c8c6a4b commit 02b7349

12 files changed

+51
-48
lines changed
 

‎build/build.tcl

+4
Original file line numberDiff line numberDiff line change
@@ -181,6 +181,10 @@ proc macro {target sources} {
181181
respond "*" ":kill\r"
182182
}
183183

184+
proc cwd {directory} {
185+
respond "*" ":cwd $directory\r"
186+
}
187+
184188
set ip [ip_address [lindex $argv 0]]
185189
set gw [ip_address [lindex $argv 1]]
186190

‎build/emacs.tcl

+1-1
Original file line numberDiff line numberDiff line change
@@ -148,7 +148,7 @@ respond "\n" "\033x& compress file\033turnip; view >\r"
148148
respond "Compressing file" "\030\003"
149149
respond "*" ":kill\r"
150150
respond "*" ":tctyp aaa\r"
151-
respond "*" ":cwd kmp\r"
151+
cwd "kmp"
152152
respond "*" "kmp\033\023"
153153
respond "*" ":dumpt \033turnip;view\r"
154154
expect "Dumped to"

‎build/haunt.tcl

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
log_progress "ENTERING BUILD SCRIPT: HAUNT"
22

3-
respond "*" ":cwd haunt\r"
3+
cwd "haunt"
44

55
# build ops4
66
respond "*" "complr\013"

‎build/ka10/processor.tcl

+2-2
Original file line numberDiff line numberDiff line change
@@ -58,7 +58,7 @@ respond "*" ":palx cons;_lmcons;ccons\r"
5858
expect ":KILL"
5959

6060
# Old Spacewar
61-
respond "*" ":cwd spcwar\r"
61+
cwd "spcwar"
6262
respond "*" ":midas;324 spcwar; war\r"
6363
expect ":KILL"
6464
respond "*" ":midas spcwar; stars\r"
@@ -267,7 +267,7 @@ respond "*" ":midas ptp:_maint;hhtest\r"
267267
expect ":KILL"
268268

269269
# NTS TECO-6
270-
respond "*" ":cwd .teco.\r"
270+
cwd ".teco."
271271
respond "*" ":midas;73\r"
272272
expect "MIDAS"
273273
respond "\n" "TECODM REL_TECO DUMMY\r"

‎build/kl10/processor.tcl

+2-2
Original file line numberDiff line numberDiff line change
@@ -45,7 +45,7 @@ expect ":KILL"
4545
copy_to_klfe "ucode;u1 ram"
4646

4747
# KLDDT
48-
respond "*" ":cwd kldcp\r"
48+
cwd "kldcp"
4949
macro "klddt" "klddt"
5050
respond "*" ":dec sys:link\r"
5151
respond "*" "klddt/go\r"
@@ -143,7 +143,7 @@ respond "*" ":midas;324 sys3;ts 11boot_syseng;11boot\r"
143143
expect ":KILL"
144144
# Note, must be run with symbols loaded.
145145
# Takes IOELEV BIN and KLRUG BIN from the current directory.
146-
respond "*" ":cwd sysbin\r"
146+
cwd "sysbin"
147147
respond "*" "11boot\033\013"
148148
expect ":KILL"
149149
respond "*" ":move sysbin;@ boot11, .;\r"

‎build/ks10/processor.tcl

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ log_progress "ENTERING BUILD SCRIPT: PROCESSOR"
33
# Programs particular to the KS10 processor.
44

55
# KNS10, KS10 console
6-
respond "*" ":cwd kshack\r"
6+
cwd "kshack"
77
respond "*" ":cross\r"
88
respond "*" "FOR21.DAT/PTP,KNS10.PNT/M80/OCT/CRF/EQ:PASS2:SCECOD=CONDEF.M80,HCORE.M80,CMDS.M80,SUBRTN.M80,DR.M80,MSG.M80,STORE.M80\r"
99
expect "Core used"

‎build/lisp.tcl

+2-2
Original file line numberDiff line numberDiff line change
@@ -787,7 +787,7 @@ respond "UKBD" "(quit)"
787787
expect ":KILL"
788788

789789
# Lisp Logo
790-
respond "*" ":cwd llogo\r"
790+
cwd "llogo"
791791
respond "*" ":complr\r"
792792
respond "_" "germ\r"
793793
respond "_" "ioc\r"
@@ -835,7 +835,7 @@ respond "_" "\032"
835835
type ":kill\r"
836836

837837
# 2500 microcode
838-
respond "*" ":cwd minsky\r"
838+
cwd "minsky"
839839
respond "*" "lisp\013"
840840
respond "Alloc?" "n\r"
841841
respond "*" "(setq gc-overflow '(lambda (x) t))"

‎build/misc.tcl

+31-32
Original file line numberDiff line numberDiff line change
@@ -466,7 +466,7 @@ respond "*" ":midas sys3; ts mmodem_gz; mmodem\r"
466466
expect ":KILL"
467467

468468
# Compile ADVENT and dump it out with DECUUO.
469-
respond "*" ":cwd games\r"
469+
cwd "games"
470470
respond "*" ":dec sys:f40\r"
471471
respond "*" "advent=advent\r"
472472
expect "CORE USED"
@@ -482,7 +482,7 @@ respond "*" ":pdump sys3; ts advent\r"
482482
respond "*" ":kill\r"
483483

484484
# 350-point ADVENT
485-
respond "*" ":cwd games\r"
485+
cwd "games"
486486
respond "*" ":dec sys:f40\r"
487487
respond "*" "adv3sr=adv3sr\r"
488488
respond "*" "adv3sb=adv3sb\r"
@@ -502,7 +502,7 @@ respond "*" ":pdump games; ts adv350\r"
502502
respond "*" ":kill\r"
503503

504504
# 448-point ADVENT
505-
respond "*" ":cwd games\r"
505+
cwd "games"
506506
respond "*" ":dec sys:f40\r"
507507
respond "*" "adv4ma=adv4ma\r"
508508
respond "*" "adv4su=adv4su\r"
@@ -522,7 +522,7 @@ respond "*" ":pdump games; ts adv448\r"
522522
respond "*" ":kill\r"
523523

524524
# TREK
525-
respond "*" ":cwd games\r"
525+
cwd "games"
526526
respond "*" ":dec sys:f40\r"
527527
respond "*" "trek=trek\r"
528528
expect "CORE USED"
@@ -574,7 +574,7 @@ respond "*" ":midas sys1;ts wumpus_games; wumpus\r"
574574
expect ":KILL"
575575

576576
# Jotto
577-
respond "*" ":cwd games\r"
577+
cwd "games"
578578
respond "*" ":midas jotto\r"
579579
expect ":KILL"
580580
respond "*" ":job jotto\r"
@@ -614,7 +614,7 @@ expect ":KILL"
614614
respond "*" ":link sys1;ts %,sys1;ts who%\r"
615615

616616
# MACRO-10
617-
respond "*" ":cwd decsys\r"
617+
cwd "decsys"
618618
respond "*" ":dec sys:macro\r"
619619
respond "*" "macro=macro\r"
620620
expect "CORE USED"
@@ -642,7 +642,7 @@ respond "*" ":pdump sys2; ts macro\r"
642642
respond "*" ":kill\r"
643643

644644
# MACSYM and MONSYM universal files.
645-
respond "*" ":cwd decsys\r"
645+
cwd "decsys"
646646
macro "macsym.unv" "macsym.mac"
647647
macro "monsym.unv" "monsym.mac"
648648

@@ -664,11 +664,11 @@ respond "*" ":midas 11logo;ts palx_rms;palx 143\r"
664664
expect ":KILL"
665665

666666
# Phil Budne's PALX Game of Life.
667-
respond "*" ":cwd budd\r"
667+
cwd "budd"
668668
respond "*" ":palx live palx\r"
669669

670670
# MACN11, pdp-11 cross assembler
671-
respond "*" ":cwd sysen3\r"
671+
cwd "sysen3"
672672
macro "macn11" "macn11.hdr,macn11.mac"
673673
respond "*" ":dec sys:loader\r"
674674
respond "*" "macn11/g\r"
@@ -984,7 +984,7 @@ respond "*" ":midas kcc;ts 20xcsv_20xcsv\r"
984984
expect ":KILL"
985985

986986
# Run GETSYM to get all monitor symbols.
987-
respond "*" ":cwd kcc\r"
987+
cwd "kcc"
988988
respond "*" ":getsym\r"
989989
expect ":KILL"
990990

@@ -1356,7 +1356,7 @@ respond "*" ":pdump c; ts cc\r"
13561356
respond "*" ":kill\r"
13571357

13581358
# CLIB
1359-
respond "*" ":cwd clib\r"
1359+
cwd "clib"
13601360
respond "*" ":midas c10cor cmid\r"
13611361
respond "*" ":midas c10fo cmid\r"
13621362
respond "*" ":midas c10int cmid\r"
@@ -1401,7 +1401,7 @@ expect ":KILL"
14011401
respond "*" ":delete c; \[crel\] 16\r"
14021402

14031403
# CC
1404-
respond "*" ":cwd c\r"
1404+
cwd "c"
14051405
respond "*" ":copy ts cc, ts occ\r"
14061406
respond "*" ":cc cc.>\r"
14071407
expect ":KILL"
@@ -1472,7 +1472,7 @@ expect "Done."
14721472
patch_clib_16
14731473

14741474
# C library for drawing on a TV display.
1475-
respond "*" ":cwd clib\r"
1475+
cwd "clib"
14761476
respond "*" ":cc tv.>\r"
14771477
expect ":KILL"
14781478

@@ -1491,7 +1491,7 @@ respond "*" ":midas sys2; ts otj6_tj6; otj6\r"
14911491
expect ":KILL"
14921492

14931493
# Alan Snyder's R typesetting language.
1494-
respond "*" ":cwd r\r"
1494+
cwd "r"
14951495
respond "*" ":cc rcntrl rdev rexpr rfile rfonts richar ridn rin rin1 rin2\r"
14961496
respond "*" ":cc rits rline rlpt rmain rmisc rout rreadr rreg rreq1 rreq2\r"
14971497
respond "*" ":cc rreq3 rtext rtoken rtrap rvaria rxgp\r"
@@ -1534,7 +1534,7 @@ proc build_c_program {input output {libs {}}} {
15341534
}
15351535

15361536
# OINIT
1537-
respond "*" ":cwd c\r"
1537+
cwd "c"
15381538
build_c_program "sysen2/oinit" "sys3/ts.oinit"
15391539

15401540
# RALP
@@ -1596,7 +1596,7 @@ respond "*" ":midas sys1; ts gtload_syseng; gtload\r"
15961596
expect ":KILL"
15971597

15981598
# RUG, PDP-11 debugger.
1599-
respond "*" ":cwd pdp11\r"
1599+
cwd "pdp11"
16001600
respond "*" ":palx rug\r"
16011601
respond "?" "2\r"
16021602
respond "?" "100000\r"
@@ -1615,13 +1615,13 @@ respond "*" ":palx gt40;_gt40;gtlem\r"
16151615
expect ":KILL"
16161616

16171617
# MINITS
1618-
respond "*" ":cwd mits.s\r"
1618+
cwd "mits.s"
16191619
respond "*" ":palx test_config\r"
16201620
respond ":::" "777\r"
16211621
expect ":KILL"
16221622

16231623
# MINITS boot ROM for an Interlan network interface.
1624-
respond "*" ":cwd mits.b\r"
1624+
cwd "mits.b"
16251625
respond "*" ":palx bootil\r"
16261626
respond "Interlan CSR?" "0\r"
16271627
respond "Chaos address of Interlan board?" "0\r"
@@ -1634,13 +1634,12 @@ respond "Start of temporary data storage?" "150000\r"
16341634
expect ":KILL"
16351635

16361636
# ITS universal file.
1637-
respond "*" ":cwd decsys\r"
1637+
cwd "decsys"
16381638
macro "sits.unv" "sits.mac"
16391639

16401640
# Datacomputer file transfer.
1641-
respond "*" ":cwd mrc\r"
1641+
cwd "mrc"
16421642
macro "dftp" "dftp"
1643-
16441643
respond "*" ":dec sys:link\r"
16451644
respond "*" "dftp/go\r"
16461645
expect "EXIT"
@@ -1673,7 +1672,7 @@ respond "*" ":link sys1; ts mloder, rug; loder bin\r"
16731672
type ":vk\r"
16741673

16751674
# SITS.
1676-
respond "*" ":cwd sits\r"
1675+
cwd "sits"
16771676
respond "*" ":palx sits\r"
16781677
expect ":KILL"
16791678

@@ -1702,12 +1701,12 @@ respond "*" ":palx dired\r"
17021701
expect ":KILL"
17031702

17041703
# TECO for SITS.
1705-
respond "*" ":cwd rjl\r"
1704+
cwd "rjl"
17061705
respond "*" ":palx teco\r"
17071706
expect ":KILL"
17081707

17091708
# SLOGO, 11LOGO for SITS.
1710-
respond "*" ":cwd nlogo\r"
1709+
cwd "nlogo"
17111710
respond "*" ":palx slogo_@slogo\r"
17121711
expect ":KILL"
17131712

@@ -1716,12 +1715,12 @@ respond "*" ":palx hlogo_@hlogo\r"
17161715
expect ":KILL"
17171716

17181717
# ITSCOM, ITS-SITS communication.
1719-
respond "*" ":cwd bee\r"
1718+
cwd "bee"
17201719
respond "*" ":palx itscom\r"
17211720
expect ":KILL"
17221721

17231722
# ITS, SITS file transfer.
1724-
respond "*" ":cwd gld\r"
1723+
cwd "gld"
17251724
respond "*" ":palx its\r"
17261725
expect ":KILL"
17271726

@@ -1730,7 +1729,7 @@ respond "*" ":midas;324 radia;_tortis\r"
17301729
expect ":KILL"
17311730

17321731
# BBN Logo
1733-
respond "*" ":cwd bbn\r"
1732+
cwd "bbn"
17341733
macro "logo" "logo"
17351734
respond "*" ":dec sys:loader\r"
17361735
respond "*" "logo/g\r"
@@ -1751,7 +1750,7 @@ respond "DFLAG=" "1\r"
17511750
expect ":KILL"
17521751

17531752
# NVMIDS, Nova assembler
1754-
respond "*" ":cwd nova\r"
1753+
cwd "nova"
17551754
respond "*" ":midas;73\r"
17561755
expect "MIDAS"
17571756
respond "\n" "TS NVMIDS_NVMIDS >\r"
@@ -1788,21 +1787,21 @@ respond "\n" "TIME MACHIN\r"
17881787
expect ":KILL"
17891788

17901789
# 11LOGO
1791-
respond "*" ":cwd 11logo\r"
1790+
cwd "11logo"
17921791
respond "*" ":palx /H/M/CL BIN,N CREF_SYSTEM,TYI,READ,EVAL,TURTLE,ZEND\r"
17931792
respond "ASSSW=" "0\r"
17941793
expect ":KILL"
17951794

17961795
# Apple II Logo
1797-
respond "*" ":cwd aplogo\r"
1796+
cwd "aplogo"
17981797
respond "*" ":cross\r"
17991798
respond "*" "logo/ptp,logo=logo\r"
18001799
expect "Core used"
18011800
respond "*" "\003"
18021801
respond "*" ":kill\r"
18031802

18041803
# Atari 800 terminal emulator Chameleon by Jack Palevich.
1805-
respond "*" ":cwd atlogo\r"
1804+
cwd "atlogo"
18061805
respond "*" ":cross\r"
18071806
respond "*" "supdup,supdup=supdup/m65\r"
18081807
expect "Core used"
@@ -1855,7 +1854,7 @@ respond "*" ":midas mudsys;ts stink_sysen2;stink 121t\r"
18551854
expect ":KILL"
18561855

18571856
# Move hello world xfiles into an archive.
1858-
respond "*" ":cwd hello\r"
1857+
cwd "hello"
18591858
respond "*" ":move dsk:c xfile, ar:\r"
18601859
respond "*" ":move dsk:clu xfile, ar:\r"
18611860
respond "*" ":move dsk:clu xxfile, ar:\r"

‎build/muddle.tcl

+1-1
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ log_progress "ENTERING BUILD SCRIPT: MUDDLE"
33
mkdir "mudsav"
44

55
proc build_muddle {dir version} {
6-
respond "*" ":cwd $dir\r"
6+
cwd "$dir"
77

88
respond "*" ":xfile mud$version assem\r"
99
expect -timeout 300 "Assembly done!"

‎build/sail.tcl

+4-4
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
log_progress "ENTERING BUILD SCRIPT: SAIL"
22

33
# stktrn
4-
respond "*" ":cwd sail\r"
4+
cwd "sail"
55
respond "*" ":fail stktrn\r"
66

77
# jobdat
@@ -39,7 +39,7 @@ respond "*" ":link sys1; ts pc, datdrw; pc bin\r"
3939
respond "*" ":link sys1; ts scnv, datdrw; scnv bin\r"
4040

4141
# The drawing program needs WL; BOARDS REL
42-
respond "*" ":cwd wl\r"
42+
cwd "wl"
4343
respond "*" ":fail boards\r"
4444
respond ";^C" ";\003"
4545

@@ -50,7 +50,7 @@ respond "SELECTED" ";\003"
5050
respond "*" "\032:kill\r"
5151

5252
# SUDS drawing program
53-
respond "*" ":cwd draw\r"
53+
cwd "draw"
5454
respond "*" ":fail d\r"
5555
respond ";^C" ";\003"
5656
respond "*" "\032:kill\r"
@@ -94,7 +94,7 @@ respond "\n" ":pdump datdrw; lay bin\r"
9494
respond "*" ":kill\r"
9595

9696
# SUDS wirelist program.
97-
respond "*" ":cwd wl\r"
97+
cwd "wl"
9898
respond "*" ":fail wl\r"
9999
respond "*" "wboard\r"
100100
respond "*" "\032:kill\r"

‎build/shrdlu.tcl

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
log_progress "ENTERING BUILD SCRIPT: SHRDLU"
22

3-
respond "*" ":cwd shrdlu\r"
3+
cwd "shrdlu"
44

55
# first, compile all the sources that should be compiled
66

‎build/typeset.tcl

+1-1
Original file line numberDiff line numberDiff line change
@@ -16,5 +16,5 @@ respond "_" "lmdoc;paper_lmdoc;paper\r"
1616
expect ":KILL"
1717

1818
# R manual.
19-
respond "*" ":cwd r\r"
19+
cwd "r"
2020
respond "*" ":r rman.r\r"

0 commit comments

Comments
 (0)
Please sign in to comment.