rpl/src/simplification.c - diff

Return to simplification.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/simplification.c between versions 1.72 and 1.76

version 1.72, 2019/11/06 17:52:46	version 1.76, 2021/03/13 12:50:52
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.32	RPL/2 (R) version 4.1.33
Copyright (C) 1989-2019 Dr. BERTRAND Joël	Copyright (C) 1989-2021 Dr. BERTRAND Joël

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

Line 57 affichage_arbre(struct_processus *s_etat	Line 57 affichage_arbre(struct_processus *s_etat

l_element_courant = (*s_arbre).feuille;	l_element_courant = (*s_arbre).feuille;

	for(i = 0; i < niveau; i++)
	{
	printf(" ");
	}

while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
if ((chaine = formateur(s_etat_processus, 0,	if ((chaine = formateur(s_etat_processus, 0,
Line 66 affichage_arbre(struct_processus *s_etat	Line 71 affichage_arbre(struct_processus *s_etat
return;	return;
}	}

for(i = 0; i < niveau; i++)	printf("%s ", chaine);
{
printf(" ");
}

printf("%s\n", chaine);
free(chaine);	free(chaine);

l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
}	}

	printf("\n");

// Affichage des branches (arguments de la fonction dans la feuille)	// Affichage des branches (arguments de la fonction dans la feuille)

for(branche = 0; branche < (*s_arbre).nombre_branches; branche++)	for(branche = 0; branche < (*s_arbre).nombre_branches; branche++)
Line 138 transcription_arbre(struct_processus *s_	Line 140 transcription_arbre(struct_processus *s_
}	}

// Ajout des fonctions	// Ajout des fonctions
// Arbre q-aire => si q branches, q-1 fonctions

l_liste = (*s_arbre).feuille;	if ((*s_arbre).nombre_branches != 0)

for(i = 0; i < (*s_arbre).nombre_branches - 2; i++)
{	{
if ((l_element_courant = allocation_maillon(s_etat_processus))	free((*s_arbre).branches);
== NULL)
{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);
}

(*l_element_courant).suivant = l_liste;

if (((*l_element_courant).donnee = copie_objet(s_etat_processus,
(*l_liste).donnee, 'P')) == NULL)
{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);
}

l_liste = l_element_courant;
}	}

free((*s_arbre).branches);	l_liste = (*s_arbre).feuille;
free(s_arbre);	free(s_arbre);

// Chaînage des arguments	// Chaînage des arguments
Line 244 ordonnancement_branches(const void *a1,	Line 227 ordonnancement_branches(const void *a1,
}	}


	static int
	ordonnancement_instructions_neg(const void a1, const void a2)
	{
	struct_arbre **_a1;

	_a1 = (struct_arbre **) a1;

	if ((**_a1).feuille != NULL)
	{
	// On rejette NEG ŕ la fin de l'arbre.

	if ((((**_a1).feuille).donnee).type == FCT)
	{
	if (strcmp((((struct_fonction ) (((**_a1).feuille).donnee)
	.objet)).nom_fonction, "NEG") == 0)
	{
	return(1);
	}
	else
	{
	return(-1);
	}
	}
	else
	{
	return(0);
	}
	}

	return(0);
	}


static void	static void
simplification_arbre(struct_processus *s_etat_processus,	simplification_arbre(struct_processus *s_etat_processus,
struct_arbre *s_arbre)	struct_arbre *s_arbre)
Line 254 simplification_arbre(struct_processus *s	Line 270 simplification_arbre(struct_processus *s

struct_arbre *s_branche;	struct_arbre *s_branche;

	struct_liste_chainee *l_element_courant;
	struct_liste_chainee *l_element_suivant;

struct_objet *s_objet;	struct_objet *s_objet;

if ((((*s_arbre).feuille).donnee).type != FCT)	if ((((*s_arbre).feuille).donnee).type != FCT)
Line 351 simplification_arbre(struct_processus *s	Line 370 simplification_arbre(struct_processus *s
if (strcmp((((struct_fonction ) (((*s_arbre).feuille).donnee).objet))	if (strcmp((((struct_fonction ) (((*s_arbre).feuille).donnee).objet))
.nom_fonction, "+") == 0)	.nom_fonction, "+") == 0)
{	{
	qsort((s_arbre).branches, (size_t) (s_arbre)
	.nombre_branches, sizeof(struct_arbre *),
	ordonnancement_instructions_neg);

for(i = 0; i < (*s_arbre).nombre_branches; i++)	for(i = 0; i < (*s_arbre).nombre_branches; i++)
{	{
s_objet = (((((*s_arbre).branches[i])).feuille)).donnee;	s_objet = (((((*s_arbre).branches[i])).feuille)).donnee;
Line 407 simplification_arbre(struct_processus *s	Line 430 simplification_arbre(struct_processus *s
((s_arbre).branches[i]).branches[j];	((s_arbre).branches[i]).branches[j];
}	}

	l_element_courant = (*s_arbre).feuille;
	(s_arbre).feuille = ((*s_arbre).branches[i]).feuille;

	l_element_suivant = (*s_arbre).feuille;
	while((*l_element_suivant).suivant != NULL)
	{
	l_element_suivant = (*l_element_suivant).suivant;
	}

	(*l_element_suivant).suivant = l_element_courant;
	free(((s_arbre).branches[i]).branches);
free((*s_arbre).branches[i]);	free((*s_arbre).branches[i]);

// Retrait de la branche	// Retrait de la branche

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.72
changed lines
	Added in v.1.76