Index: TODO =================================================================== diff -u -r8651e9f7d6d526196cfe4dad14d08b857a66f5d8 -r0c03b745902c592c2ea8d637cc7f6b85fbf7c895 --- TODO (.../TODO) (revision 8651e9f7d6d526196cfe4dad14d08b857a66f5d8) +++ TODO (.../TODO) (revision 0c03b745902c592c2ea8d637cc7f6b85fbf7c895) @@ -1788,11 +1788,12 @@ - removed traces of Nsf_VariableObjCmd() - extended regression test +- provided parametersyntax definitions for XOTcl 2.0 + similar to nx for all methods without a spec + (e.g. fur builtin Tcl cmds, forwarders) + TODO: -- provide parametersyntax definitions for XOTcl 2.0 similar - to nx - - "-returns" * leave syntax as is for method? * add flag to alias and forward? Index: library/xotcl/library/xotcl2.tcl =================================================================== diff -u -r236c09e4dce9355a63c83b75f8c3a4955148c17d -r0c03b745902c592c2ea8d637cc7f6b85fbf7c895 --- library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision 236c09e4dce9355a63c83b75f8c3a4955148c17d) +++ library/xotcl/library/xotcl2.tcl (.../xotcl2.tcl) (revision 0c03b745902c592c2ea8d637cc7f6b85fbf7c895) @@ -969,6 +969,47 @@ # finally, export contents defined for XOTcl namespace export Object Class Attribute myproc myvar my self next @ + + # + # Provide parametersyntax for methods, which do not have a spec + # + # Tcl commands + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::append) "varName ?value value value ...?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::array) "option arrayName ?arg arg ...?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::eval) "arg ?arg ...?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::incr) "varName ?increment?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::lappend) "varName ?value value value ...?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::set) "varName ?value?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::set) "varName ?value?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::subst) \ + "?-nobackslashes? ?-nocommands? ?-novariables? string" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::trace) "option ?arg arg ...?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::unset) "?-nocomplain? ?--? ?name name name ...?" + + # forwarders + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::forward) \ + "name ?-default value? ?-methodprefix value? ?-objscope? ?-onerror value? ?-verbose? ?target? ?arg ...?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Class::instforward) \ + "name ?-default value? ?-methodprefix value? ?-objscope? ?-onerror value? ?-verbose? ?target? ?arg ...?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::invar) "?expr?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Class::instinvar) "?expr?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::parametercmd) "name" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Class::instparametercmd) "name" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Class::slots) "cmds" + + # slots + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::class) "?class?" + + set value "?add class?|?classes?|?delete class?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::mixin) $value + set ::nsf::parametersyntax(::nsf::classes::xotcl::Class::instmixin) $value + set ::nsf::parametersyntax(::nsf::classes::xotcl::Class::superclass) $value + + set value "?add filter?|?filters?|?delete filter?" + set ::nsf::parametersyntax(::nsf::classes::xotcl::Object::filter) $value + set ::nsf::parametersyntax(::nsf::classes::xotcl::Class::instfilter) $value + unset value + } if {[::nsf::configure debug] > 1} {