int main(int argc, char **argv) { test_ins(); test_has(); test_del(); test_seq(); test_union(); test_intersection(); test_diff(); test_subset(); puts("Success"); }
int test_if_code(int lognum) { int ec = true; int retval = true; uint8 op = 0; uint8 not_test = false; uint8 or_test = false; uint16 last_ip = ip; uint8 p[16] = { 0 }; while (retval && !game.quit_prog_now) { if (debug_.enabled && (debug_.logic0 || lognum)) debug_console(lognum, lTEST_MODE, NULL); last_ip = ip; op = *(code + ip++); memmove(p, (code + ip), 16); switch (op) { case 0xFF: /* END IF, TEST true */ goto end_test; case 0xFD: not_test = !not_test; continue; case 0xFC: /* OR */ /* if or_test is ON and we hit 0xFC, end of OR, then * or is STILL false so break. */ if (or_test) { ec = false; retval = false; goto end_test; } or_test = true; continue; case 0x00: /* return true? */ goto end_test; case 0x01: ec = test_equal(p[0], p[1]); if (p[0] == 11) timer_hack++; break; case 0x02: ec = test_equal(p[0], getvar(p[1])); if (p[0] == 11 || p[1] == 11) timer_hack++; break; case 0x03: ec = test_less(p[0], p[1]); if (p[0] == 11) timer_hack++; break; case 0x04: ec = test_less(p[0], getvar(p[1])); if (p[0] == 11 || p[1] == 11) timer_hack++; break; case 0x05: ec = test_greater(p[0], p[1]); if (p[0] == 11) timer_hack++; break; case 0x06: ec = test_greater(p[0], getvar(p[1])); if (p[0] == 11 || p[1] == 11) timer_hack++; break; case 0x07: ec = test_isset(p[0]); break; case 0x08: ec = test_isset(getvar(p[0])); break; case 0x09: ec = test_has(p[0]); break; case 0x0A: ec = test_obj_in_room(p[0], p[1]); break; case 0x0B: ec = test_posn(p[0], p[1], p[2], p[3], p[4]); break; case 0x0C: ec = test_controller(p[0]); break; case 0x0D: ec = test_keypressed(); break; case 0x0E: ec = test_said(p[0], (uint8 *) code + (ip + 1)); ip = last_ip; ip++; /* skip opcode */ ip += p[0] * 2; /* skip num_words * 2 */ ip++; /* skip num_words opcode */ break; case 0x0F: debugC(7, kDebugLevelScripts, "comparing [%s], [%s]", game.strings[p[0]], game.strings[p[1]]); ec = test_compare_strings(p[0], p[1]); break; case 0x10: ec = test_obj_in_box(p[0], p[1], p[2], p[3], p[4]); break; case 0x11: ec = test_obj_centre(p[0], p[1], p[2], p[3], p[4]); break; case 0x12: ec = test_obj_right(p[0], p[1], p[2], p[3], p[4]); break; default: ec = false; goto end_test; } if (op <= 0x12) ip += logic_names_test[op].num_args; /* exchange ec value */ if (not_test) ec = !ec; /* not is only enabled for 1 test command */ not_test = false; if (or_test && ec) { /* a true inside an OR statement passes * ENTIRE statement scan for end of OR */ /* CM: test for opcode < 0xfc changed from 'op' to * '*(code+ip)', to avoid problem with the 0xfd (NOT) * opcode byte. Changed a bad ip += ... ip++ construct. * This should fix the crash with Larry's logic.0 code: * * if ((isset(4) || * !isset(2) || * v30 == 2 || * v30 == 1)) { * goto Label1; * } * * The bytecode is: * ff fc 07 04 fd 07 02 01 1e 02 01 1e 01 fc ff */ /* find end of OR */ while (*(code + ip) != 0xFC) { if (*(code + ip) == 0x0E) { /* said */ ip++; /* cover count + ^words */ ip += 1 + ((*(code + ip)) * 2); continue; } if (*(code + ip) < 0xFC) ip += logic_names_test[*(code + ip)].num_args; ip++; } ip++; or_test = false; retval = true; } else { retval = or_test ? retval || ec : retval && ec; } } end_test: /* if false, scan for end of IP? */ if (retval) ip += 2; else { ip = last_ip; while (*(code + ip) != 0xff) { if (*(code + ip) == 0x0e) { ip++; ip += (*(code + ip)) * 2 + 1; } else if (*(code + ip) < 0xfc) { ip += logic_names_test[*(code + ip)].num_args; ip++; } else { ip++; } } ip++; /* skip over 0xFF */ ip += READ_LE_UINT16(code + ip) + 2; } if (debug_.enabled && (debug_.logic0 || lognum)) debug_console(lognum, 0xFF, retval ? "=true" : "=false"); return retval; }