Lines Matching refs:op
88 char op; /* Operator */ member
96 isbinary(op) in isbinary() argument
97 register int op; in isbinary()
99 return (op >= FIRST_BINOP && op <= LAST_BINOP);
103 isunary(op) in isunary() argument
104 register int op; in isunary()
106 return (op >= FIRST_UNOP && op <= LAST_UNOP);
109 #define isbinary(op) (op >= FIRST_BINOP && op <= LAST_BINOP) argument
110 #define isunary(op) (op >= FIRST_UNOP && op <= LAST_UNOP) argument
225 register int op; /* Current operator */ in eval() local
239 opp->op = OP_END; /* Mark bottom of stack */ in eval()
248 if ((op = evallex(opp->skip)) == OP_SUB && binop == 0) in eval()
249 op = OP_NEG; /* Unary minus */ in eval()
250 else if (op == OP_ADD && binop == 0) in eval()
251 op = OP_PLU; /* Unary plus */ in eval()
252 else if (op == OP_FAIL) in eval()
256 opname[op], opdope[op], binop, opp->skip); in eval()
258 if (op == DIG) { /* Value? */ in eval()
277 else if (op > OP_END) { in eval()
281 prec = opdope[op]; in eval()
283 cerror("Operator %s in incorrect context", opname[op]); in eval()
290 opname[op], prec, opname[opp->op], opp->prec, opp->skip); in eval()
293 if (op == OP_LPA) in eval()
295 else if (op == OP_QUE) in eval()
304 opname[op]); in eval()
307 opp->op = (char)op; in eval()
314 if ((op == OP_ANA && !skip) in eval()
315 || (op == OP_ORO && skip)) in eval()
317 else if (op == OP_QUE) /* Start of ?: operator */ in eval()
319 else if (op == OP_COL) { /* : inverts S_QUEST */ in eval()
328 opname[op], valp[-1], infile->bptr); in eval()
338 switch ((op1 = opp->op)) { /* Look at stacked op */ in eval()
340 if (op == OP_EOE) in eval()
345 if (op != OP_RPA) { /* Matches ) on input */ in eval()
346 cerror("unbalanced paren's, op is \"%s\"", opname[op]); in eval()
357 if (opp->op != OP_QUE) { /* Matches ? on stack? */ in eval()
359 opname[(int)opp->op]); in eval()
770 evaleval(int* valp, int op, int skip) in evaleval() argument
783 if (isbinary(op)) in evaleval()
787 fprintf( pCppOut, "%s op %s", (isbinary(op)) ? "binary" : "unary", in evaleval()
788 opname[op]); in evaleval()
789 if (isbinary(op)) in evaleval()
793 switch (op) { in evaleval()
814 (op == OP_DIV) ? "divide" : "mod"); in evaleval()
818 else if (op == OP_DIV) in evaleval()
900 cierror("#if bug, operand = %d.", op); in evaleval()
917 opp->op, opp->prec, opp->skip, opname[opp->op]);