home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activetcltk / ActiveTcl8.3.4.1-8.win32-ix86.exe / ActiveTcl8.3.4.1-win32-ix86 / lib / tclxml2.0 / pkgIndex.tcl next >
Encoding:
Text File  |  2001-10-22  |  2.9 KB  |  89 lines
  1. # Tcl package index file - handcrafted
  2. #
  3. # $Id: pkgIndex.tcl.in,v 1.8 2001/02/10 11:13:48 balls Exp $
  4.  
  5. package ifneeded xml::c 2.0 [list load [file join $dir .. .. bin tclxml20.dll]]
  6. package ifneeded xml::tcl 2.0 [list source [file join $dir xml__tcl.tcl]]
  7. package ifneeded xml::expat 2.0 [list load [file join $dir .. .. bin ]]
  8. #package ifneeded xml::xerces 2.0 [list load [file join $dir .. .. bin ]]
  9. package ifneeded sgmlparser 1.0 [list source [file join $dir sgmlparser.tcl]]
  10.  
  11. package ifneeded xpath 1.0 [list source [file join $dir xpath.tcl]]
  12. package ifneeded xmldep 1.0 [list source [file join $dir xmldep.tcl]]
  13.  
  14. namespace eval ::xml {}
  15.  
  16. # Requesting a specific package means we want it to be the default parser class.
  17. # This is achieved by loading it last.
  18.  
  19. # expat and xerces packages must have xml::c package loaded
  20. package ifneeded expat 2.0 {
  21.     package require xml::c
  22.     package require xmldefs
  23.     package require xml::tclparser
  24.     catch {package require xml::xerces}
  25.     package require xml::expat 2.0
  26.     package provide expat 2.0
  27. }
  28. package ifneeded xerces 2.0 {
  29.     package require xml::c
  30.     package require xmldefs
  31.     package require xml::tclparser
  32.     catch {package require xml::expat}
  33.     package require xml::xerces 2.0
  34.     package provide xerces 2.0
  35. }
  36.  
  37. # tclparser works with either xml::c or xml::tcl
  38. package ifneeded tclparser 2.0 {
  39.     if {[catch {package require xml::c}]} {
  40.     # No point in trying to load expat or xerces
  41.     package require xml::tcl
  42.     package require xmldefs
  43.     package require xml::tclparser
  44.     } else {
  45.     package require xmldefs
  46.     catch {package require xml::expat}
  47.     catch {package require xml::xerces}
  48.     package require xml::tclparser
  49.     }
  50.     package provide tclparser 2.0
  51. }
  52.  
  53. # use tcl only (mainly for testing)
  54. package ifneeded puretclparser 2.0 {
  55.     package require xml::tcl
  56.     package require xmldefs
  57.     package require xml::tclparser
  58.     package provide puretclparser 2.0
  59. }                                        
  60.  
  61. # Requesting the generic package leaves the choice of default parser automatic
  62.  
  63. package ifneeded xml 2.0 {
  64.     if {[catch {package require xml::c}]} {
  65.     package require xml::tcl
  66.     package require xmldefs
  67.     # Only choice is tclparser
  68.     package require xml::tclparser
  69.     } else {
  70.     package require xmldefs
  71.     package require xml::tclparser
  72.     catch {package require xml::expat 2.0}
  73.     catch {package require xml::xerces 2.0}
  74.     }
  75.     package provide xml 2.0
  76. }
  77.  
  78. if {[info tclversion] <= 8.0} {
  79.     package ifneeded sgml 1.8 [list source [file join $dir sgml-8.0.tcl]]
  80.     package ifneeded xmldefs 2.0 [list source [file join $dir xml-8.0.tcl]]
  81.     package ifneeded xml::tclparser 2.0 [list source [file join $dir tclparser-8.0.tcl]]
  82. } else {
  83.     package ifneeded sgml 1.8 [list source [file join $dir sgml-8.1.tcl]]
  84.     package ifneeded xmldefs 2.0 [list source [file join $dir xml-8.1.tcl]]
  85.     package ifneeded xml::tclparser 2.0 [list source [file join $dir tclparser-8.1.tcl]]
  86. }
  87.  
  88.  
  89.