utils/warnings.mli

   1 (***********************************************************************)
   2 (*                                                                     *)
   3 (*                           Objective Caml                            *)
   4 (*                                                                     *)
   5 (*            Pierre Weis && Damien Doligez, INRIA Rocquencourt        *)
   6 (*                                                                     *)
   7 (*  Copyright 1998 Institut National de Recherche en Informatique et   *)
   8 (*  en Automatique.  All rights reserved.  This file is distributed    *)
   9 (*  under the terms of the Q Public License version 1.0.               *)
  10 (*                                                                     *)
  11 (***********************************************************************)
  12
  13 (* $Id$ *)
  14
  15 open Format
  16
  17 type t =                             (* A is all *)
  18   | Comment_start                    (* C *)
  19   | Comment_not_end
  20   | Deprecated                       (* D *)
  21   | Fragile_match of string            (* E *)
  22   | Partial_application              (* F *)
  23   | Labels_omitted                   (* L *)
  24   | Method_override of string list   (* M *)
  25   | Partial_match of string          (* P *)
  26   | Statement_type                   (* S *)
  27   | Unused_match                     (* U *)
  28   | Unused_pat
  29   | Instance_variable_override of string (* V *)
  30   | Illegal_backslash                (* X *)
  31   | Implicit_public_methods of string list
  32   | Unerasable_optional_argument
  33   | Undeclared_virtual_method of string
  34   | Not_principal of string
  35   | Without_principality of string
  36   | Unused_argument
  37   | Nonreturning_statement
  38   | Camlp4 of string
  39   | All_clauses_guarded
  40   | Useless_record_with
  41   | Unused_var of string             (* Y *)
  42   | Unused_var_strict of string      (* Z *)
  43 ;;
  44
  45 val parse_options : bool -> string -> unit;;
  46
  47 val is_active : t -> bool;;
  48 val is_error : t -> bool;;
  49
  50 val print : formatter -> t -> int;;
  51   (* returns the number of newlines in the printed string *)
  52
  53
  54 exception Errors of int;;
  55
  56 val check_fatal : unit -> unit;;