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.71 and 1.81

version 1.71, 2019/11/06 17:31:47	version 1.81, 2025/04/15 10:17:58
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.32	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2019 Dr. BERTRAND Joël	Copyright (C) 1989-2025 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 228 ordonnancement_branches(const void *a1,	Line 211 ordonnancement_branches(const void *a1,

// On rejette les nombres à la fin.	// On rejette les nombres à la fin.

if ((((((**_a1).feuille).donnee).type == INT) \|\|	if (((((**_a1).feuille).donnee).type == INT) \|\|
((((**_a1).feuille).donnee).type == REL) \|\|	((((**_a1).feuille).donnee).type == REL) \|\|
((((**_a1).feuille).donnee).type == CPL)) &&	((((**_a1).feuille).donnee).type == CPL))
((((((**_a2).feuille).donnee).type != INT) &&
((((**_a2).feuille).donnee).type != REL) &&
((((**_a2).feuille).donnee).type != CPL))))
{	{
return(1);	return(1);
}	}
Line 247 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 257 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 354 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 410 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.71
changed lines
	Added in v.1.81