[BACK]Return to sequenceur.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/sequenceur.c between versions 1.1.1.1 and 1.5

version 1.1.1.1, 2010/01/26 15:22:45 version 1.5, 2010/02/10 10:14:26
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.9    RPL/2 (R) version 4.0.11
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2010 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 25 Line 25
   
 /*  /*
 ================================================================================  ================================================================================
   Boucle principale de l'interpréteur RPL/2    Boucle principale de l'interprète RPL/2
 ================================================================================  ================================================================================
   Entrées : structure sur l'état du processus    Entrées : structure sur l'état du processus
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
Line 41  sequenceur(struct_processus *s_etat_proc Line 41  sequenceur(struct_processus *s_etat_proc
     struct_liste_chainee        *l_element_courant;      struct_liste_chainee        *l_element_courant;
   
     struct_objet                *s_objet;      struct_objet                *s_objet;
       struct_objet                *s_objet_evaluation;
     struct_objet                *s_sous_objet;      struct_objet                *s_sous_objet;
   
     logical1                    drapeau_appel_definition;      logical1                    drapeau_appel_definition;
Line 103  sequenceur(struct_processus *s_etat_proc Line 104  sequenceur(struct_processus *s_etat_proc
   
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Boucle de l'interpréteur RPL/2    Boucle de l'interprète RPL/2
   On boucle tant qu'on n'a pas une bonne raison de sortir...    On boucle tant qu'on n'a pas une bonne raison de sortir...
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
Line 497  sequenceur(struct_processus *s_etat_proc Line 498  sequenceur(struct_processus *s_etat_proc
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Dans le cas où une instruction est retournée, celle-ci est évaluée. Dans le    Dans le cas où une instruction est retournée, celle-ci est évaluée. Dans le
   cas contraire, l'interpréteur renvoie un message d'erreur et s'interrompt.    cas contraire, l'interprète renvoie un message d'erreur et s'interrompt.
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
Line 805  sequenceur(struct_processus *s_etat_proc Line 806  sequenceur(struct_processus *s_etat_proc
   
                     (*s_etat_processus).erreur_systeme = d_es;                      (*s_etat_processus).erreur_systeme = d_es;
                     recherche_type(s_etat_processus);                      recherche_type(s_etat_processus);
   
                       // Le séquenceur est appelé depuis la routine d'évaluation
   
                       if ((*s_etat_processus).evaluation_forcee == 'Y')
                       {
                           if (depilement(s_etat_processus,
                                   &((*s_etat_processus).l_base_pile),
                                   &s_objet_evaluation) == d_erreur)
                           {
                               (*s_etat_processus).erreur_execution =
                                       d_ex_manque_argument;
                               return(d_erreur);
                           }
   
                           if (evaluation(s_etat_processus, s_objet_evaluation,
                                   'N') == d_erreur)
                           {
                               liberation(s_etat_processus, s_objet_evaluation);
                               return(d_erreur);
                           }
   
                           liberation(s_etat_processus, s_objet_evaluation);
                       }
                 }                  }
             }              }
             else if (((*s_etat_processus).test_instruction == 'Y') &&              else if (((*s_etat_processus).test_instruction == 'Y') &&
Removed from v.1.1.1.1  
changed lines
  Added in v.1.5

CVSweb interface <joel.bertrand@systella.fr>