diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 20:09:25 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 20:09:25 (GMT) |
commit | dcdc519395ebb847898ec8730b33a70a21516df1 (patch) | |
tree | 658268b7e04eed42e7cecc6338f5ef7d18cb788a /tclxml/tclxslt/tclxslt.tcl | |
parent | 482241bea02f1e740f0a4f4fcf5b9ea29f1f678a (diff) | |
download | blt-dcdc519395ebb847898ec8730b33a70a21516df1.zip blt-dcdc519395ebb847898ec8730b33a70a21516df1.tar.gz blt-dcdc519395ebb847898ec8730b33a70a21516df1.tar.bz2 |
update TEA 3.13
Diffstat (limited to 'tclxml/tclxslt/tclxslt.tcl')
-rw-r--r-- | tclxml/tclxslt/tclxslt.tcl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/tclxml/tclxslt/tclxslt.tcl b/tclxml/tclxslt/tclxslt.tcl deleted file mode 100644 index 6aa6a2c..0000000 --- a/tclxml/tclxslt/tclxslt.tcl +++ /dev/null @@ -1,30 +0,0 @@ -# tclxslt.tcl -- -# -# Tcl library for TclXSLT package. -# -# Copyright (c) 2001-2003 Zveno Pty Ltd -# http://www.zveno.com/ -# -# See the file "LICENSE" in this distribution for information on usage and -# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# $Id: tclxslt.tcl,v 1.1.1.1 2009/01/16 22:11:49 joye Exp $ - -namespace eval xslt { - namespace export getprocs -} - -proc xslt::getprocs ns { - set functions {} - set elements {} - foreach proc [info commands ${ns}::*] { - if {[regexp {::([^:]+)$} $proc discard name]} { - if {[string equal [lindex [info args $proc] end] "args"]} { - lappend functions $name - } else { - lappend elements $name - } - } - } - return [list $elements $functions] -} |