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.73 and 1.91

version 1.73, 2015/01/28 11:44:55	version 1.91, 2017/07/02 22:28:20
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 , void **);


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 930 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 996 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 1489 recherche_instruction_suivante_recursive	Line 1540 recherche_instruction_suivante_recursive
pointeur_caractere_courant++;	pointeur_caractere_courant++;
}	}

if ((*pointeur_caractere_courant) == '>')	if (((*pointeur_caractere_courant) == '>') &&
	((*(pointeur_caractere_courant - 1)) ==
	d_code_espace))
{	{
if ((*(++pointeur_caractere_courant)) == '>')	pointeur_caractere_courant++;
{
	if ((*pointeur_caractere_courant) == '>')
	{ // Cas de '>>'
drapeau_fin_objet = d_vrai;	drapeau_fin_objet = d_vrai;
	pointeur_caractere_courant++;
	break;
}	}
else	else if ((*pointeur_caractere_courant) == '=')
{	{ // Cas de '>='
	pointeur_caractere_courant++;
	}
	else if ((*pointeur_caractere_courant) !=
	d_code_espace)
	{ // Tous les cas différents de '>'
erreur_analyse = d_ex_syntaxe;	erreur_analyse = d_ex_syntaxe;
	break;
}	}

pointeur_caractere_courant++;	pointeur_caractere_courant--;
break;
}	}

if ((erreur_format == d_absence_erreur) &&	if ((erreur_format == d_absence_erreur) &&
Line 1644 recherche_instruction_suivante_recursive	Line 1706 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 1669 recherche_instruction_suivante_recursive	Line 1731 recherche_instruction_suivante_recursive
default:	default:
{	{
(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
return(d_erreur);	// return(d_erreur);
}	}
}	}
}	}
Line 1699 recherche_instruction_suivante_recursive	Line 1761 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.73
changed lines
	Added in v.1.91