--- rpl/src/formateur_fichiers.c 2011/09/26 15:57:10 1.33 +++ rpl/src/formateur_fichiers.c 2013/03/11 11:07:24 1.54 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.4 - Copyright (C) 1989-2011 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.13 + Copyright (C) 1989-2013 Dr. BERTRAND Joël This file is part of RPL/2. @@ -19,7 +19,7 @@ ================================================================================ */ - +#define DEBUG_ERREURS #include "rpl-conv.h" @@ -42,7 +42,7 @@ unsigned char * formateur_fichier(struct_processus *s_etat_processus, struct_objet *s_objet, struct_objet *s_format, long longueur, long longueur_champ, unsigned char format_sortie, unsigned char type, - long *longueur_effective, long *recursivite) + long *longueur_effective, long *recursivite, logical1 export_fichier) { /* * Traitement du format des fichiers formatés : @@ -70,15 +70,15 @@ 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" } + * "character*n" "character*(*)" } */ logical1 autorisation_parenthese; logical1 format_degenere; - logical1 longueur_3bits; - logical1 longueur_6bits; logical1 presence_signe; + long longueur_chaine_traitee; + struct_liste_chainee *l_atome; struct_liste_chainee *l_element_courant; struct_liste_chainee *l_element_courant_format; @@ -97,16 +97,13 @@ formateur_fichier(struct_processus *s_et unsigned char *chaine_tampon; unsigned char *chaine_sauvegarde; unsigned char *format_chaine; - unsigned char longueur_optimale; - unsigned char parametre_longueur; unsigned char *ptre; unsigned char *ptrl; unsigned char tampon[64 + 1]; + unsigned char type_binaire; unsigned long i; unsigned long j; - unsigned long longueur_binaire; - unsigned long longueur_champ_final; unsigned long nombre_arguments; unsigned long nombre_arguments_fonction; unsigned long nombre_colonnes; @@ -114,16 +111,13 @@ formateur_fichier(struct_processus *s_et unsigned long nombre_lignes; integer8 longueur_liste; - integer8 longueur_entete; - integer8 longueur_objet; + integer8 longueur_reelle_chaine; integer8 longueur_totale; integer8 masque_binaire; integer8 position_1; integer8 position_2; integer8 position_3; - long offset; - (*recursivite)++; if (type == 'F') @@ -138,7 +132,6 @@ formateur_fichier(struct_processus *s_et strcpy(base, " "); - longueur_binaire = 0; masque_binaire = 0; if ((*s_objet).type == ALG) @@ -872,7 +865,7 @@ formateur_fichier(struct_processus *s_et free(chaine_sauvegarde); if ((s_sous_objet = allocation(s_etat_processus, - CHN)) == NULL) + CHN)) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -903,7 +896,8 @@ formateur_fichier(struct_processus *s_et if (((*s_sous_objet).objet = (void *) formateur_fichier( s_etat_processus, (*l_element_courant).donnee, s_format, longueur, longueur_champ, format_sortie, - type, longueur_effective, recursivite)) == NULL) + type, longueur_effective, recursivite, + export_fichier)) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -998,7 +992,6 @@ formateur_fichier(struct_processus *s_et return(NULL); } - longueur_binaire = longueur_entiers_binaires(s_etat_processus); masque_binaire = masque_entiers_binaires(s_etat_processus); if ((test_cfsf(s_etat_processus, 43) == d_faux) && @@ -1176,8 +1169,11 @@ formateur_fichier(struct_processus *s_et return(NULL); } - if ((longueur_champ == -1) || (strlen((unsigned char *) - (*s_objet).objet) < longueur_champ)) + longueur_reelle_chaine = longueur_chaine(s_etat_processus, + (unsigned char *) (*s_objet).objet); + + if ((longueur_champ == -1) || (longueur_reelle_chaine < + longueur_champ)) { chaine = (unsigned char *) malloc((strlen((unsigned char *) ((*s_objet).objet)) + 1) * sizeof(unsigned char)); @@ -1193,10 +1189,13 @@ formateur_fichier(struct_processus *s_et } else { - chaine = (unsigned char *) malloc((longueur_champ + 1) - * sizeof(unsigned char)); + longueur_reelle_chaine = pointeur_ieme_caractere( + s_etat_processus, (unsigned char *) + (*s_objet).objet, longueur_champ) + - ((unsigned char *) (*s_objet).objet); - if (chaine == NULL) + if ((chaine = malloc((longueur_reelle_chaine + 1) * + sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; @@ -1204,8 +1203,8 @@ formateur_fichier(struct_processus *s_et } strncpy(chaine, (unsigned char *) ((*s_objet).objet), - longueur_champ); - chaine[longueur_champ] = d_code_fin_chaine; + longueur_reelle_chaine); + chaine[longueur_reelle_chaine] = d_code_fin_chaine; } } else if ((*s_objet).type == CPL) @@ -1262,7 +1261,8 @@ formateur_fichier(struct_processus *s_et if ((chaine_formatee = formateur_fichier(s_etat_processus, (*l_element_courant).donnee, s_format, longueur, longueur_champ, format_sortie, type, - longueur_effective, recursivite)) == NULL) + longueur_effective, recursivite, export_fichier)) + == NULL) { return(NULL); } @@ -1422,8 +1422,8 @@ formateur_fichier(struct_processus *s_et if ((chaine_formatee = formateur_fichier(s_etat_processus, (*l_element_courant).donnee, (*l_element_courant_format).donnee, - 0, 0, ' ', 'F', longueur_effective, recursivite)) - == NULL) + 0, 0, ' ', 'F', longueur_effective, recursivite, + export_fichier)) == NULL) { return(NULL); } @@ -1508,8 +1508,19 @@ formateur_fichier(struct_processus *s_et return(NULL); } - position_3 = strlen(format_chaine); - format_chaine[--position_3] = d_code_fin_chaine; + position_3 = strlen(format_chaine) - 1; + + if (format_chaine[position_3] != ')') + { + free(chaine); + free(format_chaine); + + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + + format_chaine[position_3] = d_code_fin_chaine; position_2 = position_1; @@ -1584,7 +1595,8 @@ formateur_fichier(struct_processus *s_et if ((chaine_formatee = formateur_fichier(s_etat_processus, (*l_element_courant).donnee, s_format, longueur, longueur_champ, format_sortie, type, - longueur_effective, recursivite)) == NULL) + longueur_effective, recursivite, export_fichier)) + == NULL) { free(chaine); return(NULL); @@ -1735,8 +1747,8 @@ formateur_fichier(struct_processus *s_et if ((chaine_formatee = formateur_fichier(s_etat_processus, (*l_element_courant).donnee, (*l_element_courant_format).donnee, - 0, 0, ' ', 'F', longueur_effective, recursivite)) - == NULL) + 0, 0, ' ', 'F', longueur_effective, recursivite, + export_fichier)) == NULL) { return(NULL); } @@ -1899,7 +1911,8 @@ formateur_fichier(struct_processus *s_et (*((struct_tableau *) (*s_objet).objet)) .elements[i], s_format, longueur, longueur_champ, format_sortie, type, - longueur_effective, recursivite)) == NULL) + longueur_effective, recursivite, export_fichier)) + == NULL) { return(NULL); } @@ -2711,8 +2724,9 @@ formateur_fichier(struct_processus *s_et */ #define __zone() \ - do { int _i; for(_i = 0; _i < longueur_totale; _i++) \ - printf("%02X ", chaine[_i]); printf("\b\n"); } while(0) + do { int _i; \ + for(_i = 0; _i < longueur_totale; _i++) \ + printf("%02X ", chaine[_i]); printf("\b\n"); } while(0) /* * Chaque enregistrement est composé d'une donnée (une liste) @@ -2729,10 +2743,22 @@ formateur_fichier(struct_processus *s_et * * Longueur : (pour l'instruction backspace) * - * 00 XXXXXX longueur sur 6 bits - * 01 ------ longueur sur 16 bits - * 10 ------ longueur sur 32 bits - * 11 ------ longueur sur 64 bits + * XXXXXXX0 longueur sur 7 bits + * XXXX0011 XXXXXXXX XXXX0011 longueur sur 16 bits + * LSB(1/2) MSB LSB(2/2) + * XXXX0101 XXXXXXXX XXXXXXXX XXXX0101 longueur sur 24 bits + * XXXX0111 XXXXXXXX XXXXXXXX XXXXXXXX + * XXXX0111 longueur sur 32 bits + * XXXX1001 XXXXXXXX XXXXXXXX XXXXXXXX + * XXXXXXXX XXXX1001 longueur sur 40 bits + * XXXX1011 XXXXXXXX XXXXXXXX XXXXXXXX + * XXXXXXXX XXXXXXXX XXXX1011 longueur sur 48 bits + * XXXX1101 XXXXXXXX XXXXXXXX XXXXXXXX + * XXXXXXXX XXXXXXXX XXXXXXXX + * XXXX1101 longueur sur 56 bits + * XXXX1111 XXXXXXXX XXXXXXXX XXXXXXXX + * XXXXXXXX XXXXXXXX XXXXXXXX + * XXXXXXXX XXXX1111 longueur sur 64 bits * * Structures des enregistrements : * chaque type de donnée est associé à une en-tête binaire comprenant @@ -2813,7 +2839,46 @@ formateur_fichier(struct_processus *s_et * 1001 10 10 table de longueur integer*4 * 1001 10 11 table de longueur integer*8 * + * 1010 00 10 vecteur real*4 (dimensions integer*1) + * 1010 01 10 vecteur real*4 (dimensions integer*2) + * 1010 10 10 vecteur real*4 (dimensions integer*4) + * 1010 11 10 vecteur real*4 (dimensions integer*8) + * 1010 00 11 vecteur real*8 (dimensions integer*1) + * 1010 01 11 vecteur real*8 (dimensions integer*2) + * 1010 10 11 vecteur real*8 (dimensions integer*4) + * 1010 11 11 vecteur real*8 (dimensions integer*8) + * 1011 00 10 vecteur complex*8 (dimensions integer*1) + * 1011 01 10 vecteur complex*8 (dimensions integer*2) + * 1011 10 10 vecteur complex*8 (dimensions integer*4) + * 1011 11 10 vecteur complex*8 (dimensions integer*8) + * 1011 00 11 vecteur complex*16 (dimensions integer*1) + * 1011 01 11 vecteur complex*16 (dimensions integer*2) + * 1011 10 11 vecteur complex*16 (dimensions integer*4) + * 1011 11 11 vecteur complex*16 (dimensions integer*8) + * + * 1100 00 10 matrice real*4 (dimensions integer*1) + * 1100 01 10 matrice real*4 (dimensions integer*2) + * 1100 10 10 matrice real*4 (dimensions integer*4) + * 1100 11 10 matrice real*4 (dimensions integer*8) + * 1100 00 11 matrice real*8 (dimensions integer*1) + * 1100 01 11 matrice real*8 (dimensions integer*2) + * 1100 10 11 matrice real*8 (dimensions integer*4) + * 1100 11 11 matrice real*8 (dimensions integer*8) + * 1101 00 10 matrice complex*8 (dimensions integer*1) + * 1101 01 10 matrice complex*8 (dimensions integer*2) + * 1101 10 10 matrice complex*8 (dimensions integer*4) + * 1101 11 10 matrice complex*8 (dimensions integer*8) + * 1101 00 11 matrice complex*16 (dimensions integer*1) + * 1101 01 11 matrice complex*16 (dimensions integer*2) + * 1101 10 11 matrice complex*16 (dimensions integer*4) + * 1101 11 11 matrice complex*16 (dimensions integer*8) + * * Les longueurs indiquées par le champ LL suivent l'en-tête : + * 00 : integer*1 + * 01 : integer*2 + * 10 : integer*4 + * 11 : integer*8 + * * [En-tête][longueur_1][longueur_2][données] * le nombre de champs longueur dépendant des types d'enregistrement. * @@ -2824,1056 +2889,206 @@ formateur_fichier(struct_processus *s_et chaine_formatee = NULL; chaine_sauvegarde = NULL; - strcpy(base, " "); - - longueur_binaire = 0; - masque_binaire = 0; - - if ((*s_objet).type == ALG) + if ((*s_objet).type == BIN) { /* -------------------------------------------------------------------------------- - Expression algébrique + Entier binaire en base 2, 8, 10 ou 16 + Poids fort 0000 -------------------------------------------------------------------------------- */ - l_element_courant = (struct_liste_chainee *) (*s_objet).objet; - - while(l_element_courant != NULL) + if (format_sortie != 'L') { - if ((*(*l_element_courant).donnee).type == FCT) - { - if ((strcmp((*((struct_fonction *) (*(*l_element_courant) - .donnee).objet)).nom_fonction, "<<") != 0) && - (strcmp((*((struct_fonction *) - (*(*l_element_courant) - .donnee).objet)).nom_fonction, ">>") != 0)) - { - if ((strcmp((*((struct_fonction *) - (*(*l_element_courant) - .donnee).objet)).nom_fonction, "+") == 0) || - (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "-") == 0) || (strcmp( - (*((struct_fonction *) (*(*l_element_courant) - .donnee).objet)).nom_fonction, "*") == 0) || - (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "/") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "^") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "<") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - ">") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "==") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "<>") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "<=") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "=<") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - ">=") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "=>") == 0)) - { - if (depilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), &s_sous_objet_2) == d_erreur) - { - return(NULL); - } - - chaine_sauvegarde = (*s_etat_processus) - .instruction_courante; - - if (((*s_etat_processus).instruction_courante = - (unsigned char *) malloc((strlen( - (unsigned char *) (*s_sous_objet_2).objet) - + 2 + 1) * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).instruction_courante = - chaine_sauvegarde; - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((*s_etat_processus).instruction_courante, - "'%s'", (unsigned char *) - (*s_sous_objet_2).objet); - - presence_signe = (((*s_etat_processus) - .instruction_courante[1] == '+') - || ((*s_etat_processus) - .instruction_courante[1] - == '-')) ? d_vrai : d_faux; - - recherche_type(s_etat_processus); - - if ((*s_etat_processus).erreur_execution != d_ex) - { - // Aucune erreur ne peut être renvoyée. - - return(NULL); - } - - if (depilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), &s_sous_objet_3) == d_erreur) - { - return(NULL); - } - - free((*s_etat_processus).instruction_courante); - - (*s_etat_processus).instruction_courante = - chaine_sauvegarde; - - autorisation_parenthese = d_faux; - - if ((*s_sous_objet_3).type == ALG) - { - l_atome = (struct_liste_chainee *) - (*s_sous_objet_3).objet; - chaine_fonction = ""; - nombre_arguments_fonction = 0; - - while(l_atome != NULL) - { - if ((*(*l_atome).donnee).type == FCT) - { - if (strcmp((*((struct_fonction *) - (*(*l_atome).donnee).objet)) - .nom_fonction, ">>") != 0) - { - chaine_fonction = - (*((struct_fonction *) - (*(*l_atome).donnee).objet)) - .nom_fonction; - nombre_arguments_fonction = - (*((struct_fonction *) - (*(*l_atome).donnee).objet)) - .nombre_arguments; - } - } - - l_atome = (*l_atome).suivant; - } - - if (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "+") == 0) - { - if ((strcmp(chaine_fonction, "AND") == 0) || - (strcmp(chaine_fonction, "XOR") == - 0) || (strcmp(chaine_fonction, "OR") - == 0)) - { - autorisation_parenthese = d_vrai; - } - } - else if (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "-") == 0) - { - if (nombre_arguments_fonction != 0) - { - autorisation_parenthese = d_faux; - } - else - { - autorisation_parenthese = d_vrai; - } - } - else if (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "*") == 0) - { - if ((strcmp(chaine_fonction, "+") == 0) || - (strcmp(chaine_fonction, "-") == 0) - || (strcmp(chaine_fonction, "AND") - == 0) || (strcmp(chaine_fonction, - "XOR") == 0) || (strcmp( - chaine_fonction, "OR") == 0)) - { - autorisation_parenthese = d_vrai; - } - } - else if (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "/") == 0) - { - if (nombre_arguments_fonction != 0) - { - autorisation_parenthese = d_faux; - } - else - { - autorisation_parenthese = d_vrai; - } - } - else if ((strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "^") == 0)) - { - if (nombre_arguments_fonction != 0) - { - autorisation_parenthese = d_faux; - } - else - { - autorisation_parenthese = d_vrai; - } - } - } - - if ((autorisation_parenthese == d_vrai) || - (presence_signe == d_vrai)) - { - chaine_sauvegarde = (unsigned char *) - (*s_sous_objet_2).objet; - - if (((*s_sous_objet_2).objet = (void *) - malloc((strlen(chaine_sauvegarde) + 2 - + 1) * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((unsigned char *) (*s_sous_objet_2) - .objet, "(%s)", chaine_sauvegarde); - free(chaine_sauvegarde); - } - - liberation(s_etat_processus, s_sous_objet_3); - - if (depilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), &s_sous_objet_1) == d_erreur) - { - return(NULL); - } - - chaine_sauvegarde = (*s_etat_processus) - .instruction_courante; - - if (((*s_etat_processus).instruction_courante = - (unsigned char *) malloc((strlen( - (unsigned char *) (*s_sous_objet_1).objet) - + 2 + 1) * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).instruction_courante = - chaine_sauvegarde; - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((*s_etat_processus).instruction_courante, - "'%s'", (unsigned char *) - (*s_sous_objet_1).objet); - - recherche_type(s_etat_processus); - - if ((*s_etat_processus).erreur_execution != d_ex) - { - // Aucune erreur ne peut être renvoyée. - - return(NULL); - } - - if (depilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), &s_sous_objet_3) == d_erreur) - { - return(NULL); - } - - free((*s_etat_processus).instruction_courante); - - (*s_etat_processus).instruction_courante = - chaine_sauvegarde; - - autorisation_parenthese = d_faux; - - if ((*s_sous_objet_3).type == ALG) - { - l_atome = (struct_liste_chainee *) - (*s_sous_objet_3).objet; - chaine_fonction = ""; - - while(l_atome != NULL) - { - if ((*(*l_atome).donnee).type == FCT) - { - if (strcmp((*((struct_fonction *) - (*(*l_atome).donnee).objet)) - .nom_fonction, ">>") != 0) - { - chaine_fonction = - (*((struct_fonction *) - (*(*l_atome).donnee).objet)) - .nom_fonction; - } - } - - l_atome = (*l_atome).suivant; - } - - if ((strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "+") == 0) || - (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "-") == 0)) - { - if ((strcmp(chaine_fonction, "AND") == 0) || - (strcmp(chaine_fonction, "XOR") == - 0) || (strcmp(chaine_fonction, "OR") - == 0)) - { - autorisation_parenthese = d_vrai; - } - } - else if ((strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "*") == 0) || - (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "/") == 0)) - { - if ((strcmp(chaine_fonction, "+") == 0) || - (strcmp(chaine_fonction, "-") == 0) - || (strcmp(chaine_fonction, "AND") - == 0) || (strcmp(chaine_fonction, - "XOR") == 0) || (strcmp( - chaine_fonction, "OR") == 0)) - { - autorisation_parenthese = d_vrai; - } - } - else if ((strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "^") == 0)) - { - autorisation_parenthese = d_vrai; - } - } - - if (autorisation_parenthese == d_vrai) - { - chaine_sauvegarde = (unsigned char *) - (*s_sous_objet_1).objet; - - if (((*s_sous_objet_1).objet = (void *) - malloc((strlen(chaine_sauvegarde) + 2 - + 1) * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((unsigned char *) (*s_sous_objet_1) - .objet, "(%s)", chaine_sauvegarde); - free(chaine_sauvegarde); - } - - liberation(s_etat_processus, s_sous_objet_3); - - if ((s_sous_objet = allocation(s_etat_processus, - CHN)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - if (((*s_sous_objet).objet = (void *) - malloc((strlen( - (unsigned char *) (*s_sous_objet_1).objet) + - strlen((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction) + strlen((unsigned char *) - (*s_sous_objet_2).objet) + 1) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((unsigned char *) (*s_sous_objet).objet, - "%s%s%s", (unsigned char *) - (*s_sous_objet_1) - .objet, (*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, (unsigned char *) - (*s_sous_objet_2).objet); - - liberation(s_etat_processus, s_sous_objet_1); - liberation(s_etat_processus, s_sous_objet_2); - - if (empilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), s_sous_objet) == d_erreur) - { - return(NULL); - } - } - else if (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, "=") == 0) - { - if (depilement(s_etat_processus, - &((*s_etat_processus).l_base_pile), - &s_sous_objet_2) == d_erreur) - { - return(NULL); - } - - if (depilement(s_etat_processus, - &((*s_etat_processus).l_base_pile), - &s_sous_objet_1) == d_erreur) - { - return(NULL); - } - - if ((s_sous_objet = allocation(s_etat_processus, - CHN)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - autorisation_parenthese = d_vrai; - l_atome = l_element_courant; - - if (l_atome != NULL) - { - if ((*l_atome).suivant != NULL) - { - l_atome = (*l_atome).suivant; - - if ((*(*l_atome).donnee).type == FCT) - { - if (strcmp((*((struct_fonction *) - (*(*l_atome).donnee).objet)) - .nom_fonction, ">>") == 0) - { - if ((*l_atome).suivant == NULL) - { - autorisation_parenthese = - d_faux; - } - } - } - } - } - - if (autorisation_parenthese == d_vrai) - { - if (((*s_sous_objet).objet = - (void *) malloc((strlen( - (unsigned char *) (*s_sous_objet_1) - .objet) + strlen((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction) + - strlen((unsigned char *) - (*s_sous_objet_2).objet) + 2 + 1) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((unsigned char *) (*s_sous_objet).objet, - "(%s%s%s)", (unsigned char *) - (*s_sous_objet_1) - .objet, (*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, (unsigned char *) - (*s_sous_objet_2).objet); - } - else - { - if (((*s_sous_objet).objet = - (void *) malloc((strlen( - (unsigned char *) (*s_sous_objet_1) - .objet) + strlen((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction) + strlen( - (unsigned char *) (*s_sous_objet_2) - .objet) + 1) * sizeof(unsigned char))) - == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((unsigned char *) (*s_sous_objet).objet, - "%s%s%s", (unsigned char *) - (*s_sous_objet_1) - .objet, (*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, (unsigned char *) - (*s_sous_objet_2).objet); - } - - liberation(s_etat_processus, s_sous_objet_1); - liberation(s_etat_processus, s_sous_objet_2); - - if (empilement(s_etat_processus, - &((*s_etat_processus).l_base_pile), - s_sous_objet) == d_erreur) - { - return(NULL); - } - } - else if (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "NOT") == 0) - { - if (depilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), &s_sous_objet_1) == d_erreur) - { - return(NULL); - } - - if ((s_sous_objet = allocation(s_etat_processus, - CHN)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - if (((*s_sous_objet).objet = (unsigned char *) - malloc( - (strlen((unsigned char *) (*s_sous_objet_1) - .objet) + 4 + 1) * sizeof(unsigned char))) - == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((unsigned char *) (*s_sous_objet).objet, - "%s %s", (*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, (unsigned char *) - (*s_sous_objet_1).objet ); - - liberation(s_etat_processus, s_sous_objet_1); - - if (empilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), s_sous_objet) == d_erreur) - { - return(NULL); - } - } - else if ((strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "OR") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "XOR") == 0) || (strcmp((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, - "AND") == 0)) - { - if (depilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), &s_sous_objet_2) == d_erreur) - { - return(NULL); - } - - if (depilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), &s_sous_objet_1) == d_erreur) - { - return(NULL); - } - - if ((s_sous_objet = allocation(s_etat_processus, - CHN)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - if (((*s_sous_objet).objet = (void *) - malloc((strlen( - (unsigned char *) (*s_sous_objet_1).objet) + - strlen((*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction) + strlen((unsigned char *) - (*s_sous_objet_2).objet) + 2 + 1) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((unsigned char *) (*s_sous_objet).objet, - "%s %s %s", (unsigned char *) - (*s_sous_objet_1) - .objet, (*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, (unsigned char *) - (*s_sous_objet_2).objet); - - liberation(s_etat_processus, s_sous_objet_1); - liberation(s_etat_processus, s_sous_objet_2); - - if (empilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), s_sous_objet) == d_erreur) - { - return(NULL); - } - } - else - { - nombre_arguments = (*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nombre_arguments; - - if ((chaine = (unsigned char *) - malloc(sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - chaine[0] = d_code_fin_chaine; - - for(i = 0; i < nombre_arguments; i++) - { - if ((nombre_arguments - i) > 1) - { - l_liste1 = (*s_etat_processus).l_base_pile; - - for(j = 2; j < (nombre_arguments - i); j++) - { - l_liste1 = (*l_liste1).suivant; - } - - l_liste2 = (*l_liste1).suivant; - (*l_liste1).suivant = (*l_liste2).suivant; - (*l_liste2).suivant = (*s_etat_processus) - .l_base_pile; - (*s_etat_processus).l_base_pile = l_liste2; - } - - if (depilement(s_etat_processus, - &((*s_etat_processus).l_base_pile), - &s_sous_objet) == d_erreur) - { - return(NULL); - } - - chaine_sauvegarde = chaine; - - if (strlen(chaine_sauvegarde) == 0) - { - if ((chaine = (unsigned char *) - malloc((strlen((unsigned char *) - (*s_sous_objet).objet) + 1) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf(chaine, "%s", (unsigned char *) - (*s_sous_objet).objet); - } - else - { - if ((chaine = (unsigned char *) - malloc((strlen(chaine_sauvegarde) - + 1 + strlen((unsigned char *) - (*s_sous_objet).objet) + 1) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf(chaine, "%s,%s", chaine_sauvegarde, - (unsigned char *) (*s_sous_objet) - .objet); - } - - free(chaine_sauvegarde); - liberation(s_etat_processus, s_sous_objet); - } - - chaine_sauvegarde = chaine; - - if ((chaine = (unsigned char *) malloc((strlen( - (*((struct_fonction *) - (*(*l_element_courant) - .donnee).objet)).nom_fonction) + 2 + - strlen(chaine_sauvegarde) + 1) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf(chaine, "%s(%s)", (*((struct_fonction *) - (*(*l_element_courant).donnee).objet)) - .nom_fonction, chaine_sauvegarde); - free(chaine_sauvegarde); - - if ((s_sous_objet = allocation(s_etat_processus, - CHN)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - (*s_sous_objet).objet = (void *) chaine; + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } - if (empilement(s_etat_processus, - &((*s_etat_processus) - .l_base_pile), s_sous_objet) == d_erreur) - { - return(NULL); - } - } - } - } - else + if (longueur_champ < 8) + { + if ((*((logical8 *) (*s_objet).objet)) >= + ((logical8) 1 << (8 * longueur_champ))) { - if ((s_sous_objet = allocation(s_etat_processus, CHN)) - == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - if (((*s_sous_objet).objet = (void *) formateur_fichier( - s_etat_processus, (*l_element_courant).donnee, - s_format, longueur, longueur_champ, format_sortie, - type, longueur_effective, recursivite)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - if (((*(*l_element_courant).donnee).type == ALG) - || ((*(*l_element_courant).donnee).type == NOM)) - { - chaine_sauvegarde = (unsigned char *) - (*s_sous_objet).objet; - - if (((*s_sous_objet).objet = malloc((strlen( - chaine_sauvegarde) - 1) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - ptrl = chaine_sauvegarde; - ptre = (unsigned char *) (*s_sous_objet).objet; - - for(ptrl++, i = strlen(chaine_sauvegarde) - 2; i > 0; - i--, *ptre++ = *ptrl++); - - (*ptre) = d_code_fin_chaine; - - free(chaine_sauvegarde); - } - else if ((*(*l_element_courant).donnee).type == CHN) - { - chaine_sauvegarde = (unsigned char *) - (*s_sous_objet).objet; - - if (((*s_sous_objet).objet = malloc((strlen( - chaine_sauvegarde) + 3) * - sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf((unsigned char *) (*s_sous_objet).objet, - "\"%s\"", chaine_sauvegarde); - - free(chaine_sauvegarde); - } - - if (empilement(s_etat_processus, &((*s_etat_processus) - .l_base_pile), s_sous_objet) == d_erreur) - { - return(NULL); - } + (*s_etat_processus).erreur_execution = + d_ex_representation; + return(NULL); } - - l_element_courant = (*l_element_courant).suivant; } - if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile), - &s_sous_objet) == d_erreur) - { - return(NULL); - } + (*longueur_effective) = longueur_champ + 1; - if ((chaine = (unsigned char *) malloc((strlen((unsigned char *) - (*s_sous_objet).objet) + 2 + 1) * sizeof(unsigned char))) + if ((chaine = malloc((*longueur_effective) * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(NULL); } - sprintf(chaine, "'%s'", (unsigned char *) (*s_sous_objet).objet); - liberation(s_etat_processus, s_sous_objet); + chaine[0] = longueur_champ; + + for(i = 1; i <= (unsigned) (*longueur_effective); i++) + { + chaine[i] = ((*((logical8 *) (*s_objet).objet)) >> + (8 * (longueur_champ - i))) & 0xFF; + } } - else if ((*s_objet).type == BIN) + else if ((*s_objet).type == CHN) { /* -------------------------------------------------------------------------------- - Entier binaire en base 2, 8, 10 ou 16 + Chaîne de caractères + Poids fort 1000 0XXX (longueur inférieure à 2**3-1 + 1000 10LL (autres longueurs) -------------------------------------------------------------------------------- */ - if (format_sortie != 'B') - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - longueur_binaire = longueur_entiers_binaires(s_etat_processus); - masque_binaire = masque_entiers_binaires(s_etat_processus); + longueur_reelle_chaine = longueur_chaine(s_etat_processus, + (unsigned char *) (*s_objet).objet); - if ((test_cfsf(s_etat_processus, 43) == d_faux) && - (test_cfsf(s_etat_processus, 44) == d_faux)) + if ((longueur_champ == -1) || (longueur_reelle_chaine < + longueur_champ)) { + // Le format est CHARACTER*(*). On copie dans la sortie + // la chaine en évaluant les caractères échappés. -/* --- Base décimale --------------------------------------------------------------- -*/ - - sprintf(tampon, "%llu", (*((logical8 *) - ((*s_objet).objet))) & masque_binaire); - strcpy(base, "d"); + if ((chaine = formateur_flux(s_etat_processus, (unsigned char *) + (*s_objet).objet, &longueur_chaine_traitee)) == NULL) + { + return(NULL); + } } - else if ((test_cfsf(s_etat_processus, 43) == d_vrai) && - (test_cfsf(s_etat_processus, 44) == d_faux)) + else { + // Format de type CHARACTER*(n) -/* --- Base octale ----------------------------------------------------------------- -*/ + if ((chaine_sauvegarde = formateur_flux(s_etat_processus, + (unsigned char *) (*s_objet).objet, + &longueur_chaine_traitee)) == NULL) + { + return(NULL); + } - sprintf(tampon, "%llo", (*((logical8 *) - ((*s_objet).objet))) & masque_binaire); - strcpy(base, "o"); - } - else if (test_cfsf(s_etat_processus, 44) == d_vrai) - { + if ((chaine = malloc(longueur_champ * sizeof(unsigned char))) + == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } -/* --- Bases hexadécimale et binaire ----------------------------------------------- -*/ + memcpy(chaine, chaine_sauvegarde, longueur_champ); + longueur_chaine_traitee = longueur_champ; + free(chaine_sauvegarde); + } - sprintf(tampon, "%llX", (*((logical8 *) - ((*s_objet).objet))) & masque_binaire); + chaine_sauvegarde = chaine; - if (test_cfsf(s_etat_processus, 43) == d_vrai) + if (longueur_chaine_traitee < (1LL << 3)) + { + if ((chaine = malloc((longueur_chaine_traitee + 1) + * sizeof(unsigned char))) == NULL) { - strcpy(base, "h"); + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); } - else - { - chaine = (unsigned char *) malloc((strlen(tampon) + 1) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - strcpy(chaine, tampon); - tampon[0] = 0; + chaine[0] = 0x80 | (longueur_chaine_traitee & 0x7); - 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; - } - } - } - - free(chaine); - strcpy(base, "b"); - } + memcpy(chaine + 1, chaine_sauvegarde, longueur_chaine_traitee); + longueur_totale = longueur_chaine_traitee + 1; } + else if (longueur_chaine_traitee < (1LL << 8)) + { + if ((chaine = malloc((longueur_chaine_traitee + 2) + * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } - chaine = (unsigned char *) malloc((strlen(tampon) + 4) - * sizeof(unsigned char)); + chaine[0] = 0x88; + chaine[1] = (unsigned char) (longueur_chaine_traitee & 0xFF); - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); + memcpy(chaine + 2, chaine_sauvegarde, longueur_chaine_traitee); + longueur_totale = longueur_chaine_traitee + 2; } + else if (longueur_chaine_traitee < (1LL << 16)) + { + if ((chaine = malloc((longueur_chaine_traitee + 3) + * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } - strcpy(chaine, "# "); + chaine[0] = 0x89; + chaine[1] = (unsigned char) ((longueur_chaine_traitee >> 8) + & 0xFF); + chaine[2] = (unsigned char) (longueur_chaine_traitee & 0xFF); - strcat(chaine, tampon); - strcat(chaine, base); - } - else if ((*s_objet).type == CHN) - { + memcpy(chaine + 3, chaine_sauvegarde, longueur_chaine_traitee); + longueur_totale = longueur_chaine_traitee + 3; + } + else if (longueur_chaine_traitee < (1LL << 32)) + { + if ((chaine = malloc((longueur_chaine_traitee + 5) + * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } -/* --------------------------------------------------------------------------------- - Chaîne de caractères --------------------------------------------------------------------------------- -*/ + chaine[0] = 0x8A; + chaine[1] = (unsigned char) ((longueur_chaine_traitee >> 24) + & 0xFF); + chaine[2] = (unsigned char) ((longueur_chaine_traitee >> 16) + & 0xFF); + chaine[3] = (unsigned char) ((longueur_chaine_traitee >> 8) + & 0xFF); + chaine[4] = (unsigned char) (longueur_chaine_traitee & 0xFF); - if (format_sortie != 'C') - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); + memcpy(chaine + 5, chaine_sauvegarde, longueur_chaine_traitee); + longueur_totale = longueur_chaine_traitee + 5; } + else + { + if ((chaine = malloc((longueur_chaine_traitee + 9) + * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } - chaine = (unsigned char *) malloc((strlen((unsigned char *) - ((*s_objet).objet)) + 1) * sizeof(unsigned char)); + chaine[0] = 0x8B; + chaine[1] = (unsigned char) ((longueur_chaine_traitee >> 56) + & 0xFF); + chaine[2] = (unsigned char) ((longueur_chaine_traitee >> 48) + & 0xFF); + chaine[3] = (unsigned char) ((longueur_chaine_traitee >> 40) + & 0xFF); + chaine[4] = (unsigned char) ((longueur_chaine_traitee >> 32) + & 0xFF); + chaine[5] = (unsigned char) ((longueur_chaine_traitee >> 24) + & 0xFF); + chaine[6] = (unsigned char) ((longueur_chaine_traitee >> 16) + & 0xFF); + chaine[7] = (unsigned char) ((longueur_chaine_traitee >> 8) + & 0xFF); + chaine[8] = (unsigned char) (longueur_chaine_traitee & 0xFF); - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); + memcpy(chaine + 9, chaine_sauvegarde, longueur_chaine_traitee); + longueur_totale = longueur_chaine_traitee + 9; } - strcpy(chaine, (unsigned char *) ((*s_objet).objet)); + (*longueur_effective) = longueur_totale; } else if ((*s_objet).type == CPL) { @@ -3881,117 +3096,23 @@ formateur_fichier(struct_processus *s_et /* -------------------------------------------------------------------------------- Complexe + Poids fort 0001 10 -------------------------------------------------------------------------------- */ - if ((format_sortie != 'S') && (format_sortie != 'F') && - (format_sortie != 'I') && (format_sortie != 'E')) + if (format_sortie != 'C') { (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; return(NULL); } - if ((chaine_formatee = formateur_fichier_nombre(s_etat_processus, - (void *) ((struct_complexe16 *) ((*s_objet).objet)), 'C', - longueur, longueur_champ, format_sortie)) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - chaine = (unsigned char *) malloc((strlen(chaine_formatee) - + 1) * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_formatee); - free(chaine_formatee); - } - else if ((*s_objet).type == RPN) - { - -/* --------------------------------------------------------------------------------- - Définition --------------------------------------------------------------------------------- -*/ - - l_element_courant = (struct_liste_chainee *) ((*s_objet).objet); - chaine_sauvegarde = chaine; - - while(l_element_courant != NULL) - { - if ((chaine_formatee = formateur_fichier(s_etat_processus, - (*l_element_courant).donnee, s_format, - longueur, longueur_champ, format_sortie, type, - longueur_effective, recursivite)) == NULL) - { - return(NULL); - } - - if ((*(*l_element_courant).donnee).type == CHN) - { - chaine_tampon = chaine_formatee; - - if ((chaine_formatee = (unsigned char *) malloc((strlen( - chaine_tampon) + 3) * sizeof(unsigned char))) - == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - sprintf(chaine_formatee, "\"%s\"", chaine_tampon); - free(chaine_tampon); - } - - l_element_courant = (*l_element_courant).suivant; - - if (chaine != NULL) - { - chaine_sauvegarde = chaine; - - if ((chaine = (unsigned char *) malloc((strlen( - chaine_sauvegarde) + strlen(chaine_formatee) + 2) * - sizeof(unsigned char))) == 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); - } - else - { - chaine = chaine_formatee; - } - } - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc((strlen(chaine_sauvegarde) + 1) * - sizeof(unsigned char)); - - if (chaine == NULL) + if ((chaine = formateur_fichier_binaire_nombre(s_etat_processus, + (*s_objet).objet, 'C', 'C', longueur, longueur_effective)) + == NULL) { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - free(chaine_sauvegarde); return(NULL); } - - chaine_sauvegarde[strlen(chaine_sauvegarde)] = d_code_fin_chaine; - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); } else if ((*s_objet).type == INT) { @@ -3999,133 +3120,24 @@ formateur_fichier(struct_processus *s_et /* -------------------------------------------------------------------------------- Entier + Poids fort 0001 00 -------------------------------------------------------------------------------- */ - if (format_sortie != 'I') + if ((format_sortie != 'I') && (format_sortie != 'R') + && (format_sortie != 'C')) { (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; return(NULL); } - switch(longueur) + if ((chaine = formateur_fichier_binaire_nombre(s_etat_processus, + (*s_objet).objet, 'I', format_sortie, longueur, + longueur_effective)) == NULL) { - case 1: - { - if ((*((integer8 *) (*s_objet).objet)) != - ((integer1) (*((integer8 *) (*s_objet).objet)))) - { - (*s_etat_processus).erreur_execution = - d_ex_representation; - return(NULL); - } - - if ((chaine = malloc(2 * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - longueur_totale = 2; - chaine[0] = 0x10; - chaine[1] = (*((integer8 *) (*s_objet).objet)) & 0xFF; - break; - } - - case 2: - { - if ((*((integer8 *) (*s_objet).objet)) != - ((integer2) (*((integer8 *) (*s_objet).objet)))) - { - (*s_etat_processus).erreur_execution = - d_ex_representation; - return(NULL); - } - - if ((chaine = malloc(3 * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - longueur_totale = 3; - chaine[0] = 0x11; - chaine[1] = ((*((integer8 *) (*s_objet).objet)) >> 8) - & 0xFF; - chaine[2] = (*((integer8 *) (*s_objet).objet)) & 0xFF; - break; - } - - case 4: - { - if ((*((integer4 *) (*s_objet).objet)) != - ((integer2) (*((integer8 *) (*s_objet).objet)))) - { - (*s_etat_processus).erreur_execution = - d_ex_representation; - return(NULL); - } - - if ((chaine = malloc(5 * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - longueur_totale = 5; - chaine[0] = 0x12; - chaine[1] = ((*((integer8 *) (*s_objet).objet)) >> 24) - & 0xFF; - chaine[2] = ((*((integer8 *) (*s_objet).objet)) >> 16) - & 0xFF; - chaine[3] = ((*((integer8 *) (*s_objet).objet)) >> 8) - & 0xFF; - chaine[4] = (*((integer8 *) (*s_objet).objet)) & 0xFF; - break; - } - - case 8: - { - if ((chaine = malloc(9 * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - longueur_totale = 9; - chaine[0] = 0x13; - chaine[1] = ((*((integer8 *) (*s_objet).objet)) >> 56) - & 0xFF; - chaine[2] = ((*((integer8 *) (*s_objet).objet)) >> 48) - & 0xFF; - chaine[3] = ((*((integer8 *) (*s_objet).objet)) >> 40) - & 0xFF; - chaine[4] = ((*((integer8 *) (*s_objet).objet)) >> 32) - & 0xFF; - chaine[5] = ((*((integer8 *) (*s_objet).objet)) >> 24) - & 0xFF; - chaine[6] = ((*((integer8 *) (*s_objet).objet)) >> 16) - & 0xFF; - chaine[7] = ((*((integer8 *) (*s_objet).objet)) >> 8) - & 0xFF; - chaine[8] = (*((integer8 *) (*s_objet).objet)) & 0xFF; - break; - } - - default : - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } + return(NULL); } - - (*longueur_effective) = longueur_totale; } else if ((*s_objet).type == FCT) { @@ -4136,26 +3148,21 @@ formateur_fichier(struct_processus *s_et -------------------------------------------------------------------------------- */ - chaine = (unsigned char *) malloc((strlen((*((struct_fonction *) - ((*s_objet).objet))).nom_fonction) + 1) * - sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, (unsigned char *) (*((struct_fonction *) - ((*s_objet).objet))).nom_fonction); } - else if ((*s_objet).type == LST) + else if (((*s_objet).type == LST) || ((*s_objet).type == ALG) + || ((*s_objet).type == RPN)) { /* -------------------------------------------------------------------------------- Liste Poids fort 0100 + + Expression algébrique + Poids fort 0111 + + Définition + Poids fort 0110 -------------------------------------------------------------------------------- */ @@ -4167,6 +3174,19 @@ formateur_fichier(struct_processus *s_et return(NULL); } + if ((*s_objet).type == LST) + { + type_binaire = 0x40; + } + else if ((*s_objet).type == RPN) + { + type_binaire = 0x60; + } + else // ALG + { + type_binaire = 0x70; + } + // Calcul de la longueur de la liste. longueur_liste = 0; @@ -4180,23 +3200,23 @@ formateur_fichier(struct_processus *s_et if (longueur_liste < (1LL << 3)) { - chaine[0] = 0x40 | (longueur_liste & 0x7); + chaine[0] = type_binaire | (longueur_liste & 0x7); } else if (longueur_liste < (1LL << 8)) { - chaine[0] = 0x48; + chaine[0] = type_binaire | 0x08; } else if (longueur_liste < (1LL << 16)) { - chaine[0] = 0x49; + chaine[0] = type_binaire | 0x09; } else if (longueur_liste < (1LL << 32)) { - chaine[0] = 0x4A; + chaine[0] = type_binaire | 0x0A; } else { - chaine[0] = 0x4B; + chaine[0] = type_binaire | 0x0B; } longueur_totale = 1; @@ -4317,8 +3337,8 @@ formateur_fichier(struct_processus *s_et { if ((chaine_formatee = formateur_fichier(s_etat_processus, (*l_element_courant).donnee, - (*l_element_courant_format).donnee, - 0, 0, ' ', 'U', longueur_effective, recursivite)) + (*l_element_courant_format).donnee, 0, 0, ' ', 'U', + longueur_effective, recursivite, export_fichier)) == NULL) { return(NULL); @@ -4357,8 +3377,6 @@ formateur_fichier(struct_processus *s_et return(NULL); } - format_degenere = d_faux; - if (strncmp("INTEGER*", format_chaine, 8) == 0) { format_sortie = 'I'; @@ -4379,7 +3397,7 @@ formateur_fichier(struct_processus *s_et format_sortie = 'C'; position_1 = 8; } - else if (strcmp("CHARACTER", format_chaine) == 0) + else if (strncmp("CHARACTER*", format_chaine, 10) == 0) { format_sortie = 'S'; position_1 = 10; @@ -4395,18 +3413,18 @@ formateur_fichier(struct_processus *s_et return(NULL); } - if (format_degenere == d_faux) + if (format_chaine[position_1] == d_code_fin_chaine) { - if (format_chaine[position_1] == d_code_fin_chaine) - { - free(chaine); - free(format_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); + } + if (strcmp(&(format_chaine[position_1]), "(*)") != 0) + { if (sscanf(&(format_chaine[position_1]), "%ld", &longueur) != 1) { @@ -4417,9 +3435,12 @@ formateur_fichier(struct_processus *s_et d_ex_erreur_format_fichier; return(NULL); } + + longueur_champ = longueur; } else { + longueur_champ = -1; longueur = -1; } @@ -4428,7 +3449,8 @@ formateur_fichier(struct_processus *s_et if ((chaine_formatee = formateur_fichier(s_etat_processus, (*l_element_courant).donnee, s_format, longueur, longueur_champ, format_sortie, type, - longueur_effective, recursivite)) == NULL) + longueur_effective, recursivite, export_fichier)) + == NULL) { free(chaine); return(NULL); @@ -4464,88 +3486,6 @@ formateur_fichier(struct_processus *s_et return(NULL); } - if ((*recursivite) == 1) - { - // Ajout de la longueur totale en fin d'enregistrement. - - if (longueur_totale < (((integer8) 1) << 6)) - { - tampon[0] = longueur_totale + 1; - - if ((chaine = realloc(chaine, (longueur_totale + 1) - * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - memcpy(&(chaine[longueur_totale]), tampon, 1); - longueur_totale += 1; - } - else if (longueur_totale < (((integer8) 1) << 16)) - { - tampon[2] = 0x40; - tampon[1] = (longueur_totale + 1) & 0xFF; - tampon[0] = ((longueur_totale + 1) >> 8) & 0xFF; - - if ((chaine = realloc(chaine, (longueur_totale + 3) - * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - memcpy(&(chaine[longueur_totale]), tampon, 3); - longueur_totale += 3; - } - else if (longueur_totale < (((integer8) 1) << 32)) - { - tampon[4] = 0x80; - tampon[3] = (longueur_totale + 1) & 0xFF; - tampon[2] = ((longueur_totale + 1) >> 8) & 0xFF; - tampon[1] = ((longueur_totale + 1) >> 16) & 0xFF; - tampon[0] = ((longueur_totale + 1) >> 24) & 0xFF; - - if ((chaine = realloc(chaine, (longueur_totale + 5) - * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - memcpy(&(chaine[longueur_totale]), tampon, 5); - longueur_totale += 5; - } - else - { - tampon[8] = 0xC0; - tampon[7] = (longueur_totale + 1) & 0xFF; - tampon[6] = ((longueur_totale + 1) >> 8) & 0xFF; - tampon[5] = ((longueur_totale + 1) >> 16) & 0xFF; - tampon[4] = ((longueur_totale + 1) >> 24) & 0xFF; - tampon[3] = ((longueur_totale + 1) >> 32) & 0xFF; - tampon[2] = ((longueur_totale + 1) >> 40) & 0xFF; - tampon[1] = ((longueur_totale + 1) >> 48) & 0xFF; - tampon[0] = ((longueur_totale + 1) >> 56) & 0xFF; - - if ((chaine = realloc(chaine, (longueur_totale + 9) - * sizeof(unsigned char))) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - memcpy(&(chaine[longueur_totale]), tampon, 9); - longueur_totale += 9; - } - - __zone(); - } - (*longueur_effective) = longueur_totale; } else if ((*s_objet).type == TBL) @@ -4556,299 +3496,6 @@ formateur_fichier(struct_processus *s_et Table -------------------------------------------------------------------------------- */ - - if ((*s_format).type != TBL) - { - (*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) - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - chaine = (unsigned char *) malloc(3 * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, "<["); - - 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))) - { - 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)) - == NULL) - { - return(NULL); - } - - chaine = (unsigned char *) malloc((strlen(chaine_formatee) - + strlen(chaine_sauvegarde) + 2) - * sizeof(unsigned char)); - - 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); - } - else if ((*(*((struct_tableau *) (*s_format).objet)) - .elements[i]).type != CHN) - { - free(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); - } - - format_degenere = d_faux; - - 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 - { - free(chaine); - free(format_chaine); - - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - position_3 = strlen(format_chaine); - format_chaine[--position_3] = d_code_fin_chaine; - - position_2 = position_1; - - while(format_chaine[position_2] != '(') - { - 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); - } - - position_2++; - } - - 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); - - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - free(format_chaine); - - chaine_sauvegarde = chaine; - - 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)) == 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); - } - - 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)); - - 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)); - - 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); - } - } - } - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc((strlen(chaine_sauvegarde) + 4) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]>"); } else if ((*s_objet).type == MCX) { @@ -4858,140 +3505,6 @@ formateur_fichier(struct_processus *s_et Matrice complexe -------------------------------------------------------------------------------- */ - - if ((format_sortie != 'S') && (format_sortie != 'F') && - (format_sortie != 'I') && (format_sortie != 'E')) - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - nombre_lignes = (*((struct_matrice *) ((*s_objet).objet))) - .nombre_lignes; - nombre_colonnes = (*((struct_matrice *) ((*s_objet).objet))) - .nombre_colonnes; - - chaine = (unsigned char *) malloc(3 * sizeof(unsigned char)); - - if (chaine != NULL) - { - strcpy(chaine, "[["); - - for(i = 0; i < nombre_lignes; i++) - { - for(j = 0; j < nombre_colonnes; j++) - { - if ((chaine_formatee = - formateur_fichier_nombre(s_etat_processus, - (void *) &(((struct_complexe16 **) - ((*((struct_matrice *) - ((*s_objet).objet))).tableau))[i][j]), 'C', - longueur, longueur_champ, format_sortie)) - == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + - strlen(chaine_formatee) + 2) - * sizeof(unsigned char)); - - 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); - } - - chaine_sauvegarde = chaine; - if (test_cfsf(s_etat_processus, 45) == d_vrai) - { - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 6) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]\n ["); - } - else - { - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 4) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]["); - } - } - - if (test_cfsf(s_etat_processus, 45) == d_vrai) - { - chaine[strlen(chaine) - 3] = ']'; - chaine[strlen(chaine) - 2] = 0; - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc((strlen(chaine_sauvegarde) - + 1) * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - } - else - { - chaine[strlen(chaine) - 2] = ']'; - chaine[strlen(chaine) - 1] = 0; - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc((strlen(chaine_sauvegarde) - + 2) * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, "]"); - } - } } else if ((*s_objet).type == MIN) { @@ -5001,139 +3514,6 @@ formateur_fichier(struct_processus *s_et Matrice entière -------------------------------------------------------------------------------- */ - - if ((format_sortie != 'S') && (format_sortie != 'F') && - (format_sortie != 'I') && (format_sortie != 'E')) - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - nombre_lignes = (*((struct_matrice *) ((*s_objet).objet))) - .nombre_lignes; - nombre_colonnes = (*((struct_matrice *) ((*s_objet).objet))) - .nombre_colonnes; - - chaine = (unsigned char *) malloc(3 * sizeof(unsigned char)); - - if (chaine != NULL) - { - strcpy(chaine, "[["); - - for(i = 0; i < nombre_lignes; i++) - { - for(j = 0; j < nombre_colonnes; j++) - { - if ((chaine_formatee = - formateur_fichier_nombre(s_etat_processus, - (void *) &(((integer8 **) ((*((struct_matrice *) - ((*s_objet).objet))).tableau))[i][j]), 'I', - longueur, longueur_champ, format_sortie)) - == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + - strlen(chaine_formatee) + 2) - * sizeof(unsigned char)); - - 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); - } - - chaine_sauvegarde = chaine; - if (test_cfsf(s_etat_processus, 45) == d_vrai) - { - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 6) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]\n ["); - } - else - { - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 4) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]["); - } - } - - if (test_cfsf(s_etat_processus, 45) == d_vrai) - { - chaine[strlen(chaine) - 3] = ']'; - chaine[strlen(chaine) - 2] = 0; - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc((strlen(chaine_sauvegarde) - + 1) * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - } - else - { - chaine[strlen(chaine) - 2] = ']'; - chaine[strlen(chaine) - 1] = 0; - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc((strlen(chaine_sauvegarde) - + 2) * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, "]"); - } - } } else if ((*s_objet).type == MRL) { @@ -5143,139 +3523,6 @@ formateur_fichier(struct_processus *s_et Matrice réelle -------------------------------------------------------------------------------- */ - - if ((format_sortie != 'S') && (format_sortie != 'F') && - (format_sortie != 'I') && (format_sortie != 'E')) - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - nombre_lignes = (*((struct_matrice *) ((*s_objet).objet))) - .nombre_lignes; - nombre_colonnes = (*((struct_matrice *) ((*s_objet).objet))) - .nombre_colonnes; - - chaine = (unsigned char *) malloc(3 * sizeof(unsigned char)); - - if (chaine != NULL) - { - strcpy(chaine, "[["); - - for(i = 0; i < nombre_lignes; i++) - { - for(j = 0; j < nombre_colonnes; j++) - { - if ((chaine_formatee = - formateur_fichier_nombre(s_etat_processus, - (void *) &(((real8 **) ((*((struct_matrice *) - ((*s_objet).objet))).tableau))[i][j]), 'R', - longueur, longueur_champ, format_sortie)) - == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + - strlen(chaine_formatee) + 2) - * sizeof(unsigned char)); - - 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); - } - - chaine_sauvegarde = chaine; - if (test_cfsf(s_etat_processus, 45) == d_vrai) - { - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 6) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]\n ["); - } - else - { - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 4) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]["); - } - } - - if (test_cfsf(s_etat_processus, 45) == d_vrai) - { - chaine[strlen(chaine) - 3] = ']'; - chaine[strlen(chaine) - 2] = 0; - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc((strlen(chaine_sauvegarde) - + 1) * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - } - else - { - chaine[strlen(chaine) - 2] = ']'; - chaine[strlen(chaine) - 1] = 0; - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc((strlen(chaine_sauvegarde) - + 2) * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, "]"); - } - } } else if ((*s_objet).type == NOM) { @@ -5285,17 +3532,6 @@ formateur_fichier(struct_processus *s_et Nom -------------------------------------------------------------------------------- */ - - chaine = (unsigned char *) malloc((strlen((*((struct_nom *) - (*s_objet).objet)).nom) + 3) * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - sprintf(chaine, "'%s'", (*((struct_nom *) (*s_objet).objet)).nom); } else if ((*s_objet).type == REL) { @@ -5303,36 +3539,23 @@ formateur_fichier(struct_processus *s_et /* -------------------------------------------------------------------------------- Réel + Poids fort 0001 01 -------------------------------------------------------------------------------- */ - if ((format_sortie != 'S') && (format_sortie != 'F') && - (format_sortie != 'I') && (format_sortie != 'E')) + if ((format_sortie != 'R') && (format_sortie != 'C')) { (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; return(NULL); } - if ((chaine_formatee = formateur_fichier_nombre(s_etat_processus, - (void *) ((real8 *) ((*s_objet).objet)), 'R', - longueur, longueur_champ, format_sortie)) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - chaine = (unsigned char *) malloc((strlen(chaine_formatee) + 1) - * sizeof(unsigned char)); - - if (chaine == NULL) + if ((chaine = formateur_fichier_binaire_nombre(s_etat_processus, + (*s_objet).objet, 'R', format_sortie, + longueur, longueur_effective)) == NULL) { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(NULL); } - - strcpy(chaine, chaine_formatee); - free(chaine_formatee); } else if ((*s_objet).type == VCX) { @@ -5342,73 +3565,6 @@ formateur_fichier(struct_processus *s_et Vecteur complexe -------------------------------------------------------------------------------- */ - - if ((format_sortie != 'S') && (format_sortie != 'F') && - (format_sortie != 'I') && (format_sortie != 'E')) - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - nombre_colonnes = (*((struct_vecteur *) ((*s_objet).objet))) - .taille; - - chaine = (unsigned char *) malloc(2 * sizeof(unsigned char)); - - if (chaine != NULL) - { - strcpy(chaine, "["); - - for(i = 0; i < nombre_colonnes; i++) - { - if ((chaine_formatee = - formateur_fichier_nombre(s_etat_processus, - (void *) &(((struct_complexe16 *) - ((*((struct_vecteur *) - ((*s_objet).objet))).tableau))[i]), 'C', - longueur, longueur_champ, format_sortie)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + strlen(chaine_formatee) - + 2) * sizeof(unsigned char)); - - 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); - } - - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 3) - * sizeof(unsigned char)); - - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]"); - } } else if ((*s_objet).type == VIN) { @@ -5418,156 +3574,97 @@ formateur_fichier(struct_processus *s_et Vecteur entier -------------------------------------------------------------------------------- */ + } + else if ((*s_objet).type == VRL) + { - if ((format_sortie != 'S') && (format_sortie != 'F') && - (format_sortie != 'I') && (format_sortie != 'E')) - { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - nombre_colonnes = (*((struct_vecteur *) ((*s_objet).objet))) - .taille; - - chaine = (unsigned char *) malloc(2 * sizeof(unsigned char)); +/* +-------------------------------------------------------------------------------- + Vecteur réel +-------------------------------------------------------------------------------- +*/ + } + else + { + // Type non exportable - if (chaine != NULL) - { - strcpy(chaine, "["); + (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; + free(chaine); - for(i = 0; i < nombre_colonnes; i++) - { - if ((chaine_formatee = - formateur_fichier_nombre(s_etat_processus, - (void *) &(((integer8 *) ((*((struct_vecteur *) - ((*s_objet).objet))).tableau))[i]), 'I', - longueur, longueur_champ, format_sortie)) == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } + return(NULL); + } - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + strlen(chaine_formatee) - + 2) * sizeof(unsigned char)); + // On n'ajoute la longueur de l'enregistrement que dans le cas + // où le format est utilisé dans un fichier. - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } + if (((*recursivite) == 1) && (export_fichier == d_vrai)) + { + // Ajout de la longueur totale en fin d'enregistrement. - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " "); - strcat(chaine, chaine_formatee); - free(chaine_formatee); - } + longueur_totale = (*longueur_effective); - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 3) - * sizeof(unsigned char)); + if (longueur_totale < (((integer8) 1) << 7)) + { + tampon[0] = ((longueur_totale + 1) << 1) & 0xFF; - if (chaine == NULL) + if ((chaine = realloc(chaine, (longueur_totale + 1) + * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(NULL); } - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]"); + // XXXX XXX0 + memcpy(&(chaine[longueur_totale]), tampon, 1); + longueur_totale += 1; } - } - else if ((*s_objet).type == VRL) - { - -/* --------------------------------------------------------------------------------- - Vecteur réel --------------------------------------------------------------------------------- -*/ - - if ((format_sortie != 'S') && (format_sortie != 'F') && - (format_sortie != 'I') && (format_sortie != 'E')) + else if (longueur_totale < (((integer8) 1) << 16)) { - (*s_etat_processus).erreur_execution = - d_ex_erreur_format_fichier; - return(NULL); - } - - nombre_colonnes = (*((struct_vecteur *) ((*s_objet).objet))) - .taille; + longueur_totale++; - chaine = (unsigned char *) malloc(2 * sizeof(unsigned char)); - - if (chaine != NULL) - { - strcpy(chaine, "["); - - for(i = 0; i < nombre_colonnes; i++) + for(i = 0; i < 7; i++) { - if ((chaine_formatee = - formateur_fichier_nombre(s_etat_processus, - (void *) &(((real8 *) ((*((struct_vecteur *) - ((*s_objet).objet))).tableau))[i]), 'R', - longueur, longueur_champ, format_sortie)) == NULL) + if ((longueur_totale < (((integer8) 1) << (8 * (i + 2)))) + || (i == 6)) { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); - } + // LSB (4 bits de poids fort) + tampon[0] = (longueur_totale & 0xF0) + | 0x1 /* longueur supérieure à 7 bits */ + | ((i + 1) << 1); - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + strlen(chaine_formatee) - + 2) * sizeof(unsigned char)); + for(j = 0; j <= i; j++) + { + tampon[(i - j) + 1] = + (longueur_totale >> (8 * (j + 1))) + & 0xFF; + } - if (chaine == NULL) - { - (*s_etat_processus).erreur_systeme = - d_es_allocation_memoire; - return(NULL); + // LSB (4 bits de poids faible) + tampon[i + 2] = ((longueur_totale & 0x0F) << 4) + | 0x1 /* longueur supérieure à 7 bits */ + | ((i + 1) << 1); + break; } - - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " "); - strcat(chaine, chaine_formatee); - free(chaine_formatee); } - chaine_sauvegarde = chaine; - chaine = (unsigned char *) malloc( - (strlen(chaine_sauvegarde) + 3) - * sizeof(unsigned char)); - - if (chaine == NULL) + if ((chaine = realloc(chaine, (longueur_totale + 3) + * sizeof(unsigned char))) == NULL) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return(NULL); } - strcpy(chaine, chaine_sauvegarde); - free(chaine_sauvegarde); - strcat(chaine, " ]"); + memcpy(&(chaine[longueur_totale]), tampon, 3); + longueur_totale += 3; + } + else if (longueur_totale < (((integer8) 1) << 32)) + { } - } - else - { - // Type non exportable - - (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; - free(chaine); - return(NULL); + __zone(); + (*longueur_effective) = longueur_totale; } } @@ -5733,34 +3830,6 @@ formateur_fichier_nombre(struct_processu /* -------------------------------------------------------------------------------- - Recherche de la longueur de l'entier minimale pour représenter la donnée --------------------------------------------------------------------------------- -*/ - -unsigned char -recherche_longueur_optimale(integer8 parametre) -{ - if (parametre == (integer8) ((integer1) parametre)) - { - return(0x0); - } - else if (parametre == (integer8) ((integer2) parametre)) - { - return(0x1); - } - else if (parametre == (integer8) ((integer4) parametre)) - { - return(0x2); - } - else - { - return(0x3); - } -} - - -/* --------------------------------------------------------------------------------- Formateur des réels et entiers -------------------------------------------------------------------------------- */ @@ -5965,6 +4034,7 @@ formateur_fichier_reel(struct_processus } } } + strcpy(chaine, tampon); } @@ -5983,3 +4053,1547 @@ formateur_fichier_reel(struct_processus return(chaine); } + + +/* +-------------------------------------------------------------------------------- + Mêmes fonctions mais pour les fichiers binaires +-------------------------------------------------------------------------------- +*/ + +unsigned char * +formateur_fichier_binaire_nombre(struct_processus *s_etat_processus, + void *valeur_numerique, unsigned char type_entree, + unsigned char type, long longueur, long *longueur_conversion) +{ + unsigned char *chaine; + + switch(type) + { + case 'I' : + { + if (type_entree != type) + { + (*s_etat_processus).erreur_execution = d_ex_representation; + return(NULL); + } + + switch(longueur) + { + case 1: + { + if ((*((integer8 *) valeur_numerique)) != + ((integer1) (*((integer8 *) valeur_numerique)))) + { + (*s_etat_processus).erreur_execution = + d_ex_representation; + return(NULL); + } + + if ((chaine = malloc(2 * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + (*longueur_conversion) = 2; + chaine[0] = 0x10; + chaine[1] = (*((integer8 *) valeur_numerique)) & 0xFF; + break; + } + + case 2: + { + if ((*((integer8 *) valeur_numerique)) != + ((integer2) (*((integer8 *) valeur_numerique)))) + { + (*s_etat_processus).erreur_execution = + d_ex_representation; + return(NULL); + } + + if ((chaine = malloc(3 * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + (*longueur_conversion) = 3; + chaine[0] = 0x11; + chaine[1] = ((*((integer8 *) valeur_numerique)) >> 8) + & 0xFF; + chaine[2] = (*((integer8 *) valeur_numerique)) & 0xFF; + break; + } + + case 4: + { + if ((*((integer8 *) valeur_numerique)) != + ((integer2) (*((integer8 *) valeur_numerique)))) + { + (*s_etat_processus).erreur_execution = + d_ex_representation; + return(NULL); + } + + if ((chaine = malloc(5 * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + (*longueur_conversion) = 5; + chaine[0] = 0x12; + chaine[1] = ((*((integer8 *) valeur_numerique)) >> 24) + & 0xFF; + chaine[2] = ((*((integer8 *) valeur_numerique)) >> 16) + & 0xFF; + chaine[3] = ((*((integer8 *) valeur_numerique)) >> 8) + & 0xFF; + chaine[4] = (*((integer8 *) valeur_numerique)) & 0xFF; + break; + } + + case 8: + { + if ((chaine = malloc(9 * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + (*longueur_conversion) = 9; + chaine[0] = 0x13; + chaine[1] = ((*((integer8 *) valeur_numerique)) >> 56) + & 0xFF; + chaine[2] = ((*((integer8 *) valeur_numerique)) >> 48) + & 0xFF; + chaine[3] = ((*((integer8 *) valeur_numerique)) >> 40) + & 0xFF; + chaine[4] = ((*((integer8 *) valeur_numerique)) >> 32) + & 0xFF; + chaine[5] = ((*((integer8 *) valeur_numerique)) >> 24) + & 0xFF; + chaine[6] = ((*((integer8 *) valeur_numerique)) >> 16) + & 0xFF; + chaine[7] = ((*((integer8 *) valeur_numerique)) >> 8) + & 0xFF; + chaine[8] = (*((integer8 *) valeur_numerique)) & 0xFF; + break; + } + + default : + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + } + + break; + } + + case 'R' : + { + switch(longueur) + { + case 4: + { + real8 valeur; + real8 vinf; + real8 vsup; + + union + { + real4 r4; + integer4 i4; + } eq4; + + if (type_entree == 'R') + { + valeur = (*((real8 *) valeur_numerique)); + } + else if (type_entree == 'I') + { + valeur = (*((integer8 *) valeur_numerique)); + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_representation; + return(NULL); + } + + if (valeur > 0) + { + vinf = nextafter(valeur, 0); + vsup = nextafter(valeur, valeur * 2); + } + else + { + vinf = nextafter(valeur, valeur * 2); + vsup = nextafter(valeur, 0); + } + + if (!((vinf <= ((real4) valeur)) && + (((real4) valeur) <= vsup))) + { + (*s_etat_processus).erreur_execution = + d_ex_representation; + return(NULL); + } + + if ((chaine = malloc(5 * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + eq4.r4 = (real4) valeur; + (*longueur_conversion) = 5; + chaine[0] = 0x14; + chaine[1] = (eq4.i4 >> 24) & 0xFF; + chaine[2] = (eq4.i4 >> 16) & 0xFF; + chaine[3] = (eq4.i4 >> 8) & 0xFF; + chaine[4] = eq4.i4 & 0xFF; + break; + } + + case 8: + { + union + { + real8 r8; + integer8 i8; + } eq8; + + if ((chaine = malloc(9 * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + if (type_entree == 'I') + { + eq8.r8 = (*((integer8 *) valeur_numerique)); + } + else if (type_entree == 'R') + { + eq8.r8 = (*((real8 *) valeur_numerique)); + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_representation; + return(NULL); + } + + (*longueur_conversion) = 9; + chaine[0] = 0x15; + chaine[1] = (eq8.i8 >> 56) & 0xFF; + chaine[2] = (eq8.i8 >> 48) & 0xFF; + chaine[3] = (eq8.i8 >> 40) & 0xFF; + chaine[4] = (eq8.i8 >> 32) & 0xFF; + chaine[5] = (eq8.i8 >> 24) & 0xFF; + chaine[6] = (eq8.i8 >> 16) & 0xFF; + chaine[7] = (eq8.i8 >> 8) & 0xFF; + chaine[8] = eq8.i8 & 0xFF; + break; + } + + default : + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + } + + break; + } + + case 'C' : + { + switch(longueur) + { + case 8: + { + unsigned char *partie_reelle; + unsigned char *partie_imaginaire; + + long limag; + long lreel; + + real8 zero; + + if (type_entree == 'I') + { + if ((partie_reelle = formateur_fichier_binaire_nombre( + s_etat_processus, &(*((integer8 *) + valeur_numerique)), 'I', 'R', 4, + &lreel)) == NULL) + { + return(NULL); + } + + zero = 0; + + if ((partie_imaginaire = + formateur_fichier_binaire_nombre( + s_etat_processus, &zero, 'R', 'R', 4, + &limag)) == NULL) + { + free(partie_reelle); + return(NULL); + } + } + else if (type_entree == 'R') + { + if ((partie_reelle = formateur_fichier_binaire_nombre( + s_etat_processus, &(*((real8 *) + valeur_numerique)), 'R', 'R', 4, + &lreel)) == NULL) + { + return(NULL); + } + + zero = 0; + + if ((partie_imaginaire = + formateur_fichier_binaire_nombre( + s_etat_processus, &zero, 'R', 'R', 4, + &limag)) == NULL) + { + free(partie_reelle); + return(NULL); + } + } + else if (type_entree == 'C') + { + if ((partie_reelle = formateur_fichier_binaire_nombre( + s_etat_processus, &((*((complex16 *) + valeur_numerique)).partie_reelle), 'R', 'R', 4, + &lreel)) == NULL) + { + return(NULL); + } + + if ((partie_imaginaire = + formateur_fichier_binaire_nombre( + s_etat_processus, &((*((complex16 *) + valeur_numerique)).partie_imaginaire), + 'R', 'R', 4, &limag)) == NULL) + { + free(partie_reelle); + return(NULL); + } + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + + if ((chaine = malloc((lreel + limag - 1) * + sizeof(unsigned char))) == NULL) + { + free(partie_reelle); + free(partie_imaginaire); + + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + chaine[0] = 0x18; + memcpy(chaine + 1, partie_reelle + 1, lreel - 1); + memcpy(chaine + lreel, partie_imaginaire + 1, limag - 1); + (*longueur_conversion) = lreel + limag - 1; + + free(partie_reelle); + free(partie_imaginaire); + break; + } + + case 16: + { + unsigned char *partie_reelle; + unsigned char *partie_imaginaire; + + long limag; + long lreel; + real8 zero; + + if (type_entree == 'I') + { + if ((partie_reelle = formateur_fichier_binaire_nombre( + s_etat_processus, &(*((integer8 *) + valeur_numerique)), 'I', 'R', 8, + &lreel)) == NULL) + { + return(NULL); + } + + zero = 0; + + if ((partie_imaginaire = + formateur_fichier_binaire_nombre( + s_etat_processus, &zero, 'R', 'R', 8, + &limag)) == NULL) + { + free(partie_reelle); + return(NULL); + } + } + else if (type_entree == 'R') + { + if ((partie_reelle = formateur_fichier_binaire_nombre( + s_etat_processus, &(*((real8 *) + valeur_numerique)), 'R', 'R', 8, + &lreel)) == NULL) + { + return(NULL); + } + + zero = 0; + + if ((partie_imaginaire = + formateur_fichier_binaire_nombre( + s_etat_processus, &zero, 'R', 'R', 8, + &limag)) == NULL) + { + free(partie_reelle); + return(NULL); + } + } + else if (type_entree == 'C') + { + if ((partie_reelle = formateur_fichier_binaire_nombre( + s_etat_processus, &((*((complex16 *) + valeur_numerique)).partie_reelle), 'R', 'R', 8, + &lreel)) == NULL) + { + return(NULL); + } + + if ((partie_imaginaire = + formateur_fichier_binaire_nombre( + s_etat_processus, &((*((complex16 *) + valeur_numerique)).partie_imaginaire), + 'R', 'R', 8, &limag)) == NULL) + { + free(partie_reelle); + return(NULL); + } + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + + if ((chaine = malloc((lreel + limag - 1) * + sizeof(unsigned char))) == NULL) + { + free(partie_reelle); + free(partie_imaginaire); + + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + chaine[0] = 0x19; + memcpy(chaine + 1, partie_reelle + 1, lreel - 1); + memcpy(chaine + lreel, partie_imaginaire + 1, limag - 1); + (*longueur_conversion) = lreel + limag - 1; + + free(partie_reelle); + free(partie_imaginaire); + break; + } + + default : + { + (*s_etat_processus).erreur_execution = + d_ex_erreur_format_fichier; + return(NULL); + } + } + + break; + } + + default : + { + (*s_etat_processus).erreur_execution = d_ex_erreur_format_fichier; + return(NULL); + } + } + + return(chaine); +} + + +/* +================================================================================ + Routines de conversion d'un objet binaire en struct_objet * +================================================================================ + Entrées : pointeur sur un void *. Si longueur_buffer est strictement inférieur + à zéro, il s'agit d'un file * sinon d'un buffer de type unsigned + char *. +-------------------------------------------------------------------------------- + Sorties : pointeur sur un struct_objet nouvellement alloué +-------------------------------------------------------------------------------- + Effets de bord : néant +================================================================================ +*/ + +struct_objet * +lecture_fichier_non_formate(struct_processus *s_etat_processus, + void *argument, integer8 longueur_buffer, logical1 recursivite) +{ + file *fichier; + + int j; + + integer8 i; + integer8 longueur; + + struct_liste_chainee *l_element_courant; + + struct_objet *s_objet; + struct_objet *s_objet_elementaire; + + unsigned char octets[8]; + unsigned char *buffer; + unsigned char *flux; + unsigned char *ptr; + + size_t deplacement; + + if (longueur_buffer < 0) + { + fichier = argument; + buffer = NULL; + ptr = NULL; + } + else + { + buffer = argument; + ptr = buffer; + fichier = NULL; + } + + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 1, fichier) != 1) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 1) + { + octets[0] = *ptr++; + } + else + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + return(NULL); + } + } + + switch(octets[0] & 0xF0) + { + case 0x00: // Binaire + { + switch(octets[0] & 0x0F) + { + case 0x01: // logical*1 + { + deplacement = 1; + break; + } + + case 0x02: // logical*2 + { + deplacement = 2; + break; + } + + case 0x04: // logical*4 + { + deplacement = 4; + break; + } + + case 0x08: // logical*8 + { + deplacement = 8; + break; + } + + default: + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + deplacement, fichier) != deplacement) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= + (ssize_t) deplacement) + { + for(i = 0; i < (signed) deplacement; i++) + { + octets[i] = *ptr++; + } + } + else + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + return(NULL); + } + } + + if ((s_objet = allocation(s_etat_processus, BIN)) == NULL) + { + return(NULL); + } + + (*((logical8 *) (*s_objet).objet)) = 0; + + for(i = 0; i < (signed) deplacement; i++) + { + (*((logical8 *) (*s_objet).objet)) |= ((logical8) octets[i]) + << (8 * ((deplacement - 1) - i)); + } + + break; + } + + case 0x10: // Scalaire + { + switch(octets[0] & 0x0C) + { + case 0x00: // Entier + { + switch(octets[0] & 0x03) + { + case 0x00: // integer*1 + { + deplacement = 1; + break; + } + + case 0x01: // integer*2 + { + deplacement = 2; + break; + } + + case 0x02: // integer*4 + { + deplacement = 4; + break; + } + + case 0x03: // integer*8 + { + deplacement = 8; + break; + } + } + + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + deplacement, fichier) != deplacement) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= + (ssize_t) deplacement) + { + for(i = 0; i < (signed) deplacement; i++) + { + octets[i] = *ptr++; + } + } + else + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + return(NULL); + } + } + + if ((s_objet = allocation(s_etat_processus, INT)) == NULL) + { + return(NULL); + } + + (*((integer8 *) (*s_objet).objet)) = 0; + + for(i = 0; i < (signed) deplacement; i++) + { + (*((integer8 *) (*s_objet).objet)) |= + ((integer8) octets[i]) + << (8 * ((deplacement - 1) - i)); + } + + break; + } + + case 0x04: // Réel + { + switch(octets[0] & 0x03) + { + case 0x00: // real*4 + { + deplacement = 4; + break; + } + + case 0x01: // real*8 + { + deplacement = 8; + break; + } + + default: + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + deplacement, fichier) != deplacement) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= + (ssize_t) deplacement) + { + for(i = 0; i < (signed) deplacement; i++) + { + octets[i] = *ptr++; + } + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + if ((s_objet = allocation(s_etat_processus, REL)) == NULL) + { + return(NULL); + } + + if (deplacement == 4) + { + union + { + real4 r4; + integer4 i4; + } eq4; + + eq4.i4 = 0; + + for(i = 0; i < (signed) deplacement; i++) + { + eq4.i4 |= ((integer4) octets[i]) << + (8 * ((deplacement - 1) - i)); + } + + (*((real8 *) (*s_objet).objet)) = (real8) eq4.r4; + } + else + { + union + { + real8 r8; + integer8 i8; + } eq8; + + eq8.i8 = 0; + + for(i = 0; i < (signed) deplacement; i++) + { + eq8.i8 |= ((integer8) octets[i]) << + (8 * ((deplacement - 1) - i)); + } + + (*((real8 *) (*s_objet).objet)) = (real8) eq8.r8; + } + + break; + } + + case 0x08: // Complexe + { + switch(octets[0] & 0x03) + { + case 0x00: // complex*8 + { + deplacement = 4; + break; + } + + case 0x01: // complex*16 + { + deplacement = 8; + break; + } + + default: + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + if ((s_objet = allocation(s_etat_processus, CPL)) == NULL) + { + return(NULL); + } + + for(j = 0; j < 2; j++) + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + deplacement, fichier) != deplacement) + { + liberation(s_etat_processus, s_objet); + + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= + (ssize_t) deplacement) + { + for(i = 0; i < (signed) deplacement; i++) + { + octets[i] = *ptr++; + } + } + else + { + liberation(s_etat_processus, s_objet); + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + if (deplacement == 4) + { + union + { + real4 r4; + integer4 i4; + } eq4; + + eq4.i4 = 0; + + for(i = 0; i < (signed) deplacement; i++) + { + eq4.i4 |= ((integer4) octets[i]) << + (8 * ((deplacement - 1) - i)); + } + + if (j == 0) + { + (*((complex16 *) (*s_objet).objet)) + .partie_reelle = (real8) eq4.r4; + } + else + { + (*((complex16 *) (*s_objet).objet)) + .partie_imaginaire = (real8) eq4.r4; + } + } + else + { + union + { + real8 r8; + integer8 i8; + } eq8; + + eq8.i8 = 0; + + for(i = 0; i < (signed) deplacement; i++) + { + eq8.i8 |= ((integer8) octets[i]) << + (8 * ((deplacement - 1) - i)); + } + + if (j == 0) + { + (*((complex16 *) (*s_objet).objet)) + .partie_reelle = (real8) eq8.r8; + } + else + { + (*((complex16 *) (*s_objet).objet)) + .partie_imaginaire = (real8) eq8.r8; + } + } + } + + break; + } + + default: + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + return(NULL); + } + } + + break; + } + + case 0x40: // Liste + { + if ((octets[0] & 0x08) == 0) // Longueur sur 6 bits + { + longueur = (octets[0] & 0x07); + } + else + { + switch(octets[0] & 0x07) + { + case 0x00: // Longueur sur 8 bits + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 1, fichier) != 1) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 1) + { + octets[0] = *ptr++; + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + longueur = octets[0]; + break; + } + + case 0x01: // Longueur sur 16 bits + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 2, fichier) != 2) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 2) + { + for(j = 0; j < 2; octets[j++] = *ptr++); + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + longueur = (((integer8) (octets[0])) << 8) + | ((integer8) (octets[1])); + break; + } + + case 0x02: // Longueur sur 32 bits + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 4, fichier) != 4) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 4) + { + for(j = 0; j < 4; octets[j++] = *ptr++); + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + longueur = (((integer8) (octets[0])) << 24) + | (((integer8) (octets[1])) << 16) + | (((integer8) (octets[2])) << 8) + | ((integer8) (octets[3])); + break; + } + + case 0x03: // Longueur sur 64 bits + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 8, fichier) != 8) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 8) + { + for(j = 0; j < 8; octets[j++] = *ptr++); + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + longueur = (((integer8) (octets[0])) << 56) + | (((integer8) (octets[1])) << 48) + | (((integer8) (octets[2])) << 40) + | (((integer8) (octets[3])) << 32) + | (((integer8) (octets[4])) << 24) + | (((integer8) (octets[5])) << 16) + | (((integer8) (octets[6])) << 8) + | ((integer8) (octets[7])); + break; + } + + default: + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + return(NULL); + } + } + } + + if ((s_objet = allocation(s_etat_processus, LST)) == NULL) + { + return(NULL); + } + + l_element_courant = NULL; + + for(i = 0; i < longueur; i++) + { + // Lecture des éléments de la liste. + + if (longueur_buffer < 0) + { + if ((s_objet_elementaire = lecture_fichier_non_formate( + s_etat_processus, fichier, longueur_buffer, d_vrai)) + == NULL) + { + liberation(s_etat_processus, s_objet); + return(NULL); + } + } + else + { + if ((s_objet_elementaire = lecture_fichier_non_formate( + s_etat_processus, &ptr, + longueur_buffer - (ptr - buffer), d_vrai)) == NULL) + { + liberation(s_etat_processus, s_objet); + return(NULL); + } + } + + if (l_element_courant == NULL) + { + if (((*s_objet).objet = allocation_maillon( + s_etat_processus)) == NULL) + { + liberation(s_etat_processus, s_objet_elementaire); + liberation(s_etat_processus, s_objet); + return(NULL); + } + + l_element_courant = (*s_objet).objet; + } + else + { + if (((*l_element_courant).suivant = allocation_maillon( + s_etat_processus)) == NULL) + { + liberation(s_etat_processus, s_objet_elementaire); + liberation(s_etat_processus, s_objet); + return(NULL); + } + + l_element_courant = (*l_element_courant).suivant; + } + + (*l_element_courant).donnee = s_objet_elementaire; + (*l_element_courant).suivant = NULL; + } + + break; + } + + case 0x80: // Chaîne de caractères + { + if ((octets[0] & 0x08) == 0) // Longueur sur 6 bits + { + longueur = (octets[0] & 0x07); + } + else + { + switch(octets[0] & 0x07) + { + case 0x00: // Longueur sur 8 bits + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 1, fichier) != 1) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 1) + { + octets[0] = *ptr++; + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + longueur = octets[0]; + break; + } + + case 0x01: // Longueur sur 16 bits + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 2, fichier) != 2) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 2) + { + for(j = 0; j < 2; octets[j++] = *ptr++); + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + longueur = (((integer8) (octets[0])) << 8) + | ((integer8) (octets[1])); + break; + } + + case 0x02: // Longueur sur 32 bits + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 4, fichier) != 4) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 4) + { + for(j = 0; j < 4; octets[j++] = *ptr++); + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + longueur = (((integer8) (octets[0])) << 24) + | (((integer8) (octets[1])) << 16) + | (((integer8) (octets[2])) << 8) + | ((integer8) (octets[3])); + break; + } + + case 0x03: // Longueur sur 64 bits + { + if (longueur_buffer < 0) + { + if (fread(octets, (size_t) sizeof(unsigned char), + 8, fichier) != 8) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) >= 8) + { + for(j = 0; j < 8; octets[j++] = *ptr++); + } + else + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + } + + longueur = (((integer8) (octets[0])) << 56) + | (((integer8) (octets[1])) << 48) + | (((integer8) (octets[2])) << 40) + | (((integer8) (octets[3])) << 32) + | (((integer8) (octets[4])) << 24) + | (((integer8) (octets[5])) << 16) + | (((integer8) (octets[6])) << 8) + | ((integer8) (octets[7])); + break; + } + + default: + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + return(NULL); + } + } + } + + if (longueur_buffer < 0) + { + if ((flux = malloc(longueur * sizeof(unsigned char))) == NULL) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return(NULL); + } + + if (fread(flux, (size_t) sizeof(unsigned char), + longueur, fichier) != (size_t) longueur) + { + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = + d_es_erreur_fichier; + } + + return(NULL); + } + } + else + { + if ((longueur_buffer - (ptr - buffer)) < longueur) + { + (*s_etat_processus).erreur_execution = + d_ex_syntaxe; + return(NULL); + } + + flux = ptr; + ptr += longueur; + } + + if ((s_objet = allocation(s_etat_processus, CHN)) == NULL) + { + if (longueur_buffer < 0) + { + free(flux); + } + + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return(NULL); + } + + if (((*s_objet).objet = analyse_flux(s_etat_processus, flux, + longueur)) == NULL) + { + return(NULL); + } + + if (longueur_buffer < 0) + { + free(flux); + } + + break; + } + + default: + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + return(NULL); + } + } + + if ((longueur_buffer < 0) && (recursivite == d_faux)) + { + // Lecture depuis un fichier, on saute le champ de queue qui contient + // la longueur de l'enregistrement. + + if (fread(octets, (size_t) sizeof(unsigned char), 1, fichier) != 1) + { + liberation(s_etat_processus, s_objet); + + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = d_es_erreur_fichier; + } + + return(NULL); + } + + if ((octets[0] & 0x01) != 0) + { + deplacement = ((octets[0] & 0x0F) >> 1) + 1; + + if (fread(octets, (size_t) sizeof(unsigned char), deplacement, + fichier) != deplacement) + { + liberation(s_etat_processus, s_objet); + + if (feof(fichier)) + { + (*s_etat_processus).erreur_execution = d_ex_syntaxe; + } + else + { + (*s_etat_processus).erreur_systeme = d_es_erreur_fichier; + } + + return(NULL); + } + } + } + + return(s_objet); +} + +// vim: ts=4