Squashed 'tclxml/' content from commit 22ffbb5a

git-subtree-dir: tclxml
git-subtree-split: 22ffbb5a3e984efb993e8b58cdf7a11ffddd1836

1 files changed, 30 insertions, 0 deletions

diff --git a/tclxslt-libxslt.tcl b/tclxslt-libxslt.tcl
new file mode 100644
index 0000000..e67d02a
--- /dev/null
+++ b/tclxslt-libxslt.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-libxslt.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]
+}