rpl/src/formateur_fichiers.c - diff

Return to formateur_fichiers.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/formateur_fichiers.c between versions 1.58 and 1.59

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;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.58
changed lines
	Added in v.1.59