1 #-----------------------------------------------------------------------
9 # Snit's Not Incr Tcl, a simple object system in Pure Tcl.
13 # Copyright (C) 2003-2006 by William H. Duquette
14 # This code is licensed as described in license.txt.
16 #-----------------------------------------------------------------------
18 package require Tcl 8.3
20 # Define the snit namespace and save the library directory
22 namespace eval ::snit:: {
23 set library [file dirname [info script]]
26 # Select the implementation based on the version of the Tcl core
27 # executing this code. For 8.3 we use a backport emulating various
30 if {[package vsatisfies [package provide Tcl] 8.4]} {
31 source [file join $::snit::library main1.tcl]
33 source [file join $::snit::library main1_83.tcl]
34 source [file join $::snit::library snit_tcl83_utils.tcl]
37 # Load the library of Snit validation types.
39 source [file join $::snit::library validate.tcl]
41 package provide snit 1.4.2