version 1.24, 2010/04/21 13:45:50
|
version 1.34, 2010/05/13 19:09:18
|
Line 24
|
Line 24
|
#define INCLUSION_RPL |
#define INCLUSION_RPL |
|
|
#define _GNU_SOURCE |
#define _GNU_SOURCE |
|
#define _POSIX_C_SOURCE 200112L |
#define _REENTRANT |
#define _REENTRANT |
|
|
|
#ifdef Darwin |
|
# define SIGPOLL SIGIO |
|
# define _DARWIN_C_SOURCE |
|
#endif |
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Line 43
|
Line 48
|
#include <stdarg.h> |
#include <stdarg.h> |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
|
# include <sys/mman.h> |
# include <sys/resource.h> |
# include <sys/resource.h> |
# include <sys/select.h> |
# include <sys/select.h> |
# include <sys/socket.h> |
# include <sys/socket.h> |
Line 112
|
Line 118
|
# define postgresqlclose(arg) |
# define postgresqlclose(arg) |
#endif |
#endif |
|
|
#ifdef LIBRPL |
#include "librplprototypes.h" |
# include "librplprototypes.h" |
|
#endif |
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Line 123
|
Line 127
|
*/ |
*/ |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
|
// Arrêt par STOP |
# define SIGFSTOP SIGUSR1 |
# define SIGFSTOP SIGUSR1 |
|
// Démarrage d'un processus fils |
# define SIGSTART SIGUSR2 |
# define SIGSTART SIGUSR2 |
|
// Injection de données |
# define SIGINJECT SIGQUIT |
# define SIGINJECT SIGQUIT |
|
// Arrêt général |
# define SIGABORT SIGPROF |
# define SIGABORT SIGPROF |
|
// Arrêt d'un processus fils depuis autre chose que STOP |
|
# define SIGFABORT SIGPOLL |
# define d_NOMBRE_INTERRUPTIONS 64 |
# define d_NOMBRE_INTERRUPTIONS 64 |
#endif |
#endif |
|
|
Line 374 int sem_getvalue2(sem_t *semaphore, int
|
Line 384 int sem_getvalue2(sem_t *semaphore, int
|
|
|
#ifdef __GLIBC__ |
#ifdef __GLIBC__ |
#include <execinfo.h> |
#include <execinfo.h> |
|
#define __BACKTRACE |
#define BACKTRACE(n) \ |
#define BACKTRACE(n) \ |
do \ |
do \ |
{ \ |
{ \ |
Line 494 void debug_memoire_retrait(void *ptr);
|
Line 505 void debug_memoire_retrait(void *ptr);
|
#define d_absence_erreur ((logical1) d_faux) |
#define d_absence_erreur ((logical1) d_faux) |
#define d_erreur ((logical1) d_vrai) |
#define d_erreur ((logical1) d_vrai) |
|
|
#define d_code_fin_chaine '\0' |
#define d_code_fin_chaine '\0' |
#define d_code_espace ' ' |
#define d_code_espace ' ' |
#define d_code_retour_chariot '\n' |
#define d_code_retour_chariot '\n' |
#define d_code_tabulation '\t' |
#define d_code_tabulation '\t' |
|
#define d_longueur_maximale_instruction 16 |
|
|
#define d_INT "integer" |
#define d_INT "integer" |
#define d_REL "real" |
#define d_REL "real" |
Line 1762 typedef struct processus
|
Line 1774 typedef struct processus
|
unsigned char traitement_interruption; /* Y/N */ |
unsigned char traitement_interruption; /* Y/N */ |
unsigned char traitement_interruptible; /* Y/N */ |
unsigned char traitement_interruptible; /* Y/N */ |
|
|
|
struct_objet *at_exit; |
|
|
/* Variables volatiles */ |
/* Variables volatiles */ |
|
|
volatile sig_atomic_t var_volatile_alarme; |
volatile sig_atomic_t var_volatile_alarme; |
Line 1775 typedef struct processus
|
Line 1789 typedef struct processus
|
volatile sig_atomic_t var_volatile_processus_pere; |
volatile sig_atomic_t var_volatile_processus_pere; |
volatile sig_atomic_t var_volatile_recursivite; |
volatile sig_atomic_t var_volatile_recursivite; |
|
|
|
volatile sig_atomic_t arret_depuis_abort; |
|
|
volatile int var_volatile_exception_gsl; |
volatile int var_volatile_exception_gsl; |
|
|
/* Autres */ |
/* Autres */ |
Line 1845 typedef struct processus
|
Line 1861 typedef struct processus
|
unsigned long taille_pile_objets; |
unsigned long taille_pile_objets; |
struct_objet *pile_objets; |
struct_objet *pile_objets; |
|
|
# define TAILLE_CACHE 1024 |
# define TAILLE_CACHE 16384 |
|
|
unsigned long *objets_adr[TAILLE_CACHE]; |
unsigned long *objets_adr[TAILLE_CACHE]; |
int pointeur_adr; |
int pointeur_adr; |
Line 1949 void instruction_asl(struct_processus *s
|
Line 1965 void instruction_asl(struct_processus *s
|
void instruction_asr(struct_processus *s_etat_processus); |
void instruction_asr(struct_processus *s_etat_processus); |
void instruction_atan(struct_processus *s_etat_processus); |
void instruction_atan(struct_processus *s_etat_processus); |
void instruction_atanh(struct_processus *s_etat_processus); |
void instruction_atanh(struct_processus *s_etat_processus); |
|
void instruction_atexit(struct_processus *s_etat_processus); |
void instruction_autoscale(struct_processus *s_etat_processus); |
void instruction_autoscale(struct_processus *s_etat_processus); |
void instruction_axes(struct_processus *s_etat_processus); |
void instruction_axes(struct_processus *s_etat_processus); |
|
|
Line 1968 void instruction_clear(struct_processus
|
Line 1985 void instruction_clear(struct_processus
|
void instruction_cllcd(struct_processus *s_etat_processus); |
void instruction_cllcd(struct_processus *s_etat_processus); |
void instruction_clmf(struct_processus *s_etat_processus); |
void instruction_clmf(struct_processus *s_etat_processus); |
void instruction_close(struct_processus *s_etat_processus); |
void instruction_close(struct_processus *s_etat_processus); |
|
void instruction_clratexit(struct_processus *s_etat_processus); |
void instruction_clrcntxt(struct_processus *s_etat_processus); |
void instruction_clrcntxt(struct_processus *s_etat_processus); |
void instruction_clrerr(struct_processus *s_etat_processus); |
void instruction_clrerr(struct_processus *s_etat_processus); |
void instruction_clrfuse(struct_processus *s_etat_processus); |
void instruction_clrfuse(struct_processus *s_etat_processus); |
Line 2167 void instruction_maxs(struct_processus *
|
Line 2185 void instruction_maxs(struct_processus *
|
void instruction_mclrin(struct_processus *s_etat_processus); |
void instruction_mclrin(struct_processus *s_etat_processus); |
void instruction_mean(struct_processus *s_etat_processus); |
void instruction_mean(struct_processus *s_etat_processus); |
void instruction_mem(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_min(struct_processus *s_etat_processus); |
void instruction_mins(struct_processus *s_etat_processus); |
void instruction_mins(struct_processus *s_etat_processus); |
void instruction_mod(struct_processus *s_etat_processus); |
void instruction_mod(struct_processus *s_etat_processus); |
Line 2221 void instruction_print(struct_processus
|
Line 2241 void instruction_print(struct_processus
|
void instruction_private(struct_processus *s_etat_processus); |
void instruction_private(struct_processus *s_etat_processus); |
void instruction_prlcd(struct_processus *s_etat_processus); |
void instruction_prlcd(struct_processus *s_etat_processus); |
void instruction_prmd(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_prompt(struct_processus *s_etat_processus); |
void instruction_protect(struct_processus *s_etat_processus); |
void instruction_protect(struct_processus *s_etat_processus); |
void instruction_prst(struct_processus *s_etat_processus); |
void instruction_prst(struct_processus *s_etat_processus); |
Line 2454 void *allocation_maillon(struct_processu
|
Line 2475 void *allocation_maillon(struct_processu
|
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
void analyse(struct_processus *s_etat_processus, void (*fonction)()); |
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); |
unsigned char *candidat); |
void appel_gnuplot(struct_processus *s_etat_processus, |
void appel_gnuplot(struct_processus *s_etat_processus, |
unsigned char persistance); |
unsigned char persistance); |
Line 2467 void conversion_element_tex(unsigned cha
|
Line 2488 void conversion_element_tex(unsigned cha
|
void conversion_format(struct_processus *s_etat_processus, |
void conversion_format(struct_processus *s_etat_processus, |
unsigned char *chaine); |
unsigned char *chaine); |
void conversion_hms_vers_decimal(real8 *angle); |
void conversion_hms_vers_decimal(real8 *angle); |
|
void conversion_majuscule_limitee(unsigned char *chaine_entree, |
|
unsigned char *chaine_sortie, unsigned long longueur); |
void conversion_radians_vers_degres(real8 *angle); |
void conversion_radians_vers_degres(real8 *angle); |
void correction_formateur_tex(struct_processus *s_etat_processus, |
void correction_formateur_tex(struct_processus *s_etat_processus, |
unsigned char **ligne); |
unsigned char **ligne); |
Line 2564 void retrait_thread(struct_processus *s_
|
Line 2587 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); |
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 sf(struct_processus *s_etat_processus, unsigned char indice_drapeau); |
void *surveillance_processus(void *argument); |
void *surveillance_processus(void *argument); |
void swap(void *variable_1, void *variable_2, unsigned long taille_octets); |
void swap(void *variable_1, void *variable_2, unsigned long taille_octets); |
Line 2784 logical1 test_fonction(unsigned char *ch
|
Line 2807 logical1 test_fonction(unsigned char *ch
|
*/ |
*/ |
|
|
#ifndef RPLARGS |
#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); |
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); |
int fd, void *buf, size_t count); |
#endif |
#endif |
|
|
Line 3176 void zgelsy_(integer4 *m, integer4 *n, i
|
Line 3199 void zgelsy_(integer4 *m, integer4 *n, i
|
* drapeau depuis une bibliothèque). |
* drapeau depuis une bibliothèque). |
*/ |
*/ |
|
|
inline int test_arret(struct_processus *s_etat_processus); |
int test_arret(struct_processus *s_etat_processus); |
|
|
#endif |
#endif |
|
|