Commit | Line | Data |
d4567ecb |
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 |