rpl/src/rpl.h - diff

Return to rpl.h CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rpl.h between versions 1.146 and 1.205

version 1.146, 2011/11/28 21:42:04	version 1.205, 2013/03/10 17:01:05
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.5	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 19	Line 19
================================================================================	================================================================================
*/	*/


#ifndef INCLUSION_RPL	#ifndef INCLUSION_RPL
#define INCLUSION_RPL	#define INCLUSION_RPL

Line 71	Line 70
#include <syslog.h>	#include <syslog.h>
#include <errno.h>	#include <errno.h>
#include <stdarg.h>	#include <stdarg.h>
	#include <poll.h>

#ifndef RPLARGS	#ifndef RPLARGS
# include <sys/mman.h>	# include <sys/mman.h>
Line 91	Line 91
# include <dlfcn.h>	# include <dlfcn.h>
# include <fcntl.h>	# include <fcntl.h>
# include <pthread.h>	# include <pthread.h>
	# include <regex.h>

# ifdef OS2	# ifdef OS2
# undef pthread_mutexattr_settype	# undef pthread_mutexattr_settype
Line 143	Line 144
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 162	Line 164
# include "iconv.h"	# include "iconv.h"

# include "openssl/evp.h"	# include "openssl/evp.h"
	# ifndef OPENSSL_NO_MD2
	# include "openssl/md2.h"
	# endif
	# ifndef OPENSSL_NO_MD4
	# include "openssl/md4.h"
	# endif
	# ifndef OPENSSL_NO_MD5
	# include "openssl/md5.h"
	# endif
	# ifndef OPENSSL_NO_MDC2
	# include "openssl/mdc2.h"
	# endif
	# ifndef OPENSSL_NO_RIPEMD
	# include "openssl/ripemd.h"
	# endif
	# ifndef OPENSSL_NO_SHA
	# include "openssl/sha.h"
	# endif
	# ifndef OPENSSL_NO_WHIRLPOOL
	# include "openssl/whrlpool.h"
	# endif
	# ifndef OPENSSL_NO_AES
	# include "openssl/aes.h"
	# endif
	# ifndef OPENSSL_NO_CAMELLIA
	# include "openssl/camellia.h"
	# endif
	# ifndef OPENSSL_NO_RC2
	# include "openssl/rc2.h"
	# endif
	# ifndef OPENSSL_NO_IDEA
	# include "openssl/idea.h"
	# endif

# include "sqlite3.h"	# include "sqlite3.h"
# include "sigsegv.h"	# include "sigsegv.h"
# ifdef OS2	# ifdef OS2
Line 213	Line 249
# 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	Bugs spécifiques
================================================================================	================================================================================
*/	*/

	// Néant

	/*
	================================================================================
	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,
Line 253 typedef struct queue_signaux	Line 314 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 268 typedef struct queue_signaux	Line 333 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 317 union semun	Line 376 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 338 union semun	Line 398 union semun
// SIGTSTP	// SIGTSTP
// SIGCONT	// SIGCONT
// SIGPIPE	// SIGPIPE
	// SIGUSR1 et SIGUSR2 sont utilisé par libsigsegv.
	// SIGHUP
	// 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 382 union semun	Line 445 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 406 typedef unsigned char t_8_bits;	Line 454 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_creation_variable_partagee
	__STATIC_MUTEX_INITIALIZATION__;
	__EXTERN__ pthread_mutex_t mutex_sections_critiques;
	__EXTERN__ pthread_mutex_t mutex_liste_variables_partagees;

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 517 sem_t *sem_open2(pid_t pid, int ordre);	Line 544 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 936 pid_t debug_fork();	Line 960 pid_t debug_fork();
# define d_ex_erreur_interne_rplcas __erreur(84)	# define d_ex_erreur_interne_rplcas __erreur(84)
# 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_instruction_indisponible __erreur(88)
	# define d_ex_chiffrement __erreur(89)
	# define d_ex_chiffrement_indisponible __erreur(90)
	# define d_ex_longueur_clef_chiffrement __erreur(91)
	# define d_ex_taille_message __erreur(92)
#endif	#endif


Line 1197 typedef struct descripteur_fichier	Line 1227 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 1231 typedef struct connecteur_sql	Line 1264 typedef struct connecteur_sql
# ifdef POSTGRESQL_SUPPORT	# ifdef POSTGRESQL_SUPPORT
PGconn *postgresql;	PGconn *postgresql;
# endif	# endif
	sqlite3 *sqlite;
} descripteur;	} descripteur;
} struct_connecteur_sql;	} struct_connecteur_sql;
#endif	#endif
Line 1244 typedef struct connecteur_sql	Line 1278 typedef struct connecteur_sql
"POSTGRESQL") == 0) \	"POSTGRESQL") == 0) \
postgresqlclose((((struct_connecteur_sql ) (*s_objet).objet)) \	postgresqlclose((((struct_connecteur_sql ) (*s_objet).objet)) \
.descripteur); \	.descripteur); \
	else if (strcmp((((struct_connecteur_sql ) (*s_objet).objet)).type, \
	"SQLITE") == 0) \
	sqlite3_close((((struct_connecteur_sql ) (*s_objet).objet)) \
	.descripteur.sqlite); \
else \	else \
BUG(1, uprintf("SQL type '%s' not allowed!", \	BUG(1, uprintf("SQL type '%s' not allowed!", \
(((struct_connecteur_sql ) (*s_objet).objet)).type));	(((struct_connecteur_sql ) (*s_objet).objet)).type));
Line 1293 typedef struct liste_chainee	Line 1331 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 1415 typedef struct liste_pile_systeme	Line 1488 typedef struct liste_pile_systeme
{	{
struct liste_pile_systeme *suivant;	struct liste_pile_systeme *suivant;

struct_liste_chainee *pointeur_objet_retour;

struct_objet *indice_boucle;	struct_objet *indice_boucle;
struct_objet *limite_indice_boucle;	struct_objet *limite_indice_boucle;
struct_objet *objet_de_test;	struct_objet *objet_de_test;
Line 1454 typedef struct liste_pile_systeme	Line 1525 typedef struct liste_pile_systeme

/*	/*
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;
unsigned long niveau_courant;	unsigned long niveau_courant;
struct_objet *pointeur_adresse_retour;	struct_liste_chainee *pointeur_objet_retour;
} struct_liste_pile_systeme;	} struct_liste_pile_systeme;
#endif	#endif

Line 1491 typedef union position_variable	Line 1564 typedef union position_variable
typedef struct variable	typedef struct variable
{	{
unsigned char *nom;	unsigned char *nom;
unsigned char origine;	unsigned char origine; // P(rogramme) ou E(valuation)

unsigned long niveau;	unsigned long niveau;

Line 1523 typedef struct variable_partage	Line 1596 typedef struct variable_partage
union_position_variable variable_partagee;	union_position_variable variable_partagee;

struct_objet *objet;	struct_objet *objet;
} struct_variable_partagee;

typedef struct table_variables_partagees
{
pthread_mutex_t mutex;

volatile struct_variable_partagee *table;	pthread_mutex_t mutex;
	} struct_variable_partagee;
volatile unsigned long nombre_variables;
volatile unsigned long nombre_variables_allouees;

unsigned long position_variable;
} struct_table_variables_partagees;

#endif	#endif

Line 1699 typedef struct instruction	Line 1762 typedef struct instruction

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Structure d'arbre des variables variable globales et locales	Structure d'arbre des variables globales et locales
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

#ifndef RPLARGS	#ifndef RPLARGS
typedef struct arbre_variables	typedef struct arbre_variables
{	{
unsigned int noeuds_utilises;	unsigned int noeuds_utilises;
signed int indice_tableau_pere;	// Nombre de noeuds utilisés dans le
struct arbre_variables *noeud_pere;	// tableau **noeuds
struct arbre_variables **noeuds;	signed int indice_tableau_pere;
struct liste_variables *feuille;	// Position de la structure dans le
	// tableau **noeuds du père

	struct arbre_variables *noeud_pere;
	struct arbre_variables **noeuds;

	struct liste_variables *feuille;
	struct liste_variables_statiques *feuille_statique;
} struct_arbre_variables;	} struct_arbre_variables;

	typedef struct arbre_variables_partagees
	{
	unsigned int noeuds_utilises;
	// Nombre de noeuds utilisés dans le
	// tableau **noeuds
	signed int indice_tableau_pere;
	// Position de la structure dans le
	// tableau **noeuds du père

	struct arbre_variables_partagees *noeud_pere;
	struct arbre_variables_partagees **noeuds;

	struct liste_variables_partagees *feuille;

	pthread_mutex_t mutex_feuille;
	} struct_arbre_variables_partagees;

	#define INITIALISATION_MUTEX(mutex) \
	do { \
	pthread_mutexattr_t attributs_mutex; \
	pthread_mutexattr_init(&attributs_mutex); \
	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); \
	pthread_mutex_init(&(mutex), &attributs_mutex); \
	pthread_mutexattr_destroy(&attributs_mutex); \
	} while(0)

typedef struct tableau_variables	typedef struct tableau_variables
{	{
unsigned char origine;	unsigned char origine;
Line 1724 typedef struct tableau_variables	Line 1820 typedef struct tableau_variables
// de l'objet.	// de l'objet.

logical1 variable_verrouillee;	logical1 variable_verrouillee;
	logical1 variable_masquee;
union_position_variable variable_statique;	union_position_variable variable_statique;
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.
typedef struct liste_variables	typedef struct liste_variables
{	{
union	union
Line 1744 typedef struct liste_variables	Line 1842 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
	// circulaire.
	typedef struct liste_variables_statiques
	{
	struct liste_variables_statiques *suivant;
	struct liste_variables_statiques *precedent;
	struct liste_variables_statiques *reference;
	struct_arbre_variables *feuille;
	struct_variable_statique *variable;
	} struct_liste_variables_statiques;

	typedef struct liste_variables_partagees
	{
	struct liste_variables_partagees *suivant;
	struct liste_variables_partagees *precedent;
	struct liste_variables_partagees *reference;
	struct_arbre_variables_partagees *feuille;
	struct_variable_partagee *variable;
	pthread_t tid;
	pid_t pid;
	} struct_liste_variables_partagees;
#endif	#endif

/*	/*
Line 1833 typedef struct processus	Line 1952 typedef struct processus
logical1 presence_fusible;	logical1 presence_fusible;
pthread_t thread_fusible;	pthread_t thread_fusible;
pthread_t thread_surveille_par_fusible;	pthread_t thread_surveille_par_fusible;
	pthread_t thread_signaux;
	int pipe_signaux[2];

volatile int pointeur_signal_ecriture;	volatile int pointeur_signal_ecriture;
volatile int pointeur_signal_lecture;	volatile int pointeur_signal_lecture;
Line 1859 typedef struct processus	Line 1980 typedef struct processus

struct_arbre_variables *s_arbre_variables;	struct_arbre_variables *s_arbre_variables;
struct_liste_variables *l_liste_variables_par_niveau;	struct_liste_variables *l_liste_variables_par_niveau;
	struct_liste_variables_statiques
	*l_liste_variables_statiques;

	struct_arbre_variables_partagees
	**s_arbre_variables_partagees;
	struct_liste_variables_partagees
	**l_liste_variables_partagees;

logical1 niveau_supprime;	logical1 niveau_supprime;

struct_variable *pointeur_variable_courante;	struct_variable *pointeur_variable_courante;
struct_liste_variables *pointeur_feuille_courante;	struct_liste_variables *pointeur_feuille_courante;
	struct_variable_statique *pointeur_variable_statique_courante;
	struct_variable_partagee *pointeur_variable_partagee_courante;

int *pointeurs_caracteres_variables;	int *pointeurs_caracteres_variables;
int nombre_caracteres_variables;	int nombre_caracteres_variables;

struct_variable_statique *s_liste_variables_statiques;
unsigned long nombre_variables_statiques;
unsigned long nombre_variables_statiques_allouees;

struct_table_variables_partagees
*s_liste_variables_partagees;

unsigned long niveau_courant;	unsigned long niveau_courant;
unsigned long niveau_initial;	unsigned long niveau_initial;
unsigned long position_variable_statique_courante;

logical1 creation_variables_statiques;	logical1 creation_variables_statiques;
logical1 creation_variables_partagees;	logical1 creation_variables_partagees;
Line 2165 typedef struct processus	Line 2288 typedef struct processus

pid_t pid_processus_pere;	pid_t pid_processus_pere;
pthread_t tid_processus_pere;	pthread_t tid_processus_pere;
	pthread_t tid;

logical1 processus_detache;	logical1 processus_detache;

Line 2181 typedef struct processus	Line 2305 typedef struct processus
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 */

	volatile logical1 requete_redemarrage;

