Import Tcl 8.6.11
This commit is contained in:
3
tests/auto0/auto1/file1.tcl
Normal file
3
tests/auto0/auto1/file1.tcl
Normal file
@@ -0,0 +1,3 @@
|
||||
proc report1 {args} {
|
||||
return ok1
|
||||
}
|
||||
5
tests/auto0/auto1/package1.tcl
Normal file
5
tests/auto0/auto1/package1.tcl
Normal file
@@ -0,0 +1,5 @@
|
||||
proc HeresPackage1 {args} {
|
||||
return OK1
|
||||
}
|
||||
|
||||
package provide SafeTestPackage1 1.2.3
|
||||
11
tests/auto0/auto1/pkgIndex.tcl
Normal file
11
tests/auto0/auto1/pkgIndex.tcl
Normal 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]]
|
||||
9
tests/auto0/auto1/tclIndex
Normal file
9
tests/auto0/auto1/tclIndex
Normal 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]]
|
||||
3
tests/auto0/auto2/file2.tcl
Normal file
3
tests/auto0/auto2/file2.tcl
Normal file
@@ -0,0 +1,3 @@
|
||||
proc report2 {args} {
|
||||
return ok2
|
||||
}
|
||||
5
tests/auto0/auto2/package2.tcl
Normal file
5
tests/auto0/auto2/package2.tcl
Normal file
@@ -0,0 +1,5 @@
|
||||
proc HeresPackage2 {args} {
|
||||
return OK2
|
||||
}
|
||||
|
||||
package provide SafeTestPackage2 2.3.4
|
||||
11
tests/auto0/auto2/pkgIndex.tcl
Normal file
11
tests/auto0/auto2/pkgIndex.tcl
Normal 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]]
|
||||
9
tests/auto0/auto2/tclIndex
Normal file
9
tests/auto0/auto2/tclIndex
Normal 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]]
|
||||
5
tests/auto0/modules/mod1/test1-1.0.tm
Normal file
5
tests/auto0/modules/mod1/test1-1.0.tm
Normal file
@@ -0,0 +1,5 @@
|
||||
namespace eval mod1::test1 {}
|
||||
|
||||
proc mod1::test1::try1 args {
|
||||
return res1
|
||||
}
|
||||
5
tests/auto0/modules/mod2/test2-2.0.tm
Normal file
5
tests/auto0/modules/mod2/test2-2.0.tm
Normal file
@@ -0,0 +1,5 @@
|
||||
namespace eval mod2::test2 {}
|
||||
|
||||
proc mod2::test2::try2 args {
|
||||
return res2
|
||||
}
|
||||
5
tests/auto0/modules/test0-0.5.tm
Normal file
5
tests/auto0/modules/test0-0.5.tm
Normal file
@@ -0,0 +1,5 @@
|
||||
namespace eval test0 {}
|
||||
|
||||
proc test0::try0 args {
|
||||
return res0
|
||||
}
|
||||
Reference in New Issue
Block a user