|
version 1.227, 2013/06/21 14:15:57
|
version 1.257, 2015/01/08 14:29:52
|
|
Line 1
|
Line 1
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| RPL/2 (R) version 4.1.15 |
RPL/2 (R) version 4.1.20 |
| Copyright (C) 1989-2013 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 56
|
Line 56
|
| # define sched_yield(arg) |
# define sched_yield(arg) |
| #endif |
#endif |
| |
|
| |
#ifdef CYGWIN |
| |
# define SA_ONSTACK 0 |
| |
#endif |
| |
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
|
Line 224
|
Line 228
|
| # 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 262
|
Line 266
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| Bugs spécifiques |
Bugs spécifiques |
| ================================================================================ |
================================================================================ |
| */ |
*/ |
| |
|
| // Néant |
// Néant |
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
|
Line 288 enum signaux_rpl
|
Line 292 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 307 enum signaux_rpl
|
Line 311 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 |
| { |
{ |
| # ifndef IPCS_SYSV |
|
| # ifndef SEMAPHORES_NOMMES |
|
| sem_t semaphore; |
|
| sem_t signalisation; |
|
| sem_t arret_signalisation; |
|
| # endif |
|
| # else |
|
| sem_t semaphore; |
|
| sem_t signalisation; |
|
| sem_t arret_signalisation; |
|
| # endif |
|
| |
|
| volatile int pointeur_lecture; |
volatile int pointeur_lecture; |
| volatile int pointeur_ecriture; |
volatile int pointeur_ecriture; |
| pthread_t thread_signaux; |
|
| volatile logical1 requete_arret; |
volatile logical1 requete_arret; |
| |
|
| |
pthread_t thread_signaux; |
| |
|
| volatile struct |
volatile struct |
| { |
{ |
| pid_t pid; |
pid_t pid; |
| enum signaux_rpl signal; |
enum signaux_rpl signal; |
| } queue[LONGUEUR_QUEUE_SIGNAUX]; |
} queue[LONGUEUR_QUEUE_SIGNAUX]; |
| |
|
| |
# ifdef OS2 |
| |
sem_t semaphore; |
| |
sem_t signalisation; |
| |
sem_t arret_signalisation; |
| |
# endif |
| } struct_queue_signaux; |
} struct_queue_signaux; |
| |
|
| __EXTERN__ struct_queue_signaux *s_queue_signaux; |
__EXTERN__ struct_queue_signaux *s_queue_signaux; |
| __EXTERN__ int f_queue_signaux; |
__EXTERN__ int f_queue_signaux; |
| |
|
| # ifdef SEMAPHORES_NOMMES |
# ifndef OS2 |
| __EXTERN__ sem_t *semaphore_queue_signaux; |
__EXTERN__ sem_t *semaphore_queue_signaux; |
| __EXTERN__ sem_t *semaphore_signalisation; |
__EXTERN__ sem_t *semaphore_signalisation; |
| __EXTERN__ sem_t *semaphore_arret_signalisation; |
__EXTERN__ sem_t *semaphore_arret_signalisation; |
| # endif |
# endif |
| #endif |
#endif |
| |
|
|
Line 373 union semun
|
Line 372 union semun
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| SÉMAPHORES |
SÉMAPHORES |
| ================================================================================ |
================================================================================ |
| */ |
*/ |
| |
|
| #ifdef IPCS_SYSV |
#ifdef IPCS_SYSV |
| |
# ifdef DEBUG_SEMAPHORES |
| |
# define sem_wait(a) ({ int value; sem_getvalue(a, &value); \ |
| |
uprintf("[%d-%llu] Semaphore %s (%p) "\ |
| |
"waiting at %s() " \ |
| |
"line #%d\n", (int) getpid(), (unsigned long long) i\ |
| |
pthread_self(), \ |
| |
#a, a, __FUNCTION__, __LINE__), fflush(stdout); \ |
| |
if (value > 1) BUG(1, uprintf("Value %d\n", value)); \ |
| |
sem_wait_SysV(a); }) |
| |
# define sem_post(a) ({ int value; sem_getvalue(a, &value); \ |
| |
uprintf("[%d-%llu] Semaphore %s (%p) "\ |
| |
"posting at %s() " \ |
| |
"line #%d\n", (int) getpid(), (unsigned long long) \ |
| |
pthread_self(), \ |
| |
#a, a, __FUNCTION__, __LINE__), fflush(stdout); \ |
| |
if (value > 0) BUG(1, uprintf("Value %d\n", value)); \ |
| |
sem_post_SysV(a); }) |
| |
# define sem_destroy(a) ({ int value; sem_getvalue(a, &value); \ |
| |
if (value == 0) BUG(1, uprintf("Value %d\n", value)); \ |
| |
sem_destroy_SysV(a); }) |
| |
# else |
| |
# define sem_destroy(a) sem_destroy_SysV(a) |
| |
# define sem_wait(a) sem_wait_SysV(a) |
| |
# define sem_post(a) sem_post_SysV(a) |
| |
# endif |
| |
|
| # 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_wait(a) sem_wait_SysV(a) |
|
| # define sem_trywait(a) sem_trywait_SysV(a) |
# define sem_trywait(a) sem_trywait_SysV(a) |
| # define sem_timedwait(a, b) sem_timedwait_SysV(a, b) |
# define sem_timedwait(a, b) sem_timedwait_SysV(a, b) |
| # define sem_post(a) sem_post_SysV(a) |
|
| # define sem_getvalue(a, b) sem_getvalue_SysV(a, b) |
# define sem_getvalue(a, b) sem_getvalue_SysV(a, b) |
| # define sem_open(...) sem_open_SysV(__VA_ARGS__) |
# define sem_open(...) sem_open_SysV(__VA_ARGS__) |
| # define sem_close(a) sem_close_SysV(a) |
# define sem_close(a) sem_close_SysV(a) |
| # define sem_unlink(a) sem_unlink_SysV(a) |
# define sem_unlink(a) sem_unlink_SysV(a) |
| |
#else |
| |
# ifdef DEBUG_SEMAPHORES |
| |
# define sem_wait(a) ({ int value; sem_getvalue(a, &value); \ |
| |
uprintf("[%d-%llu] Semaphore %s (%p) "\ |
| |
"waiting at %s() " \ |
| |
"line #%d\n", (int) getpid(), (unsigned long long) \ |
| |
pthread_self(), \ |
| |
#a, a, __FUNCTION__, __LINE__), fflush(stdout); \ |
| |
if (value > 1) BUG(1, uprintf("Value %d\n", value)); sem_wait(a); }) |
| |
# define sem_post(a) ({ int value; sem_getvalue(a, &value); \ |
| |
uprintf("[%d-%llu] Semaphore %s (%p) "\ |
| |
"posting at %s() " \ |
| |
"line #%d\n", (int) getpid(), (unsigned long long) \ |
| |
pthread_self(), \ |
| |
#a, a, __FUNCTION__, __LINE__), fflush(stdout); \ |
| |
if (value > 0) BUG(1, uprintf("Value %d\n", value)); sem_post(a); }) |
| |
# define sem_destroy(a) ({ int value; sem_getvalue(a, &value); \ |
| |
if (value == 0) BUG(1, uprintf("Value %d\n", value)); \ |
| |
sem_destroy(a); }) |
| |
# endif |
| #endif |
#endif |
| |
|
| |
|
|
Line 399 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 416 union semun
|
Line 458 union semun
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| Granularité temporelle |
Granularité temporelle |
| ================================================================================ |
================================================================================ |
| */ |
*/ |
| |
|
|
Line 458 union semun
|
Line 500 union semun
|
| #ifndef RPLARGS |
#ifndef RPLARGS |
| # ifdef SEMAPHORES_NOMMES |
# ifdef SEMAPHORES_NOMMES |
| # define LONGUEUR_NOM_SEMAPHORE 64 |
# define LONGUEUR_NOM_SEMAPHORE 64 |
| # endif |
|
| |
|
| # ifdef SEMAPHORES_NOMMES |
|
| # define __PTR__ * |
# define __PTR__ * |
| # else |
# else |
| # define __PTR__ |
# define __PTR__ |
|
Line 476 union semun
|
Line 515 union semun
|
| |
|
| __EXTERN__ pid_t pid_processus_pere; |
__EXTERN__ pid_t pid_processus_pere; |
| |
|
| # ifdef SEMAPHORES_NOMMES |
|
| __EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__; |
|
| # endif |
|
| |
|
| __EXTERN__ pthread_mutex_t mutex_liste_threads |
__EXTERN__ pthread_mutex_t mutex_liste_threads |
| __STATIC_MUTEX_INITIALIZATION__; |
__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; |
| __EXTERN__ pthread_mutex_t mutex_liste_variables_partagees; |
__EXTERN__ pthread_mutex_t mutex_liste_variables_partagees; |
| |
__EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__; |
| __EXTERN__ sem_t __PTR__ semaphore_gestionnaires_signaux; |
|
| |
|
| __EXTERN__ volatile int routine_recursive; |
__EXTERN__ volatile int routine_recursive; |
| #endif |
|
| |
|
| #ifdef SEMAPHORES_NOMMES |
# define SEM_FORK 0 |
| #define SEM_FORK 0 |
# define SEM_QUEUE 1 |
| #define SEM_QUEUE 1 |
# define SEM_SIGNALISATION 2 |
| #define SEM_SIGNAUX 2 |
# define SEM_ARRET_SIGNALISATION 3 |
| #define SEM_SIGNALISATION 3 |
|
| #define SEM_ARRET_SIGNALISATION 4 |
sem_t *sem_init2(unsigned int valeur, pid_t pid, int ordre); |
| 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_init3(unsigned int valeur, pid_t pid, pthread_t tid, int ordre); |
int sem_destroy2(sem_t *semaphore_p, pid_t pid, int ordre); |
| int sem_destroy2(sem_t *semaphore_p, pid_t pid, int ordre); |
int sem_destroy3(sem_t *semaphore_p, pid_t pid, pthread_t tid, int ordre); |
| 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); |
| sem_t *sem_open2(pid_t pid, int ordre); |
#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 |
| #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) \ |
| ({ int r; pthread_mutex_lock(&mutex_sem); \ |
({ int r; pthread_mutex_lock(&mutex_sem); \ |
|
Line 527 sem_t *sem_open2(pid_t pid, int ordre);
|
Line 561 sem_t *sem_open2(pid_t pid, int ordre);
|
| ================================================================================ |
================================================================================ |
| */ |
*/ |
| |
|
| // 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 559 sem_t *sem_open2(pid_t pid, int ordre);
|
Line 593 sem_t *sem_open2(pid_t pid, int ordre);
|
| # 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 579 sem_t *sem_open2(pid_t pid, int ordre);
|
Line 613 sem_t *sem_open2(pid_t pid, int ordre);
|
| 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 693 pid_t debug_fork();
|
Line 727 pid_t debug_fork();
|
| pthread_mutex_unlock(mutex) |
pthread_mutex_unlock(mutex) |
| #endif |
#endif |
| |
|
| #ifdef DEBUG_SEMAPHORES |
|
| #define sem_wait(a) ({ int value; sem_getvalue(a, &value); \ |
|
| uprintf("[%d-%llu] Semaphore %s (%p) "\ |
|
| "waiting at %s() " \ |
|
| "line #%d\n", (int) getpid(), (unsigned long long) pthread_self(), \ |
|
| #a, a, __FUNCTION__, __LINE__), fflush(stdout); \ |
|
| if (value > 1) BUG(1, uprintf("Value %d\n", value)); sem_wait(a); }) |
|
| #define sem_post(a) ({ int value; sem_getvalue(a, &value); \ |
|
| uprintf("[%d-%llu] Semaphore %s (%p) "\ |
|
| "posting at %s() " \ |
|
| "line #%d\n", (int) getpid(), (unsigned long long) pthread_self(), \ |
|
| #a, a, __FUNCTION__, __LINE__), fflush(stdout); \ |
|
| if (value > 0) BUG(1, uprintf("Value %d\n", value)); sem_post(a); }) |
|
| #define sem_destroy(a) ({ int value; sem_getvalue(a, &value); \ |
|
| if (value == 0) BUG(1, uprintf("Value %d\n", value)); sem_destroy(a); }) |
|
| #endif |
|
| |
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
|
Line 761 pid_t debug_fork();
|
Line 778 pid_t debug_fork();
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Paramètres du système |
Paramètres du système |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 780 pid_t debug_fork();
|
Line 797 pid_t debug_fork();
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Erreurs système |
Erreurs système |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 806 pid_t debug_fork();
|
Line 823 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 872 pid_t debug_fork();
|
Line 889 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 1028 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1045 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
| 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 1049 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1066 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 1058 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1075 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 1085 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1102 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 1165 typedef struct rpl_mutex
|
Line 1182 typedef struct rpl_mutex
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure sémaphore |
Structure sémaphore |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1197 typedef struct marque
|
Line 1214 typedef struct marque
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure bibliothèque |
Structure bibliothèque |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1322 typedef struct socket
|
Line 1339 typedef struct socket
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure liste chaînee |
Structure liste chaînee |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1347 typedef struct gestion_signaux
|
Line 1364 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 1396 typedef struct liste_profilage2
|
Line 1413 typedef struct liste_profilage2
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure contenant les fichiers graphiques (liste chaînée) |
Structure contenant les fichiers graphiques (liste chaînée) |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1428 typedef struct nom
|
Line 1445 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 1510 typedef struct liste_pile_systeme
|
Line 1527 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 1519 typedef struct liste_pile_systeme
|
Line 1536 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 1531 typedef struct liste_pile_systeme
|
Line 1548 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 1542 typedef struct liste_pile_systeme
|
Line 1559 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 1587 typedef struct variable
|
Line 1604 typedef struct variable
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure variable partagée |
Structure variable partagée |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1622 typedef struct variable_statique
|
Line 1639 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 1689 typedef struct tableau
|
Line 1706 typedef struct tableau
|
| |
|
| typedef struct arbre |
typedef struct arbre |
| { |
{ |
| struct_objet *objet; |
struct_liste_chainee *feuille; |
| |
|
| unsigned long nombre_feuilles; |
integer8 nombre_branches; |
| struct arbre **feuilles; |
struct arbre **branches; |
| } struct_arbre; |
} struct_arbre; |
| |
|
| |
|
|
Line 1730 typedef struct rpl_arguments
|
Line 1747 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 1755 typedef struct rpl_arguments
|
Line 1772 typedef struct rpl_arguments
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure d'arbre des instructions intrinsèques |
Structure d'arbre des instructions intrinsèques |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1777 typedef struct instruction
|
Line 1794 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 1793 typedef struct arbre_variables
|
Line 1810 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 1820 typedef struct tableau_variables
|
Line 1837 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 1833 typedef struct tableau_variables
|
Line 1850 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 1850 typedef struct liste_variables
|
Line 1867 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 1873 typedef struct liste_variables_partagees
|
Line 1890 typedef struct liste_variables_partagees
|
| } struct_liste_variables_partagees; |
} struct_liste_variables_partagees; |
| #endif |
#endif |
| |
|
| |
|
| |
/* |
| |
-------------------------------------------------------------------------------- |
| |
Structure fonction |
| |
-------------------------------------------------------------------------------- |
| |
*/ |
| |
|
| |
#ifndef RPLARGS |
| |
typedef struct fonction |
| |
{ |
| |
unsigned char *nom_fonction; |
| |
integer8 nombre_arguments; |
| |
|
| |
void (*fonction)(struct processus *); |
| |
|
| |
volatile struct_liste_chainee *prediction_saut; |
| |
volatile logical1 prediction_execution; |
| |
} struct_fonction; |
| |
#endif |
| |
|
| |
|
| |
/* |
| |
-------------------------------------------------------------------------------- |
| |
Structure buffer |
| |
-------------------------------------------------------------------------------- |
| |
*/ |
| |
|
| |
typedef struct buffer |
| |
{ |
| |
unsigned char *buffer; |
| |
|
| |
integer8 longueur_requise; |
| |
int classe; |
| |
} struct_buffer; |
| |
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure processus |
Structure processus |
|
Line 1975 typedef struct processus
|
Line 2028 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 2020 typedef struct processus
|
Line 2073 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 2226 typedef struct processus
|
Line 2279 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 2249 typedef struct processus
|
Line 2302 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 2276 typedef struct processus
|
Line 2329 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 2299 typedef struct processus
|
Line 2352 typedef struct processus
|
| |
|
| logical1 processus_detache; |
logical1 processus_detache; |
| |
|
| |
enum t_type type_en_cours; |
| |
|
| /* Profilage */ |
/* Profilage */ |
| |
|
| logical1 profilage; |
logical1 profilage; |
|
Line 2325 typedef struct processus
|
Line 2380 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 2343 typedef struct processus
|
Line 2398 typedef struct processus
|
| struct_objet *pile_objets; |
struct_objet *pile_objets; |
| |
|
| # define TAILLE_CACHE 1024 |
# define TAILLE_CACHE 1024 |
| |
# define CACHE(type, nom) \ |
| integer8 *objets_adr[TAILLE_CACHE]; |
type *objets_##nom[TAILLE_CACHE]; \ |
| int pointeur_adr; |
int pointeur_##nom; |
| |
|
| logical8 *objets_bin[TAILLE_CACHE]; |
# define CACHE2(type, nom) \ |
| int pointeur_bin; |
type *nom[TAILLE_CACHE]; \ |
| |
int pointeur_##nom; |
| complex16 *objets_cpl[TAILLE_CACHE]; |
|
| int pointeur_cpl; |
CACHE(integer8, adr) |
| |
CACHE(logical8, bin) |
| struct fonction *objets_fct[TAILLE_CACHE]; |
CACHE(complex16, cpl) |
| int pointeur_fct; |
CACHE(struct_fonction, fct) |
| |
CACHE(integer8, int) |
| integer8 *objets_int[TAILLE_CACHE]; |
CACHE(struct_matrice, mat) |
| int pointeur_int; |
CACHE(struct_nom, nom) |
| |
CACHE(real8, rel) |
| struct_matrice *objets_mat[TAILLE_CACHE]; |
CACHE(struct_tableau, tab) |
| int pointeur_mat; |
CACHE(struct_vecteur, vec) |
| |
|
| struct_nom *objets_nom[TAILLE_CACHE]; |
CACHE2(struct_liste_chainee, maillons) |
| int pointeur_nom; |
CACHE2(struct_arbre_variables, variables_noeud) |
| |
CACHE2(struct_arbre_variables_partagees, variables_partagees_noeud) |
| real8 *objets_rel[TAILLE_CACHE]; |
CACHE2(struct_liste_variables, variables_feuille) |
| int pointeur_rel; |
CACHE2(struct_variable, variables_variable) |
| |
CACHE2(struct_arbre_variables *, variables_tableau_noeuds) |
| struct_tableau *objets_tab[TAILLE_CACHE]; |
CACHE2(struct_arbre_variables_partagees *, |
| int pointeur_tab; |
variables_tableau_noeuds_partages) |
| |
|
| struct_vecteur *objets_vec[TAILLE_CACHE]; |
CACHE2(struct_buffer, enveloppes_buffers) |
| int pointeur_vec; |
unsigned char ***cache_buffer; |
| |
int *pointeur_cache_buffer; |
| struct_liste_chainee *maillons[TAILLE_CACHE]; |
|
| int pointeur_maillons; |
|
| |
|
| struct_arbre_variables *variables_noeud[TAILLE_CACHE]; |
|
| int pointeur_variables_noeud; |
|
| |
|
| struct_arbre_variables_partagees |
|
| *variables_partagees_noeud[TAILLE_CACHE]; |
|
| int pointeur_variables_partagees_noeud; |
|
| |
|
| struct_liste_variables *variables_feuille[TAILLE_CACHE]; |
|
| int pointeur_variables_feuille; |
|
| |
|
| struct_variable *variables_variable[TAILLE_CACHE]; |
|
| int pointeur_variables_variable; |
|
| |
|
| struct_arbre_variables **variables_tableau_noeuds[TAILLE_CACHE]; |
|
| int pointeur_variables_tableau_noeuds; |
|
| |
|
| struct_arbre_variables_partagees |
|
| **variables_tableau_noeuds_partages |
|
| [TAILLE_CACHE]; |
|
| int pointeur_variables_tableau_noeuds_partages; |
|
| } struct_processus; |
} struct_processus; |
| #endif |
#endif |
| |
|
| /* |
|
| -------------------------------------------------------------------------------- |
|
| Structure fonction |
|
| -------------------------------------------------------------------------------- |
|
| */ |
|
| |
|
| #ifndef RPLARGS |
|
| typedef struct fonction |
|
| { |
|
| unsigned char *nom_fonction; |
|
| integer8 nombre_arguments; |
|
| |
|
| void (*fonction)(struct_processus *); |
|
| |
|
| volatile struct_liste_chainee *prediction_saut; |
|
| volatile logical1 prediction_execution; |
|
| } struct_fonction; |
|
| #endif |
|
| |
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
|
Line 2428 typedef struct fonction
|
Line 2441 typedef struct fonction
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| 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 2560 void instruction_elseif(struct_processus
|
Line 2573 void instruction_elseif(struct_processus
|
| void instruction_end(struct_processus *s_etat_processus); |
void instruction_end(struct_processus *s_etat_processus); |
| void instruction_eng(struct_processus *s_etat_processus); |
void instruction_eng(struct_processus *s_etat_processus); |
| void instruction_epsilon(struct_processus *s_etat_processus); |
void instruction_epsilon(struct_processus *s_etat_processus); |
| |
void instruction_eqv(struct_processus *s_etat_processus); |
| void instruction_erase(struct_processus *s_etat_processus); |
void instruction_erase(struct_processus *s_etat_processus); |
| void instruction_errm(struct_processus *s_etat_processus); |
void instruction_errm(struct_processus *s_etat_processus); |
| void instruction_errn(struct_processus *s_etat_processus); |
void instruction_errn(struct_processus *s_etat_processus); |
|
Line 2800 void instruction_return(struct_processus
|
Line 2814 void instruction_return(struct_processus
|
| void instruction_revlist(struct_processus *s_etat_processus); |
void instruction_revlist(struct_processus *s_etat_processus); |
| void instruction_rewind(struct_processus *s_etat_processus); |
void instruction_rewind(struct_processus *s_etat_processus); |
| void instruction_rfuse(struct_processus *s_etat_processus); |
void instruction_rfuse(struct_processus *s_etat_processus); |
| |
void instruction_rgdl(struct_processus *s_etat_processus); |
| |
void instruction_rgdr(struct_processus *s_etat_processus); |
| void instruction_rl(struct_processus *s_etat_processus); |
void instruction_rl(struct_processus *s_etat_processus); |
| void instruction_rlb(struct_processus *s_etat_processus); |
void instruction_rlb(struct_processus *s_etat_processus); |
| void instruction_rnd(struct_processus *s_etat_processus); |
void instruction_rnd(struct_processus *s_etat_processus); |
|
Line 2963 void instruction_yield(struct_processus
|
Line 2979 void instruction_yield(struct_processus
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Procédures |
Procédures |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3152 int envoi_signal_thread(pthread_t tid, e
|
Line 3168 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 3198 struct_vecteur *variance_statistique(str
|
Line 3214 struct_vecteur *variance_statistique(str
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Gestion des bibliothèques |
Gestion des bibliothèques |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3317 logical1 initialisation_fichier_acces_in
|
Line 3333 logical1 initialisation_fichier_acces_in
|
| sqlite3 *sqlite, integer8 position_clef, logical1 binaire); |
sqlite3 *sqlite, integer8 position_clef, logical1 binaire); |
| logical1 lancement_thread_signaux(struct_processus *s_etat_processus); |
logical1 lancement_thread_signaux(struct_processus *s_etat_processus); |
| logical1 recherche_instruction_suivante(struct_processus *s_etat_processus); |
logical1 recherche_instruction_suivante(struct_processus *s_etat_processus); |
| |
logical1 recherche_instruction_suivante_recursive( |
| |
struct_processus *s_etat_processus, integer8 recursivite); |
| logical1 retrait_variable(struct_processus *s_etat_processus, |
logical1 retrait_variable(struct_processus *s_etat_processus, |
| unsigned char *nom_variable, unsigned char type); |
unsigned char *nom_variable, unsigned char type); |
| logical1 retrait_variables_par_niveau(struct_processus *s_etat_processus); |
logical1 retrait_variables_par_niveau(struct_processus *s_etat_processus); |
|
Line 3406 unsigned char longueur_entiers_binaires(
|
Line 3424 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 3430 integer8 position_caractere_de_chaine(st
|
Line 3448 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 3441 struct_liste_chainee *analyse_rpn(struct
|
Line 3459 struct_liste_chainee *analyse_rpn(struct
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| |
Allocateur de buffers à cache |
| |
-------------------------------------------------------------------------------- |
| |
*/ |
| |
|
| |
void initialisation_allocateur_buffer(struct_processus *s_etat_processus); |
| |
void liberation_allocateur_buffer(struct_processus *s_etat_pocessus); |
| |
struct_buffer *allocation_buffer(struct_processus *s_etat_processus, |
| |
integer8 longueur); |
| |
void liberation_buffer(struct_processus *s_etat_processus, |
| |
struct_buffer *buffer); |
| |
|
| |
/* |
| |
-------------------------------------------------------------------------------- |
| Fonctions renvoyant une copie de la structure de description des processus |
Fonctions renvoyant une copie de la structure de description des processus |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
|
Line 3503 struct_liste_variables_partagees *recher
|
Line 3534 struct_liste_variables_partagees *recher
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Fonctions gérant les arbres de simplification |
Fonctions gérant la complétion automatique |
| -------------------------------------------------------------------------------- |
|
| */ |
|
| |
|
| #ifndef RPLARGS |
|
| struct_arbre *creation_arbre(struct_processus *s_etat_processus, |
|
| struct_objet **t_objets, integer8 indice, integer8 indice_maximal); |
|
| void liberation_arbre(struct_processus *s_etat_processus, |
|
| struct_arbre *s_noeud); |
|
| void parcours_arbre(struct_processus *s_etat_processus, struct_arbre *s_noeud); |
|
| void simplification_arbre(struct_processus *s_etat_processus, |
|
| struct_arbre *s_noeud); |
|
| #endif |
|
| |
|
| /* |
|
| -------------------------------------------------------------------------------- |
|
| Fonctions gérant la complétion automatique |
|
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3531 char **completion_matches();
|
Line 3546 char **completion_matches();
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Arithmétique |
Arithmétique |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3575 void f77soustractionrc_(real8 *ra, compl
|
Line 3590 void f77soustractionrc_(real8 *ra, compl
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Trigonométrie complexe |
Trigonométrie complexe |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3672 void zgeev_(unsigned char *calcul_vp_gau
|
Line 3687 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 3685 void zggev_(unsigned char *calcul_vp_gau
|
Line 3700 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 3700 void zgelsd_(integer4 *nombre_lignes_a,
|
Line 3715 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 3761 void zgees_(unsigned char *calcul_vecteu
|
Line 3776 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 3782 void zgelsy_(integer4 *m, integer4 *n, i
|
Line 3797 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); |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to rpl.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / src