--- rpl/src/messages.c	2011/11/15 07:01:37	1.43
+++ rpl/src/messages.c	2012/12/19 09:58:27	1.57
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.4
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.12
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -86,12 +86,12 @@ messages(struct_processus *s_etat_proces
 				if ((*s_etat_processus).langue == 'F')
 				{
 					chaine ="+++Erreur : Arguments insuffisants pour la "
-							"commande %s";
+							"commande '%s'";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 				else
 				{
-					chaine = "+++Error : Too few arguments for %s "
+					chaine = "+++Error : Too few arguments for '%s' "
 							"command";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
@@ -104,13 +104,13 @@ messages(struct_processus *s_etat_proces
 				if ((*s_etat_processus).langue == 'F')
 				{
 					chaine = "+++Erreur : Argument invalide pour la "
-							"commande %s";
+							"commande '%s'";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 				else
 				{
 					chaine = "+++Error : Invalid argument for "
-							"%s command";
+							"'%s' command";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 
@@ -138,13 +138,13 @@ messages(struct_processus *s_etat_proces
 				if ((*s_etat_processus).langue == 'F')
 				{
 					chaine = "+++Erreur : Type d'argument invalide pour la "
-							"commande %s";
+							"commande '%s'";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 				else
 				{
 					chaine = "+++Error : Invalid argument type for "
-							"%s command";
+							"'%s' command";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 
@@ -174,13 +174,13 @@ messages(struct_processus *s_etat_proces
 				if ((*s_etat_processus).langue == 'F')
 				{
 					chaine = "+++Erreur : Dimensions invalides pour "
-							"l'instruction %s";
+							"l'instruction '%s'";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 				else
 				{
 					chaine = "+++Erreur : Invalid dimensions for "
-							"%s instruction";
+							"'%s' instruction";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 
@@ -191,12 +191,12 @@ messages(struct_processus *s_etat_proces
 			{
 				if ((*s_etat_processus).langue == 'F')
 				{
-					chaine = "+++Erreur : Expression %s invalide";
+					chaine = "+++Erreur : Expression '%s' invalide";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 				else
 				{
-					chaine = "+++Error : Invalid %s expression";
+					chaine = "+++Error : Invalid '%s' expression";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 
@@ -717,13 +717,13 @@ messages(struct_processus *s_etat_proces
 				if ((*s_etat_processus).langue == 'F')
 				{
 					chaine = "+++Erreur : Erreur interne dans la routine"
-							" mathématique %s";
+							" mathématique '%s'";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 				else
 				{
 					chaine = "+++Error : Internal error in mathematical"
-						 " subroutine %s";
+						 " subroutine '%s'";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 				}
 
@@ -1311,17 +1311,60 @@ messages(struct_processus *s_etat_proces
 				break;
 			}
 
+			case d_ex_mutex_acquis_autre_thread :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Mutex acquis par un autre thread";
+				}
+				else
+				{
+					chaine = "+++Error : Mutex owned by another thread";
+				}
+
+				break;
+			}
+
+			case d_ex_expression_reguliere :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Expression régulière";
+				}
+				else
+				{
+					chaine = "+++Error : Regular expression";
+				}
+
+				break;
+			}
+
+			case d_ex_instruction_indisponible :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Instruction intrinsèque non "
+							"disponible";
+				}
+				else
+				{
+					chaine = "+++Error : Unavailable intrinsic instruction";
+				}
+
+				break;
+			}
+
 			case -1 : // Fonction externe
 			{
 				if ((*s_etat_processus).langue == 'F')
 				{
-					chaine = "+++Erreur : Fonction dynamique %s (ligne %lld)";
+					chaine = "+++Erreur : Fonction dynamique '%s' (ligne %lld)";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 					erreur_fonction_externe = d_vrai;
 				}
 				else
 				{
-					chaine = "+++Error : %s dynamic function (line %lld)";
+					chaine = "+++Error : '%s' dynamic function (line %lld)";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 					erreur_fonction_externe = d_vrai;
 				}
@@ -1573,17 +1616,32 @@ messages(struct_processus *s_etat_proces
 				break;
 			}
 
+			case d_es_mutex_acquis_autre_thread :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Système : Mutex acquis par un autre thread";
+				}
+				else
+				{
+					chaine = "+++System : Mutex owned by another thread";
+				}
+
+				break;
+			}
+
 			case -1 : // Fonction externe
 			{
 				if ((*s_etat_processus).langue == 'F')
 				{
-					chaine = "+++Système : Fonction dynamique %s (ligne %lld)";
+					chaine = "+++Système : Fonction dynamique '%s' "
+							"(ligne %lld)";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 					erreur_fonction_externe = d_vrai;
 				}
 				else
 				{
-					chaine = "+++System : %s dynamic function (line %lld)";
+					chaine = "+++System : '%s' dynamic function (line %lld)";
 					argument = (*s_etat_processus).instruction_derniere_erreur;
 					erreur_fonction_externe = d_vrai;
 				}