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

Diff for /rpl/src/rpl.h between versions 1.34 and 1.62

version 1.34, 2010/05/13 19:09:18 version 1.62, 2010/08/25 16:40:57
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.15    RPL/2 (R) version 4.0.18
   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 28 Line 28
 #define _REENTRANT  #define _REENTRANT
   
 #ifdef Darwin  #ifdef Darwin
 #   define SIGPOLL          SIGIO  #   define  _DARWIN_C_SOURCE
 #   define _DARWIN_C_SOURCE  
 #endif  #endif
   
   #ifdef OpenBSD
   #   define _BSD_SOURCE
   #endif
   
   #ifdef OS2
   #   define _BSD_SOURCE
   #   define _XOPEN_SOURCE    600
   
   #   include <types.h>
       enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR };
   #   define SHUT_RD      SHUT_RD
   #   define SHUT_WR      SHUT_WR
   #   define SHUT_RDWR    SHUT_RDWR
   
   #   include "getaddrinfo-conv.h"
   
   #   define sched_yield(arg)
   #endif
   
   
 /*  /*
 ================================================================================  ================================================================================
   INCLUSIONS    INCLUSIONS
Line 49 Line 68
   
 #ifndef RPLARGS  #ifndef RPLARGS
 #   include <sys/mman.h>  #   include <sys/mman.h>
   #   include <sys/time.h>
 #   include <sys/resource.h>  #   include <sys/resource.h>
 #   include <sys/select.h>  #   include <sys/select.h>
 #   include <sys/socket.h>  #   include <sys/socket.h>
 #   include <sys/stat.h>  #   include <sys/stat.h>
 #   include <sys/time.h>  
 #   include <sys/timeb.h>  #   include <sys/timeb.h>
 #   include <sys/types.h>  #   include <sys/types.h>
 #   include <sys/un.h>  #   include <sys/un.h>
Line 66 Line 85
 #   include <dlfcn.h>  #   include <dlfcn.h>
 #   include <fcntl.h>  #   include <fcntl.h>
 #   include <pthread.h>  #   include <pthread.h>
   
   #   ifdef OS2
   #       undef pthread_mutexattr_settype
   #       define pthread_mutexattr_settype(a, b)
   #   endif
   
 #   include <pwd.h>  #   include <pwd.h>
 #   include <semaphore.h>  
   #   ifdef _BROKEN_SIGINFO
   #       include <sys/ipc.h>
   #       include <sys/shm.h>
   #   endif
   
   #   ifndef SEMAPHORES_SYSV
   #       include <semaphore.h>
   #   else
   #       include <sys/ipc.h>
   #       include <sys/sem.h>
   
   #       ifdef OS2
   #           define INCL_DOSSEMAPHORES
   #           define INCL_DOSMEMMGR
   #           define INCL_DOSERRORS
   #           include <os2.h>
   
               typedef struct _OS2SEM
               {
                   HMTX    hmtx;
                   HEV     hev;
                   ULONG   shared;
                   ULONG   *cnt;
                   ULONG   *nopened;
                   ULONG   allocated;
               } sem_t;
   #       else
               typedef struct
               {
                   int             sem;
                   unsigned char   *path;
                   pid_t           pid;
               } sem_t;
   #       endif
   
   #       define SEM_FAILED   NULL
   
           sem_t *sem_open_SysV(const char *nom, int oflag, ...);
           int sem_init_SysV(sem_t *sem, int shared, unsigned int value);
           int sem_close_SysV(sem_t *sem);
           int sem_wait_SysV(sem_t *sem);
           int sem_trywait_SysV(sem_t *sem);
           int sem_post_SysV(sem_t *sem);
           int sem_getvalue_SysV(sem_t *sem, int *value);
           int sem_unlink_SysV(const char *nom);
           int sem_destroy_SysV(sem_t *sem);
   #   endif
   
 #   include <setjmp.h>  #   include <setjmp.h>
 #   include <signal.h>  #   include <signal.h>
 #   include <termios.h>  #   include <termios.h>
Line 120 Line 193
   
 #include "librplprototypes.h"  #include "librplprototypes.h"
   
   #ifndef RPLARGS
   #   ifndef UNIX_PATH_MAX
           struct sockaddr_un sizecheck;
   #       define UNIX_PATH_MAX sizeof(sizecheck.sun_path)
   #   endif
   #endif
   
   /*
   ================================================================================
     Bugs spécifiques
   ================================================================================
   */
   
   #ifdef _BROKEN_SIGINFO
   #   define SIGHANDLER_ARGS  int signal
   #   ifdef SA_SIGINFO
   #       undef SA_SIGINFO
   #   endif
   #   define SA_SIGINFO   0
   
   #   ifndef __BROKEN_SIGINFO_ROUTINES__
   #   define kill(pid, signal)            kill_broken_siginfo(pid, signal)
   #   define pthread_kill(tid, signal)    pthread_kill_broken_siginfo(tid, signal)
   #   endif
   
       int kill_broken_siginfo(pid_t pid, int signal);
       int pthread_kill_broken_siginfo(pthread_t tid, int signal);
       pid_t origine_signal(int signal);
   #else
   #   define SIGHANDLER_ARGS  int signal, siginfo_t *siginfo, void *context
   #endif
   
   #ifdef OpenBSD
   #   ifdef PTHREAD_SCOPE_SYSTEM
   #       undef PTHREAD_SCOPE_SYSTEM
   #   endif
   #   define PTHREAD_SCOPE_SYSTEM 0
   #endif
   
   #if ! defined(UNION_SEMUN) && defined(SEMAPHORES_SYSV)
   union semun
   {
       int                 val;
       struct semid_ds     *buf;
       unsigned short      *array;
       struct seminfo      *__buf;
   };
   #endif
   
   
   /*
   ================================================================================
     SÉMAPHORES
   ================================================================================
   */
   
   #ifdef SEMAPHORES_SYSV
   #   define sem_init(a, b, c)    sem_init_SysV(a, b, c)
   #   define sem_destroy(a)       sem_destroy_SysV(a)
   #   define sem_wait(a)          sem_wait_SysV(a)
   #   define sem_trywait(a)       sem_trywait_SysV(a)
   #   define sem_post(a)          sem_post_SysV(a)
   #   define sem_getvalue(a, b)   sem_getvalue_SysV(a, b)
   #   define sem_open(...)        sem_open_SysV(__VA_ARGS__)
   #   define sem_close(a)         sem_close_SysV(a)
   #   define sem_unlink(a)        sem_unlink_SysV(a)
   #endif
   
   
 /*  /*
 ================================================================================  ================================================================================
   SIGNAUX    SIGNAUX
Line 127 Line 269
 */  */
   
 #ifndef RPLARGS  #ifndef RPLARGS
   
   // Signaux utilisés par défaut :
   //  SIGINT
   //  SIGTSTP
   //  SIGCONT
   //  SIGURG
   //  SIGPIPE
   //  SIGALRM
   
 //  Arrêt par STOP  //  Arrêt par STOP
 #   define SIGFSTOP                 SIGUSR1  #   define SIGFSTOP                 SIGUSR1
 //  Démarrage d'un processus fils  //  Démarrage d'un processus fils
