version 1.62, 2010/08/25 16:40:57
|
version 1.75, 2011/01/03 12:08:09
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.18 |
RPL/2 (R) version 4.0.20 |
Copyright (C) 1989-2010 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 98
|
Line 98
|
# include <sys/shm.h> |
# include <sys/shm.h> |
# endif |
# endif |
|
|
# ifndef SEMAPHORES_SYSV |
# ifndef IPCS_SYSV |
# include <semaphore.h> |
# include <semaphore.h> |
# else |
# else |
# include <sys/ipc.h> |
# include <sys/ipc.h> |
Line 214
|
Line 214
|
# define SA_SIGINFO 0 |
# define SA_SIGINFO 0 |
|
|
# ifndef __BROKEN_SIGINFO_ROUTINES__ |
# ifndef __BROKEN_SIGINFO_ROUTINES__ |
# define kill(pid, signal) kill_broken_siginfo(pid, signal) |
|
# define pthread_kill(tid, signal) pthread_kill_broken_siginfo(tid, signal) |
// pthread_kill() est une macro sous OS/2. |
|
# ifdef pthread_kill |
|
# undef pthread_kill |
|
# endif |
|
|
|
# define kill(a, b) kill_broken_siginfo(a, b) |
|
# define pthread_kill(a, b) pthread_kill_broken_siginfo(a, b) |
# endif |
# endif |
|
|
int kill_broken_siginfo(pid_t pid, int signal); |
int kill_broken_siginfo(pid_t pid, int signal); |
int pthread_kill_broken_siginfo(pthread_t tid, int signal); |
int pthread_kill_broken_siginfo(pthread_t tid, int signal); |
pid_t origine_signal(int signal); |
pid_t origine_signal(int signal); |
|
int queue_in(pid_t pid, int signal); |
#else |
#else |
# define SIGHANDLER_ARGS int signal, siginfo_t *siginfo, void *context |
# define SIGHANDLER_ARGS int signal, siginfo_t *siginfo, void *context |
#endif |
#endif |
Line 232
|
Line 239
|
# define PTHREAD_SCOPE_SYSTEM 0 |
# define PTHREAD_SCOPE_SYSTEM 0 |
#endif |
#endif |
|
|
#if ! defined(UNION_SEMUN) && defined(SEMAPHORES_SYSV) |
#ifdef OS2 |
|
# define readline(s) readline_wrapper(s) |
|
unsigned char *readline_wrapper(unsigned char *s); |
|
#endif |
|
|
|
#if ! defined(UNION_SEMUN) && defined(IPCS_SYSV) |
union semun |
union semun |
{ |
{ |
int val; |
int val; |
Line 249 union semun
|
Line 261 union semun
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
#ifdef SEMAPHORES_SYSV |
#ifdef IPCS_SYSV |
# define sem_init(a, b, c) sem_init_SysV(a, b, c) |
# define sem_init(a, b, c) sem_init_SysV(a, b, c) |
# define sem_destroy(a) sem_destroy_SysV(a) |
# define sem_destroy(a) sem_destroy_SysV(a) |
# define sem_wait(a) sem_wait_SysV(a) |
# define sem_wait(a) sem_wait_SysV(a) |
Line 490 int sem_getvalue2(sem_t *semaphore, int
|
Line 502 int sem_getvalue2(sem_t *semaphore, int
|
# define fopen(...) ({ FILE *desc; \ |
# define fopen(...) ({ FILE *desc; \ |
while((desc = fopen(__VA_ARGS__)) == NULL) \ |
while((desc = fopen(__VA_ARGS__)) == NULL) \ |
{ if ((errno != EINTR) && (errno != 0)) break; } desc; }) |
{ if ((errno != EINTR) && (errno != 0)) break; } desc; }) |
|
# define freopen(...) ({ FILE *desc; \ |
|
while((desc = freopen(__VA_ARGS__)) == NULL) \ |
|
{ if ((errno != EINTR) && (errno != 0)) break; } desc; }) |
# define fclose(...) ({ int ios; \ |
# define fclose(...) ({ int ios; \ |
while((ios = fclose(__VA_ARGS__)) != 0) \ |
while((ios = fclose(__VA_ARGS__)) != 0) \ |
{ if ((errno != EINTR) && (errno != 0)) break; } ios; }) |
{ if ((errno != EINTR) && (errno != 0)) break; } ios; }) |
Line 930 pid_t debug_fork();
|
Line 945 pid_t debug_fork();
|
# undef MAX |
# undef MAX |
#endif |
#endif |
|
|
#define ADR __RPL_ADR |
#define ADR __RPL_ADR |
#define ALG __RPL_ALG |
#define ALG __RPL_ALG |
#define BIN __RPL_BIN |
#define BIN __RPL_BIN |
#define CHN __RPL_CHN |
#define CHN __RPL_CHN |
#define CPL __RPL_CPL |
#define CPL __RPL_CPL |
Line 950 pid_t debug_fork();
|
Line 965 pid_t debug_fork();
|
#define RPN __RPL_RPN |
#define RPN __RPL_RPN |
#define SCK __RPL_SCK |
#define SCK __RPL_SCK |
#define SLB __RPL_SLB |
#define SLB __RPL_SLB |
#define SPH __RPL_SPH |
#define SPH __RPL_SPH |
#define SQL __RPL_SQL |
#define SQL __RPL_SQL |
#define TBL __RPL_TBL |
#define TBL __RPL_TBL |
#define VCX __RPL_VCX |
#define VCX __RPL_VCX |
#define VIN __RPL_VIN |
#define VIN __RPL_VIN |
#define VRL __RPL_VRL |
#define VRL __RPL_VRL |
Line 1344 typedef struct descripteur_thread
|
Line 1359 typedef struct descripteur_thread
|
pthread_t thread_pere; |
pthread_t thread_pere; |
|
|
pthread_mutex_t mutex; |
pthread_mutex_t mutex; |
|
pthread_mutex_t mutex_nombre_references; |
|
|
volatile logical1 thread_actif; |
volatile logical1 thread_actif; |
|
|
Line 1691 typedef struct processus
|
Line 1707 typedef struct processus
|
unsigned char mode_interactif; /*Y/N*/ |
unsigned char mode_interactif; /*Y/N*/ |
unsigned char mode_evaluation_expression; /*Y/N*/ |
unsigned char mode_evaluation_expression; /*Y/N*/ |
unsigned char traitement_cycle_exit; /*N/E/C*/ |
unsigned char traitement_cycle_exit; /*N/E/C*/ |
|
unsigned char recherche_type; /*Y/N*/ |
|
|
unsigned long position_courante; |
unsigned long position_courante; |
unsigned long longueur_definitions_chainees; |
unsigned long longueur_definitions_chainees; |
Line 1744 typedef struct processus
|
Line 1761 typedef struct processus
|
|
|
# if !defined(Cygwin) |
# if !defined(Cygwin) |
# if !(OpenBSD) |
# if !(OpenBSD) |
stack_t pile_signal; |
stack_t pile_signal; |
# else |
# else |
# ifdef SA_ONSTACK |
# ifdef SA_ONSTACK |
# undef SA_ONSTACK |
# undef SA_ONSTACK |
Line 1752 typedef struct processus
|
Line 1769 typedef struct processus
|
# define SA_ONSTACK 0 |
# define SA_ONSTACK 0 |
# endif |
# endif |
# else |
# else |
# define SA_ONSTACK 0 |
# define SA_ONSTACK 0 |
# define RTLD_LOCAL 0 |
# define RTLD_LOCAL 0 |
# endif |
# endif |
|
|
/* Contextes */ |
/* Contextes */ |
Line 2027 typedef struct processus
|
Line 2044 typedef struct processus
|
volatile sig_atomic_t var_volatile_traitement_retarde_stop; |
volatile sig_atomic_t var_volatile_traitement_retarde_stop; |
volatile sig_atomic_t var_volatile_traitement_sigint; |
volatile sig_atomic_t var_volatile_traitement_sigint; |
|
|
|
volatile sig_atomic_t var_volatile_processus_racine; |
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; |
|
|