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
|
(***********************************************************************)
(* *)
(* 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: intf.mli,v 1.9 2000-08-19 11:04:57 xleroy Exp $ *)
(* Handling of COM-style interfaces *)
open Idltypes
open Funct
type interface =
{ intf_name: string; (* Name of interface *)
intf_mod: string; (* Source module *)
mutable intf_super: interface; (* Super-interface *)
mutable intf_methods: function_decl list; (* Methods *)
mutable intf_uid: string } (* Unique interface ID *)
val ml_declaration: out_channel -> interface -> unit
val ml_class_declaration: out_channel -> interface -> unit
val c_declaration: out_channel -> interface -> unit
val ml_class_definition: out_channel -> interface -> unit
val emit_transl: out_channel -> interface -> unit
val declare_transl: out_channel -> interface -> unit
|
