More Exim stuff
[hcoop/domtool2.git] / src / env.sml
index 48ec715..85c29c9 100644 (file)
@@ -70,6 +70,10 @@ fun mapFail f [] = SOME []
 fun list f (EList ls, _) = mapFail f ls
   | list _ _ = NONE
 
+fun none func f (_, []) = (f ();
+                          SM.empty)
+  | none func _ (_, es) = badArgs (func, es)
+
 fun one func (name, arg) f (_, [e]) =
     (case arg e of
         NONE => badArg (func, name, e)
@@ -91,6 +95,7 @@ fun type_one func arg f =
                               NONE => false
                             | SOME v => f v)
 
+fun action_none name f = registerAction (name, none name f)
 fun action_one name args f = registerAction (name, one name args f)
 fun action_two name args f = registerAction (name, two name args f)