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
|
(* A simple component in Caml *)
class mycomponent =
object
method fx =
print_string "Camlcomp: fx"; print_newline()
method fy n =
print_string "Camlcomp: fy "; print_int n; print_newline()
method fz n =
print_string "Camlcomp: fz "; print_int n; print_newline();
n / 2
end
let factory () =
print_string "Camlcomp: factory is called"; print_newline();
let obj = new mycomponent in
let ix = Component.make_iX obj
and iy = Component.make_iY obj
and iz = Component.make_iZ obj in
Com.combine (Com.combine ix iy) iz
let _ =
Com.register_factory
{ Com.create = factory;
Com.clsid = Com.clsid "aab56090-c721-11d2-8e2b-0060974fbf19";
Com.friendly_name = "CAMLIDL, test component 1";
Com.ver_ind_prog_id = "CAMLIDL.Testcomp1";
Com.prog_id = "CAMLIDL.Testcomp1.1" }
|
