diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-11-21 07:50:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-11-21 07:50:31 (GMT) |
| commit | 02d514946365467a42f4975cae649d248396f7f5 (patch) | |
| tree | 923d6a3543b6bf80a8731f03d80f266f745b30ba /library | |
| parent | bbc2241167b3c554d930f227cbfd3c7e5497e6c9 (diff) | |
| parent | 3a4b0be0b1835791115d8aeabeffc2ea302f1e98 (diff) | |
| download | tcl-02d514946365467a42f4975cae649d248396f7f5.zip tcl-02d514946365467a42f4975cae649d248396f7f5.tar.gz tcl-02d514946365467a42f4975cae649d248396f7f5.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/init.tcl | 17 | ||||
| -rw-r--r-- | library/manifest.txt | 18 |
2 files changed, 18 insertions, 17 deletions
diff --git a/library/init.tcl b/library/init.tcl index f07ad79..87e12ef 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -798,20 +798,3 @@ proc tcl::CopyDirectory {action src dest} { } 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} { - 0 http 2.9.0 {http http.tcl} - 1 msgcat 1.7.0 {msgcat msgcat.tcl} - 1 opt 0.4.7 {opt optparse.tcl} - 0 platform 1.0.14 {platform platform.tcl} - 0 platform::shell 1.1.4 {platform shell.tcl} - 1 tcltest 2.5.0 {tcltest tcltest.tcl} -} { - if {$isafe && !$safe} continue - package ifneeded $package $version [list source [file join $dir {*}$file]] -} diff --git a/library/manifest.txt b/library/manifest.txt new file mode 100644 index 0000000..11a755a --- /dev/null +++ b/library/manifest.txt @@ -0,0 +1,18 @@ +### +# Package manifest for all Tcl packages included in the /library file system +### +apply {{dir} { + set ::test [info script] + set isafe [interp issafe] + foreach {safe package version file} { + 0 http 2.9.0 {http http.tcl} + 1 msgcat 1.7.0 {msgcat msgcat.tcl} + 1 opt 0.4.7 {opt optparse.tcl} + 0 platform 1.0.14 {platform platform.tcl} + 0 platform::shell 1.1.4 {platform shell.tcl} + 1 tcltest 2.5.0 {tcltest tcltest.tcl} + } { + if {$isafe && !$safe} continue + package ifneeded $package $version [list source [file join $dir {*}$file]] + } +}} $dir |