blob: 29c1ca852b5de320871966b1d3cc7e3ef14bb7d7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
|
