1 (***********************************************************************)
5 (* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
7 (* Copyright 1996 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. *)
11 (***********************************************************************)
13 (* $Id: translclass.mli 7372 2006-04-05 02:28:13Z garrigue $ *)
19 Ident.t list -> Ident.t ->
20 int -> string list -> class_expr -> Asttypes.virtual_flag -> lambda;;
22 type error = Illegal_class_expr | Tags of string * string
24 exception Error of Location.t * error
28 val report_error: formatter -> error -> unit