Import Tcl 8.6.11

This commit is contained in:
Steve Dower
2021-03-30 00:51:39 +01:00
parent 3bb8e3e086
commit 1aadb2455c
923 changed files with 79104 additions and 62616 deletions

View File

@@ -0,0 +1,3 @@
proc report1 {args} {
return ok1
}

View File

@@ -0,0 +1,5 @@
proc HeresPackage1 {args} {
return OK1
}
package provide SafeTestPackage1 1.2.3

View File

@@ -0,0 +1,11 @@
# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# by a "package unknown" script. It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands. When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
package ifneeded SafeTestPackage1 1.2.3 [list source [file join $dir package1.tcl]]

View File

@@ -0,0 +1,9 @@
# Tcl autoload index file, version 2.0
# This file is generated by the "auto_mkindex" command
# and sourced to set up indexing information for one or
# more commands. Typically each line is a command that
# sets an element in the auto_index array, where the
# element name is the name of a command and the value is
# a script that loads the command.
set auto_index(report1) [list source [file join $dir file1.tcl]]

View File

@@ -0,0 +1,3 @@
proc report2 {args} {
return ok2
}

View File

@@ -0,0 +1,5 @@
proc HeresPackage2 {args} {
return OK2
}
package provide SafeTestPackage2 2.3.4

View File

@@ -0,0 +1,11 @@
# Tcl package index file, version 1.1
# This file is generated by the "pkg_mkIndex" command
# and sourced either when an application starts up or
# by a "package unknown" script. It invokes the
# "package ifneeded" command to set up package-related
# information so that packages will be loaded automatically
# in response to "package require" commands. When this
# script is sourced, the variable $dir must contain the
# full path name of this file's directory.
package ifneeded SafeTestPackage2 2.3.4 [list source [file join $dir package2.tcl]]

View File

@@ -0,0 +1,9 @@
# Tcl autoload index file, version 2.0
# This file is generated by the "auto_mkindex" command
# and sourced to set up indexing information for one or
# more commands. Typically each line is a command that
# sets an element in the auto_index array, where the
# element name is the name of a command and the value is
# a script that loads the command.
set auto_index(report2) [list source [file join $dir file2.tcl]]

View File

@@ -0,0 +1,5 @@
namespace eval mod1::test1 {}
proc mod1::test1::try1 args {
return res1
}

View File

@@ -0,0 +1,5 @@
namespace eval mod2::test2 {}
proc mod2::test2::try2 args {
return res2
}

View File

@@ -0,0 +1,5 @@
namespace eval test0 {}
proc test0::try0 args {
return res0
}