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.46 and 1.176

version 1.46, 2010/06/28 14:30:33	version 1.176, 2012/09/29 17:53:02
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.17	RPL/2 (R) version 4.1.10
Copyright (C) 1989-2010 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 23	Line 23
#ifndef INCLUSION_RPL	#ifndef INCLUSION_RPL
#define INCLUSION_RPL	#define INCLUSION_RPL

#define _GNU_SOURCE	#ifndef __RPLCAS
#define _POSIX_C_SOURCE 200112L	# define _GNU_SOURCE
	# define _XOPEN_SOURCE 700
	#endif

#define _REENTRANT	#define _REENTRANT

#ifdef Darwin	#ifndef __RPLCAS
# define _DARWIN_C_SOURCE	# ifdef Darwin
	# define _DARWIN_C_SOURCE
	# endif

	# ifdef OpenBSD
	# define _BSD_SOURCE
	# endif
	#endif

	#ifdef OS2
	# ifndef __RPLCAS
	# define _BSD_SOURCE
	# endif

	# include <types.h>
	enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR };
	# define SHUT_RD SHUT_RD
	# define SHUT_WR SHUT_WR
	# define SHUT_RDWR SHUT_RDWR

	# include "getaddrinfo-conv.h"

	# define sched_yield(arg)
#endif	#endif


Line 46	Line 71
#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>
	# include <sys/time.h>
# include <sys/resource.h>	# include <sys/resource.h>
# include <sys/select.h>	# include <sys/select.h>
# include <sys/socket.h>	# include <sys/socket.h>
# include <sys/stat.h>	# include <sys/stat.h>
# include <sys/time.h>
# include <sys/timeb.h>	# include <sys/timeb.h>
# include <sys/types.h>	# include <sys/types.h>
# include <sys/un.h>	# include <sys/un.h>
Line 66	Line 92
# include <dlfcn.h>	# include <dlfcn.h>
# include <fcntl.h>	# include <fcntl.h>
# include <pthread.h>	# include <pthread.h>
	# include <regex.h>

	# ifdef OS2
	# undef pthread_mutexattr_settype
	# define pthread_mutexattr_settype(a, b)
	# endif

# include <pwd.h>	# include <pwd.h>
# include <semaphore.h>	# ifdef SHARED_MEMORY
	# include <sys/shm.h>
	# endif

	# ifndef IPCS_SYSV
	# include <semaphore.h>
	# else
	# include <sys/ipc.h>
	# include <sys/sem.h>

	# ifdef OS2
	# define INCL_DOSSEMAPHORES
	# define INCL_DOSMEMMGR
	# define INCL_DOSERRORS
	# include <os2.h>

	typedef struct _OS2SEM
	{
	HMTX hmtx;
	HEV hev;
	ULONG shared;
	ULONG *cnt;
	ULONG *nopened;
	ULONG allocated;
	} sem_t;
	# else // IPCS_SYSV
	typedef struct
	{
	int sem;
	int alloue;
	unsigned char *path;
	pid_t pid;
	pthread_t tid;
	} sem_t;
	# endif

	# ifndef SEM_FAILED
	# define SEM_FAILED NULL
	# endif

	sem_t sem_open_SysV(const char nom, int oflag, ...);
	int sem_init_SysV(sem_t *sem, int shared, unsigned int value);
	int sem_close_SysV(sem_t *sem);
	int sem_wait_SysV(sem_t *sem);
	int sem_trywait_SysV(sem_t *sem);
	int sem_timedwait_SysV(sem_t sem, struct timespec ts);
	int sem_post_SysV(sem_t *sem);
	int sem_getvalue_SysV(sem_t sem, int value);
	int sem_unlink_SysV(char *nom);
	int sem_destroy_SysV(sem_t *sem);
	# endif

# include <setjmp.h>	# include <setjmp.h>
# include <signal.h>	# include <signal.h>
# include <termios.h>	# include <termios.h>
Line 82	Line 166

# include "openssl/evp.h"	# include "openssl/evp.h"
# include "sqlite3.h"	# include "sqlite3.h"
	# include "sigsegv.h"
	# ifdef OS2
	// Bug de libsigsegv
	# undef HAVE_STACK_OVERFLOW_RECOVERY
	# endif

# define HAVE_INLINE	# define HAVE_INLINE
# define GSL_RANGE_CHECK_OFF	# define GSL_RANGE_CHECK_OFF
Line 99	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 120	Line 209

#include "librplprototypes.h"	#include "librplprototypes.h"

	#ifndef RPLARGS
	# ifndef UNIX_PATH_MAX
	struct sockaddr_un sizecheck;
	# define UNIX_PATH_MAX sizeof(sizecheck.sun_path)
	# endif
	#endif

	#ifdef MAIN_RPL
	# define __EXTERN__
	# define __STATIC_MUTEX_INITIALIZATION__ = PTHREAD_MUTEX_INITIALIZER
	#else
	# define __EXTERN__ extern
	# define __STATIC_MUTEX_INITIALIZATION__
	#endif

/*	/*
================================================================================	================================================================================
SIGNAUX	Bugs spÃ©cifiques
================================================================================	================================================================================
*/	*/

	// NÃ©ant

	/*
	================================================================================
	TYPES
	================================================================================
	*/

	typedef FILE file;
	typedef unsigned char t_8_bits;

