rpl/src/evaluation.c - diff

Return to evaluation.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/evaluation.c between versions 1.6 and 1.15

version 1.6, 2010/02/10 10:14:19	version 1.15, 2010/05/16 19:36:19
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.11	RPL/2 (R) version 4.0.15
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 143 evaluation(struct_processus *s_etat_proc	Line 143 evaluation(struct_processus *s_etat_proc
if (recherche_variable(s_etat_processus, (((struct_nom )	if (recherche_variable(s_etat_processus, (((struct_nom )
(*s_objet_tampon).objet)).nom) == d_faux)	(*s_objet_tampon).objet)).nom) == d_faux)
{	{
	(*s_etat_processus).erreur_execution = d_ex;

	if ((*s_etat_processus).autorisation_nom_implicite == 'N')
	{
	if ((((struct_nom ) (*s_objet_tampon).objet)).symbole ==
	d_faux)
	{
	if (test_cfsf(s_etat_processus, 31) == d_vrai)
	{
	if (empilement_pile_last(s_etat_processus, 0)
	== d_erreur)
	{
	return(d_erreur);
	}
	}

	erreur_evaluation = d_erreur;
	(*s_etat_processus).erreur_execution =
	d_ex_nom_implicite;

	if (type_evaluation == 'I')
	{
	(*s_etat_processus).derniere_erreur_evaluation =
	(*s_etat_processus).erreur_execution;
	}
	}
	}

(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
presence_variable = d_faux;	presence_variable = d_faux;
}	}
Line 463 evaluation(struct_processus *s_etat_proc	Line 491 evaluation(struct_processus *s_etat_proc
(*s_etat_processus).evaluation_expression_compilee =	(*s_etat_processus).evaluation_expression_compilee =
registre_evaluation_expression_compilee;	registre_evaluation_expression_compilee;
}	}
else	else if ((*s_etat_processus).erreur_execution != d_ex_nom_implicite)
{	{
if ((s_objet_tampon = copie_objet(s_etat_processus,	if ((s_objet_tampon = copie_objet(s_etat_processus,
s_objet, 'P')) == NULL)	s_objet, 'Q')) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 484 evaluation(struct_processus *s_etat_proc	Line 512 evaluation(struct_processus *s_etat_proc
instruction_courante;	instruction_courante;
return(d_erreur);	return(d_erreur);
}	}

if ((*s_etat_processus).erreur_execution ==
d_ex_variable_non_definie)
{
(*s_etat_processus).erreur_execution = d_ex;
}
}	}
}	}
else	else
Line 1283 evaluation(struct_processus *s_etat_proc	Line 1305 evaluation(struct_processus *s_etat_proc
instruction_courante;	instruction_courante;
return(d_erreur);	return(d_erreur);
}	}

	if (((s_etat_processus)
	.l_base_pile_systeme)
	.retour_definition
	== 'Y')
	{
	break;
	}
}	}
else	else
{	{
Line 4002 evaluation(struct_processus *s_etat_proc	Line 4032 evaluation(struct_processus *s_etat_proc
{	{
/*	/*
* La fin de l'expression est atteinte,	* La fin de l'expression est atteinte,
* le sequenceur reprend la main.	* le séquenceur reprend la main.
*/	*/

if (presence_egalite == d_vrai)	if (presence_egalite == d_vrai)
Line 4383 evaluation(struct_processus *s_etat_proc	Line 4413 evaluation(struct_processus *s_etat_proc
{	{
(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
presence_variable = d_faux;	presence_variable = d_faux;

	if ((*s_etat_processus).autorisation_nom_implicite
	== 'N')
	{
	if ((((struct_nom ) (*s_objet_elementaire).objet))
	.symbole == d_faux)
	{
	if (test_cfsf(s_etat_processus, 31) == d_vrai)
	{
	if (empilement_pile_last(s_etat_processus,
	0) == d_erreur)
	{
	return(d_erreur);
	}
	}

	erreur_evaluation = d_erreur;
	(*s_etat_processus).erreur_execution =
	d_ex_nom_implicite;

	if (type_evaluation == 'I')
	{
	(*s_etat_processus)
	.derniere_erreur_evaluation =
	(*s_etat_processus)
	.erreur_execution;
	}
	}
	}
}	}
else	else
{	{
Line 4765 evaluation(struct_processus *s_etat_proc	Line 4824 evaluation(struct_processus *s_etat_proc

((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.niveau_courant =	.niveau_courant =
	registre_niveau_courant;
((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.retour_definition =	.retour_definition =
registre_retour_definition;	registre_retour_definition;
Line 4795 evaluation(struct_processus *s_etat_proc	Line 4855 evaluation(struct_processus *s_etat_proc

((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.niveau_courant =	.niveau_courant =
	registre_niveau_courant;
((s_etat_processus).l_base_pile_systeme)	((s_etat_processus).l_base_pile_systeme)
.retour_definition =	.retour_definition =
registre_retour_definition;	registre_retour_definition;
Line 5076 evaluation(struct_processus *s_etat_proc	Line 5137 evaluation(struct_processus *s_etat_proc
((*s_etat_processus).erreur_execution != d_ex) \|\|	((*s_etat_processus).erreur_execution != d_ex) \|\|
((*s_etat_processus).exception != d_ep))	((*s_etat_processus).exception != d_ep))
{	{
	// Il est anormal de récupérer ici une erreur
	// d'exécution puisqu'on empile une constante
	// symbolique.

if (presence_egalite == d_vrai)	if (presence_egalite == d_vrai)
{	{
liberation(s_etat_processus, s_objet_evalue);	liberation(s_etat_processus, s_objet_evalue);

CVSweb interface <joel.bertrand@systella.fr>

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