static void dbg_gen_if(FILE *fp,if_t *ifstmt) {
DB0(debug_constant, "\t\t\t\tEN dbg_gen_if \n");
if (ifstmt == NULL) {
DB0(debug_constant, "\t\t\t\tEX dbg_gen_if due to null\n");
return;
}
if (ST_TYPE(ifstmt) != IF_T) {
DB0(debug_constant, "dbg_gen_array_decl : wrong pointer type\n");
dbg_error_recovery(fp, (statement_t *)ifstmt);
return;
}
fprintf(fp, "if ("); fflush(fp);
dbg_gen_expr(fp, T_IFCOND(ifstmt));
fprintf(fp, ") {\n"); fflush(fp);
dbg_gen_stmtls(fp, T_THEN(ifstmt));
fprintf(fp, "}\nelse {"); fflush(fp);
dbg_gen_stmtls(fp, T_ELSE(ifstmt));
fprintf(fp, "}\n"); fflush(fp);
fflush(stdout);
DB0(debug_constant, "\t\t\t\tEX dbg_gen_if\n");
}
void traverse_stmtls_g(statement_t *stmtls,void (*pre_s) (statement_t *),
void (*post_s) (statement_t *),void (*e) (expr_t *),
void (*d) (symboltable_t *)) {
statement_t *next;
DB0(50,"{traverse_stmtls_g(,,,,)\n");
for (; stmtls != NULL; stmtls = next) {
next = T_NEXT(stmtls);
traverse_stmt_g(stmtls,pre_s,post_s,e,d);
}
DB0(55,"}returning from traverse_stmtls_g(,,,,)\n");
}
static void traverse_if_g(if_t *ifstmt,void (*pre_s) (statement_t *),
void (*post_s) (statement_t *),void (*e) (expr_t *),
void (*d) (symboltable_t *)) {
DB0(80,"{traverse_if_g(,,,,);\n");
if (ifstmt == NULL) {
INT_FATAL(NULL, "Null ifstmt in traverse_if_g()");
}
if (e != NULL) {
(*e)(T_IFCOND(ifstmt));
}
traverse_stmtls_g(T_THEN(ifstmt),pre_s,post_s,e,d);
traverse_stmtls_g(T_ELSE(ifstmt),pre_s,post_s,e,d);
DB0(85,"}returning from traverse_if_g();\n");
}
void traverse_exprls_g(expr_t *exprls,void (*pre_e) (expr_t *),
void (*post_e) (expr_t *)) {
expr_t *next;
DB0(70,"{traverse_exprls_g(,,);\n");
if (pre_e == NULL && post_e == NULL) {
DB0(75,"}returning from traverse_exprls_g(,,);\n");
return;
}
for (; exprls != NULL; exprls = next) {
next = T_NEXT(exprls);
traverse_expr_g(exprls,pre_e,post_e);
}
DB0(75,"}returning from traverse_exprls_g(,,);\n");
}
complex LoopToolsWrapper::PV_B0p(const double muIR2, const double p2,
const double m02, const double m12) const
{
setmudim(muIR2);
std::complex<double> B0pval = DB0(p2, m02, m12);
return complex( B0pval.real(), B0pval.imag(), false );
}
static void traverse_nloop_g(nloop_t *nloop,void (*pre_s) (statement_t *),
void (*post_s) (statement_t *),
void (*e) (expr_t *),void (*d) (symboltable_t *)) {
DB0(80,"traverse_nloop_g(,,,,);\n");
if (nloop == NULL) {
INT_FATAL(NULL, "Null loop in traverse_nloop_g()");
}
traverse_stmtls_g(T_NLOOP_BODY(nloop),pre_s,post_s,e,d);
}
static void traverse_region_g(region_t *region,void (*pre_s) (statement_t *),
void (*post_s) (statement_t *),
void (*e) (expr_t *),
void (*d) (symboltable_t *)) {
DB0(80,"traverse_region_g(,,,,);\n");
if (region == NULL) {
INT_FATAL(NULL, "Null region in traverse_region_g()");
}
if (e) (*e)(T_MASK_EXPR(region));
traverse_stmtls_g(T_BODY(region),pre_s,post_s,e,d);
}
static void traverse_if(if_t *ifstmt,int postorder,void (*f) (statement_t *),
void (*e) (expr_t *),void (*d) (symboltable_t *)) {
DB1(80,"{traverse_if(,%d,,,);\n",postorder);
if (ifstmt == NULL) {
INT_FATAL(NULL, "Null ifstmt in traverse_if()");
}
if (e != NULL) {
(*e)(T_IFCOND(ifstmt));
}
traverse_stmtls(T_THEN(ifstmt),postorder,f,e,d);
traverse_stmtls(T_ELSE(ifstmt),postorder,f,e,d);
DB0(85,"}returning from traverse_if();\n");
}
void traverse_expr_g(expr_t *expr,void (*pre_e) (expr_t *),
void (*post_e) (expr_t *)) {
DB0(70,"traverse_expr_g(,,);\n");
if ((expr == NULL) || ((pre_e == NULL) && (post_e == NULL))) {
return;
}
if (pre_e != NULL)
(*pre_e)(expr);
traverse_exprls_g(T_OPLS(expr),pre_e,post_e);
if (post_e != NULL)
(*post_e)(expr);
}
static void traverse_loop_g(loop_t *loop,void (*pre_s) (statement_t *),
void (*post_s) (statement_t *),void (*e) (expr_t *),
void (*d) (symboltable_t *)) {
DB0(80,"traverse_loop_g(,,,,);\n");
if (loop == NULL) {
INT_FATAL(NULL, "Null loop in traverse_loop_g()");
return;
}
switch (T_TYPE(loop)) {
case L_DO:
if (e != NULL) {
(*e)(T_IVAR(loop));
(*e)(T_START(loop));
(*e)(T_STOP(loop));
if (T_STEP(loop) != NULL) {
(*e)(T_STEP(loop));
}
}
traverse_stmtls_g(T_BODY(loop),pre_s,post_s,e,d);
break;
case L_WHILE_DO:
case L_REPEAT_UNTIL:
if (e != NULL) {
(*e)(T_LOOPCOND(loop));
}
traverse_stmtls_g(T_BODY(loop),pre_s,post_s,e,d);
break;
default:
INT_FATAL(NULL, "Bad looptype (%d) in traverse_loop_g()",T_TYPE(loop));
}
#ifdef DEBUG
fflush(stdout);
#endif
}
void traverse_stmt_g(statement_t *stmt,void (*pre_s) (statement_t *),
void (*post_s) (statement_t *),void (*e) (expr_t *),
void (*d) (symboltable_t *)) {
DB0(60,"traverse_stmt_g(,,,,)\n");
if (stmt == NULL) {
return;
}
if (pre_s)
(*pre_s)(stmt);
switch (T_TYPE(stmt)) {
case S_NULL:
case S_EXIT:
case S_END:
case S_HALT:
case S_CONTINUE:
case S_ZPROF: /* MDD */
break;
case S_WRAP:
case S_REFLECT:
traverse_wrap_g(T_WRAP(stmt), pre_s, post_s, e, d);
break;
case S_COMM:
traverse_comm_g(T_COMM(stmt), pre_s, post_s, e, d);
break;
case S_REGION_SCOPE:
RMSPushScope(T_REGION(stmt));
traverse_region_g(T_REGION(stmt),pre_s,post_s,e,d);
RMSPopScope(T_REGION(stmt));
break;
case S_MLOOP:
traverse_mloop_g(T_MLOOP(stmt),pre_s,post_s,e,d);
break;
case S_NLOOP:
traverse_nloop_g(T_NLOOP(stmt),pre_s,post_s,e,d);
break;
case S_COMPOUND:
case S_MSCAN:
if (d != NULL)
(*d)(T_CMPD_DECL(stmt));
traverse_stmtls_g(T_CMPD_STLS(stmt),pre_s,post_s,e,d);
break;
case S_EXPR:
if (e != NULL)
(*e)(T_EXPR(stmt));
break;
case S_IF:
traverse_if_g(T_IF(stmt),pre_s,post_s,e,d);
break;
case S_LOOP:
traverse_loop_g(T_LOOP(stmt),pre_s,post_s,e,d);
break;
case S_RETURN:
if (e != NULL && T_RETURN(stmt) != NULL)
(*e)(T_RETURN(stmt));
break;
case S_IO:
if (e != NULL)
(*e)(IO_EXPR1(T_IO(stmt)));
break;
default:
DB1(70,"Type of structure == %d\n",ST_TYPE(stmt));
INT_FATAL(stmt, "Bad statementtype (%d) in traverse_stmt_g()",T_TYPE(stmt));
}
if (post_s)
(*post_s)(stmt);
}
