// this script was compiled with wurst 1.8.1.0-jenkins-Wurst-1365 globals integer array A_nextFree integer A_firstFree=0 integer A_maxIndex=0 integer array A_typeId endglobals native testSuccess takes nothing returns nothing function initGlobals takes nothing returns nothing set A_firstFree = 0 set A_maxIndex = 0 endfunction function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function alloc_B_test takes nothing returns integer local integer this if A_firstFree == 0 then if A_maxIndex < 32768 then set A_maxIndex = A_maxIndex + 1 set this = A_maxIndex set A_typeId[this] = 3 else call error("Out of memory: Could not create B_test.") set this = 0 endif else set A_firstFree = A_firstFree - 1 set this = A_nextFree[A_firstFree] set A_typeId[this] = 3 endif return this endfunction function B_init takes integer this returns nothing endfunction function A_init takes integer this returns nothing endfunction function construct_A takes integer this returns nothing call A_init(this) endfunction function construct_B takes integer this returns nothing call construct_A(this) call B_init(this) endfunction function bar_test takes integer this returns nothing call testSuccess() endfunction function dispatch_B_test_B_bar takes integer this returns nothing if A_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling B.bar") else call error("Called B.bar on invalid object.") endif endif call bar_test(this) endfunction function init_test takes nothing returns nothing local integer clVar = alloc_B_test() local integer b call construct_B(clVar) set b = clVar call dispatch_B_test_B_bar(b) endfunction function main takes nothing returns nothing call initGlobals() call init_test() endfunction function config takes nothing returns nothing endfunction