--- rpl/src/rpl.h 2010/05/05 21:19:24 1.31 +++ rpl/src/rpl.h 2010/08/17 14:15:20 1.58 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.15 + RPL/2 (R) version 4.0.18 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -24,8 +24,32 @@ #define INCLUSION_RPL #define _GNU_SOURCE +#define _POSIX_C_SOURCE 200112L #define _REENTRANT +#ifdef Darwin +# define _DARWIN_C_SOURCE +#endif + +#ifdef OpenBSD +# define _BSD_SOURCE +#endif + +#ifdef OS2 +# define _BSD_SOURCE +# define _XOPEN_SOURCE 600 + +# include + enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR }; +# define SHUT_RD SHUT_RD +# define SHUT_WR SHUT_WR +# define SHUT_RDWR SHUT_RDWR + +# include "getaddrinfo-conv.h" + +# define sched_yield(arg) +#endif + /* ================================================================================ @@ -43,11 +67,12 @@ #include #ifndef RPLARGS +# include +# include # include # include # include # include -# include # include # include # include @@ -60,8 +85,56 @@ # include # include # include + +# ifdef OS2 +# undef pthread_mutexattr_settype +# define pthread_mutexattr_settype(a, b) +# endif + # include -# include + +# ifdef _BROKEN_SIGINFO +# include +# include +# endif + +# ifndef SEMAPHORES_SYSV +# include +# else +# ifdef OS2 +# define INCL_DOSSEMAPHORES +# define INCL_DOSMEMMGR +# define INCL_DOSERRORS +# include + + typedef struct _OS2SEM + { + HMTX hmtx; + HEV hev; + ULONG shared; + ULONG *cnt; + ULONG *nopened; + ULONG allocated; + } sem_t; +# else +# include +# include + typedef int sem_t; +# endif + +# define SEM_FAILED NULL + + sem_t *sem_open_SysV(const char *nom, int oflag, ...); + int sem_init_SysV(sem_t *sem, int shared, unsigned int value); + int sem_close_SysV(sem_t *sem); + int sem_wait_SysV(sem_t *sem); + int sem_trywait_SysV(sem_t *sem); + int sem_post_SysV(sem_t *sem); + int sem_getvalue_SysV(sem_t *sem, int *value); + int sem_unlink_SysV(const char *nom); + int sem_destroy_SysV(sem_t *sem); +# endif + # include # include # include @@ -114,6 +187,58 @@ #include "librplprototypes.h" +#ifndef UNIX_PATH_MAX + struct sockaddr_un sizecheck; +# define UNIX_PATH_MAX sizeof(sizecheck.sun_path) +#endif + +#ifdef _BROKEN_SIGINFO +# define SIGHANDLER_ARGS int signal +# ifdef SA_SIGINFO +# undef SA_SIGINFO +# endif +# define SA_SIGINFO 0 + +# define kill(pid, signal) rpl_kill(pid, signal) +# define pthread_kill(tid, signal) rpl_pthread_kill(tid, signal) + int rpl_kill(pid_t pid, int signal); + int rpl_pthread_kill(pthread_t tid, int signal); +#else +# define SIGHANDLER_ARGS int signal, siginfo_t *siginfo, void *context +#endif + +#define ftok(path, proj) \ + ({ \ + key_t key; \ + struct stat s; \ + while(stat(path, &s) != 0); \ + errno = 0; \ + key = ftok(path, proj); \ + if (key != -1) \ + key |= ((((key_t) s.st_dev) & 0xFF) << 8) | \ + ((((key_t) s.st_ino) & 0xFFFF) << 16); \ + key; \ + }) + +/* +================================================================================ + SÉMAPHORES +================================================================================ +*/ + +#ifdef SEMAPHORES_SYSV +# define sem_init(a, b, c) sem_init_SysV(a, b, c) +# define sem_destroy(a) sem_destroy_SysV(a) +# define sem_wait(a) sem_wait_SysV(a) +# define sem_trywait(a) sem_trywait_SysV(a) +# define sem_post(a) sem_post_SysV(a) +# define sem_getvalue(a, b) sem_getvalue_SysV(a, b) +# define sem_open(...) sem_open_SysV(__VA_ARGS__) +# define sem_close(a) sem_close_SysV(a) +# define sem_unlink(a) sem_unlink_SysV(a) +#endif + + /* ================================================================================ SIGNAUX @@ -121,6 +246,15 @@ */ #ifndef RPLARGS + +// Signaux utilisés par défaut : +// SIGINT +// SIGTSTP +// SIGCONT +// SIGURG +// SIGPIPE +// SIGALRM + // Arrêt par STOP # define SIGFSTOP SIGUSR1 // Démarrage d'un processus fils @@ -128,9 +262,20 @@ // Injection de données # define SIGINJECT SIGQUIT // Arrêt général -# define SIGABORT SIGPROF +# ifndef OpenBSD +// La libpthread d'OpenBSD utilise SIGPROF +# define SIGABORT SIGPROF +# else +# define SIGABORT SIGTHR +# endif // Arrêt d'un processus fils depuis autre chose que STOP -# define SIGFABORT SIGPOLL +# if defined(Darwin) || defined(OpenBSD) +# define SIGFABORT SIGINFO +# else +# define SIGFABORT SIGPOLL +# endif + +// Nombre d'interruptions disponibles # define d_NOMBRE_INTERRUPTIONS 64 #endif @@ -179,7 +324,7 @@ typedef FILE file; typedef unsigned char t_8_bits; #ifndef RPLARGS -# include "rpltypes.conv.h" +# include "rpltypes-conv.h" #else # include "rpltypes.h" #endif @@ -194,7 +339,12 @@ typedef unsigned char t_8_bits; # ifdef SEMAPHORES_NOMMES # define LONGUEUR_NOM_SEMAPHORE 64 # endif + # ifndef MAIN_RPL +# ifdef _BROKEN_SIGINFO + extern int *fifos_signaux; +# endif + extern jmp_buf contexte; extern jmp_buf contexte_initial; @@ -231,6 +381,10 @@ typedef unsigned char t_8_bits; extern sem_t *semaphores_nommes[4]; # endif # else +# ifdef _BROKEN_SIGINFO + int *fifos_signaux; +# endif + jmp_buf contexte; jmp_buf contexte_initial; @@ -351,7 +505,7 @@ int sem_getvalue2(sem_t *semaphore, int // Redéfinition de abs pour un fonctionnement en entier de type long long int -#if 1 +#ifdef __GNUC__ # define abs(i) ({ typeof(i) _i; _i = (i); (_i >= 0) ? _i : -_i; }) // typeof() est une extension de gcc, mais est présent sur d'autres compilateurs // comme Sun Studio. Dans le cas où typeof() n'existe pas, il est possible @@ -361,12 +515,6 @@ int sem_getvalue2(sem_t *semaphore, int # define abs(i) (((i) >= 0) ? (i) : (-i)) #endif -#define BUG(b, ...) \ - do { if (b) { uprintf("[%d] BUG! <%s()> at line #%d of %s\n", \ - (int) getpid(), __FUNCTION__, __LINE__, __FILE__); \ - __VA_ARGS__; fflush(stdout); \ - pthread_kill(pthread_self(), SIGBUS); }} while(0) - #define NOTICE(m) \ do \ { \ @@ -378,6 +526,7 @@ int sem_getvalue2(sem_t *semaphore, int #ifdef __GLIBC__ #include +#define __BACKTRACE #define BACKTRACE(n) \ do \ { \ @@ -406,6 +555,21 @@ int sem_getvalue2(sem_t *semaphore, int #define BACKTRACE(n) NOTICE("BACKTRACE only defined in glibc") #endif +#ifdef __BACKTRACE +# define BUG(b, ...) \ + do { if (b) { uprintf("[%d] BUG! <%s()> at line #%d of %s\n", \ + (int) getpid(), __FUNCTION__, __LINE__, __FILE__); \ + __VA_ARGS__; fflush(stdout); \ + BACKTRACE(64); \ + pthread_kill(pthread_self(), SIGBUS); }} while(0) +#else +# define BUG(b, ...) \ + do { if (b) { uprintf("[%d] BUG! <%s()> at line #%d of %s\n", \ + (int) getpid(), __FUNCTION__, __LINE__, __FILE__); \ + __VA_ARGS__; fflush(stdout); \ + pthread_kill(pthread_self(), SIGBUS); }} while(0) +#endif + /* ================================================================================ @@ -414,17 +578,23 @@ int sem_getvalue2(sem_t *semaphore, int */ #ifdef DEBUG_MEMOIRE +void analyse_post_mortem(); void *debug_memoire_ajout(size_t taille, const unsigned char *fonction, unsigned long ligne, const unsigned char *argument); +void debug_memoire_initialisation(); void *debug_memoire_modification(void *pointeur, size_t taille, const unsigned char *fonction, unsigned long ligne, const unsigned char *argument); void debug_memoire_retrait(void *ptr); +void debug_memoire_verification(); + +pid_t debug_fork(); #define malloc(s) debug_memoire_ajout(s, __FUNCTION__, __LINE__, #s) #define free(s) debug_memoire_retrait(s) #define realloc(s, t) debug_memoire_modification(s, t, \ __FUNCTION__, __LINE__, #t) +#define fork() debug_fork() #endif #ifdef DEBUG_RETURN @@ -464,21 +634,6 @@ void debug_memoire_retrait(void *ptr); if (value == 0) BUG(1, uprintf("Value %d\n", value)); sem_destroy(a); }) #endif -#ifdef DEBUG_MALLOC -#define malloc(taille) ({ size_t s = taille; void *p; \ - p = malloc(taille); if (p != NULL) memset(p, 0, s); \ - /*uprintf("[%d-%llu] Allocating %p (%d bytes) at %s() line #%d\n", \ - (int) getpid(), (unsigned long long) pthread_self(), p, \ - (int) s, __FUNCTION__, __LINE__); fflush(stdout); */ p; }) -#endif - -#ifdef DEBUG_FREE -#define free(ptr) ({ void *p = ptr; \ - /*uprintf("[%d-%llu] Freeing %p (%d bytes) at %s() line #%d\n", \ - (int) getpid(), (unsigned long long) pthread_self(), p, \ - (int) sizeof(p), __FUNCTION__, __LINE__); fflush(stdout); */ \ - if (p != NULL) memset(p, 0, sizeof(p)); free(p); }) -#endif /* ================================================================================ @@ -553,25 +708,36 @@ void debug_memoire_retrait(void *ptr); -------------------------------------------------------------------------------- */ -#define __erreur { uprintf("%s() / %d\n", __FUNCTION__, __LINE__); } while(0) +#ifdef DEBUG_ERREURS +# ifdef MESSAGES +# define __erreur(i) i +# else +# define __erreur(i) ({ if (strstr(__FUNCTION__, "recherche_variable") \ + == NULL) ufprintf(stderr, "ERROR %d AT %s() LINE %d\n", \ + i, __FUNCTION__, __LINE__); i; }) +# endif +#else +# define __erreur(i) i +#endif + // -1 : erreur provoquée par une bibliothèque externe #ifndef RPLARGS # define d_es 2000 -# define d_es_allocation_memoire 2001 -# define d_es_variable_introuvable 2002 -# define d_es_pile_vide 2003 -# define d_es_end_incoherent 2004 -# define d_es_peripherique_stdin 2005 -# define d_es_erreur_fichier 2006 -# define d_es_execution_bibliotheque 2007 -# define d_es_signal 2008 -# define d_es_processus 2009 -# define d_es_pile_operationnelle_vide 2010 -# define d_es_nombre_max_descripteurs 2011 -# define d_es_interruption_invalide 2012 -# define d_es_contexte 2013 -# define d_es_somme_controle 2014 +# define d_es_allocation_memoire __erreur(2001) +# define d_es_variable_introuvable __erreur(2002) +# define d_es_pile_vide __erreur(2003) +# define d_es_end_incoherent __erreur(2004) +# define d_es_peripherique_stdin __erreur(2005) +# define d_es_erreur_fichier __erreur(2006) +# define d_es_execution_bibliotheque __erreur(2007) +# define d_es_signal __erreur(2008) +# define d_es_processus __erreur(2009) +# define d_es_pile_operationnelle_vide __erreur(2010) +# define d_es_nombre_max_descripteurs __erreur(2011) +# define d_es_interruption_invalide __erreur(2012) +# define d_es_contexte __erreur(2013) +# define d_es_somme_controle __erreur(2014) #endif /* @@ -582,17 +748,17 @@ void debug_memoire_retrait(void *ptr); #ifndef RPLARGS # define d_ep 1000 -# define d_ep_division_par_zero 1001 -# define d_ep_matrice_non_inversible 1002 -# define d_ep_resultat_indefini 1003 -# define d_ep_underflow 1004 -# define d_ep_overflow 1005 -# define d_ep_domaine_definition 1006 -# define d_ep_perte_precision 1007 -# define d_ep_decomposition_QR 1008 -# define d_ep_matrice_non_definie_positive 1009 -# define d_ep_decomposition_QZ 1010 -# define d_ep_decomposition_SVD 1011 +# define d_ep_division_par_zero __erreur(1001) +# define d_ep_matrice_non_inversible __erreur(1002) +# define d_ep_resultat_indefini __erreur(1003) +# define d_ep_underflow __erreur(1004) +# define d_ep_overflow __erreur(1005) +# define d_ep_domaine_definition __erreur(1006) +# define d_ep_perte_precision __erreur(1007) +# define d_ep_decomposition_QR __erreur(1008) +# define d_ep_matrice_non_definie_positive __erreur(1009) +# define d_ep_decomposition_QZ __erreur(1010) +# define d_ep_decomposition_SVD __erreur(1011) #endif /* @@ -603,18 +769,18 @@ void debug_memoire_retrait(void *ptr); #ifndef RPLARGS # define d_ec 3000 -# define d_ec_niveau_definition_negatif 3001 -# define d_ec_nom_definition_invalide 3002 -# define d_ec_erreur_boucle_definie 3003 -# define d_ec_erreur_instruction_end 3004 -# define d_ec_erreur_instruction_until 3005 -# define d_ec_source_incoherent 3006 -# define d_ec_erreur_instruction_while 3007 -# define d_ec_erreur_instruction_then 3008 -# define d_ec_erreur_instruction_else 3009 -# define d_ec_erreur_instruction_elseif 3010 -# define d_ec_erreur_instruction_select 3011 -# define d_ec_erreur_instruction_case 3012 +# define d_ec_niveau_definition_negatif __erreur(3001) +# define d_ec_nom_definition_invalide __erreur(3002) +# define d_ec_erreur_boucle_definie __erreur(3003) +# define d_ec_erreur_instruction_end __erreur(3004) +# define d_ec_erreur_instruction_until __erreur(3005) +# define d_ec_source_incoherent __erreur(3006) +# define d_ec_erreur_instruction_while __erreur(3007) +# define d_ec_erreur_instruction_then __erreur(3008) +# define d_ec_erreur_instruction_else __erreur(3009) +# define d_ec_erreur_instruction_elseif __erreur(3010) +# define d_ec_erreur_instruction_select __erreur(3011) +# define d_ec_erreur_instruction_case __erreur(3012) #endif /* @@ -626,87 +792,88 @@ void debug_memoire_retrait(void *ptr); // -1 : erreur provoquée par une bibliothèque externe #ifndef RPLARGS # define d_ex 0 -# define d_ex_pile_vide 1 -# define d_ex_manque_argument 2 -# define d_ex_argument_invalide 3 -# define d_ex_erreur_type_argument 4 -# define d_ex_nom_reserve 5 -# define d_ex_nombre_arguments 6 -# define d_ex_dimensions_invalides 7 -# define d_ex_expression_invalide 8 -# define d_ex_absence_graphique_courant 9 -# define d_ex_erreur_traitement_condition 10 -# define d_ex_erreur_traitement_boucle 11 -# define d_ex_variable_non_definie 12 -# define d_ex_drapeau_inexistant 13 -# define d_ex_nom_invalide 14 -# define d_ex_element_inexistant 15 -# define d_ex_absence_variable 16 -# define d_ex_erreur_evaluation 17 -# define d_ex_semaphore 18 -# define d_ex_longueur_fft 19 -# define d_ex_queue_impression 20 -# define d_ex_type_trace_invalide 21 -# define d_ex_erreur_fichier 22 -# define d_ex_absence_equation 23 -# define d_ex_erreur_bibliotheque 24 -# define d_ex_execution_bibliotheque 25 -# define d_ex_stop 26 -# define d_ex_matrice_statistique_invalide 27 -# define d_ex_dimensions_matrice_statistique 28 -# define d_ex_absence_observations 29 -# define d_ex_statistiques_echantillon 30 -# define d_ex_observations_inexistantes 31 -# define d_ex_syntaxe 32 -# define d_ex_cycle_hors_boucle 33 -# define d_ex_conversion_unite 34 -# define d_ex_erreur_parametre_fichier 35 -# define d_ex_erreur_acces_fichier 36 -# define d_ex_erreur_requete_fichier 37 -# define d_ex_erreur_format_fichier 38 -# define d_ex_fichier_verrouille 39 -# define d_ex_verrou_indefini 40 -# define d_ex_fin_de_fichier_atteinte 41 -# define d_ex_debut_de_fichier_atteint 42 -# define d_ex_erreur_type_fichier 43 -# define d_ex_fichier_vide 44 -# define d_ex_dimensions_differentes 45 -# define d_ex_routines_mathematiques 46 -# define d_ex_exit_hors_boucle 47 -# define d_ex_longueur_dft 48 -# define d_ex_contexte 49 -# define d_ex_processus 50 -# define d_ex_image_processus 51 -# define d_ex_erreur_sql 52 -# define d_ex_variable_verrouillee 53 -# define d_ex_variable_volatile 54 -# define d_ex_erreur_processus 55 -# define d_ex_erreur_impression 56 -# define d_ex_nombre_arguments_fonction 57 -# define d_ex_fonction_indisponible 58 -# define d_ex_bibliotheque_chargee 59 -# define d_ex_aucun_symbole 60 -# define d_ex_definition_ambigue 61 -# define d_ex_fichier_hors_contexte 62 -# define d_ex_socket_en_ecoute 63 -# define d_ex_interruption_invalide 64 -# define d_ex_erreur_transcodage 65 -# define d_ex_absence_processus_pere 66 -# define d_ex_creation_variable 67 -# define d_ex_fusible 68 -# define d_ex_iswi_hors_interruption 69 -# define d_ex_daemon 70 -# define d_ex_mutex 71 -# define d_ex_variable_statique_partagee 72 -# define d_ex_variable_partagee 73 -# define d_ex_graphique_memorise 74 -# define d_ex_matrice_non_diagonale 75 -# define d_ex_locales 76 -# define d_ex_representation 77 -# define d_ex_erreur_profilage 78 -# define d_ex_enregistrement_inexistant 79 -# define d_ex_clef_inexistante 80 -# define d_ex_nom_implicite 81 +# define d_ex_pile_vide __erreur(1) +# define d_ex_manque_argument __erreur(2) +# define d_ex_argument_invalide __erreur(3) +# define d_ex_erreur_type_argument __erreur(4) +# define d_ex_nom_reserve __erreur(5) +# define d_ex_nombre_arguments __erreur(6) +# define d_ex_dimensions_invalides __erreur(7) +# define d_ex_expression_invalide __erreur(8) +# define d_ex_absence_graphique_courant __erreur(9) +# define d_ex_erreur_traitement_condition __erreur(10) +# define d_ex_erreur_traitement_boucle __erreur(11) +# define d_ex_variable_non_definie __erreur(12) +# define d_ex_drapeau_inexistant __erreur(13) +# define d_ex_nom_invalide __erreur(14) +# define d_ex_element_inexistant __erreur(15) +# define d_ex_absence_variable __erreur(16) +# define d_ex_erreur_evaluation __erreur(17) +# define d_ex_semaphore __erreur(18) +# define d_ex_longueur_fft __erreur(19) +# define d_ex_queue_impression __erreur(20) +# define d_ex_type_trace_invalide __erreur(21) +# define d_ex_erreur_fichier __erreur(22) +# define d_ex_absence_equation __erreur(23) +# define d_ex_erreur_bibliotheque __erreur(24) +# define d_ex_execution_bibliotheque __erreur(25) +# define d_ex_stop __erreur(26) +# define d_ex_matrice_statistique_invalide __erreur(27) +# define d_ex_dimensions_matrice_statistique __erreur(28) +# define d_ex_absence_observations __erreur(29) +# define d_ex_statistiques_echantillon __erreur(30) +# define d_ex_observations_inexistantes __erreur(31) +# define d_ex_syntaxe __erreur(32) +# define d_ex_cycle_hors_boucle __erreur(33) +# define d_ex_conversion_unite __erreur(34) +# define d_ex_erreur_parametre_fichier __erreur(35) +# define d_ex_erreur_acces_fichier __erreur(36) +# define d_ex_erreur_requete_fichier __erreur(37) +# define d_ex_erreur_format_fichier __erreur(38) +# define d_ex_fichier_verrouille __erreur(39) +# define d_ex_verrou_indefini __erreur(40) +# define d_ex_fin_de_fichier_atteinte __erreur(41) +# define d_ex_debut_de_fichier_atteint __erreur(42) +# define d_ex_erreur_type_fichier __erreur(43) +# define d_ex_fichier_vide __erreur(44) +# define d_ex_dimensions_differentes __erreur(45) +# define d_ex_routines_mathematiques __erreur(46) +# define d_ex_exit_hors_boucle __erreur(47) +# define d_ex_longueur_dft __erreur(48) +# define d_ex_contexte __erreur(49) +# define d_ex_processus __erreur(50) +# define d_ex_image_processus __erreur(51) +# define d_ex_erreur_sql __erreur(52) +# define d_ex_variable_verrouillee __erreur(53) +# define d_ex_variable_volatile __erreur(54) +# define d_ex_erreur_processus __erreur(55) +# define d_ex_erreur_impression __erreur(56) +# define d_ex_nombre_arguments_fonction __erreur(57) +# define d_ex_fonction_indisponible __erreur(58) +# define d_ex_bibliotheque_chargee __erreur(59) +# define d_ex_aucun_symbole __erreur(60) +# define d_ex_definition_ambigue __erreur(61) +# define d_ex_fichier_hors_contexte __erreur(62) +# define d_ex_socket_en_ecoute __erreur(63) +# define d_ex_interruption_invalide __erreur(64) +# define d_ex_erreur_transcodage __erreur(65) +# define d_ex_absence_processus_pere __erreur(66) +# define d_ex_creation_variable __erreur(67) +# define d_ex_fusible __erreur(68) +# define d_ex_iswi_hors_interruption __erreur(69) +# define d_ex_daemon __erreur(70) +# define d_ex_mutex __erreur(71) +# define d_ex_variable_statique_partagee __erreur(72) +# define d_ex_variable_partagee __erreur(73) +# define d_ex_graphique_memorise __erreur(74) +# define d_ex_matrice_non_diagonale __erreur(75) +# define d_ex_locales __erreur(76) +# define d_ex_representation __erreur(77) +# define d_ex_erreur_profilage __erreur(78) +# define d_ex_enregistrement_inexistant __erreur(79) +# define d_ex_clef_inexistante __erreur(80) +# define d_ex_nom_implicite __erreur(81) +# define d_ex_version_bibliotheque __erreur(82) #endif @@ -722,6 +889,42 @@ void debug_memoire_retrait(void *ptr); -------------------------------------------------------------------------------- */ +#ifdef MIN +# undef MIN +#endif + +#ifdef MAX +# undef MAX +#endif + +#define ADR __RPL_ADR +#define ALG __RPL_ALG +#define BIN __RPL_BIN +#define CHN __RPL_CHN +#define CPL __RPL_CPL +#define FCH __RPL_FCH +#define FCT __RPL_FCT +#define INT __RPL_INT +#define LST __RPL_LST +#define MCX __RPL_MCX +#define MIN __RPL_MIN +#define MRL __RPL_MRL +#define MTX __RPL_MTX +#define NOM __RPL_NOM +#define NON __RPL_NON +#define PRC __RPL_PRC +#define REL __RPL_REL +#define RPN __RPL_RPN +#define SCK __RPL_SCK +#define SLB __RPL_SLB +#define SPH __RPL_SPH +#define SQL __RPL_SQL +#define TBL __RPL_TBL +#define VCX __RPL_VCX +#define VIN __RPL_VIN +#define VRL __RPL_VRL + + enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST, MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK, SLB, SPH, SQL, TBL, VCX, VIN, VRL }; @@ -1108,6 +1311,7 @@ typedef struct descripteur_thread pthread_t thread_pere; pthread_mutex_t mutex; + volatile logical1 thread_actif; int pipe_erreurs[2]; @@ -1188,21 +1392,23 @@ typedef struct liste_pile_systeme /* type clôture : - C CASE : END termine un test SELECT/CASE/THEN/END/DEFAULT/END. - D DO : END termine une boucle DO/UNTIL/END. - I IF : END termine un test IF/THEN (ELSE)/END. - J IFERR : END termine un test IFERR/THEN (ELSE)/END. - W WHILE : END termine une boucle WHILE/REPEAT/END. - - F FOR : NEXT ou STEP termine une boucle avec compteur. - S START : NEXT ou STEP termine une boucle sans compteur. - L LOOP : boucle utilisé dans le traitement de l'instruction RETURN. + C SELECT : END termine un test SELECT/DEFAULT/END. + D DO : END termine une boucle DO/UNTIL/END. + I IF : END termine un test IF/THEN (ELSE)/END. + J IFERR : END termine un test IFERR/THEN (ELSE)/END. + K CASE : END termine un test CASE/THEN/END + W WHILE : END termine une boucle WHILE/REPEAT/END. + + F FOR : NEXT ou STEP termine une boucle avec compteur. + S START : NEXT ou STEP termine une boucle sans compteur. + L LOOP : boucle utilisé dans le traitement de l'instruction RETURN. Elle correspond à une boucle FOR ou START mais sans son initialisation. */ unsigned long adresse_retour; unsigned long niveau_courant; + struct_objet *pointeur_adresse_retour; } struct_liste_pile_systeme; #endif @@ -1503,8 +1709,15 @@ typedef struct processus pthread_t thread_fusible; pthread_t thread_surveille_par_fusible; -# ifndef Cygwin +# if !defined(Cygwin) +# if !(OpenBSD) stack_t pile_signal; +# else +# ifdef SA_ONSTACK +# undef SA_ONSTACK +# endif +# define SA_ONSTACK 0 +# endif # else # define SA_ONSTACK 0 # define RTLD_LOCAL 0 @@ -1766,8 +1979,10 @@ typedef struct processus unsigned char traitement_interruption; /* Y/N */ unsigned char traitement_interruptible; /* Y/N */ + unsigned char traitement_at_poke; /* Y/N */ struct_objet *at_exit; + struct_objet *at_poke; /* Variables volatiles */ @@ -1828,6 +2043,7 @@ typedef struct processus // Mutex spécifique au processus et donnant accès à la pile des processus pthread_mutex_t mutex; + pthread_mutex_t mutex_allocation; // Sémaphore autorisant les fork() sem_t @@ -1854,7 +2070,11 @@ typedef struct processus unsigned long taille_pile_objets; struct_objet *pile_objets; -# define TAILLE_CACHE 16384 +# ifndef DEBUG_MALLOC +# define TAILLE_CACHE 16384 +# else +# define TAILLE_CACHE 4 +# endif unsigned long *objets_adr[TAILLE_CACHE]; int pointeur_adr; @@ -1893,7 +2113,7 @@ typedef struct processus /* -------------------------------------------------------------------------------- - Structures instruction intrinseque + Structures instruction intrinsèque -------------------------------------------------------------------------------- */ @@ -1959,11 +2179,13 @@ void instruction_asr(struct_processus *s void instruction_atan(struct_processus *s_etat_processus); void instruction_atanh(struct_processus *s_etat_processus); void instruction_atexit(struct_processus *s_etat_processus); +void instruction_atpoke(struct_processus *s_etat_processus); void instruction_autoscale(struct_processus *s_etat_processus); void instruction_axes(struct_processus *s_etat_processus); void instruction_b_vers_r(struct_processus *s_etat_processus); void instruction_backspace(struct_processus *s_etat_processus); +void instruction_backtrace(struct_processus *s_etat_processus); void instruction_beep(struct_processus *s_etat_processus); void instruction_bessel(struct_processus *s_etat_processus); void instruction_bin(struct_processus *s_etat_processus); @@ -1979,6 +2201,7 @@ void instruction_cllcd(struct_processus void instruction_clmf(struct_processus *s_etat_processus); void instruction_close(struct_processus *s_etat_processus); void instruction_clratexit(struct_processus *s_etat_processus); +void instruction_clratpoke(struct_processus *s_etat_processus); void instruction_clrcntxt(struct_processus *s_etat_processus); void instruction_clrerr(struct_processus *s_etat_processus); void instruction_clrfuse(struct_processus *s_etat_processus); @@ -2178,6 +2401,8 @@ void instruction_maxs(struct_processus * void instruction_mclrin(struct_processus *s_etat_processus); void instruction_mean(struct_processus *s_etat_processus); void instruction_mem(struct_processus *s_etat_processus); +void instruction_memlock(struct_processus *s_etat_processus); +void instruction_memunlock(struct_processus *s_etat_processus); void instruction_min(struct_processus *s_etat_processus); void instruction_mins(struct_processus *s_etat_processus); void instruction_mod(struct_processus *s_etat_processus); @@ -2232,6 +2457,7 @@ void instruction_print(struct_processus void instruction_private(struct_processus *s_etat_processus); void instruction_prlcd(struct_processus *s_etat_processus); void instruction_prmd(struct_processus *s_etat_processus); +void instruction_procid(struct_processus *s_etat_processus); void instruction_prompt(struct_processus *s_etat_processus); void instruction_protect(struct_processus *s_etat_processus); void instruction_prst(struct_processus *s_etat_processus); @@ -2465,7 +2691,7 @@ void *allocation_maillon(struct_processu #ifndef RPLARGS void analyse(struct_processus *s_etat_processus, void (*fonction)()); -inline void *analyse_instruction(struct_processus *s_etat_processus, +void *analyse_instruction(struct_processus *s_etat_processus, unsigned char *candidat); void appel_gnuplot(struct_processus *s_etat_processus, unsigned char persistance); @@ -2483,7 +2709,6 @@ void conversion_majuscule_limitee(unsign void conversion_radians_vers_degres(real8 *angle); void correction_formateur_tex(struct_processus *s_etat_processus, unsigned char **ligne); -void debug_memoire_verification(struct_processus *s_etat_processus); void depilement_pile_systeme(struct_processus *s_etat_processus); void derivation(struct_processus *s_etat_processus, struct_objet **s_expression); @@ -2537,16 +2762,17 @@ void insertion_thread_surveillance(struc void integrale_romberg(struct_processus *s_etat_processus, struct_objet *s_expression, unsigned char *variable, real8 a, real8 b, real8 precision); -void interruption1(int signal, siginfo_t *siginfo, void *context); -void interruption2(int signal, siginfo_t *siginfo, void *context); -void interruption3(int signal, siginfo_t *siginfo, void *context); -void interruption4(int signal, siginfo_t *siginfo, void *context); -void interruption5(int signal, siginfo_t *siginfo, void *context); -void interruption6(int signal, siginfo_t *siginfo, void *context); -void interruption7(int signal, siginfo_t *siginfo, void *context); -void interruption8(int signal, siginfo_t *siginfo, void *context); -void interruption9(int signal, siginfo_t *siginfo, void *context); -void interruption10(int signal, siginfo_t *siginfo, void *context); +void interruption1(SIGHANDLER_ARGS); +void interruption2(SIGHANDLER_ARGS); +void interruption3(SIGHANDLER_ARGS); +void interruption4(SIGHANDLER_ARGS); +void interruption5(SIGHANDLER_ARGS); +void interruption6(SIGHANDLER_ARGS); +void interruption7(SIGHANDLER_ARGS); +void interruption8(SIGHANDLER_ARGS); +void interruption9(SIGHANDLER_ARGS); +void interruption10(SIGHANDLER_ARGS); +void interruption11(SIGHANDLER_ARGS); void inversion_matrice(struct_processus *s_etat_processus, struct_matrice *s_matrice); void lancement_daemon(struct_processus *s_etat_processus); @@ -2577,10 +2803,11 @@ void retrait_thread(struct_processus *s_ void retrait_thread_surveillance(struct_processus *s_etat_processus, struct_descripteur_thread *s_argument_thread); void rplcore(struct_processus *s_etat_processus); -inline void scrutation_injection(struct_processus *s_etat_processus); +void scrutation_injection(struct_processus *s_etat_processus); void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau); void *surveillance_processus(void *argument); void swap(void *variable_1, void *variable_2, unsigned long taille_octets); +void trace(struct_processus *s_etat_processus, FILE *flux); void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus); void traitement_exceptions_gsl(const char *reason, const char *file, int line, int gsl_errno); @@ -2604,6 +2831,14 @@ void valeurs_singulieres(struct_processu void verrouillage_threads_concurrents(struct_processus *s_etat_processus); #endif +#ifndef RPLARGS +#ifdef _BROKEN_SIGINFO +void creation_fifos_signaux(struct_processus *s_etat_processus); +void destruction_fifos_signaux(struct_processus *s_etat_processus); +void liberation_fifos_signaux(struct_processus *s_etat_processus); +#endif +#endif + /* -------------------------------------------------------------------------------- Fonctions de sommation de vecteur dans perte de précision @@ -2797,9 +3032,9 @@ logical1 test_fonction(unsigned char *ch */ #ifndef RPLARGS -inline ssize_t read_atomic(struct_processus *s_etat_processus, +ssize_t read_atomic(struct_processus *s_etat_processus, int fd, void *buf, size_t count); -inline ssize_t write_atomic(struct_processus *s_etat_processus, +ssize_t write_atomic(struct_processus *s_etat_processus, int fd, void *buf, size_t count); #endif @@ -3189,7 +3424,7 @@ void zgelsy_(integer4 *m, integer4 *n, i * drapeau depuis une bibliothèque). */ -inline int test_arret(struct_processus *s_etat_processus); +int test_arret(struct_processus *s_etat_processus); #endif