version 1.58, 2013/03/19 11:46:11
|
version 1.59, 2013/03/19 12:27:56
|
Line 3638 formateur_fichier(struct_processus *s_et
|
Line 3638 formateur_fichier(struct_processus *s_et
|
(((*(*l_element_courant_format).donnee).type == TBL) |
(((*(*l_element_courant_format).donnee).type == TBL) |
&& ((*(*l_element_courant).donnee).type == TBL))) |
&& ((*(*l_element_courant).donnee).type == TBL))) |
{ |
{ |
if ((chaine_formatee = formateur_fichier(s_etat_processus, |
if (format_sortie != 'N') |
(*l_element_courant).donnee, |
|
(*l_element_courant_format).donnee, 0, 0, ' ', 'U', |
|
longueur_effective, recursivite, export_fichier)) |
|
== NULL) |
|
{ |
{ |
return(NULL); |
if ((chaine_formatee = formateur_fichier( |
|
s_etat_processus, |
|
(*l_element_courant).donnee, |
|
(*l_element_courant_format).donnee, |
|
0, 0, ' ', 'U', longueur_effective, recursivite, |
|
export_fichier)) == NULL) |
|
{ |
|
return(NULL); |
|
} |
|
} |
|
else |
|
{ |
|
if ((chaine_formatee = formateur_fichier( |
|
s_etat_processus, |
|
(*l_element_courant).donnee, |
|
(*l_element_courant_format).donnee, |
|
0, 0, 'N', 'U', longueur_effective, recursivite, |
|
export_fichier)) == NULL) |
|
{ |
|
return(NULL); |
|
} |
} |
} |
|
|
if ((chaine = realloc(chaine, (longueur_totale + |
if ((chaine = realloc(chaine, (longueur_totale + |
Line 3782 formateur_fichier(struct_processus *s_et
|
Line 3798 formateur_fichier(struct_processus *s_et
|
|
|
nombre_elements++; |
nombre_elements++; |
l_element_courant = (*l_element_courant).suivant; |
l_element_courant = (*l_element_courant).suivant; |
l_element_courant_format = (*l_element_courant_format).suivant; |
|
|
if (format_sortie != 'N') |
|
{ |
|
l_element_courant_format = |
|
(*l_element_courant_format).suivant; |
|
} |
} |
} |
|
|
if ((l_element_courant != NULL) || |
if (format_sortie != 'N') |
(l_element_courant_format != NULL)) |
|
{ |
{ |
free(chaine); |
if ((l_element_courant != NULL) || |
|
(l_element_courant_format != NULL)) |
|
{ |
|
free(chaine); |
|
|
(*s_etat_processus).erreur_execution = |
(*s_etat_processus).erreur_execution = |
d_ex_erreur_format_fichier; |
d_ex_erreur_format_fichier; |
return(NULL); |
return(NULL); |
|
} |
} |
} |
|
|
(*longueur_effective) = longueur_totale; |
(*longueur_effective) = longueur_totale; |
Line 4892 lecture_fichier_non_formate(struct_proce
|
Line 4916 lecture_fichier_non_formate(struct_proce
|
unsigned char *buffer; |
unsigned char *buffer; |
unsigned char *flux; |
unsigned char *flux; |
unsigned char *ptr; |
unsigned char *ptr; |
|
unsigned char type_objet; |
|
|
size_t deplacement; |
size_t deplacement; |
|
|
Line 4938 lecture_fichier_non_formate(struct_proce
|
Line 4963 lecture_fichier_non_formate(struct_proce
|
} |
} |
} |
} |
|
|
switch(octets[0] & 0xF0) |
switch(type_objet = (octets[0] & 0xF0)) |
{ |
{ |
case 0x00: // Binaire |
case 0x00: // Binaire |
{ |
{ |
Line 5361 lecture_fichier_non_formate(struct_proce
|
Line 5386 lecture_fichier_non_formate(struct_proce
|
} |
} |
|
|
case 0x40: // Liste |
case 0x40: // Liste |
|
case 0x60: // Expression |
|
case 0x70: // Expression algébrique |
{ |
{ |
if ((octets[0] & 0x08) == 0) // Longueur sur 6 bits |
if ((octets[0] & 0x08) == 0) // Longueur sur 6 bits |
{ |
{ |
Line 5545 lecture_fichier_non_formate(struct_proce
|
Line 5572 lecture_fichier_non_formate(struct_proce
|
} |
} |
} |
} |
|
|
if ((s_objet = allocation(s_etat_processus, LST)) == NULL) |
if (type_objet == 0x40) |
{ |
{ |
return(NULL); |
if ((s_objet = allocation(s_etat_processus, LST)) == NULL) |
|
{ |
|
return(NULL); |
|
} |
|
} |
|
else if (type_objet == 0x60) |
|
{ |
|
if ((s_objet = allocation(s_etat_processus, RPN)) == NULL) |
|
{ |
|
return(NULL); |
|
} |
|
} |
|
else |
|
{ |
|
if ((s_objet = allocation(s_etat_processus, ALG)) == NULL) |
|
{ |
|
return(NULL); |
|
} |
} |
} |
|
|
l_element_courant = NULL; |
l_element_courant = NULL; |