version 1.258, 2015/01/27 14:18:09
|
version 1.280, 2015/10/26 15:14:19
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.20 |
RPL/2 (R) version 4.1.23 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2015 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 212
|
Line 216
|
# 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 228
|
Line 231
|
# include <ieeefp.h> |
# include <ieeefp.h> |
#endif |
#endif |
|
|
// Définition spécifique à Hurd |
// Définition spécifique à Hurd |
#ifndef PIPE_BUF |
#ifndef PIPE_BUF |
# define fpathconf (".", _PC_PIPE_BUF) |
# define fpathconf (".", _PC_PIPE_BUF) |
#endif |
#endif |
Line 266
|
Line 269
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Bugs spécifiques |
Bugs spécifiques |
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
// Néant |
// Néant |
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Line 292 enum signaux_rpl
|
Line 295 enum signaux_rpl
|
rpl_signull = 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. |
rpl_sigcont, // Signal de redémarrage d'un processus arrêté par |
rpl_sigcont, // Signal de redémarrage d'un processus arrêté par |
// SUSPEND |
// SUSPEND |
rpl_sigstop, // Signal d'arrêt envoyé par l'instruction STOP ou |
rpl_sigstop, // Signal d'arrêt envoyé par l'instruction STOP ou |
// FUSE. (FSTOP) |
// FUSE. (FSTOP) |
rpl_sigabort, // Signal envoyé par l'instruction ABORT (à regrouper |
rpl_sigabort, // Signal envoyé par l'instruction ABORT (à regrouper |
// avec FABORT) |
// avec FABORT) |
rpl_sigurg, // Signal d'arrêt urgent |
rpl_sigurg, // Signal d'arrêt urgent |
rpl_siginject, // Signal indiquant la présence d'une donnée à lire |
rpl_siginject, // Signal indiquant la présence d'une donnée à lire |
// envoyée depuis le père |
// envoyée depuis le père |
rpl_sigalrm, // Signal d'alarme (erreur système) depuis un fils |
rpl_sigalrm, // Signal d'alarme (erreur système) depuis un fils |
rpl_sighup, |
rpl_sighup, |
rpl_sigtstp, |
rpl_sigtstp, |
rpl_sigexcept, |
rpl_sigexcept, |
Line 311 enum signaux_rpl
|
Line 314 enum signaux_rpl
|
|
|
#define LONGUEUR_QUEUE_SIGNAUX 1024 |
#define LONGUEUR_QUEUE_SIGNAUX 1024 |
|
|
// Une structure s_queue_signaux est créée par processus (et non par thread). |
// Une structure s_queue_signaux est créée par processus (et non par thread). |
// 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 |
#ifndef RPLARGS |
typedef struct queue_signaux |
typedef struct queue_signaux |
Line 323 typedef struct queue_signaux
|
Line 326 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 368 union semun
|
Line 372 union semun
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
SÉMAPHORES |
SÉMAPHORES |
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
Line 437 union semun
|
Line 441 union semun
|
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
|
|
// Signaux utilisés par défaut : |
// Signaux utilisés par défaut : |
// SIGINT |
// SIGINT |
// SIGTSTP |
// SIGTSTP |
// SIGCONT |
// SIGCONT |
// SIGPIPE |
// SIGPIPE |
// SIGUSR1 et SIGUSR2 sont utilisé par libsigsegv. |
// SIGUSR1 et SIGUSR2 sont utilisé par libsigsegv. |
// SIGHUP |
// SIGHUP |
// SIGALRM |
// SIGALRM |
|
|
Line 454 union semun
|
Line 458 union semun
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
Granularité temporelle |
Granularité temporelle |
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
Line 511 union semun
|
Line 515 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 534 union semun
|
Line 537 union semun
|
sem_t *sem_open2(pid_t pid, int ordre); |
sem_t *sem_open2(pid_t pid, int ordre); |
#endif |
#endif |
|
|
// Le mutex est là uniquement pour pouvoir émuler le comportement |
// 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 |
// de sem_getvalue() sur un système comme MacOS X qui ne possède pas |
// cette fonction. |
// cette fonction. |
|
|
#ifdef Darwin |
#ifdef Darwin |
Line 557 union semun
|
Line 560 union semun
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
// Par défaut, tout est redirigé vers stderr sauf indication explicite de |
// Par défaut, tout est redirigé vers stderr sauf indication explicite de |
// stdout. |
// stdout. |
|
|
#define printf(...) transliterated_fprintf(s_etat_processus, \ |
#define printf(...) transliterated_fprintf(s_etat_processus, \ |
Line 587 union semun
|
Line 590 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 |
// 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 |
// système dans le cas où l'on a atteint le nombre maximale de fichiers |
// ouverts. |
// ouverts. |
|
|
#define pipe(descripteurs) \ |
#define pipe(descripteurs) \ |
Line 607 union semun
|
Line 610 union semun
|
erreur; \ |
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__ |
# 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 |
// d'utiliser la macro suivante, mais elle possède un effet de bord dû à |
// d'utiliser la macro suivante, mais elle possède un effet de bord dû à |
// l'évaluation multiple de l'argument. |
// l'évaluation multiple de l'argument. |
#else |
#else |
# define abs(i) (((i) >= 0) ? (i) : (-i)) |
# define abs(i) (((i) >= 0) ? (i) : (-i)) |
#endif |
#endif |
Line 769 pid_t debug_fork();
|
Line 772 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'/" |
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Paramètres du système |
Paramètres du système |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 791 pid_t debug_fork();
|
Line 795 pid_t debug_fork();
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Erreurs système |
Erreurs système |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 817 pid_t debug_fork();
|
Line 821 pid_t debug_fork();
|
#endif |
#endif |
|
|
|
|
// -1 : erreur provoquée par une bibliothèque externe |
// -1 : erreur provoquée par une bibliothèque externe |
#ifndef RPLARGS |
#ifndef RPLARGS |
# define d_es 2000 |
# define d_es 2000 |
# define d_es_allocation_memoire __erreur(2001) |
# define d_es_allocation_memoire __erreur(2001) |
Line 883 pid_t debug_fork();
|
Line 887 pid_t debug_fork();
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Erreurs à l'exécution |
Erreurs à l'exécution |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
// -1 : erreur provoquée par une bibliothèque externe |
// -1 : erreur provoquée par une bibliothèque externe |
#ifndef RPLARGS |
#ifndef RPLARGS |
# define d_ex 0 |
# define d_ex 0 |
# define d_ex_pile_vide __erreur(1) |
# define d_ex_pile_vide __erreur(1) |
Line 1021 pid_t debug_fork();
|
Line 1025 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 1040 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 }; |
|
|
/* |
/* |
ADR : adresse sur 64 bits signés. |
ADR : adresse sur 64 bits signés. |
Adresse d'une définition à interpréter. |
Adresse d'une définition à interpréter. |
|
|
ALG : expression algébrique (struct_liste_chainee *) |
ALG : expression algébrique (struct_liste_chainee *) |
La liste chaînée contient la définition convertie en notation |
La liste chaînée contient la définition convertie en notation |
polonaise inversée. Ce type diffère du type 'RPN' au niveau |
polonaise inversée. Ce type diffère du type 'RPN' au niveau |
du format de sortie (notation algébrique). |
du format de sortie (notation algébrique). |
|
|
BIN : entier binaire sur 64 bits (unsigned integer8 *) |
BIN : entier binaire sur 64 bits (unsigned integer8 *) |
Sans objet. |
Sans objet. |
Line 1060 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1065 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
|
|
FCH : descripteur de fichier (struct_fichier *). |
FCH : descripteur de fichier (struct_fichier *). |
|
|
FCT : déclaration d'une fonction et de son nombre d'arguments |
FCT : déclaration d'une fonction et de son nombre d'arguments |
(struct_fonction *). Ce type n'est nécessaire que dans le |
(struct_fonction *). Ce type n'est nécessaire que dans le |
traitement des types 'ALG' et 'RPN'. |
traitement des types 'ALG' et 'RPN'. |
|
|
INT : entier sur 64 bits (integer*8, integer8 *) |
INT : entier sur 64 bits (integer*8, integer8 *) |
Line 1069 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1074 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Type C/Fortran : integer8 |
Type C/Fortran : integer8 |
|
|
LST : liste (struct_liste_chainee *) |
LST : liste (struct_liste_chainee *) |
Les objets sont enregistrés sous forme de liste chaînée récursive. |
Les objets sont enregistrés sous forme de liste chaînée récursive. |
Cela permet de traiter des tableaux de données hétérogènes de |
Cela permet de traiter des tableaux de données hétérogènes de |
grandes dimensions. Le nombre de dimensions maximal est fixé par |
grandes dimensions. Le nombre de dimensions maximal est fixé par |
la mémoire de la station. |
la mémoire de la station. |
|
|
MCX : matrice de complexes (struct_matrice *) |
MCX : matrice de complexes (struct_matrice *) |
Sans objet. |
Sans objet. |
Line 1096 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1101 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Sans objet. |
Sans objet. |
|
|
RPN : definition (struct_liste_chainee *) |
RPN : definition (struct_liste_chainee *) |
Ce type diffère du type 'ALG' au niveau du format de sortie |
Ce type diffère du type 'ALG' au niveau du format de sortie |
(notation polonaise inversée). |
(notation polonaise inversée). |
|
|
SCK : socket (struct_socket *) |
SCK : socket (struct_socket *) |
|
|
SLB : bibliothèque dynamique partagée (struct_bibliotheque *) |
SLB : bibliothèque dynamique partagée (struct_bibliotheque *) |
Sans objet. |
Sans objet. |
|
|
SPH : sémaphore nommé (struct_semaphore *) |
SPH : sémaphore nommé (struct_semaphore *) |
|
|
SQL : connecteur sur une base de données SQL (struct_connecteur_sql *) |
SQL : connecteur sur une base de données SQL (struct_connecteur_sql *) |
|
|
TBL : tableau multidimensionnel d'objets (struct_tableau *). |
TBL : tableau multidimensionnel d'objets (struct_tableau *). |
|
|
Line 1176 typedef struct rpl_mutex
|
Line 1181 typedef struct rpl_mutex
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structure sémaphore |
Structure sémaphore |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 1208 typedef struct marque
|
Line 1213 typedef struct marque
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structure bibliothèque |
Structure bibliothèque |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 1309 typedef struct connecteur_sql
|
Line 1314 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 1346 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 |
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structure liste chaînee |
Structure liste chaînee |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 1358 typedef struct gestion_signaux
|
Line 1384 typedef struct gestion_signaux
|
unsigned char masque_signaux[d_NOMBRE_SIGNAUX]; |
unsigned char masque_signaux[d_NOMBRE_SIGNAUX]; |
|
|
/* |
/* |
* 'I' : signal ignoré |
* 'I' : signal ignoré |
* 'Q' : signal mis en queue pour un traitement ultérieur |
* 'Q' : signal mis en queue pour un traitement ultérieur |
* 'N' : traitement normal du signal |
* 'N' : traitement normal du signal |
*/ |
*/ |
|
|
Line 1407 typedef struct liste_profilage2
|
Line 1433 typedef struct liste_profilage2
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structure contenant les fichiers graphiques (liste chaînée) |
Structure contenant les fichiers graphiques (liste chaînée) |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 1439 typedef struct nom
|
Line 1465 typedef struct nom
|
{ |
{ |
unsigned char *nom; |
unsigned char *nom; |
logical1 symbole; /* d_vrai/d_faux */ |
logical1 symbole; /* d_vrai/d_faux */ |
// symbole == d_vrai signifie que le nom a été introduit dans un |
// symbole == d_vrai signifie que le nom a été introduit dans un |
// calcul sans les apostrophes. |
// calcul sans les apostrophes. |
} struct_nom; |
} struct_nom; |
|
|
Line 1521 typedef struct liste_pile_systeme
|
Line 1547 typedef struct liste_pile_systeme
|
clause : |
clause : |
I : IF |
I : IF |
R : IFERR |
R : IFERR |
X : IFERR indiquant la présence d'une erreur. |
X : IFERR indiquant la présence d'une erreur. |
T : THEN |
T : THEN |
E : ELSE |
E : ELSE |
Z : traitement en cours de ELSE |
Z : traitement en cours de ELSE |
Line 1530 typedef struct liste_pile_systeme
|
Line 1556 typedef struct liste_pile_systeme
|
W : WHILE |
W : WHILE |
M : WHILE avec une clause fausse. |
M : WHILE avec une clause fausse. |
S : SELECT |
S : SELECT |
K : aucun cas CASE n'a encore été traité. |
K : aucun cas CASE n'a encore été traité. |
C : au moins un cas de SELECT...CASE a été traité. |
C : au moins un cas de SELECT...CASE a été traité. |
Q : traitement en cours d'un cas CASE. |
Q : traitement en cours d'un cas CASE. |
F : traitement du cas DEFAULT |
F : traitement du cas DEFAULT |
*/ |
*/ |
Line 1542 typedef struct liste_pile_systeme
|
Line 1568 typedef struct liste_pile_systeme
|
unsigned char type_cloture; |
unsigned char type_cloture; |
|
|
/* |
/* |
type clôture : |
type clôture : |
C SELECT : END termine un test SELECT/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. |
Line 1553 typedef struct liste_pile_systeme
|
Line 1579 typedef struct liste_pile_systeme
|
|
|
F FOR : NEXT ou STEP termine une boucle avec compteur. |
F FOR : NEXT ou STEP termine une boucle avec compteur. |
S START : NEXT ou STEP termine une boucle sans compteur. |
S START : NEXT ou STEP termine une boucle sans compteur. |
L LOOP : boucle utilisé dans le traitement de l'instruction RETURN. |
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. |
A FORALL : NEXT termine une boucle sur un objet. |
A FORALL : NEXT termine une boucle sur un objet. |
*/ |
*/ |
Line 1598 typedef struct variable
|
Line 1624 typedef struct variable
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structure variable partagée |
Structure variable partagée |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 1633 typedef struct variable_statique
|
Line 1659 typedef struct variable_statique
|
unsigned char *nom; |
unsigned char *nom; |
unsigned char origine; |
unsigned char origine; |
|
|
// Position de création de la variable statique dans le programme ou dans |
// Position de création de la variable statique dans le programme ou dans |
// l'expression. 'origine' vaut 'P' pour programme ou 'E' pour expression. |
// l'expression. 'origine' vaut 'P' pour programme ou 'E' pour expression. |
|
|
integer8 niveau; |
integer8 niveau; |
Line 1741 typedef struct rpl_arguments
|
Line 1767 typedef struct rpl_arguments
|
/* Traitement des erreurs */ |
/* Traitement des erreurs */ |
|
|
unsigned char *message_erreur; |
unsigned char *message_erreur; |
unsigned char type_erreur; /* S = système |
unsigned char type_erreur; /* S = système |
E = exécution */ |
E = exécution */ |
integer8 erreur; |
integer8 erreur; |
|
|
/* Traitement des messages d'aide */ |
/* Traitement des messages d'aide */ |
Line 1766 typedef struct rpl_arguments
|
Line 1792 typedef struct rpl_arguments
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structure d'arbre des instructions intrinsèques |
Structure d'arbre des instructions intrinsèques |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 1788 typedef struct instruction
|
Line 1814 typedef struct instruction
|
typedef struct arbre_variables |
typedef struct arbre_variables |
{ |
{ |
unsigned int noeuds_utilises; |
unsigned int noeuds_utilises; |
// Nombre de noeuds utilisés dans le |
// Nombre de noeuds utilisés dans le |
// tableau **noeuds |
// tableau **noeuds |
signed int indice_tableau_pere; |
signed int indice_tableau_pere; |
// Position de la structure dans le |
// Position de la structure dans le |
// tableau **noeuds du père |
// tableau **noeuds du père |
|
|
struct arbre_variables *noeud_pere; |
struct arbre_variables *noeud_pere; |
struct arbre_variables **noeuds; |
struct arbre_variables **noeuds; |
Line 1804 typedef struct arbre_variables
|
Line 1830 typedef struct arbre_variables
|
typedef struct arbre_variables_partagees |
typedef struct arbre_variables_partagees |
{ |
{ |
unsigned int noeuds_utilises; |
unsigned int noeuds_utilises; |
// Nombre de noeuds utilisés dans le |
// Nombre de noeuds utilisés dans le |
// tableau **noeuds |
// tableau **noeuds |
signed int indice_tableau_pere; |
signed int indice_tableau_pere; |
// Position de la structure dans le |
// Position de la structure dans le |
// tableau **noeuds du père |
// tableau **noeuds du père |
|
|
struct arbre_variables_partagees *noeud_pere; |
struct arbre_variables_partagees *noeud_pere; |
struct arbre_variables_partagees **noeuds; |
struct arbre_variables_partagees **noeuds; |
Line 1831 typedef struct tableau_variables
|
Line 1857 typedef struct tableau_variables
|
{ |
{ |
unsigned char origine; |
unsigned char origine; |
unsigned char *nom; // pointeur sur la struct_variable |
unsigned char *nom; // pointeur sur la struct_variable |
// réelle et non copie de la chaîne |
// réelle et non copie de la chaîne |
integer8 niveau; |
integer8 niveau; |
|
|
struct_objet *objet; // pointeur sur l'objet et non copie |
struct_objet *objet; // pointeur sur l'objet et non copie |
Line 1844 typedef struct tableau_variables
|
Line 1870 typedef struct tableau_variables
|
union_position_variable variable_partagee; |
union_position_variable variable_partagee; |
} struct_tableau_variables; |
} struct_tableau_variables; |
|
|
// La liste des variables est une liste doublement chaînée et circulaire. |
// La liste des variables est une liste doublement chaînée et circulaire. |
typedef struct liste_variables |
typedef struct liste_variables |
{ |
{ |
union |
union |
{ |
{ |
// Utilisation dans la gestion des variables |
// Utilisation dans la gestion des variables |
struct_variable *variable; |
struct_variable *variable; |
// Utilisation dans la pile système (variables par niveau) |
// Utilisation dans la pile système (variables par niveau) |
struct_liste_chainee *liste; |
struct_liste_chainee *liste; |
}; |
}; |
|
|
Line 1861 typedef struct liste_variables
|
Line 1887 typedef struct liste_variables
|
struct liste_variables *precedent; |
struct liste_variables *precedent; |
} struct_liste_variables; |
} struct_liste_variables; |
|
|
// La liste des variables statiques et une liste double chaînée et non |
// La liste des variables statiques et une liste double chaînée et non |
// circulaire. |
// circulaire. |
typedef struct liste_variables_statiques |
typedef struct liste_variables_statiques |
{ |
{ |
Line 2022 typedef struct processus
|
Line 2048 typedef struct processus
|
|
|
/* Variables */ |
/* Variables */ |
|
|
// La liste des variables par niveau est doublement chaînée. |
// La liste des variables par niveau est doublement chaînée. |
// À tout moment, elle pointe sur le niveau le plus haut existant et |
// À tout moment, elle pointe sur le niveau le plus haut existant et |
// l_liste_variable_par_niveau->precedent renvoie la liste des |
// l_liste_variable_par_niveau->precedent renvoie la liste des |
// définitions. l_liste_variable_par_niveau->precedent->precedent pointe |
// définitions. l_liste_variable_par_niveau->precedent->precedent pointe |
// sur la liste des variables globales. |
// sur la liste des variables globales. |
// |
// |
// À l'initialisation : |
// À l'initialisation : |
// l_liste_variables_par_niveau->suivant == l_liste_variables_par_niveau |
// l_liste_variables_par_niveau->suivant == l_liste_variables_par_niveau |
// l_liste_variables_par_niveau->precedent == l_liste_variables_par_niveau |
// l_liste_variables_par_niveau->precedent == l_liste_variables_par_niveau |
|
|
Line 2067 typedef struct processus
|
Line 2093 typedef struct processus
|
|
|
struct_liste_chainee *s_sockets; |
struct_liste_chainee *s_sockets; |
|
|
/* Connecteurs aux bases de données */ |
/* Connecteurs aux bases de données */ |
|
|
struct_liste_chainee *s_connecteurs_sql; |
struct_liste_chainee *s_connecteurs_sql; |
|
|
/* Bibliothèques dynamiques */ |
/* Bibliothèques dynamiques */ |
|
|
struct_liste_chainee *s_bibliotheques; |
struct_liste_chainee *s_bibliotheques; |
struct_instruction_externe *s_instructions_externes; |
struct_instruction_externe *s_instructions_externes; |
Line 2273 typedef struct processus
|
Line 2299 typedef struct processus
|
unsigned char masque_interruptions[d_NOMBRE_INTERRUPTIONS]; |
unsigned char masque_interruptions[d_NOMBRE_INTERRUPTIONS]; |
|
|
/* |
/* |
* 'I' : interruption ignorée |
* 'I' : interruption ignorée |
* 'Q' : interruption mise en queue pour un traitement ultérieur |
* 'Q' : interruption mise en queue pour un traitement ultérieur |
* 'N' : traitement normal de l'interruption |
* 'N' : traitement normal de l'interruption |
*/ |
*/ |
|
|
Line 2296 typedef struct processus
|
Line 2322 typedef struct processus
|
/* Variables volatiles */ |
/* Variables volatiles */ |
|
|
volatile sig_atomic_t var_volatile_alarme; |
volatile sig_atomic_t var_volatile_alarme; |
// Traitement de ctrl+C et des arrêts brutaux |
// Traitement de ctrl+C et des arrêts brutaux |
volatile sig_atomic_t var_volatile_requete_arret; |
volatile sig_atomic_t var_volatile_requete_arret; |
// Traitement de ctrl+Z |
// Traitement de ctrl+Z |
volatile sig_atomic_t var_volatile_requete_arret2; |
volatile sig_atomic_t var_volatile_requete_arret2; |
Line 2323 typedef struct processus
|
Line 2349 typedef struct processus
|
integer8 nombre_arguments; |
integer8 nombre_arguments; |
|
|
/* |
/* |
* Il s'agit du nombre d'arguments utilisé pour l'évaluation |
* Il s'agit du nombre d'arguments utilisé pour l'évaluation |
* des expressions algébriques. |
* des expressions algébriques. |
* -1 : la fonction ne peut être dans un objet de type ALG. |
* -1 : la fonction ne peut être dans un objet de type ALG. |
* -2 : nombre d'arguments inconnu |
* -2 : nombre d'arguments inconnu |
* 0 : la fonction doit apparaître en notation infixe |
* 0 : la fonction doit apparaître en notation infixe |
* >0 : la fonction apparaît comme une fonction normale |
* >0 : la fonction apparaît comme une fonction normale |
*/ |
*/ |
|
|
logical1 lancement_interactif; |
logical1 lancement_interactif; |
Line 2357 typedef struct processus
|
Line 2383 typedef struct processus
|
struct timeval horodatage_profilage; |
struct timeval horodatage_profilage; |
|
|
pthread_mutex_t mutex_allocation; |
pthread_mutex_t mutex_allocation; |
|
pthread_mutex_t mutex_allocation_buffer; |
pthread_mutex_t mutex_interruptions; |
pthread_mutex_t mutex_interruptions; |
pthread_mutex_t mutex_pile_processus; |
pthread_mutex_t mutex_pile_processus; |
pthread_mutex_t mutex_signaux; |
pthread_mutex_t mutex_signaux; |
Line 2374 typedef struct processus
|
Line 2401 typedef struct processus
|
|
|
logical1 initialisation_scheduler; |
logical1 initialisation_scheduler; |
|
|
/* Drapeau nécessaire à RESTART */ |
/* Drapeau nécessaire à RESTART */ |
|
|
volatile logical1 requete_redemarrage; |
volatile logical1 requete_redemarrage; |
|
|
/* Gestion optimisée de la mémoire */ |
/* Gestion optimisée de la mémoire */ |
|
|
double estimation_taille_pile_tampon; |
double estimation_taille_pile_tampon; |
integer8 taille_pile_tampon; |
integer8 taille_pile_tampon; |
Line 2391 typedef struct processus
|
Line 2418 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]; \ |
int pointeur_##nom; |
volatile int pointeur_##nom; |
|
|
# define CACHE2(type, nom) \ |
# define CACHE2(type, nom) \ |
type *nom[TAILLE_CACHE]; \ |
type *nom[TAILLE_CACHE]; \ |
int pointeur_##nom; |
volatile int pointeur_##nom; |
|
|
CACHE(integer8, adr) |
CACHE(integer8, adr) |
CACHE(logical8, bin) |
CACHE(logical8, bin) |
Line 2429 typedef struct processus
|
Line 2456 typedef struct processus
|
|
|
/* |
/* |
================================================================================ |
================================================================================ |
MISE EN PLACE DE L'ALLOCATEUR SPÉCIFIQUE |
MISE EN PLACE DE L'ALLOCATEUR SPÉCIFIQUE |
================================================================================*/ |
================================================================================*/ |
|
|
#ifndef DEBUG_MEMOIRE |
#ifndef DEBUG_MEMOIRE |
Line 2446 void sys_free(void *ptr);
|
Line 2473 void sys_free(void *ptr);
|
|
|
/* |
/* |
* Wrapper de readline() pour que la fonction renvoie un pointeur sur un |
* Wrapper de readline() pour que la fonction renvoie un pointeur sur un |
* buffer alloué par rpl_malloc(). |
* buffer alloué par rpl_malloc(). |
*/ |
*/ |
|
|
#define readline(s) readline_wrapper(s_etat_processus, s) |
#define readline(s) readline_wrapper(s_etat_processus, s) |
Line 2462 unsigned char *readline_wrapper(struct_p
|
Line 2489 unsigned char *readline_wrapper(struct_p
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Procédures d'exécution des mots-clef du langage RPL/2 |
Procédures d'exécution des mots-clef du langage RPL/2 |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3000 void instruction_yield(struct_processus
|
Line 3027 void instruction_yield(struct_processus
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Procédures |
Procédures |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3191 int envoi_signal_thread(pthread_t tid, e
|
Line 3218 int envoi_signal_thread(pthread_t tid, e
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Fonctions de sommation de vecteur dans perte de précision |
Fonctions de sommation de vecteur dans perte de précision |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3241 struct_vecteur *variance_statistique(str
|
Line 3268 struct_vecteur *variance_statistique(str
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Gestion des bibliothèques |
Gestion des bibliothèques |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3464 unsigned char longueur_entiers_binaires(
|
Line 3491 unsigned char longueur_entiers_binaires(
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Fonctions retournant un INTEGER*8 (valeur binaire non signée) |
Fonctions retournant un INTEGER*8 (valeur binaire non signée) |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3488 integer8 position_caractere_de_chaine(st
|
Line 3515 integer8 position_caractere_de_chaine(st
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Fonctions renvoyant une liste chaînée (pointeur sur *struct_liste_chainee) |
Fonctions renvoyant une liste chaînée (pointeur sur *struct_liste_chainee) |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3499 struct_liste_chainee *analyse_rpn(struct
|
Line 3526 struct_liste_chainee *analyse_rpn(struct
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Allocateur de buffers à cache |
Allocateur de buffers à cache |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3574 struct_liste_variables_partagees *recher
|
Line 3601 struct_liste_variables_partagees *recher
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Fonctions gérant la complétion automatique |
Fonctions gérant la complétion automatique |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3586 char **completion_matches();
|
Line 3613 char **completion_matches();
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Arithmétique |
Arithmétique |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3630 void f77soustractionrc_(real8 *ra, compl
|
Line 3657 void f77soustractionrc_(real8 *ra, compl
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Trigonométrie complexe |
Trigonométrie complexe |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
Line 3727 void zgeev_(unsigned char *calcul_vp_gau
|
Line 3754 void zgeev_(unsigned char *calcul_vp_gau
|
integer4 *erreur, integer4 longueur_1, integer4 longueur_2); |
integer4 *erreur, integer4 longueur_1, integer4 longueur_2); |
|
|
/* |
/* |
* Valeurs propres généralisées |
* Valeurs propres généralisées |
*/ |
*/ |
|
|
void zggev_(unsigned char *calcul_vp_gauches, unsigned char *calcul_vp_droits, |
void zggev_(unsigned char *calcul_vp_gauches, unsigned char *calcul_vp_droits, |
Line 3740 void zggev_(unsigned char *calcul_vp_gau
|
Line 3767 void zggev_(unsigned char *calcul_vp_gau
|
integer4 *erreur, integer4 longueur_1, integer4 longueur_2); |
integer4 *erreur, integer4 longueur_1, integer4 longueur_2); |
|
|
/* |
/* |
* Moindres carrés |
* Moindres carrés |
*/ |
*/ |
|
|
void dgelsd_(integer4 *nombre_lignes_a, integer4 *nombre_colonnes_a, |
void dgelsd_(integer4 *nombre_lignes_a, integer4 *nombre_colonnes_a, |
Line 3755 void zgelsd_(integer4 *nombre_lignes_a,
|
Line 3782 void zgelsd_(integer4 *nombre_lignes_a,
|
real8 *rwork, integer4 *iwork, integer4 *info); |
real8 *rwork, integer4 *iwork, integer4 *info); |
|
|
/* |
/* |
* Moindres carrés généralisé |
* Moindres carrés généralisé |
*/ |
*/ |
|
|
/* |
/* |
* Décomposition en valeurs singulières |
* Décomposition en valeurs singulières |
*/ |
*/ |
|
|
void dgesvd_(unsigned char *jobu, unsigned char *jobvh, |
void dgesvd_(unsigned char *jobu, unsigned char *jobvh, |
Line 3816 void zgees_(unsigned char *calcul_vecteu
|
Line 3843 void zgees_(unsigned char *calcul_vecteu
|
real8 *rwork, logical4 *bwork, integer4 *info, |
real8 *rwork, logical4 *bwork, integer4 *info, |
integer4 l1, integer4 l2); |
integer4 l1, integer4 l2); |
|
|
/* Déterminant et rang */ |
/* Déterminant et rang */ |
void dgecon_(unsigned char *norm, integer4 *n, real8 *a, integer4 *lda, |
void dgecon_(unsigned char *norm, integer4 *n, real8 *a, integer4 *lda, |
real8 *anorm, real8 *rcond, real8 *work, integer4 *iwork, |
real8 *anorm, real8 *rcond, real8 *work, integer4 *iwork, |
integer4 *info, integer4 l1); |
integer4 *info, integer4 l1); |
Line 3837 void zgelsy_(integer4 *m, integer4 *n, i
|
Line 3864 void zgelsy_(integer4 *m, integer4 *n, i
|
#endif |
#endif |
|
|
/* |
/* |
* Fonction testant la requête d'arrêt (nécessaire pour tester le |
* Fonction testant la requête d'arrêt (nécessaire pour tester le |
* drapeau depuis une bibliothèque). |
* drapeau depuis une bibliothèque). |
*/ |
*/ |
|
|
int test_arret(struct_processus *s_etat_processus); |
int test_arret(struct_processus *s_etat_processus); |