#ifndef RPLARGS	#ifndef RPLARGS
# ifdef Darwin	# include "rpltypes-conv.h"
# define SIGPOLL SIGINFO	#else
	# include "rpltypes.h"
	#endif

	enum signaux_rpl
	{
	rpl_signull = 0,
	rpl_sigint,
	rpl_sigterm,
	rpl_sigstart, // Signal envoyÃ© par un pÃ¨re pour lancer son fils.
	rpl_sigcont, // Signal de redÃ©marrage d'un processus arrÃªtÃ© par
	// SUSPEND
	rpl_sigstop, // Signal d'arrÃªt envoyÃ© par l'instruction STOP ou
	// FUSE. (FSTOP)
	rpl_sigabort, // Signal envoyÃ© par l'instruction ABORT (Ã regrouper
	// avec FABORT)
	rpl_sigurg, // Signal d'arrÃªt urgent
	rpl_siginject, // Signal indiquant la prÃ©sence d'une donnÃ©e Ã lire
	// envoyÃ©e depuis le pÃ¨re
	rpl_sigalrm, // Signal d'alarme (erreur systÃ¨me) depuis un fils
	rpl_sighup,
	rpl_sigtstp,
	rpl_sigexcept,
	rpl_sigmax
	};

	#define LONGUEUR_QUEUE_SIGNAUX 1024

	// 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
	// accessible Ã la fois du pÃ¨re et des fils.

	#ifndef RPLARGS
	typedef struct queue_signaux
	{
	# ifndef IPCS_SYSV
	# ifndef SEMAPHORES_NOMMES
	sem_t semaphore;
	sem_t signalisation;
	# endif
	# else
	sem_t semaphore;
	sem_t signalisation;
# endif	# endif

// Arrêt par STOP	volatile int pointeur_lecture;
# define SIGFSTOP SIGUSR1	volatile int pointeur_ecriture;
// Démarrage d'un processus fils	pthread_t thread_signaux;
# define SIGSTART SIGUSR2	volatile logical1 requete_arret;
// Injection de données
# define SIGINJECT SIGQUIT	volatile struct
// Arrêt général	{
# define SIGABORT SIGPROF	pid_t pid;
// Arrêt d'un processus fils depuis autre chose que STOP	enum signaux_rpl signal;
# define SIGFABORT SIGPOLL	} queue[LONGUEUR_QUEUE_SIGNAUX];
	} struct_queue_signaux;

	__EXTERN__ struct_queue_signaux *s_queue_signaux;
	__EXTERN__ int f_queue_signaux;

	# ifdef SEMAPHORES_NOMMES
	__EXTERN__ sem_t *semaphore_queue_signaux;
	__EXTERN__ sem_t *semaphore_signalisation;
	# endif
	#endif

	#ifdef OS2
	# define readline(s) readline_wrapper(s)
	unsigned char readline_wrapper(unsigned char s);
	#endif

	#if ! defined(UNION_SEMUN) && defined(IPCS_SYSV)
	union semun
	{
	int val;
	struct semid_ds *buf;
	unsigned short *array;
	struct seminfo *__buf;
	};
	#endif

	#ifndef RTLD_LOCAL
	# define RTLD_LOCAL 0
	#endif

	#ifndef SIGSTKSZ
	# define SIGSTKSZ 65536
	#endif

	/*
	================================================================================
	SÃ‰MAPHORES
	================================================================================
	*/

	#ifdef IPCS_SYSV
	# define sem_init(a, b, c) sem_init_SysV(a, b, c)
	# define sem_destroy(a) sem_destroy_SysV(a)
	# define sem_wait(a) sem_wait_SysV(a)
	# define sem_trywait(a) sem_trywait_SysV(a)
	# define sem_timedwait(a, b) sem_timedwait_SysV(a, b)
	# define sem_post(a) sem_post_SysV(a)
	# define sem_getvalue(a, b) sem_getvalue_SysV(a, b)
	# define sem_open(...) sem_open_SysV(__VA_ARGS__)
	# define sem_close(a) sem_close_SysV(a)
	# define sem_unlink(a) sem_unlink_SysV(a)
	#endif


	/*
	================================================================================
	SIGNAUX
	================================================================================
	*/

	#ifndef RPLARGS

	// Signaux utilisÃ©s par dÃ©faut :
	// SIGINT
	// SIGTSTP
	// SIGCONT
	// SIGPIPE
	// SIGUSR1 et SIGUSR2 sont utilisÃ© par libsigsegv.
	// SIGHUP
	// SIGALRM

	# define SIGTEST 255

// Nombre d'interruptions disponibles	// Nombre d'interruptions disponibles
# define d_NOMBRE_INTERRUPTIONS 64	# define d_NOMBRE_INTERRUPTIONS 64
#endif	#endif

/*	/*
================================================================================	================================================================================
Granularité temporelle	GranularitÃ© temporelle
================================================================================	================================================================================
*/	*/

Line 182	Line 412

/*	/*
================================================================================	================================================================================
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 205 typedef unsigned char t_8_bits;	Line 420 typedef unsigned char t_8_bits;
# ifdef SEMAPHORES_NOMMES	# ifdef SEMAPHORES_NOMMES
# define LONGUEUR_NOM_SEMAPHORE 64	# define LONGUEUR_NOM_SEMAPHORE 64
# endif	# endif
# ifndef MAIN_RPL
extern jmp_buf contexte;
extern jmp_buf contexte_initial;

# ifdef SEMAPHORES_NOMMES	# ifdef SEMAPHORES_NOMMES
extern pthread_mutex_t mutex_sem;	# define __PTR__ *
# endif

extern pthread_key_t semaphore_fork_processus_courant;

extern sem_t
# ifdef SEMAPHORES_NOMMES
*
# endif
semaphore_liste_threads;

extern sem_t
# ifdef SEMAPHORES_NOMMES
*
# endif
semaphore_gestionnaires_signaux;

extern sem_t
# ifdef SEMAPHORES_NOMMES
*
# endif
semaphore_gestionnaires_signaux_atomique;

# ifdef SEMAPHORES_NOMMES
// 0 -> liste_threads
// 1 -> gestionnaire_signaux
// 2 -> gestionnaire_signaux_atomique
// 3 -> &((*s_etat_processus).semaphore_fork)
extern unsigned char noms_semaphores[4][LONGUEUR_NOM_SEMAPHORE];
extern sem_t *semaphores_nommes[4];
# endif
# else	# else
jmp_buf contexte;	# define __PTR__
jmp_buf contexte_initial;	# endif

# ifdef SEMAPHORES_NOMMES	__EXTERN__ jmp_buf contexte_ecriture;
pthread_mutex_t mutex_sem = PTHREAD_MUTEX_INITIALIZER;	__EXTERN__ jmp_buf contexte_impression;
# endif	__EXTERN__ jmp_buf contexte_initial;
	__EXTERN__ jmp_buf contexte_processus;
	__EXTERN__ jmp_buf contexte_thread;

pthread_key_t semaphore_fork_processus_courant;	__EXTERN__ volatile int signal_test;

sem_t	__EXTERN__ pid_t pid_processus_pere;
# ifdef SEMAPHORES_NOMMES
*
# endif
semaphore_liste_threads;

sem_t	# ifdef SEMAPHORES_NOMMES
# ifdef SEMAPHORES_NOMMES	__EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__;
*	# endif
# endif
semaphore_gestionnaires_signaux;

sem_t	__EXTERN__ pthread_mutex_t mutex_liste_threads
# ifdef SEMAPHORES_NOMMES	__STATIC_MUTEX_INITIALIZATION__;
*	__EXTERN__ pthread_mutex_t mutex_gestionnaires_signaux_atomique
# endif	__STATIC_MUTEX_INITIALIZATION__;
semaphore_gestionnaires_signaux_atomique;	__EXTERN__ pthread_mutex_t mutex_sections_critiques;

# ifdef SEMAPHORES_NOMMES	__EXTERN__ sem_t __PTR__ semaphore_gestionnaires_signaux;
unsigned char noms_semaphores[4][LONGUEUR_NOM_SEMAPHORE];
sem_t *semaphores_nommes[4];	__EXTERN__ volatile int routine_recursive;
# endif
# endif
#endif	#endif

#ifdef SEMAPHORES_NOMMES	#ifdef SEMAPHORES_NOMMES
enum t_semaphore { sem_liste_threads = 0,	#define SEM_FORK 0
sem_gestionnaires_signaux = 1,	#define SEM_QUEUE 1
sem_gestionnaires_signaux_atomique = 2,	#define SEM_SIGNAUX 2
sem_fork = 3 };	#define SEM_SIGNALISATION 3
	sem_t *sem_init2(unsigned int valeur, pid_t pid, int ordre);
sem_t *sem_init2(unsigned int valeur, enum t_semaphore semaphore);	sem_t *sem_init3(unsigned int valeur, pid_t pid, pthread_t tid, int ordre);
int sem_destroy2(sem_t *semaphore_p, enum t_semaphore semaphore);	int sem_destroy2(sem_t *semaphore_p, pid_t pid, int ordre);
	int sem_destroy3(sem_t *semaphore_p, pid_t pid, pthread_t tid, int ordre);
int sem_getvalue2(sem_t semaphore, int valeur);	int sem_getvalue2(sem_t semaphore, int valeur);
	sem_t *sem_open2(pid_t pid, int ordre);

	// 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
	// cette fonction.

#define sem_getvalue(semaphore, value) sem_getvalue2(semaphore, value)	#define sem_getvalue(semaphore, value) sem_getvalue2(semaphore, value)
#define sem_post(semaphore) \	#define sem_post(semaphore) \
Line 304 int sem_getvalue2(sem_t *semaphore, int	Line 486 int sem_getvalue2(sem_t *semaphore, int
================================================================================	================================================================================
*/	*/

