rpl/src/formateur.c - diff

Return to formateur.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/formateur.c between versions 1.65 and 1.72

CVSweb interface <joel.bertrand@systella.fr>

version 1.65, 2013/09/06 10:30:51	version 1.72, 2015/01/05 13:12:31
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.16	RPL/2 (R) version 4.1.19
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2015 Dr. BERTRAND Joël

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

Line 119 formateur(struct_processus *s_etat_proce	Line 119 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

	# pragma GCC diagnostic push
	# pragma GCC diagnostic ignored "-Wpointer-to-int-cast"

if (alsprintf(&chaine, "Library $ %016llX [%s]",	if (alsprintf(&chaine, "Library $ %016llX [%s]",
(unsigned long long) (((struct_bibliotheque )	(unsigned long long) (((struct_bibliotheque )
(s_objet).objet)).descripteur, (((struct_bibliotheque *)	(s_objet).objet)).descripteur, (((struct_bibliotheque *)
Line 127 formateur(struct_processus *s_etat_proce	Line 130 formateur(struct_processus *s_etat_proce
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
}	}

	# pragma GCC diagnostic pop

}	}
else if ((*s_objet).type == SPH)	else if ((*s_objet).type == SPH)
{	{
Line 137 formateur(struct_processus *s_etat_proce	Line 143 formateur(struct_processus *s_etat_proce
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

	# pragma GCC diagnostic push
	# pragma GCC diagnostic ignored "-Wpointer-to-int-cast"

if (alsprintf(&chaine, "Semaphore $ %016llX '%s'", (unsigned long long)	if (alsprintf(&chaine, "Semaphore $ %016llX '%s'", (unsigned long long)
&((((struct_semaphore ) (*s_objet).objet)).semaphore),	&((((struct_semaphore ) (*s_objet).objet)).semaphore),
(((struct_semaphore ) (*s_objet).objet)).nom) < 0)	(((struct_semaphore ) (*s_objet).objet)).nom) < 0)
Line 144 formateur(struct_processus *s_etat_proce	Line 153 formateur(struct_processus *s_etat_proce
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
}	}

	# pragma GCC diagnostic pop

}	}
else if ((*s_objet).type == SQL)	else if ((*s_objet).type == SQL)
{	{
Line 687 formateur(struct_processus *s_etat_proce	Line 699 formateur(struct_processus *s_etat_proce
\|\| ((*s_etat_processus).instruction_courante[1]	\|\| ((*s_etat_processus).instruction_courante[1]
== '-')) ? d_vrai : d_faux;	== '-')) ? d_vrai : d_faux;

	(*s_etat_processus).type_en_cours = NON;
recherche_type(s_etat_processus);	recherche_type(s_etat_processus);

if ((*s_etat_processus).erreur_execution != d_ex)	if ((*s_etat_processus).erreur_execution != d_ex)
Line 744 formateur(struct_processus *s_etat_proce	Line 757 formateur(struct_processus *s_etat_proce
{	{
if ((strcmp(chaine_fonction, "AND") == 0) \|\|	if ((strcmp(chaine_fonction, "AND") == 0) \|\|
(strcmp(chaine_fonction, "XOR") == 0) \|\|	(strcmp(chaine_fonction, "XOR") == 0) \|\|
	(strcmp(chaine_fonction, "EQV") == 0) \|\|
(strcmp(chaine_fonction, "OR") == 0))	(strcmp(chaine_fonction, "OR") == 0))
{	{
autorisation_parenthese = d_vrai;	autorisation_parenthese = d_vrai;
Line 770 formateur(struct_processus *s_etat_proce	Line 784 formateur(struct_processus *s_etat_proce
(strcmp(chaine_fonction, "-") == 0) \|\|	(strcmp(chaine_fonction, "-") == 0) \|\|
(strcmp(chaine_fonction, "AND") == 0) \|\|	(strcmp(chaine_fonction, "AND") == 0) \|\|
(strcmp(chaine_fonction, "XOR") == 0) \|\|	(strcmp(chaine_fonction, "XOR") == 0) \|\|
	(strcmp(chaine_fonction, "EQV") == 0) \|\|
(strcmp(chaine_fonction, "OR") == 0))	(strcmp(chaine_fonction, "OR") == 0))
{	{
autorisation_parenthese = d_vrai;	autorisation_parenthese = d_vrai;
Line 850 formateur(struct_processus *s_etat_proce	Line 865 formateur(struct_processus *s_etat_proce
"'%s'", (unsigned char *)	"'%s'", (unsigned char *)
(*s_sous_objet_1).objet);	(*s_sous_objet_1).objet);

	(*s_etat_processus).type_en_cours = NON;
recherche_type(s_etat_processus);	recherche_type(s_etat_processus);

if ((*s_etat_processus).erreur_execution != d_ex)	if ((*s_etat_processus).erreur_execution != d_ex)
Line 905 formateur(struct_processus *s_etat_proce	Line 921 formateur(struct_processus *s_etat_proce
{	{
if ((strcmp(chaine_fonction, "AND") == 0) \|\|	if ((strcmp(chaine_fonction, "AND") == 0) \|\|
(strcmp(chaine_fonction, "XOR") == 0) \|\|	(strcmp(chaine_fonction, "XOR") == 0) \|\|
	(strcmp(chaine_fonction, "EQV") == 0) \|\|
(strcmp(chaine_fonction, "OR") == 0))	(strcmp(chaine_fonction, "OR") == 0))
{	{
autorisation_parenthese = d_vrai;	autorisation_parenthese = d_vrai;
Line 921 formateur(struct_processus *s_etat_proce	Line 938 formateur(struct_processus *s_etat_proce
(strcmp(chaine_fonction, "-") == 0) \|\|	(strcmp(chaine_fonction, "-") == 0) \|\|
(strcmp(chaine_fonction, "AND") == 0) \|\|	(strcmp(chaine_fonction, "AND") == 0) \|\|
(strcmp(chaine_fonction, "XOR") == 0) \|\|	(strcmp(chaine_fonction, "XOR") == 0) \|\|
	(strcmp(chaine_fonction, "EQV") == 0) \|\|
(strcmp(chaine_fonction, "OR") == 0))	(strcmp(chaine_fonction, "OR") == 0))
{	{
autorisation_parenthese = d_vrai;	autorisation_parenthese = d_vrai;
Line 1147 formateur(struct_processus *s_etat_proce	Line 1165 formateur(struct_processus *s_etat_proce
((l_element_courant).donnee).objet)).nom_fonction,	((l_element_courant).donnee).objet)).nom_fonction,
"XOR") == 0) \|\| (strcmp((((struct_fonction )	"XOR") == 0) \|\| (strcmp((((struct_fonction )
((l_element_courant).donnee).objet)).nom_fonction,	((l_element_courant).donnee).objet)).nom_fonction,
	"EQV") == 0) \|\| (strcmp((((struct_fonction )
	((l_element_courant).donnee).objet)).nom_fonction,
"AND") == 0))	"AND") == 0))
{	{
if (depilement(s_etat_processus, &((*s_etat_processus)	if (depilement(s_etat_processus, &((*s_etat_processus)
Line 1191 formateur(struct_processus *s_etat_proce	Line 1211 formateur(struct_processus *s_etat_proce
"'%s'", (unsigned char *)	"'%s'", (unsigned char *)
(*s_sous_objet_1).objet);	(*s_sous_objet_1).objet);

	(*s_etat_processus).type_en_cours = NON;
recherche_type(s_etat_processus);	recherche_type(s_etat_processus);

if ((*s_etat_processus).erreur_execution != d_ex)	if ((*s_etat_processus).erreur_execution != d_ex)
Line 1236 formateur(struct_processus *s_etat_proce	Line 1257 formateur(struct_processus *s_etat_proce
}	}

if (((strcmp(chaine_fonction, "OR") == 0) \|\|	if (((strcmp(chaine_fonction, "OR") == 0) \|\|
	(strcmp(chaine_fonction, "EQV") == 0) \|\|
(strcmp(chaine_fonction, "XOR") == 0)) &&	(strcmp(chaine_fonction, "XOR") == 0)) &&
(strcmp((((struct_fonction )	(strcmp((((struct_fonction )
((l_element_courant).donnee).objet))	((l_element_courant).donnee).objet))
Line 1266 formateur(struct_processus *s_etat_proce	Line 1288 formateur(struct_processus *s_etat_proce
"'%s'", (unsigned char *)	"'%s'", (unsigned char *)
(*s_sous_objet_2).objet);	(*s_sous_objet_2).objet);

	(*s_etat_processus).type_en_cours = NON;
recherche_type(s_etat_processus);	recherche_type(s_etat_processus);

if ((*s_etat_processus).erreur_execution != d_ex)	if ((*s_etat_processus).erreur_execution != d_ex)
Line 1311 formateur(struct_processus *s_etat_proce	Line 1334 formateur(struct_processus *s_etat_proce
}	}

if (((strcmp(chaine_fonction, "OR") == 0) \|\|	if (((strcmp(chaine_fonction, "OR") == 0) \|\|
	(strcmp(chaine_fonction, "EQV") == 0) \|\|
(strcmp(chaine_fonction, "XOR") == 0)) &&	(strcmp(chaine_fonction, "XOR") == 0)) &&
(strcmp((((struct_fonction )	(strcmp((((struct_fonction )
((l_element_courant).donnee).objet))	((l_element_courant).donnee).objet))

Removed from v.1.65
changed lines
	Added in v.1.72