summaryrefslogtreecommitdiffstats
path: root/tclxml/tclxslt/tclxslt.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tclxml/tclxslt/tclxslt.tcl')
-rw-r--r--tclxml/tclxslt/tclxslt.tcl30
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]
+}