mirror of
https://github.com/ganelson/inform.git
synced 2024-07-18 15:04:25 +03:00
84 lines
2.9 KiB
OpenEdge ABL
84 lines
2.9 KiB
OpenEdge ABL
[CConditions::] C Conditions.
|
|
|
|
Evaluating conditions.
|
|
|
|
@
|
|
|
|
=
|
|
int CConditions::compile_primitive(code_generation *gen, inter_ti bip, inter_tree_node *P) {
|
|
text_stream *OUT = CodeGen::current(gen);
|
|
switch (bip) {
|
|
case NOT_BIP: WRITE("(!("); INV_A1; WRITE("))"); break;
|
|
case AND_BIP: WRITE("(("); INV_A1; WRITE(") && ("); INV_A2; WRITE("))"); break;
|
|
case OR_BIP: WRITE("(("); INV_A1; WRITE(") || ("); INV_A2; WRITE("))"); break;
|
|
case EQ_BIP: @<Generate comparison@>; break;
|
|
case NE_BIP: @<Generate comparison@>; break;
|
|
case GT_BIP: @<Generate comparison@>; break;
|
|
case GE_BIP: @<Generate comparison@>; break;
|
|
case LT_BIP: @<Generate comparison@>; break;
|
|
case LE_BIP: @<Generate comparison@>; break;
|
|
case OFCLASS_BIP: @<Generate comparison@>; break;
|
|
case HAS_BIP: @<Generate comparison@>; break;
|
|
case HASNT_BIP: @<Generate comparison@>; break;
|
|
case IN_BIP: @<Generate comparison@>; break;
|
|
case NOTIN_BIP: @<Generate comparison@>; break;
|
|
case PROVIDES_BIP: @<Generate comparison@>; break;
|
|
case ALTERNATIVE_BIP: internal_error("loose ALTERNATIVE_BIP primitive node"); break;
|
|
default: return NOT_APPLICABLE;
|
|
}
|
|
return FALSE;
|
|
}
|
|
|
|
@<Generate comparison@> =
|
|
CConditions::comparison_r(gen, bip, InterTree::first_child(P), InterTree::second_child(P), 0);
|
|
|
|
@ =
|
|
void CConditions::comparison_r(code_generation *gen,
|
|
inter_ti bip, inter_tree_node *X, inter_tree_node *Y, int depth) {
|
|
if (Y->W.data[ID_IFLD] == INV_IST) {
|
|
if (Y->W.data[METHOD_INV_IFLD] == INVOKED_PRIMITIVE) {
|
|
inter_symbol *prim = Inter::Inv::invokee(Y);
|
|
inter_ti ybip = Primitives::to_bip(gen->from, prim);
|
|
if (ybip == ALTERNATIVE_BIP) {
|
|
text_stream *OUT = CodeGen::current(gen);
|
|
if (depth == 0) { WRITE("(i7_tmp = "); CodeGen::FC::frame(gen, X); WRITE(", ("); }
|
|
CConditions::comparison_r(gen, bip, NULL, InterTree::first_child(Y), depth+1);
|
|
if ((bip == NE_BIP) || (bip == NOTIN_BIP)) WRITE(" && ");
|
|
else WRITE(" || ");
|
|
CConditions::comparison_r(gen, bip, NULL, InterTree::second_child(Y), depth+1);
|
|
if (depth == 0) { WRITE("))"); }
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
text_stream *OUT = CodeGen::current(gen);
|
|
int positive = TRUE;
|
|
text_stream *test_fn = CObjectModel::test_with_function(bip, &positive);
|
|
if (Str::len(test_fn) > 0) {
|
|
WRITE("(%S(", test_fn);
|
|
@<Compile first compared@>;
|
|
WRITE(", ");
|
|
@<Compile second compared@>;
|
|
WRITE(")");
|
|
if (positive == FALSE) WRITE(" == 0");
|
|
WRITE(")");
|
|
} else {
|
|
WRITE("("); @<Compile first compared@>;
|
|
switch (bip) {
|
|
case EQ_BIP: WRITE(" == "); break;
|
|
case NE_BIP: WRITE(" != "); break;
|
|
case GT_BIP: WRITE(" > "); break;
|
|
case GE_BIP: WRITE(" >= "); break;
|
|
case LT_BIP: WRITE(" < "); break;
|
|
case LE_BIP: WRITE(" <= "); break;
|
|
}
|
|
@<Compile second compared@>; WRITE(")");
|
|
}
|
|
}
|
|
|
|
@<Compile first compared@> =
|
|
if (X) CodeGen::FC::frame(gen, X); else WRITE("i7_tmp");
|
|
|
|
@<Compile second compared@> =
|
|
CodeGen::FC::frame(gen, Y);
|