--- rpl/src/compilation.c	2017/06/28 09:20:30	1.88
+++ rpl/src/compilation.c	2017/08/03 17:17:42	1.92
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.27
+  RPL/2 (R) version 4.1.28
   Copyright (C) 1989-2017 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -917,6 +917,10 @@ recherche_instruction_suivante_recursive
 	int							erreur_analyse;
 	int							erreur_format;
 
+	integer8					nombre_caracteres;
+	integer8					(*__type_parse)(struct_processus *, void **);
+
+
 	unsigned char				base_binaire;
 	unsigned char				caractere_fin;
 	unsigned char				*pointeur_caractere_courant;
@@ -926,6 +930,8 @@ recherche_instruction_suivante_recursive
 
 	signed long					niveau;
 
+	struct_liste_chainee		*l_element_courant;
+
 	erreur_analyse = d_ex;
 	erreur_format = d_ex;
 	erreur = d_absence_erreur;
@@ -990,6 +996,51 @@ recherche_instruction_suivante_recursive
 		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;
 
 	while(((*pointeur_caractere_courant) != d_code_espace) &&
@@ -1655,7 +1706,7 @@ recherche_instruction_suivante_recursive
 		}
 		else if ((*pointeur_caractere_courant) == caractere_fin)
 		{
-			// Condition pour traiter les cas 123}
+			// Condition pour traiter les cas "123}"
 			break;
 		}
 	}