Fix file paths for recursive rmdom

[hcoop/domtool2.git] / src / env.sig

diff --git a/src/env.sig b/src/env.sig
index adb03ea..023813a 100644 (file)
--- a/src/env.sig
+++ b/src/env.sig
@@ -55,6 +55,9 @@ signature ENV = sig
     val none : string -> (unit -> unit) -> action
     val one : string -> string * 'a arg -> ('a -> unit) -> action
     val two : string -> string * 'a arg * string * 'b arg -> ('a * 'b -> unit) -> action
+    val three : string
+               -> string * 'a arg * string * 'b arg * string * 'c arg
+               -> ('a * 'b * 'c -> unit) -> action
 
     val oneV : string -> string * 'a arg -> (env_vars * 'a -> unit) -> action
     val twoV : string -> string * 'a arg * string * 'b arg -> (env_vars * 'a * 'b -> unit) -> action
@@ -66,6 +69,9 @@ signature ENV = sig
     val action_none : string -> (unit -> unit) -> unit
     val action_one : string -> string * 'a arg -> ('a -> unit) -> unit
     val action_two : string -> string * 'a arg * string * 'b arg -> ('a * 'b -> unit) -> unit
+    val action_three : string
+                      -> string * 'a arg * string * 'b arg * string * 'c arg
+                      -> ('a * 'b * 'c -> unit) -> unit
 
     val actionV_none : string -> (env_vars -> unit) -> unit
     val actionV_one : string -> string * 'a arg -> (env_vars * 'a -> unit) -> unit
@@ -76,6 +82,9 @@ signature ENV = sig
 
     val containerV_one : string -> string * 'a arg -> (env_vars * 'a -> unit) * (unit -> unit) -> unit
 
+    val registerFunction : string * (Ast.exp list -> Ast.exp option) -> unit
+    val function : string -> (Ast.exp list -> Ast.exp option) option
+
     type env
     val empty : env