Tcl Source Code

Check-in [8bbc67839c]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Undo TIP #452 change to library/init.tcl: It depends on tcltest, which shouldn't be there yet
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-452
Files: files | file ages | folders
SHA3-256: 8bbc67839c03348c597bc76d8a790c68bc23fda0b79db147e4fce4a6dbac8367
User & Date: jan.nijtmans 2018-09-16 15:14:28
Context
2018-09-21
13:12
Restore the core of the changes to init.tcl; TIP *specifies* that they're OK. check-in: a6272a9779 user: dkf tags: tip-452
2018-09-16
15:14
Undo TIP #452 change to library/init.tcl: It depends on tcltest, which shouldn't be there yet check-in: 8bbc67839c user: jan.nijtmans tags: tip-452
15:09
merge 8.7 check-in: 5dceea74b5 user: jan.nijtmans tags: tip-452
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/init.tcl.

795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
	if {[file tail $s] ni {. ..}} {
	    file copy -force -- $s [file join $dest [file tail $s]]
	}
    }
    return
}

##
## TIP 452 -- start of addition
##
namespace eval ::tcltest:: {}
proc ::tcltest::seam {action seamName body} {
    if {![string equal $action "define"]} {
        return -code error -errorcode [list tcltest seam UNKACT $action] "Uknown action: '$action' -- must be 'define'"
    }
    return [uplevel 1 $body]
}
namespace eval ::tcltest:: {
       namespace seam
}
##
## TIP 452 -- end of addition
##

set isafe [interp issafe]
###
# Package manifest for all Tcl packages included in the /library file system
###
set isafe [interp issafe]
set dir [file dirname [info script]]
foreach {safe package version file} {






<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<
<







795
796
797
798
799
800
801

















802
803
804
805
806
807
808
	if {[file tail $s] ni {. ..}} {
	    file copy -force -- $s [file join $dest [file tail $s]]
	}
    }
    return
}


















set isafe [interp issafe]
###
# Package manifest for all Tcl packages included in the /library file system
###
set isafe [interp issafe]
set dir [file dirname [info script]]
foreach {safe package version file} {