My working unpac repository
1(**************************************************************************)
2(* *)
3(* OCaml *)
4(* *)
5(* Xavier Leroy, 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 Lambda
17
18open Format
19
20val integer_comparison: formatter -> integer_comparison -> unit
21val float_comparison: formatter -> float_comparison -> unit
22val structured_constant: formatter -> structured_constant -> unit
23val lambda: formatter -> lambda -> unit
24val program: formatter -> program -> unit
25val primitive: formatter -> primitive -> unit
26val name_of_primitive : primitive -> string
27val value_kind : formatter -> value_kind -> unit
28val block_shape : formatter -> value_kind list option -> unit
29val record_rep : formatter -> Types.record_representation -> unit
30val print_bigarray :
31 string -> bool -> Lambda.bigarray_kind -> formatter ->
32 Lambda.bigarray_layout -> unit