Line 134 Line 285
 //  Injection de données  //  Injection de données
 #   define SIGINJECT                SIGQUIT  #   define SIGINJECT                SIGQUIT
 //  Arrêt général  //  Arrêt général
 #   define SIGABORT                 SIGPROF  #   ifndef OpenBSD
   //  La libpthread d'OpenBSD utilise SIGPROF
   #       define SIGABORT             SIGPROF
   #   else
   #       define SIGABORT             SIGTHR
   #   endif
 //  Arrêt d'un processus fils depuis autre chose que STOP  //  Arrêt d'un processus fils depuis autre chose que STOP
 #   define SIGFABORT                SIGPOLL  #   if defined(Darwin) || defined(OpenBSD)
   #       define SIGFABORT            SIGINFO
   #   else
   #       define SIGFABORT            SIGPOLL
   #   endif
   
   //  Nombre d'interruptions disponibles
 #   define d_NOMBRE_INTERRUPTIONS   64  #   define d_NOMBRE_INTERRUPTIONS   64
 #endif  #endif
   
Line 185  typedef FILE     file; Line 347  typedef FILE     file;
 typedef unsigned char           t_8_bits;  typedef unsigned char           t_8_bits;
   
 #ifndef RPLARGS  #ifndef RPLARGS
 #   include "rpltypes.conv.h"  #   include "rpltypes-conv.h"
 #else  #else
 #   include "rpltypes.h"  #   include "rpltypes.h"
 #endif  #endif
Line 200  typedef unsigned char   t_8_bits; Line 362  typedef unsigned char   t_8_bits;
 #   ifdef SEMAPHORES_NOMMES  #   ifdef SEMAPHORES_NOMMES
 #       define LONGUEUR_NOM_SEMAPHORE   64  #       define LONGUEUR_NOM_SEMAPHORE   64
 #   endif  #   endif
   
 #   ifndef MAIN_RPL  #   ifndef MAIN_RPL
   #       ifdef _BROKEN_SIGINFO
               extern int              *fifos_signaux;
   #       endif
   
         extern jmp_buf              contexte;          extern jmp_buf              contexte;
         extern jmp_buf              contexte_initial;          extern jmp_buf              contexte_initial;
   
Line 237  typedef unsigned char   t_8_bits; Line 404  typedef unsigned char   t_8_bits;
             extern sem_t            *semaphores_nommes[4];              extern sem_t            *semaphores_nommes[4];
 #       endif  #       endif
 #   else  #   else
   #       ifdef _BROKEN_SIGINFO
               int                     *fifos_signaux;
   #       endif
   
         jmp_buf                     contexte;          jmp_buf                     contexte;
         jmp_buf                     contexte_initial;          jmp_buf                     contexte_initial;
   
