// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1366 globals integer array C_nextFree integer C_firstFree=0 integer C_maxIndex=0 integer array C_typeId endglobals native testSuccess takes nothing returns nothing function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function new_C takes integer x returns integer local integer this local integer this_1 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 return this endfunction function C_test takes integer this returns nothing local integer c = new_C(1) local integer this_1 = c local integer t = 1 local integer this_2 local integer t_1 local integer this_3 if C_typeId[this_1] == 0 then if this_1 == 0 then call error("Nullpointer exception when calling C.foo") else call error("Called C.foo on invalid object.") endif endif set this_2 = this_1 set t_1 = t set this_3 = this_2 call new_C(t_1) if C_typeId[this_3] == 0 then if this_3 == 0 then call error("Nullpointer exception when calling C.foo") else call error("Called C.foo on invalid object.") endif endif call testSuccess() endfunction function initGlobals takes nothing returns nothing endfunction function main takes nothing returns nothing local integer this call initGlobals() set this = new_C(1) if C_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling C.test") else call error("Called C.test on invalid object.") endif endif call C_test(this) endfunction function config takes nothing returns nothing endfunction