diff options
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] -} |