Index: generic/nsf.tcl
===================================================================
diff -u -r35c0d6ecb3c83cc6d6b0dfe251ba1a0d9071dc30 -rfc77eaadabdd690239694a6f1cf155a7d16b5cd4
--- generic/nsf.tcl	(.../nsf.tcl)	(revision 35c0d6ecb3c83cc6d6b0dfe251ba1a0d9071dc30)
+++ generic/nsf.tcl	(.../nsf.tcl)	(revision fc77eaadabdd690239694a6f1cf155a7d16b5cd4)
@@ -185,12 +185,24 @@
     }
     return /tmp
   }
-
   namespace export tmpdir 
 
   # if HOME is not set, and ~ is resolved, Tcl chokes on that
   if {![info exists ::env(HOME)]} {set ::env(HOME) /root}
 
+  #
+  # parameter support
+  #
+  proc ::nsf::parameter::filter {defs pattern} {
+    set result {}
+    foreach def $defs {
+      if {[string match $pattern [::nsf::parameter::get name $def]]} {
+	lappend result $def
+      }
+    }
+    return $result
+  }
+
   set ::nsf::parametersyntax(::nsf::xotclnext) "?--noArgs? ?/arg .../?"
   set ::nsf::parametersyntax(::nsf::__unset_unknown_args) ""
   set ::nsf::parametersyntax(::nsf::exithandler) "?get?|?set /cmds/?|?unset?"