version 1.3, 2010/02/10 10:14:25
|
version 1.93, 2024/01/09 07:33:55
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.11 |
RPL/2 (R) version 4.1.35 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2024 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#define MESSAGES |
|
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 85 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 103 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 137 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 173 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 190 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 716 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 1211 messages(struct_processus *s_etat_proces
|
Line 1212 messages(struct_processus *s_etat_proces
|
break; |
break; |
} |
} |
|
|
|
case d_ex_enregistrement_inexistant : |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
chaine = "+++Erreur : Enregistrement inexistant"; |
|
} |
|
else |
|
{ |
|
chaine = "+++Error : Record not found"; |
|
} |
|
|
|
break; |
|
} |
|
|
|
case d_ex_clef_inexistante : |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
chaine = "+++Erreur : Clef inexistante"; |
|
} |
|
else |
|
{ |
|
chaine = "+++Error : Key not found"; |
|
} |
|
|
|
break; |
|
} |
|
|
|
case d_ex_nom_implicite : |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
chaine = "+++Erreur : Nom implicite indéfini"; |
|
} |
|
else |
|
{ |
|
chaine = "+++Error : Undefined implicit name"; |
|
} |
|
|
|
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"; |
|
} |
|
|
|
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 d_ex_simplification : |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
chaine = "+++Erreur : Erreur de simplification d'une " |
|
"expression"; |
|
} |
|
else |
|
{ |
|
chaine = "+++Error : Simplification error"; |
|
} |
|
|
|
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 1445 messages(struct_processus *s_etat_proces
|
Line 1690 messages(struct_processus *s_etat_proces
|
break; |
break; |
} |
} |
|
|
|
case d_es_somme_controle : |
|
{ |
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
chaine = "+++Système : Somme de contrôle invalide"; |
|
} |
|
else |
|
{ |
|
chaine = "+++System : Invalid hash sum"; |
|
} |
|
|
|
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 |
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; |
} |
} |