version 1.138, 2011/11/15 07:01:37
|
version 1.160, 2012/04/12 09:56:40
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.4 |
RPL/2 (R) version 4.1.7 |
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 337 union semun
|
Line 339 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 SIGUSR1 |
Line 797 pid_t debug_fork();
|
Line 800 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 940 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 1130 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 1204 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 2164 typedef struct processus
|
Line 2175 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 2191 typedef struct processus
|
Line 2203 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; |
|
|
|
/* 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 2594 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 2651 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 2848 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 2925 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 3027 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 3094 unsigned char *formateur_nombre(struct_p
|
Line 3117 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 3116 logical1 caracteristiques_fichier(struct
|
Line 3141 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 3179 logical1 test_cfsf(struct_processus *s_e
|
Line 3206 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 3208 int liste_variables(struct_processus *s_
|
Line 3236 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 3245 logical8 masque_entiers_binaires(struct_
|
Line 3275 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 |
|
|
/* |
/* |