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.6 and 1.31

version 1.6, 2010/03/08 08:34:15	version 1.31, 2011/07/25 07:44:54
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.12	RPL/2 (R) version 4.1.2
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 30	Line 30
Entrées : structure sur l'état du processus et objet à afficher	Entrées : structure sur l'état du processus et objet à afficher
Longueur est la précision requise et longueur_champ, le nombre maximal	Longueur est la précision requise et longueur_champ, le nombre maximal
de caractères de la chaîne résultat (-1 signifiant une absence de contrainte)	de caractères de la chaîne résultat (-1 signifiant une absence de contrainte)
Type = 'F/U'	Type = 'F/U' (formaté, non formaté)
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Sorties : chaine de caractères et longueur du tableau de caractères	Sorties : chaine de caractères et longueur du tableau de caractères
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Line 1176 formateur_fichier(struct_processus *s_et	Line 1176 formateur_fichier(struct_processus *s_et
return(NULL);	return(NULL);
}	}

chaine = (unsigned char ) malloc((strlen((unsigned char )	if ((longueur_champ == -1) \|\| (strlen((unsigned char *)
((s_objet).objet)) + 1) sizeof(unsigned char));	(*s_objet).objet) < longueur_champ))

if (chaine == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	chaine = (unsigned char ) malloc((strlen((unsigned char )
return(NULL);	((s_objet).objet)) + 1) sizeof(unsigned char));

	if (chaine == NULL)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return(NULL);
	}

	strcpy(chaine, (unsigned char ) ((s_objet).objet));
}	}
	else
	{
	chaine = (unsigned char *) malloc((longueur_champ + 1)
	* sizeof(unsigned char));

strcpy(chaine, (unsigned char ) ((s_objet).objet));	if (chaine == NULL)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return(NULL);
	}

	strncpy(chaine, (unsigned char ) ((s_objet).objet),
	longueur_champ);
	chaine[longueur_champ] = d_code_fin_chaine;
	}
}	}
else if ((*s_objet).type == CPL)	else if ((*s_objet).type == CPL)
{	{
Line 1707 formateur_fichier(struct_processus *s_et	Line 1728 formateur_fichier(struct_processus *s_et
((((((struct_tableau ) (s_format).objet))	((((((struct_tableau ) (s_format).objet))
.elements[i]).type == TBL) &&	.elements[i]).type == TBL) &&
(((((struct_tableau ) (s_objet).objet)).elements[i])	(((((struct_tableau ) (s_objet).objet)).elements[i])
.type == TAB)))	.type == TBL)))
{	{
chaine_sauvegarde = chaine;	chaine_sauvegarde = chaine;

Line 4575 formateur_fichier(struct_processus *s_et	Line 4596 formateur_fichier(struct_processus *s_et
((((((struct_tableau ) (s_format).objet))	((((((struct_tableau ) (s_format).objet))
.elements[i]).type == TBL) &&	.elements[i]).type == TBL) &&
(((((struct_tableau ) (s_objet).objet)).elements[i])	(((((struct_tableau ) (s_objet).objet)).elements[i])
.type == TAB)))	.type == TBL)))
{	{
chaine_sauvegarde = chaine;	chaine_sauvegarde = chaine;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.6
changed lines
	Added in v.1.31