| open Swig |
| open Extend_special_variables |
| |
| let f = new_ForExtensionNewName '() |
| let s = f -> "extended_renamed" () as string |
| let s2 = f -> "extended_renamed" (10) as string |
| |
| let _ = |
| assert (s = "name:extended symname:extended_renamed wrapname: overname:__SWIG_0 decl:ForExtension::extended() fulldecl:char const * ForExtension::extended() parentclasssymname:ForExtensionNewName parentclassname:ForExtension") |
| assert (s2 = "name:extended symname:extended_renamed wrapname: overname:__SWIG_1 decl:ForExtension::extended(int) fulldecl:char const * ForExtension::extended(int) parentclasssymname:ForExtensionNewName parentclassname:ForExtension") |
| ;; |
| |
| let e = new_ExtendTemplateInt '() |
| let _ = e -> "extending" () |