control.ml 1.18 KB
Newer Older
huet's avatar
huet committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
(**************************************************************************)
(*                                                                        *)
(*                     The Sanskrit Heritage Platform                     *)
(*                                                                        *)
(*                       Gérard Huet & Pawan Goyal                        *)
(*                                                                        *)
(* ©2017 Institut National de Recherche en Informatique et en Automatique *)
(**************************************************************************)

(* Module Control contains exceptions of global scope *)

exception Anomaly of string (* deemed impossible by logic and ML semantics *)
;
exception Warning of string (* emits a warning *)
;
exception Fatal of string (* unrecoverable fatal error *)
;
(* error reporting *)
value report_mess = "- please report - "
;
value fatal_err_mess = "Fatal error " 
and anomaly_err_mess = "Anomaly " ^ report_mess 
and sys_err_mess     = "System error " ^ report_mess 
and stream_err_mess  = "Stream error - wrong input ? " 
;
26 27 28 29

(* change if Morphology data type changes *)
value data_format_version = 1
;