snit.tcl

Go to the documentation of this file.
00001 /* -----------------------------------------------------------------------*/
00002 /*  TITLE:*/
00003 /*  snit.tcl*/
00004 /* */
00005 /*  AUTHOR:*/
00006 /*  Will Duquette*/
00007 /* */
00008 /*  DESCRIPTION:*/
00009 /*        Snit's Not Incr Tcl, a simple object system in Pure Tcl.*/
00010 /* */
00011 /*        Snit 1.x Loader */
00012 /* */
00013 /*        Copyright (C) 2003-2006 by William H. Duquette*/
00014 /*        This code is licensed as described in license.txt.*/
00015 /* */
00016 /* -----------------------------------------------------------------------*/
00017 
00018 package require Tcl 8.3
00019 
00020 /*  Define the snit namespace and save the library directory*/
00021 
00022 namespace ::snit:: {
00023      library =  [file dirname [info script]]
00024 }
00025 
00026 /*  Select the implementation based on the version of the Tcl core*/
00027 /*  executing this code. For 8.3 we use a backport emulating various*/
00028 /*  8.4 features*/
00029 
00030 if {[package vsatisfies [package provide Tcl] 8.4]} {
00031     source [file join $::snit::library main1.tcl]
00032 } else {
00033     source [file join $::snit::library main1_83.tcl]
00034     source [file join $::snit::library snit_tcl83_utils.tcl]
00035 }
00036 
00037 /*  Load the library of Snit validation types.*/
00038 
00039 source [file join $::snit::library validate.tcl]
00040 
00041 package provide snit 1.3.1
00042