version 1.90, 2011/06/17 08:47:43
|
version 1.97, 2011/06/22 12:48:30
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.0 |
RPL/2 (R) version 4.1.0.prerelease.2 |
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 1701 typedef struct arbre_variables
|
Line 1701 typedef struct arbre_variables
|
struct liste_variables *feuille; |
struct liste_variables *feuille; |
} struct_arbre_variables; |
} 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 |
typedef struct liste_variables |
{ |
{ |
union |
union |
Line 1840 typedef struct processus
|
Line 1855 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; |
|
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; |
Line 2217 typedef struct processus
|
Line 2233 typedef struct processus
|
|
|
struct_liste_chainee *maillons[TAILLE_CACHE]; |
struct_liste_chainee *maillons[TAILLE_CACHE]; |
int pointeur_maillons; |
int pointeur_maillons; |
|
|
|
struct_arbre_variables *variables_noeud[TAILLE_CACHE]; |
|
int pointeur_variables_noeud; |
|
|
|
struct_liste_variables *variables_feuille[TAILLE_CACHE]; |
|
int pointeur_variables_feuille; |
|
|
|
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; |
} struct_processus; |
#endif |
#endif |
|
|
Line 2803 void conversion_hms_vers_decimal(real8 *
|
Line 2831 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 3096 logical1 retrait_variable_statique(struc
|
Line 3126 logical1 retrait_variable_statique(struc
|
unsigned char *nom_variable, union_position_variable position); |
unsigned char *nom_variable, union_position_variable position); |
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); |
|
|
struct_arbre_variables *copie_arbre_variables( |
|
struct_processus *s_etat_processus); |
|
#endif |
#endif |
|
|
/* |
/* |
Line 3151 ssize_t write_atomic(struct_processus *s
|
Line 3178 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, |