rpl/src/formateur_fichiers.c - diff

Return to formateur_fichiers.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/formateur_fichiers.c between versions 1.73 and 1.82

version 1.73, 2013/06/21 14:15:52	version 1.82, 2015/01/27 14:18:06
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.15	RPL/2 (R) version 4.1.20
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 234 formateur_fichier(struct_processus *s_et	Line 234 formateur_fichier(struct_processus *s_et
.instruction_courante[1]	.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 293 formateur_fichier(struct_processus *s_et	Line 294 formateur_fichier(struct_processus *s_et
if ((strcmp(chaine_fonction, "AND") == 0) \|\|	if ((strcmp(chaine_fonction, "AND") == 0) \|\|
(strcmp(chaine_fonction, "XOR") ==	(strcmp(chaine_fonction, "XOR") ==
0) \|\| (strcmp(chaine_fonction, "OR")	0) \|\| (strcmp(chaine_fonction, "OR")
== 0))	== 0) \|\| (strcmp(chaine_fonction,
	"EQV") == 0))
{	{
autorisation_parenthese = d_vrai;	autorisation_parenthese = d_vrai;
}	}
Line 320 formateur_fichier(struct_processus *s_et	Line 322 formateur_fichier(struct_processus *s_et
\|\| (strcmp(chaine_fonction, "AND")	\|\| (strcmp(chaine_fonction, "AND")
== 0) \|\| (strcmp(chaine_fonction,	== 0) \|\| (strcmp(chaine_fonction,
"XOR") == 0) \|\| (strcmp(	"XOR") == 0) \|\| (strcmp(
chaine_fonction, "OR") == 0))	chaine_fonction, "OR") == 0) \|\|
	(strcmp(chaine_fonction, "EQV")
	== 0))
{	{
autorisation_parenthese = d_vrai;	autorisation_parenthese = d_vrai;
}	}
Line 401 formateur_fichier(struct_processus *s_et	Line 405 formateur_fichier(struct_processus *s_et
"'%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 458 formateur_fichier(struct_processus *s_et	Line 463 formateur_fichier(struct_processus *s_et
if ((strcmp(chaine_fonction, "AND") == 0) \|\|	if ((strcmp(chaine_fonction, "AND") == 0) \|\|
(strcmp(chaine_fonction, "XOR") ==	(strcmp(chaine_fonction, "XOR") ==
0) \|\| (strcmp(chaine_fonction, "OR")	0) \|\| (strcmp(chaine_fonction, "OR")
== 0))	== 0) \|\| (strcmp(chaine_fonction,
	"EQV") == 0))
{	{
autorisation_parenthese = d_vrai;	autorisation_parenthese = d_vrai;
}	}
Line 475 formateur_fichier(struct_processus *s_et	Line 481 formateur_fichier(struct_processus *s_et
\|\| (strcmp(chaine_fonction, "AND")	\|\| (strcmp(chaine_fonction, "AND")
== 0) \|\| (strcmp(chaine_fonction,	== 0) \|\| (strcmp(chaine_fonction,
"XOR") == 0) \|\| (strcmp(	"XOR") == 0) \|\| (strcmp(
chaine_fonction, "OR") == 0))	chaine_fonction, "OR") == 0) \|\|
	(strcmp(chaine_fonction, "EQV")
	== 0))
{	{
autorisation_parenthese = d_vrai;	autorisation_parenthese = d_vrai;
}	}
Line 716 formateur_fichier(struct_processus *s_et	Line 724 formateur_fichier(struct_processus *s_et
"XOR") == 0) \|\| (strcmp((((struct_fonction )	"XOR") == 0) \|\| (strcmp((((struct_fonction )
((l_element_courant).donnee).objet))	((l_element_courant).donnee).objet))
.nom_fonction,	.nom_fonction,
"AND") == 0))	"AND") == 0) \|\| (strcmp((((struct_fonction )
	((l_element_courant).donnee).objet))
	.nom_fonction, "EQV") == 0))
{	{
if (depilement(s_etat_processus,	if (depilement(s_etat_processus,
&((*s_etat_processus)	&((*s_etat_processus)
Line 1531 formateur_fichier(struct_processus *s_et	Line 1541 formateur_fichier(struct_processus *s_et
}	}
else	else
{	{
if ((format_chaine = conversion_majuscule((unsigned char *)	if ((format_chaine = conversion_majuscule(
	s_etat_processus, (unsigned char *)
((l_element_courant_format).donnee).objet))	((l_element_courant_format).donnee).objet))
== NULL)	== NULL)
{	{
Line 1933 formateur_fichier(struct_processus *s_et	Line 1944 formateur_fichier(struct_processus *s_et
else	else
{	{
if ((format_chaine = conversion_majuscule(	if ((format_chaine = conversion_majuscule(
	s_etat_processus,
(unsigned char ) ((((struct_tableau )	(unsigned char ) ((((struct_tableau )
(*s_format).objet)).elements[i]).objet))	(*s_format).objet)).elements[i]).objet))
== NULL)	== NULL)
Line 3757 formateur_fichier(struct_processus *s_et	Line 3769 formateur_fichier(struct_processus *s_et
}	}
else	else
{	{
if ((format_chaine = conversion_majuscule((unsigned char *)	if ((format_chaine = conversion_majuscule(
	s_etat_processus, (unsigned char *)
((l_element_courant_format).donnee).objet))	((l_element_courant_format).donnee).objet))
== NULL)	== NULL)
{	{

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.73
changed lines
	Added in v.1.82