--- rpl/src/messages.c	2010/04/17 18:57:36	1.12
+++ rpl/src/messages.c	2013/03/01 09:29:30	1.63
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.14
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,8 @@
 */
 
 
-#include "rpl.conv.h"
+#define MESSAGES
+#include "rpl-conv.h"
 
 
 /*
@@ -85,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;
 				}
@@ -103,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;
 				}
 
@@ -137,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;
 				}
 
@@ -173,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;
 				}
 
@@ -190,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;
 				}
 
@@ -716,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;
 				}
 
@@ -1253,17 +1254,176 @@ messages(struct_processus *s_etat_proces
 				break;
 			}
 
+			case d_ex_version_bibliotheque :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Version de bibliothèque incompatible";
+				}
+				else
+				{
+					chaine = "+++Error : Library version mismatch";
+				}
+
+				break;
+			}
+
+			case d_ex_creation_variable_globale :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Création de variable globale "
+							"impossible";
+				}
+				else
+				{
+					chaine = "+++Error : Cannot create global variable";
+				}
+
+				break;
+			}
+
+			case d_ex_erreur_interne_rplcas :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Erreur interne RPL/CAS";
+				}
+				else
+				{
+					chaine = "+++Error : Internal RPL/CAS error";
+				}
+
+				break;
+			}
+
+			case d_ex_fichier_corrompu :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Fichier corrompu";
+				}
+				else
+				{
+					chaine = "+++Error : Corrupted file";
+				}
+
+				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 d_ex_chiffrement :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Erreur dans les routines "
+							"de chiffrement";
+				}
+				else
+				{
+					chaine = "+++Error : Cipher error";
+				}
+
+				break;
+			}
+
+			case d_ex_chiffrement_indisponible :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Algorithme de chiffrement "
+							"indisponible";
+				}
+				else
+				{
+					chaine = "+++Error : Unavailable cipher algorithm";
+				}
+
+				break;
+			}
+
+			case d_ex_longueur_clef_chiffrement :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Longueur invalide de la clef "
+							"de chiffrement";
+				}
+				else
+				{
+					chaine = "+++Error : Invalide key length";
+				}
+
+			case d_ex_taille_message :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Erreur : Message trop long";
+				}
+				else
+				{
+					chaine = "+++Error : Message size";
+				}
+
+				break;
+			}
+
+				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;
 				}
@@ -1501,17 +1661,46 @@ messages(struct_processus *s_etat_proces
 				break;
 			}
 
+			case d_es_semaphore :
+			{
+				if ((*s_etat_processus).langue == 'F')
+				{
+					chaine = "+++Système : Erreur d'accès à un sémaphore";
+				}
+				else
+				{
+					chaine = "+++System : Semaphore access error";
+				}
+
+				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;
 				}