diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/tclpd-interp-info.tcl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/examples/tclpd-interp-info.tcl b/examples/tclpd-interp-info.tcl new file mode 100644 index 0000000..29c1ca8 --- /dev/null +++ b/examples/tclpd-interp-info.tcl @@ -0,0 +1,21 @@ +package require Tclpd 0.2.3 +package require TclpdLib 0.19 + +# utilities for getting informations about tclpd's interpreter + +proc tclpd-interp-info::constructor {self} { +} + +proc tclpd-interp-info::0_bang {self} { + pd::post "-------- namespaces and procs: -------------" + set nss [linsert [namespace children ::] 0 ::] + foreach ns $nss { + pd::post "<NS> $ns" + set procs [info procs ${ns}::*] + foreach p $procs { + pd::post "<PROC> $p" + } + } +} + +pd::class tclpd-interp-info |