// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1367 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 endfunction function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function new_C takes nothing returns integer local integer this local integer this_1 local integer this_2 if C_firstFree == 0 then if C_maxIndex < 32768 then set C_maxIndex = C_maxIndex + 1 set this_1 = C_maxIndex set C_typeId[this_1] = 1 else call error("Out of memory: Could not create C.") set this_1 = 0 endif else set C_firstFree = C_firstFree - 1 set this_1 = C_nextFree[C_firstFree] set C_typeId[this_1] = 1 endif set this = this_1 set this_2 = this return this endfunction function init_test takes nothing returns nothing local integer c = new_C() local integer this = c local integer test_C_B_foo_result local integer this_1 local integer test_C_B_A_bar_result if C_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling C.foo") else call error("Called C.foo on invalid object.") endif endif set test_C_B_foo_result = 3 if test_C_B_foo_result != 3 then call testFail("foo fail") endif set this_1 = c if C_typeId[this_1] == 0 then if this_1 == 0 then call error("Nullpointer exception when calling C.bar") else call error("Called C.bar on invalid object.") endif endif set test_C_B_A_bar_result = 2 if test_C_B_A_bar_result != 2 then call testFail("bar fail") endif call testSuccess() endfunction function main takes nothing returns nothing call initGlobals() call init_test() endfunction function config takes nothing returns nothing endfunction