1#----------------------------------------------------------------------- 2# TITLE: 3# snit.tcl 4# 5# AUTHOR: 6# Will Duquette 7# 8# DESCRIPTION: 9# Snit's Not Incr Tcl, a simple object system in Pure Tcl. 10# 11# Snit 1.x Loader 12# 13# Copyright (C) 2003-2006 by William H. Duquette 14# This code is licensed as described in license.txt. 15# 16#----------------------------------------------------------------------- 17 18package require Tcl 8.3 19 20# Define the snit namespace and save the library directory 21 22namespace eval ::snit:: { 23 set library [file dirname [info script]] 24} 25 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 28# 8.4 features 29 30if {[package vsatisfies [package provide Tcl] 8.4]} { 31 source [file join $::snit::library main1.tcl] 32} else { 33 source [file join $::snit::library main1_83.tcl] 34 source [file join $::snit::library snit_tcl83_utils.tcl] 35} 36 37# Load the library of Snit validation types. 38 39source [file join $::snit::library validate.tcl] 40 41package provide snit 1.4.2 42