Lines Matching defs:package
0 # package.tcl --
4 # for package management.
6 # RCS: @(#) $Id: package.tcl,v 1.23.2.4 2006/09/22 01:26:24 andreas_kupries Exp $
15 # Create the package namespace
64 # This procedure creates a package index in a given directory. The
65 # package index consists of a "pkgIndex.tcl" file whose contents are
66 # a Tcl script that sets up package information with "package require"
72 # code in pkgMkIndex.tcl will cause the package to be
73 # loaded when "package require" is executed, rather
75 # procedure in the package is made.
183 tclLog "package [lindex $pkg 1] matches '$loadPat'"
202 # Stub out the package command so packages can
205 rename package __package_orig
206 proc package {what args} {
213 package unknown tclPkgUnknown
215 # Stub out the unknown command so package can call
257 # we need to track command defined by each package even in
275 foreach ::tcl::x [package names] {
276 if {[package provide $::tcl::x] ne ""} {
350 foreach ::tcl::x [package names] {
351 if {[package provide $::tcl::x] ne ""
354 [list $::tcl::x [package provide $::tcl::x]]
378 tclLog "warning: \"$file\" provides more than one package ($pkgs)"
392 append index "# Tcl package index file, version 1.1\n"
395 append index "# by a \"package unknown\" script. It invokes the\n"
396 append index "# \"package ifneeded\" command to set up package-related\n"
398 append index "# in response to \"package require\" commands. When this\n"
427 # as part of a "package ifneeded" script. It calls "package provide"
428 # to indicate that a package is available, then sets entries in the
429 # auto_index array so that the package's files will be auto-loaded when
433 # dir - Directory containing all the files for this package.
434 # pkg - Name of the package (no version number).
435 # version - Version number for the package, such as 2.1.3.
436 # files - List of files that constitute the package. Each
446 package provide $pkg $version
461 # This procedure provides the default for the "package unknown" function.
462 # It is invoked when a package that's needed can't be found. It scans
465 # the package database. (On the Macintosh we also search for pkgIndex
470 # name - Name of desired package. Not used.
471 # version - Version of desired package. Not used.
513 tclLog "error reading package index file $file: $msg"
532 tclLog "error reading package index file $file: $msg"
574 # This procedure extends the "package unknown" function for MacOSX.
579 # original - original [package unknown] procedure
580 # name - Name of desired package. Not used.
582 # version - Version of desired package. Not used.
616 tclLog "error reading package index file $file: $msg"
660 tclLog "error reading package index file $file: $msg"
678 # This procedure extends the "package unknown" function for Mac.
684 # original - original [package unknown] procedure
685 # name - Name of desired package. Not used.
686 # version - Version of desired package. Not used.
733 # Given a package specification generate a "package ifneeded" statement
734 # for the package, suitable for inclusion in a pkgIndex.tcl file.
755 # An appropriate "package ifneeded" statement for the package.
817 # OK, now everything is good. Generate the package ifneeded statment.
818 set cmdline "package ifneeded $opts(-name) $opts(-version) "