val registerPost : (unit -> unit) -> unit
val post : unit -> unit
+ (* ...and before type-checking *)
+ val registerPreTycheck : (unit -> unit) -> unit
+ val preTycheck : unit -> unit
+
val badArgs : string * Ast.exp list -> 'a
val badArg : string * string * Ast.exp -> 'a
val int : int arg
val string : string arg
+ val bool : bool arg
val list : 'a arg -> 'a list arg
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 noneV : string -> (env_vars -> 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
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
val container_none : string -> (unit -> unit) * (unit -> unit) -> unit
val container_one : string -> string * 'a arg -> ('a -> unit) * (unit -> unit) -> unit
+ val containerV_none : string -> (env_vars -> unit) * (unit -> unit) -> unit
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