version 1.24, 2010/08/22 16:38:36
|
version 1.81, 2017/06/30 13:11:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.18 |
RPL/2 (R) version 4.1.27 |
Copyright (C) 1989-2010 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 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 1268 messages(struct_processus *s_etat_proces
|
Line 1268 messages(struct_processus *s_etat_proces
|
break; |
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"; |
|
} |
|
|
|
break; |
|
} |
|
|
|
case d_ex_taille_message : |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
chaine = "+++Erreur : Message trop long"; |
|
} |
|
else |
|
{ |
|
chaine = "+++Error : Message size"; |
|
} |
|
|
|
break; |
|
} |
|
|
|
case d_ex_type_externe_dup : |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
chaine = "+++Erreur : Duplication d'un type externe "; |
|
} |
|
else |
|
{ |
|
chaine = "+++Error : External type duplication"; |
|
} |
|
|
|
break; |
|
} |
|
|
|
case d_ex_type_externe_drop : |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
chaine = "+++Erreur : Libération d'un type externe "; |
|
} |
|
else |
|
{ |
|
chaine = "+++Error : External type freeing"; |
|
} |
|
|
|
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 1530 messages(struct_processus *s_etat_proces
|
Line 1703 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; |
} |
} |