| |
36 |
36 |
# |
| |
37 |
37 |
# An ensemble method |
| |
38 |
38 |
# |
| |
39 |
39 |
set ::handle [p1 info lookup method "string match"] |
| |
40 |
40 |
|
| |
41 |
41 |
? {nsf::cmd::info args $::handle} "pattern string" |
| |
42 |
42 |
? {nsf::cmd::info body $::handle} {return string-match-$string} |
| |
43 |
43 |
? {nsf::cmd::info definition $::handle} {::Person public method {string match} {pattern string} {return string-match-$string}} |
| |
44 |
44 |
? {nsf::cmd::info exists $::handle} 1 |
| |
45 |
45 |
? {nsf::cmd::info registrationhandle $::handle} "::nsf::classes::Person::string match" |
| |
46 |
46 |
? {nsf::cmd::info definitionhandle $::handle} "::Person::slot::__string::match" |
| |
47 |
47 |
? {nsf::cmd::info origin $::handle} "" |
| |
48 |
48 |
? {nsf::cmd::info parameter $::handle} "pattern string" |
| |
49 |
49 |
? {nsf::cmd::info syntax $::handle} "/pattern/ /string/" |
| |
50 |
50 |
? {nsf::cmd::info type $::handle} scripted |
| |
51 |
51 |
? {nsf::cmd::info precondition $::handle} "" |
| |
52 |
52 |
? {nsf::cmd::info postcondition $::handle} "" |
| |
53 |
53 |
? {nsf::cmd::info submethods $::handle} "" |
| |
54 |
54 |
? {nsf::cmd::info returns $::handle} "" |
| |
55 |
55 |
|
| |
|
56 |
# alternative string reps for pattern list |
| |
|
57 |
foreach char {\t \n \r \f \v} { |
| |
|
58 |
? [list p1 info lookup method "string${char}match"] [join [list {*}$::handle] $char] |
| |
|
59 |
} |
| |
|
60 |
|
| |
56 |
61 |
# |
| |
57 |
62 |
# An C-defined method inherited from nx::Object |
| |
58 |
63 |
# |
| |
59 |
64 |
set ::handle [p1 info lookup method configure] |
| |
60 |
65 |
|
| |
61 |
66 |
? {nsf::cmd::info args $::handle} args |
| |
62 |
67 |
? {nsf::cmd::info body $::handle} "" |
| |
63 |
68 |
? {nsf::cmd::info definition $::handle} "::nx::Object public alias configure ::nsf::methods::object::configure" |
| |
64 |
69 |
? {nsf::cmd::info exists $::handle} 1 |
| |
65 |
70 |
? {nsf::cmd::info registrationhandle $::handle} ::nsf::classes::nx::Object::configure |
| |
66 |
71 |
? {nsf::cmd::info definitionhandle $::handle} ::nsf::classes::nx::Object::configure |
| |
67 |
72 |
? {nsf::cmd::info origin $::handle} ::nsf::methods::object::configure |
| |
68 |
73 |
? {nsf::cmd::info parameter $::handle} args:virtualobjectargs |
| |
69 |
74 |
? {nsf::cmd::info syntax $::handle} "?/arg .../?" |
| |
70 |
75 |
? {nsf::cmd::info type $::handle} alias |
| |
71 |
76 |
? {nsf::cmd::info precondition $::handle} "" |
| |
72 |
77 |
? {nsf::cmd::info postcondition $::handle} "" |
| |
73 |
78 |
? {nsf::cmd::info submethods $::handle} "" |
| |
74 |
79 |
? {nsf::cmd::info returns $::handle} "" |
| |
75 |
80 |
|
