Index: generic/nsf.tcl =================================================================== diff -u -rca94e89f9a531dd4c58e22f1b87c0b941689799a -r353fe0c41d46ad9d3475bd4b8ea16aea6aae0419 --- generic/nsf.tcl (.../nsf.tcl) (revision ca94e89f9a531dd4c58e22f1b87c0b941689799a) +++ generic/nsf.tcl (.../nsf.tcl) (revision 353fe0c41d46ad9d3475bd4b8ea16aea6aae0419) @@ -38,11 +38,13 @@ } # - # ::nsf::mixin + # ::nsf::mixin # # provide a similar interface as for ::nsf::method, ::nsf::alias, ... # + set ::nsf::parametersyntax(::nsf::mixin) "object ?-per-object? classes" + proc ::nsf::mixin {object args} { if {[lindex $args 0] eq "-per-object"} { set rel "object-mixin" @@ -70,7 +72,7 @@ set {::proc ::nsf::__exithandler {} $value} get {::info body ::nsf::__exithandler} unset {proc ::nsf::__exithandler args {;}} - default {error "syntax: ::nsf::exithandler set|get|unset ?arg?"} + default {error "syntax: ::nsf::exithandler $::nsf::parametersyntax(::nsf::exithandler)"} } } # initialize exit handler @@ -103,4 +105,8 @@ # if HOME is not set, and ~ is resolved, Tcl chokes on that if {![info exists ::env(HOME)]} {set ::env(HOME) /root} + set ::nsf::parametersyntax(::nsf::xotclnext) "?--noArgs? ?arg ...?" + set ::nsf::parametersyntax(::nsf::__unset_unknown_args) "" + set ::nsf::parametersyntax(::nsf::exithandler) "?get?|?set cmds?|?unset?" + }