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.174 and 1.221

version 1.174, 2012/09/10 15:54:13	version 1.221, 2013/04/18 15:33:31
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.10	RPL/2 (R) version 4.1.14
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

Line 65	Line 65

#include <stdio.h>	#include <stdio.h>
#include <stdlib.h>	#include <stdlib.h>
	#include <stdint.h>
#include <math.h>	#include <math.h>
#include <string.h>	#include <string.h>
#include <strings.h>	#include <strings.h>
Line 72	Line 73
#include <errno.h>	#include <errno.h>
#include <stdarg.h>	#include <stdarg.h>
#include <poll.h>	#include <poll.h>
	#include <signal.h>

#ifndef RPLARGS	#ifndef RPLARGS
# include <sys/mman.h>	# include <sys/mman.h>
Line 153	Line 155
# endif	# endif

# include <setjmp.h>	# include <setjmp.h>
# include <signal.h>
# include <termios.h>	# include <termios.h>
# include <time.h>	# include <time.h>
# include <unistd.h>	# include <unistd.h>
Line 163	Line 164
# include "readline.h"	# include "readline.h"
# include "termcap.h"	# include "termcap.h"
# include "iconv.h"	# include "iconv.h"
	# include "zlib.h"

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

# include "sqlite3.h"	# include "sqlite3.h"
# include "sigsegv.h"	# include "sigsegv.h"
# ifdef OS2	# ifdef OS2
Line 445 union semun	Line 481 union semun
__STATIC_MUTEX_INITIALIZATION__;	__STATIC_MUTEX_INITIALIZATION__;
__EXTERN__ pthread_mutex_t mutex_gestionnaires_signaux_atomique	__EXTERN__ pthread_mutex_t mutex_gestionnaires_signaux_atomique
__STATIC_MUTEX_INITIALIZATION__;	__STATIC_MUTEX_INITIALIZATION__;
	__EXTERN__ pthread_mutex_t mutex_creation_variable_partagee
	__STATIC_MUTEX_INITIALIZATION__;
	__EXTERN__ pthread_mutex_t mutex_sections_critiques;
	__EXTERN__ pthread_mutex_t mutex_liste_variables_partagees;

__EXTERN__ sem_t __PTR__ semaphore_gestionnaires_signaux;	__EXTERN__ sem_t __PTR__ semaphore_gestionnaires_signaux;

Line 925 pid_t debug_fork();	Line 965 pid_t debug_fork();
# define d_ex_mutex_acquis_autre_thread __erreur(86)	# define d_ex_mutex_acquis_autre_thread __erreur(86)
# define d_ex_expression_reguliere __erreur(87)	# define d_ex_expression_reguliere __erreur(87)
# define d_ex_instruction_indisponible __erreur(88)	# define d_ex_instruction_indisponible __erreur(88)
	# define d_ex_chiffrement __erreur(89)
	# define d_ex_chiffrement_indisponible __erreur(90)
	# define d_ex_longueur_clef_chiffrement __erreur(91)
	# define d_ex_taille_message __erreur(92)
#endif	#endif


Line 982 enum t_type { ADR = 0, ALG, BIN, CHN, C	Line 1026 enum t_type { ADR = 0, ALG, BIN, CHN, C
SLB, SPH, SQL, TBL, VCX, VIN, VRL };	SLB, SPH, SQL, TBL, VCX, VIN, VRL };

/*	/*
ADR : adresse sur 32 bits (au moins) non signés (unsigned long)	ADR : adresse sur 64 bits signés.
Adresse d'une définition à interpréter.	Adresse d'une définition à interpréter.

ALG : expression algébrique (struct_liste_chainee *)	ALG : expression algébrique (struct_liste_chainee *)
Line 1084 typedef struct objet	Line 1128 typedef struct objet
#ifndef RPLARGS	#ifndef RPLARGS
typedef struct fichier	typedef struct fichier
{	{
unsigned long descripteur;	int descripteur;

unsigned char acces; /* S/D/I */	unsigned char acces; /* S/D/I */
unsigned char binaire; /* Y/N/F */	unsigned char binaire; /* Y/N/F */
Line 1177 typedef struct bibliotheque	Line 1221 typedef struct bibliotheque
#ifndef RPLARGS	#ifndef RPLARGS
typedef struct descripteur_fichier	typedef struct descripteur_fichier
{	{
unsigned long identifiant;	int identifiant;

unsigned char effacement;	unsigned char effacement;
unsigned char type; // C (file ) ou S (sqlite )	unsigned char type; // C (file ) ou S (sqlite )
Line 1223 typedef struct connecteur_sql	Line 1267 typedef struct connecteur_sql
# ifdef POSTGRESQL_SUPPORT	# ifdef POSTGRESQL_SUPPORT
PGconn *postgresql;	PGconn *postgresql;
# endif	# endif
	sqlite3 *sqlite;
} descripteur;	} descripteur;
} struct_connecteur_sql;	} struct_connecteur_sql;
#endif	#endif
Line 1236 typedef struct connecteur_sql	Line 1281 typedef struct connecteur_sql
"POSTGRESQL") == 0) \	"POSTGRESQL") == 0) \
postgresqlclose((((struct_connecteur_sql ) (*s_objet).objet)) \	postgresqlclose((((struct_connecteur_sql ) (*s_objet).objet)) \
.descripteur); \	.descripteur); \
	else if (strcmp((((struct_connecteur_sql ) (*s_objet).objet)).type, \
	"SQLITE") == 0) \
	sqlite3_close((((struct_connecteur_sql ) (*s_objet).objet)) \
	.descripteur.sqlite); \
