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]]
|
||||
Reference in New Issue
Block a user