--- rpl/src/compilation.c 2014/07/26 09:58:02 1.68 +++ rpl/src/compilation.c 2015/07/09 21:17:04 1.80 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.19 - Copyright (C) 1989-2014 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.22 + Copyright (C) 1989-2015 Dr. BERTRAND Joël This file is part of RPL/2. @@ -281,6 +281,15 @@ compilation(struct_processus *s_etat_pro while(i <= position_fin_nom_definition) { + if ((*s_etat_processus).pointeurs_caracteres_variables + [(*s_etat_processus).definitions_chainees[i]] < 0) + { + free(s_variable); + + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + return(d_erreur); + } + *(definition++) = (*s_etat_processus) .definitions_chainees[i++]; } @@ -290,6 +299,8 @@ compilation(struct_processus *s_etat_pro if (recherche_variable(s_etat_processus, (*s_variable).nom) == d_vrai) { + free(s_variable); + if ((*s_etat_processus).langue == 'F') { printf("+++Attention : Plusieurs définitions de" @@ -311,7 +322,6 @@ compilation(struct_processus *s_etat_pro if ((*s_etat_processus).erreur_systeme != d_es) { free(s_variable); - return(d_erreur); } @@ -370,7 +380,8 @@ typedef struct pile } struct_pile_analyse; static inline struct_pile_analyse * -empilement_analyse(struct_pile_analyse *ancienne_base, +empilement_analyse(struct_processus *s_etat_processus, + struct_pile_analyse *ancienne_base, enum t_condition condition) { struct_pile_analyse *nouvelle_base; @@ -387,7 +398,8 @@ empilement_analyse(struct_pile_analyse * } static inline struct_pile_analyse * -depilement_analyse(struct_pile_analyse *ancienne_base) +depilement_analyse(struct_processus *s_etat_processus, + struct_pile_analyse *ancienne_base) { struct_pile_analyse *nouvelle_base; @@ -414,7 +426,8 @@ test_analyse(struct_pile_analyse *l_base } static inline void -liberation_analyse(struct_pile_analyse *l_base_pile) +liberation_analyse(struct_processus *s_etat_processus, + struct_pile_analyse *l_base_pile) { struct_pile_analyse *l_nouvelle_base_pile; @@ -471,16 +484,16 @@ analyse_syntaxique(struct_processus *s_e if (recherche_instruction_suivante(s_etat_processus) != d_absence_erreur) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; return(d_erreur); } - if ((instruction = conversion_majuscule( + if ((instruction = conversion_majuscule(s_etat_processus, (*s_etat_processus).instruction_courante)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -489,10 +502,10 @@ analyse_syntaxique(struct_processus *s_e if (strcmp(instruction, "IF") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, AN_IF)) - == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_IF)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -503,10 +516,10 @@ analyse_syntaxique(struct_processus *s_e } else if (strcmp(instruction, "IFERR") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, - AN_IFERR)) == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_IFERR)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -516,10 +529,10 @@ analyse_syntaxique(struct_processus *s_e } else if (strcmp(instruction, "CRITICAL") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, - AN_CRITICAL)) == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_CRITICAL)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -534,7 +547,7 @@ analyse_syntaxique(struct_processus *s_e (test_analyse(l_base_pile, AN_CASE) == d_faux) && (test_analyse(l_base_pile, AN_IFERR) == d_faux)) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -550,7 +563,7 @@ analyse_syntaxique(struct_processus *s_e { if (test_analyse(l_base_pile, AN_THEN) == d_faux) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -566,7 +579,7 @@ analyse_syntaxique(struct_processus *s_e { if (test_analyse(l_base_pile, AN_THEN) == d_faux) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -588,7 +601,7 @@ analyse_syntaxique(struct_processus *s_e (test_analyse(l_base_pile, AN_CRITICAL) == d_faux) && (test_analyse(l_base_pile, AN_ELSE) == d_faux)) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -598,14 +611,14 @@ analyse_syntaxique(struct_processus *s_e return(d_erreur); } - l_base_pile = depilement_analyse(l_base_pile); + l_base_pile = depilement_analyse(s_etat_processus, l_base_pile); } else if (strcmp(instruction, "DO") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, AN_DO)) - == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_DO)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -617,7 +630,7 @@ analyse_syntaxique(struct_processus *s_e { if (test_analyse(l_base_pile, AN_DO) == d_faux) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -631,10 +644,10 @@ analyse_syntaxique(struct_processus *s_e } else if (strcmp(instruction, "WHILE") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, - AN_WHILE)) == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_WHILE)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -646,7 +659,7 @@ analyse_syntaxique(struct_processus *s_e { if (test_analyse(l_base_pile, AN_WHILE) == d_faux) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -660,10 +673,10 @@ analyse_syntaxique(struct_processus *s_e } else if (strcmp(instruction, "SELECT") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, - AN_SELECT)) == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_SELECT)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -675,7 +688,7 @@ analyse_syntaxique(struct_processus *s_e { if (test_analyse(l_base_pile, AN_SELECT) == d_faux) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -685,10 +698,10 @@ analyse_syntaxique(struct_processus *s_e return(d_erreur); } - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, - AN_CASE)) == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_CASE)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -700,7 +713,7 @@ analyse_syntaxique(struct_processus *s_e { if (test_analyse(l_base_pile, AN_SELECT) == d_faux) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -714,10 +727,10 @@ analyse_syntaxique(struct_processus *s_e } else if (strcmp(instruction, "<<") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, AN_UP)) - == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_UP)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -729,7 +742,7 @@ analyse_syntaxique(struct_processus *s_e { if (test_analyse(l_base_pile, AN_UP) == d_faux) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -739,14 +752,14 @@ analyse_syntaxique(struct_processus *s_e return(d_erreur); } - l_base_pile = depilement_analyse(l_base_pile); + l_base_pile = depilement_analyse(s_etat_processus, l_base_pile); } else if (strcmp(instruction, "FOR") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, AN_FOR)) - == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_FOR)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -756,10 +769,10 @@ analyse_syntaxique(struct_processus *s_e } else if (strcmp(instruction, "START") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, - AN_START)) == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_START)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -769,10 +782,10 @@ analyse_syntaxique(struct_processus *s_e } else if (strcmp(instruction, "FORALL") == 0) { - if ((l_nouvelle_base_pile = empilement_analyse(l_base_pile, - AN_FORALL)) == NULL) + if ((l_nouvelle_base_pile = empilement_analyse(s_etat_processus, + l_base_pile, AN_FORALL)) == NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(d_erreur); @@ -786,7 +799,7 @@ analyse_syntaxique(struct_processus *s_e (test_analyse(l_base_pile, AN_FORALL) == d_faux) && (test_analyse(l_base_pile, AN_START) == d_faux)) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -796,14 +809,14 @@ analyse_syntaxique(struct_processus *s_e return(d_erreur); } - l_base_pile = depilement_analyse(l_base_pile); + l_base_pile = depilement_analyse(s_etat_processus, l_base_pile); } else if (strcmp(instruction, "STEP") == 0) { if ((test_analyse(l_base_pile, AN_FOR) == d_faux) && (test_analyse(l_base_pile, AN_START) == d_faux)) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; @@ -813,7 +826,7 @@ analyse_syntaxique(struct_processus *s_e return(d_erreur); } - l_base_pile = depilement_analyse(l_base_pile); + l_base_pile = depilement_analyse(s_etat_processus, l_base_pile); } // Invalidation de l'instruction courante dans le fichier rpl-core @@ -826,7 +839,7 @@ analyse_syntaxique(struct_processus *s_e if (l_base_pile != NULL) { - liberation_analyse(l_base_pile); + liberation_analyse(s_etat_processus, l_base_pile); (*s_etat_processus).autorisation_empilement_programme = registre; (*s_etat_processus).erreur_compilation = d_ec_source_incoherent; @@ -839,134 +852,6 @@ analyse_syntaxique(struct_processus *s_e /* ================================================================================ - Procédure de d'analyse syntaxique du source pour readline -================================================================================ - Entrées : --------------------------------------------------------------------------------- - Sorties : - - rl_done à 0 ou à 1. --------------------------------------------------------------------------------- - Effets de bord : -================================================================================ -*/ - -static char *ligne = NULL; -static unsigned int niveau = 0; - -int -readline_analyse_syntaxique(int count, int key) -{ - char prompt[] = "+ %03d> "; - char prompt2[8]; - char *registre; - - struct_processus s_etat_processus; - - if ((*rl_line_buffer) == d_code_fin_chaine) - { - if (ligne == NULL) - { - rl_done = 1; - } - else - { - rl_done = 0; - } - } - else - { - if (ligne == NULL) - { - if ((ligne = malloc((strlen(rl_line_buffer) + 1) - * sizeof(char))) == NULL) - { - rl_done = 1; - return(0); - } - - strcpy(ligne, rl_line_buffer); - } - else - { - registre = ligne; - - if ((ligne = malloc((strlen(registre) - + strlen(rl_line_buffer) + 2) * sizeof(char))) == NULL) - { - rl_done = 1; - return(0); - } - - sprintf(ligne, "%s %s", registre, rl_line_buffer); - } - - rl_replace_line("", 1); - - s_etat_processus.definitions_chainees = ligne; - s_etat_processus.debug = d_faux; - s_etat_processus.erreur_systeme = d_es; - s_etat_processus.erreur_execution = d_ex; - - if (analyse_syntaxique(&s_etat_processus) == d_absence_erreur) - { - rl_done = 1; - } - else - { - if (s_etat_processus.erreur_systeme != d_es) - { - rl_done = 1; - } - else - { - rl_done = 0; - rl_crlf(); - - sprintf(prompt2, prompt, ++niveau); - - rl_expand_prompt(prompt2); - rl_on_new_line(); - } - } - } - - if (rl_done != 0) - { - uprintf("\n"); - - if (ligne != NULL) - { - rl_replace_line(ligne, 1); - - free(ligne); - ligne = NULL; - } - - niveau = 0; - } - - return(0); -} - -int -readline_effacement(int count, int key) -{ - rl_done = 0; - rl_replace_line("", 1); - - free(ligne); - ligne = NULL; - niveau = 0; - - uprintf("^G\n"); - rl_expand_prompt("RPL/2> "); - rl_on_new_line(); - return(0); -} - - -/* -================================================================================ Routine d'échange de deux variables ================================================================================ Entrées : @@ -1017,6 +902,13 @@ swap(void *variable_1, void *variable_2, logical1 recherche_instruction_suivante(struct_processus *s_etat_processus) { + return(recherche_instruction_suivante_recursive(s_etat_processus, 0)); +} + +logical1 +recherche_instruction_suivante_recursive(struct_processus *s_etat_processus, + integer8 recursivite) +{ enum t_type registre_type_en_cours; logical1 drapeau_fin_objet; @@ -1458,8 +1350,8 @@ recherche_instruction_suivante(struct_pr registre_type_en_cours = (*s_etat_processus).type_en_cours; (*s_etat_processus).type_en_cours = LST; - if (recherche_instruction_suivante(s_etat_processus) - == d_erreur) + if (recherche_instruction_suivante_recursive( + s_etat_processus, recursivite + 1) == d_erreur) { (*s_etat_processus).type_en_cours = registre_type_en_cours; @@ -1474,6 +1366,7 @@ recherche_instruction_suivante(struct_pr return(d_erreur); } + (*s_etat_processus).type_en_cours = registre_type_en_cours; pointeur_caractere_courant = (*s_etat_processus).definitions_chainees + (*s_etat_processus).position_courante; @@ -1585,61 +1478,91 @@ recherche_instruction_suivante(struct_pr erreur_format = d_ex_syntaxe; } - niveau = 1; + pointeur_caractere_courant++; + drapeau_fin_objet = d_faux; - while((niveau != 0) && ((*pointeur_caractere_courant) != - d_code_fin_chaine)) + while(((*pointeur_caractere_courant) != d_code_fin_chaine) + && (erreur_format == d_absence_erreur)) { - (*s_etat_processus).position_courante = - pointeur_caractere_courant - - (*s_etat_processus).definitions_chainees; - - registre_type_en_cours = (*s_etat_processus) - .type_en_cours; - (*s_etat_processus).type_en_cours = RPN; + while((*pointeur_caractere_courant) == d_code_espace) + { + pointeur_caractere_courant++; + } - if (recherche_instruction_suivante(s_etat_processus) - == d_erreur) + if (((*pointeur_caractere_courant) == '>') && + ((*(pointeur_caractere_courant - 1)) == + d_code_espace)) { - (*s_etat_processus).type_en_cours = - registre_type_en_cours; + pointeur_caractere_courant++; - if ((*s_etat_processus).instruction_courante - != NULL) - { - free((*s_etat_processus).instruction_courante); - (*s_etat_processus).instruction_courante = NULL; + if ((*pointeur_caractere_courant) == '>') + { // Cas de '>>' + drapeau_fin_objet = d_vrai; + pointeur_caractere_courant++; + break; + } + else if ((*pointeur_caractere_courant) == '=') + { // Cas de '>=' + drapeau_fin_objet = d_vrai; + pointeur_caractere_courant++; + break; + } + else if ((*pointeur_caractere_courant) != + d_code_espace) + { // Tous les cas différents de '>' + erreur_analyse = d_ex_syntaxe; + break; } - return(d_erreur); + pointeur_caractere_courant--; } - (*s_etat_processus).type_en_cours = - registre_type_en_cours; - pointeur_caractere_courant = - (*s_etat_processus).definitions_chainees + - (*s_etat_processus).position_courante; - - if (strcmp((*s_etat_processus).instruction_courante, - "<<") == 0) - { - niveau++; - } - else if (strcmp((*s_etat_processus) - .instruction_courante, ">>") == 0) + if ((erreur_format == d_absence_erreur) && + (drapeau_fin_objet == d_faux)) { - niveau--; - } + (*s_etat_processus).position_courante = + pointeur_caractere_courant + - (*s_etat_processus).definitions_chainees; + + registre_type_en_cours = (*s_etat_processus) + .type_en_cours; + (*s_etat_processus).type_en_cours = RPN; + + if ((erreur = + recherche_instruction_suivante_recursive( + s_etat_processus, recursivite + 1)) + != d_absence_erreur) + { + (*s_etat_processus).type_en_cours = + registre_type_en_cours; - free((*s_etat_processus).instruction_courante); + if ((*s_etat_processus).instruction_courante + != NULL) + { + free((*s_etat_processus) + .instruction_courante); + (*s_etat_processus).instruction_courante + = NULL; + } + + return(d_erreur); + } + + (*s_etat_processus).type_en_cours = + registre_type_en_cours; + pointeur_caractere_courant = (*s_etat_processus) + .definitions_chainees + (*s_etat_processus) + .position_courante; + + free((*s_etat_processus).instruction_courante); + } } - if (niveau != 0) + if (drapeau_fin_objet == d_faux) { erreur_analyse = d_ex_syntaxe; + drapeau_fin_objet = d_vrai; } - - drapeau_fin_objet = d_vrai; } else if ((*pointeur_caractere_courant) == '[') { // Cas <[ ]> @@ -1686,8 +1609,10 @@ recherche_instruction_suivante(struct_pr .type_en_cours; (*s_etat_processus).type_en_cours = TBL; - if ((erreur = recherche_instruction_suivante( - s_etat_processus)) != d_absence_erreur) + if ((erreur = + recherche_instruction_suivante_recursive( + s_etat_processus, recursivite + 1)) + != d_absence_erreur) { (*s_etat_processus).type_en_cours = registre_type_en_cours; @@ -1725,14 +1650,43 @@ recherche_instruction_suivante(struct_pr } } - if ((*pointeur_caractere_courant) == caractere_fin) + if ((*(pointeur_caractere_courant - 1)) == caractere_fin) + { + // Cas des objets composites (LST, RPN, TBL) + break; + } + else if ((*pointeur_caractere_courant) == caractere_fin) { + // Condition pour traiter les cas 123} break; } } pointeur_fin_instruction = pointeur_caractere_courant; + if (recursivite == 0) + { + // Si la variable récursivité est nulle, il faut que le caractère + // suivant l'objet soit un espace ou une fin de chaîne. Si ce n'est pas + // le cas, il faut retourner une erreur car les objets de type + // [[ 1 4 ]]3 doivent être invalides. + + switch((*pointeur_fin_instruction)) + { + case d_code_fin_chaine: + case d_code_espace: + { + break; + } + + default: + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; +// return(d_erreur); + } + } + } + (*s_etat_processus).instruction_courante = (unsigned char *) malloc((((size_t) (pointeur_fin_instruction - pointeur_debut_instruction)) + 1) * sizeof(unsigned char)); @@ -1758,13 +1712,17 @@ recherche_instruction_suivante(struct_pr erreur = ((erreur_analyse == d_ex) && (erreur_format == d_ex)) ? d_absence_erreur : d_erreur; (*s_etat_processus).erreur_execution = erreur_analyse; + + if ((*s_etat_processus).erreur_execution == d_ex) + { + (*s_etat_processus).erreur_execution = erreur_format; + } } else { (*(*s_etat_processus).instruction_courante) = d_code_fin_chaine; } -uprintf("%c %s\n", caractere_fin, (*s_etat_processus).instruction_courante); (*s_etat_processus).position_courante = pointeur_fin_instruction - (*s_etat_processus).definitions_chainees; @@ -1774,11 +1732,11 @@ uprintf("%c %s\n", caractere_fin, (*s_et /* ================================================================================ - Routine mettant la chaine d'entrée en majuscule + Routine mettant la chaîne d'entrée en majuscule ================================================================================ - Entrée : pointeur sur une chaine en minuscules. + Entrée : pointeur sur une chaîne en minuscules. -------------------------------------------------------------------------------- - Sortie : pointeur sur la chaine en majuscules. Si le pointeur retourné + Sortie : pointeur sur la chaîne en majuscules. Si le pointeur retourné est nul, il s'est produit une erreur. L'allocation est faite dans la routine. -------------------------------------------------------------------------------- @@ -1787,7 +1745,7 @@ uprintf("%c %s\n", caractere_fin, (*s_et */ unsigned char * -conversion_majuscule(unsigned char *chaine) +conversion_majuscule(struct_processus *s_etat_processus, unsigned char *chaine) { register unsigned char *caractere_courant; register unsigned char *caractere_courant_converti;