version 1.103, 2011/06/24 20:31:42
|
version 1.116, 2011/09/07 18:53:53
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.4 |
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 389 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 429 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 930 pid_t debug_fork();
|
Line 934 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 2058 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 2145 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 2291 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 2487 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 2510 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 2702 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 2763 void instruction_t_vers_l(struct_process
|
Line 2775 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 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); |
Line 2925 void liberation_arbre_instructions(struc
|
Line 2937 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); |