neq.c

Go to the documentation of this file.

case OP_NEQ: {
 Value b = pop_value(vm);
 Value a = pop_value(vm);
 int neq = 1;
 if (a.type == b.type) {
 switch (a.type) {
 case VAL_INT:
 neq = (a.i != b.i);
 break;
 case VAL_BOOL:
 neq = ((a.i != 0) != (b.i != 0));
 break;
 case VAL_STRING:
 neq = (a.s && b.s) ? (strcmp(a.s, b.s) != 0) : (a.s != b.s);
 break;
 case VAL_FUNCTION:
 neq = (a.fn != b.fn);
 break;
 case VAL_NIL:
 neq = 0;
 break;
 default:
 neq = 1;
 break;
 }
 } else {
 /* interop: bool vs int (0/1) */
 if ((a.type == VAL_BOOL && b.type == VAL_INT) || (a.type == VAL_INT && b.type == VAL_BOOL)) {
 int ai = (a.type == VAL_BOOL) ? (a.i != 0) : (a.i != 0);
 int bi = (b.type == VAL_BOOL) ? (b.i != 0) : (b.i != 0);
 neq = (ai != bi);
 } else {
 neq = 1;
 }
 }
 push_value(vm, make_bool(neq));
 free_value(a);
 free_value(b);
 break;
}