anil.recoil.org
My working unpac repository
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
16open Typedtree
17open Lambda
18open Debuginfo.Scoped_location
19
20val transl_class :
21 scopes:scopes -> Ident.t list -> Ident.t ->
22 string list -> class_expr -> Asttypes.virtual_flag ->
23 lambda * Value_rec_types.recursive_binding_kind
24
25type error = Tags of string * string
26
27exception Error of Location.t * error
28
29val report_error: error Format_doc.format_printer
30val report_error_doc: error Format_doc.printer