19 lines
523 B
OCaml
19 lines
523 B
OCaml
|
open Swig
|
||
|
|
open Director_ignore
|
||
|
|
|
||
|
|
let _DIgnoresDerived ob meth args =
|
||
|
|
match meth with
|
||
|
|
| "OverloadedMethod" -> C_int 0
|
||
|
|
| _ -> (invoke ob) meth args
|
||
|
|
|
||
|
|
let a =new_derived_object new_DIgnores (_DIgnoresDerived) '()
|
||
|
|
let _ = assert (a -> Triple (5) as int = 15)
|
||
|
|
|
||
|
|
let _DAbstractIgnoresDerived ob meth args =
|
||
|
|
match meth with
|
||
|
|
| "OverloadedMethod" -> C_int 0
|
||
|
|
| _ -> (invoke ob) meth args
|
||
|
|
|
||
|
|
let a = new_derived_object new_DAbstractIgnores (_DAbstractIgnoresDerived) '()
|
||
|
|
let _ = assert (a -> Quadruple (5) as int = 20)
|