1941-docker-image-to-testdevel
| Line | |
|---|
| 1 | #----------------------------------------------------------------------- |
|---|
| 2 | # TITLE: |
|---|
| 3 | # snit2.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 2.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.5 |
|---|
| 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 | # Load the kernel. |
|---|
| 27 | source [file join $::snit::library main2.tcl] |
|---|
| 28 | |
|---|
| 29 | # Load the library of Snit validation types. |
|---|
| 30 | source [file join $::snit::library validate.tcl] |
|---|
| 31 | |
|---|
| 32 | package provide snit 2.2.1 |
|---|
Note: See
TracBrowser
for help on using the repository browser.