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/tcldom2.0/pkgIndex.tcl

Text File | 2001-10-22 | 794 b | 24 lines

# TclDOM package index - hand crafted
#
# $Id: pkgIndex.tcl.in,v 1.1 2000/12/06 12:08:57 balls Exp $

package ifneeded dom::c 2.0 [list load [file join $dir @RELPATH@ libtcldom2.0]]
package ifneeded dom::tcl 2.0 [list source [file join $dir dom.tcl]]
package ifneeded dommap 1.0 [list source [file join $dir dommap.tcl]]
package ifneeded xmlswitch 1.0 [list source [file join $dir xmlswitch.tcl]]

namespace eval ::dom {}

# Requesting the generic dom package loads the C package
# if available, otherwise falls back to the Tcl package.
# The application can tell which it got by examining the
# list of packages loaded (and looking for dom::c or dom::tcl).

package ifneeded dom 2.0 {
    if {[catch {package require dom::c}]} {
    package require dom::tcl
    }
    package provide dom 2.0
}