/usr/lib/Tclxml3.2/pkgIndex.tcl is in tclxml 3.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 | # TclXML combo package index file - handcrafted
#
# $Id: pkgIndex.tcl.in,v 1.13 2003/12/03 20:06:34 balls Exp $
namespace eval ::xml {
variable _init 0
}
namespace eval ::xml::libxml2 {
variable _init 0
}
namespace eval ::dom {
variable _init 0
}
namespace eval ::dom::libxml2 {
variable _init 0
}
namespace eval ::xslt {
variable _init 0
}
namespace eval ::xml {
variable pkginit
if {![info exists pkginit]} {
set pkginit 0
}
proc pkgload {dir {binary 0}} {
variable pkginit
if {$pkginit} {return {}}
namespace eval :: "
package require xmldefs 3.2
package require xml::tcl 3.2
if {\[catch {load \[file join $dir libTclxml3.2.so\] Tclxml}\]} {
# Mac OS X frameworks are different
if {\[catch {load \[file join $dir .. .. Tclxml\] Tclxml}\]} {
# Unable to load binary implmentation,
# just use pure-Tcl implmentation instead
if {$binary} {
return -code error \"unable to load shared library\"
}
} else {
set ::xml::libxml2::_init 1
set ::dom::libxml2::_init 1
set ::xslt::_init 1
source \[file join $dir tcldom-libxml2.tcl\]
source \[file join $dir tclxslt-libxslt.tcl\]
}
} else {
set ::xml::libxml2::_init 1
set ::dom::libxml2::_init 1
set ::xslt::_init 1
source \[file join $dir tcldom-libxml2.tcl\]
source \[file join $dir tclxslt-libxslt.tcl\]
}
package require xml::tclparser 3.2
package provide tclparser 3.2
package provide xml::libxml2 3.2
package provide xml 3.2
package provide dom 3.2
package provide dom::libxml2 3.2
package provide xslt 3.2
package provide xslt::libxslt 3.2
set pkginit 1
"
}
}
package ifneeded xml::tcl 3.2 [list source [file join $dir xml__tcl.tcl]]
package ifneeded sgmlparser 1.1 [list source [file join $dir sgmlparser.tcl]]
package ifneeded xpath 1.0 [list source [file join $dir xpath.tcl]]
package ifneeded xmldep 1.0 [list source [file join $dir xmldep.tcl]]
# Requesting a specific package means we want it to be the default parser class.
package ifneeded xml::libxml2 3.2 "
::xml::pkgload $dir 1
::xml::parser default libxml2
"
# tclparser works with either xml::c or xml::tcl
package ifneeded tclparser 3.2 "
::xml::pkgload $dir 0
::xml::parser default tclparser
package provide tclparser 3.2
"
# use tcl only (mainly for testing)
package ifneeded puretclparser 3.2 "
package require xml::tcl 3.2
package require xmldefs
package require xml::tclparser 3.2
package provide puretclparser 3.2
"
# Requesting the generic package leaves the choice of default parser automatic
package ifneeded xml 3.2 "
::xml::pkgload $dir 0
"
package ifneeded dom 3.2 "
::xml::pkgload $dir 0
"
package ifneeded dom::libxml2 3.2 "
::xml::pkgload $dir 1
"
package ifneeded xslt 3.2 "
::xml::pkgload $dir 1
"
package ifneeded xslt::libxslt 3.2 "
::xml::pkgload $dir 1
"
package ifneeded xmlswitch 3.2 [list source [file join $dir xmlswitch.tcl]]
package ifneeded xslt::cache 3.2 [list source [file join $dir xsltcache.tcl]]
package ifneeded xslt::utilities 3.2 [list source [file join $dir utilities.tcl]]
package ifneeded xslt::process 1.1 [list source [file join $dir process.tcl]]
package ifneeded xslt::resources 1.3 [list source [file join $dir resources.tcl]]
if {[info tclversion] <= 8.0} {
package ifneeded sgml 1.9 [list source [file join $dir sgml-8.0.tcl]]
package ifneeded xmldefs 3.2 [list source [file join $dir xml-8.0.tcl]]
package ifneeded xml::tclparser 3.2 [list source [file join $dir tclparser-8.0.tcl]]
} else {
package ifneeded sgml 1.9 [list source [file join $dir sgml-8.1.tcl]]
package ifneeded xmldefs 3.2 [list source [file join $dir xml-8.1.tcl]]
package ifneeded xml::tclparser 3.2 [list source [file join $dir tclparser-8.1.tcl]]
}
|