00001 /* -----------------------------------------------------------------------*/ 00002 /* TITLE:*/ 00003 /* snit2.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 2.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.5 00019 00020 /* Define the snit namespace and save the library directory*/ 00021 00022 namespace ::snit:: { 00023 library = [file dirname [info script]] 00024 } 00025 00026 /* Load the kernel.*/ 00027 source [file join $::snit::library main2.tcl] 00028 00029 /* Load the library of Snit validation types.*/ 00030 source [file join $::snit::library validate.tcl] 00031 00032 package provide snit 2.2.1 00033