Skip to content

Commit fd253d8

Browse files
author
jan.nijtmans
committed
Merge 8.6
2 parents ebff38e + a4abf50 commit fd253d8

File tree

4 files changed

+93
-93
lines changed

4 files changed

+93
-93
lines changed

doc/FileSystem.3

+2-2
Original file line numberDiff line numberDiff line change
@@ -1340,11 +1340,11 @@ is considered to be owned by the filesystem (not by Tcl's core), but
13401340
should be given a reference count for Tcl. Tcl will use the contents of the
13411341
list and then decrement that reference count. This allows filesystems to
13421342
choose whether they actually want to retain a
1343-
.QW "main list"
1343+
.QW "global list"
13441344
of volumes
13451345
or not (if not, they generate the list on the fly and pass it to Tcl
13461346
with a reference count of 1 and then forget about the list, if yes, then
1347-
they simply increment the reference count of their main list and pass it
1347+
they simply increment the reference count of their global list and pass it
13481348
to Tcl which will copy the contents and then decrement the count back
13491349
to where it was).
13501350
.PP

doc/Limit.3

+1-1
Original file line numberDiff line numberDiff line change
@@ -116,7 +116,7 @@ execution of the callbacks is unspecified) execution in the limited
116116
interpreter is stopped by raising an error and setting a flag that
117117
prevents the \fBcatch\fR command in that interpreter from trapping
118118
that error. It is up to the context that started execution in that
119-
interpreter (typically a parent interpreter) to handle the error.
119+
interpreter (typically the main interpreter) to handle the error.
120120
.SH "LIMIT CHECKING API"
121121
.PP
122122
To check the resource limits for an interpreter, call

pkgs/README

+1-1
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ needs to conform to the following conventions.
1717
"configure". When the program "configure" is run, it should generate
1818
a file "Makefile" in the current working directory. The "configure"
1919
program should be able to accept as command line arguments all the
20-
arguments that can be passed to the master unix/configure program. It
20+
arguments that can be passed to the top unix/configure program. It
2121
should also accept the --with-tcl= and --with-tclinclude= options in
2222
the conventional way.
2323

tests/winDde.test

+89-89
Original file line numberDiff line numberDiff line change
@@ -279,19 +279,19 @@ test winDde-6.6 {DDE remote servername collision force} -constraints {dde stdio}
279279

280280
# -------------------------------------------------------------------------
281281

