--- rpl/src/formateur_fichiers.c 2013/03/15 11:37:25 1.55 +++ rpl/src/formateur_fichiers.c 2013/03/16 20:11:29 1.56 @@ -62,7 +62,8 @@ formateur_fichier(struct_processus *s_et * "binary*X(*)" * "binary*X(Y)" (X est la base : 2, 8, 10, 16) * "character*(*)" - * "character*(Y)" } + * "character*(Y)" + * "native*(*)" } * * Traitement du format des fichiers non formatés : * @@ -70,7 +71,7 @@ formateur_fichier(struct_processus *s_et * "real*4", "real*8", ["real*16",] * "complex*8", "complex*16", ["complex*32",] * "logical*1", "logical*2", "logical*4", logical*8", - * "character*n" "character*(*)" } + * "character*n" "character*(*)" "native*(*)" } */ logical1 autorisation_parenthese; @@ -113,7 +114,6 @@ formateur_fichier(struct_processus *s_et integer8 longueur_liste; integer8 longueur_reelle_chaine; integer8 longueur_totale; - integer8 masque_binaire; integer8 position_1; integer8 position_2; integer8 position_3; @@ -132,8 +132,6 @@ formateur_fichier(struct_processus *s_et strcpy(base, " "); - masque_binaire = 0; - if ((*s_objet).type == ALG) { @@ -143,6 +141,13 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie != 'N') + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + l_element_courant = (struct_liste_chainee *) (*s_objet).objet; while(l_element_courant != NULL) @@ -985,157 +990,180 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ - if (format_sortie != 'B') + if ((format_sortie != 'B') && (format_sortie != 'U')) { (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; return(NULL); } - masque_binaire = masque_entiers_binaires(s_etat_processus); - - if ((test_cfsf(s_etat_processus, 43) == d_faux) && - (test_cfsf(s_etat_processus, 44) == d_faux)) + if (format_sortie == 'N') { - -/* --- Base décimale --------------------------------------------------------------- -*/ - - sprintf(tampon, "%llu", (*((logical8 *) - ((*s_objet).objet))) & masque_binaire); - strcpy(base, "d"); + sprintf(tampon, "%llX", (*((logical8 *) + ((*s_objet).objet)))); + strcpy(base, "h"); } - else if ((test_cfsf(s_etat_processus, 43) == d_vrai) && - (test_cfsf(s_etat_processus, 44) == d_faux)) + else { + switch(longueur) + { + case 2: + { + sprintf(tampon, "%llX", (*((logical8 *) + ((*s_objet).objet)))); -/* --- Base octale ----------------------------------------------------------------- -*/ + chaine = (unsigned char *) malloc((strlen(tampon) + 1) + * sizeof(unsigned char)); - sprintf(tampon, "%llo", (*((logical8 *) - ((*s_objet).objet))) & masque_binaire); - strcpy(base, "o"); - } - else if (test_cfsf(s_etat_processus, 44) == d_vrai) - { + if (chaine == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } -/* --- Bases hexadécimale et binaire ----------------------------------------------- -*/ + strcpy(chaine, tampon); + tampon[0] = 0; - sprintf(tampon, "%llX", (*((logical8 *) - ((*s_objet).objet))) & masque_binaire); + for(i = 0; i < strlen(chaine); i++) + { + switch(chaine[i]) + { + case '0' : + { + strcat(tampon, (i != 0) ? "0000" : "0"); + break; + } + case '1' : + { + strcat(tampon, (i != 0) ? "0001" : "1"); + break; + } + case '2' : + { + strcat(tampon, (i != 0) ? "0010" : "10"); + break; + } + case '3' : + { + strcat(tampon, (i != 0) ? "0011" : "11"); + break; + } + case '4' : + { + strcat(tampon, (i != 0) ? "0100" : "100"); + break; + } + case '5' : + { + strcat(tampon, (i != 0) ? "0101" : "101"); + break; + } + case '6' : + { + strcat(tampon, (i != 0) ? "0110" : "110"); + break; + } + case '7' : + { + strcat(tampon, (i != 0) ? "0111" : "111"); + break; + } + case '8' : + { + strcat(tampon, "1000"); + break; + } + case '9' : + { + strcat(tampon, "1001"); + break; + } + case 'A' : + { + strcat(tampon, "1010"); + break; + } + case 'B' : + { + strcat(tampon, "1011"); + break; + } + case 'C' : + { + strcat(tampon, "1100"); + break; + } + case 'D' : + { + strcat(tampon, "1101"); + break; + } + case 'E' : + { + strcat(tampon, "1110"); + break; + } + case 'F' : + { + strcat(tampon, "1111"); + break; + } + } + } - if (test_cfsf(s_etat_processus, 43) == d_vrai) - { - strcpy(base, "h"); - } - else - { - chaine = (unsigned char *) malloc((strlen(tampon) + 1) - * sizeof(unsigned char)); + free(chaine); + strcpy(base, "b"); + break; + } - if (chaine == NULL) + case 8: { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); + sprintf(tampon, "%llo", (*((logical8 *) + ((*s_objet).objet)))); + strcpy(base, "o"); + break; } - strcpy(chaine, tampon); - tampon[0] = 0; + case 10: + { + sprintf(tampon, "%llu", (*((logical8 *) + ((*s_objet).objet)))); + strcpy(base, "d"); + break; + } - for(i = 0; i < strlen(chaine); i++) + case 16: { - switch(chaine[i]) - { - case '0' : - { - strcat(tampon, (i != 0) ? "0000" : "0"); - break; - } - case '1' : - { - strcat(tampon, (i != 0) ? "0001" : "1"); - break; - } - case '2' : - { - strcat(tampon, (i != 0) ? "0010" : "10"); - break; - } - case '3' : - { - strcat(tampon, (i != 0) ? "0011" : "11"); - break; - } - case '4' : - { - strcat(tampon, (i != 0) ? "0100" : "100"); - break; - } - case '5' : - { - strcat(tampon, (i != 0) ? "0101" : "101"); - break; - } - case '6' : - { - strcat(tampon, (i != 0) ? "0110" : "110"); - break; - } - case '7' : - { - strcat(tampon, (i != 0) ? "0111" : "111"); - break; - } - case '8' : - { - strcat(tampon, "1000"); - break; - } - case '9' : - { - strcat(tampon, "1001"); - break; - } - case 'A' : - { - strcat(tampon, "1010"); - break; - } - case 'B' : - { - strcat(tampon, "1011"); - break; - } - case 'C' : - { - strcat(tampon, "1100"); - break; - } - case 'D' : - { - strcat(tampon, "1101"); - break; - } - case 'E' : - { - strcat(tampon, "1110"); - break; - } - case 'F' : - { - strcat(tampon, "1111"); - break; - } - } + sprintf(tampon, "%llX", (*((logical8 *) + ((*s_objet).objet)))); + strcpy(base, "h"); + break; } - free(chaine); - strcpy(base, "b"); + default: + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + } + } + + if (format_sortie == 'B') + { + if ((longueur_champ > 0) && (longueur_champ + < (signed) strlen(tampon))) + { + ptrl = &(tampon[strlen(tampon) - longueur_champ]); + ptre = tampon; + + do + { + *ptre++ = *ptrl++; + } while((*ptrl) != d_code_fin_chaine); + + (*ptre) = d_code_fin_chaine; } } @@ -1162,7 +1190,7 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ - if (format_sortie != 'C') + if ((format_sortie != 'C') && (format_sortie != 'U')) { (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; @@ -1172,6 +1200,11 @@ formateur_fichier(struct_processus *s_et longueur_reelle_chaine = longueur_chaine(s_etat_processus, (unsigned char *) (*s_objet).objet); + if (format_sortie == 'N') + { + longueur_champ = -1; + } + if ((longueur_champ == -1) || (longueur_reelle_chaine < longueur_champ)) { @@ -1216,6 +1249,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) { @@ -1253,6 +1291,13 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie != 'N') + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + l_element_courant = (struct_liste_chainee *) ((*s_objet).objet); chaine_sauvegarde = chaine; @@ -1335,6 +1380,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) { @@ -1372,6 +1422,13 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie != 'N') + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + chaine = (unsigned char *) malloc((strlen((*((struct_fonction *) ((*s_objet).objet))).nom_fonction) + 1) * sizeof(unsigned char)); @@ -1419,13 +1476,29 @@ formateur_fichier(struct_processus *s_et { chaine_sauvegarde = chaine; - if ((chaine_formatee = formateur_fichier(s_etat_processus, - (*l_element_courant).donnee, - (*l_element_courant_format).donnee, - 0, 0, ' ', 'F', longueur_effective, recursivite, - export_fichier)) == NULL) + if (format_sortie != 'N') { - return(NULL); + if ((chaine_formatee = + formateur_fichier(s_etat_processus, + (*l_element_courant).donnee, + (*l_element_courant_format).donnee, + 0, 0, ' ', 'F', longueur_effective, recursivite, + export_fichier)) == NULL) + { + return(NULL); + } + } + else + { + if ((chaine_formatee = + formateur_fichier(s_etat_processus, + (*l_element_courant).donnee, + (*l_element_courant_format).donnee, + 0, 0, 'N', 'F', longueur_effective, recursivite, + export_fichier)) == NULL) + { + return(NULL); + } } chaine = (unsigned char *) malloc((strlen(chaine_formatee) @@ -1498,6 +1571,12 @@ formateur_fichier(struct_processus *s_et position_1 = 10; format_degenere = d_vrai; } + else if (strcmp("NATIVE*(*)", format_chaine) == 0) + { + format_sortie = 'N'; + position_1 = 7; + format_degenere = d_vrai; + } else { free(chaine); @@ -1578,7 +1657,7 @@ formateur_fichier(struct_processus *s_et } if ((longueur >= 0) && (longueur_champ >= 0) && (longueur > - longueur_champ)) + longueur_champ) && (format_sortie != 'B')) { free(chaine); free(format_chaine); @@ -1665,17 +1744,29 @@ formateur_fichier(struct_processus *s_et nombre_elements++; l_element_courant = (*l_element_courant).suivant; - l_element_courant_format = (*l_element_courant_format).suivant; + + if (format_sortie != 'N') + { + l_element_courant_format = + (*l_element_courant_format).suivant; + } } - if ((l_element_courant != NULL) || - (l_element_courant_format != NULL)) + // Dans le cas où le format de sortie n'est pas du type + // NATIVE*(*), on vérifie que tous les éléments du format et + // de la liste d'arguments ont été consommés. + + if (format_sortie != 'N') { - free(chaine); + if ((l_element_courant != NULL) || + (l_element_courant_format != NULL)) + { + free(chaine); - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } } chaine_sauvegarde = chaine; @@ -1701,23 +1792,23 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ - if ((*s_format).type != TBL) + if (((*s_format).type != TBL) && (format_sortie != 'N')) { (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; return(NULL); } - l_element_courant = (struct_liste_chainee *) (*s_objet).objet; - l_element_courant_format = (struct_liste_chainee *) - (*s_format).objet; - - if ((*((struct_tableau *) (*s_objet).objet)).nombre_elements != - (*((struct_tableau *) (*s_format).objet)).nombre_elements) + if (format_sortie != 'N') { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); + if ((*((struct_tableau *) (*s_objet).objet)).nombre_elements != + (*((struct_tableau *) (*s_format).objet)) + .nombre_elements) + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } } chaine = (unsigned char *) malloc(3 * sizeof(unsigned char)); @@ -1733,115 +1824,108 @@ formateur_fichier(struct_processus *s_et for(i = 0; i < (*((struct_tableau *) (*s_objet).objet)) .nombre_elements; i++) { - if ((((*(*((struct_tableau *) (*s_format).objet)) - .elements[i]).type == LST) && - ((*(*((struct_tableau *) (*s_objet).objet)).elements[i]) - .type == LST)) || - (((*(*((struct_tableau *) (*s_format).objet)) - .elements[i]).type == TBL) && - ((*(*((struct_tableau *) (*s_objet).objet)).elements[i]) - .type == TBL))) + if (format_sortie != 'N') { - chaine_sauvegarde = chaine; - - if ((chaine_formatee = formateur_fichier(s_etat_processus, - (*l_element_courant).donnee, - (*l_element_courant_format).donnee, - 0, 0, ' ', 'F', longueur_effective, recursivite, - export_fichier)) == NULL) - { - return(NULL); - } - - chaine = (unsigned char *) malloc((strlen(chaine_formatee) - + strlen(chaine_sauvegarde) + 2) - * sizeof(unsigned char)); - - if (chaine == NULL) + if ((((*(*((struct_tableau *) (*s_format).objet)) + .elements[i]).type == LST) && + ((*(*((struct_tableau *) (*s_objet).objet)) + .elements[i]).type == LST)) || + (((*(*((struct_tableau *) (*s_format).objet)) + .elements[i]).type == TBL) && + ((*(*((struct_tableau *) (*s_objet).objet)) + .elements[i]).type == TBL))) { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " "); - strcat(chaine, chaine_formatee); - free(chaine_formatee); - } - else if ((*(*((struct_tableau *) (*s_format).objet)) - .elements[i]).type != CHN) - { - free(chaine); + chaine_sauvegarde = chaine; - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - else - { - if ((format_chaine = conversion_majuscule((unsigned char *) - (*(*((struct_tableau *) (*s_format).objet)) - .elements[i]).objet)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } + if ((chaine_formatee = formateur_fichier( + s_etat_processus, + (*(*((struct_tableau *) (*s_objet).objet)) + .elements[i]).objet, + (*(*((struct_tableau *) (*s_format).objet)) + .elements[i]).objet, + 0, 0, ' ', 'F', longueur_effective, recursivite, + export_fichier)) == NULL) + { + return(NULL); + } - format_degenere = d_faux; + if ((chaine = (unsigned char *) malloc((strlen( + chaine_formatee) + strlen(chaine_sauvegarde) + + 2) * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } - if (strncmp("STANDARD*", format_chaine, 9) == 0) - { - format_sortie = 'S'; - position_1 = 9; - format_degenere = d_vrai; - } - else if (strncmp("BINARY*", format_chaine, 7) == 0) - { - format_sortie = 'B'; - position_1 = 7; - } - else if (strncmp("FIXED*", format_chaine, 6) == 0) - { - format_sortie = 'F'; - position_1 = 6; - } - else if (strncmp("SCIENTIFIC*", format_chaine, 11) == 0) - { - format_sortie = 'I'; - position_1 = 11; - } - else if (strncmp("ENGINEER*", format_chaine, 9) == 0) - { - format_sortie = 'E'; - position_1 = 9; - } - else if (strncmp("CHARACTER*", format_chaine, 10) == 0) - { - format_sortie = 'C'; - position_1 = 10; - format_degenere = d_vrai; + strcpy(chaine, chaine_sauvegarde); + free(chaine_sauvegarde); + strcat(chaine, " "); + strcat(chaine, chaine_formatee); + free(chaine_formatee); } - else + else if ((*(*((struct_tableau *) (*s_format).objet)) + .elements[i]).type != CHN) { free(chaine); - free(format_chaine); (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; return(NULL); } + else + { + if ((format_chaine = conversion_majuscule( + (unsigned char *) (*(*((struct_tableau *) + (*s_format).objet)).elements[i]).objet)) + == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } - position_3 = strlen(format_chaine); - format_chaine[--position_3] = d_code_fin_chaine; - - position_2 = position_1; + format_degenere = d_faux; - while(format_chaine[position_2] != '(') - { - if (format_chaine[position_2] == d_code_fin_chaine) + if (strncmp("STANDARD*", format_chaine, 9) == 0) + { + format_sortie = 'S'; + position_1 = 9; + format_degenere = d_vrai; + } + else if (strncmp("BINARY*", format_chaine, 7) == 0) + { + format_sortie = 'B'; + position_1 = 7; + } + else if (strncmp("FIXED*", format_chaine, 6) == 0) + { + format_sortie = 'F'; + position_1 = 6; + } + else if (strncmp("SCIENTIFIC*", format_chaine, 11) == 0) + { + format_sortie = 'I'; + position_1 = 11; + } + else if (strncmp("ENGINEER*", format_chaine, 9) == 0) + { + format_sortie = 'E'; + position_1 = 9; + } + else if (strncmp("CHARACTER*", format_chaine, 10) == 0) + { + format_sortie = 'C'; + position_1 = 10; + format_degenere = d_vrai; + } + else if (strcmp("NATIVE*(*)", format_chaine) == 0) + { + format_sortie = 'N'; + position_1 = 7; + format_degenere = d_vrai; + } + else { free(chaine); free(format_chaine); @@ -1851,33 +1935,66 @@ formateur_fichier(struct_processus *s_et return(NULL); } - position_2++; - } + position_3 = strlen(format_chaine); + format_chaine[--position_3] = d_code_fin_chaine; - format_chaine[position_2++] = d_code_fin_chaine; + position_2 = position_1; - if (format_degenere == d_faux) - { - if (sscanf(&(format_chaine[position_1]), "%ld", - &longueur) != 1) + while(format_chaine[position_2] != '(') { - free(chaine); - free(format_chaine); + if (format_chaine[position_2] == d_code_fin_chaine) + { + free(chaine); + free(format_chaine); - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + + position_2++; } - } - else - { - longueur = -1; - } - if (strcmp(&(format_chaine[position_2]), "*") != 0) - { - if (sscanf(&(format_chaine[position_2]), "%ld", - &longueur_champ) != 1) + format_chaine[position_2++] = d_code_fin_chaine; + + if (format_degenere == d_faux) + { + if (sscanf(&(format_chaine[position_1]), "%ld", + &longueur) != 1) + { + free(chaine); + free(format_chaine); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + } + else + { + longueur = -1; + } + + if (strcmp(&(format_chaine[position_2]), "*") != 0) + { + if (sscanf(&(format_chaine[position_2]), "%ld", + &longueur_champ) != 1) + { + free(chaine); + free(format_chaine); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + } + else + { + longueur_champ = -1; + } + + if ((longueur >= 0) && (longueur_champ >= 0) && + (longueur > longueur_champ)) { free(chaine); free(format_chaine); @@ -1886,98 +2003,97 @@ formateur_fichier(struct_processus *s_et d_ex_erreur_format_fichier; return(NULL); } - } - else - { - longueur_champ = -1; - } - if ((longueur >= 0) && (longueur_champ >= 0) && (longueur > - longueur_champ)) - { - free(chaine); free(format_chaine); + + chaine_sauvegarde = chaine; - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); + if ((chaine_formatee = formateur_fichier( + s_etat_processus, (*((struct_tableau *) + (*s_objet).objet)).elements[i], s_format, + longueur, longueur_champ, format_sortie, type, + longueur_effective, recursivite, + export_fichier)) == NULL) + { + return(NULL); + } } - - free(format_chaine); - + } + else // NATIVE*(*) + { chaine_sauvegarde = chaine; - if ((chaine_formatee = formateur_fichier(s_etat_processus, - (*((struct_tableau *) (*s_objet).objet)) - .elements[i], s_format, + if ((chaine_formatee = formateur_fichier( + s_etat_processus, (*((struct_tableau *) + (*s_objet).objet)).elements[i], s_format, longueur, longueur_champ, format_sortie, type, - longueur_effective, recursivite, export_fichier)) - == NULL) + longueur_effective, recursivite, + export_fichier)) == NULL) { return(NULL); } + } - if ((*(*((struct_tableau *) (*s_objet).objet)) - .elements[i]).type == CHN) - { - chaine = (unsigned char *) - malloc((strlen(chaine_formatee) - + strlen(chaine_sauvegarde) + 4) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } + if ((*(*((struct_tableau *) (*s_objet).objet)) + .elements[i]).type == CHN) + { + chaine = (unsigned char *) + malloc((strlen(chaine_formatee) + + strlen(chaine_sauvegarde) + 4) + * sizeof(unsigned char)); - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " \""); - strcat(chaine, chaine_formatee); - free(chaine_formatee); - strcat(chaine, "\""); - } - else if ((*(*((struct_tableau *) (*s_objet).objet)) - .elements[i]).type == NOM) + if (chaine == NULL) { - chaine = (unsigned char *) - malloc((strlen(chaine_formatee) - + strlen(chaine_sauvegarde) + 2) - * sizeof(unsigned char)); + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } + strcpy(chaine, chaine_sauvegarde); + free(chaine_sauvegarde); + strcat(chaine, " \""); + strcat(chaine, chaine_formatee); + free(chaine_formatee); + strcat(chaine, "\""); + } + else if ((*(*((struct_tableau *) (*s_objet).objet)) + .elements[i]).type == NOM) + { + chaine = (unsigned char *) + malloc((strlen(chaine_formatee) + + strlen(chaine_sauvegarde) + 2) + * sizeof(unsigned char)); - sprintf(chaine, "%s %s", chaine_sauvegarde, - chaine_formatee); - free(chaine_formatee); - } - else + if (chaine == NULL) { - chaine = (unsigned char *) - malloc((strlen(chaine_formatee) - + strlen(chaine_sauvegarde) + 2) - * sizeof(unsigned char)); + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } + sprintf(chaine, "%s %s", chaine_sauvegarde, + chaine_formatee); + free(chaine_formatee); + } + else + { + chaine = (unsigned char *) + malloc((strlen(chaine_formatee) + + strlen(chaine_sauvegarde) + 2) + * sizeof(unsigned char)); - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " "); - strcat(chaine, chaine_formatee); - free(chaine_formatee); + if (chaine == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); } + + strcpy(chaine, chaine_sauvegarde); + free(chaine_sauvegarde); + strcat(chaine, " "); + strcat(chaine, chaine_formatee); + free(chaine_formatee); } } @@ -2004,6 +2120,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) { @@ -2147,6 +2268,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) { @@ -2289,6 +2415,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) { @@ -2431,6 +2562,13 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie != 'N') + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + chaine = (unsigned char *) malloc((strlen((*((struct_nom *) (*s_objet).objet)).nom) + 3) * sizeof(unsigned char)); @@ -2451,6 +2589,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) { @@ -2488,6 +2631,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) { @@ -2564,6 +2712,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) { @@ -2639,6 +2792,11 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ + if (format_sortie == 'N') + { + format_sortie = 'S'; + } + if ((format_sortie != 'S') && (format_sortie != 'F') && (format_sortie != 'I') && (format_sortie != 'E')) {