--- rpl/src/interface_cas.cpp 2011/08/06 10:32:12 1.13 +++ rpl/src/interface_cas.cpp 2021/03/13 12:50:51 1.67 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.2 - Copyright (C) 1989-2011 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.33 + Copyright (C) 1989-2021 Dr. BERTRAND Joël This file is part of RPL/2. @@ -21,7 +21,25 @@ #ifdef RPLCAS -# include "giac.h" +# define RPLCXX + +// Giac inclut et définit sem_t. Or l'émulation +// des IPCS POSIX requiert une redéfinition de sem_t. + +# ifdef IPCS_SYSV +// NetBSD : _SEMAPHORE_H_ +# define _SEMAPHORE_H_ +// Linux : _SEMAPHORE_H +# define _SEMAPHORE_H +# endif + +# pragma GCC diagnostic push +# pragma GCC diagnostic ignored "-Wstrict-aliasing" +# pragma GCC diagnostic ignored "-Wunused-parameter" +# pragma GCC diagnostic ignored "-Wempty-body" +# pragma GCC diagnostic ignored "-Wunknown-pragmas" +# include "giacPCH.h" +# pragma GCC diagnostic pop # undef PACKAGE # undef PACKAGE_NAME @@ -45,7 +63,29 @@ using namespace std; using namespace giac; #endif +void +initialisation_contexte_cas(struct_processus *s_etat_processus) +{ + s_etat_processus->contexte_cas = NULL; + return; +} + +void +liberation_contexte_cas(struct_processus *s_etat_processus) +{ + if (s_etat_processus->contexte_cas != NULL) + { +# ifdef RPLCAS + delete reinterpret_cast( + s_etat_processus->contexte_cas); +# endif + s_etat_processus->contexte_cas = NULL; + } + return; +} + +#ifdef RPLCAS static unsigned char * conversion_rpl_vers_cas(struct_processus *s_etat_processus, struct_objet **s_objet) @@ -53,7 +93,6 @@ conversion_rpl_vers_cas(struct_processus logical1 drapeau; struct_liste_chainee *l_element_courant; - struct_liste_chainee *l_element_precedent; struct_objet *s_objet_temporaire; @@ -94,8 +133,8 @@ conversion_rpl_vers_cas(struct_processus liberation(s_etat_processus, *s_objet); - if (depilement(s_etat_processus, &(s_etat_processus - ->l_base_pile), s_objet) == d_erreur) + if (depilement(s_etat_processus, &(s_etat_processus->l_base_pile), + s_objet) == d_erreur) { return(NULL); } @@ -184,7 +223,6 @@ conversion_rpl_vers_cas(struct_processus } } - l_element_precedent = l_element_courant; l_element_courant = l_element_courant->suivant; } } @@ -198,7 +236,7 @@ conversion_rpl_vers_cas(struct_processus strstr(reinterpret_cast(index), (const char *) "relax"))) != NULL) { - strncpy(reinterpret_cast(index), " +", 5); + memcpy(reinterpret_cast(index), " +", 5); } // Si le résultat vaut infinity, on rajoute le signe +. @@ -238,7 +276,6 @@ conversion_cas_vers_rpl(struct_processus logical1 drapeau; struct_liste_chainee *l_element_courant; - struct_liste_chainee *l_element_precedent; struct_objet *s_objet; @@ -311,7 +348,6 @@ conversion_cas_vers_rpl(struct_processus if ((s_objet->type == ALG) || (s_objet->type == RPN)) { - l_element_precedent = NULL; l_element_courant = reinterpret_cast( s_objet->objet); @@ -357,7 +393,6 @@ conversion_cas_vers_rpl(struct_processus } } - l_element_precedent = l_element_courant; l_element_courant = l_element_courant->suivant; } } @@ -370,6 +405,7 @@ conversion_cas_vers_rpl(struct_processus return; } +#endif /* @@ -385,11 +421,13 @@ conversion_cas_vers_rpl(struct_processus ================================================================================ */ +#pragma GCC diagnostic push +#pragma GCC diagnostic ignored "-Wunused-parameter" void interface_cas(struct_processus *s_etat_processus, enum t_rplcas_commandes commande) { -# ifdef RPLCAS +#ifdef RPLCAS struct_objet *s_objet_argument_1; struct_objet *s_objet_argument_2; struct_objet *s_objet_temporaire; @@ -403,6 +441,38 @@ interface_cas(struct_processus *s_etat_p unsigned int position; + giac::context *contexte; + + if (s_etat_processus->contexte_cas == NULL) + { + try + { + s_etat_processus->contexte_cas = new giac::context; + } + catch(bad_alloc &exception) + { + s_etat_processus->erreur_systeme = d_es_allocation_memoire; + return; + } + catch(...) + { + s_etat_processus->erreur_execution = d_ex_erreur_interne_rplcas; + return; + } + } + + contexte = reinterpret_cast( + 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) || + (s_etat_processus->erreur_systeme != d_es)) + { + return; + } + switch(commande) { case RPLCAS_INTEGRATION: @@ -441,23 +511,22 @@ interface_cas(struct_processus *s_etat_p try { - giac::context contexte; - gen variable( string(reinterpret_cast(argument_1)), - &contexte); + contexte); gen expression( string(reinterpret_cast(argument_2)), - &contexte); + contexte); - gen resultat = integrate_gen(expression, variable, &contexte); + gen resultat = integrate_gen(expression, variable, + contexte); string chaine = "'" + resultat.print() + "'"; conversion_cas_vers_rpl(s_etat_processus, reinterpret_cast(const_cast( chaine.c_str()))); } - catch(bad_alloc exception) + catch(bad_alloc &exception) { s_etat_processus->erreur_systeme = d_es_allocation_memoire; } @@ -514,6 +583,8 @@ interface_cas(struct_processus *s_etat_p l_element_courant = reinterpret_cast (s_objet_argument_1->objet); position = 1; + argument_1 = NULL; + argument_3 = NULL; argument_4 = NULL; while(l_element_courant != NULL) @@ -588,8 +659,6 @@ interface_cas(struct_processus *s_etat_p try { - giac::context contexte; - int direction; if (argument_4 == NULL) @@ -604,21 +673,21 @@ interface_cas(struct_processus *s_etat_p gen expression( string(reinterpret_cast(argument_2)), - &contexte); + contexte); identificateur variable( string(reinterpret_cast(argument_1))); gen valeur(string(reinterpret_cast - (argument_3)), &contexte); + (argument_3)), contexte); gen resultat = limit(expression, variable, valeur, direction, - &contexte); + contexte); string chaine = "'" + resultat.print() + "'"; conversion_cas_vers_rpl(s_etat_processus, reinterpret_cast(const_cast( chaine.c_str()))); } - catch(bad_alloc exception) + catch(bad_alloc &exception) { s_etat_processus->erreur_systeme = d_es_allocation_memoire; } @@ -638,10 +707,54 @@ interface_cas(struct_processus *s_etat_p 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(argument_1)), + contexte); + + gen resultat = simplify(expression, contexte); + string chaine = "'" + resultat.print() + "'"; + + conversion_cas_vers_rpl(s_etat_processus, + reinterpret_cast(const_cast( + 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; - #else if (s_etat_processus->langue == 'F') @@ -659,5 +772,6 @@ interface_cas(struct_processus *s_etat_p #endif } +#pragma GCC diagnostic pop // vim: ts=4