|
version 1.158, 2012/03/01 10:14:08
|
version 1.176, 2012/09/29 17:53:02
|
|
Line 1
|
Line 1
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| RPL/2 (R) version 4.1.7 |
RPL/2 (R) version 4.1.10 |
| Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
| |
|
| This file is part of RPL/2. |
This file is part of RPL/2. |
| |
|
|
Line 145
|
Line 145
|
| int sem_close_SysV(sem_t *sem); |
int sem_close_SysV(sem_t *sem); |
| int sem_wait_SysV(sem_t *sem); |
int sem_wait_SysV(sem_t *sem); |
| int sem_trywait_SysV(sem_t *sem); |
int sem_trywait_SysV(sem_t *sem); |
| |
int sem_timedwait_SysV(sem_t *sem, struct timespec *ts); |
| int sem_post_SysV(sem_t *sem); |
int sem_post_SysV(sem_t *sem); |
| int sem_getvalue_SysV(sem_t *sem, int *value); |
int sem_getvalue_SysV(sem_t *sem, int *value); |
| int sem_unlink_SysV(const char *nom); |
int sem_unlink_SysV(char *nom); |
| int sem_destroy_SysV(sem_t *sem); |
int sem_destroy_SysV(sem_t *sem); |
| # endif |
# endif |
| |
|
|
Line 187
|
Line 188
|
| # 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 215
|
Line 216
|
| # endif |
# endif |
| #endif |
#endif |
| |
|
| |
#ifdef MAIN_RPL |
| |
# define __EXTERN__ |
| |
# define __STATIC_MUTEX_INITIALIZATION__ = PTHREAD_MUTEX_INITIALIZER |
| |
#else |
| |
# define __EXTERN__ extern |
| |
# define __STATIC_MUTEX_INITIALIZATION__ |
| |
#endif |
| |
|
| |
/* |
| |
================================================================================ |
| |
Bugs spécifiques |
| |
================================================================================ |
| |
*/ |
| |
|
| |
// Néant |
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| Bugs spécifiques |
TYPES |
| ================================================================================ |
================================================================================ |
| */ |
*/ |
| |
|
| |
typedef FILE file; |
| |
typedef unsigned char t_8_bits; |
| |
|
| |
#ifndef RPLARGS |
| |
# include "rpltypes-conv.h" |
| |
#else |
| |
# include "rpltypes.h" |
| |
#endif |
| |
|
| enum signaux_rpl |
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 245 enum signaux_rpl
|
Line 271 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 255 typedef struct queue_signaux
|
Line 281 typedef struct queue_signaux
|
| # ifndef IPCS_SYSV |
# ifndef IPCS_SYSV |
| # ifndef SEMAPHORES_NOMMES |
# ifndef SEMAPHORES_NOMMES |
| sem_t semaphore; |
sem_t semaphore; |
| |
sem_t signalisation; |
| # endif |
# endif |
| # else |
# else |
| sem_t semaphore; |
sem_t semaphore; |
| |
sem_t signalisation; |
| # endif |
# 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 struct |
volatile struct |
| { |
{ |
|
Line 270 typedef struct queue_signaux
|
Line 300 typedef struct queue_signaux
|
| } queue[LONGUEUR_QUEUE_SIGNAUX]; |
} queue[LONGUEUR_QUEUE_SIGNAUX]; |
| } struct_queue_signaux; |
} struct_queue_signaux; |
| |
|
| # ifndef MAIN_RPL |
__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 |
# ifdef SEMAPHORES_NOMMES |
| extern sem_t *semaphore_queue_signaux; |
__EXTERN__ sem_t *semaphore_queue_signaux; |
| # endif |
__EXTERN__ sem_t *semaphore_signalisation; |
| # else |
|
| struct_queue_signaux *s_queue_signaux; |
|
| int f_queue_signaux; |
|
| # ifdef SEMAPHORES_NOMMES |
|
| sem_t *semaphore_queue_signaux; |
|
| # endif |
|
| # endif |
# endif |
| #endif |
#endif |
| |
|
|
Line 310 union semun
|
Line 334 union semun
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| SÉMAPHORES |
SÉMAPHORES |
| ================================================================================ |
================================================================================ |
| */ |
*/ |
| |
|
|
Line 319 union semun
|
Line 343 union semun
|
| # define sem_destroy(a) sem_destroy_SysV(a) |
# define sem_destroy(a) sem_destroy_SysV(a) |
| # define sem_wait(a) sem_wait_SysV(a) |
# define sem_wait(a) sem_wait_SysV(a) |
| # 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_post(a) sem_post_SysV(a) |
# 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__) |
|
Line 335 union semun
|
Line 360 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 |
| |
|
| # define SIGTEST SIGUSR1 |
# define SIGTEST 255 |
| |
|
| // Nombre d'interruptions disponibles |
// Nombre d'interruptions disponibles |
| # define d_NOMBRE_INTERRUPTIONS 64 |
# define d_NOMBRE_INTERRUPTIONS 64 |
|
Line 352 union semun
|
Line 377 union semun
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| Granularité temporelle |
Granularité temporelle |
| ================================================================================ |
================================================================================ |
| */ |
*/ |
| |
|
|
Line 387 union semun
|
Line 412 union semun
|
| |
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| TYPES |
|
| ================================================================================ |
|
| */ |
|
| |
|
| typedef FILE file; |
|
| typedef unsigned char t_8_bits; |
|
| |
|
| #ifndef RPLARGS |
|
| # include "rpltypes-conv.h" |
|
| #else |
|
| # include "rpltypes.h" |
|
| #endif |
|
| |
|
| /* |
|
| ================================================================================ |
|
| Variables globales |
Variables globales |
| ================================================================================ |
================================================================================ |
| */ |
*/ |
|
Line 411 typedef unsigned char t_8_bits;
|
Line 421 typedef unsigned char t_8_bits;
|
| # define LONGUEUR_NOM_SEMAPHORE 64 |
# define LONGUEUR_NOM_SEMAPHORE 64 |
| # endif |
# endif |
| |
|
| # ifndef MAIN_RPL |
# ifdef SEMAPHORES_NOMMES |
| extern jmp_buf contexte_ecriture; |
# define __PTR__ * |
| extern jmp_buf contexte_impression; |
# else |
| extern jmp_buf contexte_initial; |
# define __PTR__ |
| extern jmp_buf contexte_processus; |
# endif |
| extern jmp_buf contexte_thread; |
|
| |
|
| extern int signal_test; |
|
| |
|
| extern pid_t pid_processus_pere; |
|
| |
|
| # ifdef SEMAPHORES_NOMMES |
|
| extern pthread_mutex_t mutex_sem; |
|
| # endif |
|
| |
|
| extern pthread_mutex_t mutex_liste_threads; |
|
| extern pthread_mutex_t mutex_gestionnaires_signaux_atomique; |
|
| |
|
| extern sem_t |
__EXTERN__ jmp_buf contexte_ecriture; |
| # ifdef SEMAPHORES_NOMMES |
__EXTERN__ jmp_buf contexte_impression; |
| * |
__EXTERN__ jmp_buf contexte_initial; |
| # endif |
__EXTERN__ jmp_buf contexte_processus; |
| semaphore_gestionnaires_signaux; |
__EXTERN__ jmp_buf contexte_thread; |
| |
|
| extern volatile int routine_recursive; |
__EXTERN__ volatile int signal_test; |
| # else |
|
| jmp_buf contexte_ecriture; |
|
| jmp_buf contexte_impression; |
|
| jmp_buf contexte_initial; |
|
| jmp_buf contexte_processus; |
|
| jmp_buf contexte_thread; |
|
| |
|
| int signal_test; |
__EXTERN__ pid_t pid_processus_pere; |
| |
|
| pid_t pid_processus_pere; |
# ifdef SEMAPHORES_NOMMES |
| |
__EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__; |
| |
# endif |
| |
|
| # ifdef SEMAPHORES_NOMMES |
__EXTERN__ pthread_mutex_t mutex_liste_threads |
| pthread_mutex_t mutex_sem = PTHREAD_MUTEX_INITIALIZER; |
__STATIC_MUTEX_INITIALIZATION__; |
| # endif |
__EXTERN__ pthread_mutex_t mutex_gestionnaires_signaux_atomique |
| |
__STATIC_MUTEX_INITIALIZATION__; |
| |
__EXTERN__ pthread_mutex_t mutex_sections_critiques; |
| |
|
| pthread_mutex_t mutex_liste_threads = |
__EXTERN__ sem_t __PTR__ semaphore_gestionnaires_signaux; |
| PTHREAD_MUTEX_INITIALIZER; |
|
| pthread_mutex_t mutex_gestionnaires_signaux = |
|
| PTHREAD_MUTEX_INITIALIZER; |
|
| pthread_mutex_t mutex_gestionnaires_signaux_atomique = |
|
| PTHREAD_MUTEX_INITIALIZER; |
|
| sem_t |
|
| # ifdef SEMAPHORES_NOMMES |
|
| * |
|
| # endif |
|
| semaphore_gestionnaires_signaux; |
|
| |
|
| volatile int routine_recursive; |
__EXTERN__ volatile int routine_recursive; |
| # endif |
|
| #endif |
#endif |
| |
|
| #ifdef SEMAPHORES_NOMMES |
#ifdef SEMAPHORES_NOMMES |
| #define SEM_FORK 0 |
#define SEM_FORK 0 |
| #define SEM_QUEUE 1 |
#define SEM_QUEUE 1 |
| #define SEM_SIGNAUX 2 |
#define SEM_SIGNAUX 2 |
| |
#define SEM_SIGNALISATION 3 |
| 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); |
|
Line 478 int sem_destroy3(sem_t *semaphore_p, pid
|
Line 464 int sem_destroy3(sem_t *semaphore_p, pid
|
| 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); |
| |
|
| // 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. |
| |
|
| #define sem_getvalue(semaphore, value) sem_getvalue2(semaphore, value) |
#define sem_getvalue(semaphore, value) sem_getvalue2(semaphore, value) |
|
Line 500 sem_t *sem_open2(pid_t pid, int ordre);
|
Line 486 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 522 sem_t *sem_open2(pid_t pid, int ordre);
|
Line 508 sem_t *sem_open2(pid_t pid, int ordre);
|
| # define fclose(...) ({ int ios; \ |
# define fclose(...) ({ int ios; \ |
| while((ios = fclose(__VA_ARGS__)) != 0) \ |
while((ios = fclose(__VA_ARGS__)) != 0) \ |
| { if ((errno != EINTR) && (errno != 0)) break; } ios; }) |
{ if ((errno != EINTR) && (errno != 0)) break; } ios; }) |
| # define fread(...) ({ int ios; \ |
|
| while((ios = fread(__VA_ARGS__)) < 0) \ |
|
| { if ((errno != EINTR) && (errno != 0)) break; } ios; }) |
|
| # define fflush(flux) ({ int ios; \ |
# define fflush(flux) ({ int ios; \ |
| while((ios = fflush((flux == stdout) ? stderr : flux)) != 0) \ |
while((ios = fflush((flux == stdout) ? stderr : flux)) != 0) \ |
| { if ((errno != EINTR) && (errno != 0)) break; } ios; }) |
{ if ((errno != EINTR) && (errno != 0)) break; } ios; }) |
|
Line 535 sem_t *sem_open2(pid_t pid, int ordre);
|
Line 518 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 555 sem_t *sem_open2(pid_t pid, int ordre);
|
Line 538 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 737 pid_t debug_fork();
|
Line 720 pid_t debug_fork();
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Paramètres du système |
Paramètres du système |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 756 pid_t debug_fork();
|
Line 739 pid_t debug_fork();
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Erreurs système |
Erreurs système |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 782 pid_t debug_fork();
|
Line 765 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 848 pid_t debug_fork();
|
Line 831 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 942 pid_t debug_fork();
|
Line 925 pid_t debug_fork();
|
| # define d_ex_fichier_corrompu __erreur(85) |
# define d_ex_fichier_corrompu __erreur(85) |
| # define d_ex_mutex_acquis_autre_thread __erreur(86) |
# define d_ex_mutex_acquis_autre_thread __erreur(86) |
| # define d_ex_expression_reguliere __erreur(87) |
# define d_ex_expression_reguliere __erreur(87) |
| |
# define d_ex_instruction_indisponible __erreur(88) |
| #endif |
#endif |
| |
|
| |
|
|
Line 999 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 983 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 32 bits (au moins) non signés (unsigned long) |
ADR : adresse sur 32 bits (au moins) non signés (unsigned long) |
| 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 1020 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1004 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 1029 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1013 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 1056 enum t_type { ADR = 0, ALG, BIN, CHN, C
|
Line 1040 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 1136 typedef struct rpl_mutex
|
Line 1120 typedef struct rpl_mutex
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure sémaphore |
Structure sémaphore |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1168 typedef struct marque
|
Line 1152 typedef struct marque
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure bibliothèque |
Structure bibliothèque |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1203 typedef struct descripteur_fichier
|
Line 1187 typedef struct descripteur_fichier
|
| pid_t pid; |
pid_t pid; |
| pthread_t tid; |
pthread_t tid; |
| |
|
| file *descripteur_c; |
union |
| sqlite3 *descripteur_sqlite; |
{ |
| |
file *descripteur_c; |
| |
sqlite3 *descripteur_sqlite; |
| |
}; |
| } struct_descripteur_fichier; |
} struct_descripteur_fichier; |
| #endif |
#endif |
| |
|
|
Line 1285 typedef struct socket
|
Line 1272 typedef struct socket
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure liste chaînee |
Structure liste chaînee |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1299 typedef struct liste_chainee
|
Line 1286 typedef struct liste_chainee
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| |
Structure de gestion des signaux en provenance de rplsignal |
| |
-------------------------------------------------------------------------------- |
| |
*/ |
| |
|
| |
#define d_NOMBRE_SIGNAUX 64 |
| |
|
| |
typedef struct gestion_signaux |
| |
{ |
| |
unsigned char masque_signaux[d_NOMBRE_SIGNAUX]; |
| |
|
| |
/* |
| |
* 'I' : signal ignoré |
| |
* 'Q' : signal mis en queue pour un traitement ultérieur |
| |
* 'N' : traitement normal du signal |
| |
*/ |
| |
|
| |
integer8 queue_signaux[d_NOMBRE_SIGNAUX]; |
| |
integer8 nombre_signaux_en_queue; |
| |
struct_objet *corps_signaux[d_NOMBRE_SIGNAUX]; |
| |
|
| |
pthread_mutex_t mutex; |
| |
} struct_gestion_signaux; |
| |
|
| |
#ifndef MAIN_RPL |
| |
# define __STATIC_GESTION_SIGNAUX__ |
| |
#else |
| |
# define __STATIC_GESTION_SIGNAUX__ = { .mutex = PTHREAD_MUTEX_INITIALIZER } |
| |
#endif |
| |
|
| |
__EXTERN__ volatile struct_gestion_signaux signaux_externes |
| |
__STATIC_GESTION_SIGNAUX__; |
| |
|
| |
|
| |
/* |
| |
-------------------------------------------------------------------------------- |
| Structure liste profilage |
Structure liste profilage |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
|
Line 1324 typedef struct liste_profilage2
|
Line 1346 typedef struct liste_profilage2
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure contenant les fichiers graphiques (liste chaînée) |
Structure contenant les fichiers graphiques (liste chaînée) |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1356 typedef struct nom
|
Line 1378 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 1438 typedef struct liste_pile_systeme
|
Line 1460 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 1447 typedef struct liste_pile_systeme
|
Line 1469 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 1459 typedef struct liste_pile_systeme
|
Line 1481 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. |
| J IFERR : END termine un test IFERR/THEN (ELSE)/END. |
J IFERR : END termine un test IFERR/THEN (ELSE)/END. |
| K CASE : END termine un test CASE/THEN/END |
K CASE : END termine un test CASE/THEN/END |
| W WHILE : END termine une boucle WHILE/REPEAT/END. |
W WHILE : END termine une boucle WHILE/REPEAT/END. |
| |
Q CRITICAL : END termine une section critique CRITICAL/END |
| |
|
| 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. |
| */ |
*/ |
| |
|
| unsigned long adresse_retour; |
unsigned long adresse_retour; |
|
Line 1513 typedef struct variable
|
Line 1537 typedef struct variable
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure variable partagée |
Structure variable partagée |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1558 typedef struct variable_statique
|
Line 1582 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. |
| |
|
| unsigned long niveau; |
unsigned long niveau; |
|
Line 1666 typedef struct rpl_arguments
|
Line 1690 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 1691 typedef struct rpl_arguments
|
Line 1715 typedef struct rpl_arguments
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Structure d'arbre des instructions intrinsèques |
Structure d'arbre des instructions intrinsèques |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 1723 typedef struct tableau_variables
|
Line 1747 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 |
| unsigned long niveau; |
unsigned long niveau; |
| |
|
| struct_objet *objet; // pointeur sur l'objet et non copie |
struct_objet *objet; // pointeur sur l'objet et non copie |
|
Line 1740 typedef struct liste_variables
|
Line 1764 typedef struct liste_variables
|
| { |
{ |
| // 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 1853 typedef struct processus
|
Line 1877 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 1896 typedef struct processus
|
Line 1920 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 2102 typedef struct processus
|
Line 2126 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 2125 typedef struct processus
|
Line 2149 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 2152 typedef struct processus
|
Line 2176 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 2183 typedef struct processus
|
Line 2207 typedef struct processus
|
| struct_liste_profilage2 *pile_profilage_fonctions; |
struct_liste_profilage2 *pile_profilage_fonctions; |
| struct timeval horodatage_profilage; |
struct timeval horodatage_profilage; |
| |
|
| // Mutex spécifique au processus et donnant accès à la pile des processus |
// Mutex spécifique au processus et donnant accès à la pile des processus |
| pthread_mutex_t mutex; |
pthread_mutex_t mutex; |
| pthread_mutex_t mutex_allocation; |
pthread_mutex_t mutex_allocation; |
| |
|
| // Mutex autorisant les fork() |
// Mutex autorisant les fork() |
| sem_t |
sem_t __PTR__ semaphore_fork; |
| # ifdef SEMAPHORES_NOMMES |
|
| * |
|
| # endif |
|
| semaphore_fork; |
|
| |
|
| /* Mutexes */ |
/* Mutexes */ |
| |
|
| struct_liste_chainee *liste_mutexes; |
struct_liste_chainee *liste_mutexes; |
| pthread_mutex_t protection_liste_mutexes; |
pthread_mutex_t protection_liste_mutexes; |
| |
unsigned int sections_critiques; |
| |
|
| /* 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; |
| unsigned long taille_pile_tampon; |
unsigned long taille_pile_tampon; |
|
Line 2293 typedef struct fonction
|
Line 2314 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 2370 void instruction_cosh(struct_processus *
|
Line 2391 void instruction_cosh(struct_processus *
|
| void instruction_cov(struct_processus *s_etat_processus); |
void instruction_cov(struct_processus *s_etat_processus); |
| void instruction_cr(struct_processus *s_etat_processus); |
void instruction_cr(struct_processus *s_etat_processus); |
| void instruction_create(struct_processus *s_etat_processus); |
void instruction_create(struct_processus *s_etat_processus); |
| |
void instruction_critical(struct_processus *s_etat_processus); |
| void instruction_crmtx(struct_processus *s_etat_processus); |
void instruction_crmtx(struct_processus *s_etat_processus); |
| void instruction_cross(struct_processus *s_etat_processus); |
void instruction_cross(struct_processus *s_etat_processus); |
| void instruction_crsmphr(struct_processus *s_etat_processus); |
void instruction_crsmphr(struct_processus *s_etat_processus); |
|
Line 2454 void instruction_fleche_str(struct_proce
|
Line 2476 void instruction_fleche_str(struct_proce
|
| void instruction_fleche_table(struct_processus *s_etat_processus); |
void instruction_fleche_table(struct_processus *s_etat_processus); |
| void instruction_floor(struct_processus *s_etat_processus); |
void instruction_floor(struct_processus *s_etat_processus); |
| void instruction_for(struct_processus *s_etat_processus); |
void instruction_for(struct_processus *s_etat_processus); |
| |
void instruction_forall(struct_processus *s_etat_processus); |
| void instruction_format(struct_processus *s_etat_processus); |
void instruction_format(struct_processus *s_etat_processus); |
| void instruction_fp(struct_processus *s_etat_processus); |
void instruction_fp(struct_processus *s_etat_processus); |
| void instruction_fs_test(struct_processus *s_etat_processus); |
void instruction_fs_test(struct_processus *s_etat_processus); |
|
Line 2822 void instruction_yield(struct_processus
|
Line 2845 void instruction_yield(struct_processus
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Procédures |
Procédures |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3007 int envoi_signal_thread(pthread_t tid, e
|
Line 3030 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 3053 struct_vecteur *variance_statistique(str
|
Line 3076 struct_vecteur *variance_statistique(str
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Gestion des bibliothèques |
Gestion des bibliothèques |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3082 struct_liste_chainee *sauvegarde_argumen
|
Line 3105 struct_liste_chainee *sauvegarde_argumen
|
| #ifndef RPLARGS |
#ifndef RPLARGS |
| unsigned char *analyse_algebrique(struct_processus *s_etat_processus, |
unsigned char *analyse_algebrique(struct_processus *s_etat_processus, |
| unsigned char *chaine_algebrique, struct_liste_chainee **l_base_liste); |
unsigned char *chaine_algebrique, struct_liste_chainee **l_base_liste); |
| |
unsigned char *analyse_flux(struct_processus *s_etat_processus, |
| |
unsigned char *flux, long longueur); |
| unsigned char *recherche_chemin_fichiers_temporaires(struct_processus |
unsigned char *recherche_chemin_fichiers_temporaires(struct_processus |
| *s_etat_processus); |
*s_etat_processus); |
| unsigned char *compactage(unsigned char *chaine); |
unsigned char *compactage(unsigned char *chaine); |
|
Line 3255 unsigned char longueur_entiers_binaires(
|
Line 3280 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 3279 integer8 position_caractere_de_chaine(st
|
Line 3304 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 3332 struct_objet *simplification(struct_proc
|
Line 3357 struct_objet *simplification(struct_proc
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Fonctions gérant les arbres de simplification |
Fonctions gérant les arbres de simplification |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3349 void simplification_arbre(struct_process
|
Line 3374 void simplification_arbre(struct_process
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Fonctions gérant la complétion automatique |
Fonctions gérant la complétion automatique |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3361 char **completion_matches();
|
Line 3386 char **completion_matches();
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Arithmétique |
Arithmétique |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3407 void f77soustractionrc_(real8 *ra, compl
|
Line 3432 void f77soustractionrc_(real8 *ra, compl
|
| |
|
| /* |
/* |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| Trigonométrie complexe |
Trigonométrie complexe |
| -------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
| */ |
*/ |
| |
|
|
Line 3504 void zgeev_(unsigned char *calcul_vp_gau
|
Line 3529 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 3517 void zggev_(unsigned char *calcul_vp_gau
|
Line 3542 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 3532 void zgelsd_(integer4 *nombre_lignes_a,
|
Line 3557 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 3593 void zgees_(unsigned char *calcul_vecteu
|
Line 3618 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 3614 void zgelsy_(integer4 *m, integer4 *n, i
|
Line 3639 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