1998-11-05 00:08:28 -08:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* Objective Caml *)
|
|
|
|
(* *)
|
|
|
|
(* Pierre Weis && Damien Doligez, INRIA Rocquencourt *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 1998 Institut National de Recherche en Informatique et *)
|
1999-11-17 10:59:06 -08:00
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
|
|
(* under the terms of the Q Public License version 1.0. *)
|
1998-11-05 00:08:28 -08:00
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
2000-08-23 10:13:17 -07:00
|
|
|
open Format
|
|
|
|
|
1999-12-23 10:02:58 -08:00
|
|
|
type t = (* A is all *)
|
|
|
|
| Comment of string (* C *)
|
2001-09-25 02:54:18 -07:00
|
|
|
| Deprecated (* D *)
|
2003-05-02 01:46:06 -07:00
|
|
|
| Fragile_pat of string (* E *)
|
1999-12-23 10:02:58 -08:00
|
|
|
| Partial_application (* F *)
|
2002-01-20 07:12:21 -08:00
|
|
|
| Labels_omitted (* L *)
|
1999-12-23 10:02:58 -08:00
|
|
|
| Method_override of string list (* M *)
|
1999-10-29 07:42:37 -07:00
|
|
|
| Partial_match of string (* P *)
|
1999-12-23 10:02:58 -08:00
|
|
|
| Statement_type (* S *)
|
1998-11-05 00:08:28 -08:00
|
|
|
| Unused_match (* U *)
|
2002-05-24 07:34:37 -07:00
|
|
|
| Unused_pat (* U *)
|
1998-11-05 00:08:28 -08:00
|
|
|
| Hide_instance_variable of string (* V *)
|
|
|
|
| Other of string (* X *)
|
|
|
|
;;
|
|
|
|
|
2001-09-06 01:52:32 -07:00
|
|
|
val parse_options : bool -> string -> unit;;
|
1998-11-05 00:08:28 -08:00
|
|
|
|
|
|
|
val is_active : t -> bool;;
|
2000-08-23 10:13:17 -07:00
|
|
|
val is_error : t -> bool;;
|
|
|
|
|
2000-10-26 06:38:43 -07:00
|
|
|
val print : formatter -> t -> int;;
|
|
|
|
(* returns the number of newlines in the printed string *)
|
2000-08-23 10:13:17 -07:00
|
|
|
|
|
|
|
|
|
|
|
exception Errors of int;;
|
1998-11-05 00:08:28 -08:00
|
|
|
|
2000-08-23 10:13:17 -07:00
|
|
|
val check_fatal : unit -> unit;;
|