else \	else \
BUG(1, uprintf("SQL type '%s' not allowed!", \	BUG(1, uprintf("SQL type '%s' not allowed!", \
(((struct_connecteur_sql ) (*s_objet).objet)).type));	(((struct_connecteur_sql ) (*s_objet).objet)).type));
Line 1442 typedef struct liste_pile_systeme	Line 1491 typedef struct liste_pile_systeme
{	{
struct liste_pile_systeme *suivant;	struct liste_pile_systeme *suivant;

struct_liste_chainee *pointeur_objet_retour;

struct_objet *indice_boucle;	struct_objet *indice_boucle;
struct_objet *limite_indice_boucle;	struct_objet *limite_indice_boucle;
struct_objet *objet_de_test;	struct_objet *objet_de_test;
Line 1481 typedef struct liste_pile_systeme	Line 1528 typedef struct liste_pile_systeme

/*	/*
type clôture :	type clôture :
C SELECT : END termine un test SELECT/DEFAULT/END.	C SELECT : END termine un test SELECT/DEFAULT/END.
D DO : END termine une boucle DO/UNTIL/END.	D DO : END termine une boucle DO/UNTIL/END.
I IF : END termine un test IF/THEN (ELSE)/END.	I IF : END termine un test IF/THEN (ELSE)/END.
J IFERR : END termine un test IFERR/THEN (ELSE)/END.	J IFERR : END termine un test IFERR/THEN (ELSE)/END.
K CASE : END termine un test CASE/THEN/END	K CASE : END termine un test CASE/THEN/END
W WHILE : END termine une boucle WHILE/REPEAT/END.	W WHILE : END termine une boucle WHILE/REPEAT/END.
	Q CRITICAL : END termine une section critique CRITICAL/END

F FOR : NEXT ou STEP termine une boucle avec compteur.	F FOR : NEXT ou STEP termine une boucle avec compteur.
S START : NEXT ou STEP termine une boucle sans compteur.	S START : NEXT ou STEP termine une boucle sans compteur.
L LOOP : boucle utilisé dans le traitement de l'instruction RETURN.	L LOOP : boucle utilisé dans le traitement de l'instruction RETURN.
Elle correspond à une boucle FOR ou START mais sans son	Elle correspond à une boucle FOR ou START mais sans son
initialisation.	initialisation.
	A FORALL : NEXT termine une boucle sur un objet.
*/	*/

unsigned long adresse_retour;	integer8 adresse_retour;
unsigned long niveau_courant;	integer8 niveau_courant;
struct_objet *pointeur_adresse_retour;	struct_liste_chainee *pointeur_objet_retour;
} struct_liste_pile_systeme;	} struct_liste_pile_systeme;
#endif	#endif

Line 1511 typedef struct liste_pile_systeme	Line 1560 typedef struct liste_pile_systeme
#ifndef RPLARGS	#ifndef RPLARGS
typedef union position_variable	typedef union position_variable
{	{
unsigned long adresse;	integer8 adresse;
struct_objet *pointeur;	struct_objet *pointeur;
} union_position_variable;	} union_position_variable;

