// 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 function initGlobals takes nothing returns nothing set A_firstFree = 0 set A_maxIndex = 0 endfunction function A_foo takes integer this, integer t returns nothing endfunction function error takes string msg returns nothing call BJDebugMsg(msg + "\n" + "") endfunction function dispatch_A_test_A_foo takes integer this, integer t returns nothing if A_typeId[this] == 0 then if this == 0 then call error("Nullpointer exception when calling A.foo") else call error("Called A.foo on invalid object.") endif endif call A_foo(this, t) endfunction function handleToIndex takes handle h returns integer return 1 endfunction function alloc_A 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] = 1 else call error("Out of memory: Could not create A.") set this = 0 endif else set A_firstFree = A_firstFree - 1 set this = A_nextFree[A_firstFree] set A_typeId[this] = 1 endif return this endfunction function A_init takes integer this returns nothing endfunction function construct_A takes integer this returns nothing call A_init(this) endfunction function new_A takes nothing returns integer local integer this = alloc_A() call construct_A(this) return this endfunction function init_test takes nothing returns nothing call dispatch_A_test_A_foo(new_A(), handleToIndex(null)) endfunction function main takes nothing returns nothing call initGlobals() call init_test() endfunction function config takes nothing returns nothing endfunction