File: treeql.tcl

package info (click to toggle)
tcllib 1.16-dfsg-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 50,040 kB
  • ctags: 18,603
  • sloc: tcl: 156,708; ansic: 14,098; sh: 10,783; xml: 1,766; yacc: 1,114; pascal: 551; makefile: 89; 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