Line 357  int sem_getvalue2(sem_t *semaphore, int Line 528  int sem_getvalue2(sem_t *semaphore, int
   
 // Redéfinition de abs pour un fonctionnement en entier de type long long int  // Redéfinition de abs pour un fonctionnement en entier de type long long int
   
 #if 1  #ifdef __GNUC__
 #   define abs(i) ({ typeof(i) _i; _i = (i); (_i >= 0) ? _i : -_i; })  #   define abs(i) ({ typeof(i) _i; _i = (i); (_i >= 0) ? _i : -_i; })
 // typeof() est une extension de gcc, mais est présent sur d'autres compilateurs  // typeof() est une extension de gcc, mais est présent sur d'autres compilateurs
 // comme Sun Studio. Dans le cas où typeof() n'existe pas, il est possible  // comme Sun Studio. Dans le cas où typeof() n'existe pas, il est possible
Line 367  int sem_getvalue2(sem_t *semaphore, int Line 538  int sem_getvalue2(sem_t *semaphore, int
 #   define abs(i) (((i) >= 0) ? (i) : (-i))  #   define abs(i) (((i) >= 0) ? (i) : (-i))
 #endif  #endif
   
 #define BUG(b, ...) \  
         do { if (b) { uprintf("[%d] BUG! <%s()> at line #%d of %s\n", \  
         (int) getpid(), __FUNCTION__, __LINE__, __FILE__); \  
         __VA_ARGS__; fflush(stdout); \  
         pthread_kill(pthread_self(), SIGBUS); }} while(0)  
   
 #define NOTICE(m) \  #define NOTICE(m) \
     do \      do \
     { \      { \
Line 413  int sem_getvalue2(sem_t *semaphore, int Line 578  int sem_getvalue2(sem_t *semaphore, int
 #define BACKTRACE(n) NOTICE("BACKTRACE only defined in glibc")  #define BACKTRACE(n) NOTICE("BACKTRACE only defined in glibc")
 #endif  #endif
   
   #ifdef __BACKTRACE
   #   define BUG(b, ...) \
               do { if (b) { uprintf("[%d] BUG! <%s()> at line #%d of %s\n", \
               (int) getpid(), __FUNCTION__, __LINE__, __FILE__); \
               __VA_ARGS__; fflush(stdout); \
               BACKTRACE(64); \
               pthread_kill(pthread_self(), SIGBUS); }} while(0)
   #else
   #   define BUG(b, ...) \
               do { if (b) { uprintf("[%d] BUG! <%s()> at line #%d of %s\n", \
               (int) getpid(), __FUNCTION__, __LINE__, __FILE__); \
               __VA_ARGS__; fflush(stdout); \
               pthread_kill(pthread_self(), SIGBUS); }} while(0)
   #endif
   
   
 /*  /*
 ================================================================================  ================================================================================
Line 421  int sem_getvalue2(sem_t *semaphore, int Line 601  int sem_getvalue2(sem_t *semaphore, int
 */  */
   
 #ifdef DEBUG_MEMOIRE  #ifdef DEBUG_MEMOIRE
   void analyse_post_mortem();
 void *debug_memoire_ajout(size_t taille, const unsigned char *fonction,  void *debug_memoire_ajout(size_t taille, const unsigned char *fonction,
         unsigned long ligne, const unsigned char *argument);          unsigned long ligne, const unsigned char *argument);
   void debug_memoire_initialisation();
 void *debug_memoire_modification(void *pointeur, size_t taille,  void *debug_memoire_modification(void *pointeur, size_t taille,
         const unsigned char *fonction, unsigned long ligne,          const unsigned char *fonction, unsigned long ligne,
         const unsigned char *argument);          const unsigned char *argument);
 void debug_memoire_retrait(void *ptr);  void debug_memoire_retrait(void *ptr);
   void debug_memoire_verification();
   
   pid_t debug_fork();
   
 #define malloc(s) debug_memoire_ajout(s, __FUNCTION__, __LINE__, #s)  #define malloc(s) debug_memoire_ajout(s, __FUNCTION__, __LINE__, #s)
 #define free(s) debug_memoire_retrait(s)  #define free(s) debug_memoire_retrait(s)
 #define realloc(s, t) debug_memoire_modification(s, t, \  #define realloc(s, t) debug_memoire_modification(s, t, \
             __FUNCTION__, __LINE__, #t)              __FUNCTION__, __LINE__, #t)
   #define fork() debug_fork()
 #endif  #endif
   
 #ifdef DEBUG_RETURN  #ifdef DEBUG_RETURN
Line 471  void debug_memoire_retrait(void *ptr); Line 657  void debug_memoire_retrait(void *ptr);
         if (value == 0) BUG(1, uprintf("Value %d\n", value)); sem_destroy(a); })          if (value == 0) BUG(1, uprintf("Value %d\n", value)); sem_destroy(a); })
 #endif  #endif
   
 #ifdef DEBUG_MALLOC  
 #define malloc(taille) ({ size_t s = taille; void *p; \  
         p = malloc(taille); if (p != NULL) memset(p, 0, s); \  
         /*uprintf("[%d-%llu] Allocating %p (%d bytes) at %s() line #%d\n", \  
         (int) getpid(), (unsigned long long) pthread_self(), p, \  
         (int) s, __FUNCTION__, __LINE__); fflush(stdout); */ p; })  
 #endif  
   
 #ifdef DEBUG_FREE  
 #define free(ptr) ({ void *p = ptr; \  
         /*uprintf("[%d-%llu] Freeing %p (%d bytes) at %s() line #%d\n", \  
         (int) getpid(), (unsigned long long) pthread_self(), p, \  
         (int) sizeof(p), __FUNCTION__, __LINE__); fflush(stdout); */ \  
         if (p != NULL) memset(p, 0, sizeof(p)); free(p); })  
 #endif  
   
 /*  /*
 ================================================================================  ================================================================================
Line 560  void debug_memoire_retrait(void *ptr); Line 731  void debug_memoire_retrait(void *ptr);
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
 #define __erreur    { uprintf("%s() / %d\n", __FUNCTION__, __LINE__); } while(0)  #ifdef DEBUG_ERREURS
   #   ifdef MESSAGES
   #       define __erreur(i)  i
   #       define __erreur_(i) i
   #   else
   #       undef _ERREURS_VARIABLES
   #       ifdef _ERREURS_VARIABLES
   #           define __erreur_(i) __erreur(i)
   #       else
   #           define __erreur_(i) i
   #       endif
   #       define __erreur(i)  ({ if (strstr(__FUNCTION__, "recherche_variable") \
                   == NULL) ufprintf(stderr, \
                   "ERROR %d AT %s() FROM %s LINE %d\n", \
                   i, __FUNCTION__, __FILE__, __LINE__); i; })
   #   endif
   #else
   #   define __erreur(i)  i
   #   define __erreur_(i) i
   #endif
   
   
 // -1 : erreur provoquée par une bibliothèque externe  // -1 : erreur provoquée par une bibliothèque externe
 #ifndef RPLARGS  #ifndef RPLARGS
 #   define d_es                                 2000  #   define d_es                                 2000
 #   define d_es_allocation_memoire              2001  #   define d_es_allocation_memoire              __erreur(2001)
 #   define d_es_variable_introuvable            2002  #   define d_es_variable_introuvable            __erreur_(2002)
 #   define d_es_pile_vide                       2003  #   define d_es_pile_vide                       __erreur(2003)
 #   define d_es_end_incoherent                  2004  #   define d_es_end_incoherent                  __erreur(2004)
 #   define d_es_peripherique_stdin              2005  #   define d_es_peripherique_stdin              __erreur(2005)
 #   define d_es_erreur_fichier                  2006  #   define d_es_erreur_fichier                  __erreur(2006)
 #   define d_es_execution_bibliotheque          2007  #   define d_es_execution_bibliotheque          __erreur(2007)
 #   define d_es_signal                          2008  #   define d_es_signal                          __erreur(2008)
 #   define d_es_processus                       2009  #   define d_es_processus                       __erreur(2009)
 #   define d_es_pile_operationnelle_vide        2010  #   define d_es_pile_operationnelle_vide        __erreur(2010)
 #   define d_es_nombre_max_descripteurs         2011  #   define d_es_nombre_max_descripteurs         __erreur(2011)
 #   define d_es_interruption_invalide           2012  #   define d_es_interruption_invalide           __erreur(2012)
 #   define d_es_contexte                        2013  #   define d_es_contexte                        __erreur(2013)
 #   define d_es_somme_controle                  2014  #   define d_es_somme_controle                  __erreur(2014)
   #   define d_es_semaphore                       __erreur(2015)
 #endif  #endif
   
 /*  /*
Line 589  void debug_memoire_retrait(void *ptr); Line 781  void debug_memoire_retrait(void *ptr);
   
 #ifndef RPLARGS  #ifndef RPLARGS
 #   define d_ep                                 1000  #   define d_ep                                 1000
 #   define d_ep_division_par_zero               1001  #   define d_ep_division_par_zero               __erreur(1001)
 #   define d_ep_matrice_non_inversible          1002  #   define d_ep_matrice_non_inversible          __erreur(1002)
 #   define d_ep_resultat_indefini               1003  #   define d_ep_resultat_indefini               __erreur(1003)
 #   define d_ep_underflow                       1004  #   define d_ep_underflow                       __erreur(1004)
 #   define d_ep_overflow                        1005  #   define d_ep_overflow                        __erreur(1005)
 #   define d_ep_domaine_definition              1006  #   define d_ep_domaine_definition              __erreur(1006)
 #   define d_ep_perte_precision                 1007  #   define d_ep_perte_precision                 __erreur(1007)
 #   define d_ep_decomposition_QR                1008  #   define d_ep_decomposition_QR                __erreur(1008)
 #   define d_ep_matrice_non_definie_positive    1009  #   define d_ep_matrice_non_definie_positive    __erreur(1009)
 #   define d_ep_decomposition_QZ                1010  #   define d_ep_decomposition_QZ                __erreur(1010)
 #   define d_ep_decomposition_SVD               1011  #   define d_ep_decomposition_SVD               __erreur(1011)
 #endif  #endif
   
 /*  /*
Line 610  void debug_memoire_retrait(void *ptr); Line 802  void debug_memoire_retrait(void *ptr);
   
 #ifndef RPLARGS  #ifndef RPLARGS
 #   define d_ec                                 3000  #   define d_ec                                 3000
 #   define d_ec_niveau_definition_negatif       3001  #   define d_ec_niveau_definition_negatif       __erreur(3001)
 #   define d_ec_nom_definition_invalide         3002  #   define d_ec_nom_definition_invalide         __erreur(3002)
 #   define d_ec_erreur_boucle_definie           3003  #   define d_ec_erreur_boucle_definie           __erreur(3003)
 #   define d_ec_erreur_instruction_end          3004  #   define d_ec_erreur_instruction_end          __erreur(3004)
 #   define d_ec_erreur_instruction_until        3005  #   define d_ec_erreur_instruction_until        __erreur(3005)
 #   define d_ec_source_incoherent               3006  #   define d_ec_source_incoherent               __erreur(3006)
 #   define d_ec_erreur_instruction_while        3007  #   define d_ec_erreur_instruction_while        __erreur(3007)
 #   define d_ec_erreur_instruction_then         3008  #   define d_ec_erreur_instruction_then         __erreur(3008)
 #   define d_ec_erreur_instruction_else         3009  #   define d_ec_erreur_instruction_else         __erreur(3009)
 #   define d_ec_erreur_instruction_elseif       3010  #   define d_ec_erreur_instruction_elseif       __erreur(3010)
 #   define d_ec_erreur_instruction_select       3011  #   define d_ec_erreur_instruction_select       __erreur(3011)
 #   define d_ec_erreur_instruction_case         3012  #   define d_ec_erreur_instruction_case         __erreur(3012)
 #endif  #endif
   
 /*  /*
Line 633  void debug_memoire_retrait(void *ptr); Line 825  void debug_memoire_retrait(void *ptr);
 // -1 : erreur provoquée par une bibliothèque externe  // -1 : erreur provoquée par une bibliothèque externe
 #ifndef RPLARGS  #ifndef RPLARGS
 #   define d_ex                                 0  #   define d_ex                                 0
 #   define d_ex_pile_vide                       1  #   define d_ex_pile_vide                       __erreur(1)
 #   define d_ex_manque_argument                 2  #   define d_ex_manque_argument                 __erreur(2)
 #   define d_ex_argument_invalide               3  #   define d_ex_argument_invalide               __erreur(3)
 #   define d_ex_erreur_type_argument            4  #   define d_ex_erreur_type_argument            __erreur(4)
 #   define d_ex_nom_reserve                     5  #   define d_ex_nom_reserve                     __erreur(5)
 #   define d_ex_nombre_arguments                6  #   define d_ex_nombre_arguments                __erreur(6)
 #   define d_ex_dimensions_invalides            7  #   define d_ex_dimensions_invalides            __erreur(7)
 #   define d_ex_expression_invalide             8  #   define d_ex_expression_invalide             __erreur(8)
 #   define d_ex_absence_graphique_courant       9  #   define d_ex_absence_graphique_courant       __erreur(9)
 #   define d_ex_erreur_traitement_condition     10  #   define d_ex_erreur_traitement_condition     __erreur(10)
 #   define d_ex_erreur_traitement_boucle        11  #   define d_ex_erreur_traitement_boucle        __erreur(11)
 #   define d_ex_variable_non_definie            12  #   define d_ex_variable_non_definie            __erreur_(12)
 #   define d_ex_drapeau_inexistant              13  #   define d_ex_drapeau_inexistant              __erreur(13)
 #   define d_ex_nom_invalide                    14  #   define d_ex_nom_invalide                    __erreur(14)
 #   define d_ex_element_inexistant              15  #   define d_ex_element_inexistant              __erreur(15)
 #   define d_ex_absence_variable                16  #   define d_ex_absence_variable                __erreur(16)
 #   define d_ex_erreur_evaluation               17  #   define d_ex_erreur_evaluation               __erreur(17)
 #   define d_ex_semaphore                       18  #   define d_ex_semaphore                       __erreur(18)
 #   define d_ex_longueur_fft                    19  #   define d_ex_longueur_fft                    __erreur(19)
 #   define d_ex_queue_impression                20  #   define d_ex_queue_impression                __erreur(20)
 #   define d_ex_type_trace_invalide             21  #   define d_ex_type_trace_invalide             __erreur(21)
 #   define d_ex_erreur_fichier                  22  #   define d_ex_erreur_fichier                  __erreur(22)
 #   define d_ex_absence_equation                23  #   define d_ex_absence_equation                __erreur(23)
 #   define d_ex_erreur_bibliotheque             24  #   define d_ex_erreur_bibliotheque             __erreur(24)
 #   define d_ex_execution_bibliotheque          25  #   define d_ex_execution_bibliotheque          __erreur(25)
 #   define d_ex_stop                            26  #   define d_ex_stop                            __erreur(26)
 #   define d_ex_matrice_statistique_invalide    27  #   define d_ex_matrice_statistique_invalide    __erreur(27)
 #   define d_ex_dimensions_matrice_statistique  28  #   define d_ex_dimensions_matrice_statistique  __erreur(28)
 #   define d_ex_absence_observations            29  #   define d_ex_absence_observations            __erreur(29)
 #   define d_ex_statistiques_echantillon        30  #   define d_ex_statistiques_echantillon        __erreur(30)
 #   define d_ex_observations_inexistantes       31  #   define d_ex_observations_inexistantes       __erreur(31)
 #   define d_ex_syntaxe                         32  #   define d_ex_syntaxe                         __erreur(32)
 #   define d_ex_cycle_hors_boucle               33  #   define d_ex_cycle_hors_boucle               __erreur(33)
 #   define d_ex_conversion_unite                34  #   define d_ex_conversion_unite                __erreur(34)
 #   define d_ex_erreur_parametre_fichier        35  #   define d_ex_erreur_parametre_fichier        __erreur(35)
 #   define d_ex_erreur_acces_fichier            36  #   define d_ex_erreur_acces_fichier            __erreur(36)
 #   define d_ex_erreur_requete_fichier          37  #   define d_ex_erreur_requete_fichier          __erreur(37)
 #   define d_ex_erreur_format_fichier           38  #   define d_ex_erreur_format_fichier           __erreur(38)
 #   define d_ex_fichier_verrouille              39  #   define d_ex_fichier_verrouille              __erreur(39)
 #   define d_ex_verrou_indefini                 40  #   define d_ex_verrou_indefini                 __erreur(40)
 #   define d_ex_fin_de_fichier_atteinte         41  #   define d_ex_fin_de_fichier_atteinte         __erreur(41)
 #   define d_ex_debut_de_fichier_atteint        42  #   define d_ex_debut_de_fichier_atteint        __erreur(42)
 #   define d_ex_erreur_type_fichier             43  #   define d_ex_erreur_type_fichier             __erreur(43)
 #   define d_ex_fichier_vide                    44  #   define d_ex_fichier_vide                    __erreur(44)
 #   define d_ex_dimensions_differentes          45  #   define d_ex_dimensions_differentes          __erreur(45)
 #   define d_ex_routines_mathematiques          46  #   define d_ex_routines_mathematiques          __erreur(46)
 #   define d_ex_exit_hors_boucle                47  #   define d_ex_exit_hors_boucle                __erreur(47)
 #   define d_ex_longueur_dft                    48  #   define d_ex_longueur_dft                    __erreur(48)
 #   define d_ex_contexte                        49  #   define d_ex_contexte                        __erreur(49)
 #   define d_ex_processus                       50  #   define d_ex_processus                       __erreur(50)
 #   define d_ex_image_processus                 51  #   define d_ex_image_processus                 __erreur(51)
 #   define d_ex_erreur_sql                      52  #   define d_ex_erreur_sql                      __erreur(52)
 #   define d_ex_variable_verrouillee            53  #   define d_ex_variable_verrouillee            __erreur(53)
 #   define d_ex_variable_volatile               54  #   define d_ex_variable_volatile               __erreur(54)
 #   define d_ex_erreur_processus                55  #   define d_ex_erreur_processus                __erreur(55)
 #   define d_ex_erreur_impression               56  #   define d_ex_erreur_impression               __erreur(56)
 #   define d_ex_nombre_arguments_fonction       57  #   define d_ex_nombre_arguments_fonction       __erreur(57)
 #   define d_ex_fonction_indisponible           58  #   define d_ex_fonction_indisponible           __erreur(58)
 #   define d_ex_bibliotheque_chargee            59  #   define d_ex_bibliotheque_chargee            __erreur(59)
 #   define d_ex_aucun_symbole                   60  #   define d_ex_aucun_symbole                   __erreur(60)
 #   define d_ex_definition_ambigue              61  #   define d_ex_definition_ambigue              __erreur(61)
 #   define d_ex_fichier_hors_contexte           62  #   define d_ex_fichier_hors_contexte           __erreur(62)
 #   define d_ex_socket_en_ecoute                63  #   define d_ex_socket_en_ecoute                __erreur(63)
 #   define d_ex_interruption_invalide           64  #   define d_ex_interruption_invalide           __erreur(64)
 #   define d_ex_erreur_transcodage              65  #   define d_ex_erreur_transcodage              __erreur(65)
 #   define d_ex_absence_processus_pere          66  #   define d_ex_absence_processus_pere          __erreur(66)
 #   define d_ex_creation_variable               67  #   define d_ex_creation_variable               __erreur(67)
 #   define d_ex_fusible                         68  #   define d_ex_fusible                         __erreur(68)
 #   define d_ex_iswi_hors_interruption          69  #   define d_ex_iswi_hors_interruption          __erreur(69)
 #   define d_ex_daemon                          70  #   define d_ex_daemon                          __erreur(70)
 #   define d_ex_mutex                           71  #   define d_ex_mutex                           __erreur(71)
 #   define d_ex_variable_statique_partagee      72  #   define d_ex_variable_statique_partagee      __erreur(72)
 #   define d_ex_variable_partagee               73  #   define d_ex_variable_partagee               __erreur(73)
 #   define d_ex_graphique_memorise              74  #   define d_ex_graphique_memorise              __erreur(74)
 #   define d_ex_matrice_non_diagonale           75  #   define d_ex_matrice_non_diagonale           __erreur(75)
 #   define d_ex_locales                         76  #   define d_ex_locales                         __erreur(76)
 #   define d_ex_representation                  77  #   define d_ex_representation                  __erreur(77)
 #   define d_ex_erreur_profilage                78  #   define d_ex_erreur_profilage                __erreur(78)
 #   define d_ex_enregistrement_inexistant       79  #   define d_ex_enregistrement_inexistant       __erreur(79)
 #   define d_ex_clef_inexistante                80  #   define d_ex_clef_inexistante                __erreur(80)
 #   define d_ex_nom_implicite                   81  #   define d_ex_nom_implicite                   __erreur(81)
   #   define d_ex_version_bibliotheque            __erreur(82)
 #endif  #endif
   
   
Line 729  void debug_memoire_retrait(void *ptr); Line 922  void debug_memoire_retrait(void *ptr);
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
   #ifdef MIN
   #   undef MIN
   #endif
   
   #ifdef MAX
   #   undef MAX
   #endif
   
   #define ADR __RPL_ADR
   #define ALG __RPL_ALG
   #define BIN __RPL_BIN
   #define CHN __RPL_CHN
   #define CPL __RPL_CPL
   #define FCH __RPL_FCH
   #define FCT __RPL_FCT
   #define INT __RPL_INT
   #define LST __RPL_LST
   #define MCX __RPL_MCX
   #define MIN __RPL_MIN
   #define MRL __RPL_MRL
   #define MTX __RPL_MTX
   #define NOM __RPL_NOM
   #define NON __RPL_NON
   #define PRC __RPL_PRC
   #define REL __RPL_REL
   #define RPN __RPL_RPN
   #define SCK __RPL_SCK
   #define SLB __RPL_SLB
   #define SPH __RPL_SPH
   #define SQL __RPL_SQL
   #define TBL __RPL_TBL
   #define VCX __RPL_VCX
   #define VIN __RPL_VIN
   #define VRL __RPL_VRL
   
   
 enum t_type     { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST,  enum t_type     { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST,
                 MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK,                  MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK,
                 SLB, SPH, SQL, TBL, VCX, VIN, VRL };                  SLB, SPH, SQL, TBL, VCX, VIN, VRL };
Line 1115  typedef struct descripteur_thread Line 1344  typedef struct descripteur_thread
     pthread_t                   thread_pere;      pthread_t                   thread_pere;
   
     pthread_mutex_t             mutex;      pthread_mutex_t             mutex;
   
     volatile logical1           thread_actif;      volatile logical1           thread_actif;
   
     int                         pipe_erreurs[2];      int                         pipe_erreurs[2];
Line 1195  typedef struct liste_pile_systeme Line 1425  typedef struct liste_pile_systeme
   
     /*      /*
     type clôture :      type clôture :
     C     CASE  : END termine un test SELECT/CASE/THEN/END/DEFAULT/END.      C     SELECT  : END termine un test SELECT/DEFAULT/END.
     D     DO    : END termine une boucle DO/UNTIL/END.      D     DO      : END termine une boucle DO/UNTIL/END.
     I     IF    : END termine un test IF/THEN (ELSE)/END.      I     IF      : END termine un test IF/THEN (ELSE)/END.
     J     IFERR : END termine un test IFERR/THEN (ELSE)/END.      J     IFERR   : END termine un test IFERR/THEN (ELSE)/END.
     W     WHILE : END termine une boucle WHILE/REPEAT/END.      K     CASE    : END termine un test CASE/THEN/END
       W     WHILE   : END termine une boucle WHILE/REPEAT/END.
     F     FOR   : NEXT ou STEP termine une boucle avec compteur.  
     S     START : NEXT ou STEP termine une boucle sans compteur.      F     FOR     : NEXT ou STEP termine une boucle avec compteur.
     L     LOOP  : boucle utilisé dans le traitement de l'instruction RETURN.      S     START   : NEXT ou STEP termine une boucle sans compteur.
       L     LOOP    : boucle utilisé dans le traitement de l'instruction RETURN.
             Elle correspond à une boucle FOR ou START mais sans son              Elle correspond à une boucle FOR ou START mais sans son
             initialisation.              initialisation.
     */      */
   
     unsigned long               adresse_retour;      unsigned long               adresse_retour;
     unsigned long               niveau_courant;      unsigned long               niveau_courant;
       struct_objet                *pointeur_adresse_retour;
 } struct_liste_pile_systeme;  } struct_liste_pile_systeme;
 #endif  #endif
   
