version 1.15, 2011/08/09 11:31:36
|
version 1.46, 2015/02/19 11:01:28
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.3 |
RPL/2 (R) version 4.1.21 |
Copyright (C) 1989-2011 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 21
|
Line 21
|
|
|
|
|
#ifdef RPLCAS |
#ifdef RPLCAS |
|
|
|
// Giac inclut <semaphore.h> 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" |
# include "giac.h" |
# include "giac.h" |
|
# pragma GCC diagnostic pop |
|
|
# undef PACKAGE |
# undef PACKAGE |
# undef PACKAGE_NAME |
# undef PACKAGE_NAME |
Line 57 liberation_contexte_cas(struct_processus
|
Line 73 liberation_contexte_cas(struct_processus
|
{ |
{ |
if (s_etat_processus->contexte_cas != NULL) |
if (s_etat_processus->contexte_cas != NULL) |
{ |
{ |
|
# ifdef RPLCAS |
delete reinterpret_cast<giac::context *>( |
delete reinterpret_cast<giac::context *>( |
s_etat_processus->contexte_cas); |
s_etat_processus->contexte_cas); |
|
# endif |
s_etat_processus->contexte_cas = NULL; |
s_etat_processus->contexte_cas = NULL; |
} |
} |
|
|
return; |
return; |
} |
} |
|
|
|
#ifdef RPLCAS |
static unsigned char * |
static unsigned char * |
conversion_rpl_vers_cas(struct_processus *s_etat_processus, |
conversion_rpl_vers_cas(struct_processus *s_etat_processus, |
struct_objet **s_objet) |
struct_objet **s_objet) |
Line 72 conversion_rpl_vers_cas(struct_processus
|
Line 91 conversion_rpl_vers_cas(struct_processus
|
logical1 drapeau; |
logical1 drapeau; |
|
|
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_precedent; |
|
|
|
struct_objet *s_objet_temporaire; |
struct_objet *s_objet_temporaire; |
|
|
Line 203 conversion_rpl_vers_cas(struct_processus
|
Line 221 conversion_rpl_vers_cas(struct_processus
|
} |
} |
} |
} |
|
|
l_element_precedent = l_element_courant; |
|
l_element_courant = l_element_courant->suivant; |
l_element_courant = l_element_courant->suivant; |
} |
} |
} |
} |
Line 257 conversion_cas_vers_rpl(struct_processus
|
Line 274 conversion_cas_vers_rpl(struct_processus
|
logical1 drapeau; |
logical1 drapeau; |
|
|
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_courant; |
struct_liste_chainee *l_element_precedent; |
|
|
|
struct_objet *s_objet; |
struct_objet *s_objet; |
|
|
Line 330 conversion_cas_vers_rpl(struct_processus
|
Line 346 conversion_cas_vers_rpl(struct_processus
|
|
|
if ((s_objet->type == ALG) || (s_objet->type == RPN)) |
if ((s_objet->type == ALG) || (s_objet->type == RPN)) |
{ |
{ |
l_element_precedent = NULL; |
|
l_element_courant = reinterpret_cast<struct_liste_chainee *>( |
l_element_courant = reinterpret_cast<struct_liste_chainee *>( |
s_objet->objet); |
s_objet->objet); |
|
|
Line 376 conversion_cas_vers_rpl(struct_processus
|
Line 391 conversion_cas_vers_rpl(struct_processus
|
} |
} |
} |
} |
|
|
l_element_precedent = l_element_courant; |
|
l_element_courant = l_element_courant->suivant; |
l_element_courant = l_element_courant->suivant; |
} |
} |
} |
} |
Line 389 conversion_cas_vers_rpl(struct_processus
|
Line 403 conversion_cas_vers_rpl(struct_processus
|
|
|
return; |
return; |
} |
} |
|
#endif |
|
|
|
|
/* |
/* |
Line 404 conversion_cas_vers_rpl(struct_processus
|
Line 419 conversion_cas_vers_rpl(struct_processus
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
|
#pragma GCC diagnostic push |
|
#pragma GCC diagnostic ignored "-Wunused-parameter" |
void |
void |
interface_cas(struct_processus *s_etat_processus, |
interface_cas(struct_processus *s_etat_processus, |
enum t_rplcas_commandes commande) |
enum t_rplcas_commandes commande) |
{ |
{ |
# ifdef RPLCAS |
#ifdef RPLCAS |
struct_objet *s_objet_argument_1; |
struct_objet *s_objet_argument_1; |
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_temporaire; |
struct_objet *s_objet_temporaire; |
Line 561 interface_cas(struct_processus *s_etat_p
|
Line 578 interface_cas(struct_processus *s_etat_p
|
l_element_courant = reinterpret_cast<struct_liste_chainee *> |
l_element_courant = reinterpret_cast<struct_liste_chainee *> |
(s_objet_argument_1->objet); |
(s_objet_argument_1->objet); |
position = 1; |
position = 1; |
|
argument_1 = NULL; |
|
argument_3 = NULL; |
argument_4 = NULL; |
argument_4 = NULL; |
|
|
while(l_element_courant != NULL) |
while(l_element_courant != NULL) |
Line 686 interface_cas(struct_processus *s_etat_p
|
Line 705 interface_cas(struct_processus *s_etat_p
|
} |
} |
|
|
return; |
return; |
|
|
#else |
#else |
|
|
if (s_etat_processus->langue == 'F') |
if (s_etat_processus->langue == 'F') |
Line 704 interface_cas(struct_processus *s_etat_p
|
Line 722 interface_cas(struct_processus *s_etat_p
|
|
|
#endif |
#endif |
} |
} |
|
#pragma GCC diagnostic pop |
|
|
// vim: ts=4 |
// vim: ts=4 |