rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/types.c between versions 1.4 and 1.18

version 1.4, 2010/02/08 19:26:32	version 1.18, 2010/07/14 14:19:40
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.10	RPL/2 (R) version 4.0.18
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 176 recherche_type(struct_processus *s_etat_	Line 176 recherche_type(struct_processus *s_etat_

(*s_objet).type = FCT;	(*s_objet).type = FCT;
(*s_objet).objet = element;	(*s_objet).objet = element;
	(((struct_fonction ) (*s_objet).objet)).prediction_saut = NULL;
	(((struct_fonction ) (*s_objet).objet)).prediction_execution
	= d_faux;

if (empilement(s_etat_processus,	if (empilement(s_etat_processus,
&((*s_etat_processus).l_base_pile), s_objet) == d_erreur)	&((*s_etat_processus).l_base_pile), s_objet) == d_erreur)
Line 373 recherche_type(struct_processus *s_etat_	Line 376 recherche_type(struct_processus *s_etat_
(*s_etat_processus).mode_execution_programme =	(*s_etat_processus).mode_execution_programme =
registre_mode_execution_programme;	registre_mode_execution_programme;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;	(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;	(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;

Line 1182 recherche_type(struct_processus *s_etat_	Line 1186 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 1230 recherche_type(struct_processus *s_etat_	Line 1235 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 1589 recherche_type(struct_processus *s_etat_	Line 1595 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 1638 recherche_type(struct_processus *s_etat_	Line 1645 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 2248 recherche_type(struct_processus *s_etat_	Line 2256 recherche_type(struct_processus *s_etat_
(*s_etat_processus).autorisation_evaluation_nom =	(*s_etat_processus).autorisation_evaluation_nom =
autorisation_evaluation_nom;	autorisation_evaluation_nom;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;	(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;	(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;

Line 2315 recherche_type(struct_processus *s_etat_	Line 2324 recherche_type(struct_processus *s_etat_
(*s_etat_processus).autorisation_evaluation_nom =	(*s_etat_processus).autorisation_evaluation_nom =
autorisation_evaluation_nom;	autorisation_evaluation_nom;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;	(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;	(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;

Line 2363 recherche_type(struct_processus *s_etat_	Line 2373 recherche_type(struct_processus *s_etat_
(*s_etat_processus).autorisation_evaluation_nom =	(*s_etat_processus).autorisation_evaluation_nom =
autorisation_evaluation_nom;	autorisation_evaluation_nom;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;	(*s_etat_processus).l_base_pile_systeme = s_sauvegarde_pile;
(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;	(*s_etat_processus).niveau_courant = sauvegarde_niveau_courant;

Line 2731 recherche_type(struct_processus *s_etat_	Line 2742 recherche_type(struct_processus *s_etat_
(*s_sous_objet).type = FCT;	(*s_sous_objet).type = FCT;

if (((s_sous_objet).objet = (void )	if (((s_sous_objet).objet = (void )
allocation(s_etat_processus, FCT))	malloc(sizeof(struct_fonction)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 2811 recherche_type(struct_processus *s_etat_	Line 2822 recherche_type(struct_processus *s_etat_

while((*ptr_lecture) != d_code_fin_chaine)	while((*ptr_lecture) != d_code_fin_chaine)
{	{
if ((*ptr_lecture) == '\\')
{
if ((*(ptr_lecture + 1)) == '"')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
}
}
else if ((*(ptr_lecture + 1)) == 'b')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
(*ptr_lecture) = '\b';
}
}
else if ((*(ptr_lecture + 1)) == 'n')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
(*ptr_lecture) = '\n';
}
}
else if ((*(ptr_lecture + 1)) == 't')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
(*ptr_lecture) = '\t';
}
}
else if ((*(ptr_lecture + 1)) == '\\')
{
if ((*(ptr_lecture + 2)) != d_code_fin_chaine)
{
ptr_lecture++;
}
}
}

ptr_ecriture++ = ptr_lecture++;	ptr_ecriture++ = ptr_lecture++;
}	}

(*(--ptr_ecriture)) = d_code_fin_chaine;	(*(--ptr_ecriture)) = d_code_fin_chaine;

if ((element = realloc(element, (strlen((unsigned char *)
element) + 1) * sizeof(unsigned char))) == NULL)
{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible =
registre_interruption;
return;
}

break;	break;
}	}

Line 2987 recherche_type(struct_processus *s_etat_	Line 2947 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 3036 recherche_type(struct_processus *s_etat_	Line 2997 recherche_type(struct_processus *s_etat_

(*s_etat_processus).instruction_courante = tampon;	(*s_etat_processus).instruction_courante = tampon;

	effacement_pile_systeme(s_etat_processus);
(*s_etat_processus).l_base_pile_systeme =	(*s_etat_processus).l_base_pile_systeme =
s_sauvegarde_pile;	s_sauvegarde_pile;
(*s_etat_processus).niveau_courant =	(*s_etat_processus).niveau_courant =
Line 3086 recherche_type(struct_processus *s_etat_	Line 3048 recherche_type(struct_processus *s_etat_

nombre_lignes = profondeur_finale - profondeur_initiale;	nombre_lignes = profondeur_finale - profondeur_initiale;

element = (void ) ((struct_tableau ) malloc(	if ((element = malloc(sizeof(struct_tableau))) == NULL)
sizeof(struct_tableau)));

if (element == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;
Line 3169 recherche_type(struct_processus *s_etat_	Line 3128 recherche_type(struct_processus *s_etat_
d_es_allocation_memoire;	d_es_allocation_memoire;
}	}

	free(s_objet);

(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;
return;	return;
Line 3519 recherche_type(struct_processus *s_etat_	Line 3480 recherche_type(struct_processus *s_etat_
&((*s_etat_processus).l_base_pile), s_objet) == d_erreur)	&((*s_etat_processus).l_base_pile), s_objet) == d_erreur)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
(*s_etat_processus).traitement_interruptible = registre_interruption;	(*s_etat_processus).traitement_interruptible =
	registre_interruption;
return;	return;
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.4
changed lines
	Added in v.1.18