Index: generic/predefined.h =================================================================== diff -u -rfc77eaadabdd690239694a6f1cf155a7d16b5cd4 -rbca161db07ae2fe223f49b5aa5e44e7149cf9e67 --- generic/predefined.h (.../predefined.h) (revision fc77eaadabdd690239694a6f1cf155a7d16b5cd4) +++ generic/predefined.h (.../predefined.h) (revision bca161db07ae2fe223f49b5aa5e44e7149cf9e67) @@ -51,7 +51,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,14 +78,16 @@ "return /tmp}\n" "namespace export tmpdir\n" "if {![info exists ::env(HOME)]} {set ::env(HOME) /root}\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::parametersyntax(::nsf::xotclnext) \"?--noArgs? ?/arg .../?\"\n" -"set ::nsf::parametersyntax(::nsf::__unset_unknown_args) \"\"\n" -"set ::nsf::parametersyntax(::nsf::exithandler) \"?get?|?set /cmds/?|?unset?\"}\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" +"puts stderr \"::nsf children [namespace children ::nsf]\"}\n" "";