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.68 and 1.112

version 1.68, 2013/02/26 19:56:13	version 1.112, 2024/01/09 07:33:48
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.35
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2024 Dr. BERTRAND Joël

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

Line 284 allocation_tableau_noeuds(struct_process	Line 284 allocation_tableau_noeuds(struct_process
}	}
else	else
{	{
objet = malloc((*s_etat_processus).nombre_caracteres_variables	objet = malloc(((size_t) (*s_etat_processus)
	.nombre_caracteres_variables)
* sizeof(struct_arbre_variables *));	* sizeof(struct_arbre_variables *));
}	}

Line 988 recherche_variable(struct_processus *s_e	Line 989 recherche_variable(struct_processus *s_e

unsigned char *ptr;	unsigned char *ptr;

unsigned long niveau_appel;	integer8 niveau_appel;

if ((*s_etat_processus).s_arbre_variables == NULL)	if ((*s_etat_processus).s_arbre_variables == NULL)
{	{
Line 1203 retrait_variable(struct_processus *s_eta	Line 1204 retrait_variable(struct_processus *s_eta
struct_liste_variables *variable_a_supprimer;	struct_liste_variables *variable_a_supprimer;
struct_liste_variables *variables_par_niveau;	struct_liste_variables *variables_par_niveau;

unsigned long niveau;	integer8 niveau;

(*s_etat_processus).niveau_supprime = d_faux;	(*s_etat_processus).niveau_supprime = d_faux;

Line 1530 retrait_variables_par_niveau(struct_proc	Line 1531 retrait_variables_par_niveau(struct_proc
break;	break;
}	}

	if (((*s_etat_processus).at_exit != NULL) &&
	((*s_etat_processus).niveau_courant == 0))
	{
	// Il y a une routine ATEXIT enregistrée. On ne détruit pas
	// les variables globales qui pourraient y être utilisées.

	break;
	}

while(((s_etat_processus).l_liste_variables_par_niveau).liste	while(((s_etat_processus).l_liste_variables_par_niveau).liste
!= NULL)	!= NULL)
{	{
Line 1789 liberation_arbre_variables(struct_proces	Line 1799 liberation_arbre_variables(struct_proces
================================================================================	================================================================================
*/	*/

static int	static integer8
nombre_variables_locales(struct_processus *s_etat_processus,	nombre_variables_locales(struct_processus *s_etat_processus,
struct_arbre_variables *l_element_courant)	struct_arbre_variables *l_element_courant)
{	{
int i;	integer8 i;
int n;	integer8 n;

struct_liste_variables *l_variable;	struct_liste_variables *l_variable;
struct_liste_variables_statiques *l_variable_statique;	struct_liste_variables_statiques *l_variable_statique;
Line 1848 nombre_variables_locales(struct_processu	Line 1858 nombre_variables_locales(struct_processu
}	}


static int	static integer8
nombre_variables_partagees(struct_processus *s_etat_processus,	nombre_variables_partagees(struct_processus *s_etat_processus,
struct_arbre_variables_partagees *l_element_courant)	struct_arbre_variables_partagees *l_element_courant)
{	{
int i;	integer8 i;
int n;	integer8 n;

struct_liste_variables_partagees *l_variable;	struct_liste_variables_partagees *l_variable;

Line 1862 nombre_variables_partagees(struct_proces	Line 1872 nombre_variables_partagees(struct_proces
return(0);	return(0);
}	}

	// Mutex deverrouillé par liste_variables_partagees();
if (pthread_mutex_lock(&((*l_element_courant).mutex_feuille)) != 0)	if (pthread_mutex_lock(&((*l_element_courant).mutex_feuille)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
Line 1894 nombre_variables_partagees(struct_proces	Line 1905 nombre_variables_partagees(struct_proces
}	}


int	integer8
nombre_variables(struct_processus *s_etat_processus)	nombre_variables(struct_processus *s_etat_processus)
{	{
return(nombre_variables_locales(s_etat_processus,	return(nombre_variables_locales(s_etat_processus,
Line 1940 liberation_mutexes_arbre_variables_parta	Line 1951 liberation_mutexes_arbre_variables_parta
}	}


static int	static integer8
liste_variables_locales(struct_processus *s_etat_processus,	liste_variables_locales(struct_processus *s_etat_processus,
struct_tableau_variables *tableau, int position,	struct_tableau_variables *tableau, integer8 position,
struct_arbre_variables *l_element_courant)	struct_arbre_variables *l_element_courant)
{	{
int i;	integer8 i;

struct_liste_variables *l_variable;	struct_liste_variables *l_variable;
struct_liste_variables_statiques *l_variable_statique;	struct_liste_variables_statiques *l_variable_statique;

if (l_element_courant == NULL)	if (l_element_courant == NULL)
{	{
return(0);	return(position);
}	}

if ((*l_element_courant).feuille != NULL)	if ((*l_element_courant).feuille != NULL)
Line 1972 liste_variables_locales(struct_processus	Line 1983 liste_variables_locales(struct_processus
tableau[position].variable_partagee =	tableau[position].variable_partagee =
((l_variable).variable).variable_partagee;	((l_variable).variable).variable_partagee;
tableau[position].variable_masquee = d_faux;	tableau[position].variable_masquee = d_faux;
	tableau[position].mutex = NULL;

position++;	position++;

l_variable = (*l_variable).suivant;	l_variable = (*l_variable).suivant;
} while(l_variable != (*l_element_courant).feuille);	} while(l_variable != (*l_element_courant).feuille);
}	}
Line 1990 liste_variables_locales(struct_processus	Line 2003 liste_variables_locales(struct_processus
tableau[position].nom = ((l_variable_statique).variable).nom;	tableau[position].nom = ((l_variable_statique).variable).nom;
tableau[position].niveau =	tableau[position].niveau =
((l_variable_statique).variable).niveau;	((l_variable_statique).variable).niveau;
tableau[position].objet =	tableau[position].objet = ((l_variable_statique).variable)
((l_variable_statique).variable).objet;	.objet;
tableau[position].variable_verrouillee = d_faux;	tableau[position].variable_verrouillee = d_faux;
tableau[position].variable_statique =	tableau[position].variable_statique =
((l_variable_statique).variable).variable_statique;	((l_variable_statique).variable).variable_statique;
tableau[position].variable_partagee.pointeur = NULL;	tableau[position].variable_partagee.pointeur = NULL;
tableau[position].variable_masquee = d_vrai;	tableau[position].variable_masquee = d_vrai;
	tableau[position].mutex = NULL;

position++;	position++;
}	}
Line 2018 liste_variables_locales(struct_processus	Line 2032 liste_variables_locales(struct_processus
}	}


static int	static integer8
liste_variables_partagees(struct_processus *s_etat_processus,	liste_variables_partagees(struct_processus *s_etat_processus,
struct_tableau_variables *tableau, int position,	struct_tableau_variables *tableau, integer8 position,
struct_arbre_variables_partagees *l_element_courant)	struct_arbre_variables_partagees *l_element_courant)
{	{
int i;	integer8 i;

struct_liste_variables_partagees *l_variable;	struct_liste_variables_partagees *l_variable;

if (l_element_courant == NULL)	if (l_element_courant == NULL)
{	{
return(0);	return(position);
}	}

if ((*l_element_courant).feuille != NULL)	if ((*l_element_courant).feuille != NULL)
Line 2045 liste_variables_partagees(struct_process	Line 2059 liste_variables_partagees(struct_process
tableau[position].variable_verrouillee = d_faux;	tableau[position].variable_verrouillee = d_faux;
tableau[position].variable_partagee =	tableau[position].variable_partagee =
((l_variable).variable).variable_partagee;	((l_variable).variable).variable_partagee;
tableau[position].variable_partagee.pointeur = NULL;	tableau[position].variable_statique.pointeur = NULL;
tableau[position].variable_masquee = d_faux;	tableau[position].variable_masquee = d_faux;
	tableau[position].mutex = &(((l_variable).variable).mutex);
	pthread_mutex_lock(tableau[position].mutex);

position++;	position++;

Line 2063 liste_variables_partagees(struct_process	Line 2079 liste_variables_partagees(struct_process
}	}
}	}

	// Mutex verrouillé par nombre_variables_partagees();
	if (pthread_mutex_unlock(&((*l_element_courant).mutex_feuille)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	return(0);
	}

return(position);	return(position);
}	}

Line 2086 fonction_ordre_variables(const void *arg	Line 2109 fonction_ordre_variables(const void *arg
}	}
else	else
{	{
return((a1).niveau - (a2).niveau);	return(((((a1).niveau - (a2).niveau)) > 0) ? 1 : -1);
}	}
}	}


int	integer8
liste_variables(struct_processus *s_etat_processus,	liste_variables(struct_processus *s_etat_processus,
struct_tableau_variables *tableau)	struct_tableau_variables *tableau)
{	{
int nombre_elements;	integer8 nombre_elements;

nombre_elements = liste_variables_locales(s_etat_processus,	nombre_elements = liste_variables_locales(s_etat_processus,
tableau, 0, (*s_etat_processus).s_arbre_variables);	tableau, 0, (*s_etat_processus).s_arbre_variables);
nombre_elements += liste_variables_partagees(s_etat_processus,	nombre_elements = liste_variables_partagees(s_etat_processus,
tableau, nombre_elements, ((s_etat_processus)	tableau, nombre_elements, ((s_etat_processus)
.s_arbre_variables_partagees));	.s_arbre_variables_partagees));

qsort(tableau, nombre_elements, sizeof(struct_tableau_variables),	qsort(tableau, (size_t) nombre_elements, sizeof(struct_tableau_variables),
fonction_ordre_variables);	fonction_ordre_variables);

return(nombre_elements);	return(nombre_elements);
Line 2213 copie_arbre_variables(struct_processus *	Line 2236 copie_arbre_variables(struct_processus *
s_variable = (((struct_variable )	s_variable = (((struct_variable )
(*l_element_courant).donnee));	(*l_element_courant).donnee));

if ((s_variable.nom = strdup((((struct_variable )	if ((s_variable.nom = rpl_malloc(s_nouvel_etat_processus,
(*l_element_courant).donnee)).nom)) == NULL)	(strlen((((struct_variable )
	(l_element_courant).donnee)).nom) + 1)
	sizeof(unsigned char))) == NULL)
{	{
(*s_nouvel_etat_processus).erreur_systeme =	(*s_nouvel_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
return;	return;
}	}

	strcpy(s_variable.nom, (((struct_variable )
	(*l_element_courant).donnee)).nom);

if ((s_variable.objet = copie_objet(s_nouvel_etat_processus,	if ((s_variable.objet = copie_objet(s_nouvel_etat_processus,
(((struct_variable ) (*l_element_courant).donnee))	(((struct_variable ) (*l_element_courant).donnee))
.objet, 'P')) == NULL)	.objet, 'P')) == NULL)
Line 2388 copie_arbre_variables(struct_processus *	Line 2416 copie_arbre_variables(struct_processus *
return;	return;
}	}

if ((s_variable_statique.nom = malloc((strlen(	if ((s_variable_statique.nom = rpl_malloc(s_nouvel_etat_processus,
((l_element_statique_courant).variable).nom) + 1) *	(strlen(((l_element_statique_courant).variable).nom) + 1) *
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 2426 copie_arbre_variables(struct_processus *	Line 2454 copie_arbre_variables(struct_processus *
*/	*/

/*	/*
* Caractères autorisés dans les instructions	* Caractères autorisés dans les variables
*	*
* A B C D E F G H I J K L M N O P Q R S T U V W X Y Z	* A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
* a b c d e f g h i j k l m n o p q r s t u v w x y z	* a b c d e f g h i j k l m n o p q r s t u v w x y z
Line 2456 initialisation_variables(struct_processu	Line 2484 initialisation_variables(struct_processu
}	}

if (((*s_etat_processus).pointeurs_caracteres_variables =	if (((*s_etat_processus).pointeurs_caracteres_variables =
malloc(longueur_tableau * sizeof(int))) == NULL)	malloc(((size_t) longueur_tableau) * sizeof(int))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.68
changed lines
	Added in v.1.112