[BACK]Return to interface_cas.cpp CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/interface_cas.cpp between versions 1.55 and 1.67

version 1.55, 2017/08/03 17:17:49 version 1.67, 2021/03/13 12:50:51
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.28    RPL/2 (R) version 4.1.33
   Copyright (C) 1989-2017 Dr. BERTRAND Joël    Copyright (C) 1989-2021 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 21 Line 21
   
   
 #ifdef RPLCAS  #ifdef RPLCAS
   #   define RPLCXX
   
 // Giac inclut <semaphore.h> et définit sem_t. Or l'émulation  // Giac inclut <semaphore.h> et définit sem_t. Or l'émulation
 // des IPCS POSIX requiert une redéfinition de sem_t.  // des IPCS POSIX requiert une redéfinition de sem_t.
Line 37 Line 38
 #   pragma GCC diagnostic ignored "-Wunused-parameter"  #   pragma GCC diagnostic ignored "-Wunused-parameter"
 #   pragma GCC diagnostic ignored "-Wempty-body"  #   pragma GCC diagnostic ignored "-Wempty-body"
 #   pragma GCC diagnostic ignored "-Wunknown-pragmas"  #   pragma GCC diagnostic ignored "-Wunknown-pragmas"
 #   include "giac.h"  #   include "giacPCH.h"
 #   pragma GCC diagnostic pop  #   pragma GCC diagnostic pop
   
 #   undef PACKAGE  #   undef PACKAGE
Line 132  conversion_rpl_vers_cas(struct_processus Line 133  conversion_rpl_vers_cas(struct_processus
   
             liberation(s_etat_processus, *s_objet);              liberation(s_etat_processus, *s_objet);
   
             if (depilement(s_etat_processus, &(s_etat_processus              if (depilement(s_etat_processus, &(s_etat_processus->l_base_pile),
                     ->l_base_pile), s_objet) == d_erreur)                      s_objet) == d_erreur)
             {              {
                 return(NULL);                  return(NULL);
             }              }
Line 235  conversion_rpl_vers_cas(struct_processus Line 236  conversion_rpl_vers_cas(struct_processus
             strstr(reinterpret_cast<char *>(index),              strstr(reinterpret_cast<char *>(index),
             (const char *) "relax"))) != NULL)              (const char *) "relax"))) != NULL)
     {      {
         strncpy(reinterpret_cast<char *>(index), "    +", 5);          memcpy(reinterpret_cast<char *>(index), "    +", 5);
     }      }
   
     // Si le résultat vaut infinity, on rajoute le signe +.      // Si le résultat vaut infinity, on rajoute le signe +.
Line 448  interface_cas(struct_processus *s_etat_p Line 449  interface_cas(struct_processus *s_etat_p
         {          {
             s_etat_processus->contexte_cas = new giac::context;              s_etat_processus->contexte_cas = new giac::context;
         }          }
         catch(bad_alloc exception)          catch(bad_alloc &exception)
         {          {
             s_etat_processus->erreur_systeme = d_es_allocation_memoire;              s_etat_processus->erreur_systeme = d_es_allocation_memoire;
             return;              return;
Line 463  interface_cas(struct_processus *s_etat_p Line 464  interface_cas(struct_processus *s_etat_p
     contexte = reinterpret_cast<giac::context *>(      contexte = reinterpret_cast<giac::context *>(
             s_etat_processus->contexte_cas);              s_etat_processus->contexte_cas);
   
       giac::angle_radian((test_cfsf(s_etat_processus, 60) == d_vrai) ? 1 : 0,
               contexte);
   
     if ((s_etat_processus->erreur_execution != d_ex) ||      if ((s_etat_processus->erreur_execution != d_ex) ||
             (s_etat_processus->erreur_systeme != d_es))              (s_etat_processus->erreur_systeme != d_es))
     {      {
Line 522  interface_cas(struct_processus *s_etat_p Line 526  interface_cas(struct_processus *s_etat_p
                         reinterpret_cast<unsigned char *>(const_cast<char *>(                          reinterpret_cast<unsigned char *>(const_cast<char *>(
                         chaine.c_str())));                          chaine.c_str())));
             }              }
             catch(bad_alloc exception)              catch(bad_alloc &exception)
             {              {
                 s_etat_processus->erreur_systeme = d_es_allocation_memoire;                  s_etat_processus->erreur_systeme = d_es_allocation_memoire;
             }              }
Line 683  interface_cas(struct_processus *s_etat_p Line 687  interface_cas(struct_processus *s_etat_p
                         reinterpret_cast<unsigned char *>(const_cast<char *>(                          reinterpret_cast<unsigned char *>(const_cast<char *>(
                         chaine.c_str())));                          chaine.c_str())));
             }              }
             catch(bad_alloc exception)              catch(bad_alloc &exception)
             {              {
                 s_etat_processus->erreur_systeme = d_es_allocation_memoire;                  s_etat_processus->erreur_systeme = d_es_allocation_memoire;
             }              }
Line 703  interface_cas(struct_processus *s_etat_p Line 707  interface_cas(struct_processus *s_etat_p
   
             break;              break;
         }          }
   
           case RPLCAS_SIMPLIFICATION:
           {
               if (depilement(s_etat_processus, &(s_etat_processus->l_base_pile),
                       &s_objet_argument_1) == d_erreur)
               {
                   s_etat_processus->erreur_execution = d_ex_manque_argument;
                   return;
               }
   
               if ((argument_1 = conversion_rpl_vers_cas(s_etat_processus,
                       &s_objet_argument_1)) == NULL)
               {
                   s_etat_processus->erreur_systeme = d_es_allocation_memoire;
                   return;
               }
   
               liberation(s_etat_processus, s_objet_argument_1);
   
               try
               {
                   gen expression(
                           string(reinterpret_cast<const char *>(argument_1)),
                           contexte);
   
                   gen resultat = simplify(expression, contexte);
                   string chaine = "'" + resultat.print() + "'";
   
                   conversion_cas_vers_rpl(s_etat_processus,
                           reinterpret_cast<unsigned char *>(const_cast<char *>(
                           chaine.c_str())));
               }
               catch(bad_alloc &exception)
               {
                   s_etat_processus->erreur_systeme = d_es_allocation_memoire;
               }
               catch(...)
               {
                   s_etat_processus->erreur_execution = d_ex_erreur_interne_rplcas;
               }
   
               free(argument_1);
   
               break;
           }
     }      }
   
     return;      return;
Removed from v.1.55  
changed lines
  Added in v.1.67

CVSweb interface <joel.bertrand@systella.fr>