typedef struct variable	typedef struct variable
{	{
unsigned char *nom;	unsigned char *nom;
unsigned char origine;	unsigned char origine; // P(rogramme) ou E(valuation)

unsigned long niveau;	integer8 niveau;

union_position_variable variable_statique;	union_position_variable variable_statique;
union_position_variable variable_partagee;	union_position_variable variable_partagee;
Line 1545 typedef struct variable_partage	Line 1594 typedef struct variable_partage
unsigned char *nom;	unsigned char *nom;
unsigned char origine;	unsigned char origine;

unsigned long niveau;	integer8 niveau;

union_position_variable variable_partagee;	union_position_variable variable_partagee;

struct_objet *objet;	struct_objet *objet;
} struct_variable_partagee;

typedef struct table_variables_partagees
{
pthread_mutex_t mutex;

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

unsigned long position_variable;
} struct_table_variables_partagees;

#endif	#endif

Line 1582 typedef struct variable_statique	Line 1621 typedef struct variable_statique
// 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;	integer8 niveau;

union_position_variable variable_statique;	union_position_variable variable_statique;

Line 1599 typedef struct variable_statique	Line 1638 typedef struct variable_statique

typedef struct vecteur	typedef struct vecteur
{	{
unsigned long taille;	integer8 taille;

unsigned char type; /* C (complex16), R (real8), I (integer8) /	unsigned char type; /* C (complex16), R (real8), I (integer8) /

Line 1615 typedef struct vecteur	Line 1654 typedef struct vecteur

typedef struct matrice	typedef struct matrice
{	{
unsigned long nombre_lignes;	integer8 nombre_lignes;
unsigned long nombre_colonnes;	integer8 nombre_colonnes;

unsigned char type; /* C (complex16), R (real8), I (integer8) /	unsigned char type; /* C (complex16), R (real8), I (integer8) /

Line 1632 typedef struct matrice	Line 1671 typedef struct matrice

typedef struct tableau	typedef struct tableau
{	{
unsigned long nombre_elements;	integer8 nombre_elements;

struct_objet **elements;	struct_objet **elements;
} struct_tableau;	} struct_tableau;
Line 1726 typedef struct instruction	Line 1765 typedef struct instruction

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

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

	struct arbre_variables *noeud_pere;
	struct arbre_variables **noeuds;

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

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

	struct arbre_variables_partagees *noeud_pere;
	struct arbre_variables_partagees **noeuds;

	struct liste_variables_partagees *feuille;

	pthread_mutex_t mutex_feuille;
	} struct_arbre_variables_partagees;

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

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

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

logical1 variable_verrouillee;	logical1 variable_verrouillee;
	logical1 variable_masquee;
	pthread_mutex_t *mutex;
union_position_variable variable_statique;	union_position_variable variable_statique;
union_position_variable variable_partagee;	union_position_variable variable_partagee;
} struct_tableau_variables;	} struct_tableau_variables;

	// La liste des variables est une liste doublement chaînée et circulaire.
typedef struct liste_variables	typedef struct liste_variables
{	{
union	union
Line 1771 typedef struct liste_variables	Line 1846 typedef struct liste_variables
struct liste_variables *precedent;	struct liste_variables *precedent;
} struct_liste_variables;	} struct_liste_variables;

	// La liste des variables statiques et une liste double chaînée et non
	// circulaire.
	typedef struct liste_variables_statiques
	{
	struct liste_variables_statiques *suivant;
	struct liste_variables_statiques *precedent;
	struct liste_variables_statiques *reference;
	struct_arbre_variables *feuille;
	struct_variable_statique *variable;
	} struct_liste_variables_statiques;

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

/*	/*
Line 1811 typedef struct processus	Line 1907 typedef struct processus
unsigned char traitement_cycle_exit; /N/E/C/	unsigned char traitement_cycle_exit; /N/E/C/
unsigned char recherche_type; /Y/N/	unsigned char recherche_type; /Y/N/

unsigned long position_courante;	integer8 position_courante;
unsigned long longueur_definitions_chainees;	integer8 longueur_definitions_chainees;

/* Pointeurs sur les instructions */	/* Pointeurs sur les instructions */

Line 1829 typedef struct processus	Line 1925 typedef struct processus
struct_liste_chainee *l_base_pile;	struct_liste_chainee *l_base_pile;
struct_liste_chainee *l_base_pile_last;	struct_liste_chainee *l_base_pile_last;

unsigned long hauteur_pile_operationnelle;	integer8 hauteur_pile_operationnelle;

/* Piles systemes */	/* Piles systemes */

struct_liste_pile_systeme *l_base_pile_systeme;	struct_liste_pile_systeme *l_base_pile_systeme;

unsigned long hauteur_pile_systeme;	integer8 hauteur_pile_systeme;

/* Gestion des processus */	/* Gestion des processus */

Line 1860 typedef struct processus	Line 1956 typedef struct processus
logical1 presence_fusible;	logical1 presence_fusible;
pthread_t thread_fusible;	pthread_t thread_fusible;
pthread_t thread_surveille_par_fusible;	pthread_t thread_surveille_par_fusible;
	pthread_t thread_signaux;
	int pipe_signaux[2];

volatile int pointeur_signal_ecriture;	volatile int pointeur_signal_ecriture;
volatile int pointeur_signal_lecture;	volatile int pointeur_signal_lecture;
Line 1886 typedef struct processus	Line 1984 typedef struct processus

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

	struct_arbre_variables_partagees
	**s_arbre_variables_partagees;
	struct_liste_variables_partagees
	**l_liste_variables_partagees;

logical1 niveau_supprime;	logical1 niveau_supprime;

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

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

struct_variable_statique *s_liste_variables_statiques;	integer8 niveau_courant;
unsigned long nombre_variables_statiques;	integer8 niveau_initial;
unsigned long nombre_variables_statiques_allouees;

struct_table_variables_partagees
*s_liste_variables_partagees;

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

logical1 creation_variables_statiques;	logical1 creation_variables_statiques;
logical1 creation_variables_partagees;	logical1 creation_variables_partagees;
Line 1925 typedef struct processus	Line 2025 typedef struct processus

struct_liste_chainee *s_bibliotheques;	struct_liste_chainee *s_bibliotheques;
struct_instruction_externe *s_instructions_externes;	struct_instruction_externe *s_instructions_externes;
unsigned long nombre_instructions_externes;	integer8 nombre_instructions_externes;

/* Fichier d'impression */	/* Fichier d'impression */

Line 2075 typedef struct processus	Line 2175 typedef struct processus
/* Traitement des exceptions */	/* Traitement des exceptions */

logical1 arret_si_exception;	logical1 arret_si_exception;
unsigned int exception;	int exception;
unsigned int derniere_exception;	int derniere_exception;
unsigned int exception_processus_fils;	int exception_processus_fils;

/* Traitement des erreurs */	/* Traitement des erreurs */

unsigned int erreur_compilation;	int erreur_compilation;
unsigned int erreur_execution;	int erreur_execution;
unsigned int erreur_systeme;	int erreur_systeme;

struct_objet *s_objet_errone;	struct_objet *s_objet_errone;
struct_objet *s_objet_erreur;	struct_objet *s_objet_erreur;

logical1 erreur_scrutation;	logical1 erreur_scrutation;

volatile unsigned int erreur_systeme_processus_fils;	volatile int erreur_systeme_processus_fils;
unsigned int erreur_execution_processus_fils;	int erreur_execution_processus_fils;

pid_t pid_erreur_processus_fils;	pid_t pid_erreur_processus_fils;

Line 2099 typedef struct processus	Line 2199 typedef struct processus

integer8 derniere_erreur_fonction_externe;	integer8 derniere_erreur_fonction_externe;

unsigned int derniere_erreur_systeme;	int derniere_erreur_systeme;
unsigned int derniere_erreur_execution;	int derniere_erreur_execution;
unsigned int derniere_erreur_evaluation;	int derniere_erreur_evaluation;

unsigned char *instruction_derniere_erreur;	unsigned char *instruction_derniere_erreur;

unsigned long niveau_derniere_erreur;	integer8 niveau_derniere_erreur;

logical1 core;	logical1 core;
logical1 invalidation_message_erreur;	logical1 invalidation_message_erreur;
Line 2113 typedef struct processus	Line 2213 typedef struct processus
/* Debug */	/* Debug */

logical1 debug;	logical1 debug;
integer8 type_debug;	logical8 type_debug;
logical1 debug_programme;	logical1 debug_programme;
logical1 execution_pas_suivant;	logical1 execution_pas_suivant;
logical1 traitement_instruction_halt;	logical1 traitement_instruction_halt;
Line 2188 typedef struct processus	Line 2288 typedef struct processus
unsigned char retour_routine_evaluation;	unsigned char retour_routine_evaluation;
unsigned char *localisation;	unsigned char *localisation;

unsigned long niveau_recursivite;	integer8 niveau_recursivite;

pid_t pid_processus_pere;	pid_t pid_processus_pere;
pthread_t tid_processus_pere;	pthread_t tid_processus_pere;
Line 2215 typedef struct processus	Line 2315 typedef struct processus

struct_liste_chainee *liste_mutexes;	struct_liste_chainee *liste_mutexes;
pthread_mutex_t protection_liste_mutexes;	pthread_mutex_t protection_liste_mutexes;
	unsigned int sections_critiques;

/* Drapeau nécessaire à RESTART */	/* Drapeau nécessaire à RESTART */

Line 2223 typedef struct processus	Line 2324 typedef struct processus
/* 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;	integer8 taille_pile_tampon;
struct_liste_chainee *pile_tampon;	struct_liste_chainee *pile_tampon;

double estimation_taille_pile_systeme_tampon;	double estimation_taille_pile_systeme_tampon;
unsigned long taille_pile_systeme_tampon;	integer8 taille_pile_systeme_tampon;
struct_liste_pile_systeme *pile_systeme_tampon;	struct_liste_pile_systeme *pile_systeme_tampon;

unsigned long taille_pile_objets;	integer8 taille_pile_objets;
struct_objet *pile_objets;	struct_objet *pile_objets;

# define TAILLE_CACHE 16384	# define TAILLE_CACHE 1024

unsigned long *objets_adr[TAILLE_CACHE];	integer8 *objets_adr[TAILLE_CACHE];
int pointeur_adr;	int pointeur_adr;

logical8 *objets_bin[TAILLE_CACHE];	logical8 *objets_bin[TAILLE_CACHE];
Line 2271 typedef struct processus	Line 2372 typedef struct processus
struct_arbre_variables *variables_noeud[TAILLE_CACHE];	struct_arbre_variables *variables_noeud[TAILLE_CACHE];
int pointeur_variables_noeud;	int pointeur_variables_noeud;

	struct_arbre_variables_partagees
	*variables_partagees_noeud[TAILLE_CACHE];
	int pointeur_variables_partagees_noeud;

struct_liste_variables *variables_feuille[TAILLE_CACHE];	struct_liste_variables *variables_feuille[TAILLE_CACHE];
int pointeur_variables_feuille;	int pointeur_variables_feuille;

Line 2279 typedef struct processus	Line 2384 typedef struct processus

struct_arbre_variables **variables_tableau_noeuds[TAILLE_CACHE];	struct_arbre_variables **variables_tableau_noeuds[TAILLE_CACHE];
int pointeur_variables_tableau_noeuds;	int pointeur_variables_tableau_noeuds;

	struct_arbre_variables_partagees
	**variables_tableau_noeuds_partages
	[TAILLE_CACHE];
	int pointeur_variables_tableau_noeuds_partages;
} struct_processus;	} struct_processus;
#endif	#endif

Line 2292 typedef struct processus	Line 2402 typedef struct processus
typedef struct fonction	typedef struct fonction
{	{
unsigned char *nom_fonction;	unsigned char *nom_fonction;
unsigned long nombre_arguments;	integer8 nombre_arguments;

void (fonction)(struct_processus );	void (fonction)(struct_processus );

Line 2353 void instruction_ceil(struct_processus *	Line 2463 void instruction_ceil(struct_processus *
void instruction_centr(struct_processus *s_etat_processus);	void instruction_centr(struct_processus *s_etat_processus);
void instruction_cf(struct_processus *s_etat_processus);	void instruction_cf(struct_processus *s_etat_processus);
void instruction_chr(struct_processus *s_etat_processus);	void instruction_chr(struct_processus *s_etat_processus);
	void instruction_cipher(struct_processus *s_etat_processus);
void instruction_clear(struct_processus *s_etat_processus);	void instruction_clear(struct_processus *s_etat_processus);
void instruction_cllcd(struct_processus *s_etat_processus);	void instruction_cllcd(struct_processus *s_etat_processus);
void instruction_clmf(struct_processus *s_etat_processus);	void instruction_clmf(struct_processus *s_etat_processus);
Line 2373 void instruction_col_fleche(struct_proce	Line 2484 void instruction_col_fleche(struct_proce
void instruction_col_moins(struct_processus *s_etat_processus);	void instruction_col_moins(struct_processus *s_etat_processus);
void instruction_col_plus(struct_processus *s_etat_processus);	void instruction_col_plus(struct_processus *s_etat_processus);
void instruction_comb(struct_processus *s_etat_processus);	void instruction_comb(struct_processus *s_etat_processus);
	void instruction_compress(struct_processus *s_etat_processus);
void instruction_con(struct_processus *s_etat_processus);	void instruction_con(struct_processus *s_etat_processus);
void instruction_cond(struct_processus *s_etat_processus);	void instruction_cond(struct_processus *s_etat_processus);
void instruction_cont(struct_processus *s_etat_processus);	void instruction_cont(struct_processus *s_etat_processus);
Line 2387 void instruction_cosh(struct_processus *	Line 2499 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 2412 void instruction_detach(struct_processus	Line 2525 void instruction_detach(struct_processus
void instruction_dft(struct_processus *s_etat_processus);	void instruction_dft(struct_processus *s_etat_processus);
void instruction_dgtiz(struct_processus *s_etat_processus);	void instruction_dgtiz(struct_processus *s_etat_processus);
void instruction_diag_fleche(struct_processus *s_etat_processus);	void instruction_diag_fleche(struct_processus *s_etat_processus);
	void instruction_digest(struct_processus *s_etat_processus);
void instruction_disp(struct_processus *s_etat_processus);	void instruction_disp(struct_processus *s_etat_processus);
void instruction_division(struct_processus *s_etat_processus);	void instruction_division(struct_processus *s_etat_processus);
void instruction_do(struct_processus *s_etat_processus);	void instruction_do(struct_processus *s_etat_processus);
Line 2471 void instruction_fleche_str(struct_proce	Line 2585 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 2796 void instruction_t_vers_l(struct_process	Line 2911 void instruction_t_vers_l(struct_process

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_uncompress(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 2846 void instruction_yield(struct_processus	Line 2962 void instruction_yield(struct_processus
#ifndef RPLARGS	#ifndef RPLARGS
void affectation_interruptions_logicielles(struct_processus *s_etat_processus);	void affectation_interruptions_logicielles(struct_processus *s_etat_processus);
void affichage_pile(struct_processus *s_etat_processus,	void affichage_pile(struct_processus *s_etat_processus,
struct_liste_chainee *l_element_courant, unsigned long	struct_liste_chainee *l_element_courant, integer8 niveau_courant);
niveau_courant);
#endif	#endif

void allocation_maillon(struct_processus s_etat_processus);	void allocation_maillon(struct_processus s_etat_processus);
Line 2870 void conversion_format(struct_processus	Line 2985 void conversion_format(struct_processus
unsigned char *chaine);	unsigned char *chaine);
void conversion_hms_vers_decimal(real8 *angle);	void conversion_hms_vers_decimal(real8 *angle);
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, integer8 longueur);
void conversion_radians_vers_degres(real8 *angle);	void conversion_radians_vers_degres(real8 *angle);
void copie_arbre_variables(struct_processus *s_etat_processus,	void copie_arbre_variables(struct_processus *s_etat_processus,
struct_processus *s_nouvel_etat_processus);	struct_processus *s_nouvel_etat_processus);
Line 2883 void determinant(struct_processus *s_eta	Line 2998 void determinant(struct_processus *s_eta
void *valeur);	void *valeur);
void deverrouillage_threads_concurrents(struct_processus *s_etat_processus);	void deverrouillage_threads_concurrents(struct_processus *s_etat_processus);
void ecriture_pile(struct_processus s_etat_processus, file flux,	void ecriture_pile(struct_processus s_etat_processus, file flux,
struct_liste_chainee *l_element_courant, unsigned long niveau_courant);	struct_liste_chainee *l_element_courant, integer8 niveau_courant);
void ecriture_profil(struct_processus *s_etat_processus);	void ecriture_profil(struct_processus *s_etat_processus);
void effacement_pile_systeme(struct_processus *s_etat_processus);	void effacement_pile_systeme(struct_processus *s_etat_processus);
void empilement_pile_systeme(struct_processus *s_etat_processus);	void empilement_pile_systeme(struct_processus *s_etat_processus);
void encart(struct_processus *s_etat_processus, unsigned long duree);	void encart(struct_processus *s_etat_processus, integer8 duree);
void evaluation_romberg(struct_processus *s_etat_processus,	void evaluation_romberg(struct_processus *s_etat_processus,
struct_objet s_expression, unsigned char variable, real8 *point,	struct_objet s_expression, unsigned char variable, real8 *point,
real8 valeur, logical1 validite);	real8 valeur, logical1 validite);
Line 2908 void formateur_elementaire_tex(struct_pr	Line 3023 void formateur_elementaire_tex(struct_pr
file fichier, struct_objet s_objet, unsigned char environnement);	file fichier, struct_objet s_objet, unsigned char environnement);
void impression_pile(struct_processus *s_etat_processus,	void impression_pile(struct_processus *s_etat_processus,
struct_liste_chainee *l_element_courant,	struct_liste_chainee *l_element_courant,
unsigned char methode, unsigned long niveau_courant);	unsigned char methode, integer8 niveau_courant);
void impression_tex(struct_processus *s_etat_processus);	void impression_tex(struct_processus *s_etat_processus);
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);
Line 2916 void initialisation_completion(void);	Line 3031 void initialisation_completion(void);
void initialisation_contexte_cas(struct_processus *s_etat_processus);	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, integer8 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);	void initialisation_variables(struct_processus *s_etat_processus);
#endif	#endif
Line 2956 void liberation_arbre_instructions(struc	Line 3071 void liberation_arbre_instructions(struc
struct_instruction *arbre);	struct_instruction *arbre);
void liberation_arbre_variables(struct_processus *s_etat_processus,	void liberation_arbre_variables(struct_processus *s_etat_processus,
struct_arbre_variables *arbre, logical1 definitions);	struct_arbre_variables *arbre, logical1 definitions);
	void liberation_arbre_variables_partagees(struct_processus *s_etat_processus,
	struct_arbre_variables_partagees *arbre);
void liberation_contexte_cas(struct_processus *s_etat_processus);	void liberation_contexte_cas(struct_processus *s_etat_processus);
void liberation_generateur_aleatoire(struct_processus *s_etat_processus);	void liberation_generateur_aleatoire(struct_processus *s_etat_processus);
	void liberation_mutexes_arbre_variables_partagees(struct_processus
	s_etat_processus, struct_arbre_variables_partagees l_element_courant);
void liberation_threads(struct_processus *s_etat_processus);	void liberation_threads(struct_processus *s_etat_processus);
void liberation_profil(struct_processus *s_etat_processus);	void liberation_profil(struct_processus *s_etat_processus);
void localisation_courante(struct_processus *s_etat_processus);	void localisation_courante(struct_processus *s_etat_processus);
Line 2981 void scrutation_injection(struct_process	Line 3100 void scrutation_injection(struct_process
void scrutation_interruptions(struct_processus *s_etat_processus);	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, integer8 taille_octets);
	void thread_signaux(void argument);
void trace(struct_processus s_etat_processus, FILE flux);	void trace(struct_processus s_etat_processus, FILE flux);
void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus);	void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus);
void traitement_exceptions_gsl(const char reason, const char file,	void traitement_exceptions_gsl(const char reason, const char file,
int line, int gsl_errno);	int line, int gsl_errno);
void traitement_interruptions_logicielles(struct_processus *s_etat_processus);	void traitement_interruptions_logicielles(struct_processus *s_etat_processus);
void tri_base_symboles_externes(struct_processus *s_etat_processus);	void tri_base_symboles_externes(struct_processus *s_etat_processus);
void tri_vecteur(real8 *vecteur, unsigned long taille);	void tri_vecteur(real8 *vecteur, integer8 taille);
void valeurs_propres(struct_processus *s_etat_processus,	void valeurs_propres(struct_processus *s_etat_processus,
struct_matrice *s_matrice,	struct_matrice *s_matrice,
struct_vecteur *s_valeurs_propres,	struct_vecteur *s_valeurs_propres,
Line 3028 int envoi_signal_thread(pthread_t tid, e	Line 3148 int envoi_signal_thread(pthread_t tid, e
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/

real8 sommation_vecteur_reel(real8 vecteur, unsigned long taille,	real8 sommation_vecteur_reel(real8 vecteur, integer8 taille,
logical1 *erreur_memoire);	logical1 *erreur_memoire);
complex16 sommation_vecteur_complexe(complex16 vecteur, unsigned long taille,	complex16 sommation_vecteur_complexe(complex16 vecteur, integer8 taille,
logical1 *erreur_memoire);	logical1 *erreur_memoire);

/*	/*
Line 3052 int rplinit(int argc, char *argv[], char	Line 3172 int rplinit(int argc, char *argv[], char

#ifndef RPLARGS	#ifndef RPLARGS
real8 correlation_statistique(struct_matrice *s_matrice,	real8 correlation_statistique(struct_matrice *s_matrice,
unsigned long colonne_1, unsigned long colonne_2, logical1 *erreur);	integer8 colonne_1, integer8 colonne_2, logical1 *erreur);
real8 covariance_statistique(struct_matrice *s_matrice,	real8 covariance_statistique(struct_matrice *s_matrice,
unsigned long colonne_1, unsigned long colonne_2,	integer8 colonne_1, integer8 colonne_2,
unsigned char type, logical1 *erreur);	unsigned char type, logical1 *erreur);
struct_vecteur ecart_type_statistique(struct_matrice s_matrice,	struct_vecteur ecart_type_statistique(struct_matrice s_matrice,
unsigned char type);	unsigned char type);
struct_vecteur moyenne_statistique(struct_matrice s_matrice);	struct_vecteur moyenne_statistique(struct_matrice s_matrice);
struct_vecteur sommation_colonne_statistique(struct_matrice s_matrice,	struct_vecteur sommation_colonne_statistique(struct_matrice s_matrice,
unsigned long colonne);	integer8 colonne);
struct_vecteur *sommation_produits_colonnes_statistiques(struct_matrice	struct_vecteur *sommation_produits_colonnes_statistiques(struct_matrice
*s_matrice, unsigned long colonne_1, unsigned long colonne_2);	*s_matrice, integer8 colonne_1, integer8 colonne_2);
struct_vecteur sommation_statistique(struct_matrice s_matrice);	struct_vecteur sommation_statistique(struct_matrice s_matrice);
struct_vecteur variance_statistique(struct_matrice s_matrice,	struct_vecteur variance_statistique(struct_matrice s_matrice,
unsigned char type);	unsigned char type);
Line 3088 struct_liste_chainee *depilement_pile_op	Line 3208 struct_liste_chainee *depilement_pile_op
struct_liste_chainee *empilement_pile_operationnelle(struct_rpl_arguments	struct_liste_chainee *empilement_pile_operationnelle(struct_rpl_arguments
s_rpl_arguments, struct_objet s_objet);	s_rpl_arguments, struct_objet s_objet);
struct_liste_chainee *sauvegarde_arguments(struct_rpl_arguments	struct_liste_chainee *sauvegarde_arguments(struct_rpl_arguments
*s_rpl_arguments, unsigned long nombre_arguments);	*s_rpl_arguments, integer8 nombre_arguments);

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
Line 3100 struct_liste_chainee *sauvegarde_argumen	Line 3220 struct_liste_chainee *sauvegarde_argumen
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 analyse_flux(struct_processus s_etat_processus,
unsigned char *flux, long longueur);	unsigned char *flux, integer8 longueur);
unsigned char *recherche_chemin_fichiers_temporaires(struct_processus	unsigned char chiffrement(const EVP_CIPHER type_chiffrement,
*s_etat_processus);	logical1 encodage, unsigned char *message, integer8 longueur_message,
	unsigned char *clef, integer8 longueur_clef,
	unsigned char *vecteur_initialisation,
	integer8 *longueur_message_chiffre);
unsigned char compactage(unsigned char chaine);	unsigned char compactage(unsigned char chaine);
unsigned char conversion_majuscule(unsigned char chaine);	unsigned char conversion_majuscule(unsigned char chaine);
unsigned char creation_nom_fichier(struct_processus s_etat_processus,	unsigned char creation_nom_fichier(struct_processus s_etat_processus,
unsigned char *chemin);	unsigned char *chemin);
unsigned char *date_compilation();	unsigned char *date_compilation();
unsigned char extraction_chaine(unsigned char chaine, unsigned long i,	unsigned char extraction_chaine(unsigned char chaine, integer8 i, integer8 j);
unsigned long j);
unsigned char formateur(struct_processus s_etat_processus, long offset,	unsigned char formateur(struct_processus s_etat_processus, long offset,
struct_objet *s_objet);	struct_objet *s_objet);
unsigned char formateur_fichier(struct_processus s_etat_processus,	unsigned char formateur_fichier(struct_processus s_etat_processus,
struct_objet s_objet, struct_objet s_format,	struct_objet s_objet, struct_objet s_format,
long longueur, long longueur_champ, unsigned char format,	integer8 longueur, integer8 longueur_champ, unsigned char format,
unsigned char type, long longueur_effective, long recursivite);	unsigned char type, integer8 longueur_effective, integer8 recursivite,
	logical1 export_fichier);
unsigned char formateur_flux(struct_processus s_etat_processus,	unsigned char formateur_flux(struct_processus s_etat_processus,
unsigned char donnees, long longueur);	unsigned char donnees, integer8 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);	integer8 longueur, integer8 longueur_champ, unsigned char format);
unsigned char *formateur_fichier_binaire_nombre(struct_processus	unsigned char *formateur_fichier_binaire_nombre(struct_processus
s_etat_processus, void valeur_numerique, unsigned char type,	s_etat_processus, void valeur_numerique, unsigned char type_entree,
long longueur, long *longueur_conversion);	unsigned char type, integer8 longueur, integer8 *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);	integer8 longueur, integer8 longueur_champ, unsigned char format);
unsigned char formateur_nombre(struct_processus s_etat_processus,	unsigned char formateur_nombre(struct_processus s_etat_processus,
void *valeur_numerique, unsigned char type);	void *valeur_numerique, unsigned char type);
unsigned char formateur_reel(struct_processus s_etat_processus,	unsigned char formateur_reel(struct_processus s_etat_processus,
Line 3135 unsigned char *messages(struct_processus	Line 3258 unsigned char *messages(struct_processus
unsigned char pointeur_ieme_caractere(struct_processus s_etat_processus,	unsigned char pointeur_ieme_caractere(struct_processus s_etat_processus,
unsigned char *chaine, integer8 position);	unsigned char *chaine, integer8 position);
unsigned char purification_chaine(unsigned char chaine);	unsigned char purification_chaine(unsigned char chaine);
	unsigned char *recherche_chemin_fichiers_temporaires(struct_processus
	*s_etat_processus);
unsigned char reencodage(struct_processus s_etat_processus,	unsigned char reencodage(struct_processus s_etat_processus,
unsigned char chaine_entree, unsigned char codage_entree,	unsigned char chaine_entree, unsigned char codage_entree,
unsigned char *codage_sortie);	unsigned char *codage_sortie);
Line 3151 unsigned char *transliteration(struct_pr	Line 3276 unsigned char *transliteration(struct_pr

#ifndef RPLARGS	#ifndef RPLARGS
logical1 analyse_syntaxique(struct_processus *s_etat_processus);	logical1 analyse_syntaxique(struct_processus *s_etat_processus);
	logical1 arret_thread_signaux(struct_processus *s_etat_processus);
logical1 caracteristiques_fichier(struct_processus *s_etat_processus,	logical1 caracteristiques_fichier(struct_processus *s_etat_processus,
unsigned char nom, logical1 existence, logical1 *ouverture,	unsigned char nom, logical1 existence, logical1 *ouverture,
unsigned long *unite);	unsigned long *unite);
Line 3174 logical1 destruction_fichier(unsigned ch	Line 3300 logical1 destruction_fichier(unsigned ch
logical1 empilement(struct_processus *s_etat_processus,	logical1 empilement(struct_processus *s_etat_processus,
struct_liste_chainee *l_base_liste, struct_objet s_objet);	struct_liste_chainee *l_base_liste, struct_objet s_objet);
logical1 empilement_pile_last(struct_processus *s_etat_processus,	logical1 empilement_pile_last(struct_processus *s_etat_processus,
unsigned long nombre_arguments);	integer8 nombre_arguments);
logical1 evaluation(struct_processus s_etat_processus, struct_objet s_objet,	logical1 evaluation(struct_processus s_etat_processus, struct_objet s_objet,
unsigned char type_evaluation);	unsigned char type_evaluation);
logical1 initialisation_fichier_acces_direct(struct_processus *s_etat_processus,	logical1 initialisation_fichier_acces_direct(struct_processus *s_etat_processus,
sqlite3 *sqlite, logical1 binaire);	sqlite3 *sqlite, logical1 binaire);
logical1 initialisation_fichier_acces_indexe(struct_processus *s_etat_processus,	logical1 initialisation_fichier_acces_indexe(struct_processus *s_etat_processus,
sqlite3 *sqlite, integer8 position_clef, logical1 binaire);	sqlite3 *sqlite, integer8 position_clef, logical1 binaire);
	logical1 lancement_thread_signaux(struct_processus *s_etat_processus);
logical1 recherche_instruction_suivante(struct_processus *s_etat_processus);	logical1 recherche_instruction_suivante(struct_processus *s_etat_processus);
logical1 retrait_variable(struct_processus *s_etat_processus,	logical1 retrait_variable(struct_processus *s_etat_processus,
unsigned char *nom_variable, unsigned char type);	unsigned char *nom_variable, unsigned char type);
logical1 retrait_variable_par_niveau(struct_processus *s_etat_processus);	logical1 retrait_variables_par_niveau(struct_processus *s_etat_processus);
logical1 retrait_variable_partagee(struct_processus *s_etat_processus,	logical1 retrait_variable_partagee(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position);	unsigned char *nom_variable, union_position_variable position);
	logical1 retrait_variables_partagees_locales(
	struct_processus *s_etat_processus);
logical1 retrait_variable_statique(struct_processus *s_etat_processus,	logical1 retrait_variable_statique(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position);	unsigned char *nom_variable, union_position_variable position);
	logical1 retrait_variables_statiques_locales(
	struct_processus *s_etat_processus);
logical1 sequenceur(struct_processus *s_etat_processus);	logical1 sequenceur(struct_processus *s_etat_processus);
logical1 sequenceur_optimise(struct_processus *s_etat_processus);	logical1 sequenceur_optimise(struct_processus *s_etat_processus);
#endif	#endif
Line 3202 logical1 sequenceur_optimise(struct_proc	Line 3333 logical1 sequenceur_optimise(struct_proc
logical1 depassement_addition(integer8 a, integer8 b, integer8 *resultat);	logical1 depassement_addition(integer8 a, integer8 b, integer8 *resultat);
logical1 depassement_multiplication(integer8 a, integer8 b,	logical1 depassement_multiplication(integer8 a, integer8 b,
integer8 *resultat);	integer8 *resultat);
	logical1 depassement_soustraction(integer8 a, integer8 b, integer8 *resultat);
logical1 depassement_puissance(integer8 a, integer8 b, integer8 *resultat);	logical1 depassement_puissance(integer8 a, integer8 b, integer8 *resultat);

#ifndef RPLARGS	#ifndef RPLARGS
Line 3211 logical1 recherche_variable(struct_proce	Line 3343 logical1 recherche_variable(struct_proce
unsigned char *nom_variable);	unsigned char *nom_variable);
logical1 recherche_variable_globale(struct_processus *s_etat_processus,	logical1 recherche_variable_globale(struct_processus *s_etat_processus,
unsigned char *nom_variable);	unsigned char *nom_variable);
logical1 recherche_variable_partagee(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position,
unsigned char origine);
logical1 recherche_variable_statique(struct_processus *s_etat_processus,
unsigned char *nom_variable, union_position_variable position,
unsigned char origine);
logical1 test_cfsf(struct_processus *s_etat_processus,	logical1 test_cfsf(struct_processus *s_etat_processus,
unsigned char indice_drapeau);	unsigned char indice_drapeau);
logical1 test_expression_rpn(unsigned char *chaine);	logical1 test_expression_rpn(unsigned char *chaine);
Line 3246 ssize_t write_atomic(struct_processus *s	Line 3372 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);	int interruption_violation_access(void *adresse_fautive, int gravite);
#ifndef RPLARGS	#ifndef RPLARGS
int liste_variables(struct_processus *s_etat_processus,	integer8 liste_variables(struct_processus *s_etat_processus,
struct_tableau_variables *tableau, int position,	struct_tableau_variables *tableau);
struct_arbre_variables *l_element_courant);	integer8 nombre_variables(struct_processus *s_etat_processus);
int nombre_variables(struct_processus *s_etat_processus,
struct_arbre_variables *l_element_courant);
int readline_analyse_syntaxique(int count, int key);	int readline_analyse_syntaxique(int count, int key);
int readline_effacement(int count, int key);	int readline_effacement(int count, int key);
#endif	#endif
Line 3342 struct_objet *allocation(struct_processu	Line 3466 struct_objet *allocation(struct_processu
#ifndef RPLARGS	#ifndef RPLARGS
struct_objet formateur_date(struct_processus s_etat_processus,	struct_objet formateur_date(struct_processus s_etat_processus,
struct timeval *temps);	struct timeval *temps);
	struct_objet lecture_fichier_non_formate(struct_processus s_etat_processus,
	void *argument, integer8 longueur_buffer, logical1 recursivite);
struct_objet lecture_pipe(struct_processus s_etat_processus, int pipe);	struct_objet lecture_pipe(struct_processus s_etat_processus, int pipe);
struct_objet parametres_sql(struct_processus s_etat_processus,	struct_objet parametres_sql(struct_processus s_etat_processus,
struct_objet *s_parametres);	struct_objet *s_parametres);
struct_objet simplification(struct_processus s_etat_processus,	struct_objet simplification(struct_processus s_etat_processus,
struct_objet *s_objet);	struct_objet *s_objet);

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

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

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

/*	/*
Line 3357 struct_objet *simplification(struct_proc	Line 3501 struct_objet *simplification(struct_proc

#ifndef RPLARGS	#ifndef RPLARGS
struct_arbre creation_arbre(struct_processus s_etat_processus,	struct_arbre creation_arbre(struct_processus s_etat_processus,
struct_objet **t_objets, unsigned long indice,	struct_objet **t_objets, integer8 indice, integer8 indice_maximal);
unsigned long indice_maximal);
void liberation_arbre(struct_processus *s_etat_processus,	void liberation_arbre(struct_processus *s_etat_processus,
struct_arbre *s_noeud);	struct_arbre *s_noeud);
void parcours_arbre(struct_processus s_etat_processus, struct_arbre s_noeud);	void parcours_arbre(struct_processus s_etat_processus, struct_arbre s_noeud);
Line 3401 void f77multiplicationci_(complex16 *ca,	Line 3544 void f77multiplicationci_(complex16 *ca,
void f77multiplicationcr_(complex16 ca, real8 rb, complex16 *resultat);	void f77multiplicationcr_(complex16 ca, real8 rb, complex16 *resultat);

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

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

CVSweb interface <joel.bertrand@systella.fr>

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