Index: generic/predefined.h =================================================================== diff -u -r8c8969ab850d118f76305689bd95e980b8f4543f -r74b7a4066526ff5f5a8080ed907f71c9ed5c7700 --- generic/predefined.h (.../predefined.h) (revision 8c8969ab850d118f76305689bd95e980b8f4543f) +++ generic/predefined.h (.../predefined.h) (revision 74b7a4066526ff5f5a8080ed907f71c9ed5c7700) @@ -31,6 +31,7 @@ "uplevel [list ::nsf::relation $object $rel \"\"]}}\n" "::nsf::method::provide autoname {::nsf::method::alias autoname ::nsf::methods::object::autoname}\n" "::nsf::method::provide exists {::nsf::method::alias exists ::nsf::methods::object::exists}\n" +"::nsf::method::provide volatile {::nsf::method::alias volatile ::nsf::methods::object::volatile}\n" "proc ::nsf::object::unknown {name} {\n" "foreach {key handler} [array get ::nsf::object::unknown] {\n" "set result [uplevel [list {*}$handler $name]]\n" @@ -51,7 +52,7 @@ "set {::proc ::nsf::__exithandler {} $value}\n" "get {::info body ::nsf::__exithandler}\n" "unset {proc ::nsf::__exithandler args {;}}\n" -"default {error \"syntax: ::nsf::exithandler $::nsf::parametersyntax(::nsf::exithandler)\"}}}\n" +"default {error \"syntax: ::nsf::exithandler $::nsf::parameter::syntax(::nsf::exithandler)\"}}}\n" "::nsf::exithandler unset\n" "if {[info command ::ns_log] ne \"\"} {\n" "proc ::nsf::log {level msg} {\n" @@ -78,8 +79,15 @@ "return /tmp}\n" "namespace export tmpdir\n" "if {![info exists ::env(HOME)]} {set ::env(HOME) /root}\n" -"set ::nsf::parametersyntax(::nsf::xotclnext) \"?--noArgs? ?arg ...?\"\n" -"set ::nsf::parametersyntax(::nsf::__unset_unknown_args) \"\"\n" -"set ::nsf::parametersyntax(::nsf::exithandler) \"?get?|?set cmds?|?unset?\"}\n" +"namespace eval ::nsf::parameter {}\n" +"proc ::nsf::parameter::filter {defs pattern} {\n" +"set result {}\n" +"foreach def $defs {\n" +"if {[string match $pattern [::nsf::parameter::get name $def]]} {\n" +"lappend result $def}}\n" +"return $result}\n" +"set ::nsf::parameter::syntax(::nsf::xotclnext) \"?--noArgs? ?/arg .../?\"\n" +"set ::nsf::parameter::syntax(::nsf::__unset_unknown_args) \"\"\n" +"set ::nsf::parameter::syntax(::nsf::exithandler) \"?get?|?set /cmds/?|?unset?\"}\n" "";