/usr/share/tcltk/tcllib1.17/treeql/treeql.tcl is in tcllib 1.17-dfsg-1.
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 | # treeql.tcl
# A generic tree query language in snit
#
# Copyright 2004 Colin McCormack.
# You are permitted to use this code under the same license as tcl.
#
# 20040930 Colin McCormack - initial release to tcllib
#
# RCS: @(#) $Id: treeql.tcl,v 1.10 2006/09/19 23:36:18 andreas_kupries Exp $
package require Tcl 8.4
# Select the implementation based on the version of the Tcl core
# executing this code. For 8.5 we are using features like
# word-expansion to simplify the various evaluations.
set dir [file dirname [info script]]
if {[package vsatisfies [package provide Tcl] 8.5]} {
source [file join $dir treeql85.tcl]
} else {
source [file join $dir treeql84.tcl]
}
package provide treeql 1.3.1
|