treeql.tcl

Go to the documentation of this file.
00001 /*  treeql.tcl*/
00002 /*  A generic tree query language in snit*/
00003 /* */
00004 /*  Copyright 2004 Colin McCormack.*/
00005 /*  You are permitted to use this code under the same license as tcl.*/
00006 /* */
00007 /*  20040930 Colin McCormack - initial release to tcllib*/
00008 /* */
00009 /*  RCS: @(#) $Id: treeql.tcl,v 1.10 2006/09/19 23:36:18 andreas_kupries Exp $*/
00010 
00011 package require Tcl 8.4
00012 
00013 /*  Select the implementation based on the version of the Tcl core*/
00014 /*  executing this code. For 8.5 we are using features like*/
00015 /*  word-expansion to simplify the various evaluations.*/
00016 
00017  dir =  [file dirname [info script]]
00018 if {[package vsatisfies [package provide Tcl] 8.5]} {
00019     source [file join $dir treeql85.tcl]
00020 } else {
00021     source [file join $dir treeql84.tcl]
00022 }
00023 
00024 package provide treeql 1.3.1
00025