rpl/src/instructions_g2.c - diff

Return to instructions_g2.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_g2.c between versions 1.7 and 1.68

version 1.7, 2010/04/21 13:45:47	version 1.68, 2018/12/24 15:21:29
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.15	RPL/2 (R) version 4.1.29
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2018 Dr. BERTRAND Joël

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

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 35	Line 35
================================================================================	================================================================================
*/	*/

	static int
	fonction_comparaison(const void argument_1, const void argument_2)
	{
	return(strcmp((unsigned char *) argument_1,
	(unsigned char ) (((struct_objet *) argument_2)).objet));
	}


void	void
instruction_get(struct_processus *s_etat_processus)	instruction_get(struct_processus *s_etat_processus)
{	{
Line 42 instruction_get(struct_processus *s_etat	Line 50 instruction_get(struct_processus *s_etat

struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;

	struct_objet **s_enregistrement;
struct_objet *s_objet_1;	struct_objet *s_objet_1;
struct_objet *s_objet_2;	struct_objet *s_objet_2;
struct_objet *s_objet_3;	struct_objet *s_objet_3;
struct_objet *s_objet_element;	struct_objet *s_objet_element;
	struct_objet *s_objet_noms;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long indice_i;	integer8 indice_i;
unsigned long indice_j;	integer8 indice_j;
unsigned long nombre_dimensions;	integer8 nombre_dimensions;

	unsigned char *registre_instruction_courante;
	unsigned char registre_instruction_valide;
	unsigned char registre_test;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 81 instruction_get(struct_processus *s_etat	Line 95 instruction_get(struct_processus *s_etat
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n\n",	" %s, %s, %s\n\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);

	printf(" 2: %s\n", d_REC);
	printf(" 1: %s\n", d_CHN);
	printf("-> 1: %s, %s, %s, %s, %s, %s,\n"
	" %s, %s, %s, %s, %s,\n"
	" %s, %s, %s, %s, %s,\n"
	" %s, %s, %s, %s,\n"
	" %s, %s, %s\n\n",
	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);

printf(" 2: %s, %s\n", d_LST, d_NOM);	printf(" 2: %s, %s\n", d_LST, d_NOM);
printf(" 1: %s\n", d_INT);	printf(" 1: %s\n", d_INT);
Line 92 instruction_get(struct_processus *s_etat	Line 117 instruction_get(struct_processus *s_etat
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);

return;	return;
}	}
Line 515 instruction_get(struct_processus *s_etat	Line 540 instruction_get(struct_processus *s_etat

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
	Traitement des enregistrements
	--------------------------------------------------------------------------------
	*/

	else if ((*s_objet_2).type == REC)
	{
	if ((*s_objet_1).type != CHN)
	{
	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);

	(*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
	return;
	}

	s_objet_noms = (((struct_record ) (*s_objet_2).objet)).noms;

	if ((s_enregistrement = bsearch((unsigned char ) (s_objet_1).objet,
	(((struct_tableau ) (*s_objet_noms).objet)).elements,
	(size_t) (((struct_tableau ) (*s_objet_noms).objet))
	.nombre_elements, sizeof(struct_objet *), fonction_comparaison))
	== NULL)
	{
	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);

	(*s_etat_processus).erreur_execution = d_ex_element_inexistant;
	return;
	}

	indice_i = s_enregistrement - (((struct_tableau )
	(*s_objet_noms).objet)).elements;

	// Récupération de l'objet dans le tableau données

	if ((s_objet_resultat = copie_objet(s_etat_processus,
	(((struct_tableau ) ((((struct_record *)
	(*s_objet_2).objet)).donnees).objet)).elements[indice_i], 'P'))
	== NULL)
	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
	return;
	}
	}
	/*
	--------------------------------------------------------------------------------
Traitement des variables	Traitement des variables
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/
Line 535 instruction_get(struct_processus *s_etat	Line 606 instruction_get(struct_processus *s_etat
return;	return;
}	}

s_objet_3 = (s_etat_processus).s_liste_variables[(s_etat_processus)	s_objet_3 = ((s_etat_processus).pointeur_variable_courante).objet;
.position_variable_courante].objet;

if (s_objet_3 == NULL)	if (s_objet_3 == NULL)
{	{
if (pthread_mutex_lock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return;
}

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).nom,
.position_variable_courante].nom,	((s_etat_processus).pointeur_variable_courante)
(s_etat_processus).s_liste_variables[(s_etat_processus)	.variable_partagee, ((s_etat_processus)
.position_variable_courante].variable_partagee,	.pointeur_variable_courante).origine) == NULL)
(s_etat_processus).s_liste_variables[(s_etat_processus)
.position_variable_courante].origine) == d_faux)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return;
}

(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_variable_non_definie;	d_ex_variable_non_definie;
Line 572 instruction_get(struct_processus *s_etat	Line 626 instruction_get(struct_processus *s_etat
return;	return;
}	}

s_objet_3 = ((s_etat_processus).s_liste_variables_partagees)	s_objet_3 = ((s_etat_processus)
.table[((s_etat_processus).s_liste_variables_partagees)	.pointeur_variable_partagee_courante).objet;
.position_variable].objet;
variable_partagee = d_vrai;	variable_partagee = d_vrai;
}	}

Line 587 instruction_get(struct_processus *s_etat	Line 640 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 616 instruction_get(struct_processus *s_etat	Line 669 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 638 instruction_get(struct_processus *s_etat	Line 691 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 658 instruction_get(struct_processus *s_etat	Line 711 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 678 instruction_get(struct_processus *s_etat	Line 731 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 706 instruction_get(struct_processus *s_etat	Line 759 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 734 instruction_get(struct_processus *s_etat	Line 788 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 762 instruction_get(struct_processus *s_etat	Line 817 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 793 instruction_get(struct_processus *s_etat	Line 849 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 822 instruction_get(struct_processus *s_etat	Line 878 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 849 instruction_get(struct_processus *s_etat	Line 905 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 870 instruction_get(struct_processus *s_etat	Line 927 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 906 instruction_get(struct_processus *s_etat	Line 964 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 932 instruction_get(struct_processus *s_etat	Line 990 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 961 instruction_get(struct_processus *s_etat	Line 1020 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 989 instruction_get(struct_processus *s_etat	Line 1049 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1019 instruction_get(struct_processus *s_etat	Line 1080 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1053 instruction_get(struct_processus *s_etat	Line 1114 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1070 instruction_get(struct_processus *s_etat	Line 1132 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1091 instruction_get(struct_processus *s_etat	Line 1153 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1116 instruction_get(struct_processus *s_etat	Line 1178 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1136 instruction_get(struct_processus *s_etat	Line 1199 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1160 instruction_get(struct_processus *s_etat	Line 1224 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1186 instruction_get(struct_processus *s_etat	Line 1251 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	return;
	}
	}

	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
	return;
	}
	}
	else if ((*s_objet_3).type == REC)
	{
	if ((*s_objet_1).type != CHN)
	{
	if (variable_partagee == d_vrai)
	{
	if (pthread_mutex_unlock(&(((s_etat_processus)
	.pointeur_variable_partagee_courante).mutex)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	return;
	}
	}

	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);

	(*s_etat_processus).erreur_execution =
	d_ex_erreur_type_argument;
	return;
	}

	s_objet_noms = (((struct_record ) (*s_objet_3).objet)).noms;

	if ((s_enregistrement = bsearch((unsigned char *)
	(s_objet_1).objet, (((struct_tableau *)
	(*s_objet_noms).objet)).elements,
	(size_t) (((struct_tableau ) (*s_objet_noms).objet))
	.nombre_elements, sizeof(struct_objet *),
	fonction_comparaison)) == NULL)
	{
	if (variable_partagee == d_vrai)
	{
	if (pthread_mutex_unlock(&(((s_etat_processus)
	.pointeur_variable_partagee_courante).mutex)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	return;
	}
	}

	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);

	(*s_etat_processus).erreur_execution = d_ex_element_inexistant;
	return;
	}

	indice_i = s_enregistrement - (((struct_tableau )
	(*s_objet_noms).objet)).elements;

	// Récupération de l'objet dans le tableau données

	if ((s_objet_resultat = copie_objet(s_etat_processus,
	(((struct_tableau ) ((((struct_record *)
	(*s_objet_3).objet)).donnees).objet)).elements[indice_i],
	'P')) == NULL)
	{
	if (variable_partagee == d_vrai)
	{
	if (pthread_mutex_unlock(&(((s_etat_processus)
	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1202 instruction_get(struct_processus *s_etat	Line 1339 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1219 instruction_get(struct_processus *s_etat	Line 1356 instruction_get(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1242 instruction_get(struct_processus *s_etat	Line 1379 instruction_get(struct_processus *s_etat
return;	return;
}	}

if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),	liberation(s_etat_processus, s_objet_1);
s_objet_resultat) == d_erreur)	liberation(s_etat_processus, s_objet_2);

	if ((*s_objet_resultat).type == NOM)
{	{
return;	if ((((struct_nom ) (*s_objet_resultat).objet)).symbole == d_faux)
	{
	if (evaluation(s_etat_processus, s_objet_resultat, 'E') == d_erreur)
	{
	return;
	}
	}
	else
	{
	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
	s_objet_resultat) == d_erreur)
	{
	return;
	}
	}
}	}
	else if ((*s_objet_resultat).type == FCT)
	{
	registre_test = (*s_etat_processus).test_instruction;
	registre_instruction_courante = (*s_etat_processus)
	.instruction_courante;
	registre_instruction_valide = (*s_etat_processus)
	.instruction_valide;

liberation(s_etat_processus, s_objet_1);	(*s_etat_processus).test_instruction = 'Y';
liberation(s_etat_processus, s_objet_2);	(*s_etat_processus).instruction_courante =
	(((struct_fonction ) (*s_objet_resultat).objet)).nom_fonction;

	analyse(s_etat_processus, NULL);

	(*s_etat_processus).test_instruction = registre_test;
	(*s_etat_processus).instruction_courante =
	registre_instruction_courante;

	if (((*s_etat_processus).instruction_valide == 'Y') &&
	(*s_etat_processus).constante_symbolique == 'Y')
	{
	if (evaluation(s_etat_processus, s_objet_resultat, 'E') == d_erreur)
	{
	(*s_etat_processus).instruction_valide =
	registre_instruction_valide;
	return;
	}
	}
	else
	{
	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
	s_objet_resultat) == d_erreur)
	{
	(*s_etat_processus).instruction_valide =
	registre_instruction_valide;
	return;
	}
	}

	(*s_etat_processus).instruction_valide = registre_instruction_valide;
	}
	else
	{
	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
	s_objet_resultat) == d_erreur)
	{
	return;
	}
	}

return;	return;
}	}
Line 1280 instruction_geti(struct_processus *s_eta	Line 1479 instruction_geti(struct_processus *s_eta
struct_objet *s_objet_3;	struct_objet *s_objet_3;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long indice_i;	integer8 indice_i;
unsigned long indice_j;	integer8 indice_j;
unsigned long nombre_dimensions;	integer8 nombre_dimensions;
unsigned long nombre_elements;	integer8 nombre_elements;

	unsigned char *registre_instruction_courante;
	unsigned char registre_instruction_valide;
	unsigned char registre_test;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 1320 instruction_geti(struct_processus *s_eta	Line 1523 instruction_geti(struct_processus *s_eta
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);

return;	return;
}	}
Line 1740 instruction_geti(struct_processus *s_eta	Line 1943 instruction_geti(struct_processus *s_eta
return;	return;
}	}

s_objet_3 = (s_etat_processus).s_liste_variables[(s_etat_processus)	s_objet_3 = ((s_etat_processus).pointeur_variable_courante).objet;
.position_variable_courante].objet;

if (s_objet_3 == NULL)	if (s_objet_3 == NULL)
{	{
if (pthread_mutex_lock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return;
}

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).nom,
.position_variable_courante].nom,	((s_etat_processus).pointeur_variable_courante)
(s_etat_processus).s_liste_variables[(s_etat_processus)	.variable_partagee, ((s_etat_processus)
.position_variable_courante].variable_partagee,	.pointeur_variable_courante).origine) == NULL)
(s_etat_processus).s_liste_variables[(s_etat_processus)
.position_variable_courante].origine) == d_faux)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return;
}

(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_variable_non_definie;	d_ex_variable_non_definie;
Line 1777 instruction_geti(struct_processus *s_eta	Line 1963 instruction_geti(struct_processus *s_eta
return;	return;
}	}

s_objet_3 = ((s_etat_processus).s_liste_variables_partagees)	s_objet_3 = ((s_etat_processus)
.table[((s_etat_processus).s_liste_variables_partagees)	.pointeur_variable_partagee_courante).objet;
.position_variable].objet;
variable_partagee = d_vrai;	variable_partagee = d_vrai;
}	}

Line 1792 instruction_geti(struct_processus *s_eta	Line 1977 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1821 instruction_geti(struct_processus *s_eta	Line 2006 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1843 instruction_geti(struct_processus *s_eta	Line 2028 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1863 instruction_geti(struct_processus *s_eta	Line 2048 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1883 instruction_geti(struct_processus *s_eta	Line 2068 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1911 instruction_geti(struct_processus *s_eta	Line 2096 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1939 instruction_geti(struct_processus *s_eta	Line 2125 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1967 instruction_geti(struct_processus *s_eta	Line 2154 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2002 instruction_geti(struct_processus *s_eta	Line 2190 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2031 instruction_geti(struct_processus *s_eta	Line 2219 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2058 instruction_geti(struct_processus *s_eta	Line 2246 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2079 instruction_geti(struct_processus *s_eta	Line 2268 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2115 instruction_geti(struct_processus *s_eta	Line 2305 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2141 instruction_geti(struct_processus *s_eta	Line 2331 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2170 instruction_geti(struct_processus *s_eta	Line 2361 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2198 instruction_geti(struct_processus *s_eta	Line 2390 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2246 instruction_geti(struct_processus *s_eta	Line 2439 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2288 instruction_geti(struct_processus *s_eta	Line 2481 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2305 instruction_geti(struct_processus *s_eta	Line 2499 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2327 instruction_geti(struct_processus *s_eta	Line 2521 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2344 instruction_geti(struct_processus *s_eta	Line 2538 instruction_geti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2379 instruction_geti(struct_processus *s_eta	Line 2573 instruction_geti(struct_processus *s_eta
return;	return;
}	}

if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),	if ((*s_objet_resultat).type == NOM)
s_objet_resultat) == d_erreur)
{	{
return;	if ((((struct_nom ) (*s_objet_resultat).objet)).symbole == d_faux)
	{
	if (evaluation(s_etat_processus, s_objet_resultat, 'E') == d_erreur)
	{
	return;
	}
	}
	else
	{
	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
	s_objet_resultat) == d_erreur)
	{
	return;
	}
	}
	}
	else if ((*s_objet_resultat).type == FCT)
	{
	registre_test = (*s_etat_processus).test_instruction;
	registre_instruction_courante = (*s_etat_processus)
	.instruction_courante;
	registre_instruction_valide = (*s_etat_processus)
	.instruction_valide;

	(*s_etat_processus).test_instruction = 'Y';
	(*s_etat_processus).instruction_courante =
	(((struct_fonction ) (*s_objet_resultat).objet)).nom_fonction;

	analyse(s_etat_processus, NULL);

	(*s_etat_processus).test_instruction = registre_test;
	(*s_etat_processus).instruction_courante =
	registre_instruction_courante;

	if (((*s_etat_processus).instruction_valide == 'Y') &&
	(*s_etat_processus).constante_symbolique == 'Y')
	{
	if (evaluation(s_etat_processus, s_objet_resultat, 'E') == d_erreur)
	{
	(*s_etat_processus).instruction_valide =
	registre_instruction_valide;
	return;
	}
	}
	else
	{
	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
	s_objet_resultat) == d_erreur)
	{
	(*s_etat_processus).instruction_valide =
	registre_instruction_valide;
	return;
	}
	}

	(*s_etat_processus).instruction_valide = registre_instruction_valide;
	}
	else
	{
	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
	s_objet_resultat) == d_erreur)
	{
	return;
	}
}	}

return;	return;

CVSweb interface <joel.bertrand@systella.fr>

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