Line 1510  typedef struct processus Line 1742  typedef struct processus
     pthread_t                   thread_fusible;      pthread_t                   thread_fusible;
     pthread_t                   thread_surveille_par_fusible;      pthread_t                   thread_surveille_par_fusible;
   
 #   ifndef Cygwin  #   if !defined(Cygwin)
   #       if !(OpenBSD)
     stack_t                     pile_signal;      stack_t                     pile_signal;
   #       else
   #           ifdef SA_ONSTACK
   #               undef SA_ONSTACK
   #           endif
   #           define SA_ONSTACK   0
   #       endif
 #   else  #   else
 #   define SA_ONSTACK           0  #   define SA_ONSTACK           0
 #   define RTLD_LOCAL           0  #   define RTLD_LOCAL           0
Line 1773  typedef struct processus Line 2012  typedef struct processus
   
     unsigned char               traitement_interruption;  /* Y/N */      unsigned char               traitement_interruption;  /* Y/N */
     unsigned char               traitement_interruptible; /* Y/N */      unsigned char               traitement_interruptible; /* Y/N */
       unsigned char               traitement_at_poke;       /* Y/N */
   
     struct_objet                *at_exit;      struct_objet                *at_exit;
       struct_objet                *at_poke;
   
 /* Variables volatiles                                  */  /* Variables volatiles                                  */
   
