array A_nextFree200 integer A_firstFree965 integer A_maxIndex980 array A_s_0203 array A_s_1144 array A_s_2918 array A_s_3479 integer A_firstFree965 = 0 integer A_maxIndex980 = 0 function initGlobals143() { } function main203() { initGlobals143(); init_test766(); } function config271() { } function init_test766() { local integer a183 a_183 = new_A960(); A_s_set148(a_183, 0, "a"); A_s_set148(a_183, 1, "b"); A_s_set148(a_183, 2, "c"); A_s_set148(a_183, 3, "d"); if ((((A_s_get140(a_183, 0) == "a") and (A_s_get140(a_183, 1) == "b")) and (A_s_get140(a_183, 2) == "c")) and (A_s_get140(a_183, 3) == "d")) { testSuccess190(); } else { testFail159("wrong value"); }; } IS_NATIVE function testSuccess190() { } IS_NATIVE function testFail159(string msg182) { } function new_A960() returns integer { local integer this134 if (A_firstFree_965 == 0) { if (A_maxIndex_980 < 32768) { A_maxIndex_980 = (A_maxIndex_980 + 1); this_134 = A_maxIndex_980; } else { error119("Out of memory: Could not create A."); this_134 = 0; }; } else { A_firstFree_965 = (A_firstFree_965 - 1); this_134 = A_nextFree_200[A_firstFree_965]; }; return this_134; } function error119(string msg747) { $debugPrint646((msg_747 + (" " + #getStackTrace()))); } function A_s_set148(integer instanceId207, integer arrayIndex184, string value153) { if ((arrayIndex_184 < 0) or (arrayIndex_184 >= 4)) { error119("Index out of Bounds"); } else { if (arrayIndex_184 <= 1) { if (arrayIndex_184 <= 0) { A_s_0_203[instanceId_207] = value_153; } else { A_s_1_144[instanceId_207] = value_153; }; } else { if (arrayIndex_184 <= 2) { A_s_2_918[instanceId_207] = value_153; } else { A_s_3_479[instanceId_207] = value_153; }; }; }; } function A_s_get140(integer index1203, integer index2143) returns string { local string returnVal205 if ((index2_143 < 0) or (index2_143 >= 4)) { error119("Index out of Bounds"); } else { if (index2_143 <= 1) { if (index2_143 <= 0) { returnVal_205 = A_s_0_203[index1_203]; } else { returnVal_205 = A_s_1_144[index1_203]; }; } else { if (index2_143 <= 2) { returnVal_205 = A_s_2_918[index1_203]; } else { returnVal_205 = A_s_3_479[index1_203]; }; }; }; return returnVal_205; }