diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 20:37:36 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 20:37:36 (GMT) |
commit | 490976841053ce71a019ca14422c30091ba6d45e (patch) | |
tree | 7058d73d507a9a5b9c840ca157264ca759af54e7 /tclxml/tclxslt/tclxslt.tcl | |
parent | ac65df8e373c46967e2000b1b7f1439048fdcee2 (diff) | |
parent | bb434fa400f36e0d4142dfd9ddc0b59bbbf8e563 (diff) | |
download | blt-490976841053ce71a019ca14422c30091ba6d45e.zip blt-490976841053ce71a019ca14422c30091ba6d45e.tar.gz blt-490976841053ce71a019ca14422c30091ba6d45e.tar.bz2 |
Merge commit 'bb434fa400f36e0d4142dfd9ddc0b59bbbf8e563' as 'tclxml'
Diffstat (limited to 'tclxml/tclxslt/tclxslt.tcl')
-rw-r--r-- | tclxml/tclxslt/tclxslt.tcl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tclxml/tclxslt/tclxslt.tcl b/tclxml/tclxslt/tclxslt.tcl new file mode 100644 index 0000000..6aa6a2c --- /dev/null +++ b/tclxml/tclxslt/tclxslt.tcl @@ -0,0 +1,30 @@ +# 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] +} |