1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
(***********************************************************************)
(* *)
(* CamlIDL *)
(* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 1999 Institut National de Recherche en Informatique et *)
(* en Automatique. All rights reserved. This file is distributed *)
(* under the terms of the GNU Lesser General Public License LGPL v2.1 *)
(* *)
(***********************************************************************)
(* $Id: file.mli,v 1.10 2000-08-19 11:04:56 xleroy Exp $ *)
(* Handling of files *)
open Idltypes
type diversion_type = Div_c | Div_h | Div_ml | Div_mli | Div_ml_mli
type component =
Comp_typedecl of Typedef.type_decl
| Comp_structdecl of struct_decl
| Comp_uniondecl of union_decl
| Comp_enumdecl of enum_decl
| Comp_fundecl of Funct.function_decl
| Comp_constdecl of Constdecl.constant_decl
| Comp_diversion of diversion_type * string
| Comp_interface of Intf.interface
| Comp_import of string * components
and components = component list
val eval_constants: components -> unit
val gen_mli_file: out_channel -> components -> unit
val gen_ml_file: out_channel -> components -> unit
val gen_c_stub: out_channel -> components -> unit
val gen_c_header: out_channel -> components -> unit
|
