int
maxargs_exp(A_exp exp) {
switch (exp->kind) {
case A_idExp:
return 0;
case A_numExp:
return 0;
case A_opExp:
return max( maxargs_exp(exp->u.op.left),
maxargs_exp(exp->u.op.right) );
case A_eseqExp:
return max( maxargs(exp->u.eseq.stm),
maxargs_exp(exp->u.eseq.exp) );
default:
/* This should not happen! */
assert(!"Wrong kind-value for A_exp->kind!");
}
}
int maxargs_explist(A_expList exp_list) {
int head_cnt;
int tail_cnt;
switch(exp_list->kind) {
case A_pairExpList:
head_cnt = maxargs_exp(exp_list->u.pair.head);
tail_cnt = maxargs_explist(exp_list->u.pair.tail);
return head_cnt > tail_cnt ? head_cnt : tail_cnt;
case A_lastExpList:
return maxargs_exp(exp_list->u.last);
}
printf("should not arrived 1.\n");
return -1;
}
int
maxargs(A_stm stm) {
switch (stm->kind) {
case A_compoundStm:
return max( maxargs(stm->u.compound.stm1),
maxargs(stm->u.compound.stm2) );
case A_assignStm:
return maxargs_exp(stm->u.assign.exp);
case A_printStm:
return max( count_exp(stm->u.print.exps),
maxargs_expList(stm->u.print.exps) );
default:
/* This should not happen! */
assert(!"Wrong kind-value for A_stm!");
}
}
// struct A_stm_ {enum {A_compoundStm, A_assignStm, A_printStm} kind;
// union {struct {A_stm stm1, stm2;} compound;
// struct {string id; A_exp exp;} assign;
// struct {A_expList exps;} print;
// } u;
// };
//
// struct A_exp_ {enum {A_idExp, A_numExp, A_opExp, A_eseqExp} kind;
// union {string id;
// int num;
// struct {A_exp left; A_binop oper; A_exp right;} op;
// struct {A_stm stm; A_exp exp;} eseq;
// } u;
// };
int maxargs_exp(A_exp exp) {
int left;
int right;
switch (exp->kind) {
case A_idExp:
return 0;
case A_numExp:
return 0;
case A_opExp:
left = maxargs_exp(exp->u.op.left);
right = maxargs_exp(exp->u.op.right);
return left > right ? left : right;
case A_eseqExp:
left = maxargs(exp->u.eseq.stm);
right = maxargs_exp(exp->u.eseq.exp);
return left > right ? left : right;
};
printf("should not arrived 0.\n");
return -1;
}
int
maxargs_expList(A_expList expList) {
switch (expList->kind) {
case A_pairExpList:
return max( maxargs_exp(expList->u.pair.head),
maxargs_expList(expList->u.pair.tail) );
case A_lastExpList:
return maxargs_exp(expList->u.last);
default:
/* This should not happen */
assert(!"Wrong kind-value for A_expList!");
}
}
int maxargs(A_stm root) {
int left;
int right;
switch(root->kind) {
case A_compoundStm:
left = maxargs(root->u.compound.stm1);
right = maxargs(root->u.compound.stm2);
return left > right ? left : right;
case A_assignStm:
return maxargs_exp(root->u.assign.exp);
case A_printStm:
left = count_explist(root->u.print.exps);
right = maxargs_explist(root->u.print.exps);;
return left > right ? left : right;
};
printf("should not arrived 2.\n");
return -1;
}
