rpl/src/chainage.c - diff

Return to chainage.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/chainage.c between versions 1.43 and 1.55

version 1.43, 2012/04/13 14:12:45	version 1.55, 2013/09/06 10:30:50
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.8	RPL/2 (R) version 4.1.16
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

Line 45 chainage(struct_processus *s_etat_proces	Line 45 chainage(struct_processus *s_etat_proces

int caractere;	int caractere;
int erreur;	int erreur;
int erreur_os;

logical1 drapeau_fin;	logical1 drapeau_fin;
	logical1 erreur_os;
logical1 existence;	logical1 existence;
logical1 initialisation;	logical1 initialisation;
logical1 ouverture;	logical1 ouverture;
logical1 presence_chaine;	logical1 presence_chaine;

long i;	integer8 i;
long nombre_caracteres_source;	integer8 nombre_caracteres_source;

unsigned char *commande;	unsigned char *commande;
unsigned char *executable_candidat;	unsigned char *executable_candidat;
Line 333 chainage(struct_processus *s_etat_proces	Line 333 chainage(struct_processus *s_etat_proces
}	}

(s_etat_processus).definitions_chainees = (unsigned char )	(s_etat_processus).definitions_chainees = (unsigned char )
malloc((nombre_caracteres_source + 1) * sizeof(unsigned char));	malloc((((size_t) nombre_caracteres_source) + 1)
	* sizeof(unsigned char));

if ((*s_etat_processus).definitions_chainees == NULL)	if ((*s_etat_processus).definitions_chainees == NULL)
{	{
Line 416 chainage(struct_processus *s_etat_proces	Line 417 chainage(struct_processus *s_etat_proces
}	}
}	}

if ((((*s_etat_processus).definitions_chainees)[i] =	if (((int) (((*s_etat_processus).definitions_chainees)[i] =
caractere) == '\"')	((unsigned char) caractere))) == '\"')
{	{
if (i > 0)	if (i > 0)
{	{
Line 453 chainage(struct_processus *s_etat_proces	Line 454 chainage(struct_processus *s_etat_proces
}	}

(*s_etat_processus).longueur_definitions_chainees =	(*s_etat_processus).longueur_definitions_chainees =
strlen((*s_etat_processus).definitions_chainees);	(integer8) strlen((*s_etat_processus).definitions_chainees);

if (fclose(f_source) != 0)	if (fclose(f_source) != 0)
{	{
Line 487 chainage(struct_processus *s_etat_proces	Line 488 chainage(struct_processus *s_etat_proces

if (((*s_etat_processus).definitions_chainees =	if (((*s_etat_processus).definitions_chainees =
realloc((*s_etat_processus).definitions_chainees,	realloc((*s_etat_processus).definitions_chainees,
((s_etat_processus).longueur_definitions_chainees + 1)	(((size_t) (*s_etat_processus).longueur_definitions_chainees) + 1)
sizeof(unsigned char))) == NULL)	* sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(d_erreur);	return(d_erreur);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.43
changed lines
	Added in v.1.55