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.140 and 1.174

version 1.140, 2011/11/18 09:51:33	version 1.174, 2012/09/10 15:54:13
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.4	RPL/2 (R) version 4.1.10
Copyright (C) 1989-2011 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 71	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>
Line 91	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	# ifdef OS2
# undef pthread_mutexattr_settype	# undef pthread_mutexattr_settype
Line 143	Line 145
int sem_close_SysV(sem_t *sem);	int sem_close_SysV(sem_t *sem);
int sem_wait_SysV(sem_t *sem);	int sem_wait_SysV(sem_t *sem);
int sem_trywait_SysV(sem_t *sem);	int sem_trywait_SysV(sem_t *sem);
	int sem_timedwait_SysV(sem_t sem, struct timespec ts);
int sem_post_SysV(sem_t *sem);	int sem_post_SysV(sem_t *sem);
int sem_getvalue_SysV(sem_t sem, int value);	int sem_getvalue_SysV(sem_t sem, int value);
int sem_unlink_SysV(const char *nom);	int sem_unlink_SysV(char *nom);
int sem_destroy_SysV(sem_t *sem);	int sem_destroy_SysV(sem_t *sem);
# endif	# endif

Line 213	Line 216
# endif	# endif
#endif	#endif

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

/*	/*
================================================================================	================================================================================
Bugs spécifiques	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 281 typedef struct queue_signaux
# ifndef IPCS_SYSV	# ifndef IPCS_SYSV
# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
sem_t semaphore;	sem_t semaphore;
	sem_t signalisation;
# endif	# endif
# else	# else
sem_t semaphore;	sem_t semaphore;
	sem_t signalisation;
# endif	# endif

volatile int pointeur_lecture;	volatile int pointeur_lecture;
volatile int pointeur_ecriture;	volatile int pointeur_ecriture;
	pthread_t thread_signaux;
	volatile logical1 requete_arret;

volatile struct	volatile struct
{	{
Line 268 typedef struct queue_signaux	Line 300 typedef struct queue_signaux
} queue[LONGUEUR_QUEUE_SIGNAUX];	} queue[LONGUEUR_QUEUE_SIGNAUX];
} struct_queue_signaux;	} struct_queue_signaux;

# ifndef MAIN_RPL	__EXTERN__ struct_queue_signaux *s_queue_signaux;
extern struct_queue_signaux *s_queue_signaux;	__EXTERN__ int f_queue_signaux;
extern int f_queue_signaux;
# ifdef SEMAPHORES_NOMMES	# ifdef SEMAPHORES_NOMMES
extern sem_t *semaphore_queue_signaux;	__EXTERN__ sem_t *semaphore_queue_signaux;
# endif	__EXTERN__ sem_t *semaphore_signalisation;
# else
struct_queue_signaux *s_queue_signaux;
int f_queue_signaux;
# ifdef SEMAPHORES_NOMMES
sem_t *semaphore_queue_signaux;
# endif
# endif	# endif
#endif	#endif

Line 317 union semun	Line 343 union semun
# define sem_destroy(a) sem_destroy_SysV(a)	# define sem_destroy(a) sem_destroy_SysV(a)
# define sem_wait(a) sem_wait_SysV(a)	# define sem_wait(a) sem_wait_SysV(a)
# define sem_trywait(a) sem_trywait_SysV(a)	# define sem_trywait(a) sem_trywait_SysV(a)
	# define sem_timedwait(a, b) sem_timedwait_SysV(a, b)
# define sem_post(a) sem_post_SysV(a)	# define sem_post(a) sem_post_SysV(a)
# define sem_getvalue(a, b) sem_getvalue_SysV(a, b)	# define sem_getvalue(a, b) sem_getvalue_SysV(a, b)
# define sem_open(...) sem_open_SysV(__VA_ARGS__)	# define sem_open(...) sem_open_SysV(__VA_ARGS__)
Line 337 union semun	Line 364 union semun
// SIGINT	// SIGINT
// SIGTSTP	// SIGTSTP
// SIGCONT	// SIGCONT
// SIGURG
// SIGPIPE	// SIGPIPE
	// SIGUSR1 et SIGUSR2 sont utilisé par libsigsegv.
	// SIGHUP
// SIGALRM	// SIGALRM

# define SIGTEST SIGUSR1	# define SIGTEST 255

// Nombre d'interruptions disponibles	// Nombre d'interruptions disponibles
# define d_NOMBRE_INTERRUPTIONS 64	# define d_NOMBRE_INTERRUPTIONS 64
Line 384 union semun	Line 412 union semun

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

typedef FILE file;
typedef unsigned char t_8_bits;

#ifndef RPLARGS
# include "rpltypes-conv.h"
#else
# include "rpltypes.h"
#endif

/*
================================================================================
Variables globales	Variables globales
================================================================================	================================================================================
*/	*/
Line 408 typedef unsigned char t_8_bits;	Line 421 typedef unsigned char t_8_bits;
# define LONGUEUR_NOM_SEMAPHORE 64	# define LONGUEUR_NOM_SEMAPHORE 64
# endif	# endif

# ifndef MAIN_RPL	# ifdef SEMAPHORES_NOMMES
extern jmp_buf contexte_ecriture;	# define __PTR__ *
extern jmp_buf contexte_impression;	# else
extern jmp_buf contexte_initial;	# define __PTR__
extern jmp_buf contexte_processus;	# endif
extern jmp_buf contexte_thread;

extern int signal_test;

extern pid_t pid_processus_pere;

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

extern pthread_mutex_t mutex_liste_threads;	__EXTERN__ volatile int signal_test;
extern pthread_mutex_t mutex_gestionnaires_signaux_atomique;

extern sem_t	__EXTERN__ pid_t pid_processus_pere;
# ifdef SEMAPHORES_NOMMES
*
# endif
semaphore_gestionnaires_signaux;

extern volatile int routine_recursive;	# ifdef SEMAPHORES_NOMMES
# else	__EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__;
jmp_buf contexte_ecriture;	# endif
jmp_buf contexte_impression;
jmp_buf contexte_initial;
jmp_buf contexte_processus;
jmp_buf contexte_thread;

int signal_test;	__EXTERN__ pthread_mutex_t mutex_liste_threads
	__STATIC_MUTEX_INITIALIZATION__;
	__EXTERN__ pthread_mutex_t mutex_gestionnaires_signaux_atomique
	__STATIC_MUTEX_INITIALIZATION__;

pid_t pid_processus_pere;	__EXTERN__ sem_t __PTR__ semaphore_gestionnaires_signaux;

# ifdef SEMAPHORES_NOMMES	__EXTERN__ volatile int routine_recursive;
pthread_mutex_t mutex_sem = PTHREAD_MUTEX_INITIALIZER;
# endif

pthread_mutex_t mutex_liste_threads =
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;
# 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 519 sem_t *sem_open2(pid_t pid, int ordre);	Line 507 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 797 pid_t debug_fork();	Line 782 pid_t debug_fork();
# 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_semaphore __erreur(2015)
	# define d_es_mutex_acquis_autre_thread __erreur(2016)
#endif	#endif

/*	/*
Line 936 pid_t debug_fork();	Line 922 pid_t debug_fork();
# define d_ex_creation_variable_globale __erreur(83)	# define d_ex_creation_variable_globale __erreur(83)
# 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_expression_reguliere __erreur(87)
	# define d_ex_instruction_indisponible __erreur(88)
#endif	#endif


Line 1123 typedef struct fichier	Line 1112 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

Line 1196 typedef struct descripteur_fichier	Line 1186 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 1292 typedef struct liste_chainee	Line 1285 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 2164 typedef struct processus	Line 2192 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 2180 typedef struct processus	Line 2209 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;

	/* 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;
Line 2578 void instruction_pmax(struct_processus *	Line 2607 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 2634 void instruction_read(struct_processus *	Line 2664 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 2829 void appel_gnuplot(struct_processus *s_e	Line 2861 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 2904 void interruption2(int signal);	Line 2938 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 3005 complex16 sommation_vecteur_complexe(com	Line 3040 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 3063 struct_liste_chainee *sauvegarde_argumen	Line 3099 struct_liste_chainee *sauvegarde_argumen
#ifndef RPLARGS	#ifndef RPLARGS
unsigned char analyse_algebrique(struct_processus s_etat_processus,	unsigned char analyse_algebrique(struct_processus s_etat_processus,
unsigned char chaine_algebrique, struct_liste_chainee *l_base_liste);	unsigned char chaine_algebrique, struct_liste_chainee *l_base_liste);
	unsigned char analyse_flux(struct_processus s_etat_processus,
	unsigned char *flux, long longueur);
unsigned char *recherche_chemin_fichiers_temporaires(struct_processus	unsigned char *recherche_chemin_fichiers_temporaires(struct_processus
*s_etat_processus);	*s_etat_processus);
unsigned char compactage(unsigned char chaine);	unsigned char compactage(unsigned char chaine);
Line 3118 logical1 caracteristiques_fichier(struct	Line 3156 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 3211 int liste_variables(struct_processus *s_	Line 3251 int liste_variables(struct_processus *s_
struct_arbre_variables *l_element_courant);	struct_arbre_variables *l_element_courant);
int nombre_variables(struct_processus *s_etat_processus,	int nombre_variables(struct_processus *s_etat_processus,
struct_arbre_variables *l_element_courant);	struct_arbre_variables *l_element_courant);
	int readline_analyse_syntaxique(int count, int key);
	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 3250 logical8 masque_entiers_binaires(struct_	Line 3292 logical8 masque_entiers_binaires(struct_
integer8 occupation_memoire(struct_objet *s_objet);	integer8 occupation_memoire(struct_objet *s_objet);
integer8 longueur_chaine(struct_processus *s_etat_processus,	integer8 longueur_chaine(struct_processus *s_etat_processus,
unsigned char *chaine);	unsigned char *chaine);
	integer8 position_caractere_de_chaine(struct_processus *s_etat_processus,
	unsigned char chaine, unsigned char position);
#endif	#endif

/*	/*

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.140
changed lines
	Added in v.1.174