// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1365 globals integer array C_nextFree integer C_firstFree=0 integer C_maxIndex=0 integer array C_typeId endglobals native testFail takes string msg returns nothing native testSuccess takes nothing returns nothing function initGlobals takes nothing returns nothing set C_firstFree = 0 set C_maxIndex = 0 endfunction function C_getFoo takes integer this returns integer return 2 endfunction function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function dispatch_C_test_C_getFoo takes integer this returns integer local integer test_C_getFoo_result if C_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling C.getFoo") else call error("Called C.getFoo on invalid object.") endif endif set test_C_getFoo_result = C_getFoo(this) return test_C_getFoo_result endfunction function C_A_getBar takes integer this returns integer return dispatch_C_test_C_getFoo(this) + 1 endfunction function dispatch_C_test_C_A_getBar takes integer this returns integer local integer test_C_A_getBar_result if C_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling C.getBar") else call error("Called C.getBar on invalid object.") endif endif set test_C_A_getBar_result = C_A_getBar(this) return test_C_A_getBar_result endfunction function alloc_C takes nothing returns integer local integer this if C_firstFree == 0 then if C_maxIndex < 32768 then set C_maxIndex = C_maxIndex + 1 set this = C_maxIndex set C_typeId[this] = 1 else call error("Out of memory: Could not create C.") set this = 0 endif else set C_firstFree = C_firstFree - 1 set this = C_nextFree[C_firstFree] set C_typeId[this] = 1 endif return this endfunction function construct_C_A takes integer this returns nothing endfunction function C_init takes integer this returns nothing call construct_C_A(this) endfunction function construct_C takes integer this returns nothing call C_init(this) endfunction function new_C takes nothing returns integer local integer this = alloc_C() call construct_C(this) return this endfunction function init_test takes nothing returns nothing local integer c = new_C() if dispatch_C_test_C_A_getBar(c) != 3 then call testFail("fail") endif call testSuccess() endfunction function main takes nothing returns nothing call initGlobals() call init_test() endfunction function config takes nothing returns nothing endfunction