Fix file paths for recursive rmdom
[hcoop/domtool2.git] / src / env.sig
CommitLineData
492c1cff
AC
1(* HCoop Domtool (http://hcoop.sourceforge.net/)
2 * Copyright (c) 2006, Adam Chlipala
3 *
4 * This program is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU General Public License
6 * as published by the Free Software Foundation; either version 2
7 * of the License, or (at your option) any later version.
8 *
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
13 *
14 * You should have received a copy of the GNU General Public License
15 * along with this program; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
dac62e84 17 *)
492c1cff
AC
18
19(* Domtool type-checking and reduction environments *)
20
21signature ENV = sig
22
a3698041
AC
23 type typeRule = Ast.exp -> bool
24 val registerType : string * typeRule -> unit
25 val typeRule : string -> typeRule option
26
27 type env_vars = Ast.exp Ast.StringMap.map
28 type action = env_vars * Ast.exp list -> env_vars
29 val registerAction : string * action -> unit
30 val action : string -> action option
31
32 val registerContainer : string * action * (unit -> unit) -> unit
33 val container : string -> (action * (unit -> unit)) option
34
e0b0abd2
AC
35 (* Actions to take before and after evaluating a file *)
36 val registerPre : (unit -> unit) -> unit
37 val pre : unit -> unit
38 val registerPost : (unit -> unit) -> unit
39 val post : unit -> unit
40
12adf55a
AC
41 (* ...and before type-checking *)
42 val registerPreTycheck : (unit -> unit) -> unit
43 val preTycheck : unit -> unit
44
629a34f6
AC
45 val badArgs : string * Ast.exp list -> 'a
46 val badArg : string * string * Ast.exp -> 'a
47
48 type 'a arg = Ast.exp -> 'a option
49
50 val int : int arg
51 val string : string arg
8a7c40fa 52 val bool : bool arg
629a34f6
AC
53 val list : 'a arg -> 'a list arg
54
ed9fda3a 55 val none : string -> (unit -> unit) -> action
629a34f6
AC
56 val one : string -> string * 'a arg -> ('a -> unit) -> action
57 val two : string -> string * 'a arg * string * 'b arg -> ('a * 'b -> unit) -> action
f8dfbbcc
AC
58 val three : string
59 -> string * 'a arg * string * 'b arg * string * 'c arg
60 -> ('a * 'b * 'c -> unit) -> action
629a34f6 61
6ae327f8 62 val oneV : string -> string * 'a arg -> (env_vars * 'a -> unit) -> action
e0b0abd2 63 val twoV : string -> string * 'a arg * string * 'b arg -> (env_vars * 'a * 'b -> unit) -> action
6ae327f8
AC
64
65 val env : 'a arg -> env_vars * string -> 'a
66
629a34f6
AC
67 val type_one : string -> 'a arg -> ('a -> bool) -> unit
68
ed9fda3a 69 val action_none : string -> (unit -> unit) -> unit
629a34f6
AC
70 val action_one : string -> string * 'a arg -> ('a -> unit) -> unit
71 val action_two : string -> string * 'a arg * string * 'b arg -> ('a * 'b -> unit) -> unit
f8dfbbcc
AC
72 val action_three : string
73 -> string * 'a arg * string * 'b arg * string * 'c arg
74 -> ('a * 'b * 'c -> unit) -> unit
629a34f6 75
e0b0abd2 76 val actionV_none : string -> (env_vars -> unit) -> unit
6ae327f8 77 val actionV_one : string -> string * 'a arg -> (env_vars * 'a -> unit) -> unit
e0b0abd2 78 val actionV_two : string -> string * 'a arg * string * 'b arg -> (env_vars * 'a * 'b -> unit) -> unit
6ae327f8
AC
79
80 val container_none : string -> (unit -> unit) * (unit -> unit) -> unit
629a34f6 81 val container_one : string -> string * 'a arg -> ('a -> unit) * (unit -> unit) -> unit
6be996d4 82
6ae327f8
AC
83 val containerV_one : string -> string * 'a arg -> (env_vars * 'a -> unit) * (unit -> unit) -> unit
84
cf879b4f
AC
85 val registerFunction : string * (Ast.exp list -> Ast.exp option) -> unit
86 val function : string -> (Ast.exp list -> Ast.exp option) option
87
492c1cff
AC
88 type env
89 val empty : env
90
91 val bindType : env -> string -> env
92 val bindVal : env -> string * Ast.typ * Ast.exp option -> env
095de39e 93 val bindContext : env -> string -> env
492c1cff
AC
94
95 val lookupType : env -> string -> bool
96 val lookupVal : env -> string -> Ast.typ option
97 val lookupEquation : env -> string -> Ast.exp option
095de39e 98 val lookupContext : env -> string -> bool
492c1cff 99
095de39e
AC
100 val types : env -> Ast.StringSet.set
101 val vals : env -> Ast.StringSet.set
102 val contexts : env -> Ast.StringSet.set
492c1cff 103end