rpl/src/types.c - diff

Return to types.c CVS log

Up to [local] / rpl / src

version 1.88, 2017/07/12 15:43:07	version 1.90, 2017/08/03 17:17:51
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.27	RPL/2 (R) version 4.1.28
Copyright (C) 1989-2017 Dr. BERTRAND Joël	Copyright (C) 1989-2017 Dr. BERTRAND Joël

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

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;