version 1.102, 2011/06/24 15:59:07
|
version 1.119, 2011/09/10 20:45:07
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.3 |
RPL/2 (R) version 4.1.3 |
Copyright (C) 1989-2011 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 25
|
Line 25
|
|
|
#ifndef __RPLCAS |
#ifndef __RPLCAS |
# define _GNU_SOURCE |
# define _GNU_SOURCE |
# define _POSIX_C_SOURCE 200112L |
# define _XOPEN_SOURCE 700 |
#endif |
#endif |
|
|
#define _REENTRANT |
#define _REENTRANT |
Line 311 union semun
|
Line 311 union semun
|
# define SIGABORT SIGTHR |
# define SIGABORT SIGTHR |
# endif |
# endif |
// Arrêt d'un processus fils depuis autre chose que STOP |
// Arrêt d'un processus fils depuis autre chose que STOP |
# if defined(Darwin) || defined(OpenBSD) |
# if defined(Darwin) || defined(OpenBSD) || defined(NetBSD) |
# define SIGFABORT SIGINFO |
# define SIGFABORT SIGINFO |
# else |
# else |
# define SIGFABORT SIGPOLL |
# define SIGFABORT SIGPOLL |
# endif |
# endif |
|
|
|
# define SIGTEST SIGILL |
|
|
// Nombre d'interruptions disponibles |
// Nombre d'interruptions disponibles |
# define d_NOMBRE_INTERRUPTIONS 64 |
# define d_NOMBRE_INTERRUPTIONS 64 |
#endif |
#endif |
Line 389 typedef unsigned char t_8_bits;
|
Line 391 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; |
|
|
|
extern int signal_test; |
|
|
|
extern pid_t pid_processus_pere; |
|
|
# ifdef SEMAPHORES_NOMMES |
# ifdef SEMAPHORES_NOMMES |
extern pthread_mutex_t mutex_sem; |
extern pthread_mutex_t mutex_sem; |
Line 429 typedef unsigned char t_8_bits;
|
Line 437 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; |
|
|
|
int signal_test; |
|
|
|
pid_t pid_processus_pere; |
|
|
# ifdef SEMAPHORES_NOMMES |
# ifdef SEMAPHORES_NOMMES |
pthread_mutex_t mutex_sem = PTHREAD_MUTEX_INITIALIZER; |
pthread_mutex_t mutex_sem = PTHREAD_MUTEX_INITIALIZER; |
Line 930 pid_t debug_fork();
|
Line 944 pid_t debug_fork();
|
# 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_creation_variable_globale __erreur(83) |
|
# define d_ex_erreur_interne_rplcas __erreur(84) |
#endif |
#endif |
|
|
|
|
Line 1844 typedef struct processus
|
Line 1859 typedef struct processus
|
# define RTLD_LOCAL 0 |
# define RTLD_LOCAL 0 |
# endif |
# endif |
|
|
|
int signal; |
|
pid_t origine_signal; |
|
logical1 signal_a_traiter; |
|
|
/* Contextes */ |
/* Contextes */ |
|
|
struct_liste_chainee *l_base_pile_contextes; |
struct_liste_chainee *l_base_pile_contextes; |
Line 2058 typedef struct processus
|
Line 2077 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 2145 typedef struct processus
|
Line 2165 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 2291 typedef struct fonction
|
Line 2313 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 2487 void instruction_in(struct_processus *s_
|
Line 2510 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 2510 void instruction_lcd_fleche(struct_proce
|
Line 2534 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 2702 void instruction_sqlquery(struct_process
|
Line 2727 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 2763 void instruction_t_vers_l(struct_process
|
Line 2789 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_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 2879 void impression_tex(struct_processus *s_
|
Line 2904 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); |
Line 2925 void liberation_arbre_instructions(struc
|
Line 2951 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_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 2942 void retrait_thread_surveillance(struct_
|
Line 2969 void retrait_thread_surveillance(struct_
|
struct_descripteur_thread *s_argument_thread); |
struct_descripteur_thread *s_argument_thread); |
void rplcore(struct_processus *s_etat_processus); |
void rplcore(struct_processus *s_etat_processus); |
void scrutation_injection(struct_processus *s_etat_processus); |
void scrutation_injection(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, unsigned long taille_octets); |