282-
test winDde-7.1 {Load DDE in slave interpreter} -constraints dde -setup {
283-
interp create slave
282+
test winDde-7.1 {Load DDE in child interpreter} -constraints dde -setup {
283+
interp create child
284284
} -body {
285-
slave eval [list load $::ddelib Dde]
286-
slave eval [list dde servername -- dde-interp-7.1]
285+
child eval [list load $::ddelib Dde]
286+
child eval [list dde servername -- dde-interp-7.1]
287287
} -cleanup {
288-
interp delete slave
288+
interp delete child
289289
} -result {dde-interp-7.1}
290-
test winDde-7.2 {DDE slave cleanup} -constraints dde -setup {
291-
interp create slave
292-
slave eval [list load $::ddelib Dde]
293-
slave eval [list dde servername -- dde-interp-7.5]
294-
interp delete slave
290+
test winDde-7.2 {DDE child cleanup} -constraints dde -setup {
291+
interp create child
292+
child eval [list load $::ddelib Dde]
293+
child eval [list dde servername -- dde-interp-7.5]
294+
interp delete child
295295
} -body {
296296
dde services TclEval {}
297297
set s [dde services TclEval {}]
@@ -300,128 +300,128 @@ test winDde-7.2 {DDE slave cleanup} -constraints dde -setup {
300300
set s
301301
}
302302
} -result {}
303-
test winDde-7.3 {DDE present in slave interp} -constraints dde -setup {
304-
interp create slave
305-
slave eval [list load $::ddelib Dde]
306-
slave eval [list dde servername -- dde-interp-7.3]
303+
test winDde-7.3 {DDE present in child interp} -constraints dde -setup {
304+
interp create child
305+
child eval [list load $::ddelib Dde]
306+
child eval [list dde servername -- dde-interp-7.3]
307307
} -body {
308308
dde services TclEval dde-interp-7.3
309309
} -cleanup {
310-
interp delete slave
310+
interp delete child
311311
} -result {{TclEval dde-interp-7.3}}
312312
test winDde-7.4 {interp name collision with -force} -constraints dde -setup {
313-
interp create slave
314-
slave eval [list load $::ddelib Dde]
315-
slave eval [list dde servername -- dde-interp-7.4]
313+
interp create child
314+
child eval [list load $::ddelib Dde]
315+
child eval [list dde servername -- dde-interp-7.4]
316316
} -body {
317317
dde servername -force -- dde-interp-7.4
318318
} -cleanup {
319-
interp delete slave
319+
interp delete child
320320
} -result {dde-interp-7.4}
321321
test winDde-7.5 {interp name collision without -force} -constraints dde -setup {
322-
interp create slave
323-
slave eval [list load $::ddelib Dde]
324-
slave eval [list dde servername -- dde-interp-7.5]
322+
interp create child
323+
child eval [list load $::ddelib Dde]
324+
child eval [list dde servername -- dde-interp-7.5]
325325
} -body {
326326
dde servername -- dde-interp-7.5
327327
} -cleanup {
328-
interp delete slave
328+
interp delete child
329329
} -result "dde-interp-7.5 #2"
330330

331331
# -------------------------------------------------------------------------
332332

333333
test winDde-8.1 {Safe DDE load} -constraints dde -setup {
334-
interp create -safe slave
335-
slave invokehidden load $::ddelib Dde
334+
interp create -safe child
335+
child invokehidden load $::ddelib Dde
336336
} -body {
337-
slave eval dde servername slave
337+
child eval dde servername child
338338
} -cleanup {
339-
interp delete slave
339+
interp delete child
340340
} -returnCodes error -result {invalid command name "dde"}
341341
test winDde-8.2 {Safe DDE set servername} -constraints dde -setup {
342-
interp create -safe slave
343-
slave invokehidden load $::ddelib Dde
342+
interp create -safe child
343+
child invokehidden load $::ddelib Dde
344344
} -body {
345-
slave invokehidden dde servername slave
346-
} -cleanup {interp delete slave} -result {slave}
345+
child invokehidden dde servername child
346+
} -cleanup {interp delete child} -result {child}
347347
test winDde-8.3 {Safe DDE check handler required for eval} -constraints dde -setup {
348-
interp create -safe slave
349-
slave invokehidden load $::ddelib Dde
350-
slave invokehidden dde servername slave
348+
interp create -safe child
349+
child invokehidden load $::ddelib Dde
350+
child invokehidden dde servername child
351351
} -body {
352-
catch {dde eval slave set a 1} msg
353-
} -cleanup {interp delete slave} -result {1}
352+
catch {dde eval child set a 1} msg
353+
} -cleanup {interp delete child} -result {1}
354354
test winDde-8.4 {Safe DDE check that execute is denied} -constraints dde -setup {
355-
interp create -safe slave
356-
slave invokehidden load $::ddelib Dde
357-
slave invokehidden dde servername slave
355+
interp create -safe child
356+
child invokehidden load $::ddelib Dde
357+
child invokehidden dde servername child
358358
} -body {
359-
slave eval set a 1
360-
dde execute TclEval slave {set a 2}
361-
slave eval set a
362-
} -cleanup {interp delete slave} -result 1
359+
child eval set a 1
360+
dde execute TclEval child {set a 2}
361+
child eval set a
362+
} -cleanup {interp delete child} -result 1
363363
test winDde-8.5 {Safe DDE check that request is denied} -constraints dde -setup {
364-
interp create -safe slave
365-
slave invokehidden load $::ddelib Dde
366-
slave invokehidden dde servername slave
364+
interp create -safe child
365+
child invokehidden load $::ddelib Dde
366+
child invokehidden dde servername child
367367
} -body {
368-
slave eval set a 1
369-
dde request TclEval slave a
368+
child eval set a 1
369+
dde request TclEval child a
370370
} -cleanup {
371-
interp delete slave
371+
interp delete child
372372
} -returnCodes error -result {remote server cannot handle this command}
373373
test winDde-8.6 {Safe DDE assign handler procedure} -constraints dde -setup {
374-
interp create -safe slave
375-
slave invokehidden load $::ddelib Dde
376-
slave eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
374+
interp create -safe child
375+
child invokehidden load $::ddelib Dde
376+
child eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
377377
} -body {
378-
slave invokehidden dde servername -handler DDEACCEPT slave
379-
} -cleanup {interp delete slave} -result slave
378+
child invokehidden dde servername -handler DDEACCEPT child
379+
} -cleanup {interp delete child} -result child
380380
test winDde-8.7 {Safe DDE check simple command} -constraints dde -setup {
381-
interp create -safe slave
382-
slave invokehidden load $::ddelib Dde
383-
slave eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
384-
slave invokehidden dde servername -handler DDEACCEPT slave
381+
interp create -safe child
382+
child invokehidden load $::ddelib Dde
383+
child eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
384+
child invokehidden dde servername -handler DDEACCEPT child
385385
} -body {
386-
dde eval slave set x 1
387-
} -cleanup {interp delete slave} -result {set x 1}
386+
dde eval child set x 1
387+
} -cleanup {interp delete child} -result {set x 1}
388388
test winDde-8.8 {Safe DDE check non-list command} -constraints dde -setup {
389-
interp create -safe slave
390-
slave invokehidden load $::ddelib Dde
391-
slave eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
392-
slave invokehidden dde servername -handler DDEACCEPT slave
389+
interp create -safe child
390+
child invokehidden load $::ddelib Dde
391+
child eval {proc DDEACCEPT {cmd} {set ::DDECMD $cmd}}
392+
child invokehidden dde servername -handler DDEACCEPT child
393393
} -body {
394394
set s "c:\\Program Files\\Microsoft Visual Studio\\"
395-
dde eval slave $s
396-
string equal [slave eval set DDECMD] $s
397-
} -cleanup {interp delete slave} -result 1
395+
dde eval child $s
396+
string equal [child eval set DDECMD] $s
397+
} -cleanup {interp delete child} -result 1
398398
test winDde-8.9 {Safe DDE check command evaluation} -constraints dde -setup {
399-
interp create -safe slave
400-
slave invokehidden load $::ddelib Dde
401-
slave eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
402-
slave invokehidden dde servername -handler DDEACCEPT slave
399+
interp create -safe child
400+
child invokehidden load $::ddelib Dde
401+
child eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
402+
child invokehidden dde servername -handler DDEACCEPT child
403403
} -body {
404-
dde eval slave set \xe1 1
405-
slave eval set \xe1
406-
} -cleanup {interp delete slave} -result 1
404+
dde eval child set \xe1 1
405+
child eval set \xe1
406+
} -cleanup {interp delete child} -result 1
407407
test winDde-8.10 {Safe DDE check command evaluation (2)} -constraints dde -setup {
408-
interp create -safe slave
409-
slave invokehidden load $::ddelib Dde
410-
slave eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
411-
slave invokehidden dde servername -handler DDEACCEPT slave
408+
interp create -safe child
409+
child invokehidden load $::ddelib Dde
410+
child eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
411+
child invokehidden dde servername -handler DDEACCEPT child
412412
} -body {
413-
dde eval slave [list set x 1]
414-
slave eval set x
415-
} -cleanup {interp delete slave} -result 1
413+
dde eval child [list set x 1]
414+
child eval set x
415+
} -cleanup {interp delete child} -result 1
416416
test winDde-8.11 {Safe DDE check command evaluation (3)} -constraints dde -setup {
417-
interp create -safe slave
418-
slave invokehidden load $::ddelib Dde
419-
slave eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
420-
slave invokehidden dde servername -handler DDEACCEPT slave
417+
interp create -safe child
418+
child invokehidden load $::ddelib Dde
419+
child eval {proc DDEACCEPT {cmd} {set ::DDECMD [uplevel \#0 $cmd]}}
420+
child invokehidden dde servername -handler DDEACCEPT child
421421
} -body {
422-
dde eval slave [list [list set x 1]]
423-
slave eval set x
424-
} -cleanup {interp delete slave} -returnCodes error -result {invalid command name "set x 1"}
422+
dde eval child [list [list set x 1]]
423+
child eval set x
424+
} -cleanup {interp delete child} -returnCodes error -result {invalid command name "set x 1"}
425425

426426
# -------------------------------------------------------------------------
427427

@@ -481,7 +481,7 @@ test winDde-9.4 {External safe DDE check null data passing} -constraints {dde st
481481
# -------------------------------------------------------------------------
482482

483483
#cleanup
484-
#catch {interp delete $slave}; # ensure we clean up the slave.
484+
#catch {interp delete $child}; # ensure we clean up the child.
485485
file delete -force $::scriptName
486486
::tcltest::cleanupTests
487487
return

0 commit comments

Comments
 (0)