rpl/src/sequenceur.c - diff

Return to sequenceur.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/sequenceur.c between versions 1.64 and 1.73

version 1.64, 2012/12/19 09:58:28	version 1.73, 2013/04/18 15:33:32
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.14
Copyright (C) 1989-2012 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 44 sequenceur(struct_processus *s_etat_proc	Line 44 sequenceur(struct_processus *s_etat_proc
struct_objet *s_objet_evaluation;	struct_objet *s_objet_evaluation;
struct_objet *s_sous_objet;	struct_objet *s_sous_objet;

	integer8 niveau;
	integer8 position_courante;

logical1 drapeau_appel_definition;	logical1 drapeau_appel_definition;
logical1 drapeau_fin;	logical1 drapeau_fin;
logical1 drapeau_then;	logical1 drapeau_then;
Line 64 sequenceur(struct_processus *s_etat_proc	Line 67 sequenceur(struct_processus *s_etat_proc
unsigned char tampon_retour;	unsigned char tampon_retour;
unsigned char *t_ligne;	unsigned char *t_ligne;

unsigned long niveau;
unsigned long position_courante;

Keymap ancien_keymap;	Keymap ancien_keymap;
Keymap nouveau_keymap;	Keymap nouveau_keymap;

Line 80 sequenceur(struct_processus *s_etat_proc	Line 80 sequenceur(struct_processus *s_etat_proc
{	{
if ((*s_etat_processus).langue == 'F')	if ((*s_etat_processus).langue == 'F')
{	{
printf("[%d] ExÃ©cution rÃ©cursive de niveau %lu\n",	printf("[%d] Exécution récursive de niveau %lld\n",
(int) getpid(), (*s_etat_processus).niveau_recursivite);	(int) getpid(), (*s_etat_processus).niveau_recursivite);
}	}
else	else
{	{
printf("[%d] %lu level recursive execution\n",	printf("[%d] %lld level recursive execution\n",
(int) getpid(), (*s_etat_processus).niveau_recursivite);	(int) getpid(), (*s_etat_processus).niveau_recursivite);
}	}
}	}
Line 93 sequenceur(struct_processus *s_etat_proc	Line 93 sequenceur(struct_processus *s_etat_proc
{	{
if ((*s_etat_processus).langue == 'F')	if ((*s_etat_processus).langue == 'F')
{	{
printf("[%d] ExÃ©cution\n", (int) getpid());	printf("[%d] Exécution\n", (int) getpid());
}	}
else	else
{	{
Line 349 sequenceur(struct_processus *s_etat_proc	Line 349 sequenceur(struct_processus *s_etat_proc

if ((*s_etat_processus).langue == 'F')	if ((*s_etat_processus).langue == 'F')
{	{
printf("+++Erreur : DÃ©faut d'argument\n");	printf("+++Erreur : Défaut d'argument\n");
}	}
else	else
{	{
Line 593 sequenceur(struct_processus *s_etat_proc	Line 593 sequenceur(struct_processus *s_etat_proc
else	else
{	{
printf("[%d] Pushing %s as %d type shared "	printf("[%d] Pushing %s as %d type shared "
"variable \n", (int) getpid(),	"variable\n", (int) getpid(),
(*s_etat_processus)	(*s_etat_processus)
.instruction_courante,	.instruction_courante,
(((*s_etat_processus)	(((*s_etat_processus)
Line 721 sequenceur(struct_processus *s_etat_proc	Line 721 sequenceur(struct_processus *s_etat_proc
.niveau_courant;	.niveau_courant;

(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((integer8 )
((((*s_etat_processus)	((((*s_etat_processus)
.pointeur_variable_courante)	.pointeur_variable_courante)
.objet).objet)));	.objet).objet)));
Line 951 sequenceur(struct_processus *s_etat_proc	Line 951 sequenceur(struct_processus *s_etat_proc
free(instruction_majuscule);	free(instruction_majuscule);
}	}

erreur \|= (((*s_etat_processus).erreur_execution != d_ex)	erreur = (logical1) (erreur \| (((*s_etat_processus)
? d_erreur : d_absence_erreur);	.erreur_execution != d_ex) ? d_erreur : d_absence_erreur));
}	}
else	else
{	{
Line 993 sequenceur(struct_processus *s_etat_proc	Line 993 sequenceur(struct_processus *s_etat_proc
{	{
if (strncmp(getenv("LANG"), "fr", 2) == 0)	if (strncmp(getenv("LANG"), "fr", 2) == 0)
{	{
printf("[%d] ArrÃªt\n", (int) getpid());	printf("[%d] Arrêt\n", (int) getpid());
}	}
else	else
{	{
Line 1065 sequenceur(struct_processus *s_etat_proc	Line 1065 sequenceur(struct_processus *s_etat_proc
(*s_etat_processus).exception = d_ep;	(*s_etat_processus).exception = d_ep;
erreur = d_absence_erreur;	erreur = d_absence_erreur;

(*s_etat_processus).position_courante -=	(*s_etat_processus).position_courante -= (integer8)
strlen((*s_etat_processus).instruction_courante);	strlen((*s_etat_processus).instruction_courante);
}	}

Line 1175 sequenceur(struct_processus *s_etat_proc	Line 1175 sequenceur(struct_processus *s_etat_proc
.niveau_courant;	.niveau_courant;

(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((integer8 )
((((*s_etat_processus)	((((*s_etat_processus)
.pointeur_variable_courante)	.pointeur_variable_courante)
.objet).objet)));	.objet).objet)));

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.64
changed lines
	Added in v.1.73