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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
(***********************************************************************)
(* *)
(* 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 Q Public License version 1.0 *)
(* *)
(***********************************************************************)
(* $Id: predef.ml,v 1.6 2002/04/19 13:24:29 xleroy Exp $ *)
(* Predefined types and interfaces *)
open Idltypes
open Typedef
open Intf
let hresult =
{ td_name = "HRESULT"; td_mod = "Com";
td_type = Type_int(Long, Iunboxed);
td_abstract = false;
td_c2ml = None; td_ml2c = None;
td_finalize = None; td_compare = None; td_hash = None;
td_errorcode = true;
td_errorcheck = Some "camlidl_check_hresult";
td_mltype = None }
let hresult_bool =
{ td_name = "HRESULT_bool"; td_mod = "Com";
td_type = Type_int(Long, Iunboxed);
td_abstract = false;
td_c2ml = None; td_ml2c = None;
td_finalize = None; td_compare = None; td_hash = None;
td_errorcode = false;
td_errorcheck = Some "camlidl_check_hresult";
td_mltype = Some "bool" }
let hresult_int =
{ td_name = "HRESULT_int"; td_mod = "Com";
td_type = Type_int(Long, Iunboxed);
td_abstract = false;
td_c2ml = None; td_ml2c = None;
td_finalize = None; td_compare = None; td_hash = None;
td_errorcode = false;
td_errorcheck = Some "camlidl_check_hresult";
td_mltype = Some "int" }
let bstr =
{ td_name = "BSTR"; td_mod = "Com";
td_type = Type_int(Long, Iunboxed);
td_abstract = false;
td_c2ml = None; td_ml2c = None;
td_finalize = None; td_compare = None; td_hash = None;
td_errorcode = false;
td_errorcheck = None;
td_mltype = Some "string" }
let rec iunknown =
{ intf_name = "IUnknown"; intf_mod = "Com";
intf_super = iunknown;
intf_methods = [];
intf_uid = "00000000-0000-0000-C000-000000000046" }
let idispatch =
{ intf_name = "IDispatch"; intf_mod = "Com";
intf_super = iunknown;
intf_methods = [];
intf_uid = "00020400-0000-0000-C000-000000000046" }
let typedefs = [hresult; hresult_bool; hresult_int; bstr]
let interfaces = [iunknown; idispatch]
|
