rpl/src/compilation.c - diff

Return to compilation.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/compilation.c between versions 1.76 and 1.90

version 1.76, 2015/01/29 09:33:41	version 1.90, 2017/06/29 14:54:42
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.20	RPL/2 (R) version 4.1.27
Copyright (C) 1989-2015 Dr. BERTRAND Joël	Copyright (C) 1989-2017 Dr. BERTRAND Joël

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

Line 917 recherche_instruction_suivante_recursive	Line 917 recherche_instruction_suivante_recursive
int erreur_analyse;	int erreur_analyse;
int erreur_format;	int erreur_format;

	integer8 nombre_caracteres;
	integer8 (*__type_parse)(struct_processus
	s_etat_processus, void *arg);


unsigned char base_binaire;	unsigned char base_binaire;
unsigned char caractere_fin;	unsigned char caractere_fin;
unsigned char *pointeur_caractere_courant;	unsigned char *pointeur_caractere_courant;
Line 926 recherche_instruction_suivante_recursive	Line 931 recherche_instruction_suivante_recursive

signed long niveau;	signed long niveau;

	struct_liste_chainee *l_element_courant;

erreur_analyse = d_ex;	erreur_analyse = d_ex;
erreur_format = d_ex;	erreur_format = d_ex;
erreur = d_absence_erreur;	erreur = d_absence_erreur;
Line 990 recherche_instruction_suivante_recursive	Line 997 recherche_instruction_suivante_recursive
return(erreur);	return(erreur);
}	}

	/*
	* On regarde s'il existe des fonctions permettant de parser
	* les objets dans les bibliothèques externes.
	*/

	l_element_courant = (*s_etat_processus).s_bibliotheques;
	(*s_etat_processus).position_courante = pointeur_caractere_courant
	- (*s_etat_processus).definitions_chainees;

	while(l_element_courant != NULL)
	{
	if ((__type_parse = dlsym((((struct_bibliotheque )
	(*l_element_courant).donnee)).descripteur, "__type_parse"))
	!= NULL)
	{
	// Une fonction declareTypeExtension(parse) se trouve dans la
	// bibliothèque. Si cette fonction renvoie une valeur non nulle,
	// elle a réussi à parser correctement un objet.

	if ((nombre_caracteres = __type_parse(s_etat_processus, NULL)) != 0)
	{
	if (((*s_etat_processus).instruction_courante =
	malloc((((unsigned) nombre_caracteres) + 1)
	* sizeof(unsigned char))) == NULL)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return(d_erreur);
	}

	strncpy((*s_etat_processus).instruction_courante,
	(*s_etat_processus).definitions_chainees +
	(*s_etat_processus).position_courante,
	(unsigned) nombre_caracteres);
	(*s_etat_processus).instruction_courante[nombre_caracteres]
	= d_code_fin_chaine;

	(*s_etat_processus).position_courante += nombre_caracteres;
	return(erreur);
	}
	}

	l_element_courant = (*l_element_courant).suivant;
	}

pointeur_debut_instruction = pointeur_caractere_courant;	pointeur_debut_instruction = pointeur_caractere_courant;

while(((*pointeur_caractere_courant) != d_code_espace) &&	while(((*pointeur_caractere_courant) != d_code_espace) &&
Line 1501 recherche_instruction_suivante_recursive	Line 1553 recherche_instruction_suivante_recursive
pointeur_caractere_courant++;	pointeur_caractere_courant++;
break;	break;
}	}
	else if ((*pointeur_caractere_courant) == '=')
	{ // Cas de '>='
	pointeur_caractere_courant++;
	}
else if ((*pointeur_caractere_courant) !=	else if ((*pointeur_caractere_courant) !=
d_code_espace)	d_code_espace)
{ // Tous les cas différents de '>'	{ // Tous les cas différents de '>'
Line 1651 recherche_instruction_suivante_recursive	Line 1707 recherche_instruction_suivante_recursive
}	}
else if ((*pointeur_caractere_courant) == caractere_fin)	else if ((*pointeur_caractere_courant) == caractere_fin)
{	{
// Condition pour traiter les cas 123}	// Condition pour traiter les cas "123}"
break;	break;
}	}
}	}
Line 1706 recherche_instruction_suivante_recursive	Line 1762 recherche_instruction_suivante_recursive
erreur = ((erreur_analyse == d_ex) && (erreur_format == d_ex))	erreur = ((erreur_analyse == d_ex) && (erreur_format == d_ex))
? d_absence_erreur : d_erreur;	? d_absence_erreur : d_erreur;
(*s_etat_processus).erreur_execution = erreur_analyse;	(*s_etat_processus).erreur_execution = erreur_analyse;

	if ((*s_etat_processus).erreur_execution == d_ex)
	{
	(*s_etat_processus).erreur_execution = erreur_format;
	}
}	}
else	else
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.76
changed lines
	Added in v.1.90