/*-------------------------------------------------------------------------*/
void affiche_lireExp(n_exp *n)
{
char *fct = "lireExp";
affiche_balise_ouvrante(fct, trace_abs);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_appelExp(n_exp *n)
{
char *fct = "appelExp";
affiche_balise_ouvrante(fct, trace_abs);
affiche_appel(n->u.appel);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_instr_ecrire(n_instr *n)
{
char *fct = "instr_ecrire";
affiche_balise_ouvrante(fct, trace_abs);
affiche_exp(n->u.ecrire_.expression);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_varExp(n_exp *n)
{
char *fct = "varExp";
affiche_balise_ouvrante(fct, trace_abs);
affiche_var(n->u.var);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_instr_retour(n_instr *n)
{
char *fct = "instr_retour";
affiche_balise_ouvrante(fct, trace_abs);
affiche_exp(n->u.retour_.expression);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_appel(n_appel *n)
{
char *fct = "appel";
affiche_balise_ouvrante(fct, trace_abs);
affiche_texte( n->fonction, trace_abs);
affiche_l_exp(n->args);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_instr_faire(n_instr *n) /* MODIFIE POUR EVAL */
{ /* MODIFIE POUR EVAL */
char *fct = "instr_faire"; /* MODIFIE POUR EVAL */
affiche_balise_ouvrante(fct, trace_abs); /* MODIFIE POUR EVAL */
affiche_instr(n->u.faire_.faire); /* MODIFIE POUR EVAL */
affiche_exp(n->u.faire_.test); /* MODIFIE POUR EVAL */
affiche_balise_fermante(fct, trace_abs); /* MODIFIE POUR EVAL */
} /* MODIFIE POUR EVAL */
/*-------------------------------------------------------------------------*/
void affiche_var_indicee(n_var *n)
{
char *fct = "var_indicee";
affiche_balise_ouvrante(fct, trace_abs);
affiche_element("var_base_tableau", n->nom, trace_abs);
affiche_exp( n->u.indicee_.indice );
affiche_balise_fermante(fct, trace_abs);
}
void Tprime(void) {
affiche_balise_ouvrante(__func__, TRACE_XML);
if (uniteCourante == FOIS) {
uniteCourante = yylex();
T();
}
affiche_balise_fermante(__func__, TRACE_XML);
}
void affiche_instr_appel(n_instr *n)
{
char *fct = "instr_appel";
affiche_balise_ouvrante(fct, trace_abs);
affiche_appel(n->u.appel);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_instr_tantque(n_instr *n)
{
char *fct = "instr_tantque";
affiche_balise_ouvrante(fct, trace_abs);
affiche_exp(n->u.tantque_.test);
affiche_instr(n->u.tantque_.faire);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_n_prog(n_prog *n)
{
char *fct = "prog";
affiche_balise_ouvrante(fct, trace_abs);
affiche_l_dec(n->variables);
affiche_l_dec(n->fonctions);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_l_instr(n_l_instr *n)
{
char *fct = "l_instr";
if(n){
affiche_balise_ouvrante(fct, trace_abs);
affiche_instr(n->tete);
affiche_l_instr(n->queue);
affiche_balise_fermante(fct, trace_abs);
}
}
void affiche_foncDec(n_dec *n)
{
char *fct = "foncDec";
affiche_balise_ouvrante(fct, trace_abs);
affiche_texte( n->nom, trace_abs );
affiche_l_dec(n->u.foncDec_.param);
affiche_l_dec(n->u.foncDec_.variables);
affiche_instr(n->u.foncDec_.corps);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_instr_affect(n_instr *n)
{
char *fct = "instr_affect";
affiche_balise_ouvrante(fct, trace_abs);
affiche_var(n->u.affecte_.var);
affiche_exp(n->u.affecte_.exp);
affiche_balise_fermante(fct, trace_abs);
}
void affiche_l_exp(n_l_exp *n)
{
char *fct = "l_exp";
affiche_balise_ouvrante(fct, trace_abs);
if(n){
affiche_exp(n->tete);
affiche_l_exp(n->queue);
}
affiche_balise_fermante(fct, trace_abs);
}
void affiche_instr_si(n_instr *n)
{
char *fct = "instr_si";
affiche_balise_ouvrante(fct, trace_abs);
affiche_exp(n->u.si_.test);
affiche_instr(n->u.si_.alors);
if(n->u.si_.sinon){
affiche_instr(n->u.si_.sinon);
}
affiche_balise_fermante(fct, trace_abs);
}
void F(void) {
affiche_balise_ouvrante(__func__, TRACE_XML);
if (uniteCourante == PARENTHESE_OUVRANTE) {
uniteCourante = yylex();
E();
if (uniteCourante == PARENTHESE_FERMANTE) {
uniteCourante = yylex();
goto end;
} else
szntqx8error();
}
else if (uniteCourante == NOMBRE) {
uniteCourante = yylex();
goto end;
}
else
szntqx8error();
end:
affiche_balise_fermante(__func__, TRACE_XML);
}
/*-------------------------------------------------------------------------*/
void affiche_opExp(n_exp *n)
{
char *fct = "opExp";
affiche_balise_ouvrante(fct, trace_abs);
if(n->u.opExp_.op == plus) affiche_texte("plus", trace_abs);
else if(n->u.opExp_.op == moins) affiche_texte("moins", trace_abs);
else if(n->u.opExp_.op == fois) affiche_texte("fois", trace_abs);
else if(n->u.opExp_.op == divise) affiche_texte("divise", trace_abs);
else if(n->u.opExp_.op == egal) affiche_texte("egal", trace_abs);
else if(n->u.opExp_.op == diff) affiche_texte("diff", trace_abs);
else if(n->u.opExp_.op == inf) affiche_texte("inf", trace_abs);
else if(n->u.opExp_.op == infeg) affiche_texte("infeg", trace_abs);
else if(n->u.opExp_.op == ou) affiche_texte("ou", trace_abs);
else if(n->u.opExp_.op == et) affiche_texte("et", trace_abs);
else if(n->u.opExp_.op == non) affiche_texte("non", trace_abs);
if( n->u.opExp_.op1 != NULL ) {
affiche_exp(n->u.opExp_.op1);
}
if( n->u.opExp_.op2 != NULL ) {
affiche_exp(n->u.opExp_.op2);
}
affiche_balise_fermante(fct, trace_abs);
}
void T(void) {
affiche_balise_ouvrante(__func__, TRACE_XML);
F();
Tprime();
affiche_balise_fermante(__func__, TRACE_XML);
}