version 1.61, 2010/08/25 09:43:37
|
version 1.115, 2011/09/03 10:31:51
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.18 |
RPL/2 (R) version 4.1.3 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 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 _POSIX_C_SOURCE 200112L |
|
#endif |
|
|
#define _REENTRANT |
#define _REENTRANT |
|
|
#ifdef Darwin |
#ifndef __RPLCAS |
# define _DARWIN_C_SOURCE |
# ifdef Darwin |
#endif |
# define _DARWIN_C_SOURCE |
|
# endif |
|
|
#ifdef OpenBSD |
# ifdef OpenBSD |
# define _BSD_SOURCE |
# define _BSD_SOURCE |
|
# endif |
#endif |
#endif |
|
|
#ifdef OS2 |
#ifdef OS2 |
# define _BSD_SOURCE |
# ifndef __RPLCAS |
# define _XOPEN_SOURCE 600 |
# define _BSD_SOURCE |
|
# define _XOPEN_SOURCE 600 |
|
# endif |
|
|
# include <types.h> |
# include <types.h> |
enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR }; |
enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR }; |
Line 98
|
Line 105
|
# include <sys/shm.h> |
# include <sys/shm.h> |
# endif |
# endif |
|
|
# ifndef SEMAPHORES_SYSV |
# ifndef IPCS_SYSV |
# include <semaphore.h> |
# include <semaphore.h> |
# else |
# else |
# include <sys/ipc.h> |
# include <sys/ipc.h> |
Line 213
|
Line 220
|
# endif |
# endif |
# define SA_SIGINFO 0 |
# define SA_SIGINFO 0 |
|
|
# define kill(pid, signal) kill_broken_siginfo(pid, signal) |
# ifndef __BROKEN_SIGINFO_ROUTINES__ |
# define pthread_kill(tid, signal) pthread_kill_broken_siginfo(tid, signal) |
|
|
// pthread_kill() est une macro sous OS/2. |
|
# ifdef pthread_kill |
|
# undef pthread_kill |
|
# endif |
|
|
|
# define kill(a, b) kill_broken_siginfo(a, b) |
|
# define pthread_kill(a, b) pthread_kill_broken_siginfo(a, b) |
|
# endif |
|
|
int kill_broken_siginfo(pid_t pid, int signal); |
int kill_broken_siginfo(pid_t pid, int signal); |
int pthread_kill_broken_siginfo(pthread_t tid, int signal); |
int pthread_kill_broken_siginfo(pthread_t tid, int signal); |
|
pid_t origine_signal(int signal); |
|
int queue_in(pid_t pid, int signal); |
#else |
#else |
# define SIGHANDLER_ARGS int signal, siginfo_t *siginfo, void *context |
# define SIGHANDLER_ARGS int signal, siginfo_t *siginfo, void *context |
#endif |
#endif |
Line 228
|
Line 246
|
# define PTHREAD_SCOPE_SYSTEM 0 |
# define PTHREAD_SCOPE_SYSTEM 0 |
#endif |
#endif |
|
|
#if ! defined(UNION_SEMUN) && defined(SEMAPHORES_SYSV) |
#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 |
union semun |
{ |
{ |
int val; |
int val; |
Line 245 union semun
|
Line 268 union semun
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
#ifdef SEMAPHORES_SYSV |
#ifdef IPCS_SYSV |
# define sem_init(a, b, c) sem_init_SysV(a, b, c) |
# define sem_init(a, b, c) sem_init_SysV(a, b, c) |
# 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) |
Line 366 typedef unsigned char t_8_bits;
|
Line 389 typedef unsigned char t_8_bits;
|
|
|
extern jmp_buf contexte; |
extern jmp_buf contexte; |
extern jmp_buf contexte_initial; |
extern jmp_buf contexte_initial; |
|
extern jmp_buf contexte_processus; |
|
extern jmp_buf contexte_thread; |
|
|
# ifdef SEMAPHORES_NOMMES |
# ifdef SEMAPHORES_NOMMES |
extern pthread_mutex_t mutex_sem; |
extern pthread_mutex_t mutex_sem; |
Line 406 typedef unsigned char t_8_bits;
|
Line 431 typedef unsigned char t_8_bits;
|
|
|
jmp_buf contexte; |
jmp_buf contexte; |
jmp_buf contexte_initial; |
jmp_buf contexte_initial; |
|
jmp_buf contexte_processus; |
|
jmp_buf contexte_thread; |
|
|
# ifdef SEMAPHORES_NOMMES |
# ifdef SEMAPHORES_NOMMES |
pthread_mutex_t mutex_sem = PTHREAD_MUTEX_INITIALIZER; |
pthread_mutex_t mutex_sem = PTHREAD_MUTEX_INITIALIZER; |
Line 486 int sem_getvalue2(sem_t *semaphore, int
|
Line 513 int sem_getvalue2(sem_t *semaphore, int
|
# 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; }) |
Line 903 pid_t debug_fork();
|
Line 933 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) |
#endif |
#endif |
|
|
|
|
Line 926 pid_t debug_fork();
|
Line 958 pid_t debug_fork();
|
# undef MAX |
# undef MAX |
#endif |
#endif |
|
|
#define ADR __RPL_ADR |
#define ADR __RPL_ADR |
#define ALG __RPL_ALG |
#define ALG __RPL_ALG |
#define BIN __RPL_BIN |
#define BIN __RPL_BIN |
#define CHN __RPL_CHN |
#define CHN __RPL_CHN |
#define CPL __RPL_CPL |
#define CPL __RPL_CPL |
Line 946 pid_t debug_fork();
|
Line 978 pid_t debug_fork();
|
#define RPN __RPL_RPN |
#define RPN __RPL_RPN |
#define SCK __RPL_SCK |
#define SCK __RPL_SCK |
#define SLB __RPL_SLB |
#define SLB __RPL_SLB |
#define SPH __RPL_SPH |
#define SPH __RPL_SPH |
#define SQL __RPL_SQL |
#define SQL __RPL_SQL |
#define TBL __RPL_TBL |
#define TBL __RPL_TBL |
#define VCX __RPL_VCX |
#define VCX __RPL_VCX |
#define VIN __RPL_VIN |
#define VIN __RPL_VIN |
#define VRL __RPL_VRL |
#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, |
Line 1340 typedef struct descripteur_thread
|
Line 1373 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 1650 typedef struct rpl_arguments
|
Line 1684 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 1687 typedef struct processus
|
Line 1783 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 1695 typedef struct processus
|
Line 1792 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 1740 typedef struct processus
|
Line 1837 typedef struct processus
|
|
|
# if !defined(Cygwin) |
# if !defined(Cygwin) |
# if !(OpenBSD) |
# if !(OpenBSD) |
stack_t pile_signal; |
stack_t pile_signal; |
# else |
# else |
# ifdef SA_ONSTACK |
# ifdef SA_ONSTACK |
# undef SA_ONSTACK |
# undef SA_ONSTACK |
Line 1748 typedef struct processus
|
Line 1845 typedef struct processus
|
# define SA_ONSTACK 0 |
# define SA_ONSTACK 0 |
# endif |
# endif |
# else |
# else |
# define SA_ONSTACK 0 |
# define SA_ONSTACK 0 |
# define RTLD_LOCAL 0 |
# define RTLD_LOCAL 0 |
# endif |
# endif |
|
|
/* Contextes */ |
/* Contextes */ |
Line 1759 typedef struct processus
|
Line 1856 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 1772 typedef struct processus
|
Line 1885 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 1951 typedef struct processus
|
Line 2063 typedef struct processus
|
|
|
/* Traitement des erreurs */ |
/* Traitement des erreurs */ |
|
|
|
unsigned int compteur_violation_d_acces; |
unsigned int erreur_compilation; |
unsigned int erreur_compilation; |
unsigned int erreur_execution; |
unsigned int erreur_execution; |
unsigned int erreur_systeme; |
unsigned int erreur_systeme; |
Line 2023 typedef struct processus
|
Line 2136 typedef struct processus
|
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 2037 typedef struct processus
|
Line 2151 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; |
|
|
/* |
/* |
Line 2099 typedef struct processus
|
Line 2215 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 2137 typedef struct processus
|
Line 2249 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 2190 typedef struct fonction
|
Line 2299 typedef struct fonction
|
// 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 2386 void instruction_in(struct_processus *s_
|
Line 2496 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 2409 void instruction_lcd_fleche(struct_proce
|
Line 2520 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 2422 void instruction_lq(struct_processus *s_
|
Line 2534 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 2600 void instruction_sqlquery(struct_process
|
Line 2713 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 2657 void instruction_trn(struct_processus *s
|
Line 2771 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 2715 void affichage_pile(struct_processus *s_
|
Line 2829 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 2736 void conversion_hms_vers_decimal(real8 *
|
Line 2849 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 2775 void impression_tex(struct_processus *s_
|
Line 2890 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 2791 void insertion_thread_surveillance(struc
|
Line 2908 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 interface_cas(struct_processus *s_etat_processus, |
|
enum t_rplcas_commandes commande); |
void interruption1(SIGHANDLER_ARGS); |
void interruption1(SIGHANDLER_ARGS); |
void interruption2(SIGHANDLER_ARGS); |
void interruption2(SIGHANDLER_ARGS); |
void interruption3(SIGHANDLER_ARGS); |
void interruption3(SIGHANDLER_ARGS); |
Line 2816 void liberation_maillon(struct_processus
|
Line 2935 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 2958 unsigned char *formateur_fichier(struct_
|
Line 3080 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); |
Line 3042 logical1 ecriture_pipe(struct_processus
|
Line 3166 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 3074 ssize_t write_atomic(struct_processus *s
|
Line 3200 ssize_t write_atomic(struct_processus *s
|
*/ |
*/ |
|
|
int alsprintf(unsigned char **strp, const char *fmt, ...); |
int alsprintf(unsigned char **strp, const char *fmt, ...); |
|
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 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 3156 struct_objet *copie_objet(struct_process
|
Line 3287 struct_objet *copie_objet(struct_process
|
struct_objet *s_objet, unsigned char type); |
struct_objet *s_objet, unsigned char type); |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
|
struct_objet *allocation(struct_processus *s_etat_processus, enum t_type type); |
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_pipe(struct_processus *s_etat_processus, int pipe); |
struct_objet *lecture_pipe(struct_processus *s_etat_processus, int pipe); |