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.85 and 1.91

version 1.85, 2017/06/29 14:54:42	version 1.91, 2018/05/30 09:27:39
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.27	RPL/2 (R) version 4.1.29
Copyright (C) 1989-2017 Dr. BERTRAND Joël	Copyright (C) 1989-2018 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 56 recherche_type(struct_processus *s_etat_	Line 56 recherche_type(struct_processus *s_etat_
integer8 profondeur_initiale;	integer8 profondeur_initiale;
integer8 sauvegarde_niveau_courant;	integer8 sauvegarde_niveau_courant;
integer8 sauvegarde_longueur_definitions_chainees;	integer8 sauvegarde_longueur_definitions_chainees;
integer8 (*__type_new)(struct_processus	integer8 (__type_new)(struct_processus , void **);
s_etat_processus, void *arg);

struct_liste_chainee *l_base_liste_fonctions;	struct_liste_chainee *l_base_liste_fonctions;
struct_liste_chainee *l_base_liste_decomposition;	struct_liste_chainee *l_base_liste_decomposition;
Line 119 recherche_type(struct_processus *s_etat_	Line 118 recherche_type(struct_processus *s_etat_
(*s_etat_processus).test_instruction = 'Y';	(*s_etat_processus).test_instruction = 'Y';
(*s_etat_processus).traitement_interruptible = 'N';	(*s_etat_processus).traitement_interruptible = 'N';

uprintf(".%s.\n", (*s_etat_processus).instruction_courante);
analyse(s_etat_processus, NULL);	analyse(s_etat_processus, NULL);

(*s_etat_processus).test_instruction = registre_test;	(*s_etat_processus).test_instruction = registre_test;
Line 284 uprintf(".%s.\n", (*s_etat_processus).in	Line 282 uprintf(".%s.\n", (*s_etat_processus).in

(*s_objet).objet = element;	(*s_objet).objet = element;
(*s_objet).type = EXT;	(*s_objet).type = EXT;
	(*s_objet).descripteur_bibliotheque =
	(((struct_bibliotheque )
	(*l_element_courant).donnee)).descripteur;

if (empilement(s_etat_processus,	if (empilement(s_etat_processus,
&((*s_etat_processus).l_base_pile), s_objet)	&((*s_etat_processus).l_base_pile), s_objet)
Line 3541 uprintf(".%s.\n", (*s_etat_processus).in	Line 3542 uprintf(".%s.\n", (*s_etat_processus).in

while((*ptr) != d_code_fin_chaine)	while((*ptr) != d_code_fin_chaine)
{	{
if ((isalnum((*ptr)) == 0) &&	if (isalnum(*ptr) != 0)
((*ptr) != '_') &&	{
((*ptr) != '$'))	ptr++;
	}
	else if (((ptr) == '_') \|\| ((ptr == '$')))
	{
	ptr++;
	}
	else
{	{
liberation(s_etat_processus, s_objet);	liberation(s_etat_processus, s_objet);

(*s_etat_processus).erreur_execution = d_ex_syntaxe;	(*s_etat_processus).erreur_execution = d_ex_syntaxe;
(*s_etat_processus).traitement_interruptible =	(*s_etat_processus).traitement_interruptible =
registre_interruption;	registre_interruption;

return;	return;
}	}

ptr++;
}	}

(*s_objet).type = NOM;	(*s_objet).type = NOM;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.85
changed lines
	Added in v.1.91