mailman: open /usr/share/images/mailman, revert to mod_access_compat

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

diff --git a/src/tycheck.sig b/src/tycheck.sig
index a86ae37..52630b8 100644 (file)
--- a/src/tycheck.sig
+++ b/src/tycheck.sig
@@ -1,5 +1,6 @@
 (* HCoop Domtool (http://hcoop.sourceforge.net/)
  * Copyright (c) 2006, Adam Chlipala
+ * Copyright (c) 2014 Clinton Ebadi <clinton@unknownlamer.org>
  *
  * This program is free software; you can redistribute it and/or
  * modify it under the terms of the GNU General Public License
@@ -14,23 +15,28 @@
  * You should have received a copy of the GNU General Public License
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-*)
+ *)
 
 (* Domtool configuration language type checking *)
 
 signature TYCHECK = sig
 
-    type env
-    val empty : env
+    val checkTyp : Env.env -> Ast.typ -> Ast.typ
 
-    val checkTyp : env -> Ast.typ -> Ast.typ
-
-    val checkExp : env -> Ast.exp -> Ast.typ
-    val checkUnit : env -> Ast.exp -> Ast.typ
+    val checkExp : Env.env -> Ast.exp -> Ast.typ
+    val checkUnit : Env.env -> Ast.exp -> Ast.typ
     (* [checkUnit] checks that all unification variables have been resolved. *)
 
-    val checkDecl : env -> Ast.decl -> env
+    val checkDecl : Env.env -> Ast.decl -> Env.env
+
+    val checkFile : Env.env -> Ast.file -> Env.env
+
+    val resetUnif : unit -> unit
+    val newUnif : unit -> Ast.typ'
+
+    val preface : string * Print.PD.pp_desc -> unit
 
-    val checkFile : env -> Ast.typ -> Ast.file -> env
+    val allowExterns : unit -> unit
+    val disallowExterns : unit -> unit
 
 end