File: treeql.tcl

package info (click to toggle)
tcllib 1.20%2Bdfsg-1
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 68,064 kB
  • sloc: tcl: 216,842; ansic: 14,250; sh: 2,846; xml: 1,766; yacc: 1,145; pascal: 881; makefile: 107; perl: 84; f90: 84; python: 33; ruby: 13; php: 11
file content (24 lines) | stat: -rw-r--r-- 711 bytes parent folder | download | duplicates (8) 
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