/usr/share/tcltk/tcllib1.18/snit/snit.tcl is in tcllib 1.18-dfsg-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | #-----------------------------------------------------------------------
# TITLE:
# snit.tcl
#
# AUTHOR:
# Will Duquette
#
# DESCRIPTION:
# Snit's Not Incr Tcl, a simple object system in Pure Tcl.
#
# Snit 1.x Loader
#
# Copyright (C) 2003-2006 by William H. Duquette
# This code is licensed as described in license.txt.
#
#-----------------------------------------------------------------------
package require Tcl 8.3
# Define the snit namespace and save the library directory
namespace eval ::snit:: {
set library [file dirname [info script]]
}
# Select the implementation based on the version of the Tcl core
# executing this code. For 8.3 we use a backport emulating various
# 8.4 features
if {[package vsatisfies [package provide Tcl] 8.4]} {
source [file join $::snit::library main1.tcl]
} else {
source [file join $::snit::library main1_83.tcl]
source [file join $::snit::library snit_tcl83_utils.tcl]
}
# Load the library of Snit validation types.
source [file join $::snit::library validate.tcl]
package provide snit 1.4.2
|