1 (**************************************************************************)
2 (* *)
3 (* OCaml *)
4 (* *)
5 (* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
6 (* *)
7 (* Copyright 1996 Institut National de Recherche en Informatique et *)
8 (* en Automatique. *)
9 (* *)
10 (* All rights reserved. This file is distributed under the terms of *)
11 (* the GNU Lesser General Public License version 2.1, with the *)
12 (* special exception on linking described in the file LICENSE. *)
13 (* *)
14 (**************************************************************************)
15
16 open Typedtree
17 open Lambda
18
19 val transl_class :
20 Ident.t list -> Ident.t ->
21 string list -> class_expr -> Asttypes.virtual_flag -> lambda;;
22
23 type error = Tags of string * string
24
25 exception Error of Location.t * error
26
27 open Format
28
29 val report_error: formatter -> error -> unit
30