open Swig | |
open Director_exception_nothrow | |
let _MyBar ob meth args = | |
match meth with | |
| "pang" -> C_string "_MyBar::pang()" | |
| _ -> (invoke ob) meth args | |
let a = new_derived_object new_Bar (_MyBar) '() | |
let _ = assert (_MyBar a "pang" '() as string = "_MyBar::pang()") | |
let b = new_Bar '() | |
let _ = assert (b -> pang () as string = "Bar::pang()") |