version 1.158, 2014/07/15 14:12:38
|
version 1.196, 2017/07/12 15:42:43
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.18 |
RPL/2 (R) version 4.1.27 |
Copyright (C) 1989-2014 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 86 rplinit(int argc, char *argv[], char *en
|
Line 86 rplinit(int argc, char *argv[], char *en
|
|
|
struct_processus *s_etat_processus; |
struct_processus *s_etat_processus; |
|
|
|
struct_liste_chainee *l_bibliotheques; |
|
struct_liste_chainee *l_bibliotheque_courante; |
|
struct_liste_chainee *l_nouvelle_bibliotheque; |
|
|
struct_liste_variables_partagees *l_element_partage_courant; |
struct_liste_variables_partagees *l_element_partage_courant; |
struct_liste_variables_partagees *l_element_partage_suivant; |
struct_liste_variables_partagees *l_element_partage_suivant; |
|
|
Line 123 rplinit(int argc, char *argv[], char *en
|
Line 127 rplinit(int argc, char *argv[], char *en
|
errno = 0; |
errno = 0; |
s_queue_signaux = NULL; |
s_queue_signaux = NULL; |
routine_recursive = 0; |
routine_recursive = 0; |
|
nombre_thread_surveillance_processus = 0; |
pid_processus_pere = getpid(); |
pid_processus_pere = getpid(); |
|
|
|
# ifdef DEBUG_PROC |
|
__proc = 0; |
|
# endif |
|
|
# ifdef DEBUG_MEMOIRE |
# ifdef DEBUG_MEMOIRE |
debug_memoire_initialisation(); |
debug_memoire_initialisation(); |
# endif |
# endif |
Line 132 rplinit(int argc, char *argv[], char *en
|
Line 141 rplinit(int argc, char *argv[], char *en
|
setvbuf(stdout, NULL, _IOLBF, 0); |
setvbuf(stdout, NULL, _IOLBF, 0); |
setvbuf(stderr, NULL, _IOLBF, 0); |
setvbuf(stderr, NULL, _IOLBF, 0); |
|
|
if ((s_etat_processus = malloc(sizeof(struct_processus))) == NULL) |
if ((s_etat_processus = sys_malloc(sizeof(struct_processus))) == NULL) |
|
{ |
|
erreur = d_es_allocation_memoire; |
|
|
|
if ((langue = getenv("LANG")) != NULL) |
|
{ |
|
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; |
|
|
|
if ((langue = getenv("LANG")) != NULL) |
|
{ |
|
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); |
|
} |
|
|
|
if (initialisation_etat_processus_readline() != 0) |
{ |
{ |
erreur = d_es_allocation_memoire; |
erreur = d_es_allocation_memoire; |
|
|
Line 179 rplinit(int argc, char *argv[], char *en
|
Line 238 rplinit(int argc, char *argv[], char *en
|
return(EXIT_FAILURE); |
return(EXIT_FAILURE); |
} |
} |
|
|
if ((arg_exec = malloc((((size_t) argc) + 1) * sizeof(char *))) == NULL) |
if ((arg_exec = sys_malloc((((size_t) argc) + 1) * sizeof(char *))) == NULL) |
{ |
{ |
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
Line 198 rplinit(int argc, char *argv[], char *en
|
Line 257 rplinit(int argc, char *argv[], char *en
|
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 234 rplinit(int argc, char *argv[], char *en
|
Line 293 rplinit(int argc, char *argv[], char *en
|
pthread_mutexattr_destroy(&attributs_mutex); |
pthread_mutexattr_destroy(&attributs_mutex); |
|
|
pthread_mutexattr_init(&attributs_mutex); |
pthread_mutexattr_init(&attributs_mutex); |
|
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); |
|
pthread_mutex_init(&((*s_etat_processus).mutex_allocation_buffer), |
|
&attributs_mutex); |
|
pthread_mutexattr_destroy(&attributs_mutex); |
|
|
|
pthread_mutexattr_init(&attributs_mutex); |
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE); |
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE); |
pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex); |
pthread_mutex_init(&mutex_sections_critiques, &attributs_mutex); |
pthread_mutexattr_destroy(&attributs_mutex); |
pthread_mutexattr_destroy(&attributs_mutex); |
Line 243 rplinit(int argc, char *argv[], char *en
|
Line 308 rplinit(int argc, char *argv[], char *en
|
pthread_mutex_init(&mutex_liste_variables_partagees, &attributs_mutex); |
pthread_mutex_init(&mutex_liste_variables_partagees, &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_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 |
Line 320 rplinit(int argc, char *argv[], char *en
|
Line 390 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
Line 354 rplinit(int argc, char *argv[], char *en
|
Line 424 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
Line 379 rplinit(int argc, char *argv[], char *en
|
Line 449 rplinit(int argc, char *argv[], char *en
|
|
|
if ((*s_etat_processus).langue == 'F') |
if ((*s_etat_processus).langue == 'F') |
{ |
{ |
printf("+++Copyright (C) 1989 à 2013, 2014 BERTRAND Joël\n"); |
printf("+++Copyright (C) 1989 à 2016, 2017 BERTRAND Joël\n"); |
} |
} |
else |
else |
{ |
{ |
printf("+++Copyright (C) 1989 to 2013, 2014 BERTRAND Joel\n"); |
printf("+++Copyright (C) 1989 to 2016, 2017 BERTRAND Joel\n"); |
} |
} |
} |
} |
|
|
Line 423 rplinit(int argc, char *argv[], char *en
|
Line 493 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
erreur = d_es_signal; |
erreur = d_es_signal; |
|
|
Line 453 rplinit(int argc, char *argv[], char *en
|
Line 523 rplinit(int argc, char *argv[], char *en
|
} |
} |
# endif |
# endif |
|
|
if (lancement_thread_signaux(s_etat_processus) != d_absence_erreur) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus).semaphore_fork)); |
|
sem_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); |
|
liberation_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
erreur = d_es_signal; |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Initialisation des signaux POSIX " |
|
"impossible\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Initialization of POSIX signals failed\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
action.sa_handler = interruption1; |
action.sa_handler = interruption1; |
action.sa_flags = 0; |
action.sa_flags = 0; |
|
|
Line 501 rplinit(int argc, char *argv[], char *en
|
Line 538 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 545 rplinit(int argc, char *argv[], char *en
|
Line 582 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 578 rplinit(int argc, char *argv[], char *en
|
Line 615 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 622 rplinit(int argc, char *argv[], char *en
|
Line 659 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 643 rplinit(int argc, char *argv[], char *en
|
Line 680 rplinit(int argc, char *argv[], char *en
|
return(EXIT_FAILURE); |
return(EXIT_FAILURE); |
} |
} |
|
|
if (sigaction(SIGALRM, &action, NULL) != 0) |
if (sigaction(SIGUSR2, &action, NULL) != 0) |
{ |
{ |
# ifndef SEMAPHORES_NOMMES |
# ifndef SEMAPHORES_NOMMES |
sem_post(&((*s_etat_processus).semaphore_fork)); |
sem_post(&((*s_etat_processus).semaphore_fork)); |
Line 655 rplinit(int argc, char *argv[], char *en
|
Line 692 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 677 rplinit(int argc, char *argv[], char *en
|
Line 714 rplinit(int argc, char *argv[], char *en
|
} |
} |
|
|
signal_test = SIGTEST; |
signal_test = SIGTEST; |
raise(SIGALRM); |
raise(SIGUSR2); |
|
|
attente.tv_sec = 0; |
attente.tv_sec = 0; |
attente.tv_nsec = 1000000; |
attente.tv_nsec = 1000000; |
Line 687 rplinit(int argc, char *argv[], char *en
|
Line 724 rplinit(int argc, char *argv[], char *en
|
nanosleep(&attente, NULL); |
nanosleep(&attente, NULL); |
} |
} |
|
|
if (signal_test != SIGALRM) |
if (signal_test != SIGUSR2) |
{ |
{ |
# ifndef SEMAPHORES_NOMMES |
# ifndef SEMAPHORES_NOMMES |
sem_post(&((*s_etat_processus).semaphore_fork)); |
sem_post(&((*s_etat_processus).semaphore_fork)); |
Line 699 rplinit(int argc, char *argv[], char *en
|
Line 736 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 735 rplinit(int argc, char *argv[], char *en
|
Line 772 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 777 rplinit(int argc, char *argv[], char *en
|
Line 814 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 813 rplinit(int argc, char *argv[], char *en
|
Line 850 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 857 rplinit(int argc, char *argv[], char *en
|
Line 894 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 893 rplinit(int argc, char *argv[], char *en
|
Line 930 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 937 rplinit(int argc, char *argv[], char *en
|
Line 974 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 971 rplinit(int argc, char *argv[], char *en
|
Line 1008 rplinit(int argc, char *argv[], char *en
|
drapeau_encart = 'Y'; |
drapeau_encart = 'Y'; |
debug = d_faux; |
debug = d_faux; |
arguments = NULL; |
arguments = NULL; |
|
l_bibliotheques = NULL; |
|
|
(*s_etat_processus).s_fichiers = NULL; |
(*s_etat_processus).s_fichiers = NULL; |
(*s_etat_processus).s_sockets = NULL; |
(*s_etat_processus).s_sockets = NULL; |
Line 1038 rplinit(int argc, char *argv[], char *en
|
Line 1076 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1077 rplinit(int argc, char *argv[], char *en
|
Line 1115 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1121 rplinit(int argc, char *argv[], char *en
|
Line 1159 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1177 rplinit(int argc, char *argv[], char *en
|
Line 1215 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1225 rplinit(int argc, char *argv[], char *en
|
Line 1263 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1263 rplinit(int argc, char *argv[], char *en
|
Line 1301 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1303 rplinit(int argc, char *argv[], char *en
|
Line 1341 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1343 rplinit(int argc, char *argv[], char *en
|
Line 1381 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1382 rplinit(int argc, char *argv[], char *en
|
Line 1420 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1422 rplinit(int argc, char *argv[], char *en
|
Line 1460 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1454 rplinit(int argc, char *argv[], char *en
|
Line 1492 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1486 rplinit(int argc, char *argv[], char *en
|
Line 1524 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1527 rplinit(int argc, char *argv[], char *en
|
Line 1565 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1561 rplinit(int argc, char *argv[], char *en
|
Line 1599 rplinit(int argc, char *argv[], char *en
|
break; |
break; |
} |
} |
|
|
|
case 'm' : |
|
{ |
|
while(*(++argv[0]) == ' '); |
|
argv[0]--; |
|
|
|
if ((*(++argv[0])) != '\0') |
|
{ |
|
if ((l_nouvelle_bibliotheque = malloc( |
|
sizeof(struct_liste_chainee))) == NULL) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus) |
|
.semaphore_fork); |
|
sem_destroy3((*s_etat_processus) |
|
.semaphore_fork, getpid(), |
|
pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Mémoire " |
|
"insuffisante\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Not enough " |
|
"memory\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
(*l_nouvelle_bibliotheque).suivant = |
|
l_bibliotheques; |
|
|
|
if (((*l_nouvelle_bibliotheque).donnee = |
|
allocation(s_etat_processus, CHN)) |
|
== NULL) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus) |
|
.semaphore_fork); |
|
sem_destroy3((*s_etat_processus) |
|
.semaphore_fork, getpid(), |
|
pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Mémoire " |
|
"insuffisante\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Not enough " |
|
"memory\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
if (((*(*l_nouvelle_bibliotheque).donnee) |
|
.objet = malloc((strlen(argv[0]) + 1) * |
|
sizeof(unsigned char))) == NULL) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus) |
|
.semaphore_fork); |
|
sem_destroy3((*s_etat_processus) |
|
.semaphore_fork, getpid(), |
|
pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Mémoire " |
|
"insuffisante\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Not enough " |
|
"memory\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
strcpy((*(*l_nouvelle_bibliotheque).donnee) |
|
.objet, argv[0]); |
|
argv[0] += strlen((unsigned char *) |
|
(*(*l_nouvelle_bibliotheque).donnee) |
|
.objet) - 1; |
|
|
|
l_bibliotheques = l_nouvelle_bibliotheque; |
|
} |
|
else if ((--argc) > 0) |
|
{ |
|
argv++; |
|
|
|
if ((l_nouvelle_bibliotheque = malloc( |
|
sizeof(struct_liste_chainee))) == NULL) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus) |
|
.semaphore_fork); |
|
sem_destroy3((*s_etat_processus) |
|
.semaphore_fork, getpid(), |
|
pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Mémoire " |
|
"insuffisante\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Not enough " |
|
"memory\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
(*l_nouvelle_bibliotheque).suivant = |
|
l_bibliotheques; |
|
|
|
if (((*l_nouvelle_bibliotheque).donnee = |
|
allocation(s_etat_processus, CHN)) |
|
== NULL) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus) |
|
.semaphore_fork); |
|
sem_destroy3((*s_etat_processus) |
|
.semaphore_fork, getpid(), |
|
pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Mémoire " |
|
"insuffisante\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Not enough " |
|
"memory\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
if (((*(*l_nouvelle_bibliotheque).donnee) |
|
.objet = malloc((strlen(argv[0]) + 1) * |
|
sizeof(unsigned char))) == NULL) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus) |
|
.semaphore_fork); |
|
sem_destroy3((*s_etat_processus) |
|
.semaphore_fork, getpid(), |
|
pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Système : Mémoire " |
|
"insuffisante\n"); |
|
} |
|
else |
|
{ |
|
printf("+++System : Not enough " |
|
"memory\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
strcpy((*(*l_nouvelle_bibliotheque).donnee) |
|
.objet, argv[0]); |
|
argv[0] += strlen((unsigned char *) |
|
(*(*l_nouvelle_bibliotheque).donnee) |
|
.objet) - 1; |
|
|
|
l_bibliotheques = l_nouvelle_bibliotheque; |
|
} |
|
else |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus).semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus).semaphore_fork); |
|
sem_destroy3((*s_etat_processus).semaphore_fork, |
|
getpid(), pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Erreur : Aucune bibliothèque " |
|
"spécifiée après l'option -A\n"); |
|
} |
|
else |
|
{ |
|
printf("+++Error : Library required after " |
|
"-m option\n"); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
break; |
|
} |
|
|
case 'n' : |
case 'n' : |
{ |
{ |
if (option_n == d_vrai) |
if (option_n == d_vrai) |
Line 1576 rplinit(int argc, char *argv[], char *en
|
Line 1909 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1616 rplinit(int argc, char *argv[], char *en
|
Line 1949 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1648 rplinit(int argc, char *argv[], char *en
|
Line 1981 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1688 rplinit(int argc, char *argv[], char *en
|
Line 2021 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1728 rplinit(int argc, char *argv[], char *en
|
Line 2061 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1768 rplinit(int argc, char *argv[], char *en
|
Line 2101 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1800 rplinit(int argc, char *argv[], char *en
|
Line 2133 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1845 rplinit(int argc, char *argv[], char *en
|
Line 2178 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1899 rplinit(int argc, char *argv[], char *en
|
Line 2232 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1944 rplinit(int argc, char *argv[], char *en
|
Line 2277 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 1965 rplinit(int argc, char *argv[], char *en
|
Line 2298 rplinit(int argc, char *argv[], char *en
|
} |
} |
|
|
if (((*s_etat_processus).definitions_chainees = |
if (((*s_etat_processus).definitions_chainees = |
compactage((*s_etat_processus) |
compactage(s_etat_processus, |
.definitions_chainees)) == NULL) |
(*s_etat_processus).definitions_chainees)) |
|
== NULL) |
{ |
{ |
# ifndef SEMAPHORES_NOMMES |
# ifndef SEMAPHORES_NOMMES |
sem_post(&((*s_etat_processus).semaphore_fork)); |
sem_post(&((*s_etat_processus).semaphore_fork)); |
Line 1979 rplinit(int argc, char *argv[], char *en
|
Line 2313 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2021 rplinit(int argc, char *argv[], char *en
|
Line 2355 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2066 rplinit(int argc, char *argv[], char *en
|
Line 2400 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2120 rplinit(int argc, char *argv[], char *en
|
Line 2454 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2164 rplinit(int argc, char *argv[], char *en
|
Line 2498 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2228 rplinit(int argc, char *argv[], char *en
|
Line 2562 rplinit(int argc, char *argv[], char *en
|
|
|
liberation_contexte_cas( |
liberation_contexte_cas( |
s_etat_processus); |
s_etat_processus); |
liberation_queue_signaux( |
destruction_queue_signaux( |
s_etat_processus); |
s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
Line 2269 rplinit(int argc, char *argv[], char *en
|
Line 2603 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2308 rplinit(int argc, char *argv[], char *en
|
Line 2642 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2432 rplinit(int argc, char *argv[], char *en
|
Line 2766 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2470 rplinit(int argc, char *argv[], char *en
|
Line 2804 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2514 rplinit(int argc, char *argv[], char *en
|
Line 2848 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2553 rplinit(int argc, char *argv[], char *en
|
Line 2887 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2604 rplinit(int argc, char *argv[], char *en
|
Line 2938 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2653 rplinit(int argc, char *argv[], char *en
|
Line 2987 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2719 rplinit(int argc, char *argv[], char *en
|
Line 3053 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2758 rplinit(int argc, char *argv[], char *en
|
Line 3092 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2796 rplinit(int argc, char *argv[], char *en
|
Line 3130 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2835 rplinit(int argc, char *argv[], char *en
|
Line 3169 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2873 rplinit(int argc, char *argv[], char *en
|
Line 3207 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2933 rplinit(int argc, char *argv[], char *en
|
Line 3267 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 2988 rplinit(int argc, char *argv[], char *en
|
Line 3322 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3250 rplinit(int argc, char *argv[], char *en
|
Line 3584 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3288 rplinit(int argc, char *argv[], char *en
|
Line 3622 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3340 rplinit(int argc, char *argv[], char *en
|
Line 3674 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3425 rplinit(int argc, char *argv[], char *en
|
Line 3759 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3472 rplinit(int argc, char *argv[], char *en
|
Line 3806 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3547 rplinit(int argc, char *argv[], char *en
|
Line 3881 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3598 rplinit(int argc, char *argv[], char *en
|
Line 3932 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3690 rplinit(int argc, char *argv[], char *en
|
Line 4024 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3731 rplinit(int argc, char *argv[], char *en
|
Line 4065 rplinit(int argc, char *argv[], char *en
|
} |
} |
} |
} |
|
|
|
/* |
|
* Chargement des bibliothèques pour gérer des |
|
* types externes lors des l'analyse syntaxique et |
|
* compilation. |
|
*/ |
|
|
|
l_bibliotheque_courante = l_bibliotheques; |
|
|
|
while(l_bibliotheque_courante != NULL) |
|
{ |
|
if (empilement(s_etat_processus, &((*s_etat_processus) |
|
.l_base_pile), (*l_bibliotheque_courante) |
|
.donnee) == d_erreur) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus).semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus).semaphore_fork); |
|
sem_destroy3((*s_etat_processus).semaphore_fork, |
|
getpid(), pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
# ifdef HAVE_SIGSEGV_RECOVERY |
|
if (debug == d_faux) |
|
{ |
|
sigsegv_deinstall_handler(); |
|
} |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Fatal :" |
|
" Chargement de la bibliothèse %s" |
|
" impossible\n", (unsigned char *) |
|
(*(*l_bibliotheque_courante).donnee) |
|
.objet); |
|
} |
|
else |
|
{ |
|
printf("+++Fatal : Cannot load library %s\n", |
|
(*(*l_bibliotheque_courante).donnee) |
|
.objet); |
|
} |
|
|
|
if (traitement_fichier_temporaire == 'Y') |
|
{ |
|
if (destruction_fichier( |
|
nom_fichier_temporaire) |
|
== d_erreur) |
|
{ |
|
return(EXIT_FAILURE); |
|
} |
|
|
|
free(nom_fichier_temporaire); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
instruction_use(s_etat_processus); |
|
|
|
if (depilement(s_etat_processus, &((*s_etat_processus) |
|
.l_base_pile), &((*l_bibliotheque_courante) |
|
.donnee)) == d_erreur) |
|
{ |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_post(&((*s_etat_processus).semaphore_fork)); |
|
sem_destroy(&((*s_etat_processus) |
|
.semaphore_fork)); |
|
# else |
|
sem_post((*s_etat_processus).semaphore_fork); |
|
sem_destroy3((*s_etat_processus).semaphore_fork, |
|
getpid(), pthread_self(), SEM_FORK); |
|
# endif |
|
|
|
liberation_contexte_cas(s_etat_processus); |
|
destruction_queue_signaux(s_etat_processus); |
|
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
|
stackoverflow_deinstall_handler(); |
|
# endif |
|
|
|
# ifdef HAVE_SIGSEGV_RECOVERY |
|
if (debug == d_faux) |
|
{ |
|
sigsegv_deinstall_handler(); |
|
} |
|
# endif |
|
|
|
if ((*s_etat_processus).langue == 'F') |
|
{ |
|
printf("+++Fatal :" |
|
" Chargement de la bibliothèse %s" |
|
" impossible\n", (unsigned char *) |
|
(*(*l_bibliotheque_courante).donnee) |
|
.objet); |
|
} |
|
else |
|
{ |
|
printf("+++Fatal : Cannot load library %s\n", |
|
(*(*l_bibliotheque_courante).donnee) |
|
.objet); |
|
} |
|
|
|
if (traitement_fichier_temporaire == 'Y') |
|
{ |
|
if (destruction_fichier( |
|
nom_fichier_temporaire) |
|
== d_erreur) |
|
{ |
|
return(EXIT_FAILURE); |
|
} |
|
|
|
free(nom_fichier_temporaire); |
|
} |
|
|
|
return(EXIT_FAILURE); |
|
} |
|
|
|
l_bibliotheque_courante = |
|
(*l_bibliotheque_courante).suivant; |
|
} |
|
|
if ((erreur = compilation(s_etat_processus)) != |
if ((erreur = compilation(s_etat_processus)) != |
d_absence_erreur) |
d_absence_erreur) |
{ |
{ |
Line 3744 rplinit(int argc, char *argv[], char *en
|
Line 4210 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3826 rplinit(int argc, char *argv[], char *en
|
Line 4292 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3869 rplinit(int argc, char *argv[], char *en
|
Line 4335 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3913 rplinit(int argc, char *argv[], char *en
|
Line 4379 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 3956 rplinit(int argc, char *argv[], char *en
|
Line 4422 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4004 rplinit(int argc, char *argv[], char *en
|
Line 4470 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4070 rplinit(int argc, char *argv[], char *en
|
Line 4536 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4133 rplinit(int argc, char *argv[], char *en
|
Line 4599 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4177 rplinit(int argc, char *argv[], char *en
|
Line 4643 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4209 rplinit(int argc, char *argv[], char *en
|
Line 4675 rplinit(int argc, char *argv[], char *en
|
(*s_etat_processus).definitions_chainees = tampon; |
(*s_etat_processus).definitions_chainees = tampon; |
(*s_etat_processus).position_courante = 0; |
(*s_etat_processus).position_courante = 0; |
|
|
|
(*s_etat_processus).type_en_cours = NON; |
recherche_type(s_etat_processus); |
recherche_type(s_etat_processus); |
|
|
if ((*s_etat_processus).erreur_systeme != d_es) |
if ((*s_etat_processus).erreur_systeme != d_es) |
Line 4224 rplinit(int argc, char *argv[], char *en
|
Line 4691 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4281 rplinit(int argc, char *argv[], char *en
|
Line 4748 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4324 rplinit(int argc, char *argv[], char *en
|
Line 4791 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4361 rplinit(int argc, char *argv[], char *en
|
Line 4828 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4405 rplinit(int argc, char *argv[], char *en
|
Line 4872 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4445 rplinit(int argc, char *argv[], char *en
|
Line 4912 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4492 rplinit(int argc, char *argv[], char *en
|
Line 4959 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4529 rplinit(int argc, char *argv[], char *en
|
Line 4996 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4576 rplinit(int argc, char *argv[], char *en
|
Line 5043 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 4716 rplinit(int argc, char *argv[], char *en
|
Line 5183 rplinit(int argc, char *argv[], char *en
|
{ |
{ |
if (setjmp(contexte_initial) == 0) |
if (setjmp(contexte_initial) == 0) |
{ |
{ |
erreur = sequenceur_optimise(s_etat_processus); |
erreur = sequenceur_optimise(s_etat_processus, |
|
l_bibliotheques); |
|
|
if (erreur == d_absence_erreur) |
if (erreur == d_absence_erreur) |
{ |
{ |
Line 4927 rplinit(int argc, char *argv[], char *en
|
Line 5395 rplinit(int argc, char *argv[], char *en
|
(*(*((struct_processus_fils *) |
(*(*((struct_processus_fils *) |
(*(*((struct_liste_chainee *) |
(*(*((struct_liste_chainee *) |
l_element_courant)).donnee).objet)) |
l_element_courant)).donnee).objet)) |
.thread).pid, rpl_sigurg); |
.thread).pid, rpl_sigurg, d_faux); |
} |
} |
else |
else |
{ |
{ |
Line 4938 rplinit(int argc, char *argv[], char *en
|
Line 5406 rplinit(int argc, char *argv[], char *en
|
(*(*((struct_processus_fils *) |
(*(*((struct_processus_fils *) |
(*(*((struct_liste_chainee *) |
(*(*((struct_liste_chainee *) |
l_element_courant)).donnee).objet)) |
l_element_courant)).donnee).objet)) |
.thread).pid, rpl_sigabort); |
.thread).pid, rpl_sigabort, d_faux); |
} |
} |
else |
else |
{ |
{ |
Line 4946 rplinit(int argc, char *argv[], char *en
|
Line 5414 rplinit(int argc, char *argv[], char *en
|
(*(*((struct_processus_fils *) |
(*(*((struct_processus_fils *) |
(*(*((struct_liste_chainee *) |
(*(*((struct_liste_chainee *) |
l_element_courant)).donnee).objet)) |
l_element_courant)).donnee).objet)) |
.thread).pid, rpl_sigstop); |
.thread).pid, rpl_sigstop, d_faux); |
} |
} |
} |
} |
} |
} |
Line 5061 rplinit(int argc, char *argv[], char *en
|
Line 5529 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 5112 rplinit(int argc, char *argv[], char *en
|
Line 5580 rplinit(int argc, char *argv[], char *en
|
# endif |
# endif |
|
|
liberation_contexte_cas(s_etat_processus); |
liberation_contexte_cas(s_etat_processus); |
liberation_queue_signaux(s_etat_processus); |
destruction_queue_signaux(s_etat_processus); |
|
|
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
# ifdef HAVE_STACK_OVERFLOW_RECOVERY |
stackoverflow_deinstall_handler(); |
stackoverflow_deinstall_handler(); |
Line 5343 rplinit(int argc, char *argv[], char *en
|
Line 5811 rplinit(int argc, char *argv[], char *en
|
{ |
{ |
if ((*resultats) != NULL) |
if ((*resultats) != NULL) |
{ |
{ |
free((*resultats)); |
sys_free((*resultats)); |
|
|
if (((*resultats) = malloc(((size_t) |
if (((*resultats) = sys_malloc(((size_t) |
((*s_etat_processus) |
((*s_etat_processus) |
.hauteur_pile_operationnelle + 1)) |
.hauteur_pile_operationnelle + 1)) |
* sizeof(unsigned char **))) != NULL) |
* sizeof(unsigned char **))) != NULL) |
Line 5666 rplinit(int argc, char *argv[], char *en
|
Line 6134 rplinit(int argc, char *argv[], char *en
|
|
|
retrait_thread(s_etat_processus); |
retrait_thread(s_etat_processus); |
|
|
|
attente.tv_sec = 0; |
|
attente.tv_nsec = GRANULARITE_us * 1000; |
|
|
|
while(nombre_thread_surveillance_processus != 0) |
|
{ |
|
nanosleep(&attente, NULL); |
|
INCR_GRANULARITE(attente.tv_nsec); |
|
} |
|
|
pthread_mutex_destroy(&((*s_etat_processus).mutex_pile_processus)); |
pthread_mutex_destroy(&((*s_etat_processus).mutex_pile_processus)); |
pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation)); |
pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation)); |
pthread_mutex_destroy(&((*s_etat_processus).mutex_interruptions)); |
pthread_mutex_destroy(&((*s_etat_processus).mutex_interruptions)); |
Line 5699 rplinit(int argc, char *argv[], char *en
|
Line 6176 rplinit(int argc, char *argv[], char *en
|
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 5740 informations(struct_processus *s_etat_pr
|
Line 6221 informations(struct_processus *s_etat_pr
|
printf(" -i : fonctionnement interactif\n"); |
printf(" -i : fonctionnement interactif\n"); |
printf(" -l : licence d'utilisation\n"); |
printf(" -l : licence d'utilisation\n"); |
printf(" -n : ignorance du signal HUP\n"); |
printf(" -n : ignorance du signal HUP\n"); |
|
printf(" -m : chargement d'un module RPL/SO avant la " |
|
"compilation\n"); |
printf(" -p : précompilation du script avant exécution\n"); |
printf(" -p : précompilation du script avant exécution\n"); |
printf(" -P : profilage (-P ou -PP)\n"); |
printf(" -P : profilage (-P ou -PP)\n"); |
printf(" -s : empêchement de l'ouverture de l'écran initial\n"); |
printf(" -s : empêchement de l'ouverture de l'écran initial\n"); |
Line 5761 informations(struct_processus *s_etat_pr
|
Line 6244 informations(struct_processus *s_etat_pr
|
printf(" -i : runs the RPL/2 sequencer in interactive mode\n"); |
printf(" -i : runs the RPL/2 sequencer in interactive mode\n"); |
printf(" -l : prints the user licence of the software\n"); |
printf(" -l : prints the user licence of the software\n"); |
printf(" -n : ignores HUP signal\n"); |
printf(" -n : ignores HUP signal\n"); |
|
printf(" -m : loads RPL/SO object before compilation\n"); |
printf(" -p : precompiles script\n"); |
printf(" -p : precompiles script\n"); |
printf(" -P : computes profile data (-P or -PP)\n"); |
printf(" -P : computes profile data (-P or -PP)\n"); |
printf(" -s : disables splash screen\n"); |
printf(" -s : disables splash screen\n"); |
Line 5827 controle_integrite(struct_processus *s_e
|
Line 6311 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; |
|
|