Line 1835  typedef struct processus Line 2076  typedef struct processus
   
     // Mutex spécifique au processus et donnant accès à la pile des processus      // Mutex spécifique au processus et donnant accès à la pile des processus
     pthread_mutex_t             mutex;      pthread_mutex_t             mutex;
       pthread_mutex_t             mutex_allocation;
   
     // Sémaphore autorisant les fork()      // Sémaphore autorisant les fork()
     sem_t      sem_t
Line 1861  typedef struct processus Line 2103  typedef struct processus
     unsigned long               taille_pile_objets;      unsigned long               taille_pile_objets;
     struct_objet                *pile_objets;      struct_objet                *pile_objets;
   
 #   define TAILLE_CACHE 16384  #   ifndef DEBUG_MALLOC
   #       define TAILLE_CACHE 16384
   #   else
   #       define TAILLE_CACHE 4
   #   endif
   
     unsigned long               *objets_adr[TAILLE_CACHE];      unsigned long               *objets_adr[TAILLE_CACHE];
     int                         pointeur_adr;      int                         pointeur_adr;
Line 1900  typedef struct processus Line 2146  typedef struct processus
   
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Structures instruction intrinseque    Structures instruction intrinsèque
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
 */  */
   
Line 1966  void instruction_asr(struct_processus *s Line 2212  void instruction_asr(struct_processus *s
 void instruction_atan(struct_processus *s_etat_processus);  void instruction_atan(struct_processus *s_etat_processus);
 void instruction_atanh(struct_processus *s_etat_processus);  void instruction_atanh(struct_processus *s_etat_processus);
 void instruction_atexit(struct_processus *s_etat_processus);  void instruction_atexit(struct_processus *s_etat_processus);
   void instruction_atpoke(struct_processus *s_etat_processus);
 void instruction_autoscale(struct_processus *s_etat_processus);  void instruction_autoscale(struct_processus *s_etat_processus);
 void instruction_axes(struct_processus *s_etat_processus);  void instruction_axes(struct_processus *s_etat_processus);
   
 void instruction_b_vers_r(struct_processus *s_etat_processus);  void instruction_b_vers_r(struct_processus *s_etat_processus);
 void instruction_backspace(struct_processus *s_etat_processus);  void instruction_backspace(struct_processus *s_etat_processus);
   void instruction_backtrace(struct_processus *s_etat_processus);
 void instruction_beep(struct_processus *s_etat_processus);  void instruction_beep(struct_processus *s_etat_processus);
 void instruction_bessel(struct_processus *s_etat_processus);  void instruction_bessel(struct_processus *s_etat_processus);
 void instruction_bin(struct_processus *s_etat_processus);  void instruction_bin(struct_processus *s_etat_processus);
Line 1986  void instruction_cllcd(struct_processus Line 2234  void instruction_cllcd(struct_processus
 void instruction_clmf(struct_processus *s_etat_processus);  void instruction_clmf(struct_processus *s_etat_processus);
 void instruction_close(struct_processus *s_etat_processus);  void instruction_close(struct_processus *s_etat_processus);
 void instruction_clratexit(struct_processus *s_etat_processus);  void instruction_clratexit(struct_processus *s_etat_processus);
   void instruction_clratpoke(struct_processus *s_etat_processus);
 void instruction_clrcntxt(struct_processus *s_etat_processus);  void instruction_clrcntxt(struct_processus *s_etat_processus);
 void instruction_clrerr(struct_processus *s_etat_processus);  void instruction_clrerr(struct_processus *s_etat_processus);
 void instruction_clrfuse(struct_processus *s_etat_processus);  void instruction_clrfuse(struct_processus *s_etat_processus);
Line 2493  void conversion_majuscule_limitee(unsign Line 2742  void conversion_majuscule_limitee(unsign
 void conversion_radians_vers_degres(real8 *angle);  void conversion_radians_vers_degres(real8 *angle);
 void correction_formateur_tex(struct_processus *s_etat_processus,  void correction_formateur_tex(struct_processus *s_etat_processus,
         unsigned char **ligne);          unsigned char **ligne);
 void debug_memoire_verification(struct_processus *s_etat_processus);  
 void depilement_pile_systeme(struct_processus *s_etat_processus);  void depilement_pile_systeme(struct_processus *s_etat_processus);
 void derivation(struct_processus *s_etat_processus,  void derivation(struct_processus *s_etat_processus,
         struct_objet **s_expression);          struct_objet **s_expression);
Line 2547  void insertion_thread_surveillance(struc Line 2795  void insertion_thread_surveillance(struc
 void integrale_romberg(struct_processus *s_etat_processus,  void integrale_romberg(struct_processus *s_etat_processus,
         struct_objet *s_expression, unsigned char *variable,          struct_objet *s_expression, unsigned char *variable,
         real8 a, real8 b, real8 precision);          real8 a, real8 b, real8 precision);
 void interruption1(int signal, siginfo_t *siginfo, void *context);  void interruption1(SIGHANDLER_ARGS);
 void interruption2(int signal, siginfo_t *siginfo, void *context);  void interruption2(SIGHANDLER_ARGS);
 void interruption3(int signal, siginfo_t *siginfo, void *context);  void interruption3(SIGHANDLER_ARGS);
 void interruption4(int signal, siginfo_t *siginfo, void *context);  void interruption4(SIGHANDLER_ARGS);
 void interruption5(int signal, siginfo_t *siginfo, void *context);  void interruption5(SIGHANDLER_ARGS);
 void interruption6(int signal, siginfo_t *siginfo, void *context);  void interruption6(SIGHANDLER_ARGS);
 void interruption7(int signal, siginfo_t *siginfo, void *context);  void interruption7(SIGHANDLER_ARGS);
 void interruption8(int signal, siginfo_t *siginfo, void *context);  void interruption8(SIGHANDLER_ARGS);
 void interruption9(int signal, siginfo_t *siginfo, void *context);  void interruption9(SIGHANDLER_ARGS);
 void interruption10(int signal, siginfo_t *siginfo, void *context);  void interruption10(SIGHANDLER_ARGS);
   void interruption11(SIGHANDLER_ARGS);
 void inversion_matrice(struct_processus *s_etat_processus,  void inversion_matrice(struct_processus *s_etat_processus,
         struct_matrice *s_matrice);          struct_matrice *s_matrice);
 void lancement_daemon(struct_processus *s_etat_processus);  void lancement_daemon(struct_processus *s_etat_processus);
Line 2591  void scrutation_injection(struct_process Line 2840  void scrutation_injection(struct_process
 void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau);  void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau);
 void *surveillance_processus(void *argument);  void *surveillance_processus(void *argument);
 void swap(void *variable_1, void *variable_2, unsigned long taille_octets);  void swap(void *variable_1, void *variable_2, unsigned long taille_octets);
   void trace(struct_processus *s_etat_processus, FILE *flux);
 void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus);  void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus);
 void traitement_exceptions_gsl(const char *reason, const char *file,  void traitement_exceptions_gsl(const char *reason, const char *file,
         int line, int gsl_errno);          int line, int gsl_errno);
Line 2614  void valeurs_singulieres(struct_processu Line 2864  void valeurs_singulieres(struct_processu
 void verrouillage_threads_concurrents(struct_processus *s_etat_processus);  void verrouillage_threads_concurrents(struct_processus *s_etat_processus);
 #endif  #endif
   
   #ifndef RPLARGS
   #ifdef _BROKEN_SIGINFO
   void creation_fifos_signaux(struct_processus *s_etat_processus);
   void destruction_fifos_signaux(struct_processus *s_etat_processus);
   void liberation_fifos_signaux(struct_processus *s_etat_processus);
   #endif
   #endif
   
 /*  /*
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Fonctions de sommation de vecteur dans perte de précision    Fonctions de sommation de vecteur dans perte de précision
Removed from v.1.34  
changed lines
  Added in v.1.62

CVSweb interface <joel.bertrand@systella.fr>