|
version 1.122, 2012/10/14 21:37:11
|
version 1.184, 2016/03/22 18:51:54
|
|
Line 1
|
Line 1
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| RPL/2 (R) version 4.1.11 |
RPL/2 (R) version 4.1.25 |
| Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2016 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_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_table_variables_partagees s_variables_partagees; |
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 102 rplinit(int argc, char *argv[], char *en
|
Line 112 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 114 rplinit(int argc, char *argv[], char *en
|
Line 123 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_MEMOIRE |
# ifdef DEBUG_MEMOIRE |
|
Line 123 rplinit(int argc, char *argv[], char *en
|
Line 133 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 |
erreur = d_es_allocation_memoire; |
| semaphore_gestionnaires_signaux = sem_init2(0, getpid(), SEM_SIGNAUX); |
|
| |
if ((langue = getenv("LANG")) != NULL) |
| if (semaphore_gestionnaires_signaux == SEM_FAILED) |
{ |
| |
if (strncmp(langue, "fr", 2) == 0) |
| |
{ |
| |
uprintf("+++Système : Mémoire insuffisante\n"); |
| |
} |
| |
else |
| |
{ |
| |
uprintf("+++System : Not enough memory\n"); |
| |
} |
| |
} |
| |
else |
| |
{ |
| |
uprintf("+++System : Not enough memory\n"); |
| |
} |
| |
|
| |
return(EXIT_FAILURE); |
| |
} |
| |
|
| |
(*s_etat_processus).erreur_systeme = d_es; |
| |
|
| |
initialisation_allocateur_buffer(s_etat_processus); |
| |
|
| |
if ((*s_etat_processus).erreur_systeme != d_es) |
| { |
{ |
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
|
Line 150 rplinit(int argc, char *argv[], char *en
|
Line 182 rplinit(int argc, char *argv[], char *en
|
| |
|
| return(EXIT_FAILURE); |
return(EXIT_FAILURE); |
| } |
} |
| # endif |
|
| |
|
| if ((s_etat_processus = malloc(sizeof(struct_processus))) == NULL) |
if (initialisation_etat_processus_readline() != 0) |
| { |
{ |
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
|
Line 187 rplinit(int argc, char *argv[], char *en
|
Line 218 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (getcwd(repertoire_initial, RPL_PATH_MAX) == NULL) |
if (getcwd(repertoire_initial, RPL_PATH_MAX) == NULL) |
| { |
{ |
| if ((langue = getenv("LANG")) != NULL) |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| if (strncmp(langue, "fr", 2) == 0) |
uprintf("+++Système : Mémoire insuffisante\n"); |
| { |
|
| uprintf("+++Système : Mémoire insuffisante\n"); |
|
| } |
|
| else |
|
| { |
|
| uprintf("+++System : Not enough memory\n"); |
|
| } |
|
| } |
} |
| else |
else |
| { |
{ |
|
Line 206 rplinit(int argc, char *argv[], char *en
|
Line 230 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) |
| { |
{ |
| if ((langue = getenv("LANG")) != NULL) |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| if (strncmp(langue, "fr", 2) == 0) |
uprintf("+++Système : Mémoire insuffisante\n"); |
| { |
|
| uprintf("+++Système : Mémoire insuffisante\n"); |
|
| } |
|
| else |
|
| { |
|
| uprintf("+++System : Not enough memory\n"); |
|
| } |
|
| } |
} |
| else |
else |
| { |
{ |
|
Line 227 rplinit(int argc, char *argv[], char *en
|
Line 244 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 245 rplinit(int argc, char *argv[], char *en
|
Line 262 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 255 rplinit(int argc, char *argv[], char *en
|
Line 285 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) |
| { |
{ |
| |
liberation_contexte_cas(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 284 rplinit(int argc, char *argv[], char *en
|
Line 332 rplinit(int argc, char *argv[], char *en
|
| &attributs_mutex); |
&attributs_mutex); |
| pthread_mutexattr_destroy(&attributs_mutex); |
pthread_mutexattr_destroy(&attributs_mutex); |
| |
|
| (*s_etat_processus).s_liste_variables_partagees = &s_variables_partagees; |
|
| |
|
| s_variables_partagees.nombre_variables = 0; |
|
| s_variables_partagees.nombre_variables_allouees = 0; |
|
| s_variables_partagees.table = NULL; |
|
| |
|
| pthread_mutexattr_init(&attributs_mutex); |
|
| pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); |
|
| pthread_mutex_init(&((*((*s_etat_processus).s_liste_variables_partagees)) |
|
| .mutex), &attributs_mutex); |
|
| pthread_mutexattr_destroy(&attributs_mutex); |
|
| |
|
| (*s_etat_processus).chemin_fichiers_temporaires = |
(*s_etat_processus).chemin_fichiers_temporaires = |
| recherche_chemin_fichiers_temporaires(s_etat_processus); |
recherche_chemin_fichiers_temporaires(s_etat_processus); |
| |
|
| insertion_thread(s_etat_processus, d_vrai); |
insertion_thread(s_etat_processus, d_vrai); |
| creation_queue_signaux(s_etat_processus); |
creation_queue_signaux(s_etat_processus); |
| |
|
| # ifndef OS2 |
|
| localisation_courante(s_etat_processus); |
|
| # else |
|
| if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |
| { |
{ |
| if (((*s_etat_processus).localisation = malloc((strlen(d_locale) + 1) * |
# ifndef SEMAPHORES_NOMMES |
| sizeof(unsigned char))) == NULL) |
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); |
| |
|
| |
if ((*s_etat_processus).langue == 'F') |
| |
{ |
| |
uprintf("+++Système : Mémoire insuffisante\n"); |
| |
} |
| |
else |
| |
{ |
| |
uprintf("+++System : Not enough memory\n"); |
| |
} |
| |
|
| |
return(EXIT_FAILURE); |
| |
} |
| |
|
| |
if (d_forced_locale == 0) |
| |
{ |
| |
localisation_courante(s_etat_processus); |
| |
} |
| |
else |
| |
{ |
| |
if (((*s_etat_processus).localisation = malloc((strlen(d_locale) |
| |
+ 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 324 rplinit(int argc, char *argv[], char *en
|
Line 398 rplinit(int argc, char *argv[], char *en
|
| |
|
| strcpy((*s_etat_processus).localisation, d_locale); |
strcpy((*s_etat_processus).localisation, d_locale); |
| } |
} |
| # endif |
|
| |
|
| (*s_etat_processus).erreur_systeme = d_es; |
(*s_etat_processus).erreur_systeme = d_es; |
| |
|
|
Line 333 rplinit(int argc, char *argv[], char *en
|
Line 406 rplinit(int argc, char *argv[], char *en
|
| if (((*s_etat_processus).localisation = malloc((strlen(d_locale) + 1) * |
if (((*s_etat_processus).localisation = malloc((strlen(d_locale) + 1) * |
| sizeof(unsigned char))) == NULL) |
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 348 rplinit(int argc, char *argv[], char *en
|
Line 433 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"); |
printf("+++RPL/2 (R) version %s (%s)\n", d_version_rpl, |
| } |
((*s_etat_processus).langue == 'F') |
| else |
? d_date_rpl : d_date_en_rpl); |
| { |
|
| printf("+++Copyright (C) 1989 to 2011, 2012 BERTRAND Joel\n"); |
if ((*s_etat_processus).langue == 'F') |
| |
{ |
| |
printf("+++Copyright (C) 1989 à 2015, 2016 BERTRAND Joël\n"); |
| |
} |
| |
else |
| |
{ |
| |
printf("+++Copyright (C) 1989 to 2015, 2016 BERTRAND Joel\n"); |
| |
} |
| } |
} |
| |
|
| if (getenv("HOME") != NULL) |
if (getenv("HOME") != NULL) |
|
Line 386 rplinit(int argc, char *argv[], char *en
|
Line 475 rplinit(int argc, char *argv[], char *en
|
| if (stackoverflow_install_handler(interruption_depassement_pile, |
if (stackoverflow_install_handler(interruption_depassement_pile, |
| pile_signaux, sizeof(pile_signaux)) != 0) |
pile_signaux, sizeof(pile_signaux)) != 0) |
| { |
{ |
| |
# 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); |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 414 rplinit(int argc, char *argv[], char *en
|
Line 515 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| # endif |
# endif |
| |
|
| if (lancement_thread_signaux(s_etat_processus) != d_absence_erreur) |
|
| { |
|
| 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; |
| |
|
| if (sigaction(SIGINT, &action, NULL) != 0) |
if (sigaction(SIGINT, &action, NULL) != 0) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 452 rplinit(int argc, char *argv[], char *en
|
Line 552 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 464 rplinit(int argc, char *argv[], char *en
|
Line 564 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (signal_test != SIGINT) |
if (signal_test != SIGINT) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 481 rplinit(int argc, char *argv[], char *en
|
Line 597 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (sigaction(SIGTERM, &action, NULL) != 0) |
if (sigaction(SIGTERM, &action, NULL) != 0) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 497 rplinit(int argc, char *argv[], char *en
|
Line 629 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 509 rplinit(int argc, char *argv[], char *en
|
Line 641 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (signal_test != SIGTERM) |
if (signal_test != SIGTERM) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 526 rplinit(int argc, char *argv[], char *en
|
Line 674 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (sigaction(SIGALRM, &action, NULL) != 0) |
if (sigaction(SIGALRM, &action, NULL) != 0) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 542 rplinit(int argc, char *argv[], char *en
|
Line 706 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| |
|
| signal_test = SIGTEST; |
signal_test = SIGTEST; |
| kill(getpid(), SIGALRM); |
raise(SIGALRM); |
| |
|
| attente.tv_sec = 0; |
attente.tv_sec = 0; |
| attente.tv_nsec = 1000000; |
attente.tv_nsec = 1000000; |
|
Line 554 rplinit(int argc, char *argv[], char *en
|
Line 718 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (signal_test != SIGALRM) |
if (signal_test != SIGALRM) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 574 rplinit(int argc, char *argv[], char *en
|
Line 754 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (sigaction(SIGTSTP, &action, NULL) != 0) |
if (sigaction(SIGTSTP, &action, NULL) != 0) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Initialisation des signaux POSIX " |
printf("+++Système : Initialisation des signaux POSIX " |
|
Line 588 rplinit(int argc, char *argv[], char *en
|
Line 784 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 600 rplinit(int argc, char *argv[], char *en
|
Line 796 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (signal_test != SIGTSTP) |
if (signal_test != SIGTSTP) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 620 rplinit(int argc, char *argv[], char *en
|
Line 832 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (sigaction(SIGPIPE, &action, NULL) != 0) |
if (sigaction(SIGPIPE, &action, NULL) != 0) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 636 rplinit(int argc, char *argv[], char *en
|
Line 864 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 648 rplinit(int argc, char *argv[], char *en
|
Line 876 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (signal_test != SIGPIPE) |
if (signal_test != SIGPIPE) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 668 rplinit(int argc, char *argv[], char *en
|
Line 912 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (sigaction(SIGUSR1, &action, NULL) != 0) |
if (sigaction(SIGUSR1, &action, NULL) != 0) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 684 rplinit(int argc, char *argv[], char *en
|
Line 944 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 696 rplinit(int argc, char *argv[], char *en
|
Line 956 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (signal_test != SIGUSR1) |
if (signal_test != SIGUSR1) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 780 rplinit(int argc, char *argv[], char *en
|
Line 1056 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_a == d_vrai) |
if (option_a == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -a présente " |
printf("+++Erreur : option -a présente " |
|
Line 802 rplinit(int argc, char *argv[], char *en
|
Line 1095 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_A == d_vrai) |
if (option_A == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -A présente " |
printf("+++Erreur : option -A présente " |
|
Line 826 rplinit(int argc, char *argv[], char *en
|
Line 1136 rplinit(int argc, char *argv[], char *en
|
| if ((arguments = malloc((strlen(argv[0]) + 7) * |
if ((arguments = malloc((strlen(argv[0]) + 7) * |
| sizeof(unsigned char))) == NULL) |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Mémoire " |
printf("+++Système : Mémoire " |
|
Line 862 rplinit(int argc, char *argv[], char *en
|
Line 1192 rplinit(int argc, char *argv[], char *en
|
| if ((arguments = malloc((strlen(argv[0]) + 7) * |
if ((arguments = malloc((strlen(argv[0]) + 7) * |
| sizeof(unsigned char))) == NULL) |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Mémoire " |
printf("+++Système : Mémoire " |
|
Line 893 rplinit(int argc, char *argv[], char *en
|
Line 1243 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| else |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : Aucune donnée " |
printf("+++Erreur : Aucune donnée " |
|
Line 914 rplinit(int argc, char *argv[], char *en
|
Line 1281 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_c == d_vrai) |
if (option_c == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -c présente " |
printf("+++Erreur : option -c présente " |
|
Line 937 rplinit(int argc, char *argv[], char *en
|
Line 1321 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_d == d_vrai) |
if (option_d == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -d présente " |
printf("+++Erreur : option -d présente " |
|
Line 960 rplinit(int argc, char *argv[], char *en
|
Line 1361 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_D == d_vrai) |
if (option_D == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -D présente " |
printf("+++Erreur : option -D présente " |
|
Line 982 rplinit(int argc, char *argv[], char *en
|
Line 1400 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_h == d_vrai) |
if (option_h == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -h présente " |
printf("+++Erreur : option -h présente " |
|
Line 1005 rplinit(int argc, char *argv[], char *en
|
Line 1440 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_i == d_vrai) |
if (option_i == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -i présente " |
printf("+++Erreur : option -i présente " |
|
Line 1020 rplinit(int argc, char *argv[], char *en
|
Line 1472 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| else if (option_S == d_vrai) |
else if (option_S == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : options -i et -S " |
printf("+++Erreur : options -i et -S " |
|
Line 1035 rplinit(int argc, char *argv[], char *en
|
Line 1504 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| else if (option_p == d_vrai) |
else if (option_p == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : options -i et -p " |
printf("+++Erreur : options -i et -p " |
|
Line 1059 rplinit(int argc, char *argv[], char *en
|
Line 1545 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_l == d_vrai) |
if (option_l == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -l présente " |
printf("+++Erreur : option -l présente " |
|
Line 1091 rplinit(int argc, char *argv[], char *en
|
Line 1594 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_n == d_vrai) |
if (option_n == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -n présente " |
printf("+++Erreur : option -n présente " |
|
Line 1114 rplinit(int argc, char *argv[], char *en
|
Line 1634 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_p == d_vrai) |
if (option_p == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -p présente " |
printf("+++Erreur : option -p présente " |
|
Line 1129 rplinit(int argc, char *argv[], char *en
|
Line 1666 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| else if (option_i == d_vrai) |
else if (option_i == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : options -i et -p " |
printf("+++Erreur : options -i et -p " |
|
Line 1152 rplinit(int argc, char *argv[], char *en
|
Line 1706 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_P > 2) |
if (option_P > 2) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -P présente " |
printf("+++Erreur : option -P présente " |
|
Line 1175 rplinit(int argc, char *argv[], char *en
|
Line 1746 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_s == d_vrai) |
if (option_s == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -s présente " |
printf("+++Erreur : option -s présente " |
|
Line 1198 rplinit(int argc, char *argv[], char *en
|
Line 1786 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_S == d_vrai) |
if (option_S == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -S présente " |
printf("+++Erreur : option -S présente " |
|
Line 1213 rplinit(int argc, char *argv[], char *en
|
Line 1818 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| else if (option_i == d_vrai) |
else if (option_i == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : options -i et -S " |
printf("+++Erreur : options -i et -S " |
|
Line 1238 rplinit(int argc, char *argv[], char *en
|
Line 1860 rplinit(int argc, char *argv[], char *en
|
| malloc((strlen(argv[0]) + 1) * |
malloc((strlen(argv[0]) + 1) * |
| sizeof(unsigned char))) == NULL) |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Mémoire " |
printf("+++Système : Mémoire " |
|
Line 1272 rplinit(int argc, char *argv[], char *en
|
Line 1914 rplinit(int argc, char *argv[], char *en
|
| malloc((strlen(argv[0]) + 1) * |
malloc((strlen(argv[0]) + 1) * |
| sizeof(unsigned char))) == NULL) |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Mémoire " |
printf("+++Système : Mémoire " |
|
Line 1300 rplinit(int argc, char *argv[], char *en
|
Line 1962 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| else |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : Aucun script " |
printf("+++Erreur : Aucun script " |
|
Line 1315 rplinit(int argc, char *argv[], char *en
|
Line 1994 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 |
| |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Mémoire " |
printf("+++Système : Mémoire " |
|
Line 1333 rplinit(int argc, char *argv[], char *en
|
Line 2030 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 1343 rplinit(int argc, char *argv[], char *en
|
Line 2040 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_t == d_vrai) |
if (option_t == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -t présente " |
printf("+++Erreur : option -t présente " |
|
Line 1368 rplinit(int argc, char *argv[], char *en
|
Line 2082 rplinit(int argc, char *argv[], char *en
|
| if ((type_debug = malloc((strlen(argv[0]) + 1) * |
if ((type_debug = malloc((strlen(argv[0]) + 1) * |
| sizeof(unsigned char))) == NULL) |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Mémoire " |
printf("+++Système : Mémoire " |
|
Line 1402 rplinit(int argc, char *argv[], char *en
|
Line 2136 rplinit(int argc, char *argv[], char *en
|
| malloc((strlen(argv[0]) + 1) * |
malloc((strlen(argv[0]) + 1) * |
| sizeof(unsigned char))) == NULL) |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Mémoire " |
printf("+++Système : Mémoire " |
|
Line 1429 rplinit(int argc, char *argv[], char *en
|
Line 2183 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| else |
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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : Aucun niveau " |
printf("+++Erreur : Aucun niveau " |
|
Line 1472 rplinit(int argc, char *argv[], char *en
|
Line 2243 rplinit(int argc, char *argv[], char *en
|
| |
|
| default: |
default: |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : Niveau " |
printf("+++Erreur : Niveau " |
|
Line 1495 rplinit(int argc, char *argv[], char *en
|
Line 2288 rplinit(int argc, char *argv[], char *en
|
| if (sscanf(type_debug, "%llX", |
if (sscanf(type_debug, "%llX", |
| &((*s_etat_processus).type_debug)) != 1) |
&((*s_etat_processus).type_debug)) != 1) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : Niveau " |
printf("+++Erreur : Niveau " |
|
Line 1517 rplinit(int argc, char *argv[], char *en
|
Line 2327 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if (option_v == d_vrai) |
if (option_v == d_vrai) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : option -v présente " |
printf("+++Erreur : option -v présente " |
|
Line 1621 rplinit(int argc, char *argv[], char *en
|
Line 2448 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (debug == d_faux) |
if (debug == d_faux) |
| { |
{ |
| |
|
| # ifdef HAVE_SIGSEGV_RECOVERY |
# ifdef HAVE_SIGSEGV_RECOVERY |
| if (sigsegv_install_handler(interruption_violation_access) != 0) |
if (sigsegv_install_handler(interruption_violation_access) != 0) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 1646 rplinit(int argc, char *argv[], char *en
|
Line 2489 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (sigaction(SIGSEGV, &action, NULL) != 0) |
if (sigaction(SIGSEGV, &action, NULL) != 0) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Initialisation des signaux POSIX " |
printf("+++Système : Initialisation des signaux POSIX " |
|
Line 1661 rplinit(int argc, char *argv[], char *en
|
Line 2521 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 1673 rplinit(int argc, char *argv[], char *en
|
Line 2533 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (signal_test != SIGSEGV) |
if (signal_test != SIGSEGV) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 1695 rplinit(int argc, char *argv[], char *en
|
Line 2572 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (sigaction(SIGBUS, &action, NULL) != 0) |
if (sigaction(SIGBUS, &action, NULL) != 0) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Initialisation des signaux POSIX " |
printf("+++Système : Initialisation des signaux POSIX " |
|
Line 1710 rplinit(int argc, char *argv[], char *en
|
Line 2611 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 1722 rplinit(int argc, char *argv[], char *en
|
Line 2623 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (signal_test != SIGBUS) |
if (signal_test != SIGBUS) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_signal; |
erreur = d_es_signal; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 1747 rplinit(int argc, char *argv[], char *en
|
Line 2672 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (sigaction(SIGHUP, &action, NULL) != 0) |
if (sigaction(SIGHUP, &action, NULL) != 0) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Initialisation des signaux POSIX " |
printf("+++Système : Initialisation des signaux POSIX " |
|
Line 1789 rplinit(int argc, char *argv[], char *en
|
Line 2738 rplinit(int argc, char *argv[], char *en
|
| creation_nom_fichier(s_etat_processus, (*s_etat_processus) |
creation_nom_fichier(s_etat_processus, (*s_etat_processus) |
| .chemin_fichiers_temporaires)) == NULL) |
.chemin_fichiers_temporaires)) == 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Fichier indisponible\n"); |
printf("+++Système : Fichier indisponible\n"); |
|
Line 1804 rplinit(int argc, char *argv[], char *en
|
Line 2777 rplinit(int argc, char *argv[], char *en
|
| if ((f_source = fopen(nom_fichier_temporaire, "w")) |
if ((f_source = fopen(nom_fichier_temporaire, "w")) |
| == NULL) |
== 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Fichier introuvable\n"); |
printf("+++Système : Fichier introuvable\n"); |
|
Line 1818 rplinit(int argc, char *argv[], char *en
|
Line 2815 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (fprintf(f_source, "MODE_INTERACTIF\n") < 0) |
if (fprintf(f_source, "MODE_INTERACTIF\n") < 0) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Erreur d'écriture dans un fichier\n"); |
printf("+++Système : Erreur d'écriture dans un fichier\n"); |
|
Line 1833 rplinit(int argc, char *argv[], char *en
|
Line 2854 rplinit(int argc, char *argv[], char *en
|
| if (fprintf(f_source, |
if (fprintf(f_source, |
| "<< DO HALT UNTIL FALSE END >>\n") < 0) |
"<< DO HALT UNTIL FALSE END >>\n") < 0) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Erreur d'écriture dans un fichier\n"); |
printf("+++Système : Erreur d'écriture dans un fichier\n"); |
|
Line 1847 rplinit(int argc, char *argv[], char *en
|
Line 2892 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (fclose(f_source) != 0) |
if (fclose(f_source) != 0) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Fichier indisponible\n"); |
printf("+++Système : Fichier indisponible\n"); |
|
Line 1884 rplinit(int argc, char *argv[], char *en
|
Line 2953 rplinit(int argc, char *argv[], char *en
|
| if (((existence == d_faux) || (erreur_fichier != d_absence_erreur)) && |
if (((existence == d_faux) || (erreur_fichier != d_absence_erreur)) && |
| (option_S == d_faux)) |
(option_S == d_faux)) |
| { |
{ |
| |
# 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 (presence_definition == 'O') |
if (presence_definition == 'O') |
| { |
{ |
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 1916 rplinit(int argc, char *argv[], char *en
|
Line 3008 rplinit(int argc, char *argv[], char *en
|
| |
|
| if ((*s_etat_processus).chemin_fichiers_temporaires == NULL) |
if ((*s_etat_processus).chemin_fichiers_temporaires == 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Chemin des fichiers temporaires nul\n"); |
printf("+++Système : Chemin des fichiers temporaires nul\n"); |
|
Line 1954 rplinit(int argc, char *argv[], char *en
|
Line 3069 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 1987 rplinit(int argc, char *argv[], char *en
|
Line 3103 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 2147 rplinit(int argc, char *argv[], char *en
|
Line 3270 rplinit(int argc, char *argv[], char *en
|
| |
|
| if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Système : Mémoire insuffisante\n"); |
printf("+++Système : Mémoire insuffisante\n"); |
|
Line 2162 rplinit(int argc, char *argv[], char *en
|
Line 3308 rplinit(int argc, char *argv[], char *en
|
| if (((*s_etat_processus).instruction_derniere_erreur = |
if (((*s_etat_processus).instruction_derniere_erreur = |
| malloc(sizeof(unsigned char))) == NULL) |
malloc(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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2191 rplinit(int argc, char *argv[], char *en
|
Line 3360 rplinit(int argc, char *argv[], char *en
|
| if (((*s_etat_processus).instruction_courante = (unsigned char *) |
if (((*s_etat_processus).instruction_courante = (unsigned char *) |
| malloc(sizeof(unsigned char))) == NULL) |
malloc(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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2253 rplinit(int argc, char *argv[], char *en
|
Line 3445 rplinit(int argc, char *argv[], char *en
|
| ((*((*s_etat_processus). |
((*((*s_etat_processus). |
| parametres_courbes_de_niveau)).objet == NULL)) |
parametres_courbes_de_niveau)).objet == 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2277 rplinit(int argc, char *argv[], char *en
|
Line 3492 rplinit(int argc, char *argv[], char *en
|
| (*((*s_etat_processus).depend)).objet)).nom == |
(*((*s_etat_processus).depend)).objet)).nom == |
| NULL)) |
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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2329 rplinit(int argc, char *argv[], char *en
|
Line 3567 rplinit(int argc, char *argv[], char *en
|
| .parametres_courbes_de_niveau)).objet)).donnee |
.parametres_courbes_de_niveau)).objet)).donnee |
| == NULL)) |
== 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2357 rplinit(int argc, char *argv[], char *en
|
Line 3618 rplinit(int argc, char *argv[], char *en
|
| .objet = malloc(10 * sizeof(unsigned char))) |
.objet = malloc(10 * sizeof(unsigned char))) |
| == NULL) |
== 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2417 rplinit(int argc, char *argv[], char *en
|
Line 3701 rplinit(int argc, char *argv[], char *en
|
| (*s_etat_processus).my2_lines = d_faux; |
(*s_etat_processus).my2_lines = d_faux; |
| (*s_etat_processus).mz2_lines = d_faux; |
(*s_etat_processus).mz2_lines = d_faux; |
| |
|
| if ((*s_etat_processus).erreur_systeme != d_es) |
|
| { |
|
| if ((*s_etat_processus).langue == 'F') |
|
| { |
|
| printf("+++Système : Mémoire insuffisante\n"); |
|
| } |
|
| else |
|
| { |
|
| printf("+++System : Not enough memory\n"); |
|
| } |
|
| |
|
| return(EXIT_FAILURE); |
|
| } |
|
| |
|
| (*s_etat_processus).mode_evaluation_expression = 'N'; |
(*s_etat_processus).mode_evaluation_expression = 'N'; |
| (*s_etat_processus).mode_execution_programme = 'Y'; |
(*s_etat_processus).mode_execution_programme = 'Y'; |
| |
|
|
Line 2439 rplinit(int argc, char *argv[], char *en
|
Line 3709 rplinit(int argc, char *argv[], char *en
|
| if ((erreur = chainage(s_etat_processus)) != |
if ((erreur = chainage(s_etat_processus)) != |
| d_absence_erreur) |
d_absence_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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Fatal :" |
printf("+++Fatal :" |
|
Line 2470 rplinit(int argc, char *argv[], char *en
|
Line 3764 rplinit(int argc, char *argv[], char *en
|
| if ((erreur = compilation(s_etat_processus)) != |
if ((erreur = compilation(s_etat_processus)) != |
| d_absence_erreur) |
d_absence_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 (traitement_fichier_temporaire == 'Y') |
if (traitement_fichier_temporaire == 'Y') |
| { |
{ |
| if (destruction_fichier(nom_fichier_temporaire) |
if (destruction_fichier(nom_fichier_temporaire) |
|
Line 2529 rplinit(int argc, char *argv[], char *en
|
Line 3846 rplinit(int argc, char *argv[], char *en
|
| |
|
| if ((*s_etat_processus).s_arbre_variables == NULL) |
if ((*s_etat_processus).s_arbre_variables == 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Fatal : Aucun point d'entrée\n"); |
printf("+++Fatal : Aucun point d'entrée\n"); |
|
Line 2549 rplinit(int argc, char *argv[], char *en
|
Line 3889 rplinit(int argc, char *argv[], char *en
|
| if (recherche_instruction_suivante(s_etat_processus) |
if (recherche_instruction_suivante(s_etat_processus) |
| == d_erreur) |
== 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Fatal : Aucun point d'entrée\n"); |
printf("+++Fatal : Aucun point d'entrée\n"); |
|
Line 2570 rplinit(int argc, char *argv[], char *en
|
Line 3933 rplinit(int argc, char *argv[], char *en
|
| (*s_etat_processus) |
(*s_etat_processus) |
| .instruction_courante) == d_faux) |
.instruction_courante) == d_faux) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Fatal : Aucun point d'entrée\n"); |
printf("+++Fatal : Aucun point d'entrée\n"); |
|
Line 2590 rplinit(int argc, char *argv[], char *en
|
Line 3976 rplinit(int argc, char *argv[], char *en
|
| if ((*(*s_etat_processus).pointeur_variable_courante) |
if ((*(*s_etat_processus).pointeur_variable_courante) |
| .niveau != 0) |
.niveau != 0) |
| { |
{ |
| |
# 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') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Fatal : Aucun point d'entrée\n"); |
printf("+++Fatal : Aucun point d'entrée\n"); |
|
Line 2615 rplinit(int argc, char *argv[], char *en
|
Line 4024 rplinit(int argc, char *argv[], char *en
|
| strlen(ds_fichier_historique) + 2) * |
strlen(ds_fichier_historique) + 2) * |
| sizeof(unsigned char))) == NULL) |
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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2647 rplinit(int argc, char *argv[], char *en
|
Line 4079 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) |
| { |
{ |
| if ((message = messages(s_etat_processus)) |
if ((message = messages(s_etat_processus)) |
| == NULL) |
== 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2690 rplinit(int argc, char *argv[], char *en
|
Line 4149 rplinit(int argc, char *argv[], char *en
|
| { |
{ |
| if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |
| { |
{ |
| |
# 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 |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2707 rplinit(int argc, char *argv[], char *en
|
Line 4193 rplinit(int argc, char *argv[], char *en
|
| } |
} |
| else |
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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
| { |
{ |
| printf("+++Erreur : Erreur de " |
printf("+++Erreur : Erreur de " |
|
Line 2726 rplinit(int argc, char *argv[], char *en
|
Line 4239 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 |
| |
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 ((message = messages(s_etat_processus)) |
if ((message = messages(s_etat_processus)) |
| == NULL) |
== NULL) |
| { |
{ |
|
Line 2760 rplinit(int argc, char *argv[], char *en
|
Line 4298 rplinit(int argc, char *argv[], char *en
|
| if ((message = messages(s_etat_processus)) |
if ((message = messages(s_etat_processus)) |
| == NULL) |
== 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2779 rplinit(int argc, char *argv[], char *en
|
Line 4344 rplinit(int argc, char *argv[], char *en
|
| printf("%s [%d]\n", message, (int) getpid()); |
printf("%s [%d]\n", message, (int) getpid()); |
| free(message); |
free(message); |
| |
|
| |
# 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 |
| |
|
| return(EXIT_FAILURE); |
return(EXIT_FAILURE); |
| } |
} |
| |
|
|
Line 2789 rplinit(int argc, char *argv[], char *en
|
Line 4378 rplinit(int argc, char *argv[], char *en
|
| if ((message = messages(s_etat_processus)) |
if ((message = messages(s_etat_processus)) |
| == NULL) |
== 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| |
erreur = d_es_allocation_memoire; |
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2808 rplinit(int argc, char *argv[], char *en
|
Line 4425 rplinit(int argc, char *argv[], char *en
|
| printf("%s [%d]\n", message, (int) getpid()); |
printf("%s [%d]\n", message, (int) getpid()); |
| free(message); |
free(message); |
| |
|
| |
# 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 |
| |
|
| 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 2819 rplinit(int argc, char *argv[], char *en
|
Line 4462 rplinit(int argc, char *argv[], char *en
|
| if ((message = messages(s_etat_processus)) |
if ((message = messages(s_etat_processus)) |
| == NULL) |
== 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2839 rplinit(int argc, char *argv[], char *en
|
Line 4509 rplinit(int argc, char *argv[], char *en
|
| (int) getpid()); |
(int) getpid()); |
| free(message); |
free(message); |
| |
|
| |
# 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 |
| |
|
| |
erreur = d_es_allocation_memoire; |
| return(EXIT_FAILURE); |
return(EXIT_FAILURE); |
| } |
} |
| |
|
|
Line 2848 rplinit(int argc, char *argv[], char *en
|
Line 4546 rplinit(int argc, char *argv[], char *en
|
| if ((message = messages(s_etat_processus)) |
if ((message = messages(s_etat_processus)) |
| == NULL) |
== 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 |
| |
|
| |
# ifdef HAVE_SIGSEGV_RECOVERY |
| |
if (debug == d_faux) |
| |
{ |
| |
sigsegv_deinstall_handler(); |
| |
} |
| |
# endif |
| |
|
| erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
| |
|
| if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
|
Line 2868 rplinit(int argc, char *argv[], char *en
|
Line 4593 rplinit(int argc, char *argv[], char *en
|
| (int) getpid()); |
(int) getpid()); |
| free(message); |
free(message); |
| |
|
| |
# 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 |
| |
|
| return(EXIT_FAILURE); |
return(EXIT_FAILURE); |
| } |
} |
| } |
} |
|
Line 2898 rplinit(int argc, char *argv[], char *en
|
Line 4650 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 2919 rplinit(int argc, char *argv[], char *en
|
Line 4751 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 2968 rplinit(int argc, char *argv[], char *en
|
Line 4880 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 3045 rplinit(int argc, char *argv[], char *en
|
Line 4958 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 3056 rplinit(int argc, char *argv[], char *en
|
Line 4969 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 3064 rplinit(int argc, char *argv[], char *en
|
Line 4977 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 3140 rplinit(int argc, char *argv[], char *en
|
Line 5053 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 3166 rplinit(int argc, char *argv[], char *en
|
Line 5078 rplinit(int argc, char *argv[], char *en
|
| if (sigaction(SIGPIPE, &action, ®istre) |
if (sigaction(SIGPIPE, &action, ®istre) |
| != 0) |
!= 0) |
| { |
{ |
| pthread_mutex_unlock( |
# ifndef SEMAPHORES_NOMMES |
| &((*s_etat_processus).mutex)); |
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 |
| |
|
| |
pthread_mutex_unlock(&((*s_etat_processus) |
| |
.mutex_pile_processus)); |
| return(EXIT_FAILURE); |
return(EXIT_FAILURE); |
| } |
} |
| |
|
|
Line 3190 rplinit(int argc, char *argv[], char *en
|
Line 5129 rplinit(int argc, char *argv[], char *en
|
| if (sigaction(SIGPIPE, ®istre, NULL) |
if (sigaction(SIGPIPE, ®istre, NULL) |
| != 0) |
!= 0) |
| { |
{ |
| pthread_mutex_unlock( |
# ifndef SEMAPHORES_NOMMES |
| &((*s_etat_processus).mutex)); |
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 |
| |
|
| |
pthread_mutex_unlock(&((*s_etat_processus) |
| |
.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 3206 rplinit(int argc, char *argv[], char *en
|
Line 5173 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 3361 rplinit(int argc, char *argv[], char *en
|
Line 5334 rplinit(int argc, char *argv[], char *en
|
| * le libérer... |
* le libérer... |
| */ |
*/ |
| |
|
| |
liberation_arbre_variables_partagees(s_etat_processus, |
| |
(*(*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 3376 rplinit(int argc, char *argv[], char *en
|
Line 5351 rplinit(int argc, char *argv[], char *en
|
| l_element_statique_courant = l_element_statique_suivant; |
l_element_statique_courant = l_element_statique_suivant; |
| } |
} |
| |
|
| for(i = 0; i < (*((*s_etat_processus) |
l_element_partage_courant = (*(*s_etat_processus) |
| .s_liste_variables_partagees)).nombre_variables; |
.l_liste_variables_partagees); |
| i++) |
|
| { |
|
| liberation(s_etat_processus, (*((*s_etat_processus) |
|
| .s_liste_variables_partagees)).table[i].objet); |
|
| free((*((*s_etat_processus) |
|
| .s_liste_variables_partagees)).table[i].nom); |
|
| } |
|
| |
|
| free((struct_variable_partagee *) |
while(l_element_partage_courant != NULL) |
| (*((*s_etat_processus).s_liste_variables_partagees)) |
{ |
| .table); |
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é |
|
Line 3402 rplinit(int argc, char *argv[], char *en
|
Line 5374 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 3707 rplinit(int argc, char *argv[], char *en
|
Line 5680 rplinit(int argc, char *argv[], char *en
|
| |
|
| if (traitement_fichier_temporaire == 'Y') |
if (traitement_fichier_temporaire == 'Y') |
| { |
{ |
| if (destruction_fichier(nom_fichier_temporaire) == d_erreur) |
destruction_fichier(nom_fichier_temporaire); |
| { |
|
| return(EXIT_FAILURE); |
|
| } |
|
| |
|
| free(nom_fichier_temporaire); |
free(nom_fichier_temporaire); |
| } |
} |
| |
|
|
Line 3725 rplinit(int argc, char *argv[], char *en
|
Line 5694 rplinit(int argc, char *argv[], char *en
|
| closelog(); |
closelog(); |
| |
|
| pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes)); |
pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes)); |
| pthread_mutex_destroy(&((*((*s_etat_processus).s_liste_variables_partagees)) |
|
| .mutex)); |
|
| |
|
| retrait_thread(s_etat_processus); |
retrait_thread(s_etat_processus); |
| |
|
| pthread_mutex_destroy(&((*s_etat_processus).mutex)); |
while(nombre_thread_surveillance_processus != 0); |
| |
|
| |
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(&((*s_etat_processus).mutex_signaux)); |
| pthread_mutex_destroy(&mutex_sections_critiques); |
pthread_mutex_destroy(&mutex_sections_critiques); |
| |
pthread_mutex_destroy(&mutex_liste_variables_partagees); |
| |
|
| # ifndef SEMAPHORES_NOMMES |
# ifndef SEMAPHORES_NOMMES |
| sem_post(&((*s_etat_processus).semaphore_fork)); |
sem_post(&((*s_etat_processus).semaphore_fork)); |
|
Line 3745 rplinit(int argc, char *argv[], char *en
|
Line 5717 rplinit(int argc, char *argv[], char *en
|
| |
|
| free((*s_etat_processus).localisation); |
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); |
destruction_queue_signaux(s_etat_processus); |
| liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
| |
|
|
Line 3760 rplinit(int argc, char *argv[], char *en
|
Line 5724 rplinit(int argc, char *argv[], char *en
|
| |
|
| 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)); |
| |
|
| |
sys_free(s_etat_processus); |
| |
sys_free(arg_exec); |
| |
|
| # ifdef DEBUG_MEMOIRE |
# ifdef DEBUG_MEMOIRE |
| debug_memoire_verification(); |
debug_memoire_verification(); |
|
Line 3807 informations(struct_processus *s_etat_pr
|
Line 5778 informations(struct_processus *s_etat_pr
|
| 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(" -p : précompilation du script avant exécution\n"); |
printf(" -p : précompilation du script avant exécution\n"); |
| printf(" -P : profilage\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"); |
| printf(" -S : exécution du script passé en ligne de commande\n"); |
printf(" -S : exécution du script passé en ligne de commande\n"); |
| printf(" -t : trace\n"); |
printf(" -t : trace\n"); |
|
Line 3828 informations(struct_processus *s_etat_pr
|
Line 5799 informations(struct_processus *s_etat_pr
|
| 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(" -p : precompiles script\n"); |
printf(" -p : precompiles script\n"); |
| printf(" -P : computes profile data\n"); |
printf(" -P : computes profile data (-P or -PP)\n"); |
| printf(" -s : disables splash screen\n"); |
printf(" -s : disables splash screen\n"); |
| printf(" -S : executes script written in command line\n"); |
printf(" -S : executes script written in command line\n"); |
| printf(" -t : enables tracing mode\n"); |
printf(" -t : enables tracing mode\n"); |
|
Line 3893 controle_integrite(struct_processus *s_e
|
Line 5864 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 3908 date_compilation()
|
Line 5879 date_compilation()
|
| return(date); |
return(date); |
| } |
} |
| |
|
| |
#pragma GCC diagnostic pop |
| |
|
| // vim: ts=4 |
// vim: ts=4 |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rpl.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / src