Diff for /rpl/src/rpl.c between versions 1.126 and 1.202

version 1.126, 2012/12/14 14:19:50 version 1.202, 2018/05/30 09:27:39
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.11    RPL/2 (R) version 4.1.29
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2018 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 23 Line 23
 #define  MAIN_RPL  #define  MAIN_RPL
 #include "rpl-conv.h"  #include "rpl-conv.h"
   
   // Bug de gcc à partir de gcc 4.6 (bug 48544)
   #pragma GCC diagnostic push
   #pragma GCC diagnostic ignored "-Wclobbered"
   
   
 /*  /*
 ================================================================================  ================================================================================
Line 51  rplinit(int argc, char *argv[], char *en Line 55  rplinit(int argc, char *argv[], char *en
     int                                 erreur_historique;      int                                 erreur_historique;
     int                                 option_P;      int                                 option_P;
   
       integer8                            i;
   
     logical1                            core;      logical1                            core;
     logical1                            debug;      logical1                            debug;
     logical1                            erreur_fichier;      logical1                            erreur_fichier;
Line 80  rplinit(int argc, char *argv[], char *en Line 86  rplinit(int argc, char *argv[], char *en
   
     struct_processus                    *s_etat_processus;      struct_processus                    *s_etat_processus;
   
       struct_liste_chainee                *l_bibliotheques;
       struct_liste_chainee                *l_bibliotheque_courante;
       struct_liste_chainee                *l_nouvelle_bibliotheque;
   
       struct_liste_variables_partagees    *l_element_partage_courant;
       struct_liste_variables_partagees    *l_element_partage_suivant;
   
     struct_liste_variables_statiques    *l_element_statique_courant;      struct_liste_variables_statiques    *l_element_statique_courant;
     struct_liste_variables_statiques    *l_element_statique_suivant;      struct_liste_variables_statiques    *l_element_statique_suivant;
   
       struct_arbre_variables_partagees    *s_arbre_variables_partagees;
       struct_liste_variables_partagees    *l_liste_variables_partagees;
   
     struct sigaction                    action;      struct sigaction                    action;
     struct sigaction                    registre;      struct sigaction                    registre;
   
Line 100  rplinit(int argc, char *argv[], char *en Line 116  rplinit(int argc, char *argv[], char *en
     unsigned char                       *ptr;      unsigned char                       *ptr;
     unsigned char                       *tampon;      unsigned char                       *tampon;
   
     unsigned long                       i;  
     unsigned long                       unite_fichier;      unsigned long                       unite_fichier;
   
     void                                *l_element_courant;      void                                *l_element_courant;
Line 112  rplinit(int argc, char *argv[], char *en Line 127  rplinit(int argc, char *argv[], char *en
     errno = 0;      errno = 0;
     s_queue_signaux = NULL;      s_queue_signaux = NULL;
     routine_recursive = 0;      routine_recursive = 0;
       nombre_thread_surveillance_processus = 0;
     pid_processus_pere = getpid();      pid_processus_pere = getpid();
   
   #   ifdef DEBUG_PROC
       __proc = 0;
   #   endif
   
 #   ifdef DEBUG_MEMOIRE  #   ifdef DEBUG_MEMOIRE
     debug_memoire_initialisation();      debug_memoire_initialisation();
 #   endif  #   endif
Line 121  rplinit(int argc, char *argv[], char *en Line 141  rplinit(int argc, char *argv[], char *en
     setvbuf(stdout, NULL, _IOLBF, 0);      setvbuf(stdout, NULL, _IOLBF, 0);
     setvbuf(stderr, NULL, _IOLBF, 0);      setvbuf(stderr, NULL, _IOLBF, 0);
   
 #   ifndef SEMAPHORES_NOMMES      if ((s_etat_processus = sys_malloc(sizeof(struct_processus))) == NULL)
     sem_init(&semaphore_gestionnaires_signaux, 0, 0);  
 #   else  
     semaphore_gestionnaires_signaux = sem_init2(0, getpid(), SEM_SIGNAUX);  
       
     if (semaphore_gestionnaires_signaux == SEM_FAILED)  
     {      {
         erreur = d_es_allocation_memoire;          erreur = d_es_allocation_memoire;
   
Line 148  rplinit(int argc, char *argv[], char *en Line 163  rplinit(int argc, char *argv[], char *en
   
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
     }      }
 #   endif  
   
     if ((s_etat_processus = malloc(sizeof(struct_processus))) == NULL)      (*s_etat_processus).erreur_systeme = d_es;
   
       initialisation_allocateur_buffer(s_etat_processus);
   
       if ((*s_etat_processus).erreur_systeme != d_es)
     {      {
 #       ifndef SEMAPHORES_NOMMES          erreur = d_es_allocation_memoire;
         sem_post(&semaphore_gestionnaires_signaux);  
         sem_destroy(&semaphore_gestionnaires_signaux);          if ((langue = getenv("LANG")) != NULL)
 #       else          {
         sem_post(semaphore_gestionnaires_signaux);              if (strncmp(langue, "fr", 2) == 0)
         sem_destroy2(semaphore_gestionnaires_signaux, getpid(), SEM_SIGNAUX);              {
 #       endif                  uprintf("+++Système : Mémoire insuffisante\n");
               }
               else
               {
                   uprintf("+++System : Not enough memory\n");
               }
           }
           else
           {
               uprintf("+++System : Not enough memory\n");
           }
   
           return(EXIT_FAILURE);
       }
   
       if (initialisation_etat_processus_readline() != 0)
       {
         erreur = d_es_allocation_memoire;          erreur = d_es_allocation_memoire;
   
         if ((langue = getenv("LANG")) != NULL)          if ((langue = getenv("LANG")) != NULL)
Line 193  rplinit(int argc, char *argv[], char *en Line 226  rplinit(int argc, char *argv[], char *en
   
     if (getcwd(repertoire_initial, RPL_PATH_MAX) == NULL)      if (getcwd(repertoire_initial, RPL_PATH_MAX) == NULL)
     {      {
 #       ifndef SEMAPHORES_NOMMES  
         sem_post(&semaphore_gestionnaires_signaux);  
         sem_destroy(&semaphore_gestionnaires_signaux);  
 #       else  
         sem_post(semaphore_gestionnaires_signaux);  
         sem_destroy2(semaphore_gestionnaires_signaux, getpid(), SEM_SIGNAUX);  
 #       endif  
   
         if ((*s_etat_processus).langue == 'F')          if ((*s_etat_processus).langue == 'F')
         {          {
             uprintf("+++Système : Mémoire insuffisante\n");              uprintf("+++Système : Mémoire insuffisante\n");
Line 213  rplinit(int argc, char *argv[], char *en Line 238  rplinit(int argc, char *argv[], char *en
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
     }      }
   
     if ((arg_exec = malloc((argc + 1) * sizeof(char *))) == NULL)      if ((arg_exec = sys_malloc((((size_t) argc) + 1) * sizeof(char *))) == NULL)
     {      {
 #       ifndef SEMAPHORES_NOMMES  
         sem_post(&semaphore_gestionnaires_signaux);  
         sem_destroy(&semaphore_gestionnaires_signaux);  
 #       else  
         sem_post(semaphore_gestionnaires_signaux);  
         sem_destroy2(semaphore_gestionnaires_signaux, getpid(), SEM_SIGNAUX);  
 #       endif  
   
         if ((*s_etat_processus).langue == 'F')          if ((*s_etat_processus).langue == 'F')
         {          {
             uprintf("+++Système : Mémoire insuffisante\n");              uprintf("+++Système : Mémoire insuffisante\n");
Line 235  rplinit(int argc, char *argv[], char *en Line 252  rplinit(int argc, char *argv[], char *en
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
     }      }
   
     for(i = 0; i < (unsigned long) argc; i++)      for(i = 0; i < argc; i++)
     {      {
         arg_exec[i] = argv[i];          arg_exec[i] = argv[i];
     }      }
   
     argv[argc] = NULL;      arg_exec[argc] = NULL;
   
     initialisation_contexte_cas(s_etat_processus);      initialisation_contexte_cas(s_etat_processus);
   
Line 253  rplinit(int argc, char *argv[], char *en Line 270  rplinit(int argc, char *argv[], char *en
   
     pthread_mutexattr_init(&attributs_mutex);      pthread_mutexattr_init(&attributs_mutex);
     pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);      pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
     pthread_mutex_init(&((*s_etat_processus).mutex), &attributs_mutex);      pthread_mutex_init(&((*s_etat_processus).mutex_pile_processus),
               &attributs_mutex);
       pthread_mutexattr_destroy(&attributs_mutex);
   
       pthread_mutexattr_init(&attributs_mutex);
       pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
       pthread_mutex_init(&((*s_etat_processus).mutex_interruptions),
               &attributs_mutex);
       pthread_mutexattr_destroy(&attributs_mutex);
   
       pthread_mutexattr_init(&attributs_mutex);
       pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
       pthread_mutex_init(&((*s_etat_processus).mutex_signaux),
               &attributs_mutex);
     pthread_mutexattr_destroy(&attributs_mutex);      pthread_mutexattr_destroy(&attributs_mutex);
   
     pthread_mutexattr_init(&attributs_mutex);      pthread_mutexattr_init(&attributs_mutex);
Line 263  rplinit(int argc, char *argv[], char *en Line 293  rplinit(int argc, char *argv[], char *en
     pthread_mutexattr_destroy(&attributs_mutex);      pthread_mutexattr_destroy(&attributs_mutex);
   
     pthread_mutexattr_init(&attributs_mutex);      pthread_mutexattr_init(&attributs_mutex);
       pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
       pthread_mutex_init(&((*s_etat_processus).mutex_allocation_buffer),
               &attributs_mutex);
       pthread_mutexattr_destroy(&attributs_mutex);
   
       pthread_mutexattr_init(&attributs_mutex);
     pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);      pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
     pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex);      pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex);
     pthread_mutexattr_destroy(&attributs_mutex);      pthread_mutexattr_destroy(&attributs_mutex);
   
       pthread_mutexattr_init(&attributs_mutex);
       pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
       pthread_mutex_init(&mutex_liste_variables_partagees, &attributs_mutex);
       pthread_mutexattr_destroy(&attributs_mutex);
   
       pthread_mutexattr_init(&attributs_mutex);
       pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
       pthread_mutex_init(&mutex_liste_threads, &attributs_mutex);
       pthread_mutexattr_destroy(&attributs_mutex);
   
 #   ifndef SEMAPHORES_NOMMES  #   ifndef SEMAPHORES_NOMMES
         sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);          sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);
 #   else  #   else
         if (((*s_etat_processus).semaphore_fork = sem_init3(0, getpid(),          if (((*s_etat_processus).semaphore_fork = sem_init3(0, getpid(),
                 pthread_self(), SEM_FORK)) == SEM_FAILED)                  pthread_self(), SEM_FORK)) == SEM_FAILED)
         {          {
 #           ifndef SEMAPHORES_NOMMES              liberation_contexte_cas(s_etat_processus);
                 sem_post(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&semaphore_gestionnaires_signaux);  
 #           else  
                 sem_post(semaphore_gestionnaires_signaux);  
                 sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                         SEM_SIGNAUX);  
 #           endif  
   
             liberation(contexte_cas(s_etat_processus);  
   
             if ((*s_etat_processus).langue == 'F')              if ((*s_etat_processus).langue == 'F')
             {              {
Line 313  rplinit(int argc, char *argv[], char *en Line 350  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
Line 345  rplinit(int argc, char *argv[], char *en Line 377  rplinit(int argc, char *argv[], char *en
     }      }
     else      else
     {      {
 #       ifndef SEMAPHORES_NOMMES  
             sem_post(&((*s_etat_processus).semaphore_fork));  
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));  
 #       else  
             sem_post((*s_etat_processus).semaphore_fork);  
             sem_post(semaphore_gestionnaires_signaux);  
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);  
 #       endif  
   
         liberation_contexte_cas(s_etat_processus);  
         liberation_queue_signaux(s_etat_processus);  
   
         if (((*s_etat_processus).localisation = malloc((strlen(d_locale)          if (((*s_etat_processus).localisation = malloc((strlen(d_locale)
                 + 1) * sizeof(unsigned char))) == NULL)                  + 1) * sizeof(unsigned char))) == NULL)
         {          {
   #           ifndef SEMAPHORES_NOMMES
                   sem_post(&((*s_etat_processus).semaphore_fork));
                   sem_destroy(&((*s_etat_processus).semaphore_fork));
   #           else
                   sem_post((*s_etat_processus).semaphore_fork);
                   sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
                           pthread_self(), SEM_FORK);
   #           endif
   
               liberation_contexte_cas(s_etat_processus);
               destruction_queue_signaux(s_etat_processus);
   
             if ((*s_etat_processus).langue == 'F')              if ((*s_etat_processus).langue == 'F')
             {              {
                 uprintf("+++Système : Mémoire insuffisante\n");                  uprintf("+++Système : Mémoire insuffisante\n");
Line 389  rplinit(int argc, char *argv[], char *en Line 416  rplinit(int argc, char *argv[], char *en
         {          {
 #           ifndef SEMAPHORES_NOMMES  #           ifndef SEMAPHORES_NOMMES
                 sem_post(&((*s_etat_processus).semaphore_fork));                  sem_post(&((*s_etat_processus).semaphore_fork));
                 sem_post(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&((*s_etat_processus).semaphore_fork));                  sem_destroy(&((*s_etat_processus).semaphore_fork));
 #           else  #           else
                 sem_post((*s_etat_processus).semaphore_fork);                  sem_post((*s_etat_processus).semaphore_fork);
                 sem_post(semaphore_gestionnaires_signaux);                  sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
                 sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                         SEM_SIGNAUX);  
                 sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                         pthread_self(), SEM_FORK);                          pthread_self(), SEM_FORK);
 #           endif  #           endif
   
             liberation_contexte_cas(s_etat_processus);              liberation_contexte_cas(s_etat_processus);
             liberation_queue_signaux(s_etat_processus);              destruction_queue_signaux(s_etat_processus);
   
             if ((*s_etat_processus).langue == 'F')              if ((*s_etat_processus).langue == 'F')
             {              {
Line 419  rplinit(int argc, char *argv[], char *en Line 441  rplinit(int argc, char *argv[], char *en
         strcpy((*s_etat_processus).localisation, d_locale);          strcpy((*s_etat_processus).localisation, d_locale);
     }      }
   
     printf("+++RPL/2 (R) version %s (%s)\n", d_version_rpl,      if (resultats == NULL) // Appel direct
             ((*s_etat_processus).langue == 'F') ? d_date_rpl : d_date_en_rpl);  
   
     if ((*s_etat_processus).langue == 'F')  
     {  
         printf("+++Copyright (C) 1989 à 2011, 2012 BERTRAND Joël\n");  
     }  
     else  
     {      {
         printf("+++Copyright (C) 1989 to 2011, 2012 BERTRAND Joel\n");          printf("+++RPL/2 (R) version %s (%s)\n", d_version_rpl,
                   ((*s_etat_processus).langue == 'F')
                   ? d_date_rpl : d_date_en_rpl);
   
           if ((*s_etat_processus).langue == 'F')
           {
               printf("+++Copyright (C) 1989 à 2017, 2018 BERTRAND Joël\n");
           }
           else
           {
               printf("+++Copyright (C) 1989 to 2017, 2018 BERTRAND Joel\n");
           }
     }      }
   
     if (getenv("HOME") != NULL)      if (getenv("HOME") != NULL)
Line 459  rplinit(int argc, char *argv[], char *en Line 485  rplinit(int argc, char *argv[], char *en
         {          {
 #           ifndef SEMAPHORES_NOMMES  #           ifndef SEMAPHORES_NOMMES
                 sem_post(&((*s_etat_processus).semaphore_fork));                  sem_post(&((*s_etat_processus).semaphore_fork));
                 sem_post(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&((*s_etat_processus).semaphore_fork));                  sem_destroy(&((*s_etat_processus).semaphore_fork));
 #           else  #           else
                 sem_post((*s_etat_processus).semaphore_fork);                  sem_post((*s_etat_processus).semaphore_fork);
                 sem_post(semaphore_gestionnaires_signaux);                  sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
                 sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                         SEM_SIGNAUX);  
                 sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                         pthread_self(), SEM_FORK);                          pthread_self(), SEM_FORK);
 #           endif  #           endif
   
             liberation_contexte_cas(s_etat_processus);              liberation_contexte_cas(s_etat_processus);
             liberation_queue_signaux(s_etat_processus);              destruction_queue_signaux(s_etat_processus);
   
             erreur = d_es_signal;              erreur = d_es_signal;
   
Line 502  rplinit(int argc, char *argv[], char *en Line 523  rplinit(int argc, char *argv[], char *en
         }          }
 #   endif  #   endif
   
     if (lancement_thread_signaux(s_etat_processus) != d_absence_erreur)  
     {  
 #       ifndef SEMAPHORES_NOMMES  
             sem_post(&((*s_etat_processus).semaphore_fork));  
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));  
 #       else  
             sem_post((*s_etat_processus).semaphore_fork);  
             sem_post(semaphore_gestionnaires_signaux);  
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);  
 #       endif  
   
         liberation_contexte_cas(s_etat_processus);  
         liberation_queue_signaux(s_etat_processus);  
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  
             stackoverflow_deinstall_handler();  
 #       endif  
   
         erreur = d_es_signal;  
   
         if ((*s_etat_processus).langue == 'F')  
         {  
             printf("+++Système : Initialisation des signaux POSIX "  
                     "impossible\n");  
         }  
         else  
         {  
             printf("+++System : Initialization of POSIX signals failed\n");  
         }  
   
         return(EXIT_FAILURE);  
     }  
   
     action.sa_handler = interruption1;      action.sa_handler = interruption1;
     action.sa_flags = 0;      action.sa_flags = 0;
   
Line 547  rplinit(int argc, char *argv[], char *en Line 530  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 582  rplinit(int argc, char *argv[], char *en Line 560  rplinit(int argc, char *argv[], char *en
     }      }
   
     signal_test = SIGTEST;      signal_test = SIGTEST;
     kill(getpid(), SIGINT);      raise(SIGINT);
   
     attente.tv_sec = 0;      attente.tv_sec = 0;
     attente.tv_nsec = 1000000;      attente.tv_nsec = 1000000;
Line 596  rplinit(int argc, char *argv[], char *en Line 574  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 634  rplinit(int argc, char *argv[], char *en Line 607  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 669  rplinit(int argc, char *argv[], char *en Line 637  rplinit(int argc, char *argv[], char *en
     }      }
   
     signal_test = SIGTEST;      signal_test = SIGTEST;
     kill(getpid(), SIGTERM);      raise(SIGTERM);
   
     attente.tv_sec = 0;      attente.tv_sec = 0;
     attente.tv_nsec = 1000000;      attente.tv_nsec = 1000000;
Line 683  rplinit(int argc, char *argv[], char *en Line 651  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 717  rplinit(int argc, char *argv[], char *en Line 680  rplinit(int argc, char *argv[], char *en
         return(EXIT_FAILURE);          return(EXIT_FAILURE);
     }      }
   
     if (sigaction(SIGALRM, &action, NULL) != 0)      if (sigaction(SIGUSR2, &action, NULL) != 0)
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 756  rplinit(int argc, char *argv[], char *en Line 714  rplinit(int argc, char *argv[], char *en
     }      }
   
     signal_test = SIGTEST;      signal_test = SIGTEST;
     kill(getpid(), SIGALRM);      raise(SIGUSR2);
   
     attente.tv_sec = 0;      attente.tv_sec = 0;
     attente.tv_nsec = 1000000;      attente.tv_nsec = 1000000;
Line 766  rplinit(int argc, char *argv[], char *en Line 724  rplinit(int argc, char *argv[], char *en
         nanosleep(&attente, NULL);          nanosleep(&attente, NULL);
     }      }
   
     if (signal_test != SIGALRM)      if (signal_test != SIGUSR2)
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 811  rplinit(int argc, char *argv[], char *en Line 764  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 844  rplinit(int argc, char *argv[], char *en Line 792  rplinit(int argc, char *argv[], char *en
     }      }
   
     signal_test = SIGTEST;      signal_test = SIGTEST;
     kill(getpid(), SIGTSTP);      raise(SIGTSTP);
   
     attente.tv_sec = 0;      attente.tv_sec = 0;
     attente.tv_nsec = 1000000;      attente.tv_nsec = 1000000;
Line 858  rplinit(int argc, char *argv[], char *en Line 806  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 899  rplinit(int argc, char *argv[], char *en Line 842  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 934  rplinit(int argc, char *argv[], char *en Line 872  rplinit(int argc, char *argv[], char *en
     }      }
   
     signal_test = SIGTEST;      signal_test = SIGTEST;
     kill(getpid(), SIGPIPE);      raise(SIGPIPE);
   
     attente.tv_sec = 0;      attente.tv_sec = 0;
     attente.tv_nsec = 1000000;      attente.tv_nsec = 1000000;
Line 948  rplinit(int argc, char *argv[], char *en Line 886  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 989  rplinit(int argc, char *argv[], char *en Line 922  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 1024  rplinit(int argc, char *argv[], char *en Line 952  rplinit(int argc, char *argv[], char *en
     }      }
   
     signal_test = SIGTEST;      signal_test = SIGTEST;
     kill(getpid(), SIGUSR1);      raise(SIGUSR1);
   
     attente.tv_sec = 0;      attente.tv_sec = 0;
     attente.tv_nsec = 1000000;      attente.tv_nsec = 1000000;
Line 1038  rplinit(int argc, char *argv[], char *en Line 966  rplinit(int argc, char *argv[], char *en
     {      {
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             sem_post(&((*s_etat_processus).semaphore_fork));              sem_post(&((*s_etat_processus).semaphore_fork));
             sem_post(&semaphore_gestionnaires_signaux);  
             sem_destroy(&semaphore_gestionnaires_signaux);  
             sem_destroy(&((*s_etat_processus).semaphore_fork));              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #       else  #       else
             sem_post((*s_etat_processus).semaphore_fork);              sem_post((*s_etat_processus).semaphore_fork);
             sem_post(semaphore_gestionnaires_signaux);              sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
             sem_destroy2(semaphore_gestionnaires_signaux, getpid(),  
                     SEM_SIGNAUX);  
             sem_destroy3((*s_etat_processus).semphore_fork, getpid(),  
                     pthread_self(), SEM_FORK);                      pthread_self(), SEM_FORK);
 #       endif  #       endif
   
         liberation_contexte_cas(s_etat_processus);          liberation_contexte_cas(s_etat_processus);
         liberation_queue_signaux(s_etat_processus);          destruction_queue_signaux(s_etat_processus);
   
 #       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #       ifdef HAVE_STACK_OVERFLOW_RECOVERY
             stackoverflow_deinstall_handler();              stackoverflow_deinstall_handler();
Line 1085  rplinit(int argc, char *argv[], char *en Line 1008  rplinit(int argc, char *argv[], char *en
     drapeau_encart = 'Y';      drapeau_encart = 'Y';
     debug = d_faux;      debug = d_faux;
     arguments = NULL;      arguments = NULL;
       l_bibliotheques = NULL;
   
     (*s_etat_processus).s_fichiers = NULL;      (*s_etat_processus).s_fichiers = NULL;
     (*s_etat_processus).s_sockets = NULL;      (*s_etat_processus).s_sockets = NULL;
Line 1143  rplinit(int argc, char *argv[], char *en Line 1067  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1187  rplinit(int argc, char *argv[], char *en Line 1106  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1234  rplinit(int argc, char *argv[], char *en Line 1148  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                                   else  #                                   else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork, getpid(),                                              .semaphore_fork, getpid(),
                                             pthread_self(), SEM_FORK);                                              pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 1297  rplinit(int argc, char *argv[], char *en Line 1204  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                                   else  #                                   else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork, getpid(),                                              .semaphore_fork, getpid(),
                                             pthread_self(), SEM_FORK);                                              pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 1354  rplinit(int argc, char *argv[], char *en Line 1254  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1397  rplinit(int argc, char *argv[], char *en Line 1292  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1442  rplinit(int argc, char *argv[], char *en Line 1332  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1487  rplinit(int argc, char *argv[], char *en Line 1372  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1531  rplinit(int argc, char *argv[], char *en Line 1411  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1576  rplinit(int argc, char *argv[], char *en Line 1451  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1613  rplinit(int argc, char *argv[], char *en Line 1483  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1650  rplinit(int argc, char *argv[], char *en Line 1515  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1696  rplinit(int argc, char *argv[], char *en Line 1556  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1744  rplinit(int argc, char *argv[], char *en Line 1599  rplinit(int argc, char *argv[], char *en
                             break;                              break;
                         }                          }
   
                           case 'm' :
                           {
                               while(*(++argv[0]) == ' ');
                               argv[0]--;
   
                               if ((*(++argv[0])) != '\0')
                               {
                                   if ((l_nouvelle_bibliotheque = malloc(
                                           sizeof(struct_liste_chainee))) == NULL)
                                   {
   #                                   ifndef SEMAPHORES_NOMMES
                                       sem_post(&((*s_etat_processus)
                                               .semaphore_fork));
                                       sem_destroy(&((*s_etat_processus)
                                               .semaphore_fork));
   #                                   else
                                       sem_post((*s_etat_processus)
                                               .semaphore_fork);
                                       sem_destroy3((*s_etat_processus)
                                               .semaphore_fork, getpid(),
                                               pthread_self(), SEM_FORK);
   #                                   endif
   
                                       liberation_contexte_cas(s_etat_processus);
                                       destruction_queue_signaux(s_etat_processus);
   
   #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                       stackoverflow_deinstall_handler();
   #                                   endif
   
                                       if ((*s_etat_processus).langue == 'F')
                                       {
                                           printf("+++Système : Mémoire "
                                                   "insuffisante\n");
                                       }
                                       else
                                       {
                                           printf("+++System : Not enough "
                                                   "memory\n");
                                       }
   
                                       return(EXIT_FAILURE);
                                   }
   
                                   (*l_nouvelle_bibliotheque).suivant =
                                           l_bibliotheques;
   
                                   if (((*l_nouvelle_bibliotheque).donnee =
                                           allocation(s_etat_processus, CHN))
                                           == NULL)
                                   {
   #                                   ifndef SEMAPHORES_NOMMES
                                       sem_post(&((*s_etat_processus)
                                               .semaphore_fork));
                                       sem_destroy(&((*s_etat_processus)
                                               .semaphore_fork));
   #                                   else
                                       sem_post((*s_etat_processus)
                                               .semaphore_fork);
                                       sem_destroy3((*s_etat_processus)
                                               .semaphore_fork, getpid(),
                                               pthread_self(), SEM_FORK);
   #                                   endif
   
                                       liberation_contexte_cas(s_etat_processus);
                                       destruction_queue_signaux(s_etat_processus);
   
   #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                       stackoverflow_deinstall_handler();
   #                                   endif
   
                                       if ((*s_etat_processus).langue == 'F')
                                       {
                                           printf("+++Système : Mémoire "
                                                   "insuffisante\n");
                                       }
                                       else
                                       {
                                           printf("+++System : Not enough "
                                                   "memory\n");
                                       }
   
                                       return(EXIT_FAILURE);
                                   }
   
                                   if (((*(*l_nouvelle_bibliotheque).donnee)
                                           .objet = malloc((strlen(argv[0]) + 1) *
                                           sizeof(unsigned char))) == NULL)
                                   {
   #                                   ifndef SEMAPHORES_NOMMES
                                       sem_post(&((*s_etat_processus)
                                               .semaphore_fork));
                                       sem_destroy(&((*s_etat_processus)
                                               .semaphore_fork));
   #                                   else
                                       sem_post((*s_etat_processus)
                                               .semaphore_fork);
                                       sem_destroy3((*s_etat_processus)
                                               .semaphore_fork, getpid(),
                                               pthread_self(), SEM_FORK);
   #                                   endif
   
                                       liberation_contexte_cas(s_etat_processus);
                                       destruction_queue_signaux(s_etat_processus);
   
   #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                       stackoverflow_deinstall_handler();
   #                                   endif
   
                                       if ((*s_etat_processus).langue == 'F')
                                       {
                                           printf("+++Système : Mémoire "
                                                   "insuffisante\n");
                                       }
                                       else
                                       {
                                           printf("+++System : Not enough "
                                                   "memory\n");
                                       }
   
                                       return(EXIT_FAILURE);
                                   }
   
                                   strcpy((*(*l_nouvelle_bibliotheque).donnee)
                                           .objet, argv[0]);
                                   argv[0] += strlen((unsigned char *)
                                           (*(*l_nouvelle_bibliotheque).donnee)
                                           .objet) - 1;
   
                                   l_bibliotheques = l_nouvelle_bibliotheque;
                               }
                               else if ((--argc) > 0)
                               {
                                   argv++;
   
                                   if ((l_nouvelle_bibliotheque = malloc(
                                           sizeof(struct_liste_chainee))) == NULL)
                                   {
   #                                   ifndef SEMAPHORES_NOMMES
                                       sem_post(&((*s_etat_processus)
                                               .semaphore_fork));
                                       sem_destroy(&((*s_etat_processus)
                                               .semaphore_fork));
   #                                   else
                                       sem_post((*s_etat_processus)
                                               .semaphore_fork);
                                       sem_destroy3((*s_etat_processus)
                                               .semaphore_fork, getpid(),
                                               pthread_self(), SEM_FORK);
   #                                   endif
   
                                       liberation_contexte_cas(s_etat_processus);
                                       destruction_queue_signaux(s_etat_processus);
   
   #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                       stackoverflow_deinstall_handler();
   #                                   endif
   
                                       if ((*s_etat_processus).langue == 'F')
                                       {
                                           printf("+++Système : Mémoire "
                                                   "insuffisante\n");
                                       }
                                       else
                                       {
                                           printf("+++System : Not enough "
                                                   "memory\n");
                                       }
   
                                       return(EXIT_FAILURE);
                                   }
   
                                   (*l_nouvelle_bibliotheque).suivant =
                                           l_bibliotheques;
   
                                   if (((*l_nouvelle_bibliotheque).donnee =
                                           allocation(s_etat_processus, CHN))
                                           == NULL)
                                   {
   #                                   ifndef SEMAPHORES_NOMMES
                                       sem_post(&((*s_etat_processus)
                                               .semaphore_fork));
                                       sem_destroy(&((*s_etat_processus)
                                               .semaphore_fork));
   #                                   else
                                       sem_post((*s_etat_processus)
                                               .semaphore_fork);
                                       sem_destroy3((*s_etat_processus)
                                               .semaphore_fork, getpid(),
                                               pthread_self(), SEM_FORK);
   #                                   endif
   
                                       liberation_contexte_cas(s_etat_processus);
                                       destruction_queue_signaux(s_etat_processus);
   
   #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                       stackoverflow_deinstall_handler();
   #                                   endif
   
                                       if ((*s_etat_processus).langue == 'F')
                                       {
                                           printf("+++Système : Mémoire "
                                                   "insuffisante\n");
                                       }
                                       else
                                       {
                                           printf("+++System : Not enough "
                                                   "memory\n");
                                       }
   
                                       return(EXIT_FAILURE);
                                   }
   
                                   if (((*(*l_nouvelle_bibliotheque).donnee)
                                           .objet = malloc((strlen(argv[0]) + 1) *
                                           sizeof(unsigned char))) == NULL)
                                   {
   #                                   ifndef SEMAPHORES_NOMMES
                                       sem_post(&((*s_etat_processus)
                                               .semaphore_fork));
                                       sem_destroy(&((*s_etat_processus)
                                               .semaphore_fork));
   #                                   else
                                       sem_post((*s_etat_processus)
                                               .semaphore_fork);
                                       sem_destroy3((*s_etat_processus)
                                               .semaphore_fork, getpid(),
                                               pthread_self(), SEM_FORK);
   #                                   endif
   
                                       liberation_contexte_cas(s_etat_processus);
                                       destruction_queue_signaux(s_etat_processus);
   
   #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                       stackoverflow_deinstall_handler();
   #                                   endif
   
                                       if ((*s_etat_processus).langue == 'F')
                                       {
                                           printf("+++Système : Mémoire "
                                                   "insuffisante\n");
                                       }
                                       else
                                       {
                                           printf("+++System : Not enough "
                                                   "memory\n");
                                       }
   
                                       return(EXIT_FAILURE);
                                   }
   
                                   strcpy((*(*l_nouvelle_bibliotheque).donnee)
                                           .objet, argv[0]);
                                   argv[0] += strlen((unsigned char *)
                                           (*(*l_nouvelle_bibliotheque).donnee)
                                           .objet) - 1;
   
                                   l_bibliotheques = l_nouvelle_bibliotheque;
                               }
                               else
                               {
   #                               ifndef SEMAPHORES_NOMMES
                                   sem_post(&((*s_etat_processus).semaphore_fork));
                                   sem_destroy(&((*s_etat_processus)
                                           .semaphore_fork));
   #                               else
                                   sem_post((*s_etat_processus).semaphore_fork);
                                   sem_destroy3((*s_etat_processus).semaphore_fork,
                                           getpid(), pthread_self(), SEM_FORK);
   #                               endif
   
                                   liberation_contexte_cas(s_etat_processus);
                                   destruction_queue_signaux(s_etat_processus);
   
   #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                   stackoverflow_deinstall_handler();
   #                               endif
   
                                   if ((*s_etat_processus).langue == 'F')
                                   {
                                       printf("+++Erreur : Aucune bibliothèque "
                                               "spécifiée après l'option -A\n");
                                   }
                                   else
                                   {
                                       printf("+++Error : Library required after "
                                               "-m option\n");
                                   }
   
                                   return(EXIT_FAILURE);
                               }
   
                               break;
                           }
   
                         case 'n' :                          case 'n' :
                         {                          {
                             if (option_n == d_vrai)                              if (option_n == d_vrai)
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1795  rplinit(int argc, char *argv[], char *en Line 1940  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1832  rplinit(int argc, char *argv[], char *en Line 1972  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1877  rplinit(int argc, char *argv[], char *en Line 2012  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1922  rplinit(int argc, char *argv[], char *en Line 2052  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 1967  rplinit(int argc, char *argv[], char *en Line 2092  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 2004  rplinit(int argc, char *argv[], char *en Line 2124  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 2052  rplinit(int argc, char *argv[], char *en Line 2167  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                                   else  #                                   else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork, getpid(),                                              .semaphore_fork, getpid(),
                                             pthread_self(), SEM_FORK);                                              pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 2113  rplinit(int argc, char *argv[], char *en Line 2221  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                                   else  #                                   else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork, getpid(),                                              .semaphore_fork, getpid(),
                                             pthread_self(), SEM_FORK);                                              pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 2167  rplinit(int argc, char *argv[], char *en Line 2268  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 2202  rplinit(int argc, char *argv[], char *en Line 2298  rplinit(int argc, char *argv[], char *en
                             }                              }
   
                             if (((*s_etat_processus).definitions_chainees =                              if (((*s_etat_processus).definitions_chainees =
                                     compactage((*s_etat_processus)                                      compactage(s_etat_processus,
                                     .definitions_chainees)) == NULL)                                      (*s_etat_processus).definitions_chainees))
                                       == NULL)
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 2242  rplinit(int argc, char *argv[], char *en Line 2334  rplinit(int argc, char *argv[], char *en
                             }                              }
   
                             (*s_etat_processus).longueur_definitions_chainees =                              (*s_etat_processus).longueur_definitions_chainees =
                                     strlen((*s_etat_processus)                                      (integer8) strlen((*s_etat_processus)
                                     .definitions_chainees);                                      .definitions_chainees);
   
                             break;                              break;
Line 2254  rplinit(int argc, char *argv[], char *en Line 2346  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 2302  rplinit(int argc, char *argv[], char *en Line 2389  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                                   else  #                                   else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork, getpid(),                                              .semaphore_fork, getpid(),
                                             pthread_self(), SEM_FORK);                                              pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 2363  rplinit(int argc, char *argv[], char *en Line 2443  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                                   else  #                                   else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork, getpid(),                                              .semaphore_fork, getpid(),
                                             pthread_self(), SEM_FORK);                                              pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 2416  rplinit(int argc, char *argv[], char *en Line 2489  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 2482  rplinit(int argc, char *argv[], char *en Line 2550  rplinit(int argc, char *argv[], char *en
 #                                       ifndef SEMAPHORES_NOMMES  #                                       ifndef SEMAPHORES_NOMMES
                                         sem_post(&((*s_etat_processus)                                          sem_post(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
                                         sem_post(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(&((*s_etat_processus)                                          sem_destroy(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
 #                                       else  #                                       else
                                         sem_post((*s_etat_processus)                                          sem_post((*s_etat_processus)
                                                 .semaphore_fork);                                                  .semaphore_fork);
                                         sem_post(  
                                                 semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy2(  
                                                 semaphore_gestionnaires_signaux,  
                                                 getpid(), SEM_SIGNAUX);  
                                         sem_destroy3((*s_etat_processus)                                          sem_destroy3((*s_etat_processus)
                                                 .semphore_fork, getpid(),                                                  .semaphore_fork, getpid(),
                                                 pthread_self(), SEM_FORK);                                                  pthread_self(), SEM_FORK);
 #                                       endif  #                                       endif
   
                                         liberation_contexte_cas(                                          liberation_contexte_cas(
                                                 s_etat_processus);                                                  s_etat_processus);
                                         liberation_queue_signaux(                                          destruction_queue_signaux(
                                                 s_etat_processus);                                                  s_etat_processus);
   
 #                                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
Line 2538  rplinit(int argc, char *argv[], char *en Line 2594  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 2582  rplinit(int argc, char *argv[], char *en Line 2633  rplinit(int argc, char *argv[], char *en
                             {                              {
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                               else  #                               else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 2711  rplinit(int argc, char *argv[], char *en Line 2757  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 2754  rplinit(int argc, char *argv[], char *en Line 2795  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 2789  rplinit(int argc, char *argv[], char *en Line 2825  rplinit(int argc, char *argv[], char *en
             }              }
   
             signal_test = SIGTEST;              signal_test = SIGTEST;
             kill(getpid(), SIGSEGV);              raise(SIGSEGV);
   
             attente.tv_sec = 0;              attente.tv_sec = 0;
             attente.tv_nsec = 1000000;              attente.tv_nsec = 1000000;
Line 2803  rplinit(int argc, char *argv[], char *en Line 2839  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 2847  rplinit(int argc, char *argv[], char *en Line 2878  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 2889  rplinit(int argc, char *argv[], char *en Line 2915  rplinit(int argc, char *argv[], char *en
             }              }
   
             signal_test = SIGTEST;              signal_test = SIGTEST;
             kill(getpid(), SIGBUS);              raise(SIGBUS);
   
             attente.tv_sec = 0;              attente.tv_sec = 0;
             attente.tv_nsec = 1000000;              attente.tv_nsec = 1000000;
Line 2903  rplinit(int argc, char *argv[], char *en Line 2929  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 2957  rplinit(int argc, char *argv[], char *en Line 2978  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3028  rplinit(int argc, char *argv[], char *en Line 3044  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3072  rplinit(int argc, char *argv[], char *en Line 3083  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3115  rplinit(int argc, char *argv[], char *en Line 3121  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3159  rplinit(int argc, char *argv[], char *en Line 3160  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3202  rplinit(int argc, char *argv[], char *en Line 3198  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus)                      sem_destroy(&((*s_etat_processus)
                             .semaphore_fork));                              .semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3268  rplinit(int argc, char *argv[], char *en Line 3259  rplinit(int argc, char *argv[], char *en
         {          {
 #           ifndef SEMAPHORES_NOMMES  #           ifndef SEMAPHORES_NOMMES
                 sem_post(&((*s_etat_processus).semaphore_fork));                  sem_post(&((*s_etat_processus).semaphore_fork));
                 sem_post(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&((*s_etat_processus).semaphore_fork));                  sem_destroy(&((*s_etat_processus).semaphore_fork));
 #           else  #           else
                 sem_post((*s_etat_processus).semaphore_fork);                  sem_post((*s_etat_processus).semaphore_fork);
                 sem_post(semaphore_gestionnaires_signaux);                  sem_destroy3((*s_etat_processus).semaphore_fork,
                 sem_destroy2(semaphore_gestionnaires_signaux,  
                         getpid(), SEM_SIGNAUX);  
                 sem_destroy3((*s_etat_processus).semphore_fork,  
                         getpid(), pthread_self(), SEM_FORK);                          getpid(), pthread_self(), SEM_FORK);
 #           endif  #           endif
   
             liberation_contexte_cas(s_etat_processus);              liberation_contexte_cas(s_etat_processus);
             liberation_queue_signaux(s_etat_processus);              destruction_queue_signaux(s_etat_processus);
   
 #           ifdef HAVE_STACK_OVERFLOW_RECOVERY  #           ifdef HAVE_STACK_OVERFLOW_RECOVERY
                 stackoverflow_deinstall_handler();                  stackoverflow_deinstall_handler();
Line 3328  rplinit(int argc, char *argv[], char *en Line 3314  rplinit(int argc, char *argv[], char *en
         {          {
 #           ifndef SEMAPHORES_NOMMES  #           ifndef SEMAPHORES_NOMMES
                 sem_post(&((*s_etat_processus).semaphore_fork));                  sem_post(&((*s_etat_processus).semaphore_fork));
                 sem_post(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&semaphore_gestionnaires_signaux);  
                 sem_destroy(&((*s_etat_processus).semaphore_fork));                  sem_destroy(&((*s_etat_processus).semaphore_fork));
 #           else  #           else
                 sem_post((*s_etat_processus).semaphore_fork);                  sem_post((*s_etat_processus).semaphore_fork);
                 sem_post(semaphore_gestionnaires_signaux);                  sem_destroy3((*s_etat_processus).semaphore_fork,
                 sem_destroy2(semaphore_gestionnaires_signaux,  
                         getpid(), SEM_SIGNAUX);  
                 sem_destroy3((*s_etat_processus).semphore_fork,  
                         getpid(), pthread_self(), SEM_FORK);                          getpid(), pthread_self(), SEM_FORK);
 #           endif  #           endif
   
             liberation_contexte_cas(s_etat_processus);              liberation_contexte_cas(s_etat_processus);
             liberation_queue_signaux(s_etat_processus);              destruction_queue_signaux(s_etat_processus);
   
 #           ifdef HAVE_STACK_OVERFLOW_RECOVERY  #           ifdef HAVE_STACK_OVERFLOW_RECOVERY
                 stackoverflow_deinstall_handler();                  stackoverflow_deinstall_handler();
Line 3392  rplinit(int argc, char *argv[], char *en Line 3373  rplinit(int argc, char *argv[], char *en
   
             (*s_etat_processus).liste_mutexes = NULL;              (*s_etat_processus).liste_mutexes = NULL;
             (*s_etat_processus).sections_critiques = 0;              (*s_etat_processus).sections_critiques = 0;
               (*s_etat_processus).initialisation_scheduler = d_faux;
   
             (*s_etat_processus).test_instruction = 'N';              (*s_etat_processus).test_instruction = 'N';
             (*s_etat_processus).nombre_arguments = 0;              (*s_etat_processus).nombre_arguments = 0;
Line 3425  rplinit(int argc, char *argv[], char *en Line 3407  rplinit(int argc, char *argv[], char *en
   
             (*s_etat_processus).s_arbre_variables = NULL;              (*s_etat_processus).s_arbre_variables = NULL;
             (*s_etat_processus).l_liste_variables_par_niveau = NULL;              (*s_etat_processus).l_liste_variables_par_niveau = NULL;
               (*s_etat_processus).l_liste_variables_statiques = NULL;
             (*s_etat_processus).gel_liste_variables = d_faux;              (*s_etat_processus).gel_liste_variables = d_faux;
               s_arbre_variables_partagees = NULL;
               l_liste_variables_partagees = NULL;
               (*s_etat_processus).s_arbre_variables_partagees =
                       &s_arbre_variables_partagees;
               (*s_etat_processus).l_liste_variables_partagees =
                       &l_liste_variables_partagees;
             (*s_etat_processus).pointeur_variable_courante = NULL;              (*s_etat_processus).pointeur_variable_courante = NULL;
             (*s_etat_processus).pointeur_variable_statique_courante = NULL;              (*s_etat_processus).pointeur_variable_statique_courante = NULL;
             (*s_etat_processus).l_liste_variables_statiques = NULL;              (*s_etat_processus).pointeur_variable_partagee_courante = NULL;
             (*s_etat_processus).niveau_courant = 0;              (*s_etat_processus).niveau_courant = 0;
             (*s_etat_processus).niveau_initial = 0;              (*s_etat_processus).niveau_initial = 0;
             (*s_etat_processus).creation_variables_statiques = d_faux;              (*s_etat_processus).creation_variables_statiques = d_faux;
Line 3587  rplinit(int argc, char *argv[], char *en Line 3576  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus).semaphore_fork));                      sem_destroy(&((*s_etat_processus).semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3630  rplinit(int argc, char *argv[], char *en Line 3614  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus).semaphore_fork));                      sem_destroy(&((*s_etat_processus).semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3687  rplinit(int argc, char *argv[], char *en Line 3666  rplinit(int argc, char *argv[], char *en
             {              {
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     sem_post(&((*s_etat_processus).semaphore_fork));                      sem_post(&((*s_etat_processus).semaphore_fork));
                     sem_post(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&semaphore_gestionnaires_signaux);  
                     sem_destroy(&((*s_etat_processus).semaphore_fork));                      sem_destroy(&((*s_etat_processus).semaphore_fork));
 #               else  #               else
                     sem_post((*s_etat_processus).semaphore_fork);                      sem_post((*s_etat_processus).semaphore_fork);
                     sem_post(semaphore_gestionnaires_signaux);                      sem_destroy3((*s_etat_processus).semaphore_fork,
                     sem_destroy2(semaphore_gestionnaires_signaux,  
                             getpid(), SEM_SIGNAUX);  
                     sem_destroy3((*s_etat_processus).semphore_fork,  
                             getpid(), pthread_self(), SEM_FORK);                              getpid(), pthread_self(), SEM_FORK);
 #               endif  #               endif
   
                 liberation_contexte_cas(s_etat_processus);                  liberation_contexte_cas(s_etat_processus);
                 liberation_queue_signaux(s_etat_processus);                  destruction_queue_signaux(s_etat_processus);
   
 #               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                     stackoverflow_deinstall_handler();                      stackoverflow_deinstall_handler();
Line 3777  rplinit(int argc, char *argv[], char *en Line 3751  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 3829  rplinit(int argc, char *argv[], char *en Line 3798  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 3909  rplinit(int argc, char *argv[], char *en Line 3873  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 3965  rplinit(int argc, char *argv[], char *en Line 3924  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 4061  rplinit(int argc, char *argv[], char *en Line 4015  rplinit(int argc, char *argv[], char *en
                         {                          {
 #                           ifndef SEMAPHORES_NOMMES  #                           ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                           else  #                           else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                           endif  #                           endif
   
                             liberation_contexte_cas(s_etat_processus);                              liberation_contexte_cas(s_etat_processus);
                             liberation_queue_signaux(s_etat_processus);                              destruction_queue_signaux(s_etat_processus);
   
 #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 4116  rplinit(int argc, char *argv[], char *en Line 4065  rplinit(int argc, char *argv[], char *en
                         }                          }
                     }                      }
   
                       /*
                        * Chargement des bibliothèques pour gérer des
                        * types externes lors des l'analyse syntaxique et
                        * compilation.
                        */
   
                       l_bibliotheque_courante = l_bibliotheques;
   
                       while(l_bibliotheque_courante != NULL)
                       {
                           if (empilement(s_etat_processus, &((*s_etat_processus)
                                   .l_base_pile), (*l_bibliotheque_courante)
                                   .donnee) == d_erreur)
                           {
   #                           ifndef SEMAPHORES_NOMMES
                                   sem_post(&((*s_etat_processus).semaphore_fork));
                                   sem_destroy(&((*s_etat_processus)
                                           .semaphore_fork));
   #                           else
                                   sem_post((*s_etat_processus).semaphore_fork);
                                   sem_destroy3((*s_etat_processus).semaphore_fork,
                                           getpid(), pthread_self(), SEM_FORK);
   #                           endif
   
                               liberation_contexte_cas(s_etat_processus);
                               destruction_queue_signaux(s_etat_processus);
   
   #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                   stackoverflow_deinstall_handler();
   #                           endif
   
   #                           ifdef HAVE_SIGSEGV_RECOVERY
                                   if (debug == d_faux)
                                   {
                                       sigsegv_deinstall_handler();
                                   }
   #                           endif
   
                               if ((*s_etat_processus).langue == 'F')
                               {
                                   printf("+++Fatal :"
                                           " Chargement de la bibliothèse %s"
                                           " impossible\n", (unsigned char *)
                                           (*(*l_bibliotheque_courante).donnee)
                                           .objet);
                               }
                               else
                               {
                                   printf("+++Fatal : Cannot load library %s\n",
                                           (*(*l_bibliotheque_courante).donnee)
                                           .objet);
                               }
   
                               if (traitement_fichier_temporaire == 'Y')
                               {
                                   if (destruction_fichier(
                                           nom_fichier_temporaire)
                                           == d_erreur)
                                   {
                                       return(EXIT_FAILURE);
                                   }
   
                                   free(nom_fichier_temporaire);
                               }
   
                               return(EXIT_FAILURE);
                           }
   
                           instruction_use(s_etat_processus);
   
                           if (depilement(s_etat_processus, &((*s_etat_processus)
                                   .l_base_pile), &((*l_bibliotheque_courante)
                                   .donnee)) == d_erreur)
                           {
   #                           ifndef SEMAPHORES_NOMMES
                                   sem_post(&((*s_etat_processus).semaphore_fork));
                                   sem_destroy(&((*s_etat_processus)
                                           .semaphore_fork));
   #                           else
                                   sem_post((*s_etat_processus).semaphore_fork);
                                   sem_destroy3((*s_etat_processus).semaphore_fork,
                                           getpid(), pthread_self(), SEM_FORK);
   #                           endif
   
                               liberation_contexte_cas(s_etat_processus);
                               destruction_queue_signaux(s_etat_processus);
   
   #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                   stackoverflow_deinstall_handler();
   #                           endif
   
   #                           ifdef HAVE_SIGSEGV_RECOVERY
                                   if (debug == d_faux)
                                   {
                                       sigsegv_deinstall_handler();
                                   }
   #                           endif
   
                               if ((*s_etat_processus).langue == 'F')
                               {
                                   printf("+++Fatal :"
                                           " Chargement de la bibliothèse %s"
                                           " impossible\n", (unsigned char *)
                                           (*(*l_bibliotheque_courante).donnee)
                                           .objet);
                               }
                               else
                               {
                                   printf("+++Fatal : Cannot load library %s\n",
                                           (*(*l_bibliotheque_courante).donnee)
                                           .objet);
                               }
   
                               if (traitement_fichier_temporaire == 'Y')
                               {
                                   if (destruction_fichier(
                                           nom_fichier_temporaire)
                                           == d_erreur)
                                   {
                                       return(EXIT_FAILURE);
                                   }
   
                                   free(nom_fichier_temporaire);
                               }
   
                               return(EXIT_FAILURE);
                           }
   
                           l_bibliotheque_courante =
                                   (*l_bibliotheque_courante).suivant;
                       }
   
                     if ((erreur = compilation(s_etat_processus)) !=                      if ((erreur = compilation(s_etat_processus)) !=
                             d_absence_erreur)                              d_absence_erreur)
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 4208  rplinit(int argc, char *argv[], char *en Line 4284  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 4256  rplinit(int argc, char *argv[], char *en Line 4327  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 4305  rplinit(int argc, char *argv[], char *en Line 4371  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 4353  rplinit(int argc, char *argv[], char *en Line 4414  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 4406  rplinit(int argc, char *argv[], char *en Line 4462  rplinit(int argc, char *argv[], char *en
                     {                      {
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             sem_post(&((*s_etat_processus).semaphore_fork));                              sem_post(&((*s_etat_processus).semaphore_fork));
                             sem_post(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&semaphore_gestionnaires_signaux);  
                             sem_destroy(&((*s_etat_processus).semaphore_fork));                              sem_destroy(&((*s_etat_processus).semaphore_fork));
 #                       else  #                       else
                             sem_post((*s_etat_processus).semaphore_fork);                              sem_post((*s_etat_processus).semaphore_fork);
                             sem_post(semaphore_gestionnaires_signaux);                              sem_destroy3((*s_etat_processus).semaphore_fork,
                             sem_destroy2(semaphore_gestionnaires_signaux,  
                                     getpid(), SEM_SIGNAUX);  
                             sem_destroy3((*s_etat_processus).semphore_fork,  
                                     getpid(), pthread_self(), SEM_FORK);                                      getpid(), pthread_self(), SEM_FORK);
 #                       endif  #                       endif
   
                         liberation_contexte_cas(s_etat_processus);                          liberation_contexte_cas(s_etat_processus);
                         liberation_queue_signaux(s_etat_processus);                          destruction_queue_signaux(s_etat_processus);
   
 #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                       ifdef HAVE_STACK_OVERFLOW_RECOVERY
                             stackoverflow_deinstall_handler();                              stackoverflow_deinstall_handler();
Line 4464  rplinit(int argc, char *argv[], char *en Line 4515  rplinit(int argc, char *argv[], char *en
                     {                      {
                         (*s_etat_processus).erreur_systeme = d_es;                          (*s_etat_processus).erreur_systeme = d_es;
                         encart(s_etat_processus,                          encart(s_etat_processus,
                                 (unsigned long) (5 * 1000000));                                  (integer8) (5 * 1000000));
   
                         if ((*s_etat_processus).erreur_systeme != d_es)                          if ((*s_etat_processus).erreur_systeme != d_es)
                         {                          {
Line 4474  rplinit(int argc, char *argv[], char *en Line 4525  rplinit(int argc, char *argv[], char *en
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                               else  #                               else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork,                                              .semaphore_fork,
                                             getpid(), pthread_self(), SEM_FORK);                                              getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 4544  rplinit(int argc, char *argv[], char *en Line 4588  rplinit(int argc, char *argv[], char *en
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                               else  #                               else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork,                                              .semaphore_fork,
                                             getpid(), pthread_self(), SEM_FORK);                                              getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 4595  rplinit(int argc, char *argv[], char *en Line 4632  rplinit(int argc, char *argv[], char *en
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                               else  #                               else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork,                                              .semaphore_fork,
                                             getpid(), pthread_self(), SEM_FORK);                                              getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 4645  rplinit(int argc, char *argv[], char *en Line 4675  rplinit(int argc, char *argv[], char *en
                         (*s_etat_processus).definitions_chainees = tampon;                          (*s_etat_processus).definitions_chainees = tampon;
                         (*s_etat_processus).position_courante = 0;                          (*s_etat_processus).position_courante = 0;
   
                           (*s_etat_processus).type_en_cours = NON;
                         recherche_type(s_etat_processus);                          recherche_type(s_etat_processus);
   
                         if ((*s_etat_processus).erreur_systeme != d_es)                          if ((*s_etat_processus).erreur_systeme != d_es)
                         {                          {
 #                           ifndef SEMAPHORES_NOMMES  #                           ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                           else  #                           else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                           endif  #                           endif
   
                             liberation_contexte_cas(s_etat_processus);                              liberation_contexte_cas(s_etat_processus);
                             liberation_queue_signaux(s_etat_processus);                              destruction_queue_signaux(s_etat_processus);
   
 #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 4711  rplinit(int argc, char *argv[], char *en Line 4737  rplinit(int argc, char *argv[], char *en
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                               else  #                               else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork,                                              .semaphore_fork,
                                             getpid(), pthread_self(), SEM_FORK);                                              getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 4763  rplinit(int argc, char *argv[], char *en Line 4782  rplinit(int argc, char *argv[], char *en
   
 #                           ifndef SEMAPHORES_NOMMES  #                           ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                           else  #                           else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                           endif  #                           endif
   
                             liberation_contexte_cas(s_etat_processus);                              liberation_contexte_cas(s_etat_processus);
                             liberation_queue_signaux(s_etat_processus);                              destruction_queue_signaux(s_etat_processus);
   
 #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 4803  rplinit(int argc, char *argv[], char *en Line 4817  rplinit(int argc, char *argv[], char *en
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                               else  #                               else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork,                                              .semaphore_fork,
                                             getpid(), pthread_self(), SEM_FORK);                                              getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 4856  rplinit(int argc, char *argv[], char *en Line 4863  rplinit(int argc, char *argv[], char *en
   
 #                           ifndef SEMAPHORES_NOMMES  #                           ifndef SEMAPHORES_NOMMES
                                 sem_post(&((*s_etat_processus).semaphore_fork));                                  sem_post(&((*s_etat_processus).semaphore_fork));
                                 sem_post(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&semaphore_gestionnaires_signaux);  
                                 sem_destroy(&((*s_etat_processus)                                  sem_destroy(&((*s_etat_processus)
                                         .semaphore_fork));                                          .semaphore_fork));
 #                           else  #                           else
                                 sem_post((*s_etat_processus).semaphore_fork);                                  sem_post((*s_etat_processus).semaphore_fork);
                                 sem_post(semaphore_gestionnaires_signaux);                                  sem_destroy3((*s_etat_processus).semaphore_fork,
                                 sem_destroy2(semaphore_gestionnaires_signaux,  
                                         getpid(), SEM_SIGNAUX);  
                                 sem_destroy3((*s_etat_processus).semphore_fork,  
                                         getpid(), pthread_self(), SEM_FORK);                                          getpid(), pthread_self(), SEM_FORK);
 #                           endif  #                           endif
   
                             liberation_contexte_cas(s_etat_processus);                              liberation_contexte_cas(s_etat_processus);
                             liberation_queue_signaux(s_etat_processus);                              destruction_queue_signaux(s_etat_processus);
   
 #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                           ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                 stackoverflow_deinstall_handler();                                  stackoverflow_deinstall_handler();
Line 4886  rplinit(int argc, char *argv[], char *en Line 4888  rplinit(int argc, char *argv[], char *en
                             return(EXIT_FAILURE);                              return(EXIT_FAILURE);
                         }                          }
   
                           empilement_pile_systeme(s_etat_processus);
   
                         if (evaluation(s_etat_processus, s_objet, 'E')                          if (evaluation(s_etat_processus, s_objet, 'E')
                                 == d_erreur)                                  == d_erreur)
                         {                          {
Line 4897  rplinit(int argc, char *argv[], char *en Line 4901  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                         sem_post(&((*s_etat_processus)                                          sem_post(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
                                         sem_post(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(&((*s_etat_processus)                                          sem_destroy(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
 #                                   else  #                                   else
                                         sem_post((*s_etat_processus)                                          sem_post((*s_etat_processus)
                                                 .semaphore_fork);                                                  .semaphore_fork);
                                         sem_post(  
                                                 semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy2(  
                                                 semaphore_gestionnaires_signaux,  
                                                 getpid(), SEM_SIGNAUX);  
                                         sem_destroy3((*s_etat_processus)                                          sem_destroy3((*s_etat_processus)
                                                 .semphore_fork, getpid(),                                                  .semaphore_fork, getpid(),
                                                 pthread_self(), SEM_FORK);                                                  pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                         stackoverflow_deinstall_handler();                                          stackoverflow_deinstall_handler();
Line 4956  rplinit(int argc, char *argv[], char *en Line 4948  rplinit(int argc, char *argv[], char *en
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                               else  #                               else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork,                                              .semaphore_fork,
                                             getpid(), pthread_self(), SEM_FORK);                                              getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 5000  rplinit(int argc, char *argv[], char *en Line 4985  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                         sem_post(&((*s_etat_processus)                                          sem_post(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
                                         sem_post(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(&((*s_etat_processus)                                          sem_destroy(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
 #                                   else  #                                   else
                                         sem_post((*s_etat_processus)                                          sem_post((*s_etat_processus)
                                                 .semaphore_fork);                                                  .semaphore_fork);
                                         sem_post(  
                                                 semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy2(  
                                                 semaphore_gestionnaires_signaux,  
                                                 getpid(), SEM_SIGNAUX);  
                                         sem_destroy3((*s_etat_processus)                                          sem_destroy3((*s_etat_processus)
                                                 .semphore_fork, getpid(),                                                  .semaphore_fork, getpid(),
                                                 pthread_self(), SEM_FORK);                                                  pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                         stackoverflow_deinstall_handler();                                          stackoverflow_deinstall_handler();
Line 5059  rplinit(int argc, char *argv[], char *en Line 5032  rplinit(int argc, char *argv[], char *en
 #                               ifndef SEMAPHORES_NOMMES  #                               ifndef SEMAPHORES_NOMMES
                                     sem_post(&((*s_etat_processus)                                      sem_post(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
                                     sem_post(&semaphore_gestionnaires_signaux);  
                                     sem_destroy(  
                                             &semaphore_gestionnaires_signaux);  
                                     sem_destroy(&((*s_etat_processus)                                      sem_destroy(&((*s_etat_processus)
                                             .semaphore_fork));                                              .semaphore_fork));
 #                               else  #                               else
                                     sem_post((*s_etat_processus)                                      sem_post((*s_etat_processus)
                                             .semaphore_fork);                                              .semaphore_fork);
                                     sem_post(semaphore_gestionnaires_signaux);  
                                     sem_destroy2(  
                                             semaphore_gestionnaires_signaux,  
                                             getpid(), SEM_SIGNAUX);  
                                     sem_destroy3((*s_etat_processus)                                      sem_destroy3((*s_etat_processus)
                                             .semphore_fork,                                              .semaphore_fork,
                                             getpid(), pthread_self(), SEM_FORK);                                              getpid(), pthread_self(), SEM_FORK);
 #                               endif  #                               endif
   
                                 liberation_contexte_cas(s_etat_processus);                                  liberation_contexte_cas(s_etat_processus);
                                 liberation_queue_signaux(s_etat_processus);                                  destruction_queue_signaux(s_etat_processus);
   
 #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                               ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                     stackoverflow_deinstall_handler();                                      stackoverflow_deinstall_handler();
Line 5120  rplinit(int argc, char *argv[], char *en Line 5086  rplinit(int argc, char *argv[], char *en
   
                                 if (erreur == d_absence_erreur)                                  if (erreur == d_absence_erreur)
                                 {                                  {
                                     if (((*s_etat_processus).var_volatile_alarme                                      if (((*s_etat_processus)
                                             == 0) && ((*s_etat_processus)  
                                             .arret_depuis_abort == 0) &&                                              .arret_depuis_abort == 0) &&
                                             ((*s_etat_processus).at_exit                                              ((*s_etat_processus).at_exit
                                             != NULL))                                              != NULL))
                                     {                                      {
                                           // Permet de traiter ATEXIT
                                           // même après réception d'un SIGINT.
                                           (*s_etat_processus)
                                                   .var_volatile_alarme = 0;
                                           (*s_etat_processus)
                                                   .var_volatile_requete_arret = 0;
   
                                           if ((*s_etat_processus).profilage ==
                                                   d_vrai)
                                           {
                                               profilage(s_etat_processus,
                                                       "ATEXIT");
                                           }
   
                                         erreur = evaluation(s_etat_processus,                                          erreur = evaluation(s_etat_processus,
                                                 (*s_etat_processus).at_exit,                                                  (*s_etat_processus).at_exit,
                                                 'E');                                                  'E');
   
                                           if ((*s_etat_processus).profilage ==
                                                   d_vrai)
                                           {
                                               profilage(s_etat_processus, NULL);
                                           }
   
                                           if (((*s_etat_processus)
                                                   .erreur_execution != d_ex) ||
                                                   ((*s_etat_processus).exception
                                                   != d_ep) || ((*s_etat_processus)
                                                   .erreur_systeme != d_es))
                                           {
                                               printf("%s [%d]\n", message =
                                                       messages(s_etat_processus),
                                                       (int) getpid());
                                               free(message);
   
                                               if (test_cfsf(s_etat_processus, 51)
                                                       == d_faux)
                                               {
                                                   printf("%s", ds_beep);
                                               }
   
                                               if ((*s_etat_processus).core ==
                                                       d_vrai)
                                               {
                                                   printf("\n");
   
                                                   if ((*s_etat_processus).langue
                                                           == 'F')
                                                   {
                                                       printf("+++Information : Gé"
                                                               "nération du fichie"
                                                               "r rpl-core "
                                                               "[%d]\n", (int)
                                                               getpid());
                                                   }
                                                   else
                                                   {
                                                       printf("+++Information : Wr"
                                                               "iting rpl-core fil"
                                                               "e [%d]\n",
                                                               (int) getpid());
                                                   }
   
                                                   rplcore(s_etat_processus);
   
                                                   if ((*s_etat_processus).langue
                                                           == 'F')
                                                   {
                                                       printf("+++Information : Pr"
                                                               "ocessus tracé [%d]"
                                                               "\n",
                                                               (int) getpid());
                                                   }
                                                   else
                                                   {
                                                       printf("+++Information : Do"
                                                               "ne [%d]\n", (int)
                                                               getpid());
                                                   }
   
                                                   printf("\n");
                                                   fflush(stdout);
                                               }
                                           }
                                     }                                      }
                                 }                                  }
                             }                              }
Line 5137  rplinit(int argc, char *argv[], char *en Line 5183  rplinit(int argc, char *argv[], char *en
                         {                          {
                             if (setjmp(contexte_initial) == 0)                              if (setjmp(contexte_initial) == 0)
                             {                              {
                                 erreur = sequenceur_optimise(s_etat_processus);                                  erreur = sequenceur_optimise(s_etat_processus,
                                           l_bibliotheques);
   
                                 if (erreur == d_absence_erreur)                                  if (erreur == d_absence_erreur)
                                 {                                  {
                                     if (((*s_etat_processus).var_volatile_alarme                                      if (((*s_etat_processus)
                                             == 0) && ((*s_etat_processus)  
                                             .arret_depuis_abort == 0) &&                                              .arret_depuis_abort == 0) &&
                                             ((*s_etat_processus).at_exit                                              ((*s_etat_processus).at_exit
                                             != NULL))                                              != NULL))
                                     {                                      {
                                           // Permet de traiter ATEXIT
                                           // même après réception d'un SIGINT.
                                           (*s_etat_processus)
                                                   .var_volatile_alarme = 0;
                                           (*s_etat_processus)
                                                   .var_volatile_requete_arret = 0;
   
                                           if ((*s_etat_processus).profilage ==
                                                   d_vrai)
                                           {
                                               profilage(s_etat_processus,
                                                       "ATEXIT");
                                           }
   
                                         erreur = evaluation(s_etat_processus,                                          erreur = evaluation(s_etat_processus,
                                                 (*s_etat_processus).at_exit,                                                  (*s_etat_processus).at_exit,
                                                 'E');                                                  'E');
   
                                           if ((*s_etat_processus).profilage ==
                                                   d_vrai)
                                           {
                                               profilage(s_etat_processus, NULL);
                                           }
   
                                           if (((*s_etat_processus)
                                                   .erreur_execution != d_ex) ||
                                                   ((*s_etat_processus).exception
                                                   != d_ep) || ((*s_etat_processus)
                                                   .erreur_systeme != d_es))
                                           {
                                               printf("%s [%d]\n", message =
                                                       messages(s_etat_processus),
                                                       (int) getpid());
                                               free(message);
   
                                               if (test_cfsf(s_etat_processus, 51)
                                                       == d_faux)
                                               {
                                                   printf("%s", ds_beep);
                                               }
   
                                               if ((*s_etat_processus).core ==
                                                       d_vrai)
                                               {
                                                   printf("\n");
   
                                                   if ((*s_etat_processus).langue
                                                           == 'F')
                                                   {
                                                       printf("+++Information : Gé"
                                                               "nération du fichie"
                                                               "r rpl-core "
                                                               "[%d]\n", (int)
                                                               getpid());
                                                   }
                                                   else
                                                   {
                                                       printf("+++Information : Wr"
                                                               "iting rpl-core fil"
                                                               "e [%d]\n",
                                                               (int) getpid());
                                                   }
   
                                                   rplcore(s_etat_processus);
   
                                                   if ((*s_etat_processus).langue
                                                           == 'F')
                                                   {
                                                       printf("+++Information : Pr"
                                                               "ocessus tracé [%d]"
                                                               "\n",
                                                               (int) getpid());
                                                   }
                                                   else
                                                   {
                                                       printf("+++Information : Do"
                                                               "ne [%d]\n", (int)
                                                               getpid());
                                                   }
   
                                                   printf("\n");
                                                   fflush(stdout);
                                               }
                                           }
                                     }                                      }
                                 }                                  }
                             }                              }
Line 5190  rplinit(int argc, char *argv[], char *en Line 5317  rplinit(int argc, char *argv[], char *en
                         pthread_cancel((*s_etat_processus).thread_fusible);                          pthread_cancel((*s_etat_processus).thread_fusible);
                     }                      }
   
                     pthread_mutex_lock(&((*s_etat_processus).mutex));                      pthread_mutex_lock(&((*s_etat_processus)
                               .mutex_pile_processus));
   
                     l_element_courant = (void *) (*s_etat_processus)                      l_element_courant = (void *) (*s_etat_processus)
                             .l_base_pile_processus;                              .l_base_pile_processus;
Line 5267  rplinit(int argc, char *argv[], char *en Line 5395  rplinit(int argc, char *argv[], char *en
                                         (*(*((struct_processus_fils *)                                          (*(*((struct_processus_fils *)
                                         (*(*((struct_liste_chainee *)                                          (*(*((struct_liste_chainee *)
                                         l_element_courant)).donnee).objet))                                          l_element_courant)).donnee).objet))
                                         .thread).pid, rpl_sigurg);                                          .thread).pid, rpl_sigurg, d_faux);
                             }                              }
                             else                              else
                             {                              {
Line 5278  rplinit(int argc, char *argv[], char *en Line 5406  rplinit(int argc, char *argv[], char *en
                                             (*(*((struct_processus_fils *)                                              (*(*((struct_processus_fils *)
                                             (*(*((struct_liste_chainee *)                                              (*(*((struct_liste_chainee *)
                                             l_element_courant)).donnee).objet))                                              l_element_courant)).donnee).objet))
                                             .thread).pid, rpl_sigabort);                                              .thread).pid, rpl_sigabort, d_faux);
                                 }                                  }
                                 else                                  else
                                 {                                  {
Line 5286  rplinit(int argc, char *argv[], char *en Line 5414  rplinit(int argc, char *argv[], char *en
                                             (*(*((struct_processus_fils *)                                              (*(*((struct_processus_fils *)
                                             (*(*((struct_liste_chainee *)                                              (*(*((struct_liste_chainee *)
                                             l_element_courant)).donnee).objet))                                              l_element_courant)).donnee).objet))
                                             .thread).pid, rpl_sigstop);                                              .thread).pid, rpl_sigstop, d_faux);
                                 }                                  }
                             }                              }
                         }                          }
Line 5362  rplinit(int argc, char *argv[], char *en Line 5490  rplinit(int argc, char *argv[], char *en
                         l_element_courant = (void *)                          l_element_courant = (void *)
                                 (*s_etat_processus).l_base_pile_processus;                                  (*s_etat_processus).l_base_pile_processus;
   
                         for(i = 0; i < (unsigned long)                          for(i = 0; i < (*(*((struct_processus_fils *)
                                 (*(*((struct_processus_fils *)  
                                 (*(*((struct_liste_chainee *)                                  (*(*((struct_liste_chainee *)
                                 l_element_courant)).donnee).objet)).thread)                                  l_element_courant)).donnee).objet)).thread)
                                 .nombre_objets_dans_pipe; i++)                                  .nombre_objets_dans_pipe; i++)
Line 5391  rplinit(int argc, char *argv[], char *en Line 5518  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                         sem_post(&((*s_etat_processus)                                          sem_post(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
                                         sem_post(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(&((*s_etat_processus)                                          sem_destroy(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
 #                                   else  #                                   else
                                         sem_post((*s_etat_processus)                                          sem_post((*s_etat_processus)
                                                 .semaphore_fork);                                                  .semaphore_fork);
                                         sem_post(  
                                                 semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy2(  
                                                 semaphore_gestionnaires_signaux,  
                                                 getpid(), SEM_SIGNAUX);  
                                         sem_destroy3((*s_etat_processus)                                          sem_destroy3((*s_etat_processus)
                                                 .semphore_fork, getpid(),                                                  .semaphore_fork, getpid(),
                                                 pthread_self(), SEM_FORK);                                                  pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                         stackoverflow_deinstall_handler();                                          stackoverflow_deinstall_handler();
Line 5427  rplinit(int argc, char *argv[], char *en Line 5542  rplinit(int argc, char *argv[], char *en
                                         }                                          }
 #                                   endif  #                                   endif
   
                                     pthread_mutex_unlock(                                      pthread_mutex_unlock(&((*s_etat_processus)
                                             &((*s_etat_processus).mutex));                                              .mutex_pile_processus));
                                     return(EXIT_FAILURE);                                      return(EXIT_FAILURE);
                                 }                                  }
   
Line 5454  rplinit(int argc, char *argv[], char *en Line 5569  rplinit(int argc, char *argv[], char *en
 #                                   ifndef SEMAPHORES_NOMMES  #                                   ifndef SEMAPHORES_NOMMES
                                         sem_post(&((*s_etat_processus)                                          sem_post(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
                                         sem_post(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(  
                                                 &semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy(&((*s_etat_processus)                                          sem_destroy(&((*s_etat_processus)
                                                 .semaphore_fork));                                                  .semaphore_fork));
 #                                   else  #                                   else
                                         sem_post((*s_etat_processus)                                          sem_post((*s_etat_processus)
                                                 .semaphore_fork);                                                  .semaphore_fork);
                                         sem_post(  
                                                 semaphore_gestionnaires_signaux  
                                                 );  
                                         sem_destroy2(  
                                                 semaphore_gestionnaires_signaux,  
                                                 getpid(), SEM_SIGNAUX);  
                                         sem_destroy3((*s_etat_processus)                                          sem_destroy3((*s_etat_processus)
                                                 .semphore_fork, getpid(),                                                  .semaphore_fork, getpid(),
                                                 pthread_self(), SEM_FORK);                                                  pthread_self(), SEM_FORK);
 #                                   endif  #                                   endif
   
                                     liberation_contexte_cas(s_etat_processus);                                      liberation_contexte_cas(s_etat_processus);
                                     liberation_queue_signaux(s_etat_processus);                                      destruction_queue_signaux(s_etat_processus);
   
 #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY  #                                   ifdef HAVE_STACK_OVERFLOW_RECOVERY
                                         stackoverflow_deinstall_handler();                                          stackoverflow_deinstall_handler();
Line 5490  rplinit(int argc, char *argv[], char *en Line 5593  rplinit(int argc, char *argv[], char *en
                                         }                                          }
 #                                   endif  #                                   endif
   
                                     pthread_mutex_unlock(                                      pthread_mutex_unlock(&((*s_etat_processus)
                                             &((*s_etat_processus).mutex));                                              .mutex_pile_processus));
                                     return(EXIT_FAILURE);                                      return(EXIT_FAILURE);
                                 }                                  }
                             }                              }
                         }                          }
   
                         pthread_mutex_unlock(&((*s_etat_processus).mutex));                          pthread_mutex_lock(&((*s_etat_processus)
                                   .mutex_interruptions));
   
                         if ((*s_etat_processus)                          if ((*s_etat_processus)
                                 .nombre_interruptions_non_affectees != 0)                                  .nombre_interruptions_non_affectees != 0)
Line 5506  rplinit(int argc, char *argv[], char *en Line 5610  rplinit(int argc, char *argv[], char *en
                                     s_etat_processus);                                      s_etat_processus);
                         }                          }
   
                           pthread_mutex_unlock(&((*s_etat_processus)
                                   .mutex_interruptions));
                           pthread_mutex_unlock(&((*s_etat_processus)
                                   .mutex_pile_processus));
                         nanosleep(&attente, NULL);                          nanosleep(&attente, NULL);
                         scrutation_interruptions(s_etat_processus);                          scrutation_interruptions(s_etat_processus);
                         pthread_mutex_lock(&((*s_etat_processus).mutex));                          pthread_mutex_lock(&((*s_etat_processus)
                                   .mutex_pile_processus));
                     }                      }
   
                     pthread_mutex_unlock(&((*s_etat_processus).mutex));                      pthread_mutex_unlock(&((*s_etat_processus)
                               .mutex_pile_processus));
   
                     erreur_historique = write_history(                      erreur_historique = write_history(
                             (*s_etat_processus).nom_fichier_historique);                              (*s_etat_processus).nom_fichier_historique);
Line 5662  rplinit(int argc, char *argv[], char *en Line 5772  rplinit(int argc, char *argv[], char *en
                      */                       */
   
                     liberation_arbre_variables_partagees(s_etat_processus,                      liberation_arbre_variables_partagees(s_etat_processus,
                             (*s_etat_processus).s_arbre_variables);                              (*(*s_etat_processus).s_arbre_variables_partagees));
                     liberation_arbre_variables(s_etat_processus,                      liberation_arbre_variables(s_etat_processus,
                             (*s_etat_processus).s_arbre_variables, d_vrai);                              (*s_etat_processus).s_arbre_variables, d_vrai);
                     free((*s_etat_processus).pointeurs_caracteres_variables);                      free((*s_etat_processus).pointeurs_caracteres_variables);
Line 5678  rplinit(int argc, char *argv[], char *en Line 5788  rplinit(int argc, char *argv[], char *en
                         l_element_statique_courant = l_element_statique_suivant;                          l_element_statique_courant = l_element_statique_suivant;
                     }                      }
   
                       l_element_partage_courant = (*(*s_etat_processus)
                               .l_liste_variables_partagees);
   
                       while(l_element_partage_courant != NULL)
                       {
                           l_element_partage_suivant =
                                   (*l_element_partage_courant).suivant;
                           free(l_element_partage_courant);
                           l_element_partage_courant = l_element_partage_suivant;
                       }
   
                     /*                      /*
                      * Si resultats est non nul, rplinit a été appelé                       * Si resultats est non nul, rplinit a été appelé
                      * depuis rpl() [librpl] et non main().                       * depuis rpl() [librpl] et non main().
Line 5690  rplinit(int argc, char *argv[], char *en Line 5811  rplinit(int argc, char *argv[], char *en
                     {                      {
                         if ((*resultats) != NULL)                          if ((*resultats) != NULL)
                         {                          {
                             free((*resultats));                              sys_free((*resultats));
   
                             if (((*resultats) = malloc(((*s_etat_processus)                              if (((*resultats) = sys_malloc(((size_t)
                                     .hauteur_pile_operationnelle + 1)                                      ((*s_etat_processus)
                                       .hauteur_pile_operationnelle + 1))
                                     * sizeof(unsigned char **))) != NULL)                                      * sizeof(unsigned char **))) != NULL)
                             {                              {
                                 (*resultats)[(*s_etat_processus)                                  (*resultats)[(*s_etat_processus)
Line 5778  rplinit(int argc, char *argv[], char *en Line 5900  rplinit(int argc, char *argv[], char *en
                         l_element_courant = l_element_suivant;                          l_element_courant = l_element_suivant;
                     }                      }
   
                     for(i = 0; i < (*s_etat_processus)  
                             .nombre_instructions_externes; i++)  
                     {  
                         free((*s_etat_processus).s_instructions_externes[i]  
                                 .nom);  
                         free((*s_etat_processus).s_instructions_externes[i]  
                                 .nom_bibliotheque);  
                     }  
   
                     if ((*s_etat_processus).nombre_instructions_externes != 0)  
                     {  
                         free((*s_etat_processus).s_instructions_externes);  
                     }  
   
                     l_element_courant = (void *) (*s_etat_processus)  
                             .s_bibliotheques;  
                       
                     while(l_element_courant != NULL)  
                     {  
                         l_element_suivant = (*((struct_liste_chainee *)  
                                 l_element_courant)).suivant;  
   
                         free((*((struct_bibliotheque *)  
                                 (*((struct_liste_chainee *)  
                                 l_element_courant)).donnee)).nom);  
                         dlclose((*((struct_bibliotheque *)  
                                 (*((struct_liste_chainee *)  
                                 l_element_courant)).donnee)).descripteur);  
                         free((*((struct_liste_chainee *) l_element_courant))  
                                 .donnee);  
                         free(l_element_courant);  
   
                         l_element_courant = l_element_suivant;  
                     }  
   
                     l_element_courant = (void *) (*s_etat_processus)                      l_element_courant = (void *) (*s_etat_processus)
                             .l_base_pile_last;                              .l_base_pile_last;
                     while(l_element_courant != NULL)                      while(l_element_courant != NULL)
Line 5828  rplinit(int argc, char *argv[], char *en Line 5915  rplinit(int argc, char *argv[], char *en
                         l_element_courant = l_element_suivant;                          l_element_courant = l_element_suivant;
                     }                      }
   
                       while((*s_etat_processus).s_bibliotheques != NULL)
                       {
                           retrait_bibliotheque(s_etat_processus,
                                   (struct_bibliotheque *)
                                   (*((struct_liste_chainee *)
                                   (*s_etat_processus).s_bibliotheques)).donnee);
                       }
   
                     l_element_courant = (void *) (*s_etat_processus)                      l_element_courant = (void *) (*s_etat_processus)
                             .l_base_pile_systeme;                              .l_base_pile_systeme;
                     while(l_element_courant != NULL)                      while(l_element_courant != NULL)
Line 6012  rplinit(int argc, char *argv[], char *en Line 6107  rplinit(int argc, char *argv[], char *en
   
     retrait_thread(s_etat_processus);      retrait_thread(s_etat_processus);
   
     pthread_mutex_destroy(&((*s_etat_processus).mutex));      attente.tv_sec = 0;
       attente.tv_nsec = GRANULARITE_us * 1000;
   
       while(nombre_thread_surveillance_processus != 0)
       {
           nanosleep(&attente, NULL);
           INCR_GRANULARITE(attente.tv_nsec);
       }
   
       attente.tv_sec = 0;
       attente.tv_nsec = GRANULARITE_us * 1000;
   
       while(pthread_mutex_trylock(&((*s_etat_processus).mutex_pile_processus))
               == EBUSY)
       {
           nanosleep(&attente, NULL);
           INCR_GRANULARITE(attente.tv_nsec);
       }
   
       pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus));
       pthread_mutex_destroy(&((*s_etat_processus).mutex_pile_processus));
     pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));      pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));
       pthread_mutex_destroy(&((*s_etat_processus).mutex_interruptions));
     pthread_mutex_destroy(&mutex_sections_critiques);      pthread_mutex_destroy(&mutex_sections_critiques);
       pthread_mutex_destroy(&mutex_liste_variables_partagees);
   
       free((*s_etat_processus).localisation);
   
       destruction_queue_signaux(s_etat_processus);
       pthread_mutex_destroy(&((*s_etat_processus).mutex_signaux));
       liberation_contexte_cas(s_etat_processus);
   
 #   ifndef SEMAPHORES_NOMMES  #   ifndef SEMAPHORES_NOMMES
     sem_post(&((*s_etat_processus).semaphore_fork));      sem_post(&((*s_etat_processus).semaphore_fork));
Line 6025  rplinit(int argc, char *argv[], char *en Line 6148  rplinit(int argc, char *argv[], char *en
             SEM_FORK);              SEM_FORK);
 #   endif  #   endif
   
     free((*s_etat_processus).localisation);  
   
 #   ifndef SEMAPHORES_NOMMES  
     sem_post(&semaphore_gestionnaires_signaux);  
     sem_destroy(&semaphore_gestionnaires_signaux);  
 #   else  
     sem_post(semaphore_gestionnaires_signaux);  
     sem_destroy2(semaphore_gestionnaires_signaux, getpid(), SEM_SIGNAUX);  
 #   endif  
   
     destruction_queue_signaux(s_etat_processus);  
     liberation_contexte_cas(s_etat_processus);  
   
     free((*s_etat_processus).chemin_fichiers_temporaires);      free((*s_etat_processus).chemin_fichiers_temporaires);
   
     if ((*s_etat_processus).requete_redemarrage == d_vrai)      if ((*s_etat_processus).requete_redemarrage == d_vrai)
     {      {
         chdir(repertoire_initial);          if (chdir(repertoire_initial) == 0)
         execvp(arg_exec[0], &(arg_exec[0]));          {
               execvp(arg_exec[0], &(arg_exec[0]));
           }
   
         erreur = d_erreur;          erreur = d_erreur;
     }      }
   
     free(arg_exec);      liberation_etat_processus_readline();
     arret_thread_signaux(s_etat_processus);  
     free(s_etat_processus);      liberation_allocateur_buffer(s_etat_processus);
       pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation_buffer));
       pthread_mutex_destroy(&mutex_liste_threads);
   
       sys_free(s_etat_processus);
       sys_free(arg_exec);
   
 #   ifdef DEBUG_MEMOIRE  #   ifdef DEBUG_MEMOIRE
     debug_memoire_verification();      debug_memoire_verification();
Line 6088  informations(struct_processus *s_etat_pr Line 6206  informations(struct_processus *s_etat_pr
         printf("      -i : fonctionnement interactif\n");          printf("      -i : fonctionnement interactif\n");
         printf("      -l : licence d'utilisation\n");          printf("      -l : licence d'utilisation\n");
         printf("      -n : ignorance du signal HUP\n");          printf("      -n : ignorance du signal HUP\n");
           printf("      -m : chargement d'un module RPL/SO avant la "
                   "compilation\n");
         printf("      -p : précompilation du script avant exécution\n");          printf("      -p : précompilation du script avant exécution\n");
         printf("      -P : profilage (-P ou -PP)\n");          printf("      -P : profilage (-P ou -PP)\n");
         printf("      -s : empêchement de l'ouverture de l'écran initial\n");          printf("      -s : empêchement de l'ouverture de l'écran initial\n");
Line 6109  informations(struct_processus *s_etat_pr Line 6229  informations(struct_processus *s_etat_pr
         printf("      -i : runs the RPL/2 sequencer in interactive mode\n");          printf("      -i : runs the RPL/2 sequencer in interactive mode\n");
         printf("      -l : prints the user licence of the software\n");          printf("      -l : prints the user licence of the software\n");
         printf("      -n : ignores HUP signal\n");          printf("      -n : ignores HUP signal\n");
           printf("      -m : loads RPL/SO object before compilation\n");
         printf("      -p : precompiles script\n");          printf("      -p : precompiles script\n");
         printf("      -P : computes profile data (-P or -PP)\n");          printf("      -P : computes profile data (-P or -PP)\n");
         printf("      -s : disables splash screen\n");          printf("      -s : disables splash screen\n");
Line 6175  controle_integrite(struct_processus *s_e Line 6296  controle_integrite(struct_processus *s_e
   
   
 unsigned char *  unsigned char *
 date_compilation()  date_compilation(struct_processus *s_etat_processus)
 {  {
     unsigned char       *date;      unsigned char       *date;
   
Line 6190  date_compilation() Line 6311  date_compilation()
     return(date);      return(date);
 }  }
   
   #pragma GCC diagnostic pop
   
 // vim: ts=4  // vim: ts=4

Removed from v.1.126  
changed lines
  Added in v.1.202


CVSweb interface <joel.bertrand@systella.fr>