version 1.45, 2010/06/24 10:10:46
|
version 1.56, 2010/08/15 14:46:25
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.17 |
RPL/2 (R) version 4.0.18 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 31
|
Line 31
|
# define _DARWIN_C_SOURCE |
# define _DARWIN_C_SOURCE |
#endif |
#endif |
|
|
|
#ifdef OpenBSD |
|
# define _BSD_SOURCE |
|
#endif |
|
|
|
#ifdef OS2 |
|
# define _BSD_SOURCE |
|
# define _XOPEN_SOURCE 600 |
|
|
|
# include <types.h> |
|
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) |
|
#else |
|
# undef _BROKEN_SIGINFO |
|
#endif |
|
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Line 49
|
Line 70
|
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
# include <sys/mman.h> |
# include <sys/mman.h> |
|
# include <sys/time.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> |
# include <sys/stat.h> |
# include <sys/stat.h> |
# include <sys/time.h> |
|
# include <sys/timeb.h> |
# include <sys/timeb.h> |
# include <sys/types.h> |
# include <sys/types.h> |
# include <sys/un.h> |
# include <sys/un.h> |
Line 66
|
Line 87
|
# include <dlfcn.h> |
# include <dlfcn.h> |
# include <fcntl.h> |
# include <fcntl.h> |
# include <pthread.h> |
# include <pthread.h> |
|
|
|
# ifdef OS2 |
|
# undef pthread_mutexattr_settype |
|
# define pthread_mutexattr_settype(a, b) |
|
# endif |
|
|
# include <pwd.h> |
# include <pwd.h> |
# include <semaphore.h> |
|
|
# ifndef SEMAPHORES_SYSV |
|
# include <semaphore.h> |
|
# else |
|
# ifdef OS2 |
|
# define INCL_DOSSEMAPHORES |
|
# define INCL_DOSMEMMGR |
|
# define INCL_DOSERRORS |
|
# include <os2.h> |
|
|
|
typedef struct _OS2SEM |
|
{ |
|
HMTX hmtx; |
|
HEV hev; |
|
ULONG shared; |
|
ULONG *cnt; |
|
ULONG *nopened; |
|
ULONG allocated; |
|
} sem_t; |
|
# else |
|
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 <setjmp.h> |
# include <setjmp.h> |
# include <signal.h> |
# include <signal.h> |
# include <termios.h> |
# include <termios.h> |
Line 120
|
Line 182
|
|
|
#include "librplprototypes.h" |
#include "librplprototypes.h" |
|
|
|
#ifndef UNIX_PATH_MAX |
|
struct sockaddr_un sizecheck; |
|
# define UNIX_PATH_MAX sizeof(sizecheck.sun_path) |
|
#endif |
|
|
|
|
|
/* |
|
================================================================================ |
|
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 |
SIGNAUX |
Line 127
|
Line 214
|
*/ |
*/ |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
# ifdef Darwin |
# if defined(Darwin) || defined(OpenBSD) |
# define SIGPOLL SIGINFO |
# define SIGPOLL SIGINFO |
# endif |
# endif |
|
|
Line 190 typedef FILE file;
|
Line 277 typedef FILE file;
|
typedef unsigned char t_8_bits; |
typedef unsigned char t_8_bits; |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
# include "rpltypes.conv.h" |
# include "rpltypes-conv.h" |
#else |
#else |
# include "rpltypes.h" |
# include "rpltypes.h" |
#endif |
#endif |
Line 362 int sem_getvalue2(sem_t *semaphore, int
|
Line 449 int sem_getvalue2(sem_t *semaphore, int
|
|
|
// 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 |
|
|
#if 1 |
#ifdef __GNUC__ |
# define abs(i) ({ typeof(i) _i; _i = (i); (_i >= 0) ? _i : -_i; }) |
# 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 |
// 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 |
// comme Sun Studio. Dans le cas où typeof() n'existe pas, il est possible |
Line 746 pid_t debug_fork();
|
Line 833 pid_t debug_fork();
|
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
|
#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, |
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, REL, RPN, SCK, |
SLB, SPH, SQL, TBL, VCX, VIN, VRL }; |
SLB, SPH, SQL, TBL, VCX, VIN, VRL }; |
Line 1213 typedef struct liste_pile_systeme
|
Line 1336 typedef struct liste_pile_systeme
|
|
|
/* |
/* |
type clôture : |
type clôture : |
C CASE : END termine un test SELECT/CASE/THEN/END/DEFAULT/END. |
C SELECT : END termine un test SELECT/DEFAULT/END. |
D DO : END termine une boucle DO/UNTIL/END. |
D DO : END termine une boucle DO/UNTIL/END. |
I IF : END termine un test IF/THEN (ELSE)/END. |
I IF : END termine un test IF/THEN (ELSE)/END. |
J IFERR : END termine un test IFERR/THEN (ELSE)/END. |
J IFERR : END termine un test IFERR/THEN (ELSE)/END. |
W WHILE : END termine une boucle WHILE/REPEAT/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. |
F FOR : NEXT ou STEP termine une boucle avec compteur. |
L LOOP : boucle utilisé dans le traitement de l'instruction RETURN. |
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 |
Elle correspond à une boucle FOR ou START mais sans son |
initialisation. |
initialisation. |
*/ |
*/ |
|
|
unsigned long adresse_retour; |
unsigned long adresse_retour; |
unsigned long niveau_courant; |
unsigned long niveau_courant; |
|
struct_objet *pointeur_adresse_retour; |
} struct_liste_pile_systeme; |
} struct_liste_pile_systeme; |
#endif |
#endif |
|
|
Line 1528 typedef struct processus
|
Line 1653 typedef struct processus
|
pthread_t thread_fusible; |
pthread_t thread_fusible; |
pthread_t thread_surveille_par_fusible; |
pthread_t thread_surveille_par_fusible; |
|
|
# ifndef Cygwin |
# if !defined(Cygwin) |
|
# if !(OpenBSD) |
stack_t pile_signal; |
stack_t pile_signal; |
|
# else |
|
# ifdef SA_ONSTACK |
|
# undef SA_ONSTACK |
|
# endif |
|
# define SA_ONSTACK 0 |
|
# endif |
# else |
# else |
# define SA_ONSTACK 0 |
# define SA_ONSTACK 0 |
# define RTLD_LOCAL 0 |
# define RTLD_LOCAL 0 |
Line 1791 typedef struct processus
|
Line 1923 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 */ |
|
unsigned char traitement_at_poke; /* Y/N */ |
|
|
struct_objet *at_exit; |
struct_objet *at_exit; |
|
struct_objet *at_poke; |
|
|
/* Variables volatiles */ |
/* Variables volatiles */ |
|
|
Line 1989 void instruction_asr(struct_processus *s
|
Line 2123 void instruction_asr(struct_processus *s
|
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_atexit(struct_processus *s_etat_processus); |
|
void instruction_atpoke(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); |
|
|
void instruction_b_vers_r(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_backspace(struct_processus *s_etat_processus); |
|
void instruction_backtrace(struct_processus *s_etat_processus); |
void instruction_beep(struct_processus *s_etat_processus); |
void instruction_beep(struct_processus *s_etat_processus); |
void instruction_bessel(struct_processus *s_etat_processus); |
void instruction_bessel(struct_processus *s_etat_processus); |
void instruction_bin(struct_processus *s_etat_processus); |
void instruction_bin(struct_processus *s_etat_processus); |
Line 2009 void instruction_cllcd(struct_processus
|
Line 2145 void instruction_cllcd(struct_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_clratexit(struct_processus *s_etat_processus); |
|
void instruction_clratpoke(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); |