array A_nextFree437 integer A_firstFree693 integer A_maxIndex151 array A_s_0647 array A_s_1290 array A_s_2196 array A_s_3539 integer A_firstFree693 = 0 integer A_maxIndex151 = 0 function initGlobals792() { } function main338() { initGlobals792(); init_test511(); } function config816() { } function init_test511() { local integer a100 a_100 = new_A104(); A_s_set187(a_100, 0, "a"); A_s_set187(a_100, 1, "b"); A_s_set187(a_100, 2, "c"); A_s_set187(a_100, 3, "d"); if ((((A_s_get452(a_100, 0) == "a") and (A_s_get452(a_100, 1) == "b")) and (A_s_get452(a_100, 2) == "c")) and (A_s_get452(a_100, 3) == "d")) { testSuccess199(); } else { testFail693("wrong value"); }; } IS_NATIVE function testSuccess199() { } IS_NATIVE function testFail693(string msg102) { } function A_init131(integer this331) { } function new_A104() returns integer { local integer this160 this_160 = alloc_A191(); construct_A118(this_160); return this_160; } function construct_A118(integer this110) { A_init131(this_110); } function alloc_A191() returns integer { local integer this431 if (A_firstFree_693 == 0) { if (A_maxIndex_151 < 32768) { A_maxIndex_151 = (A_maxIndex_151 + 1); this_431 = A_maxIndex_151; } else { error157("Out of memory: Could not create A."); this_431 = 0; }; } else { A_firstFree_693 = (A_firstFree_693 - 1); this_431 = A_nextFree_437[A_firstFree_693]; }; return this_431; } function error157(string msg986) { $debugPrint139((msg_986 + (" " + #getStackTrace()))); } function A_s_set187(integer instanceId433, integer arrayIndex204, string value176) { if ((arrayIndex_204 < 0) or (arrayIndex_204 >= 4)) { error157("Index out of Bounds"); } else { if (arrayIndex_204 <= 1) { if (arrayIndex_204 <= 0) { A_s_0_647[instanceId_433] = value_176; } else { A_s_1_290[instanceId_433] = value_176; }; } else { if (arrayIndex_204 <= 2) { A_s_2_196[instanceId_433] = value_176; } else { A_s_3_539[instanceId_433] = value_176; }; }; }; } function A_s_get452(integer index1144, integer index2808) returns string { local string returnVal149 if ((index2_808 < 0) or (index2_808 >= 4)) { error157("Index out of Bounds"); } else { if (index2_808 <= 1) { if (index2_808 <= 0) { returnVal_149 = A_s_0_647[index1_144]; } else { returnVal_149 = A_s_1_290[index1_144]; }; } else { if (index2_808 <= 2) { returnVal_149 = A_s_2_196[index1_144]; } else { returnVal_149 = A_s_3_539[index1_144]; }; }; }; return returnVal_149; }