rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/types.c between versions 1.4 and 1.51

version 1.4, 2010/02/08 19:26:32	version 1.51, 2012/08/22 10:47:19
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.10	RPL/2 (R) version 4.1.10
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2012 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 49 recherche_type(struct_processus *s_etat_	Line 49 recherche_type(struct_processus *s_etat_
struct_liste_pile_systeme *s_sauvegarde_pile;	struct_liste_pile_systeme *s_sauvegarde_pile;

struct_objet *s_objet;	struct_objet *s_objet;
	struct_objet *s_objet_registre;
struct_objet *s_sous_objet;	struct_objet *s_sous_objet;

logical1 drapeau_chaine;	logical1 drapeau_chaine;
Line 75 recherche_type(struct_processus *s_etat_	Line 76 recherche_type(struct_processus *s_etat_
unsigned char registre_instruction_valide;	unsigned char registre_instruction_valide;
unsigned char registre_interruption;	unsigned char registre_interruption;
unsigned char registre_mode_execution_programme;	unsigned char registre_mode_execution_programme;
	unsigned char registre_recherche_type;
unsigned char registre_test;	unsigned char registre_test;
unsigned char registre_test_bis;	unsigned char registre_test_bis;
unsigned char *tampon;	unsigned char *tampon;
	unsigned char variable_implicite;

unsigned long i;	unsigned long i;
unsigned long j;	unsigned long j;
Line 99 recherche_type(struct_processus *s_etat_	Line 102 recherche_type(struct_processus *s_etat_

void *element;	void *element;

s_objet = (struct_objet *) malloc(sizeof(struct_objet));	if ((s_objet = allocation(s_etat_processus, NON)) == NULL)
element = NULL;
nombre_egalites = 0;
i = 0;

if (s_objet == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return;	return;
}	}

initialisation_objet(s_objet);	element = NULL;
	nombre_egalites = 0;
	i = 0;

registre_test = (*s_etat_processus).test_instruction;	registre_test = (*s_etat_processus).test_instruction;
registre_instruction_valide = (*s_etat_processus).instruction_valide;	registre_instruction_valide = (*s_etat_processus).instruction_valide;
registre_interruption = (*s_etat_processus).traitement_interruptible;	registre_interruption = (*s_etat_processus).traitement_interruptible;
Line 176 recherche_type(struct_processus *s_etat_	Line 177 recherche_type(struct_processus *s_etat_

(*s_objet).type = FCT;	(*s_objet).type = FCT;
(*s_objet).objet = element;	(*s_objet).objet = element;
	(((struct_fonction ) (*s_objet).objet)).prediction_saut = NULL;
	(((struct_fonction ) (*s_objet).objet)).prediction_execution
	= d_faux;

if (empilement(s_etat_processus,	if (empilement(s_etat_processus,
&((*s_etat_processus).l_base_pile), s_objet) == d_erreur)	&((*s_etat_processus).l_base_pile), s_objet) == d_erreur)
Line 203 recherche_type(struct_processus *s_etat_	Line 207 recherche_type(struct_processus *s_etat_
(*s_etat_processus).test_instruction = 'N';	(*s_etat_processus).test_instruction = 'N';
analyse(s_etat_processus, NULL);	analyse(s_etat_processus, NULL);
(*s_etat_processus).test_instruction = registre_test_bis;	(*s_etat_processus).test_instruction = registre_test_bis;
free(s_objet);	liberation(s_etat_processus, s_objet);
}	}
else	else
{	{
Line 268 recherche_type(struct_processus *s_etat_	Line 272 recherche_type(struct_processus *s_etat_

case '(' :	case '(' :
{	{
(*s_objet).type = CPL;

element = (void ) ((struct_complexe16 ) malloc(	element = (void ) ((struct_complexe16 ) malloc(
sizeof(struct_complexe16)));	sizeof(struct_complexe16)));

Line 367 recherche_type(struct_processus *s_etat_	Line 369 recherche_type(struct_processus *s_etat_
}	}
}	}

	registre_recherche_type = (*s_etat_processus).recherche_type;
	(*s_etat_processus).recherche_type = 'Y';

if (sequenceur(s_etat_processus) == d_erreur)	if (sequenceur(s_etat_processus) == d_erreur)
{	{
	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	(*s_etat_processus).recherche_type = registre_recherche_type;
(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;	(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;	(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;

Line 386 recherche_type(struct_processus *s_etat_	Line 394 recherche_type(struct_processus *s_etat_
sauvegarde_longueur_definitions_chainees;	sauvegarde_longueur_definitions_chainees;

free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
return;	return;
}	}

	(*s_etat_processus).recherche_type = registre_recherche_type;
(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;
Line 420 recherche_type(struct_processus *s_etat_	Line 429 recherche_type(struct_processus *s_etat_
{	{
(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;

free(s_objet);	liberation(s_etat_processus, s_objet);
free(element);	free(element);

for(i = 0; i < (unsigned long) nombre_elements_convertis; i++)	for(i = 0; i < (unsigned long) nombre_elements_convertis; i++)
Line 461 recherche_type(struct_processus *s_etat_	Line 470 recherche_type(struct_processus *s_etat_
(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;

free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

liberation(s_etat_processus, s_sous_objet);	liberation(s_etat_processus, s_sous_objet);

Line 491 recherche_type(struct_processus *s_etat_	Line 500 recherche_type(struct_processus *s_etat_
(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;

free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

liberation(s_etat_processus, s_sous_objet);	liberation(s_etat_processus, s_sous_objet);

Line 505 recherche_type(struct_processus *s_etat_	Line 514 recherche_type(struct_processus *s_etat_
}	}
}	}

	(*s_objet).type = CPL;
break;	break;
}	}

Line 516 recherche_type(struct_processus *s_etat_	Line 526 recherche_type(struct_processus *s_etat_

case '#' :	case '#' :
{	{
(*s_objet).type = BIN;

element = (void ) ((logical8 ) malloc(	element = (void ) ((logical8 ) malloc(
sizeof(logical8)));	sizeof(logical8)));

Line 568 recherche_type(struct_processus *s_etat_	Line 576 recherche_type(struct_processus *s_etat_
if (i != 0)	if (i != 0)
{	{
free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_syntaxe;	d_ex_syntaxe;
Line 672 recherche_type(struct_processus *s_etat_	Line 680 recherche_type(struct_processus *s_etat_
if (i != 0)	if (i != 0)
{	{
free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_syntaxe;	d_ex_syntaxe;
Line 786 recherche_type(struct_processus *s_etat_	Line 794 recherche_type(struct_processus *s_etat_
if (i != 0)	if (i != 0)
{	{
free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_syntaxe;	d_ex_syntaxe;
Line 930 recherche_type(struct_processus *s_etat_	Line 938 recherche_type(struct_processus *s_etat_
if (i != 0)	if (i != 0)
{	{
free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_syntaxe;	d_ex_syntaxe;
Line 981 recherche_type(struct_processus *s_etat_	Line 989 recherche_type(struct_processus *s_etat_
(erreur_lecture_binaire == d_vrai))	(erreur_lecture_binaire == d_vrai))
{	{
free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 989 recherche_type(struct_processus *s_etat_	Line 997 recherche_type(struct_processus *s_etat_
return;	return;
}	}

	(*s_objet).type = BIN;
break;	break;
}	}

Line 1049 recherche_type(struct_processus *s_etat_	Line 1058 recherche_type(struct_processus *s_etat_

if (niveau != 0)	if (niveau != 0)
{	{
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 1158 recherche_type(struct_processus *s_etat_	Line 1167 recherche_type(struct_processus *s_etat_
}	}
}	}

	registre_recherche_type =
	(*s_etat_processus).recherche_type;
	(*s_etat_processus).recherche_type = 'Y';

if (sequenceur(s_etat_processus) == d_erreur)	if (sequenceur(s_etat_processus) == d_erreur)
{	{
	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	(*s_etat_processus).recherche_type =
	registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;
nombre_lignes_a_supprimer =	nombre_lignes_a_supprimer =
Line 1182 recherche_type(struct_processus *s_etat_	Line 1198 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 1197 recherche_type(struct_processus *s_etat_	Line 1214 recherche_type(struct_processus *s_etat_
(*s_etat_processus).longueur_definitions_chainees =	(*s_etat_processus).longueur_definitions_chainees =
sauvegarde_longueur_definitions_chainees;	sauvegarde_longueur_definitions_chainees;

free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 1205 recherche_type(struct_processus *s_etat_	Line 1222 recherche_type(struct_processus *s_etat_
return;	return;
}	}

	(*s_etat_processus).recherche_type =
	registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;

Line 1230 recherche_type(struct_processus *s_etat_	Line 1249 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 1245 recherche_type(struct_processus *s_etat_	Line 1265 recherche_type(struct_processus *s_etat_
(*s_etat_processus).longueur_definitions_chainees =	(*s_etat_processus).longueur_definitions_chainees =
sauvegarde_longueur_definitions_chainees;	sauvegarde_longueur_definitions_chainees;

free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 1322 recherche_type(struct_processus *s_etat_	Line 1342 recherche_type(struct_processus *s_etat_
}	}

erreur = d_absence_erreur;	erreur = d_absence_erreur;
free(s_objet);	s_objet_registre = s_objet;

for(i = 0; (i < nombre_colonnes) &&	for(i = 0; (i < nombre_colonnes) &&
(erreur == d_absence_erreur); i++)	(erreur == d_absence_erreur); i++)
Line 1419 recherche_type(struct_processus *s_etat_	Line 1439 recherche_type(struct_processus *s_etat_
(*s_etat_processus)	(*s_etat_processus)
.traitement_interruptible =	.traitement_interruptible =
registre_interruption;	registre_interruption;
	liberation(s_etat_processus,
	s_objet_registre);
return;	return;
}	}

Line 1431 recherche_type(struct_processus *s_etat_	Line 1453 recherche_type(struct_processus *s_etat_
free((((struct_vecteur ) element)).tableau);	free((((struct_vecteur ) element)).tableau);
free(element);	free(element);

	liberation(s_etat_processus, s_objet_registre);
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
return;	return;
Line 1438 recherche_type(struct_processus *s_etat_	Line 1461 recherche_type(struct_processus *s_etat_
}	}
else	else
{	{
	liberation(s_etat_processus, s_objet_registre);

(*s_etat_processus).erreur_systeme = d_es_pile_vide;	(*s_etat_processus).erreur_systeme = d_es_pile_vide;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
Line 1445 recherche_type(struct_processus *s_etat_	Line 1470 recherche_type(struct_processus *s_etat_
}	}
}	}

s_objet = (struct_objet *) malloc(sizeof(struct_objet));	s_objet = s_objet_registre;

if (s_objet == NULL)
{
(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible =
registre_interruption;
return;
}

initialisation_objet(s_objet);

if (drapeau_complexe == d_vrai)	if (drapeau_complexe == d_vrai)
{	{
Line 1564 recherche_type(struct_processus *s_etat_	Line 1578 recherche_type(struct_processus *s_etat_
return;	return;
}	}
}	}

	registre_recherche_type = (*s_etat_processus)
	.recherche_type;
	(*s_etat_processus).recherche_type = 'Y';

if (sequenceur(s_etat_processus) == d_erreur)	if (sequenceur(s_etat_processus) == d_erreur)
{	{
	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	(*s_etat_processus).recherche_type =
	registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;
nombre_lignes_a_supprimer =	nombre_lignes_a_supprimer =
Line 1589 recherche_type(struct_processus *s_etat_	Line 1610 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 1605 recherche_type(struct_processus *s_etat_	Line 1627 recherche_type(struct_processus *s_etat_
(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
position_courante;	position_courante;

free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 1613 recherche_type(struct_processus *s_etat_	Line 1635 recherche_type(struct_processus *s_etat_
return;	return;
}	}

	(*s_etat_processus).recherche_type =
	registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;

Line 1638 recherche_type(struct_processus *s_etat_	Line 1662 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 1654 recherche_type(struct_processus *s_etat_	Line 1679 recherche_type(struct_processus *s_etat_
(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
position_courante;	position_courante;

free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 1737 recherche_type(struct_processus *s_etat_	Line 1762 recherche_type(struct_processus *s_etat_
}	}

free(element);	free(element);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
Line 1758 recherche_type(struct_processus *s_etat_	Line 1783 recherche_type(struct_processus *s_etat_
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
}	}

free(s_objet);	s_objet_registre = s_objet;

if ((*s_etat_processus).erreur_execution == d_ex)	if ((*s_etat_processus).erreur_execution == d_ex)
{	{
Line 1769 recherche_type(struct_processus *s_etat_	Line 1794 recherche_type(struct_processus *s_etat_
malloc(nombre_lignes * sizeof(	malloc(nombre_lignes * sizeof(
struct_complexe16 *)))) == NULL)	struct_complexe16 *)))) == NULL)
{	{
	liberation(s_etat_processus, s_objet_registre);

(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 1786 recherche_type(struct_processus *s_etat_	Line 1813 recherche_type(struct_processus *s_etat_
malloc(nombre_colonnes * sizeof(	malloc(nombre_colonnes * sizeof(
struct_complexe16)))) == NULL)	struct_complexe16)))) == NULL)
{	{
	liberation(s_etat_processus,
	s_objet_registre);

(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
(*s_etat_processus)	(*s_etat_processus)
Line 1802 recherche_type(struct_processus *s_etat_	Line 1832 recherche_type(struct_processus *s_etat_
malloc(nombre_lignes * sizeof(real8 *))))	malloc(nombre_lignes * sizeof(real8 *))))
== NULL)	== NULL)
{	{
	liberation(s_etat_processus, s_objet_registre);

(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 1818 recherche_type(struct_processus *s_etat_	Line 1850 recherche_type(struct_processus *s_etat_
malloc(nombre_colonnes *	malloc(nombre_colonnes *
sizeof(real8)))) == NULL)	sizeof(real8)))) == NULL)
{	{
	liberation(s_etat_processus,
	s_objet_registre);

(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
(*s_etat_processus)	(*s_etat_processus)
Line 1834 recherche_type(struct_processus *s_etat_	Line 1869 recherche_type(struct_processus *s_etat_
malloc(nombre_lignes *	malloc(nombre_lignes *
sizeof(integer8 *)))) == NULL)	sizeof(integer8 *)))) == NULL)
{	{
	liberation(s_etat_processus, s_objet_registre);

(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 1851 recherche_type(struct_processus *s_etat_	Line 1888 recherche_type(struct_processus *s_etat_
malloc(nombre_colonnes *	malloc(nombre_colonnes *
sizeof(integer8)))) == NULL)	sizeof(integer8)))) == NULL)
{	{
	liberation(s_etat_processus,
	s_objet_registre);

(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
(*s_etat_processus)	(*s_etat_processus)
Line 1993 recherche_type(struct_processus *s_etat_	Line 2033 recherche_type(struct_processus *s_etat_
.l_base_pile), &s_objet)	.l_base_pile), &s_objet)
== d_erreur)	== d_erreur)
{	{
	liberation(s_etat_processus,
	s_objet_registre);

(*s_etat_processus)	(*s_etat_processus)
.traitement_interruptible =	.traitement_interruptible =
registre_interruption;	registre_interruption;
Line 2016 recherche_type(struct_processus *s_etat_	Line 2059 recherche_type(struct_processus *s_etat_
.tableau);	.tableau);
free(element);	free(element);

	liberation(s_etat_processus,
	s_objet_registre);

(*s_etat_processus)	(*s_etat_processus)
.traitement_interruptible =	.traitement_interruptible =
registre_interruption;	registre_interruption;
Line 2024 recherche_type(struct_processus *s_etat_	Line 2070 recherche_type(struct_processus *s_etat_
}	}
else	else
{	{
	liberation(s_etat_processus,
	s_objet_registre);

(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_pile_vide;	d_es_pile_vide;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 2032 recherche_type(struct_processus *s_etat_	Line 2081 recherche_type(struct_processus *s_etat_
}	}
}	}

s_objet = (struct_objet *) malloc(sizeof(struct_objet));	s_objet = s_objet_registre;

if (s_objet == NULL)
{
(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible =
registre_interruption;
return;
}

initialisation_objet(s_objet);

if (drapeau_complexe == d_vrai)	if (drapeau_complexe == d_vrai)
{	{
Line 2248 recherche_type(struct_processus *s_etat_	Line 2286 recherche_type(struct_processus *s_etat_
(*s_etat_processus).autorisation_evaluation_nom =	(*s_etat_processus).autorisation_evaluation_nom =
autorisation_evaluation_nom;	autorisation_evaluation_nom;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;	(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;	(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;

free((*s_etat_processus).definitions_chainees);	free((*s_etat_processus).definitions_chainees);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).definitions_chainees =	(*s_etat_processus).definitions_chainees =
definitions_chainees_precedentes;	definitions_chainees_precedentes;
Line 2284 recherche_type(struct_processus *s_etat_	Line 2323 recherche_type(struct_processus *s_etat_
}	}
}	}

	variable_implicite = (*s_etat_processus).autorisation_nom_implicite;
	registre_recherche_type = (*s_etat_processus).recherche_type;
	(*s_etat_processus).recherche_type = 'Y';
	(*s_etat_processus).autorisation_nom_implicite = 'Y';

if (sequenceur(s_etat_processus) == d_erreur)	if (sequenceur(s_etat_processus) == d_erreur)
{	{
	(*s_etat_processus).autorisation_nom_implicite =
	variable_implicite;
	(*s_etat_processus).recherche_type = registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;
(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	if ((*s_etat_processus).erreur_execution !=
	d_ex_nom_implicite)
	{
	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	}

nombre_lignes_a_supprimer =	nombre_lignes_a_supprimer =
(*s_etat_processus).hauteur_pile_operationnelle	(*s_etat_processus).hauteur_pile_operationnelle
Line 2315 recherche_type(struct_processus *s_etat_	Line 2367 recherche_type(struct_processus *s_etat_
(*s_etat_processus).autorisation_evaluation_nom =	(*s_etat_processus).autorisation_evaluation_nom =
autorisation_evaluation_nom;	autorisation_evaluation_nom;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;	(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;	(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;

free((*s_etat_processus).definitions_chainees);	free((*s_etat_processus).definitions_chainees);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).definitions_chainees =	(*s_etat_processus).definitions_chainees =
definitions_chainees_precedentes;	definitions_chainees_precedentes;
Line 2333 recherche_type(struct_processus *s_etat_	Line 2386 recherche_type(struct_processus *s_etat_
return;	return;
}	}

	(*s_etat_processus).autorisation_nom_implicite = variable_implicite;
	(*s_etat_processus).recherche_type = registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;

Line 2363 recherche_type(struct_processus *s_etat_	Line 2418 recherche_type(struct_processus *s_etat_
(*s_etat_processus).autorisation_evaluation_nom =	(*s_etat_processus).autorisation_evaluation_nom =
autorisation_evaluation_nom;	autorisation_evaluation_nom;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;	(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;	(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;

free((*s_etat_processus).definitions_chainees);	free((*s_etat_processus).definitions_chainees);
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).definitions_chainees =	(*s_etat_processus).definitions_chainees =
definitions_chainees_precedentes;	definitions_chainees_precedentes;
Line 2407 recherche_type(struct_processus *s_etat_	Line 2463 recherche_type(struct_processus *s_etat_
profondeur_finale = (*s_etat_processus).hauteur_pile_operationnelle;	profondeur_finale = (*s_etat_processus).hauteur_pile_operationnelle;

l_element_courant = NULL;	l_element_courant = NULL;
	s_objet_registre = s_objet;
free(s_objet);

for(i = 0; i < (profondeur_finale - profondeur_initiale); i++)	for(i = 0; i < (profondeur_finale - profondeur_initiale); i++)
{	{
Line 2416 recherche_type(struct_processus *s_etat_	Line 2471 recherche_type(struct_processus *s_etat_
&((*s_etat_processus).l_base_pile),	&((*s_etat_processus).l_base_pile),
&s_objet) == d_erreur)	&s_objet) == d_erreur)
{	{
	liberation(s_etat_processus, s_objet_registre);
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
return;	return;
Line 2424 recherche_type(struct_processus *s_etat_	Line 2480 recherche_type(struct_processus *s_etat_
if (empilement(s_etat_processus, &l_element_courant,	if (empilement(s_etat_processus, &l_element_courant,
s_objet) == d_erreur)	s_objet) == d_erreur)
{	{
	liberation(s_etat_processus, s_objet_registre);
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
return;	return;
}	}
}	}

s_objet = (struct_objet *) malloc(sizeof(struct_objet));	s_objet = s_objet_registre;

if (s_objet == NULL)
{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible =
registre_interruption;
return;
}

initialisation_objet(s_objet);
(*s_objet).type = LST;	(*s_objet).type = LST;
element = (void *) l_element_courant;	element = (void *) l_element_courant;

Line 2476 recherche_type(struct_processus *s_etat_	Line 2523 recherche_type(struct_processus *s_etat_
free(l_element_courant_fonctions);	free(l_element_courant_fonctions);
}	}

free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
Line 2515 recherche_type(struct_processus *s_etat_	Line 2562 recherche_type(struct_processus *s_etat_
* puis on renvoie une erreur.	* puis on renvoie une erreur.
*/	*/

free(s_objet);	(*s_objet).type = NON;
	liberation(s_etat_processus, s_objet);

l_element_courant = l_base_liste_decomposition;	l_element_courant = l_base_liste_decomposition;

Line 2731 recherche_type(struct_processus *s_etat_	Line 2779 recherche_type(struct_processus *s_etat_
(*s_sous_objet).type = FCT;	(*s_sous_objet).type = FCT;

if (((s_sous_objet).objet = (void )	if (((s_sous_objet).objet = (void )
allocation(s_etat_processus, FCT))	malloc(sizeof(struct_fonction)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 2811 recherche_type(struct_processus *s_etat_	Line 2859 recherche_type(struct_processus *s_etat_

while((*ptr_lecture) != d_code_fin_chaine)	while((*ptr_lecture) != d_code_fin_chaine)
{	{
if ((*ptr_lecture) == '\\')
{
if ((*(ptr_lecture + 1)) == '"')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
}
}
else if ((*(ptr_lecture + 1)) == 'b')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
(*ptr_lecture) = '\b';
}
}
else if ((*(ptr_lecture + 1)) == 'n')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
(*ptr_lecture) = '\n';
}
}
else if ((*(ptr_lecture + 1)) == 't')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
(*ptr_lecture) = '\t';
}
}
else if ((*(ptr_lecture + 1)) == '\\')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
}
}
}

ptr_ecriture++ = ptr_lecture++;	ptr_ecriture++ = ptr_lecture++;
}	}

(*(--ptr_ecriture)) = d_code_fin_chaine;	(*(--ptr_ecriture)) = d_code_fin_chaine;

if ((element = realloc(element, (strlen((unsigned char *)	if (validation_chaine((unsigned char *) element) == d_faux)
element) + 1) * sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;

	free(element);
return;	return;
}	}

Line 2963 recherche_type(struct_processus *s_etat_	Line 2970 recherche_type(struct_processus *s_etat_
}	}
}	}

	registre_recherche_type = (*s_etat_processus).recherche_type;
	(*s_etat_processus).recherche_type = 'Y';

	variable_implicite =
	(*s_etat_processus).autorisation_nom_implicite;
	(*s_etat_processus).autorisation_nom_implicite = 'Y';

if (sequenceur(s_etat_processus) == d_erreur)	if (sequenceur(s_etat_processus) == d_erreur)
{	{
	(*s_etat_processus).autorisation_nom_implicite =
	variable_implicite;
	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	(*s_etat_processus).recherche_type =
	registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;
nombre_lignes_a_supprimer =	nombre_lignes_a_supprimer =
Line 2987 recherche_type(struct_processus *s_etat_	Line 3006 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 3003 recherche_type(struct_processus *s_etat_	Line 3023 recherche_type(struct_processus *s_etat_
(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
position_courante;	position_courante;

free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 3011 recherche_type(struct_processus *s_etat_	Line 3031 recherche_type(struct_processus *s_etat_
return;	return;
}	}

	(*s_etat_processus).autorisation_nom_implicite =
	variable_implicite;
	(*s_etat_processus).recherche_type = registre_recherche_type;
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;

Line 3036 recherche_type(struct_processus *s_etat_	Line 3059 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 3052 recherche_type(struct_processus *s_etat_	Line 3076 recherche_type(struct_processus *s_etat_
(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
position_courante;	position_courante;

free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 3086 recherche_type(struct_processus *s_etat_	Line 3110 recherche_type(struct_processus *s_etat_

nombre_lignes = profondeur_finale - profondeur_initiale;	nombre_lignes = profondeur_finale - profondeur_initiale;

element = (void ) ((struct_tableau ) malloc(	if ((element = malloc(sizeof(struct_tableau))) == NULL)
sizeof(struct_tableau)));

if (element == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 3136 recherche_type(struct_processus *s_etat_	Line 3157 recherche_type(struct_processus *s_etat_

if (strlen((*s_etat_processus).instruction_courante) < 5)	if (strlen((*s_etat_processus).instruction_courante) < 5)
{	{
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 3148 recherche_type(struct_processus *s_etat_	Line 3169 recherche_type(struct_processus *s_etat_
!= 0) && (strcmp((*s_etat_processus)	!= 0) && (strcmp((*s_etat_processus)
.instruction_courante, "<<") != 0))	.instruction_courante, "<<") != 0))
{	{
free(s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
Line 3169 recherche_type(struct_processus *s_etat_	Line 3190 recherche_type(struct_processus *s_etat_
d_es_allocation_memoire;	d_es_allocation_memoire;
}	}

	liberation(s_etat_processus, s_objet);

(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
return;	return;
Line 3416 recherche_type(struct_processus *s_etat_	Line 3439 recherche_type(struct_processus *s_etat_
if ((drapeau_valeur_reelle == d_faux) &&	if ((drapeau_valeur_reelle == d_faux) &&
(drapeau_valeur_entiere == d_faux))	(drapeau_valeur_entiere == d_faux))
{	{
	ptr = (*s_etat_processus).instruction_courante;

	while((*ptr) != d_code_fin_chaine)
	{
	if ((isalnum((*ptr)) == 0) &&
	((*ptr) != '_') &&
	((*ptr) != '$'))
	{
	liberation(s_etat_processus, s_objet);

	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
	(*s_etat_processus).traitement_interruptible =
	registre_interruption;

	return;
	}

	ptr++;
	}

(*s_objet).type = NOM;	(*s_objet).type = NOM;

element = malloc(sizeof(struct_nom));	element = malloc(sizeof(struct_nom));
Line 3475 recherche_type(struct_processus *s_etat_	Line 3518 recherche_type(struct_processus *s_etat_
}	}
else	else
{	{
(*s_objet).type = INT;	// Le format ressemble à un entier mais il peut y avoir
	// un dépassement de capacité lors de la conversion.
	// On convertit donc en entier et en réel. Si les
	// deux conversions donnent le même résultat, on
	// considère que la conversion en entier est bonne. Dans
	// le cas contraire, on garde la conversion en réel.

element = (void ) ((integer8 ) malloc(	integer8 conversion_entiere;
sizeof(integer8)));	real8 conversion_reelle;

if (element == NULL)	if (sscanf((*s_etat_processus).instruction_courante, "%lg",
	&conversion_reelle) != 1)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible =
registre_interruption;
return;
}	}

nombre_elements_convertis = sscanf(	if (sscanf((*s_etat_processus).instruction_courante, "%lld",
(*s_etat_processus).instruction_courante, "%lld",	&conversion_entiere) != 1)
(integer8 *) element);

if (nombre_elements_convertis != 1)
{	{
(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
}	}

	if (abs(nextafter(conversion_reelle, conversion_entiere)
	- conversion_reelle) >= abs(conversion_reelle
	- conversion_entiere))
	{
	(*s_objet).type = INT;

	element = malloc(sizeof(integer8));

	if (element == NULL)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	(*s_etat_processus).traitement_interruptible =
	registre_interruption;
	return;
	}

	(((integer8 ) element)) = conversion_entiere;
	}
	else
	{
	(*s_objet).type = REL;

	element = malloc(sizeof(real8));

	if (element == NULL)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	(*s_etat_processus).traitement_interruptible =
	registre_interruption;
	return;
	}

	(((real8 ) element)) = conversion_reelle;
	}
}	}
}	}

Line 3519 recherche_type(struct_processus *s_etat_	Line 3598 recherche_type(struct_processus *s_etat_
&((*s_etat_processus).l_base_pile), s_objet) == d_erreur)	&((*s_etat_processus).l_base_pile), s_objet) == d_erreur)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible = registre_interruption;	(*s_etat_processus).traitement_interruptible =
	registre_interruption;
return;	return;
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.4
changed lines
	Added in v.1.51