version 1.121, 2011/09/14 17:56:00
|
version 1.136, 2011/10/10 10:58:12
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.3 |
RPL/2 (R) version 4.1.4 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 43
|
Line 43
|
#ifdef OS2 |
#ifdef OS2 |
# ifndef __RPLCAS |
# ifndef __RPLCAS |
# define _BSD_SOURCE |
# define _BSD_SOURCE |
# define _XOPEN_SOURCE 600 |
|
# endif |
# endif |
|
|
# include <types.h> |
# include <types.h> |
Line 99
|
Line 98
|
# endif |
# endif |
|
|
# include <pwd.h> |
# include <pwd.h> |
# include <sys/shm.h> |
# ifdef SHARED_MEMORY |
|
# include <sys/shm.h> |
|
# endif |
|
|
# ifndef IPCS_SYSV |
# ifndef IPCS_SYSV |
# include <semaphore.h> |
# include <semaphore.h> |
Line 122
|
Line 123
|
ULONG *nopened; |
ULONG *nopened; |
ULONG allocated; |
ULONG allocated; |
} sem_t; |
} sem_t; |
# else |
# else // IPCS_SYSV |
typedef struct |
typedef struct |
{ |
{ |
int sem; |
int sem; |
|
int alloue; |
unsigned char *path; |
unsigned char *path; |
pid_t pid; |
pid_t pid; |
|
pthread_t tid; |
} sem_t; |
} sem_t; |
# endif |
# endif |
|
|
# define SEM_FAILED NULL |
# ifndef SEM_FAILED |
|
# define SEM_FAILED NULL |
|
# endif |
|
|
sem_t *sem_open_SysV(const char *nom, int oflag, ...); |
sem_t *sem_open_SysV(const char *nom, int oflag, ...); |
int sem_init_SysV(sem_t *sem, int shared, unsigned int value); |
int sem_init_SysV(sem_t *sem, int shared, unsigned int value); |
Line 158
|
Line 163
|
|
|
# include "openssl/evp.h" |
# include "openssl/evp.h" |
# include "sqlite3.h" |
# include "sqlite3.h" |
|
# include "sigsegv.h" |
|
# ifdef OS2 |
|
// Bug de libsigsegv |
|
# undef HAVE_STACK_OVERFLOW_RECOVERY |
|
# endif |
|
|
# define HAVE_INLINE |
# define HAVE_INLINE |
# define GSL_RANGE_CHECK_OFF |
# define GSL_RANGE_CHECK_OFF |
Line 211
|
Line 221
|
|
|
enum signaux_rpl |
enum signaux_rpl |
{ |
{ |
rpl_null = 0, |
rpl_signull = 0, |
rpl_sigint, |
rpl_sigint, |
rpl_sigterm, |
rpl_sigterm, |
rpl_sigstart, // Signal envoyé par un père pour lancer son fils. |
rpl_sigstart, // Signal envoyé par un père pour lancer son fils. |
Line 237 enum signaux_rpl
|
Line 247 enum signaux_rpl
|
// Elle est projetée dans un segment de mémoire partagée pour qu'elle soit |
// Elle est projetée dans un segment de mémoire partagée pour qu'elle soit |
// accessible à la fois du père et des fils. |
// accessible à la fois du père et des fils. |
|
|
|
#ifndef RPLARGS |
typedef struct queue_signaux |
typedef struct queue_signaux |
{ |
{ |
pthread_mutex_t mutex; |
# ifndef IPCS_SYSV |
|
# ifndef SEMAPHORES_NOMMES |
|
sem_t semaphore; |
|
# endif |
|
# else |
|
sem_t semaphore; |
|
# endif |
|
|
volatile int pointeur_lecture; |
volatile int pointeur_lecture; |
volatile int pointeur_ecriture; |
volatile int pointeur_ecriture; |
Line 251 typedef struct queue_signaux
|
Line 268 typedef struct queue_signaux
|
} queue[LONGUEUR_QUEUE_SIGNAUX]; |
} queue[LONGUEUR_QUEUE_SIGNAUX]; |
} struct_queue_signaux; |
} struct_queue_signaux; |
|
|
#ifndef RPLARGS |
|
# ifndef MAIN_RPL |
# ifndef MAIN_RPL |
extern struct_queue_signaux *s_queue_signaux; |
extern struct_queue_signaux *s_queue_signaux; |
|
extern int f_queue_signaux; |
|
# ifdef SEMAPHORES_NOMMES |
|
extern sem_t *semaphore_queue_signaux; |
|
# endif |
# else |
# else |
struct_queue_signaux *s_queue_signaux; |
struct_queue_signaux *s_queue_signaux; |
|
int f_queue_signaux; |
|
# ifdef SEMAPHORES_NOMMES |
|
sem_t *semaphore_queue_signaux; |
|
# endif |
# endif |
# endif |
#endif |
#endif |
|
|
Line 281 union semun
|
Line 305 union semun
|
}; |
}; |
#endif |
#endif |
|
|
|
#ifndef RTLD_LOCAL |
|
# define RTLD_LOCAL 0 |
|
#endif |
|
|
|
#ifndef SIGSTKSZ |
|
# define SIGSTKSZ 65536 |
|
#endif |
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Line 385 typedef unsigned char t_8_bits;
|
Line 416 typedef unsigned char t_8_bits;
|
# endif |
# endif |
|
|
# ifndef MAIN_RPL |
# ifndef MAIN_RPL |
extern jmp_buf contexte; |
extern jmp_buf contexte_ecriture; |
|
extern jmp_buf contexte_impression; |
extern jmp_buf contexte_initial; |
extern jmp_buf contexte_initial; |
extern jmp_buf contexte_processus; |
extern jmp_buf contexte_processus; |
extern jmp_buf contexte_thread; |
extern jmp_buf contexte_thread; |
Line 406 typedef unsigned char t_8_bits;
|
Line 438 typedef unsigned char t_8_bits;
|
* |
* |
# endif |
# endif |
semaphore_gestionnaires_signaux; |
semaphore_gestionnaires_signaux; |
|
|
|
extern volatile int routine_recursive; |
# else |
# else |
jmp_buf contexte; |
jmp_buf contexte_ecriture; |
|
jmp_buf contexte_impression; |
jmp_buf contexte_initial; |
jmp_buf contexte_initial; |
jmp_buf contexte_processus; |
jmp_buf contexte_processus; |
jmp_buf contexte_thread; |
jmp_buf contexte_thread; |
Line 422 typedef unsigned char t_8_bits;
|
Line 457 typedef unsigned char t_8_bits;
|
|
|
pthread_mutex_t mutex_liste_threads = |
pthread_mutex_t mutex_liste_threads = |
PTHREAD_MUTEX_INITIALIZER; |
PTHREAD_MUTEX_INITIALIZER; |
pthread_mutex_t mutex_gestiionnaires_signaux = |
pthread_mutex_t mutex_gestionnaires_signaux = |
PTHREAD_MUTEX_INITIALIZER; |
PTHREAD_MUTEX_INITIALIZER; |
pthread_mutex_t mutex_gestionnaires_signaux_atomique = |
pthread_mutex_t mutex_gestionnaires_signaux_atomique = |
PTHREAD_MUTEX_INITIALIZER; |
PTHREAD_MUTEX_INITIALIZER; |
Line 431 typedef unsigned char t_8_bits;
|
Line 466 typedef unsigned char t_8_bits;
|
* |
* |
# endif |
# endif |
semaphore_gestionnaires_signaux; |
semaphore_gestionnaires_signaux; |
|
|
|
volatile int routine_recursive; |
# endif |
# endif |
#endif |
#endif |
|
|
#ifdef SEMAPHORES_NOMMES |
#ifdef SEMAPHORES_NOMMES |
enum t_semaphore { sem_liste_threads = 0, |
#define SEM_FORK 0 |
sem_gestionnaires_signaux = 1, |
#define SEM_QUEUE 1 |
sem_gestionnaires_signaux_atomique = 2, |
#define SEM_SIGNAUX 2 |
sem_fork = 3 }; |
sem_t *sem_init2(unsigned int valeur, pid_t pid, int ordre); |
|
sem_t *sem_init3(unsigned int valeur, pid_t pid, pthread_t tid, int ordre); |
sem_t *sem_init2(unsigned int valeur, enum t_semaphore semaphore); |
int sem_destroy2(sem_t *semaphore_p, pid_t pid, int ordre); |
int sem_destroy2(sem_t *semaphore_p, enum t_semaphore semaphore); |
int sem_destroy3(sem_t *semaphore_p, pid_t pid, pthread_t tid, int ordre); |
int sem_getvalue2(sem_t *semaphore, int *valeur); |
int sem_getvalue2(sem_t *semaphore, int *valeur); |
|
sem_t *sem_open2(pid_t pid, int ordre); |
|
|
|
// Le mutex est là uniquement pour pouvoir émuler le comportement |
|
// de sem_getvalue() sur un système comme MacOS X qui ne possède pas |
|
// cette fonction. |
|
|
#define sem_getvalue(semaphore, value) sem_getvalue2(semaphore, value) |
#define sem_getvalue(semaphore, value) sem_getvalue2(semaphore, value) |
#define sem_post(semaphore) \ |
#define sem_post(semaphore) \ |
Line 474 int sem_getvalue2(sem_t *semaphore, int
|
Line 516 int sem_getvalue2(sem_t *semaphore, int
|
#define ufprintf(flux, ...) transliterated_fprintf(NULL, \ |
#define ufprintf(flux, ...) transliterated_fprintf(NULL, \ |
flux, __VA_ARGS__) |
flux, __VA_ARGS__) |
|
|
// Tous les messages pour DISP, INPUT et les E/S par readline sont sur stderr. |
|
// Cela évite aux messages envoyés par les gestionnaires de signaux d'être |
|
// indéfiniment bloqués. |
|
|
|
#ifdef SunOS |
#ifdef SunOS |
# define fopen(...) ({ FILE *desc; \ |
# define fopen(...) ({ FILE *desc; \ |
while((desc = fopen(__VA_ARGS__)) == NULL) \ |
while((desc = fopen(__VA_ARGS__)) == NULL) \ |
Line 1801 typedef struct processus
|
Line 1839 typedef struct processus
|
pthread_t thread_fusible; |
pthread_t thread_fusible; |
pthread_t thread_surveille_par_fusible; |
pthread_t thread_surveille_par_fusible; |
|
|
# 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 |
|
# endif |
|
|
|
volatile int pointeur_signal_ecriture; |
volatile int pointeur_signal_ecriture; |
volatile int pointeur_signal_lecture; |
volatile int pointeur_signal_lecture; |
volatile enum signaux_rpl signaux_en_queue[LONGUEUR_QUEUE_SIGNAUX]; |
volatile enum signaux_rpl signaux_en_queue[LONGUEUR_QUEUE_SIGNAUX]; |
Line 2035 typedef struct processus
|
Line 2059 typedef struct processus
|
|
|
/* Traitement des erreurs */ |
/* Traitement des erreurs */ |
|
|
unsigned int compteur_violation_d_acces; |
|
unsigned int erreur_compilation; |
unsigned int erreur_compilation; |
unsigned int erreur_execution; |
unsigned int erreur_execution; |
unsigned int erreur_systeme; |
unsigned int erreur_systeme; |
Line 2163 typedef struct processus
|
Line 2186 typedef struct processus
|
pthread_mutex_t mutex_allocation; |
pthread_mutex_t mutex_allocation; |
|
|
// Mutex autorisant les fork() |
// Mutex autorisant les fork() |
pthread_mutex_t mutex_fork; |
sem_t |
|
# ifdef SEMAPHORES_NOMMES |
|
* |
|
# endif |
|
semaphore_fork; |
|
|
/* Mutexes */ |
/* Mutexes */ |
|
|
Line 2883 void interruption2(int signal);
|
Line 2910 void interruption2(int signal);
|
void interruption3(int signal); |
void interruption3(int signal); |
void interruption4(int signal); |
void interruption4(int signal); |
void interruption5(int signal); |
void interruption5(int signal); |
|
void interruption_depassement_pile(int urgence, stackoverflow_context_t scp); |
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 2916 void retrait_thread(struct_processus *s_
|
Line 2944 void retrait_thread(struct_processus *s_
|
void retrait_thread_surveillance(struct_processus *s_etat_processus, |
void retrait_thread_surveillance(struct_processus *s_etat_processus, |
struct_descripteur_thread *s_argument_thread); |
struct_descripteur_thread *s_argument_thread); |
void rplcore(struct_processus *s_etat_processus); |
void rplcore(struct_processus *s_etat_processus); |
|
#endif |
|
|
void scrutation_injection(struct_processus *s_etat_processus); |
void scrutation_injection(struct_processus *s_etat_processus); |
|
|
|
#ifndef RPLARGS |
void scrutation_interruptions(struct_processus *s_etat_processus); |
void scrutation_interruptions(struct_processus *s_etat_processus); |
void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau); |
void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau); |
void *surveillance_processus(void *argument); |
void *surveillance_processus(void *argument); |
Line 3043 unsigned char *compactage(unsigned char
|
Line 3075 unsigned char *compactage(unsigned char
|
unsigned char *conversion_majuscule(unsigned char *chaine); |
unsigned char *conversion_majuscule(unsigned char *chaine); |
unsigned char *creation_nom_fichier(struct_processus *s_etat_processus, |
unsigned char *creation_nom_fichier(struct_processus *s_etat_processus, |
unsigned char *chemin); |
unsigned char *chemin); |
|
unsigned char *date_compilation(); |
unsigned char *extraction_chaine(unsigned char *chaine, unsigned long i, |
unsigned char *extraction_chaine(unsigned char *chaine, unsigned long i, |
unsigned long j); |
unsigned long j); |
unsigned char *formateur(struct_processus *s_etat_processus, long offset, |
unsigned char *formateur(struct_processus *s_etat_processus, long offset, |
Line 3171 ssize_t write_atomic(struct_processus *s
|
Line 3204 ssize_t write_atomic(struct_processus *s
|
*/ |
*/ |
|
|
int alsprintf(unsigned char **strp, const char *fmt, ...); |
int alsprintf(unsigned char **strp, const char *fmt, ...); |
|
int interruption_violation_access(void *adresse_fautive, int gravite); |
|
#ifndef RPLARGS |
int liste_variables(struct_processus *s_etat_processus, |
int liste_variables(struct_processus *s_etat_processus, |
struct_tableau_variables *tableau, int position, |
struct_tableau_variables *tableau, int position, |
struct_arbre_variables *l_element_courant); |
struct_arbre_variables *l_element_courant); |
int nombre_variables(struct_processus *s_etat_processus, |
int nombre_variables(struct_processus *s_etat_processus, |
struct_arbre_variables *l_element_courant); |
struct_arbre_variables *l_element_courant); |
|
#endif |
int tex_fprintf(struct_processus *s_etat_processus, |
int tex_fprintf(struct_processus *s_etat_processus, |
file *flux, const char *format, ...); |
file *flux, const char *format, ...); |
int transliterated_fprintf(struct_processus *s_etat_processus, file *flux, |
int transliterated_fprintf(struct_processus *s_etat_processus, file *flux, |
Line 3257 struct_descripteur_fichier *descripteur_
|
Line 3293 struct_descripteur_fichier *descripteur_
|
struct_objet *copie_objet(struct_processus *s_etat_processus, |
struct_objet *copie_objet(struct_processus *s_etat_processus, |
struct_objet *s_objet, unsigned char type); |
struct_objet *s_objet, unsigned char type); |
|
|
#ifndef RPLARGS |
|
struct_objet *allocation(struct_processus *s_etat_processus, enum t_type type); |
struct_objet *allocation(struct_processus *s_etat_processus, enum t_type type); |
|
#ifndef RPLARGS |
struct_objet *formateur_date(struct_processus *s_etat_processus, |
struct_objet *formateur_date(struct_processus *s_etat_processus, |
struct timeval *temps); |
struct timeval *temps); |
struct_objet *lecture_pipe(struct_processus *s_etat_processus, int pipe); |
struct_objet *lecture_pipe(struct_processus *s_etat_processus, int pipe); |