rpl/src/messages.c - diff

Return to messages.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/messages.c between versions 1.11 and 1.55

version 1.11, 2010/04/07 17:48:49	version 1.55, 2012/10/01 11:05:09
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.14	RPL/2 (R) version 4.1.11
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2012 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 1239 messages(struct_processus *s_etat_proces	Line 1240 messages(struct_processus *s_etat_proces
break;	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 -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 1487 messages(struct_processus *s_etat_proces	Line 1602 messages(struct_processus *s_etat_proces
break;	break;
}	}

case d_es_nom_implicite :	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')	if ((*s_etat_processus).langue == 'F')
{	{
chaine = "+++Système : Nom implicite indéfini";	chaine = "+++Système : Mutex acquis par un autre thread";
}	}
else	else
{	{
chaine = "+++System : Undefined implicit name";	chaine = "+++System : Mutex owned by another thread";
}	}

break;	break;
Line 1505 messages(struct_processus *s_etat_proces	Line 1634 messages(struct_processus *s_etat_proces
{	{
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;
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.11
changed lines
	Added in v.1.55