// 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 316 int sem_getvalue2(sem_t *semaphore, int	Line 498 int sem_getvalue2(sem_t *semaphore, int
#define ufprintf(flux, ...) transliterated_fprintf(NULL, \	#define ufprintf(flux, ...) transliterated_fprintf(NULL, \
flux, __VA_ARGS__)	flux, __VA_ARGS__)

// Tous les messages pour DISP, INPUT et les E/S par readline sont sur stderr.
// Cela évite aux messages envoyés par les gestionnaires de signaux d'être
// indéfiniment bloqués.

#ifdef SunOS	#ifdef SunOS
# define fopen(...) ({ FILE *desc; \	# define fopen(...) ({ FILE *desc; \
while((desc = fopen(__VA_ARGS__)) == NULL) \	while((desc = fopen(__VA_ARGS__)) == NULL) \
{ if ((errno != EINTR) && (errno != 0)) break; } desc; })	{ if ((errno != EINTR) && (errno != 0)) break; } desc; })
	# define freopen(...) ({ FILE *desc; \
	while((desc = freopen(__VA_ARGS__)) == NULL) \
	{ if ((errno != EINTR) && (errno != 0)) break; } desc; })
# 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 340 int sem_getvalue2(sem_t *semaphore, int	Line 518 int sem_getvalue2(sem_t *semaphore, int
# 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 360 int sem_getvalue2(sem_t *semaphore, int	Line 538 int sem_getvalue2(sem_t *semaphore, int
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

#if 1	#ifdef __GNUC__
# define abs(i) ({ typeof(i) _i; _i = (i); (_i >= 0) ? _i : -_i; })	# define abs(i) ({ typeof(i) _i; _i = (i); (_i >= 0) ? _i : -_i; })
// typeof() est une extension de gcc, mais est présent sur d'autres compilateurs	// typeof() est une extension de gcc, mais est prÃ©sent sur d'autres compilateurs
// comme Sun Studio. Dans le cas où typeof() n'existe pas, il est possible	// comme Sun Studio. Dans le cas oÃ¹ typeof() n'existe pas, il est possible
// 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 542 pid_t debug_fork();	Line 720 pid_t debug_fork();

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Paramètres du système	ParamÃ¨tres du systÃ¨me
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 561 pid_t debug_fork();	Line 739 pid_t debug_fork();

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Erreurs système	Erreurs systÃ¨me
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

#ifdef DEBUG_ERREURS	#ifdef DEBUG_ERREURS
# ifdef MESSAGES	# ifdef MESSAGES
# define __erreur(i) i	# define __erreur(i) i
	# define __erreur_(i) i
# else	# else
	# undef _ERREURS_VARIABLES
	# ifdef _ERREURS_VARIABLES
	# define __erreur_(i) __erreur(i)
	# else
	# define __erreur_(i) i
	# endif
# define __erreur(i) ({ if (strstr(__FUNCTION__, "recherche_variable") \	# define __erreur(i) ({ if (strstr(__FUNCTION__, "recherche_variable") \
== NULL) fprintf(stderr, "ERROR %d AT %s() LINE %d\n", \	== NULL) ufprintf(stderr, \
i, __FUNCTION__, __LINE__); i; })	"ERROR %d AT %s() FROM %s LINE %d\n", \
	i, __FUNCTION__, __FILE__, __LINE__); i; })
# endif	# endif
#else	#else
# define __erreur(i) i	# define __erreur(i) i
	# define __erreur_(i) i
#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)
# define d_es_variable_introuvable __erreur(2002)	# define d_es_variable_introuvable __erreur_(2002)
# define d_es_pile_vide __erreur(2003)	# define d_es_pile_vide __erreur(2003)
# define d_es_end_incoherent __erreur(2004)	# define d_es_end_incoherent __erreur(2004)
# define d_es_peripherique_stdin __erreur(2005)	# define d_es_peripherique_stdin __erreur(2005)
Line 595 pid_t debug_fork();	Line 782 pid_t debug_fork();
# define d_es_interruption_invalide __erreur(2012)	# define d_es_interruption_invalide __erreur(2012)
# define d_es_contexte __erreur(2013)	# define d_es_contexte __erreur(2013)
# define d_es_somme_controle __erreur(2014)	# define d_es_somme_controle __erreur(2014)
	# define d_es_semaphore __erreur(2015)
	# define d_es_mutex_acquis_autre_thread __erreur(2016)
#endif	#endif

/*	/*
Line 642 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 660 pid_t debug_fork();	Line 849 pid_t debug_fork();
# define d_ex_absence_graphique_courant __erreur(9)	# define d_ex_absence_graphique_courant __erreur(9)
# define d_ex_erreur_traitement_condition __erreur(10)	# define d_ex_erreur_traitement_condition __erreur(10)
# define d_ex_erreur_traitement_boucle __erreur(11)	# define d_ex_erreur_traitement_boucle __erreur(11)
# define d_ex_variable_non_definie __erreur(12)	# define d_ex_variable_non_definie __erreur_(12)
# define d_ex_drapeau_inexistant __erreur(13)	# define d_ex_drapeau_inexistant __erreur(13)
# define d_ex_nom_invalide __erreur(14)	# define d_ex_nom_invalide __erreur(14)
# define d_ex_element_inexistant __erreur(15)	# define d_ex_element_inexistant __erreur(15)
Line 731 pid_t debug_fork();	Line 920 pid_t debug_fork();
# define d_ex_clef_inexistante __erreur(80)	# define d_ex_clef_inexistante __erreur(80)
# define d_ex_nom_implicite __erreur(81)	# define d_ex_nom_implicite __erreur(81)
# define d_ex_version_bibliotheque __erreur(82)	# define d_ex_version_bibliotheque __erreur(82)
	# define d_ex_creation_variable_globale __erreur(83)
	# define d_ex_erreur_interne_rplcas __erreur(84)
	# define d_ex_fichier_corrompu __erreur(85)
	# define d_ex_mutex_acquis_autre_thread __erreur(86)
	# define d_ex_expression_reguliere __erreur(87)
	# define d_ex_instruction_indisponible __erreur(88)
#endif	#endif


Line 746 pid_t debug_fork();	Line 941 pid_t debug_fork();
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

	#ifdef MIN
	# undef MIN
	#endif

	#ifdef MAX
	# undef MAX
	#endif

	#define ADR __RPL_ADR
	#define ALG __RPL_ALG
	#define BIN __RPL_BIN
	#define CHN __RPL_CHN
	#define CPL __RPL_CPL
	#define FCH __RPL_FCH
	#define FCT __RPL_FCT
	#define INT __RPL_INT
	#define LST __RPL_LST
	#define MCX __RPL_MCX
	#define MIN __RPL_MIN
	#define MRL __RPL_MRL
	#define MTX __RPL_MTX
	#define NOM __RPL_NOM
	#define NON __RPL_NON
	#define PRC __RPL_PRC
	#define REL __RPL_REL
	#define RPN __RPL_RPN
	#define SCK __RPL_SCK
	#define SLB __RPL_SLB
	#define SPH __RPL_SPH
	#define SQL __RPL_SQL
	#define TBL __RPL_TBL
	#define VCX __RPL_VCX
	#define VIN __RPL_VIN
	#define VRL __RPL_VRL

	enum t_rplcas_commandes { RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE };

enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST,	enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST,
MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK,	MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK,
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 772 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 (integer8, integer8 )	INT : entier sur 64 bits (integer8, integer8 )
Line 781 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 808 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 881 typedef struct fichier	Line 1113 typedef struct fichier
typedef struct rpl_mutex	typedef struct rpl_mutex
{	{
pthread_mutex_t mutex;	pthread_mutex_t mutex;
	pthread_t tid;
} struct_mutex;	} struct_mutex;
#endif	#endif


/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Structure sémaphore	Structure sÃ©maphore
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 919 typedef struct marque	Line 1152 typedef struct marque

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Structure bibliothèque	Structure bibliothÃ¨que
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 954 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 1036 typedef struct socket	Line 1272 typedef struct socket

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Structure liste chaînee	Structure liste chaÃ®nee
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 1050 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 1075 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 1107 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 1132 typedef struct descripteur_thread	Line 1403 typedef struct descripteur_thread
pthread_t thread_pere;	pthread_t thread_pere;

pthread_mutex_t mutex;	pthread_mutex_t mutex;
	pthread_mutex_t mutex_nombre_references;

volatile logical1 thread_actif;	volatile logical1 thread_actif;

Line 1150 typedef struct descripteur_thread	Line 1422 typedef struct descripteur_thread
logical1 processus_detache;	logical1 processus_detache;
logical1 destruction_objet;	logical1 destruction_objet;

sigset_t oldset;
sigset_t set;

volatile signed long nombre_references;	volatile signed long nombre_references;
} struct_descripteur_thread;	} struct_descripteur_thread;

Line 1191 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 1200 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 1212 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 CASE : END termine un test SELECT/CASE/THEN/END/DEFAULT/END.	C SELECT : END termine un test SELECT/DEFAULT/END.
D DO : END termine une boucle DO/UNTIL/END.	D DO : END termine une boucle DO/UNTIL/END.
I IF : END termine un test IF/THEN (ELSE)/END.	I IF : END termine un test IF/THEN (ELSE)/END.
J IFERR : END termine un test IFERR/THEN (ELSE)/END.	J IFERR : END termine un test IFERR/THEN (ELSE)/END.
W WHILE : END termine une boucle WHILE/REPEAT/END.	K CASE : END termine un test CASE/THEN/END
	W WHILE : END termine une boucle WHILE/REPEAT/END.
F FOR : NEXT ou STEP termine une boucle avec compteur.	Q CRITICAL : END termine une section critique CRITICAL/END
S START : NEXT ou STEP termine une boucle sans compteur.
L LOOP : boucle utilisé dans le traitement de l'instruction RETURN.	F FOR : NEXT ou STEP termine une boucle avec compteur.
Elle correspond à une boucle FOR ou START mais sans son	S START : NEXT ou STEP termine une boucle sans compteur.
	L LOOP : boucle utilisÃ© dans le traitement de l'instruction RETURN.
	Elle correspond Ã une boucle FOR ou START mais sans son
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_pile_systeme;	} struct_liste_pile_systeme;
#endif	#endif

Line 1264 typedef struct variable	Line 1537 typedef struct variable

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Structure variable partagée	Structure variable partagÃ©e
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 1309 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 1417 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 1440 typedef struct rpl_arguments	Line 1713 typedef struct rpl_arguments
void *s_etat_processus;	void *s_etat_processus;
} struct_rpl_arguments;	} struct_rpl_arguments;

	/*
	--------------------------------------------------------------------------------
	Structure d'arbre des instructions intrinsÃ¨ques
	--------------------------------------------------------------------------------
	*/

	#ifndef RPLARGS
	typedef struct instruction
	{
	struct instruction **noeuds;
	void (feuille)(struct processus );
	} struct_instruction;
	#endif

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

	#ifndef RPLARGS
	typedef struct arbre_variables
	{
	unsigned int noeuds_utilises;
	signed int indice_tableau_pere;
	struct arbre_variables *noeud_pere;
	struct arbre_variables **noeuds;
	struct liste_variables *feuille;
	} struct_arbre_variables;

	typedef struct tableau_variables
	{
	unsigned char origine;
	unsigned char *nom; // pointeur sur la struct_variable
	// rÃ©elle et non copie de la chaÃ®ne
	unsigned long niveau;

	struct_objet *objet; // pointeur sur l'objet et non copie
	// de l'objet.

	logical1 variable_verrouillee;
	union_position_variable variable_statique;
	union_position_variable variable_partagee;
	} struct_tableau_variables;

	typedef struct liste_variables
	{
	union
	{
	// Utilisation dans la gestion des variables
	struct_variable *variable;
	// Utilisation dans la pile systÃ¨me (variables par niveau)
	struct_liste_chainee *liste;
	};

	struct arbre_variables *noeud_pere;
	struct arbre_variables *noeud;
	struct liste_variables *suivant;
	struct liste_variables *precedent;
	} struct_liste_variables;

	#endif

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Line 1477 typedef struct processus	Line 1812 typedef struct processus
unsigned char mode_interactif; /Y/N/	unsigned char mode_interactif; /Y/N/
unsigned char mode_evaluation_expression; /Y/N/	unsigned char mode_evaluation_expression; /Y/N/
unsigned char traitement_cycle_exit; /N/E/C/	unsigned char traitement_cycle_exit; /N/E/C/
	unsigned char recherche_type; /Y/N/

unsigned long position_courante;	unsigned long position_courante;
unsigned long longueur_definitions_chainees;	unsigned long longueur_definitions_chainees;
Line 1485 typedef struct processus	Line 1821 typedef struct processus

int *pointeurs_caracteres;	int *pointeurs_caracteres;
int nombre_caracteres;	int nombre_caracteres;
struct instruction *arbre_instructions;	struct_instruction *arbre_instructions;

/* Requetes */	/* Requetes */

Line 1528 typedef struct processus	Line 1864 typedef struct processus
pthread_t thread_fusible;	pthread_t thread_fusible;
pthread_t thread_surveille_par_fusible;	pthread_t thread_surveille_par_fusible;

# ifndef Cygwin	volatile int pointeur_signal_ecriture;
stack_t pile_signal;	volatile int pointeur_signal_lecture;
# else	volatile enum signaux_rpl signaux_en_queue[LONGUEUR_QUEUE_SIGNAUX];
# define SA_ONSTACK 0	volatile logical1 demarrage_fils;
# define RTLD_LOCAL 0	volatile logical1 redemarrage_processus;
# endif

/* Contextes */	/* Contextes */

Line 1542 typedef struct processus	Line 1877 typedef struct processus

/* Variables */	/* Variables */

struct_variable *s_liste_variables;	// La liste des variables par niveau est doublement chaÃ®nÃ©e.
unsigned long nombre_variables;	// Ã€ tout moment, elle pointe sur le niveau le plus haut existant et
unsigned long nombre_variables_allouees;	// l_liste_variable_par_niveau->precedent renvoie la liste des
	// dÃ©finitions. l_liste_variable_par_niveau->precedent->precedent pointe
	// sur la liste des variables globales.
	//
	// Ã€ l'initialisation :
	// l_liste_variables_par_niveau->suivant == l_liste_variables_par_niveau
	// l_liste_variables_par_niveau->precedent == l_liste_variables_par_niveau

	struct_arbre_variables *s_arbre_variables;
	struct_liste_variables *l_liste_variables_par_niveau;
	logical1 niveau_supprime;

	struct_variable *pointeur_variable_courante;
	struct_liste_variables *pointeur_feuille_courante;

	int *pointeurs_caracteres_variables;
	int nombre_caracteres_variables;

struct_variable_statique *s_liste_variables_statiques;	struct_variable_statique *s_liste_variables_statiques;
unsigned long nombre_variables_statiques;	unsigned long nombre_variables_statiques;
Line 1555 typedef struct processus	Line 1906 typedef struct processus

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

logical1 creation_variables_statiques;	logical1 creation_variables_statiques;
Line 1570 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 1776 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 1791 typedef struct processus	Line 2141 typedef struct processus

unsigned char traitement_interruption; /* Y/N */	unsigned char traitement_interruption; /* Y/N */
unsigned char traitement_interruptible; /* Y/N */	unsigned char traitement_interruptible; /* Y/N */
	unsigned char traitement_at_poke; /* Y/N */

struct_objet *at_exit;	struct_objet *at_exit;
	struct_objet *at_poke;

/* Variables volatiles */	/* Variables volatiles */

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;
volatile sig_atomic_t var_volatile_traitement_retarde_stop;	volatile sig_atomic_t var_volatile_traitement_retarde_stop;
volatile sig_atomic_t var_volatile_traitement_sigint;	volatile sig_atomic_t var_volatile_traitement_sigint;

	volatile sig_atomic_t var_volatile_processus_racine;
volatile sig_atomic_t var_volatile_processus_pere;	volatile sig_atomic_t var_volatile_processus_pere;
volatile sig_atomic_t var_volatile_recursivite;	volatile sig_atomic_t var_volatile_recursivite;

Line 1818 typedef struct processus	Line 2171 typedef struct processus
gsl_rng *generateur_aleatoire;	gsl_rng *generateur_aleatoire;
const gsl_rng_type *type_generateur_aleatoire;	const gsl_rng_type *type_generateur_aleatoire;

	void *contexte_cas;

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 1840 typedef struct processus	Line 2195 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 1851 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;

// Sémaphore 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 */

double estimation_taille_pile_tampon;	double estimation_taille_pile_tampon;
unsigned long taille_pile_tampon;	unsigned long taille_pile_tampon;
Line 1880 typedef struct processus	Line 2237 typedef struct processus
unsigned long taille_pile_objets;	unsigned long taille_pile_objets;
struct_objet *pile_objets;	struct_objet *pile_objets;

# ifndef DEBUG_MALLOC	# define TAILLE_CACHE 16384
# define TAILLE_CACHE 16384
# else
# define TAILLE_CACHE 4
# endif

unsigned long *objets_adr[TAILLE_CACHE];	unsigned long *objets_adr[TAILLE_CACHE];
int pointeur_adr;	int pointeur_adr;
Line 1918 typedef struct processus	Line 2271 typedef struct processus

struct_liste_chainee *maillons[TAILLE_CACHE];	struct_liste_chainee *maillons[TAILLE_CACHE];
int pointeur_maillons;	int pointeur_maillons;
} struct_processus;
#endif

/*	struct_arbre_variables *variables_noeud[TAILLE_CACHE];
--------------------------------------------------------------------------------	int pointeur_variables_noeud;
Structures instruction intrinsèque
--------------------------------------------------------------------------------
*/

#ifndef RPLARGS	struct_liste_variables *variables_feuille[TAILLE_CACHE];
typedef struct instruction	int pointeur_variables_feuille;
{
struct instruction **noeud;
void (feuille)(struct_processus );
} struct_instruction;
#endif

	struct_variable *variables_variable[TAILLE_CACHE];
	int pointeur_variables_variable;

	struct_arbre_variables **variables_tableau_noeuds[TAILLE_CACHE];
	int pointeur_variables_tableau_noeuds;
	} struct_processus;
	#endif

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Line 1964 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
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

// BEGIN C PROTOTYPES	// BEGIN C PROTOTYPES
void instruction_sensible_e(struct_processus *s_etat_processus);	void instruction_sensible_e(struct_processus *s_etat_processus);
void instruction_sensible_i(struct_processus *s_etat_processus);	void instruction_sensible_i(struct_processus *s_etat_processus);
	void instruction_sensible_infinity(struct_processus *s_etat_processus);

void instruction_abort(struct_processus *s_etat_processus);	void instruction_abort(struct_processus *s_etat_processus);
void instruction_abs(struct_processus *s_etat_processus);	void instruction_abs(struct_processus *s_etat_processus);
Line 1989 void instruction_asr(struct_processus *s	Line 2340 void instruction_asr(struct_processus *s
void instruction_atan(struct_processus *s_etat_processus);	void instruction_atan(struct_processus *s_etat_processus);
void instruction_atanh(struct_processus *s_etat_processus);	void instruction_atanh(struct_processus *s_etat_processus);
void instruction_atexit(struct_processus *s_etat_processus);	void instruction_atexit(struct_processus *s_etat_processus);
	void instruction_atpoke(struct_processus *s_etat_processus);
void instruction_autoscale(struct_processus *s_etat_processus);	void instruction_autoscale(struct_processus *s_etat_processus);
void instruction_axes(struct_processus *s_etat_processus);	void instruction_axes(struct_processus *s_etat_processus);

void instruction_b_vers_r(struct_processus *s_etat_processus);	void instruction_b_vers_r(struct_processus *s_etat_processus);
void instruction_backspace(struct_processus *s_etat_processus);	void instruction_backspace(struct_processus *s_etat_processus);
	void instruction_backtrace(struct_processus *s_etat_processus);
void instruction_beep(struct_processus *s_etat_processus);	void instruction_beep(struct_processus *s_etat_processus);
void instruction_bessel(struct_processus *s_etat_processus);	void instruction_bessel(struct_processus *s_etat_processus);
void instruction_bin(struct_processus *s_etat_processus);	void instruction_bin(struct_processus *s_etat_processus);
Line 2009 void instruction_cllcd(struct_processus	Line 2362 void instruction_cllcd(struct_processus
void instruction_clmf(struct_processus *s_etat_processus);	void instruction_clmf(struct_processus *s_etat_processus);
void instruction_close(struct_processus *s_etat_processus);	void instruction_close(struct_processus *s_etat_processus);
void instruction_clratexit(struct_processus *s_etat_processus);	void instruction_clratexit(struct_processus *s_etat_processus);
	void instruction_clratpoke(struct_processus *s_etat_processus);
void instruction_clrcntxt(struct_processus *s_etat_processus);	void instruction_clrcntxt(struct_processus *s_etat_processus);
void instruction_clrerr(struct_processus *s_etat_processus);	void instruction_clrerr(struct_processus *s_etat_processus);
void instruction_clrfuse(struct_processus *s_etat_processus);	void instruction_clrfuse(struct_processus *s_etat_processus);
Line 2037 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 2121 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 2164 void instruction_in(struct_processus *s_	Line 2520 void instruction_in(struct_processus *s_
void instruction_incr(struct_processus *s_etat_processus);	void instruction_incr(struct_processus *s_etat_processus);
void instruction_indep(struct_processus *s_etat_processus);	void instruction_indep(struct_processus *s_etat_processus);
void instruction_input(struct_processus *s_etat_processus);	void instruction_input(struct_processus *s_etat_processus);
	void instruction_infinity(struct_processus *s_etat_processus);
void instruction_inquire(struct_processus *s_etat_processus);	void instruction_inquire(struct_processus *s_etat_processus);
void instruction_int(struct_processus *s_etat_processus);	void instruction_int(struct_processus *s_etat_processus);
void instruction_interrupt(struct_processus *s_etat_processus);	void instruction_interrupt(struct_processus *s_etat_processus);
Line 2187 void instruction_lcd_fleche(struct_proce	Line 2544 void instruction_lcd_fleche(struct_proce
void instruction_lchol(struct_processus *s_etat_processus);	void instruction_lchol(struct_processus *s_etat_processus);
void instruction_le(struct_processus *s_etat_processus);	void instruction_le(struct_processus *s_etat_processus);
void instruction_legv(struct_processus *s_etat_processus);	void instruction_legv(struct_processus *s_etat_processus);
	void instruction_limit(struct_processus *s_etat_processus);
void instruction_line(struct_processus *s_etat_processus);	void instruction_line(struct_processus *s_etat_processus);
void instruction_list_fleche(struct_processus *s_etat_processus);	void instruction_list_fleche(struct_processus *s_etat_processus);
void instruction_ln(struct_processus *s_etat_processus);	void instruction_ln(struct_processus *s_etat_processus);
Line 2200 void instruction_lq(struct_processus *s_	Line 2558 void instruction_lq(struct_processus *s_
void instruction_lsq(struct_processus *s_etat_processus);	void instruction_lsq(struct_processus *s_etat_processus);
void instruction_lt(struct_processus *s_etat_processus);	void instruction_lt(struct_processus *s_etat_processus);
void instruction_lu(struct_processus *s_etat_processus);	void instruction_lu(struct_processus *s_etat_processus);
	void instruction_l_vers_t(struct_processus *s_etat_processus);

void instruction_mant(struct_processus *s_etat_processus);	void instruction_mant(struct_processus *s_etat_processus);
void instruction_mark(struct_processus *s_etat_processus);	void instruction_mark(struct_processus *s_etat_processus);
Line 2254 void instruction_pmax(struct_processus *	Line 2613 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 2310 void instruction_read(struct_processus *	Line 2670 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 2378 void instruction_sqlquery(struct_process	Line 2740 void instruction_sqlquery(struct_process
void instruction_sqrt(struct_processus *s_etat_processus);	void instruction_sqrt(struct_processus *s_etat_processus);
void instruction_sr(struct_processus *s_etat_processus);	void instruction_sr(struct_processus *s_etat_processus);
void instruction_srb(struct_processus *s_etat_processus);	void instruction_srb(struct_processus *s_etat_processus);
	void instruction_srev(struct_processus *s_etat_processus);
void instruction_sst(struct_processus *s_etat_processus);	void instruction_sst(struct_processus *s_etat_processus);
void instruction_star_d(struct_processus *s_etat_processus);	void instruction_star_d(struct_processus *s_etat_processus);
void instruction_star_h(struct_processus *s_etat_processus);	void instruction_star_h(struct_processus *s_etat_processus);
Line 2435 void instruction_trn(struct_processus *s	Line 2798 void instruction_trn(struct_processus *s
void instruction_trnc(struct_processus *s_etat_processus);	void instruction_trnc(struct_processus *s_etat_processus);
void instruction_true(struct_processus *s_etat_processus);	void instruction_true(struct_processus *s_etat_processus);
void instruction_type(struct_processus *s_etat_processus);	void instruction_type(struct_processus *s_etat_processus);
	void instruction_t_vers_l(struct_processus *s_etat_processus);

void instruction_ucase(struct_processus *s_etat_processus);	void instruction_ucase(struct_processus *s_etat_processus);
void instruction_uchol(struct_processus *s_etat_processus);	void instruction_uchol(struct_processus *s_etat_processus);
void instruction_undo(struct_processus *s_etat_processus);
void instruction_unlock(struct_processus *s_etat_processus);	void instruction_unlock(struct_processus *s_etat_processus);
void instruction_unprotect(struct_processus *s_etat_processus);	void instruction_unprotect(struct_processus *s_etat_processus);
void instruction_until(struct_processus *s_etat_processus);	void instruction_until(struct_processus *s_etat_processus);
Line 2482 void instruction_yield(struct_processus	Line 2845 void instruction_yield(struct_processus

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Procédures	ProcÃ©dures
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 2493 void affichage_pile(struct_processus *s_	Line 2856 void affichage_pile(struct_processus *s_
niveau_courant);	niveau_courant);
#endif	#endif

void allocation(struct_processus s_etat_processus, enum t_type type);
void allocation_maillon(struct_processus s_etat_processus);	void allocation_maillon(struct_processus s_etat_processus);

#ifndef RPLARGS	#ifndef RPLARGS
Line 2505 void appel_gnuplot(struct_processus *s_e	Line 2867 void appel_gnuplot(struct_processus *s_e
void cf(struct_processus *s_etat_processus, unsigned char indice_drapeau);	void cf(struct_processus *s_etat_processus, unsigned char indice_drapeau);
void cond(struct_processus *s_etat_processus,	void cond(struct_processus *s_etat_processus,
struct_matrice s_matrice, real8 condition);	struct_matrice s_matrice, real8 condition);
	void conversion_chaine(struct_processus *s_etat_processus,
	unsigned char *chaine, unsigned char type);
void conversion_decimal_vers_hms(real8 *angle);	void conversion_decimal_vers_hms(real8 *angle);
void conversion_degres_vers_radians(real8 *angle);	void conversion_degres_vers_radians(real8 *angle);
void conversion_element_tex(unsigned char *element, unsigned char fonction);	void conversion_element_tex(unsigned char *element, unsigned char fonction);
Line 2514 void conversion_hms_vers_decimal(real8 *	Line 2878 void conversion_hms_vers_decimal(real8 *
void conversion_majuscule_limitee(unsigned char *chaine_entree,	void conversion_majuscule_limitee(unsigned char *chaine_entree,
unsigned char *chaine_sortie, unsigned long longueur);	unsigned char *chaine_sortie, unsigned long longueur);
void conversion_radians_vers_degres(real8 *angle);	void conversion_radians_vers_degres(real8 *angle);
	void copie_arbre_variables(struct_processus *s_etat_processus,
	struct_processus *s_nouvel_etat_processus);
void correction_formateur_tex(struct_processus *s_etat_processus,	void correction_formateur_tex(struct_processus *s_etat_processus,
unsigned char **ligne);	unsigned char **ligne);
void depilement_pile_systeme(struct_processus *s_etat_processus);	void depilement_pile_systeme(struct_processus *s_etat_processus);
Line 2553 void impression_tex(struct_processus *s_	Line 2919 void impression_tex(struct_processus *s_
void informations(struct_processus *s_etat_processus);	void informations(struct_processus *s_etat_processus);
void initialisation_allocateur(struct_processus *s_etat_processus);	void initialisation_allocateur(struct_processus *s_etat_processus);
void initialisation_completion(void);	void initialisation_completion(void);
	void initialisation_contexte_cas(struct_processus *s_etat_processus);
void initialisation_drapeaux(struct_processus *s_etat_processus);	void initialisation_drapeaux(struct_processus *s_etat_processus);
void initialisation_generateur_aleatoire(struct_processus *s_etat_processus,	void initialisation_generateur_aleatoire(struct_processus *s_etat_processus,
logical1 initialisation_automatique, unsigned long int racine);	logical1 initialisation_automatique, unsigned long int racine);
void initialisation_instructions(struct_processus *s_etat_processus);	void initialisation_instructions(struct_processus *s_etat_processus);
	void initialisation_variables(struct_processus *s_etat_processus);
#endif	#endif

void initialisation_objet(struct_objet *s_objet);	void initialisation_objet(struct_objet *s_objet);
Line 2569 void insertion_thread_surveillance(struc	Line 2937 void insertion_thread_surveillance(struc
void integrale_romberg(struct_processus *s_etat_processus,	void integrale_romberg(struct_processus *s_etat_processus,
struct_objet s_expression, unsigned char variable,	struct_objet s_expression, unsigned char variable,
real8 a, real8 b, real8 precision);	real8 a, real8 b, real8 precision);
void interruption1(int signal, siginfo_t siginfo, void context);	void interface_cas(struct_processus *s_etat_processus,
void interruption2(int signal, siginfo_t siginfo, void context);	enum t_rplcas_commandes commande);
void interruption3(int signal, siginfo_t siginfo, void context);	void interruption1(int signal);
void interruption4(int signal, siginfo_t siginfo, void context);	void interruption2(int signal);
void interruption5(int signal, siginfo_t siginfo, void context);	void interruption3(int signal);
void interruption6(int signal, siginfo_t siginfo, void context);	void interruption4(int signal);
void interruption7(int signal, siginfo_t siginfo, void context);	void interruption5(int signal);
void interruption8(int signal, siginfo_t siginfo, void context);	void interruption6(int signal);
void interruption9(int signal, siginfo_t siginfo, void context);	void interruption_depassement_pile(int urgence, stackoverflow_context_t scp);
void interruption10(int signal, siginfo_t siginfo, void context);
void interruption11(int signal, siginfo_t siginfo, void context);
void inversion_matrice(struct_processus *s_etat_processus,	void inversion_matrice(struct_processus *s_etat_processus,
struct_matrice *s_matrice);	struct_matrice *s_matrice);
void lancement_daemon(struct_processus *s_etat_processus);	void lancement_daemon(struct_processus *s_etat_processus);
Line 2594 void liberation_maillon(struct_processus	Line 2960 void liberation_maillon(struct_processus
void liberation_allocateur(struct_processus *s_etat_processus);	void liberation_allocateur(struct_processus *s_etat_processus);
void liberation_arbre_instructions(struct_processus *s_etat_processus,	void liberation_arbre_instructions(struct_processus *s_etat_processus,
struct_instruction *arbre);	struct_instruction *arbre);
	void liberation_arbre_variables(struct_processus *s_etat_processus,
	struct_arbre_variables *arbre, logical1 definitions);
	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_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);
Line 2610 void retrait_thread(struct_processus *s_	Line 2979 void retrait_thread(struct_processus *s_
void retrait_thread_surveillance(struct_processus *s_etat_processus,	void retrait_thread_surveillance(struct_processus *s_etat_processus,
struct_descripteur_thread *s_argument_thread);	struct_descripteur_thread *s_argument_thread);
void rplcore(struct_processus *s_etat_processus);	void rplcore(struct_processus *s_etat_processus);
	#endif

void scrutation_injection(struct_processus *s_etat_processus);	void scrutation_injection(struct_processus *s_etat_processus);

	#ifndef RPLARGS
	void scrutation_interruptions(struct_processus *s_etat_processus);
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);
Line 2640 void verrouillage_threads_concurrents(st	Line 3014 void verrouillage_threads_concurrents(st

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Fonctions de sommation de vecteur dans perte de précision	Fonctions de gestion des signaux
	--------------------------------------------------------------------------------
	*/

	#ifndef RPLARGS
	void creation_queue_signaux(struct_processus *s_etat_processus);
	void liberation_queue_signaux(struct_processus *s_etat_processus);
	void destruction_queue_signaux(struct_processus *s_etat_processus);
	int envoi_signal_contexte(struct_processus *s_etat_processus,
	enum signaux_rpl signal);
	int envoi_signal_processus(pid_t pid, enum signaux_rpl signal);
	int envoi_signal_thread(pthread_t tid, enum signaux_rpl signal);
	#endif

	/*
	--------------------------------------------------------------------------------
	Fonctions de sommation de vecteur dans perte de prÃ©cision
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 2656 complex16 sommation_vecteur_complexe(com	Line 3046 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 2685 struct_vecteur *variance_statistique(str	Line 3076 struct_vecteur *variance_statistique(str

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Gestion des bibliothèques	Gestion des bibliothÃ¨ques
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 2714 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);
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,
unsigned char *chemin);	unsigned char *chemin);
	unsigned char *date_compilation();
unsigned char extraction_chaine(unsigned char chaine, unsigned long i,	unsigned char extraction_chaine(unsigned char chaine, unsigned long i,
unsigned long j);	unsigned long j);
unsigned char formateur(struct_processus s_etat_processus, long offset,	unsigned char formateur(struct_processus s_etat_processus, long offset,
Line 2728 unsigned char *formateur_fichier(struct_	Line 3122 unsigned char *formateur_fichier(struct_
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);
	unsigned char formateur_flux(struct_processus s_etat_processus,
	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
	s_etat_processus, void valeur_numerique, 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 2739 unsigned char *formateur_nombre(struct_p	Line 3138 unsigned char *formateur_nombre(struct_p
unsigned char formateur_reel(struct_processus s_etat_processus,	unsigned char formateur_reel(struct_processus s_etat_processus,
void *valeur_numerique, unsigned char type);	void *valeur_numerique, unsigned char type);
unsigned char messages(struct_processus s_etat_processus);	unsigned char messages(struct_processus s_etat_processus);
	unsigned char pointeur_ieme_caractere(struct_processus s_etat_processus,
	unsigned char *chaine, integer8 position);
unsigned char purification_chaine(unsigned char chaine);	unsigned char purification_chaine(unsigned char chaine);
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,
Line 2761 logical1 caracteristiques_fichier(struct	Line 3162 logical1 caracteristiques_fichier(struct
unsigned long *unite);	unsigned long *unite);
logical1 controle(struct_processus s_etat_processus, unsigned char fichier,	logical1 controle(struct_processus s_etat_processus, unsigned char fichier,
unsigned char type, unsigned char somme_candidate);	unsigned char type, unsigned char somme_candidate);
	logical1 controle_integrite(struct_processus *s_etat_processus,
	unsigned char executable_candidat, unsigned char executable);
logical1 creation_variable(struct_processus *s_etat_processus,	logical1 creation_variable(struct_processus *s_etat_processus,
struct_variable *s_variable,	struct_variable *s_variable,
unsigned char autorisation_creation_variable_statique,	unsigned char autorisation_creation_variable_statique,
Line 2812 logical1 ecriture_pipe(struct_processus	Line 3215 logical1 ecriture_pipe(struct_processus
struct_objet *s_objet);	struct_objet *s_objet);
logical1 recherche_variable(struct_processus *s_etat_processus,	logical1 recherche_variable(struct_processus *s_etat_processus,
unsigned char *nom_variable);	unsigned char *nom_variable);
	logical1 recherche_variable_globale(struct_processus *s_etat_processus,
	unsigned char *nom_variable);
logical1 recherche_variable_partagee(struct_processus *s_etat_processus,	logical1 recherche_variable_partagee(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position,	unsigned char *nom_variable, union_position_variable position,
unsigned char origine);	unsigned char origine);
Line 2822 logical1 test_cfsf(struct_processus *s_e	Line 3227 logical1 test_cfsf(struct_processus *s_e
unsigned char indice_drapeau);	unsigned char indice_drapeau);
logical1 test_expression_rpn(unsigned char *chaine);	logical1 test_expression_rpn(unsigned char *chaine);
logical1 test_fonction(unsigned char *chaine);	logical1 test_fonction(unsigned char *chaine);
	logical1 validation_chaine(unsigned char *chaine);
#endif	#endif

/*	/*
Line 2844 ssize_t write_atomic(struct_processus *s	Line 3250 ssize_t write_atomic(struct_processus *s
*/	*/

int alsprintf(unsigned char *strp, const char fmt, ...);	int alsprintf(unsigned char *strp, const char fmt, ...);
	int interruption_violation_access(void *adresse_fautive, int gravite);
	#ifndef RPLARGS
	int liste_variables(struct_processus *s_etat_processus,
	struct_tableau_variables *tableau, int position,
	struct_arbre_variables *l_element_courant);
	int nombre_variables(struct_processus *s_etat_processus,
	struct_arbre_variables *l_element_courant);
	int readline_analyse_syntaxique(int count, int key);
	int readline_effacement(int count, int key);
	#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, ...);
int transliterated_fprintf(struct_processus s_etat_processus, file flux,	int transliterated_fprintf(struct_processus s_etat_processus, file flux,
Line 2860 int wrapper_instruction_intrinseque(void	Line 3276 int wrapper_instruction_intrinseque(void

#ifndef RPLARGS	#ifndef RPLARGS
unsigned char longueur_entiers_binaires(struct_processus *s_etat_processus);	unsigned char longueur_entiers_binaires(struct_processus *s_etat_processus);
unsigned char recherche_longueur_optimale(integer8 parametre);
#endif	#endif

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Fonctions retournant un INTEGER*8 (valeur binaire non signée)	Fonctions retournant un INTEGER*8 (valeur binaire non signÃ©e)
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 2881 logical8 masque_entiers_binaires(struct_	Line 3296 logical8 masque_entiers_binaires(struct_

#ifndef RPLARGS	#ifndef RPLARGS
integer8 occupation_memoire(struct_objet *s_objet);	integer8 occupation_memoire(struct_objet *s_objet);
	integer8 longueur_chaine(struct_processus *s_etat_processus,
	unsigned char *chaine);
	integer8 position_caractere_de_chaine(struct_processus *s_etat_processus,
	unsigned char chaine, unsigned char position);
#endif	#endif

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
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 2925 struct_descripteur_fichier *descripteur_	Line 3344 struct_descripteur_fichier *descripteur_
struct_objet copie_objet(struct_processus s_etat_processus,	struct_objet copie_objet(struct_processus s_etat_processus,
struct_objet *s_objet, unsigned char type);	struct_objet *s_objet, unsigned char type);

	struct_objet allocation(struct_processus s_etat_processus, enum t_type type);
#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);
Line 2937 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 2954 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 2966 char **completion_matches();	Line 3386 char **completion_matches();

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Arithmétique	ArithmÃ©tique
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 3012 void f77soustractionrc_(real8 *ra, compl	Line 3432 void f77soustractionrc_(real8 *ra, compl

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Trigonométrie complexe	TrigonomÃ©trie complexe
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

Line 3109 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 3122 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 3137 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 3198 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 3219 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);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.46
changed lines
	Added in v.1.176