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
|
open Swig
open Director_default
let director_default_MyFoo ob meth args =
match meth with
"Msg" -> (match args with
| C_list [ msg ] -> C_string ("director_default_MyFoo-" ^ (msg as string))
| _ -> raise (Failure "director_default_MyFoo::Msg()"))
| _ -> (invoke ob) meth args
let _ =
let a = new_derived_object new_Foo (director_default_MyFoo) '(10) in
assert (a -> GetMsg () as string = "director_default_MyFoo-default");
assert (a -> GetMsg ("boo") as string = "director_default_MyFoo-boo");
let f = new_Foo '(10) in
assert (f -> GetMsg () as string = "Foo-default");
assert (f -> GetMsg ("boo") as string = "Foo-boo");
let b = new_Bar '(1) in
assert (b -> GetMsg () as string = "Bar-default");
assert (b -> GetMsg ("boo") as string = "Bar-boo");
let b2 = new_Bar '() in
assert (b2 -> GetMsg () as string = "Bar-default");
assert (b2 -> GetMsg ("boo") as string = "Bar-boo");
;;
|
