snit/snit.tcl

   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
  18 package require Tcl 8.3
  19
  20 # Define the snit namespace and save the library directory
  21
  22 namespace 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
  30 if {[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
  39 source [file join $::snit::library validate.tcl]
  40
  41 package provide snit 1.4.2