rpl/src/gestion_variables.c - diff

Return to gestion_variables.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/gestion_variables.c between versions 1.37 and 1.46

version 1.37, 2011/06/21 07:45:22	version 1.46, 2011/08/09 11:31:30
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0.prerelease.1	RPL/2 (R) version 4.1.3
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2011 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 46 liste_variables_par_niveaux(struct_proce	Line 46 liste_variables_par_niveaux(struct_proce

struct_liste_chainee *e;	struct_liste_chainee *e;

printf("===========================================================\n");	printf("=========================================================="
	"======================\n");
printf(" Liste des variables par niveaux\n");	printf(" Liste des variables par niveaux\n");
printf("===========================================================\n");	printf("=========================================================="
	"======================\n");

if ((*s_etat_processus).l_liste_variables_par_niveau == NULL)	if ((*s_etat_processus).l_liste_variables_par_niveau == NULL)
{	{
printf("===========================================================\n");	printf("=========================================================="
	"======================\n");
return;	return;
}	}

Line 68 liste_variables_par_niveaux(struct_proce	Line 71 liste_variables_par_niveaux(struct_proce

while(e != NULL)	while(e != NULL)
{	{
printf("%s (%p, %d) ", ((struct_variable *) e->donnee)->nom,	printf("%s (%p->%p, %d) ", ((struct_variable *) e->donnee)->nom,
e->donnee, ((struct_variable *) e->donnee)->niveau);	e, e->donnee, ((struct_variable *) e->donnee)->niveau);
e = e->suivant;	e = e->suivant;
c++;	c++;
if (c > 100)	if (c > 100)
Line 93 liste_variables_par_niveaux(struct_proce	Line 96 liste_variables_par_niveaux(struct_proce

while(e != NULL)	while(e != NULL)
{	{
printf("%s (%p, %d) ", ((struct_variable *) e->donnee)->nom,	printf("%s (%p->%p, %d) ", ((struct_variable *) e->donnee)->nom,
e->donnee, ((struct_variable *) e->donnee)->niveau);	e, e->donnee, ((struct_variable *) e->donnee)->niveau);
e = e->suivant;	e = e->suivant;
c++;	c++;
if (c > 100) exit(0);	if (c > 100) exit(0);
Line 105 liste_variables_par_niveaux(struct_proce	Line 108 liste_variables_par_niveaux(struct_proce
l = l->suivant;	l = l->suivant;
} while(l != (*s_etat_processus).l_liste_variables_par_niveau);	} while(l != (*s_etat_processus).l_liste_variables_par_niveau);

printf("===========================================================\n");	printf("=========================================================="
	"======================\n");

if (fin == d_vrai) exit(0);	if (fin == d_vrai) exit(0);

Line 184 liste_variables_tas(struct_processus *s_	Line 188 liste_variables_tas(struct_processus *s_
} while((*arbre).feuille != l);	} while((*arbre).feuille != l);
}	}

printf("-----------------------------------------------------------\n");	printf("----------------------------------------------------------"
	"----------------------\n");

for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)	for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
{	{
Line 204 liste_variables_tas(struct_processus *s_	Line 209 liste_variables_tas(struct_processus *s_
static void	static void
liste_variables_par_feuilles(struct_processus *s_etat_processus)	liste_variables_par_feuilles(struct_processus *s_etat_processus)
{	{
printf("===========================================================\n");	printf("=========================================================="
	"======================\n");
printf(" Liste des variables sur le tas\n");	printf(" Liste des variables sur le tas\n");
printf("===========================================================\n");	printf("=========================================================="
	"======================\n");

liste_variables_tas(s_etat_processus,	liste_variables_tas(s_etat_processus,
(*s_etat_processus).s_arbre_variables);	(*s_etat_processus).s_arbre_variables);

printf("===========================================================\n");	printf("=========================================================="
	"======================\n");

	return;
	}


	/*
	================================================================================
	Routine de gestion du cache mémoire sur l'arbre des variables
	================================================================================
	Entrée :
	--------------------------------------------------------------------------------
	Sortie :
	--------------------------------------------------------------------------------
	Effets de bords : néant
	================================================================================
	*/

	static inline struct_arbre_variables *
	allocation_noeud(struct_processus *s_etat_processus)
	{
	struct_arbre_variables *objet;

	if ((*s_etat_processus).pointeur_variables_noeud > 0)
	{
	objet = (*s_etat_processus).variables_noeud
	[--(*s_etat_processus).pointeur_variables_noeud];
	}
	else
	{
	objet = malloc(sizeof(struct_arbre_variables));
	}

	return(objet);
	}

	static inline void
	liberation_noeud(struct_processus *s_etat_processus,
	struct_arbre_variables *objet)
	{
	if ((*s_etat_processus).pointeur_variables_noeud < TAILLE_CACHE)
	{
	(*s_etat_processus).variables_noeud
	[(*s_etat_processus).pointeur_variables_noeud++] = objet;
	}
	else
	{
	free(objet);
	}

	return;
	}

	static inline struct_arbre_variables **
	allocation_tableau_noeuds(struct_processus *s_etat_processus)
	{
	struct_arbre_variables **objet;

	if ((*s_etat_processus).pointeur_variables_tableau_noeuds > 0)
	{
	objet = (*s_etat_processus).variables_tableau_noeuds
	[--(*s_etat_processus).pointeur_variables_tableau_noeuds];
	}
	else
	{
	objet = malloc((*s_etat_processus).nombre_caracteres_variables
	* sizeof(struct_arbre_variables *));
	}

	return(objet);
	}

	static inline void
	liberation_tableau_noeuds(struct_processus *s_etat_processus,
	struct_arbre_variables **objet)
	{
	if ((*s_etat_processus).pointeur_variables_tableau_noeuds < TAILLE_CACHE)
	{
	(*s_etat_processus).variables_tableau_noeuds
	[(*s_etat_processus).pointeur_variables_tableau_noeuds++] =
	objet;
	}
	else
	{
	free(objet);
	}

	return;
	}

	static inline struct_liste_variables *
	allocation_feuille(struct_processus *s_etat_processus)
	{
	struct_liste_variables *objet;

	if ((*s_etat_processus).pointeur_variables_feuille > 0)
	{
	objet = (*s_etat_processus).variables_feuille
	[--(*s_etat_processus).pointeur_variables_feuille];
	}
	else
	{
	objet = malloc(sizeof(struct_liste_variables));
	}

	return(objet);
	}

	static inline void
	liberation_feuille(struct_processus *s_etat_processus,
	struct_liste_variables *objet)
	{
	if ((*s_etat_processus).pointeur_variables_feuille < TAILLE_CACHE)
	{
	(*s_etat_processus).variables_feuille
	[(*s_etat_processus).pointeur_variables_feuille++] = objet;
	}
	else
	{
	free(objet);
	}

	return;
	}

	static inline struct_variable *
	allocation_variable(struct_processus *s_etat_processus)
	{
	struct_variable *objet;

	if ((*s_etat_processus).pointeur_variables_variable > 0)
	{
	objet = (*s_etat_processus).variables_variable
	[--(*s_etat_processus).pointeur_variables_variable];
	}
	else
	{
	objet = malloc(sizeof(struct_variable));
	}

	return(objet);
	}

	static inline void
	liberation_variable(struct_processus *s_etat_processus,
	struct_variable *objet)
	{
	if ((*s_etat_processus).pointeur_variables_variable < TAILLE_CACHE)
	{
	(*s_etat_processus).variables_variable
	[(*s_etat_processus).pointeur_variables_variable++] = objet;
	}
	else
	{
	free(objet);
	}

return;	return;
}	}
Line 256 ajout_variable(struct_processus *s_etat_	Line 419 ajout_variable(struct_processus *s_etat_
if ((*s_etat_processus).s_arbre_variables == NULL)	if ((*s_etat_processus).s_arbre_variables == NULL)
{	{
if (((*s_etat_processus).s_arbre_variables =	if (((*s_etat_processus).s_arbre_variables =
malloc(sizeof(struct_arbre_variables))) == NULL)	allocation_noeud(s_etat_processus)) == 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);
Line 268 ajout_variable(struct_processus *s_etat_	Line 431 ajout_variable(struct_processus *s_etat_
((s_etat_processus).s_arbre_variables).noeud_pere = NULL;	((s_etat_processus).s_arbre_variables).noeud_pere = NULL;

if ((((s_etat_processus).s_arbre_variables).noeuds =	if ((((s_etat_processus).s_arbre_variables).noeuds =
malloc((*s_etat_processus).nombre_caracteres_variables	allocation_tableau_noeuds(s_etat_processus)) == NULL)
* sizeof(struct_arbre_variables))) == 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);
Line 288 ajout_variable(struct_processus *s_etat_	Line 450 ajout_variable(struct_processus *s_etat_
while((*ptr) != d_code_fin_chaine)	while((*ptr) != d_code_fin_chaine)
{	{
BUG((s_etat_processus).pointeurs_caracteres_variables[ptr] < 0,	BUG((s_etat_processus).pointeurs_caracteres_variables[ptr] < 0,
printf("Variable=\"%s\", (ptr)='%c'\n", (s_variable).nom,	uprintf("Variable=\"%s\", (ptr)='%c'\n", (s_variable).nom,
*ptr));	*ptr));

if ((l_variable_courante).noeuds[(s_etat_processus)	if ((l_variable_courante).noeuds[(s_etat_processus)
Line 299 ajout_variable(struct_processus *s_etat_	Line 461 ajout_variable(struct_processus *s_etat_

if (((l_variable_courante).noeuds[(s_etat_processus)	if (((l_variable_courante).noeuds[(s_etat_processus)
.pointeurs_caracteres_variables[*ptr]] =	.pointeurs_caracteres_variables[*ptr]] =
malloc(sizeof(struct_arbre_variables))) == NULL)	allocation_noeud(s_etat_processus)) == 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);
Line 336 ajout_variable(struct_processus *s_etat_	Line 498 ajout_variable(struct_processus *s_etat_

if ((((l_variable_courante).noeuds[(*s_etat_processus)	if ((((l_variable_courante).noeuds[(*s_etat_processus)
.pointeurs_caracteres_variables[*ptr]]).noeuds =	.pointeurs_caracteres_variables[*ptr]]).noeuds =
malloc((*s_etat_processus).nombre_caracteres_variables	allocation_tableau_noeuds(s_etat_processus)) == NULL)
* sizeof(struct_arbre_variables))) == 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);
Line 364 ajout_variable(struct_processus *s_etat_	Line 525 ajout_variable(struct_processus *s_etat_
// variables de même nom. Cette liste boucle en premier lieu sur	// variables de même nom. Cette liste boucle en premier lieu sur
// elle-même.	// elle-même.

if (((*l_variable_courante).feuille = malloc(	if (((*l_variable_courante).feuille = allocation_feuille(
sizeof(struct_liste_variables))) == NULL)	s_etat_processus)) == 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);
Line 383 ajout_variable(struct_processus *s_etat_	Line 544 ajout_variable(struct_processus *s_etat_
// Allocation de la variable sur l'élément de la liste.	// Allocation de la variable sur l'élément de la liste.

if ((((l_variable_courante).feuille).variable =	if ((((l_variable_courante).feuille).variable =
malloc(sizeof(struct_variable))) == NULL)	allocation_variable(s_etat_processus)) == 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);
Line 395 ajout_variable(struct_processus *s_etat_	Line 556 ajout_variable(struct_processus *s_etat_
}	}
else	else
{	{
if ((l_nouvelle_variable = malloc(sizeof(struct_liste_variables)))	if ((l_nouvelle_variable = allocation_feuille(s_etat_processus))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 412 ajout_variable(struct_processus *s_etat_	Line 573 ajout_variable(struct_processus *s_etat_

BUG((((*l_variable_courante).feuille).variable).niveau >=	BUG((((*l_variable_courante).feuille).variable).niveau >=
(*s_variable).niveau,	(*s_variable).niveau,
printf("Variable=\"%s\"\n", (*s_variable).nom));	uprintf("Variable=\"%s\"\n", (*s_variable).nom));

// On ajoute la variable à la liste existante.	// On ajoute la variable à la liste existante.

Line 428 ajout_variable(struct_processus *s_etat_	Line 589 ajout_variable(struct_processus *s_etat_
(*l_variable_courante).feuille = l_nouvelle_variable;	(*l_variable_courante).feuille = l_nouvelle_variable;

if ((((l_variable_courante).feuille).variable =	if ((((l_variable_courante).feuille).variable =
malloc(sizeof(struct_variable))) == NULL)	allocation_variable(s_etat_processus)) == 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);
Line 452 ajout_variable(struct_processus *s_etat_	Line 613 ajout_variable(struct_processus *s_etat_

BUG(((l_variable_candidate).variable).niveau ==	BUG(((l_variable_candidate).variable).niveau ==
(*s_variable).niveau,	(*s_variable).niveau,
printf("Variable=\"%s\"\n", (*s_variable).nom));	uprintf("Variable=\"%s\"\n", (*s_variable).nom));

l_variable_candidate = (*l_variable_candidate).precedent;	l_variable_candidate = (*l_variable_candidate).precedent;
} while((l_variable_candidate != (*l_variable_courante).feuille) &&	} while((l_variable_candidate != (*l_variable_courante).feuille) &&
Line 497 ajout_variable(struct_processus *s_etat_	Line 658 ajout_variable(struct_processus *s_etat_
}	}

if (((*l_nouvelle_variable).variable =	if (((*l_nouvelle_variable).variable =
malloc(sizeof(struct_variable))) == NULL)	allocation_variable(s_etat_processus)) == 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);
Line 516 ajout_variable(struct_processus *s_etat_	Line 677 ajout_variable(struct_processus *s_etat_
{	{
// Le niveau courant n'existe pas. Il est créé.	// Le niveau courant n'existe pas. Il est créé.

if ((l_nouvelle_variable = malloc(sizeof(struct_liste_variables)))	if ((l_nouvelle_variable = allocation_feuille(s_etat_processus))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 532 ajout_variable(struct_processus *s_etat_	Line 693 ajout_variable(struct_processus *s_etat_

// Ajout de la variable en tête de la liste	// Ajout de la variable en tête de la liste

if ((l_nouvel_element = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_nouvel_element = allocation_maillon(s_etat_processus)) == 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);
Line 550 ajout_variable(struct_processus *s_etat_	Line 711 ajout_variable(struct_processus *s_etat_
{	{
// Le niveau courant n'existe pas. Il est créé.	// Le niveau courant n'existe pas. Il est créé.

if ((l_nouvelle_variable = malloc(sizeof(struct_liste_variables)))	if ((l_nouvelle_variable = allocation_feuille(s_etat_processus))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 572 ajout_variable(struct_processus *s_etat_	Line 733 ajout_variable(struct_processus *s_etat_

// Ajout de la variable en tête de la liste	// Ajout de la variable en tête de la liste

if ((l_nouvel_element = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_nouvel_element = allocation_maillon(s_etat_processus)) == 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);
Line 612 ajout_variable(struct_processus *s_etat_	Line 773 ajout_variable(struct_processus *s_etat_

if (niveau_acceptable == d_faux)	if (niveau_acceptable == d_faux)
{	{
if ((l_nouvelle_variable = malloc(sizeof(struct_liste_variables)))	if ((l_nouvelle_variable = allocation_feuille(s_etat_processus))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 645 ajout_variable(struct_processus *s_etat_	Line 806 ajout_variable(struct_processus *s_etat_

// Ajout de la variable en tête de la liste l_variable_candidate.	// Ajout de la variable en tête de la liste l_variable_candidate.

if ((l_nouvel_element = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_nouvel_element = allocation_maillon(s_etat_processus)) == 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);
Line 659 ajout_variable(struct_processus *s_etat_	Line 820 ajout_variable(struct_processus *s_etat_
{	{
// Ajout de la variable en tête de la liste	// Ajout de la variable en tête de la liste

if ((l_nouvel_element = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_nouvel_element = allocation_maillon(s_etat_processus)) == 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);
Line 1122 retrait_variable(struct_processus *s_eta	Line 1283 retrait_variable(struct_processus *s_eta

variable_a_supprimer = (*s_etat_processus)	variable_a_supprimer = (*s_etat_processus)
.pointeur_feuille_courante;	.pointeur_feuille_courante;
//s_arbre_courant = (*variable_a_supprimer).noeud_pere;
s_arbre_courant = (*variable_a_supprimer).noeud;	s_arbre_courant = (*variable_a_supprimer).noeud;
BUG((*s_arbre_courant).noeuds_utilises == 0,	BUG((*s_arbre_courant).noeuds_utilises == 0,
uprintf("Freed node !\n"));	uprintf("Freed node !\n"));
Line 1139 retrait_variable(struct_processus *s_eta	Line 1299 retrait_variable(struct_processus *s_eta

if (s_arbre_courant == NULL)	if (s_arbre_courant == NULL)
{	{
free((*s_arbre_a_supprimer).noeuds);	liberation_tableau_noeuds(s_etat_processus,
free(s_arbre_a_supprimer);	(*s_arbre_a_supprimer).noeuds);
	liberation_noeud(s_etat_processus, s_arbre_a_supprimer);

(*s_etat_processus).s_arbre_variables = NULL;	(*s_etat_processus).s_arbre_variables = NULL;
break;	break;
Line 1156 retrait_variable(struct_processus *s_eta	Line 1317 retrait_variable(struct_processus *s_eta
(s_arbre_courant).noeuds[(s_arbre_a_supprimer)	(s_arbre_courant).noeuds[(s_arbre_a_supprimer)
.indice_tableau_pere] = NULL;	.indice_tableau_pere] = NULL;

free((*s_arbre_a_supprimer).noeuds);	liberation_tableau_noeuds(s_etat_processus,
free(s_arbre_a_supprimer);	(*s_arbre_a_supprimer).noeuds);
	liberation_noeud(s_etat_processus, s_arbre_a_supprimer);

BUG((*s_arbre_courant).noeuds_utilises == 0,	BUG((*s_arbre_courant).noeuds_utilises == 0,
uprintf("Freed node !\n"));	uprintf("Freed node !\n"));
Line 1243 retrait_variable(struct_processus *s_eta	Line 1405 retrait_variable(struct_processus *s_eta
(*l_element_courant).suivant;	(*l_element_courant).suivant;
}	}

free(l_element_courant);	liberation_maillon(s_etat_processus,
	l_element_courant);

if ((*variables_par_niveau).liste == NULL)	if ((*variables_par_niveau).liste == NULL)
{	{
Line 1270 retrait_variable(struct_processus *s_eta	Line 1433 retrait_variable(struct_processus *s_eta
.precedent =	.precedent =
(*variables_par_niveau)	(*variables_par_niveau)
.precedent;	.precedent;
free(variables_par_niveau);	liberation_feuille(s_etat_processus,
	variables_par_niveau);
}	}

variable_supprimee = d_vrai;	variable_supprimee = d_vrai;
Line 1298 retrait_variable(struct_processus *s_eta	Line 1462 retrait_variable(struct_processus *s_eta

free(((variable_a_supprimer).variable).nom);	free(((variable_a_supprimer).variable).nom);
liberation(s_etat_processus, ((variable_a_supprimer).variable).objet);	liberation(s_etat_processus, ((variable_a_supprimer).variable).objet);
free((*variable_a_supprimer).variable);	liberation_variable(s_etat_processus, (*variable_a_supprimer).variable);
free(variable_a_supprimer);	liberation_feuille(s_etat_processus, variable_a_supprimer);

erreur = d_absence_erreur;	erreur = d_absence_erreur;
}	}
Line 1478 retrait_variable_par_niveau(struct_proce	Line 1642 retrait_variable_par_niveau(struct_proce
.l_liste_variables_par_niveau;	.l_liste_variables_par_niveau;
(*s_etat_processus).l_liste_variables_par_niveau =	(*s_etat_processus).l_liste_variables_par_niveau =
(*l_element_a_supprimer).suivant;	(*l_element_a_supprimer).suivant;
free(l_element_a_supprimer);	liberation_feuille(s_etat_processus, l_element_a_supprimer);
}	}

return(d_absence_erreur);	return(d_absence_erreur);
Line 1526 liberation_arbre_variables(struct_proces	Line 1690 liberation_arbre_variables(struct_proces
do	do
{	{
l_element_suivant = (*l_element_courant).suivant;	l_element_suivant = (*l_element_courant).suivant;
free(l_element_courant);	liberation_feuille(s_etat_processus, l_element_courant);
l_element_courant = l_element_suivant;	l_element_courant = l_element_suivant;
} while(l_element_courant != (*arbre).feuille);	} while(l_element_courant != (*arbre).feuille);

	(*arbre).feuille = NULL;
}	}

for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)	for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
Line 1537 liberation_arbre_variables(struct_proces	Line 1703 liberation_arbre_variables(struct_proces
{	{
liberation_arbre_variables(s_etat_processus, (*arbre).noeuds[i],	liberation_arbre_variables(s_etat_processus, (*arbre).noeuds[i],
retrait_definitions);	retrait_definitions);
	(*arbre).noeuds[i] = NULL;
}	}
}	}

Line 1562 liberation_arbre_variables(struct_proces	Line 1729 liberation_arbre_variables(struct_proces
(*l_element_courant_liste).donnee)).objet);	(*l_element_courant_liste).donnee)).objet);
free((((struct_variable ) (*l_element_courant_liste)	free((((struct_variable ) (*l_element_courant_liste)
.donnee)).nom);	.donnee)).nom);
free((*l_element_courant_liste).donnee);
}	}

l_element_suivant_liste =	l_element_suivant_liste =
(*l_element_courant_liste).suivant;	(*l_element_courant_liste).suivant;
free(l_element_courant_liste);	liberation_variable(s_etat_processus, (struct_variable *)
	(*l_element_courant_liste).donnee);
	liberation_maillon(s_etat_processus,
	l_element_courant_liste);
l_element_courant_liste = l_element_suivant_liste;	l_element_courant_liste = l_element_suivant_liste;
}	}

l_element_suivant = (*l_element_courant).suivant;	l_element_suivant = (*l_element_courant).suivant;
free(l_element_courant);	liberation_feuille(s_etat_processus, l_element_courant);
l_element_courant = l_element_suivant;	l_element_courant = l_element_suivant;
} while(l_element_courant != (*s_etat_processus)	} while(l_element_courant != (*s_etat_processus)
.l_liste_variables_par_niveau);	.l_liste_variables_par_niveau);
}	}
}	}

free((*arbre).noeuds);	liberation_tableau_noeuds(s_etat_processus, (*arbre).noeuds);
free(arbre);	liberation_noeud(s_etat_processus, arbre);
	arbre = NULL;

return;	return;
}	}
Line 1687 liste_variables(struct_processus *s_etat	Line 1857 liste_variables(struct_processus *s_etat
================================================================================	================================================================================
*/	*/

struct_arbre_variables *	void
copie_arbre_variables(struct_processus *s_etat_processus)	copie_arbre_variables(struct_processus *s_etat_processus, struct_processus
	*s_nouvel_etat_processus)
{	{
// Les définitions sont partagées entre tous les threads et ne sont pas	// Les définitions sont partagées entre tous les threads et ne sont pas
// copiées.	// copiées.
//	//
// NB : on ne copie que les variables de niveaux 0 et 1, les autres	// NB : on ne copie que les variables de niveaux 0 et 1, les autres
// variables locales étant masquées par le processus de création de thread	// variables locales étant masquées par le processus de création de thread
// ou de processus, elles sont inaccessibles.	// ou de processus, elles seront inaccessibles de tous les points
	// du fil d'exécution fils.

BUG(1, uprintf("Oops !\n"));	// Pour copier ces variables, on récupère les variables depuis la liste par
	// niveaux (niveaux 0 et 1) et on ajoute les variables dans la nouvelle
	// structure. Les variables de niveau 0 étant non modifiables, elles
	// ne sont pas dupliquées.

return(d_absence_erreur);	int i;

	struct_liste_chainee *l_element_courant;

	struct_liste_variables *l_niveau_courant;

	struct_variable s_variable;

	(*s_nouvel_etat_processus).s_arbre_variables = NULL;
	(*s_nouvel_etat_processus).l_liste_variables_par_niveau = NULL;

	l_niveau_courant = (*s_etat_processus).l_liste_variables_par_niveau;

	// Si la variable en tête n'est pas une variable de niveau 0, le niveau
	// 0, s'il existe est le nivau précédent la valeur courante dans la
	// boucle.

	if ((((struct_variable ) ((l_niveau_courant).liste).donnee)).niveau
	!= 0)
	{
	l_niveau_courant = (*l_niveau_courant).precedent;
	}

	// Les variables de niveaux 0 et 1 sont accessibles en au plus trois
	// itérations (par construction).

	for(i = 0; i <= 2; i++)
	{
	if ((((struct_variable ) ((l_niveau_courant).liste)
	.donnee)).niveau == 0)
	{
	l_element_courant = (*l_niveau_courant).liste;

	while(l_element_courant != NULL)
	{
	if (ajout_variable(s_nouvel_etat_processus,
	(struct_variable ) (l_element_courant).donnee)
	== d_erreur)
	{
	return;
	}

	l_element_courant = (*l_element_courant).suivant;
	}
	}
	else if ((((struct_variable ) ((l_niveau_courant).liste)
	.donnee)).niveau == 1)
	{
	l_element_courant = (*l_niveau_courant).liste;

	while(l_element_courant != NULL)
	{
	s_variable = (((struct_variable )
	(*l_element_courant).donnee));

	if ((s_variable.nom = strdup((((struct_variable )
	(*l_element_courant).donnee)).nom)) == NULL)
	{
	(*s_nouvel_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return;
	}

	if ((s_variable.objet = copie_objet(s_nouvel_etat_processus,
	(((struct_variable ) (*l_element_courant).donnee))
	.objet, 'P')) == NULL)
	{
	(*s_nouvel_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return;
	}

	if (ajout_variable(s_nouvel_etat_processus, &s_variable)
	== d_erreur)
	{
	return;
	}

	l_element_courant = (*l_element_courant).suivant;
	}

	// Les variables de niveau 0 ayant déjà été copiées, on
	// peut sortir de la boucle car toutes les variables sont
	// maintenant disponibles dans le fil d'exécution fils.

	break;
	}

	l_niveau_courant = (*l_niveau_courant).precedent;
	}

	return;
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.37
changed lines
	Added in v.1.46