Diff for /rpl/src/messages.c between versions 1.34 and 1.66

version 1.34, 2011/06/21 15:26:35 version 1.66, 2013/09/06 10:30:56
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.0.prerelease.2    RPL/2 (R) version 4.1.16
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2013 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 86  messages(struct_processus *s_etat_proces Line 86  messages(struct_processus *s_etat_proces
                 if ((*s_etat_processus).langue == 'F')                  if ((*s_etat_processus).langue == 'F')
                 {                  {
                     chaine ="+++Erreur : Arguments insuffisants pour la "                      chaine ="+++Erreur : Arguments insuffisants pour la "
                             "commande %s";                              "commande '%s'";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+++Error : Too few arguments for %s "                      chaine = "+++Error : Too few arguments for '%s' "
                             "command";                              "command";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
Line 104  messages(struct_processus *s_etat_proces Line 104  messages(struct_processus *s_etat_proces
                 if ((*s_etat_processus).langue == 'F')                  if ((*s_etat_processus).langue == 'F')
                 {                  {
                     chaine = "+++Erreur : Argument invalide pour la "                      chaine = "+++Erreur : Argument invalide pour la "
                             "commande %s";                              "commande '%s'";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+++Error : Invalid argument for "                      chaine = "+++Error : Invalid argument for "
                             "%s command";                              "'%s' command";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
   
Line 138  messages(struct_processus *s_etat_proces Line 138  messages(struct_processus *s_etat_proces
                 if ((*s_etat_processus).langue == 'F')                  if ((*s_etat_processus).langue == 'F')
                 {                  {
                     chaine = "+++Erreur : Type d'argument invalide pour la "                      chaine = "+++Erreur : Type d'argument invalide pour la "
                             "commande %s";                              "commande '%s'";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+++Error : Invalid argument type for "                      chaine = "+++Error : Invalid argument type for "
                             "%s command";                              "'%s' command";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
   
Line 174  messages(struct_processus *s_etat_proces Line 174  messages(struct_processus *s_etat_proces
                 if ((*s_etat_processus).langue == 'F')                  if ((*s_etat_processus).langue == 'F')
                 {                  {
                     chaine = "+++Erreur : Dimensions invalides pour "                      chaine = "+++Erreur : Dimensions invalides pour "
                             "l'instruction %s";                              "l'instruction '%s'";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+++Erreur : Invalid dimensions for "                      chaine = "+++Erreur : Invalid dimensions for "
                             "%s instruction";                              "'%s' instruction";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
   
Line 191  messages(struct_processus *s_etat_proces Line 191  messages(struct_processus *s_etat_proces
             {              {
                 if ((*s_etat_processus).langue == 'F')                  if ((*s_etat_processus).langue == 'F')
                 {                  {
                     chaine = "+++Erreur : Expression %s invalide";                      chaine = "+++Erreur : Expression '%s' invalide";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+++Error : Invalid %s expression";                      chaine = "+++Error : Invalid '%s' expression";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
   
Line 717  messages(struct_processus *s_etat_proces Line 717  messages(struct_processus *s_etat_proces
                 if ((*s_etat_processus).langue == 'F')                  if ((*s_etat_processus).langue == 'F')
                 {                  {
                     chaine = "+++Erreur : Erreur interne dans la routine"                      chaine = "+++Erreur : Erreur interne dans la routine"
                             " mathématique %s";                              " mathématique '%s'";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+++Error : Internal error in mathematical"                      chaine = "+++Error : Internal error in mathematical"
                          " subroutine %s";                           " subroutine '%s'";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                 }                  }
   
Line 1277  messages(struct_processus *s_etat_proces Line 1277  messages(struct_processus *s_etat_proces
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+Erreur : Cannot create global variable";                      chaine = "+++Error : Cannot create global variable";
                 }                  }
   
                 break;                  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              case -1 : // Fonction externe
             {              {
                 if ((*s_etat_processus).langue == 'F')                  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;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                     erreur_fonction_externe = d_vrai;                      erreur_fonction_externe = d_vrai;
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+++Error : %s dynamic function (line %lld)";                      chaine = "+++Error : '%s' dynamic function (line %lld)";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                     erreur_fonction_externe = d_vrai;                      erreur_fonction_externe = d_vrai;
                 }                  }
Line 1545  messages(struct_processus *s_etat_proces Line 1675  messages(struct_processus *s_etat_proces
                 break;                  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              case -1 : // Fonction externe
             {              {
                 if ((*s_etat_processus).langue == 'F')                  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;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                     erreur_fonction_externe = d_vrai;                      erreur_fonction_externe = d_vrai;
                 }                  }
                 else                  else
                 {                  {
                     chaine = "+++System : %s dynamic function (line %lld)";                      chaine = "+++System : '%s' dynamic function (line %lld)";
                     argument = (*s_etat_processus).instruction_derniere_erreur;                      argument = (*s_etat_processus).instruction_derniere_erreur;
                     erreur_fonction_externe = d_vrai;                      erreur_fonction_externe = d_vrai;
                 }                  }

Removed from v.1.34  
changed lines
  Added in v.1.66


CVSweb interface <joel.bertrand@systella.fr>