X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=compiler%2Fsrc%2Flib%2Ftiger%2Ftiger_error.mli;h=6383a62f77ed32df9aeea9bc66f5d3aef17200b7;hb=5da420a8c9d88111ef4ccabd6b0a0c65cddb73af;hp=1f0d0ce151b99c13d92323c29d37420468578591;hpb=2f38b9f1292d971826d540718855f63431029715;p=tiger.ml.git

diff --git a/compiler/src/lib/tiger/tiger_error.mli b/compiler/src/lib/tiger/tiger_error.mli
index 1f0d0ce..6383a62 100644
--- a/compiler/src/lib/tiger/tiger_error.mli
+++ b/compiler/src/lib/tiger/tiger_error.mli
@@ -1,3 +1,54 @@
-exception T of string
+type t =
+  | Invalid_syntax    of Tiger_position.t
+  | Unknown_id        of {id    : Tiger_symbol.t; pos : Tiger_position.t}
+  | Unknown_type      of {ty_id : Tiger_symbol.t; pos : Tiger_position.t}
+  | Id_not_a_function of {id    : Tiger_symbol.t; pos : Tiger_position.t}
+  | Wrong_type_of_expression_in_var_dec of
+      { var_id   : Tiger_symbol.t
+      ; expected : Tiger_env_type.t
+      ; given    : Tiger_env_type.t
+      ; pos      : Tiger_position.t
+      }
+  | Wrong_type_used_as_record of
+      { ty_id    : Tiger_symbol.t
+      ; ty       : Tiger_env_type.t
+      ; pos      : Tiger_position.t
+      }
+  | Wrong_type_of_field_value of
+      { field_id : Tiger_symbol.t
+      ; expected : Tiger_env_type.t
+      ; given    : Tiger_env_type.t
+      ; pos      : Tiger_position.t
+      }
+  | Wrong_type_of_arg of
+      { func     : Tiger_symbol.t
+      ; expected : Tiger_env_type.t
+      ; given    : Tiger_env_type.t
+      ; pos      : Tiger_position.t
+      }
+  | Wrong_number_of_args of
+      { func     : Tiger_symbol.t
+      ; expected : int
+      ; given    : int
+      ; pos      : Tiger_position.t
+      }
+  | Invalid_operand_type of
+      { oper  : Tiger_absyn.oper
+      ; valid : string list
+      ; given : Tiger_env_type.t
+      ; pos   : Tiger_position.t
+      }
+  | Different_operand_types of
+      { oper  : Tiger_absyn.oper
+      ; left  : Tiger_env_type.t
+      ; right : Tiger_env_type.t
+      ; pos   : Tiger_position.t
+      }
 
-val exn : pos:Tiger_position.t -> string -> 'a
+exception T of t
+
+val raise : t -> 'a
+
+val to_string : t -> string
+
+val is_unknown_id : t -> bool