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
|
# Tcl package index file - handcrafted
#
# $Id: pkgIndex.tcl.in,v 1.13 2003/12/03 20:06:34 balls Exp $
package ifneeded xml::c @VERSION@ [list load [file join $dir @Tclxml_LIB_FILE@]]
package ifneeded xml::tcl @VERSION@ [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]]
# The C parsers are provided through their own packages and indices,
# and thus do not have to be listed here. This index may require them
# in certain places, but does not provide them. This is part of the
# work refactoring the build system of TclXML to create clean
# packages, and not require a jumble (jungle?) of things in one Makefile.
#
#package ifneeded xml::expat @VERSION@ [list load [file join $dir @expat_TCL_LIB_FILE@]]
#package ifneeded xml::xerces 2.0 [list load [file join $dir @xerces_TCL_LIB_FILE@]]
#package ifneeded xml::libxml2 @VERSION@ [list load [file join $dir @TclXML_libxml2_LIB_FILE@]]
namespace eval ::xml {}
# Requesting a specific package means we want it to be the default parser class.
# This is achieved by loading it last.
# expat and libxml2 packages must have xml::c package loaded
package ifneeded expat @VERSION@ {
package require xml::c @VERSION@
package require xmldefs
package require xml::tclparser @VERSION@
catch {package require xml::libxml2 @VERSION@}
package require xml::expat @VERSION@
package provide expat @VERSION@
}
package ifneeded libxml2 @VERSION@ {
package require xml::c @VERSION@
package require xmldefs
package require xml::tclparser @VERSION@
catch {package require xml::expat @VERSION@}
package require xml::libxml2 @VERSION@
package provide libxml2 @VERSION@
}
# tclparser works with either xml::c or xml::tcl
package ifneeded tclparser @VERSION@ {
if {[catch {package require xml::c @VERSION@}]} {
# No point in trying to load expat or libxml2
package require xml::tcl @VERSION@
package require xmldefs
package require xml::tclparser @VERSION@
} else {
package require xmldefs
catch {package require xml::expat @VERSION@}
catch {package require xml::libxml2 @VERSION@}
package require xml::tclparser
}
package provide tclparser @VERSION@
}
# use tcl only (mainly for testing)
package ifneeded puretclparser @VERSION@ {
package require xml::tcl @VERSION@
package require xmldefs
package require xml::tclparser @VERSION@
package provide puretclparser @VERSION@
}
# Requesting the generic package leaves the choice of default parser automatic
package ifneeded xml @VERSION@ {
if {[catch {package require xml::c @VERSION@}]} {
package require xml::tcl @VERSION@
package require xmldefs
# Only choice is tclparser
package require xml::tclparser @VERSION@
} else {
package require xmldefs
package require xml::tclparser @VERSION@
# libxml2 is favoured since it provides more features
catch {package require xml::expat @VERSION@}
catch {package require xml::libxml2 @VERSION@}
}
package provide xml @VERSION@
}
if {[info tclversion] <= 8.0} {
package ifneeded sgml 1.9 [list source [file join $dir sgml-8.0.tcl]]
package ifneeded xmldefs @VERSION@ [list source [file join $dir xml-8.0.tcl]]
package ifneeded xml::tclparser @VERSION@ [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 @VERSION@ [list source [file join $dir xml-8.1.tcl]]
package ifneeded xml::tclparser @VERSION@ [list source [file join $dir tclparser-8.1.tcl]]
}
|
