tclxslt.tcl

Go to the documentation of this file.
00001 /*  tclxslt.tcl --*/
00002 /* */
00003 /*  Tcl library for TclXSLT package.*/
00004 /* */
00005 /*  Copyright (c) 2001-2003 Zveno Pty Ltd*/
00006 /*  http://www.zveno.com/*/
00007 /* */
00008 /*  See the file "LICENSE" in this distribution for information on usage and*/
00009 /*  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.*/
00010 /* */
00011 /*  $Id: tclxslt.tcl,v 1.4 2003/12/09 04:57:35 balls Exp $*/
00012 
00013 namespace xslt {
00014     namespace export getret s
00015 }
00016 
00017 proc xslt::getprocs ns (
00018     type set , type functions , optional 
00019     , type set , type elements , optional 
00020     , type foreach , type proc [, type info , type commands $, optional ns::*] , optional 
00021     if ={[regexp {::([^:]+)$ $, type proc , type discard , type name]) {
00022         if {[string equal [lindex [info args $proc] end] "args"]} {
00023         lappend functions $name
00024         } else {
00025         lappend elements $name
00026         }
00027     }
00028     }
00029     return [list $elements $functions]
00030 }
00031