--- rpl/src/interruptions.c 2011/09/14 17:55:59 1.68 +++ rpl/src/interruptions.c 2011/09/20 07:16:40 1.76 @@ -59,6 +59,8 @@ static volatile struct_liste_chainee_vol = NULL; static volatile int code_erreur_gsl = 0; +unsigned char *racine_segment; + static pthread_mutex_t mutex_interruptions = PTHREAD_MUTEX_INITIALIZER; @@ -1832,7 +1834,26 @@ void INTERRUPTION3_A_FIXER() static inline void signal_start(struct_processus *s_etat_processus, pid_t pid) { - (*s_etat_processus).demarrage_fils = d_vrai; + struct_processus *s_thread_principal; + + verrouillage_gestionnaire_signaux(s_etat_processus); + + if (pid == getpid()) + { + (*s_etat_processus).demarrage_fils = d_vrai; + } + else + { + // Envoi d'un signal au thread maître du groupe. + + if ((s_thread_principal = recherche_thread_principal(getpid())) + != NULL) + { + envoi_signal_contexte(s_thread_principal, rpl_sigstart); + } + } + + deverrouillage_gestionnaire_signaux(s_etat_processus); return; } @@ -1841,7 +1862,26 @@ signal_start(struct_processus *s_etat_pr static inline void signal_cont(struct_processus *s_etat_processus, pid_t pid) { - (*s_etat_processus).redemarrage_processus = d_vrai; + struct_processus *s_thread_principal; + + verrouillage_gestionnaire_signaux(s_etat_processus); + + if (pid == getpid()) + { + (*s_etat_processus).redemarrage_processus = d_vrai; + } + else + { + // Envoi d'un signal au thread maître du groupe. + + if ((s_thread_principal = recherche_thread_principal(getpid())) + != NULL) + { + envoi_signal_contexte(s_thread_principal, rpl_sigcont); + } + } + + deverrouillage_gestionnaire_signaux(s_etat_processus); return; } @@ -1865,7 +1905,7 @@ signal_stop(struct_processus *s_etat_pro if (((*s_etat_processus).type_debug & d_debug_signaux) != 0) { - printf("[%d] RPL/SIGFSTOP (thread %llu)\n", (int) getpid(), + printf("[%d] RPL/SIGSTOP (thread %llu)\n", (int) getpid(), (unsigned long long) pthread_self()); fflush(stdout); } @@ -1888,13 +1928,6 @@ signal_stop(struct_processus *s_etat_pro } else { - if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) - == NULL) - { - deverrouillage_gestionnaire_signaux(s_etat_processus); - return; - } - // Envoi d'un signal au thread maître du groupe. if ((s_thread_principal = recherche_thread_principal(getpid())) @@ -2026,13 +2059,6 @@ signal_abort(struct_processus *s_etat_pr (*s_etat_processus).arret_depuis_abort = -1; - if (((*s_etat_processus).type_debug & d_debug_signaux) != 0) - { - printf("[%d] SIGFABORT (thread %llu)\n", (int) getpid(), - (unsigned long long) pthread_self()); - fflush(stdout); - } - /* * var_globale_traitement_retarde_stop : * 0 -> traitement immédiat @@ -2051,13 +2077,6 @@ signal_abort(struct_processus *s_etat_pr } else { - if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) - == NULL) - { - deverrouillage_gestionnaire_signaux(s_etat_processus); - return; - } - (*s_etat_processus).arret_depuis_abort = -1; // Envoi d'un signal au thread maître du groupe. @@ -2114,7 +2133,7 @@ signal_hup(struct_processus *s_etat_proc if (((*s_etat_processus).type_debug & d_debug_signaux) != 0) { - printf("[%d] SIGHUP (thread %llu)\n", (int) getpid(), + printf("[%d] RPL/SIGHUP (thread %llu)\n", (int) getpid(), (unsigned long long) pthread_self()); fflush(stdout); } @@ -2153,10 +2172,11 @@ static inline void envoi_interruptions(struct_processus *s_etat_processus, enum signaux_rpl signal, pid_t pid_source) { - unsigned char message[] = "+++System : Spurious signa !\n"; - switch(signal) { + case rpl_signull: + break; + case rpl_sigint: signal_int(s_etat_processus, pid_source); break; @@ -2206,7 +2226,15 @@ envoi_interruptions(struct_processus *s_ break; default: - write(STDERR_FILENO, message, strlen(message)); + if ((*s_etat_processus).langue == 'F') + { + printf("+++System : Spurious signal (%d) !\n", signal); + } + else + { + printf("+++System : Signal inconnu (%d) !\n", signal); + } + break; } @@ -2223,7 +2251,11 @@ scrutation_interruptions(struct_processu // à lire. Les pointeurs d'écriture pointent sur les prochains éléments à // écrire. - if (pthread_mutex_trylock(&((*s_queue_signaux).mutex)) == 0) +# ifndef SEMAPHORES_NOMMES + if (sem_trywait(&((*s_queue_signaux).semaphore)) == 0) +# else + if (sem_trywait(semaphore_queue_signaux) == 0) +# endif { if ((*s_queue_signaux).pointeur_lecture != (*s_queue_signaux).pointeur_ecriture) @@ -2240,7 +2272,11 @@ scrutation_interruptions(struct_processu % LONGUEUR_QUEUE_SIGNAUX; } - pthread_mutex_unlock(&((*s_queue_signaux).mutex)); +# ifndef SEMAPHORES_NOMMES + sem_post(&((*s_queue_signaux).semaphore)); +# else + sem_post(semaphore_queue_signaux); +# endif } // Interruptions qui arrivent depuis le groupe courant de threads. @@ -2267,12 +2303,253 @@ scrutation_interruptions(struct_processu return; } +/* +================================================================================ + Fonction renvoyant le nom du segment de mémoire partagée en fonction + du pid du processus. +================================================================================ + Entrée : Chemin absolue servant de racine, pid du processus +-------------------------------------------------------------------------------- + Sortie : NULL ou nom du segment +-------------------------------------------------------------------------------- + Effet de bord : Néant +================================================================================ +*/ + +static unsigned char * +nom_segment(unsigned char *chemin, pid_t pid) +{ + unsigned char *fichier; + +# ifdef IPCS_SYSV // !POSIX +# ifndef OS2 // !OS2 + + if ((fichier = malloc((strlen(chemin) + 1 + 256 + 1) * + sizeof(unsigned char))) == NULL) + { + return(NULL); + } + + sprintf(fichier, "%s/RPL-SIGQUEUES-%d", chemin, (int) pid); +# else // OS2 + if ((fichier = malloc((10 + 256 + 1) * sizeof(unsigned char))) + == NULL) + { + return(NULL); + } + + sprintf(fichier, "\\SHAREMEM\\RPL-SIGQUEUES-%d", (int) pid); +# endif // OS2 +# else // POSIX + + if ((fichier = malloc((1 + 256 + 1) * + sizeof(unsigned char))) == NULL) + { + return(NULL); + } + + sprintf(fichier, "/RPL-SIGQUEUES-%d", (int) pid); +# endif + + return(fichier); +} + + +/* +================================================================================ + Fonctions d'envoi d'un signal à un thread ou à un processus. +================================================================================ + Entrée : processus et signal +-------------------------------------------------------------------------------- + Sortie : erreur +-------------------------------------------------------------------------------- + Effet de bord : Néant +================================================================================ +*/ + int envoi_signal_processus(pid_t pid, enum signaux_rpl signal) { + int segment; + +# ifndef IPCS_SYSV +# ifdef SEMAPHORES_NOMMES + sem_t *semaphore; +# endif +# else + int desc; + key_t clef; +# endif + + struct_queue_signaux *queue; + + unsigned char *nom; + // Il s'agit d'ouvrir le segment de mémoire partagée, de le projeter en // mémoire puis d'y inscrire le signal à traiter. + if (pid == getpid()) + { + // Le signal est envoyé au même processus. + + if (s_queue_signaux == NULL) + { + return(1); + } + +# ifndef SEMAPHORES_NOMMES + if (sem_wait(&((*s_queue_signaux).semaphore)) != 0) +# else + if (sem_wait(semaphore_queue_signaux) != 0) +# endif + { + return(1); + } + + (*s_queue_signaux).queue[(*s_queue_signaux).pointeur_ecriture] + .pid = pid; + (*s_queue_signaux).queue[(*s_queue_signaux).pointeur_ecriture] + .signal = signal; + + (*s_queue_signaux).pointeur_ecriture = + ((*s_queue_signaux).pointeur_ecriture + 1) + % LONGUEUR_QUEUE_SIGNAUX; + +# ifndef SEMAPHORES_NOMMES + if (sem_post(&((*s_queue_signaux).semaphore)) != 0) +# else + if (sem_post(semaphore_queue_signaux) != 0) +# endif + { + return(1); + } + } + else + { + // Le signal est envoyé depuis un processus distinct. + +# ifdef IPCS_SYSV + if ((nom = nom_segment(racine_segment, pid)) == NULL) + { + return(1); + } + + if ((desc = open(nom, O_RDWR)) == -1) + { + free(nom); + return(1); + } + + close(desc); + + if ((clef = ftok(nom, 1)) == -1) + { + free(nom); + return(1); + } + + free(nom); + + if ((segment = shmget(clef, sizeof(struct_queue_signaux), 0)) == -1) + { + return(1); + } + + queue = shmat(segment, NULL, 0); +# else // POSIX + if ((nom = nom_segment(racine_segment, pid)) == NULL) + { + return(1); + } + + if ((segment = shm_open(nom, O_RDWR, 0)) == -1) + { + free(nom); + return(1); + } + + free(nom); + + if ((queue = mmap(NULL, sizeof(struct_queue_signaux), + PROT_READ | PROT_WRITE, MAP_SHARED, segment, 0)) == + MAP_FAILED) + { + close(segment); + return(1); + } +# endif + + // À ce moment, le segment de mémoire partagée est projeté + // dans l'espace du processus. + +# ifndef IPCS_SYSV // POSIX +# ifndef SEMAPHORES_NOMMES + if (sem_wait(&((*queue).semaphore)) != 0) + { + return(1); + } +# else + if ((semaphore = sem_open2(pid)) == SEM_FAILED) + { + return(1); + } + + if (sem_wait(semaphore) != 0) + { + sem_close(semaphore); + return(1); + } +# endif +# else // IPCS_SYSV + if (sem_wait(&((*queue).semaphore)) != 0) + { + return(1); + } +# endif + + (*queue).queue[(*queue).pointeur_ecriture].pid = getpid(); + (*queue).queue[(*queue).pointeur_ecriture].signal = signal; + + (*queue).pointeur_ecriture = ((*queue).pointeur_ecriture + 1) + % LONGUEUR_QUEUE_SIGNAUX; + +# ifndef IPCS_SYSV // POSIX +# ifndef SEMAPHORES_NOMMES + if (sem_post(&((*queue).semaphore)) != 0) + { + return(1); + } +# else + if (sem_post(semaphore) != 0) + { + sem_close(semaphore); + return(1); + } + + if (sem_close(semaphore) != 0) + { + return(1); + } +# endif + + if (munmap(queue, sizeof(struct_queue_signaux)) != 0) + { + close(segment); + return(1); + } +# else // IPCS_SYSV + if (sem_post(&((*queue).semaphore)) != 0) + { + return(1); + } + + if (shmdt(queue) != 0) + { + return(1); + } +# endif + } + return(0); } @@ -2358,58 +2635,6 @@ envoi_signal_contexte(struct_processus * /* ================================================================================ - Fonction renvoyant le nom du segment de mémoire partagée en fonction - du pid du processus. -================================================================================ - Entrée : Chemin absolue servant de racine, pid du processus --------------------------------------------------------------------------------- - Sortie : NULL ou nom du segment --------------------------------------------------------------------------------- - Effet de bord : Néant -================================================================================ -*/ - -static unsigned char * -nom_segment(unsigned char *chemin, pid_t pid) -{ - unsigned char *fichier; - -# ifdef IPCS_SYSV // !POSIX -# ifndef OS2 // !OS2 - - if ((fichier = malloc((strlen(chemin) + 1 + 256 + 1) * - sizeof(unsigned char))) == NULL) - { - return(NULL); - } - - sprintf(fichier, "%s/RPL-SIGQUEUES-%d", chemin, (int) pid); -# else // OS2 - if ((fichier = malloc((10 + 256 + 1) * sizeof(unsigned char))) - == NULL) - { - return(NULL); - } - - sprintf(fichier, "\\SHAREMEM\\RPL-SIGQUEUES-%d", (int) pid); -# endif // OS2 -# else // POSIX - - if ((fichier = malloc((1 + 256 + 1) * - sizeof(unsigned char))) == NULL) - { - return(NULL); - } - - sprintf(fichier, "/RPL-SIGQUEUES-%d", (int) pid); -# endif - - return(fichier); -} - - -/* -================================================================================ Fonction créant un segment de mémoire partagée destiné à contenir la queue des signaux. ================================================================================ @@ -2424,141 +2649,149 @@ nom_segment(unsigned char *chemin, pid_t void creation_queue_signaux(struct_processus *s_etat_processus) { - int segment; - - pthread_mutexattr_t attributs_mutex; - unsigned char *nom; -# ifndef IPCS_SYSV // POSIX + racine_segment = (*s_etat_processus).chemin_fichiers_temporaires; - if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires, - getpid())) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } - - if ((segment = shm_open(nom, O_RDWR | O_CREAT | O_EXCL, - S_IRUSR | S_IWUSR)) == -1) - { - free(nom); - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } - - if (ftruncate(segment, sizeof(struct_queue_signaux)) == -1) - { - free(nom); - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } - - s_queue_signaux = mmap(NULL, sizeof(struct_queue_signaux), - PROT_READ | PROT_WRITE, MAP_SHARED, segment, 0); - close(segment); +# ifndef IPCS_SYSV // POSIX + if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires, + getpid())) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - if (((void *) s_queue_signaux) == ((void *) -1)) - { - if (shm_unlink(nom) == -1) + if ((f_queue_signaux = shm_open(nom, O_RDWR | O_CREAT | O_EXCL, + S_IRUSR | S_IWUSR)) == -1) { free(nom); (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } - free(nom); - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } - - free(nom); - - pthread_mutexattr_init(&attributs_mutex); - pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); - pthread_mutex_init(&((*s_queue_signaux).mutex), &attributs_mutex); - pthread_mutexattr_destroy(&attributs_mutex); + if (ftruncate(f_queue_signaux, sizeof(struct_queue_signaux)) == -1) + { + free(nom); + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - (*s_queue_signaux).pointeur_lecture = 0; - (*s_queue_signaux).pointeur_ecriture = 0; + s_queue_signaux = mmap(NULL, sizeof(struct_queue_signaux), + PROT_READ | PROT_WRITE, MAP_SHARED, f_queue_signaux, 0); -# else // SystemV -# ifndef OS2 + if (((void *) s_queue_signaux) == ((void *) -1)) + { + if (shm_unlink(nom) == -1) + { + free(nom); + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - file *desc; + free(nom); + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - key_t clef; + free(nom); - // Création d'un segment de données associé au PID du processus courant +# ifndef SEMAPHORES_NOMMES + sem_init(&((*s_queue_signaux).semaphore), 1, 1); +# else + if ((semaphore_queue_signaux = sem_init2(1, getpid())) + == SEM_FAILED) + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } +# endif - chemin = (*s_etat_processus).chemin_fichiers_temporaires; + (*s_queue_signaux).pointeur_lecture = 0; + (*s_queue_signaux).pointeur_ecriture = 0; - if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires, - getpid())) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if (msync(s_queue_signaux, sizeof(struct_queue_signaux), 0)) + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } +# else // IPCS_SYSV +# ifndef OS2 + int segment; + int support; - if ((desc = fopen(nom, "w")) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_erreur_fichier; - return; - } + key_t clef; - fclose(desc); + // Création d'un segment de données associé au PID du processus + // courant - if ((clef = ftok(nom, 1)) == -1) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if ((nom = nom_segment((*s_etat_processus) + .chemin_fichiers_temporaires, getpid())) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - free(nom); + if ((support = open(nom, O_RDWR | O_CREAT | O_EXCL, + S_IRUSR | S_IWUSR)) == -1) + { + (*s_etat_processus).erreur_systeme = d_es_erreur_fichier; + return; + } - if ((segment = shmget(clef, - nombre_queues * ((2 * longueur_queue) + 4) * sizeof(int), - IPC_CREAT | IPC_EXCL | S_IRUSR | S_IWUSR)) == -1) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if ((clef = ftok(nom, 1)) == -1) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - fifos = shmat(segment, NULL, 0); + close(support); + free(nom); - if (((void *) fifos) == ((void *) -1)) - { - if (shmctl(segment, IPC_RMID, 0) == -1) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if ((segment = shmget(clef, sizeof(struct_queue_signaux), + IPC_CREAT | IPC_EXCL | S_IRUSR | S_IWUSR)) == -1) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + s_queue_signaux = shmat(segment, NULL, 0); + f_queue_signaux = segment; -# else + if (((void *) s_queue_signaux) == ((void *) -1)) + { + if (shmctl(f_queue_signaux, IPC_RMID, 0) == -1) + { + (*s_etat_processus).erreur_systeme = + d_es_allocation_memoire; + return; + } - if ((nom = nom_segment(NULL, getpid())) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - if (DosAllocSharedMem(&ptr_os2, nom, nombre_queues * - ((2 * longueur_queue) + 4) * sizeof(int), - PAG_WRITE | PAG_READ | PAG_COMMIT) != 0) - { - free(nom); - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + sem_init(&((*s_queue_signaux).semaphore), 1, 1); + (*s_queue_signaux).pointeur_lecture = 0; + (*s_queue_signaux).pointeur_ecriture = 0; +# else // OS/2 + if ((nom = nom_segment(NULL, getpid())) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - free(nom); - fifos = ptr_os2; + if (DosAllocSharedMem(&ptr_os2, nom, nombre_queues * + ((2 * longueur_queue) + 4) * sizeof(int), + PAG_WRITE | PAG_READ | PAG_COMMIT) != 0) + { + free(nom); + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } -# endif + free(nom); + fifos = ptr_os2; +# endif # endif return; @@ -2583,14 +2816,27 @@ liberation_queue_signaux(struct_processu { # ifdef IPCS_SYSV // SystemV # ifndef OS2 + if (shmdt(s_queue_signaux) == -1) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } # else // OS/2 # endif # else // POSIX +# ifndef SEMAPHORES_NOMMES + sem_close(&((*s_queue_signaux).semaphore)); +# else + sem_close(semaphore_queue_signaux); +# endif + if (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0) { (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } + + close(f_queue_signaux); # endif return; @@ -2616,62 +2862,79 @@ destruction_queue_signaux(struct_process unsigned char *nom; # ifdef IPCS_SYSV // SystemV -# ifndef OS2 +# ifndef OS2 + // Il faut commencer par éliminer le sémaphore. - if (shmdt(fifos) == -1) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if (semctl((*s_queue_signaux).semaphore.sem, 0, IPC_RMID) == -1) + { + (*s_etat_processus).erreur_systeme = d_es_processus; + return; + } - if (shmctl(segment, IPC_RMID, 0) == -1) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + unlink((*s_queue_signaux).semaphore.path); - if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires, - getpid())) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if (shmdt(s_queue_signaux) == -1) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - unlink(nom); - free(nom); + if (shmctl(f_queue_signaux, IPC_RMID, 0) == -1) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } -# else + if ((nom = nom_segment((*s_etat_processus) + .chemin_fichiers_temporaires, getpid())) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - if (DosFreeMem(fifos) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + unlink(nom); + free(nom); +# else + if (DosFreeMem(fifos) != 0) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } -# endif + // FERMER LE FICHIER + +# endif # else // POSIX +# ifndef SEMAPHORES_NOMMES + sem_close(&((*s_queue_signaux).semaphore)); + sem_destroy(&((*s_queue_signaux).semaphore)); +# else + sem_close(semaphore_queue_signaux); + sem_destroy2(semaphore_queue_signaux, getpid()); +# endif - if (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - if ((nom = nom_segment(NULL, getpid())) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if ((nom = nom_segment(NULL, getpid())) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - if (shm_unlink(nom) != 0) - { - free(nom); - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + close(f_queue_signaux); - free(nom); + if (shm_unlink(nom) != 0) + { + free(nom); + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } + free(nom); # endif return;