rpl/src/sequenceur.c - diff

Return to sequenceur.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/sequenceur.c between versions 1.18 and 1.27

version 1.18, 2010/06/24 10:10:47	version 1.27, 2010/12/08 20:58:16
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.17	RPL/2 (R) version 4.0.20
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 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 199 sequenceur(struct_processus *s_etat_proc	Line 199 sequenceur(struct_processus *s_etat_proc
(*s_etat_processus).localisation, d_locale))	(*s_etat_processus).localisation, d_locale))
== NULL)	== NULL)
{	{
	free((*s_etat_processus).instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

Line 305 sequenceur(struct_processus *s_etat_proc	Line 306 sequenceur(struct_processus *s_etat_proc

if ((message = messages(s_etat_processus)) == NULL)	if ((message = messages(s_etat_processus)) == NULL)
{	{
	free((*s_etat_processus).instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

Line 364 sequenceur(struct_processus *s_etat_proc	Line 366 sequenceur(struct_processus *s_etat_proc
if ((message = messages(s_etat_processus))	if ((message = messages(s_etat_processus))
== NULL)	== NULL)
{	{
	free((*s_etat_processus)
	.instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

printf("%s [%d]\n", message, (int) getpid());	printf("%s [%d]\n", message, (int) getpid());
free(message);

	free(message);
	free((*s_etat_processus).instruction_courante);
return(d_erreur);	return(d_erreur);
}	}
else if ((*s_etat_processus)	else if ((*s_etat_processus)
Line 387 sequenceur(struct_processus *s_etat_proc	Line 392 sequenceur(struct_processus *s_etat_proc
if ((message = messages(s_etat_processus))	if ((message = messages(s_etat_processus))
== NULL)	== NULL)
{	{
	free((*s_etat_processus)
	.instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

Line 452 sequenceur(struct_processus *s_etat_proc	Line 459 sequenceur(struct_processus *s_etat_proc

if ((message = messages(s_etat_processus)) == NULL)	if ((message = messages(s_etat_processus)) == NULL)
{	{
	free((*s_etat_processus).instruction_courante);
free(ligne);	free(ligne);
return(d_erreur);	return(d_erreur);
}	}
Line 848 sequenceur(struct_processus *s_etat_proc	Line 856 sequenceur(struct_processus *s_etat_proc
&((*s_etat_processus).l_base_pile),	&((*s_etat_processus).l_base_pile),
&s_objet_evaluation) == d_erreur)	&s_objet_evaluation) == d_erreur)
{	{
	free((*s_etat_processus).instruction_courante);
(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_manque_argument;	d_ex_manque_argument;
return(d_erreur);	return(d_erreur);
Line 856 sequenceur(struct_processus *s_etat_proc	Line 865 sequenceur(struct_processus *s_etat_proc
if (evaluation(s_etat_processus, s_objet_evaluation,	if (evaluation(s_etat_processus, s_objet_evaluation,
'N') == d_erreur)	'N') == d_erreur)
{	{
	free((*s_etat_processus).instruction_courante);
liberation(s_etat_processus, s_objet_evaluation);	liberation(s_etat_processus, s_objet_evaluation);
return(d_erreur);	return(d_erreur);
}	}

liberation(s_etat_processus, s_objet_evaluation);	liberation(s_etat_processus, s_objet_evaluation);
}	}

	// Le séquenceur est appelé depuis la routine de
	// recherche de type

	else if ((*s_etat_processus).recherche_type == 'Y')
	{
	if ((*s_etat_processus).erreur_execution != d_ex)
	{
	free((*s_etat_processus).instruction_courante);
	return(d_erreur);
	}
	}
}	}
}	}
else if (((*s_etat_processus).test_instruction == 'Y') &&	else if (((*s_etat_processus).test_instruction == 'Y') &&
Line 969 sequenceur(struct_processus *s_etat_proc	Line 991 sequenceur(struct_processus *s_etat_proc

fflush(stdout);	fflush(stdout);

	free((*s_etat_processus).instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

Line 1050 sequenceur(struct_processus *s_etat_proc	Line 1073 sequenceur(struct_processus *s_etat_proc

if ((message = messages(s_etat_processus)) == NULL)	if ((message = messages(s_etat_processus)) == NULL)
{	{
	free((*s_etat_processus).instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

Line 1136 sequenceur(struct_processus *s_etat_proc	Line 1160 sequenceur(struct_processus *s_etat_proc

if (erreur == d_erreur)	if (erreur == d_erreur)
{	{
	free((*s_etat_processus).instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

Line 1157 sequenceur(struct_processus *s_etat_proc	Line 1182 sequenceur(struct_processus *s_etat_proc

if ((*s_etat_processus).erreur_systeme != d_es)	if ((*s_etat_processus).erreur_systeme != d_es)
{	{
	free((*s_etat_processus).instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

Line 1190 sequenceur(struct_processus *s_etat_proc	Line 1216 sequenceur(struct_processus *s_etat_proc

if (instruction_majuscule == NULL)	if (instruction_majuscule == NULL)
{	{
	free((*s_etat_processus).instruction_courante);
return(d_erreur);	return(d_erreur);
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.18
changed lines
	Added in v.1.27