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.31 and 1.54

version 1.31, 2011/04/21 16:01:01	version 1.54, 2012/08/22 10:47:19
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0.prerelease.0	RPL/2 (R) version 4.1.10
Copyright (C) 1989-2011 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 63 sequenceur(struct_processus *s_etat_proc	Line 63 sequenceur(struct_processus *s_etat_proc
unsigned char tampon_retour;	unsigned char tampon_retour;
unsigned char *t_ligne;	unsigned char *t_ligne;

unsigned long i;
unsigned long j;
unsigned long niveau;	unsigned long niveau;
unsigned long position_courante;	unsigned long position_courante;

	Keymap ancien_keymap;
	Keymap nouveau_keymap;

(*s_etat_processus).retour_routine_evaluation = 'N';	(*s_etat_processus).retour_routine_evaluation = 'N';

if ((*s_etat_processus).debug == d_vrai)	if ((*s_etat_processus).debug == d_vrai)
Line 109 sequenceur(struct_processus *s_etat_proc	Line 110 sequenceur(struct_processus *s_etat_proc
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

i = 0;
j = 0;

do	do
{	{
drapeau_appel_definition = d_faux;	drapeau_appel_definition = d_faux;
Line 182 sequenceur(struct_processus *s_etat_proc	Line 180 sequenceur(struct_processus *s_etat_proc
flockfile(stdin);	flockfile(stdin);
flockfile(stdout);	flockfile(stdout);

	ancien_keymap = rl_get_keymap();
	nouveau_keymap = rl_copy_keymap(ancien_keymap);
	rl_set_keymap(nouveau_keymap);

	rl_bind_key(NEWLINE, readline_analyse_syntaxique);
	rl_bind_key(RETURN, readline_analyse_syntaxique);
	rl_bind_key(CTRL('g'), readline_effacement);
	rl_done = 0;

ligne = readline("RPL/2> ");	ligne = readline("RPL/2> ");

	rl_set_keymap(ancien_keymap);
	rl_free(nouveau_keymap);

funlockfile(stdin);	funlockfile(stdin);
funlockfile(stdout);	funlockfile(stdout);

Line 555 sequenceur(struct_processus *s_etat_proc	Line 565 sequenceur(struct_processus *s_etat_proc
d_vrai) && ((*s_etat_processus)	d_vrai) && ((*s_etat_processus)
.autorisation_evaluation_nom == 'Y'))	.autorisation_evaluation_nom == 'Y'))
{	{
if (((*s_etat_processus).s_liste_variables	if (((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus)	.objet == NULL)
.position_variable_courante]).objet == NULL)
{	{

/*	/*
Line 574 sequenceur(struct_processus *s_etat_proc	Line 583 sequenceur(struct_processus *s_etat_proc
{	{
printf("[%d] Empilement de la variable "	printf("[%d] Empilement de la variable "
"partagée %s de type %d\n",	"partagée %s de type %d\n",
(int) getpid(),	(int) getpid(), (*s_etat_processus)
(*s_etat_processus)
.instruction_courante,	.instruction_courante,
(((s_etat_processus).s_liste_variables	(((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet)
.position_variable_courante]).objet)
.type);	.type);
}	}
else	else
Line 588 sequenceur(struct_processus *s_etat_proc	Line 595 sequenceur(struct_processus *s_etat_proc
"variable \n", (int) getpid(),	"variable \n", (int) getpid(),
(*s_etat_processus)	(*s_etat_processus)
.instruction_courante,	.instruction_courante,
(((s_etat_processus).s_liste_variables	(((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet)
.position_variable_courante]).objet)
.type);	.type);
}	}

Line 606 sequenceur(struct_processus *s_etat_proc	Line 612 sequenceur(struct_processus *s_etat_proc
}	}

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
((*s_etat_processus).s_liste_variables	((s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).nom,
.position_variable_courante]).nom,	((s_etat_processus)
((*s_etat_processus).s_liste_variables	.pointeur_variable_courante).variable_partagee,
[(*s_etat_processus)	'P') == d_vrai)
.position_variable_courante])
.variable_partagee, 'P') == d_vrai)
{	{
// La variable existe.	// La variable existe.

Line 672 sequenceur(struct_processus *s_etat_proc	Line 676 sequenceur(struct_processus *s_etat_proc
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

else if ((((s_etat_processus).s_liste_variables	else if ((((*s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus).position_variable_courante])
.objet).type == ADR)	.objet).type == ADR)
{	{

Line 742 sequenceur(struct_processus *s_etat_proc	Line 745 sequenceur(struct_processus *s_etat_proc

(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((unsigned long )
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante)
.position_variable_courante]	.objet).objet)));
.objet)).objet)));

drapeau_appel_definition = d_vrai;	drapeau_appel_definition = d_vrai;
}	}
Line 763 sequenceur(struct_processus *s_etat_proc	Line 765 sequenceur(struct_processus *s_etat_proc
(int) getpid(),	(int) getpid(),
(*s_etat_processus)	(*s_etat_processus)
.instruction_courante,	.instruction_courante,
(((s_etat_processus).s_liste_variables	(((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet)
.position_variable_courante]).objet)
.type);	.type);
}	}
else	else
Line 774 sequenceur(struct_processus *s_etat_proc	Line 775 sequenceur(struct_processus *s_etat_proc
"\n", (int) getpid(),	"\n", (int) getpid(),
(*s_etat_processus)	(*s_etat_processus)
.instruction_courante,	.instruction_courante,
(((s_etat_processus).s_liste_variables	(((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet)
.position_variable_courante]).objet)
.type);	.type);
}	}

Line 784 sequenceur(struct_processus *s_etat_proc	Line 784 sequenceur(struct_processus *s_etat_proc
}	}

if ((s_objet = copie_objet(s_etat_processus,	if ((s_objet = copie_objet(s_etat_processus,
((*s_etat_processus)	((s_etat_processus)
.s_liste_variables[(*s_etat_processus)	.pointeur_variable_courante).objet, 'P'))
.position_variable_courante]).objet, 'P'))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 820 sequenceur(struct_processus *s_etat_proc	Line 819 sequenceur(struct_processus *s_etat_proc
{	{
if ((*s_etat_processus).l_base_pile == NULL)	if ((*s_etat_processus).l_base_pile == NULL)
{	{
(*s_etat_processus).erreur_execution =	if ((*s_etat_processus).erreur_execution !=
d_ex_manque_argument;	d_ex_nom_implicite)
	{
	(*s_etat_processus).erreur_execution =
	d_ex_manque_argument;
	}
}	}
else if ((((*s_etat_processus).l_base_pile).donnee)	else if ((((*s_etat_processus).l_base_pile).donnee)
.type == NOM)	.type == NOM)
Line 1167 sequenceur(struct_processus *s_etat_proc	Line 1170 sequenceur(struct_processus *s_etat_proc
if (recherche_variable(s_etat_processus,	if (recherche_variable(s_etat_processus,
(*s_etat_processus).instruction_courante) == d_vrai)	(*s_etat_processus).instruction_courante) == d_vrai)
{	{
if (((*s_etat_processus).s_liste_variables	if (((s_etat_processus).pointeur_variable_courante)
[(*s_etat_processus)	.objet == NULL)
.position_variable_courante]).objet == NULL)
{	{
// Variable partagée	// Variable partagée
}	}
else if ((((s_etat_processus).s_liste_variables	else if ((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante).objet).type == ADR)
.position_variable_courante]).objet).type ==
ADR)
{	{
empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);

Line 1199 sequenceur(struct_processus *s_etat_proc	Line 1199 sequenceur(struct_processus *s_etat_proc

(*s_etat_processus).position_courante =	(*s_etat_processus).position_courante =
(((unsigned long )	(((unsigned long )
((((s_etat_processus).s_liste_variables	((((*s_etat_processus)
[(*s_etat_processus)	.pointeur_variable_courante)
.position_variable_courante]	.objet).objet)));
.objet)).objet)));

(*s_etat_processus)	(*s_etat_processus)
.autorisation_empilement_programme = 'N';	.autorisation_empilement_programme = 'N';
Line 1409 sequenceur(struct_processus *s_etat_proc	Line 1408 sequenceur(struct_processus *s_etat_proc

if ((*s_etat_processus).var_volatile_processus_pere == 0)	if ((*s_etat_processus).var_volatile_processus_pere == 0)
{	{
kill((*s_etat_processus).pid_processus_pere, SIGALRM);	envoi_signal_processus((*s_etat_processus).pid_processus_pere,
	rpl_sigalrm);
}	}
else	else
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.31
changed lines
	Added in v.1.54