version 1.70, 2014/07/17 08:07:17
|
version 1.72, 2015/01/05 13:12:31
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.19 |
RPL/2 (R) version 4.1.19 |
Copyright (C) 1989-2014 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 699 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 756 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 782 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 862 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 917 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 933 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 1159 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 1203 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 1248 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 1278 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 1323 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)) |