version 1.263, 2015/02/01 22:50:00
|
version 1.302, 2016/10/11 12:02:46
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.20 |
RPL/2 (R) version 4.1.26 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 38
|
Line 38
|
# ifdef OpenBSD |
# ifdef OpenBSD |
# define _BSD_SOURCE |
# define _BSD_SOURCE |
# endif |
# endif |
|
|
|
# ifdef FreeBSD |
|
# define __BSD_VISIBLE 1 |
|
# endif |
#endif |
#endif |
|
|
#ifdef OS2 |
#ifdef OS2 |
Line 60
|
Line 64
|
# define SA_ONSTACK 0 |
# define SA_ONSTACK 0 |
#endif |
#endif |
|
|
|
#ifdef BROKEN_SIGSEGV |
|
# undef HAVE_STACK_OVERFLOW_RECOVERY |
|
# undef HAVE_SIGSEGV_RECOVERY |
|
#endif |
|
|
|
#define DEBUG_TRACE uprintf("[%d/%X] %s(%d)\n", \ |
|
getpid(), pthread_self(), __FILE__, __LINE__); |
|
#define TEST_ABSENCE_FICHIER(nom) \ |
|
{ int ios; struct stat *buf; ios = stat(nom, buf); \ |
|
if (ios == 0) BUG(1, uprintf("File %s found!\n", nom)); } |
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Line 206
|
Line 220
|
# endif |
# endif |
|
|
# include "sqlite3.h" |
# include "sqlite3.h" |
# include "sigsegv.h" |
|
|
# ifndef BROKEN_SIGSEGV |
|
# include "sigsegv.h" |
|
# endif |
|
|
# ifdef OS2 |
# ifdef OS2 |
// Bug de libsigsegv |
// Bug de libsigsegv |
# undef HAVE_STACK_OVERFLOW_RECOVERY |
# undef HAVE_STACK_OVERFLOW_RECOVERY |
# endif |
# endif |
|
|
# define HAVE_INLINE |
|
# define GSL_RANGE_CHECK_OFF |
# define GSL_RANGE_CHECK_OFF |
# include "gsl/gsl_cdf.h" |
# include "gsl/gsl_cdf.h" |
# include "gsl/gsl_cblas.h" |
# include "gsl/gsl_cblas.h" |
Line 264
|
Line 281
|
# define __STATIC_MUTEX_INITIALIZATION__ |
# define __STATIC_MUTEX_INITIALIZATION__ |
#endif |
#endif |
|
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Bugs spécifiques |
Bugs spécifiques |
Line 323 typedef struct queue_signaux
|
Line 341 typedef struct queue_signaux
|
volatile logical1 requete_arret; |
volatile logical1 requete_arret; |
|
|
pthread_t thread_signaux; |
pthread_t thread_signaux; |
|
pid_t controle; |
|
|
volatile struct |
volatile struct |
{ |
{ |
Line 511 union semun
|
Line 530 union semun
|
|
|
__EXTERN__ pid_t pid_processus_pere; |
__EXTERN__ pid_t pid_processus_pere; |
|
|
__EXTERN__ pthread_mutex_t mutex_liste_threads |
__EXTERN__ pthread_mutex_t mutex_liste_threads; |
__STATIC_MUTEX_INITIALIZATION__; |
|
__EXTERN__ pthread_mutex_t mutex_creation_variable_partagee |
__EXTERN__ pthread_mutex_t mutex_creation_variable_partagee |
__STATIC_MUTEX_INITIALIZATION__; |
__STATIC_MUTEX_INITIALIZATION__; |
__EXTERN__ pthread_mutex_t mutex_sections_critiques; |
__EXTERN__ pthread_mutex_t mutex_sections_critiques; |
Line 520 union semun
|
Line 538 union semun
|
__EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__; |
__EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__; |
|
|
__EXTERN__ volatile int routine_recursive; |
__EXTERN__ volatile int routine_recursive; |
|
__EXTERN__ volatile int nombre_thread_surveillance_processus; |
|
|
# define SEM_FORK 0 |
# define SEM_FORK 0 |
# define SEM_QUEUE 1 |
# define SEM_QUEUE 1 |
Line 587 union semun
|
Line 606 union semun
|
# define fflush(flux) fflush((flux == stdout) ? stderr : flux) |
# define fflush(flux) fflush((flux == stdout) ? stderr : flux) |
#endif |
#endif |
|
|
// Ajout d'un timeout sur les fonctions pipe() pour éviter une erreur |
|
// système dans le cas où l'on a atteint le nombre maximale de fichiers |
|
// ouverts. |
|
|
|
#define pipe(descripteurs) \ |
|
({ \ |
|
struct timespec temporisation; \ |
|
int erreur, nombre_echecs; \ |
|
nombre_echecs = 0; \ |
|
do \ |
|
{ \ |
|
if ((erreur = pipe(descripteurs)) == 0) break; \ |
|
nombre_echecs++; \ |
|
temporisation.tv_sec = 0; \ |
|
temporisation.tv_nsec = ((long) 1000000000) * rand(); \ |
|
nanosleep(&temporisation, NULL); \ |
|
} while(nombre_echecs < 100); \ |
|
erreur; \ |
|
}) |
|
|
|
// Redéfinition de abs pour un fonctionnement en entier de type long long int |
// Redéfinition de abs pour un fonctionnement en entier de type long long int |
|
|
#ifdef __GNUC__ |
#ifdef __GNUC__ |
Line 769 pid_t debug_fork();
|
Line 768 pid_t debug_fork();
|
#define d_SPH "Semaphore $n 'name'" |
#define d_SPH "Semaphore $n 'name'" |
#define d_TAB "<[ table ]>" |
#define d_TAB "<[ table ]>" |
#define d_MTX "Mutex $n" |
#define d_MTX "Mutex $n" |
|
#define d_REC "Record /'name_1', ..., 'name_n'/" |
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Line 806 pid_t debug_fork();
|
Line 806 pid_t debug_fork();
|
# else |
# else |
# define __erreur_(i) i |
# define __erreur_(i) i |
# endif |
# endif |
# define __erreur(i) ({ if (strstr(__FUNCTION__, "recherche_variable") \ |
# define __erreur(i) ({ int ios; ios = errno; \ |
== NULL) ufprintf(stderr, \ |
if (strstr(__FUNCTION__, "recherche_variable") \ |
"ERROR %d AT %s() FROM %s LINE %d\n", \ |
== NULL) { if(ios != 0) \ |
i, __FUNCTION__, __FILE__, __LINE__); i; }) |
ufprintf(stderr, "LAST ERROR: %s\n", strerror(ios)); \ |
|
ufprintf(stderr, "ERROR %d AT %s() FROM %s LINE %d\n", \ |
|
i, __FUNCTION__, __FILE__, __LINE__); BACKTRACE(16); } i; }) |
# endif |
# endif |
#else |
#else |
# define __erreur(i) i |
# define __erreur(i) i |
# define __erreur_(i) i |
# define __erreur_(i) i |
#endif |
#endif |
|
|
|
#ifdef DEBUG_FICHIERS |
|
# define open(a, ...) \ |
|
({ ufprintf(stderr, "[%d] OPEN %s AT %s() FROM %s LINE %d\n", \ |
|
getpid(), a, \ |
|
__FUNCTION__, __FILE__, __LINE__); open(a, __VA_ARGS__); }) |
|
# define pipe(a) \ |
|
({ ufprintf(stderr, "[%d] PIPE %s AT %s() FROM %s LINE %d\n", \ |
|
getpid(), a, \ |
|
__FUNCTION__, __FILE__, __LINE__); pipe(a); }) |
|
# define shm_open(a, ...) \ |
|
({ ufprintf(stderr, "[%d] SHM_OPEN %s AT %s() FROM %s LINE %d\n", \ |
|
getpid(), a, \ |
|
__FUNCTION__, __FILE__, __LINE__); shm_open(a, __VA_ARGS__); }) |
|
# define shm_unlink(a) \ |
|
({ ufprintf(stderr, "[%d] SHM_UNLINK %s AT %s() FROM %s LINE %d\n", \ |
|
getpid(), a, \ |
|
__FUNCTION__, __FILE__, __LINE__); shm_unlink(a); }) |
|
# define sem_open(a, ...) \ |
|
({ ufprintf(stderr, "[%d] SEM_OPEN %s AT %s() FROM %s LINE %d\n", \ |
|
getpid(), a, \ |
|
__FUNCTION__, __FILE__, __LINE__); sem_open(a, __VA_ARGS__); }) |
|
# define sem_unlink(a) \ |
|
({ ufprintf(stderr, "[%d] SEM_UNLINK %s AT %s() FROM %s LINE %d\n", \ |
|
getpid(), a, \ |
|
__FUNCTION__, __FILE__, __LINE__); sem_unlink(a); }) |
|
# define close(a) \ |
|
({ ufprintf(stderr, "[%d] CLOSE %s AT %s() FROM %s LINE %d\n", \ |
|
getpid(), a, \ |
|
__FUNCTION__, __FILE__, __LINE__); close(a); }) |
|
#endif |
|
|
// -1 : erreur provoquée par une bibliothèque externe |
// -1 : erreur provoquée par une bibliothèque externe |
#ifndef RPLARGS |
#ifndef RPLARGS |
Line 1021 pid_t debug_fork();
|
Line 1053 pid_t debug_fork();
|
#define NOM __RPL_NOM |
#define NOM __RPL_NOM |
#define NON __RPL_NON |
#define NON __RPL_NON |
#define PRC __RPL_PRC |
#define PRC __RPL_PRC |
|
#define REC __RPL_REC |
#define REL __RPL_REL |
#define REL __RPL_REL |
#define RPN __RPL_RPN |
#define RPN __RPL_RPN |
#define SCK __RPL_SCK |
#define SCK __RPL_SCK |
Line 1035 pid_t debug_fork();
|
Line 1068 pid_t debug_fork();
|
enum t_rplcas_commandes { RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE }; |
enum t_rplcas_commandes { RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE }; |
|
|
enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST, |
enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST, |
MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK, |
MCX, MIN, MRL, MTX, NOM, NON, PRC, REC, REL, RPN, SCK, |
SLB, SPH, SQL, TBL, VCX, VIN, VRL }; |
SLB, SPH, SQL, TBL, VCX, VIN, VRL }; |
|
|
/* |
/* |
Line 1309 typedef struct connecteur_sql
|
Line 1342 typedef struct connecteur_sql
|
*/ |
*/ |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
|
|
|
# define d_BIND_TO_DEVICE 0 |
|
# define d_BROADCAST 1 |
|
# define d_DONT_ROUTE 2 |
|
# define d_KEEP_ALIVE 3 |
|
# define d_PRIORITY 4 |
|
# define d_RECEIVE_BUFFER 5 |
|
# define d_FORCE_RECEIVE_BUFFER 6 |
|
# define d_SEND_BUFFER 7 |
|
# define d_FORCE_SEND_BUFFER 8 |
|
# define d_RECEIVING_TIMEOUT 9 |
|
# define d_SENDING_TIMEOUT 10 |
|
# define d_REUSE_ADDRESS 11 |
|
|
typedef struct socket |
typedef struct socket |
{ |
{ |
int domaine; |
int domaine; |
Line 1327 typedef struct socket
|
Line 1374 typedef struct socket
|
unsigned char protection; |
unsigned char protection; |
unsigned char type[19 + 1]; |
unsigned char type[19 + 1]; |
|
|
|
integer8 options; |
|
int priorite; |
|
int buffer_reception; |
|
int buffer_emission; |
|
int timeout_emission; |
|
int timeout_reception; |
|
|
struct_objet *format; |
struct_objet *format; |
} struct_socket; |
} struct_socket; |
#endif |
#endif |
Line 1948 typedef struct processus
|
Line 2002 typedef struct processus
|
unsigned char evaluation_forcee; /*Y/N*/ |
unsigned char evaluation_forcee; /*Y/N*/ |
unsigned char instruction_valide; /*Y/N*/ |
unsigned char instruction_valide; /*Y/N*/ |
unsigned char instruction_intrinseque; /*Y/I/N*/ |
unsigned char instruction_intrinseque; /*Y/I/N*/ |
|
unsigned char instruction_sensible; /*Y/N*/ |
unsigned char test_instruction; /*Y/N*/ |
unsigned char test_instruction; /*Y/N*/ |
unsigned char affichage_arguments; /*Y/N*/ |
unsigned char affichage_arguments; /*Y/N*/ |
unsigned char constante_symbolique; /*Y/N*/ |
unsigned char constante_symbolique; /*Y/N*/ |
Line 2392 typedef struct processus
|
Line 2447 typedef struct processus
|
integer8 taille_pile_objets; |
integer8 taille_pile_objets; |
struct_objet *pile_objets; |
struct_objet *pile_objets; |
|
|
# define TAILLE_CACHE 1024 |
# define TAILLE_CACHE 1024 |
# define CACHE(type, nom) \ |
# define CACHE(type, nom) \ |
type *objets_##nom[TAILLE_CACHE]; \ |
type *objets_##nom[TAILLE_CACHE]; \ |
volatile int pointeur_##nom; |
volatile int pointeur_##nom; |
Line 2443 void *rpl_malloc(struct_processus *s_eta
|
Line 2498 void *rpl_malloc(struct_processus *s_eta
|
void *rpl_realloc(struct_processus *s_etat_processus, void *ptr, size_t s); |
void *rpl_realloc(struct_processus *s_etat_processus, void *ptr, size_t s); |
void rpl_free(struct_processus *s_etat_processus, void *ptr); |
void rpl_free(struct_processus *s_etat_processus, void *ptr); |
void *sys_malloc(size_t s); |
void *sys_malloc(size_t s); |
|
void *sys_realloc(void *ptr, size_t s); |
void sys_free(void *ptr); |
void sys_free(void *ptr); |
|
|
/* |
/* |
Line 3102 void interruption3(int signal);
|
Line 3158 void interruption3(int signal);
|
void interruption4(int signal); |
void interruption4(int signal); |
void interruption5(int signal); |
void interruption5(int signal); |
void interruption6(int signal); |
void interruption6(int signal); |
void interruption_depassement_pile(int urgence, stackoverflow_context_t scp); |
#ifdef HAVE_SIGSEGV_RECOVERY |
|
void interruption_depassement_pile(int urgence, |
|
stackoverflow_context_t scp); |
|
#endif |
void inversion_matrice(struct_processus *s_etat_processus, |
void inversion_matrice(struct_processus *s_etat_processus, |
struct_matrice *s_matrice); |
struct_matrice *s_matrice); |
void lancement_daemon(struct_processus *s_etat_processus); |
void lancement_daemon(struct_processus *s_etat_processus); |
Line 3186 void liberation_queue_signaux(struct_pro
|
Line 3245 void liberation_queue_signaux(struct_pro
|
void destruction_queue_signaux(struct_processus *s_etat_processus); |
void destruction_queue_signaux(struct_processus *s_etat_processus); |
int envoi_signal_contexte(struct_processus *s_etat_processus, |
int envoi_signal_contexte(struct_processus *s_etat_processus, |
enum signaux_rpl signal); |
enum signaux_rpl signal); |
int envoi_signal_processus(pid_t pid, enum signaux_rpl signal); |
int envoi_signal_processus(pid_t pid, enum signaux_rpl signal, |
|
logical1 test_ouverture); |
int envoi_signal_thread(pthread_t tid, enum signaux_rpl signal); |
int envoi_signal_thread(pthread_t tid, enum signaux_rpl signal); |
#endif |
#endif |
|
|