/* Gestion optimisée de la mémoire */	/* Gestion optimisée de la mémoire */

Line 2243 typedef struct processus	Line 2368 typedef struct processus
struct_arbre_variables *variables_noeud[TAILLE_CACHE];	struct_arbre_variables *variables_noeud[TAILLE_CACHE];
int pointeur_variables_noeud;	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];	struct_liste_variables *variables_feuille[TAILLE_CACHE];
int pointeur_variables_feuille;	int pointeur_variables_feuille;

Line 2251 typedef struct processus	Line 2380 typedef struct processus

struct_arbre_variables **variables_tableau_noeuds[TAILLE_CACHE];	struct_arbre_variables **variables_tableau_noeuds[TAILLE_CACHE];
int pointeur_variables_tableau_noeuds;	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

Line 2325 void instruction_ceil(struct_processus *	Line 2459 void instruction_ceil(struct_processus *
void instruction_centr(struct_processus *s_etat_processus);	void instruction_centr(struct_processus *s_etat_processus);
void instruction_cf(struct_processus *s_etat_processus);	void instruction_cf(struct_processus *s_etat_processus);
void instruction_chr(struct_processus *s_etat_processus);	void instruction_chr(struct_processus *s_etat_processus);
	void instruction_cipher(struct_processus *s_etat_processus);
void instruction_clear(struct_processus *s_etat_processus);	void instruction_clear(struct_processus *s_etat_processus);
void instruction_cllcd(struct_processus *s_etat_processus);	void instruction_cllcd(struct_processus *s_etat_processus);
void instruction_clmf(struct_processus *s_etat_processus);	void instruction_clmf(struct_processus *s_etat_processus);
Line 2359 void instruction_cosh(struct_processus *	Line 2494 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 2384 void instruction_detach(struct_processus	Line 2520 void instruction_detach(struct_processus
void instruction_dft(struct_processus *s_etat_processus);	void instruction_dft(struct_processus *s_etat_processus);
void instruction_dgtiz(struct_processus *s_etat_processus);	void instruction_dgtiz(struct_processus *s_etat_processus);
void instruction_diag_fleche(struct_processus *s_etat_processus);	void instruction_diag_fleche(struct_processus *s_etat_processus);
	void instruction_digest(struct_processus *s_etat_processus);
void instruction_disp(struct_processus *s_etat_processus);	void instruction_disp(struct_processus *s_etat_processus);
void instruction_division(struct_processus *s_etat_processus);	void instruction_division(struct_processus *s_etat_processus);
void instruction_do(struct_processus *s_etat_processus);	void instruction_do(struct_processus *s_etat_processus);
Line 2443 void instruction_fleche_str(struct_proce	Line 2580 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 2579 void instruction_pmax(struct_processus *	Line 2717 void instruction_pmax(struct_processus *
void instruction_pmin(struct_processus *s_etat_processus);	void instruction_pmin(struct_processus *s_etat_processus);
void instruction_poke(struct_processus *s_etat_processus);	void instruction_poke(struct_processus *s_etat_processus);
void instruction_polar(struct_processus *s_etat_processus);	void instruction_polar(struct_processus *s_etat_processus);
	void instruction_poll(struct_processus *s_etat_processus);
void instruction_pos(struct_processus *s_etat_processus);	void instruction_pos(struct_processus *s_etat_processus);
void instruction_pourcent(struct_processus *s_etat_processus);	void instruction_pourcent(struct_processus *s_etat_processus);
void instruction_pourcent_ch(struct_processus *s_etat_processus);	void instruction_pourcent_ch(struct_processus *s_etat_processus);
Line 2635 void instruction_read(struct_processus *	Line 2774 void instruction_read(struct_processus *
void instruction_recode(struct_processus *s_etat_processus);	void instruction_recode(struct_processus *s_etat_processus);
void instruction_recv(struct_processus *s_etat_processus);	void instruction_recv(struct_processus *s_etat_processus);
void instruction_redraw(struct_processus *s_etat_processus);	void instruction_redraw(struct_processus *s_etat_processus);
	void instruction_regex(struct_processus *s_etat_processus);
void instruction_relax(struct_processus *s_etat_processus);	void instruction_relax(struct_processus *s_etat_processus);
void instruction_remove(struct_processus *s_etat_processus);	void instruction_remove(struct_processus *s_etat_processus);
void instruction_res(struct_processus *s_etat_processus);	void instruction_res(struct_processus *s_etat_processus);
	void instruction_restart(struct_processus *s_etat_processus);
void instruction_recall(struct_processus *s_etat_processus);	void instruction_recall(struct_processus *s_etat_processus);
void instruction_regv(struct_processus *s_etat_processus);	void instruction_regv(struct_processus *s_etat_processus);
void instruction_repeat(struct_processus *s_etat_processus);	void instruction_repeat(struct_processus *s_etat_processus);
Line 2907 void interruption2(int signal);	Line 3048 void interruption2(int signal);
void interruption3(int signal);	void interruption3(int signal);
void interruption4(int signal);	void interruption4(int signal);
void interruption5(int signal);	void interruption5(int signal);
	void interruption6(int signal);
void interruption_depassement_pile(int urgence, stackoverflow_context_t scp);	void interruption_depassement_pile(int urgence, stackoverflow_context_t scp);
void inversion_matrice(struct_processus *s_etat_processus,	void inversion_matrice(struct_processus *s_etat_processus,
struct_matrice *s_matrice);	struct_matrice *s_matrice);
Line 2924 void liberation_arbre_instructions(struc	Line 3066 void liberation_arbre_instructions(struc
struct_instruction *arbre);	struct_instruction *arbre);
void liberation_arbre_variables(struct_processus *s_etat_processus,	void liberation_arbre_variables(struct_processus *s_etat_processus,
struct_arbre_variables *arbre, logical1 definitions);	struct_arbre_variables *arbre, logical1 definitions);
	void liberation_arbre_variables_partagees(struct_processus *s_etat_processus,
	struct_arbre_variables_partagees *arbre);
void liberation_contexte_cas(struct_processus *s_etat_processus);	void liberation_contexte_cas(struct_processus *s_etat_processus);
void liberation_generateur_aleatoire(struct_processus *s_etat_processus);	void liberation_generateur_aleatoire(struct_processus *s_etat_processus);
	void liberation_mutexes_arbre_variables_partagees(struct_processus
	s_etat_processus, struct_arbre_variables_partagees l_element_courant);
void liberation_threads(struct_processus *s_etat_processus);	void liberation_threads(struct_processus *s_etat_processus);
void liberation_profil(struct_processus *s_etat_processus);	void liberation_profil(struct_processus *s_etat_processus);
void localisation_courante(struct_processus *s_etat_processus);	void localisation_courante(struct_processus *s_etat_processus);
Line 2950 void scrutation_interruptions(struct_pro	Line 3096 void scrutation_interruptions(struct_pro
void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau);	void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau);
void surveillance_processus(void argument);	void surveillance_processus(void argument);
void swap(void variable_1, void variable_2, unsigned long taille_octets);	void swap(void variable_1, void variable_2, unsigned long taille_octets);
	void thread_signaux(void argument);
void trace(struct_processus s_etat_processus, FILE flux);	void trace(struct_processus s_etat_processus, FILE flux);
void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus);	void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus);
void traitement_exceptions_gsl(const char reason, const char file,	void traitement_exceptions_gsl(const char reason, const char file,
Line 3008 complex16 sommation_vecteur_complexe(com	Line 3155 complex16 sommation_vecteur_complexe(com
*/	*/

#ifndef RPLARGS	#ifndef RPLARGS
int rplinit(int argc, char argv[], unsigned char *resultats, char rpl_home);	int rplinit(int argc, char argv[], char envp[],
	unsigned char **resultats, char rpl_home);
#endif	#endif

/*	/*
Line 3066 struct_liste_chainee *sauvegarde_argumen	Line 3214 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 *recherche_chemin_fichiers_temporaires(struct_processus	unsigned char analyse_flux(struct_processus s_etat_processus,
*s_etat_processus);	unsigned char *flux, long longueur);
	unsigned char chiffrement(const EVP_CIPHER type_chiffrement,
	logical1 encodage, unsigned char *message, unsigned int
	longueur_message, unsigned char *clef, unsigned int longueur_clef,
	unsigned char *vecteur_initialisation,
	unsigned int *longueur_message_chiffre);
unsigned char compactage(unsigned char chaine);	unsigned char compactage(unsigned char chaine);
unsigned char conversion_majuscule(unsigned char chaine);	unsigned char conversion_majuscule(unsigned char chaine);
unsigned char creation_nom_fichier(struct_processus s_etat_processus,	unsigned char creation_nom_fichier(struct_processus s_etat_processus,
Line 3080 unsigned char *formateur(struct_processu	Line 3233 unsigned char *formateur(struct_processu
unsigned char formateur_fichier(struct_processus s_etat_processus,	unsigned char formateur_fichier(struct_processus s_etat_processus,
struct_objet s_objet, struct_objet s_format,	struct_objet s_objet, struct_objet s_format,
long longueur, long longueur_champ, unsigned char format,	long longueur, long longueur_champ, unsigned char format,
unsigned char type, long longueur_effective, long recursivite);	unsigned char type, long longueur_effective, long recursivite,
	logical1 export_fichier);
unsigned char formateur_flux(struct_processus s_etat_processus,	unsigned char formateur_flux(struct_processus s_etat_processus,
unsigned char donnees, long longueur);	unsigned char donnees, long longueur);
unsigned char formateur_fichier_nombre(struct_processus s_etat_processus,	unsigned char formateur_fichier_nombre(struct_processus s_etat_processus,
void *valeur_numerique, unsigned char type,	void *valeur_numerique, unsigned char type,
long longueur, long longueur_champ, unsigned char format);	long longueur, long longueur_champ, unsigned char format);
unsigned char *formateur_fichier_binaire_nombre(struct_processus	unsigned char *formateur_fichier_binaire_nombre(struct_processus
s_etat_processus, void valeur_numerique, unsigned char type,	s_etat_processus, void valeur_numerique, unsigned char type_entree,
long longueur, long *longueur_conversion);	unsigned char type, long longueur, long *longueur_conversion);
unsigned char formateur_fichier_reel(struct_processus s_etat_processus,	unsigned char formateur_fichier_reel(struct_processus s_etat_processus,
void *valeur_numerique, unsigned char type,	void *valeur_numerique, unsigned char type,
long longueur, long longueur_champ, unsigned char format);	long longueur, long longueur_champ, unsigned char format);
Line 3100 unsigned char *messages(struct_processus	Line 3254 unsigned char *messages(struct_processus
unsigned char pointeur_ieme_caractere(struct_processus s_etat_processus,	unsigned char pointeur_ieme_caractere(struct_processus s_etat_processus,
unsigned char *chaine, integer8 position);	unsigned char *chaine, integer8 position);
unsigned char purification_chaine(unsigned char chaine);	unsigned char purification_chaine(unsigned char chaine);
	unsigned char *recherche_chemin_fichiers_temporaires(struct_processus
	*s_etat_processus);
unsigned char reencodage(struct_processus s_etat_processus,	unsigned char reencodage(struct_processus s_etat_processus,
unsigned char chaine_entree, unsigned char codage_entree,	unsigned char chaine_entree, unsigned char codage_entree,
unsigned char *codage_sortie);	unsigned char *codage_sortie);
Line 3116 unsigned char *transliteration(struct_pr	Line 3272 unsigned char *transliteration(struct_pr

#ifndef RPLARGS	#ifndef RPLARGS
logical1 analyse_syntaxique(struct_processus *s_etat_processus);	logical1 analyse_syntaxique(struct_processus *s_etat_processus);
	logical1 arret_thread_signaux(struct_processus *s_etat_processus);
logical1 caracteristiques_fichier(struct_processus *s_etat_processus,	logical1 caracteristiques_fichier(struct_processus *s_etat_processus,
unsigned char nom, logical1 existence, logical1 *ouverture,	unsigned char nom, logical1 existence, logical1 *ouverture,
unsigned long *unite);	unsigned long *unite);
Line 3146 logical1 initialisation_fichier_acces_di	Line 3303 logical1 initialisation_fichier_acces_di
sqlite3 *sqlite, logical1 binaire);	sqlite3 *sqlite, logical1 binaire);
logical1 initialisation_fichier_acces_indexe(struct_processus *s_etat_processus,	logical1 initialisation_fichier_acces_indexe(struct_processus *s_etat_processus,
sqlite3 *sqlite, integer8 position_clef, logical1 binaire);	sqlite3 *sqlite, integer8 position_clef, logical1 binaire);
	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 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_variable_par_niveau(struct_processus *s_etat_processus);	logical1 retrait_variables_par_niveau(struct_processus *s_etat_processus);
logical1 retrait_variable_partagee(struct_processus *s_etat_processus,	logical1 retrait_variable_partagee(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position);	unsigned char *nom_variable, union_position_variable position);
	logical1 retrait_variables_partagees_locales(
	struct_processus *s_etat_processus);
logical1 retrait_variable_statique(struct_processus *s_etat_processus,	logical1 retrait_variable_statique(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position);	unsigned char *nom_variable, union_position_variable position);
	logical1 retrait_variables_statiques_locales(
	struct_processus *s_etat_processus);
logical1 sequenceur(struct_processus *s_etat_processus);	logical1 sequenceur(struct_processus *s_etat_processus);
logical1 sequenceur_optimise(struct_processus *s_etat_processus);	logical1 sequenceur_optimise(struct_processus *s_etat_processus);
#endif	#endif
Line 3176 logical1 recherche_variable(struct_proce	Line 3338 logical1 recherche_variable(struct_proce
unsigned char *nom_variable);	unsigned char *nom_variable);
logical1 recherche_variable_globale(struct_processus *s_etat_processus,	logical1 recherche_variable_globale(struct_processus *s_etat_processus,
unsigned char *nom_variable);	unsigned char *nom_variable);
logical1 recherche_variable_partagee(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position,
unsigned char origine);
logical1 recherche_variable_statique(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position,
unsigned char origine);
logical1 test_cfsf(struct_processus *s_etat_processus,	logical1 test_cfsf(struct_processus *s_etat_processus,
unsigned char indice_drapeau);	unsigned char indice_drapeau);
logical1 test_expression_rpn(unsigned char *chaine);	logical1 test_expression_rpn(unsigned char *chaine);
Line 3212 int alsprintf(unsigned char **strp, cons	Line 3368 int alsprintf(unsigned char **strp, cons
int interruption_violation_access(void *adresse_fautive, int gravite);	int interruption_violation_access(void *adresse_fautive, int gravite);
#ifndef RPLARGS	#ifndef RPLARGS
int liste_variables(struct_processus *s_etat_processus,	int liste_variables(struct_processus *s_etat_processus,
struct_tableau_variables *tableau, int position,	struct_tableau_variables *tableau);
struct_arbre_variables *l_element_courant);	int nombre_variables(struct_processus *s_etat_processus);
int nombre_variables(struct_processus *s_etat_processus,	int readline_analyse_syntaxique(int count, int key);
struct_arbre_variables *l_element_courant);	int readline_effacement(int count, int key);
#endif	#endif
int tex_fprintf(struct_processus *s_etat_processus,	int tex_fprintf(struct_processus *s_etat_processus,
file flux, const char format, ...);	file flux, const char format, ...);
Line 3305 struct_objet *allocation(struct_processu	Line 3461 struct_objet *allocation(struct_processu
#ifndef RPLARGS	#ifndef RPLARGS
struct_objet formateur_date(struct_processus s_etat_processus,	struct_objet formateur_date(struct_processus s_etat_processus,
struct timeval *temps);	struct timeval *temps);
	struct_objet lecture_fichier_non_formate(struct_processus s_etat_processus,
	void *argument, integer8 longueur_buffer, logical1 recursivite);
struct_objet lecture_pipe(struct_processus s_etat_processus, int pipe);	struct_objet lecture_pipe(struct_processus s_etat_processus, int pipe);
struct_objet parametres_sql(struct_processus s_etat_processus,	struct_objet parametres_sql(struct_processus s_etat_processus,
struct_objet *s_parametres);	struct_objet *s_parametres);
struct_objet simplification(struct_processus s_etat_processus,	struct_objet simplification(struct_processus s_etat_processus,
struct_objet *s_objet);	struct_objet *s_objet);

	struct_arbre_variables allocation_noeud(struct_processus s_etat_processus);
	struct_arbre_variables **allocation_tableau_noeuds(
	struct_processus *s_etat_processus);

	/*
	--------------------------------------------------------------------------------
	Fonctions renvoyant un pointeur sur une *struct_liste_variables_statiques
	ou *struct_liste_variables_partagees
	--------------------------------------------------------------------------------
	*/

	struct_liste_variables_statiques *recherche_variable_statique(struct_processus
	s_etat_processus, unsigned char nom_variable,
	union_position_variable position, unsigned char origine);
	struct_liste_variables_partagees *recherche_variable_partagee(struct_processus
	s_etat_processus, unsigned char nom_variable,
	union_position_variable position, unsigned char origine);
#endif	#endif

/*	/*
Line 3364 void f77multiplicationci_(complex16 *ca,	Line 3540 void f77multiplicationci_(complex16 *ca,
void f77multiplicationcr_(complex16 ca, real8 rb, complex16 *resultat);	void f77multiplicationcr_(complex16 ca, real8 rb, complex16 *resultat);

void f77puissancecc_(complex16 ca, complex16 cb, complex16 *resultat);	void f77puissancecc_(complex16 ca, complex16 cb, complex16 *resultat);
void f77puissanceci_(complex16 ca, integer8 ib, complex16 *resultat,	void f77puissanceci_(complex16 ca, integer8 ib, complex16 *resultat);
integer4 *troncature);
void f77puissancecr_(complex16 ca, real8 rb, complex16 *resultat);	void f77puissancecr_(complex16 ca, real8 rb, complex16 *resultat);
void f77puissanceic_(integer8 ia, complex16 cb, complex16 *resultat);	void f77puissanceic_(integer8 ia, complex16 cb, complex16 *resultat);
void f77puissanceii_(integer8 ia, integer8 ib, integer8 *resultat);	void f77puissanceii_(integer8 ia, integer8 ib, integer8 *resultat);
void f77puissanceir_(integer8 ia, real8 rb, real8 *resultat);	void f77puissanceir_(integer8 ia, real8 rb, real8 *resultat);
void f77puissancerc_(real8 ra, complex16 cb, complex16 *resultat);	void f77puissancerc_(real8 ra, complex16 cb, complex16 *resultat);
void f77puissanceri_(real8 ra, integer8 ib, real8 *resultat,	void f77puissanceri_(real8 ra, integer8 ib, real8 *resultat);
integer4 *troncature);
void f77puissancerr_(real8 ra, real8 rb, real8 *resultat);	void f77puissancerr_(real8 ra, real8 rb, real8 *resultat);

void f77racinecarreec_(complex16 ca, complex16 resultat);	void f77racinecarreec_(complex16 ca, complex16 resultat);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.146
changed lines
	Added in v.1.205