version 1.179, 2012/10/03 14:53:12
|
version 1.183, 2012/10/08 11:53:46
|
Line 1761 typedef struct tableau_variables
|
Line 1761 typedef struct tableau_variables
|
// de l'objet. |
// de l'objet. |
|
|
logical1 variable_verrouillee; |
logical1 variable_verrouillee; |
|
logical1 variable_masquee; |
union_position_variable variable_statique; |
union_position_variable variable_statique; |
union_position_variable variable_partagee; |
union_position_variable variable_partagee; |
} struct_tableau_variables; |
} struct_tableau_variables; |
|
|
|
// La liste des variables est une liste doublement chaînée et circulaire. |
typedef struct liste_variables |
typedef struct liste_variables |
{ |
{ |
union |
union |
Line 1781 typedef struct liste_variables
|
Line 1783 typedef struct liste_variables
|
struct liste_variables *precedent; |
struct liste_variables *precedent; |
} struct_liste_variables; |
} struct_liste_variables; |
|
|
|
// La liste des variables statiques et une liste double chaînée et non |
|
// circulaire. |
typedef struct liste_variables_statiques |
typedef struct liste_variables_statiques |
{ |
{ |
struct liste_variables_statiques *suivant; |
struct liste_variables_statiques *suivant; |
|
struct liste_variables_statiques *precedent; |
|
struct liste_variables_statiques *reference; |
|
struct_arbre_variables *feuille; |
struct_variable_statique *variable; |
struct_variable_statique *variable; |
} struct_liste_variables_statiques; |
} struct_liste_variables_statiques; |
#endif |
#endif |
Line 1901 typedef struct processus
|
Line 1908 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; |
|
struct_liste_variables_statiques |
|
*l_liste_variables_statiques; |
|
struct_table_variables_partagees |
|
*s_liste_variables_partagees; |
|
|
logical1 niveau_supprime; |
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; |
|
struct_variable_statique *pointeur_variable_statique_courante; |
|
|
int *pointeurs_caracteres_variables; |
int *pointeurs_caracteres_variables; |
int nombre_caracteres_variables; |
int nombre_caracteres_variables; |
|
|
struct_variable_statique *s_liste_variables_statiques; |
|
unsigned long nombre_variables_statiques; |
|
unsigned long nombre_variables_statiques_allouees; |
|
|
|
struct_table_variables_partagees |
|
*s_liste_variables_partagees; |
|
|
|
unsigned long niveau_courant; |
unsigned long niveau_courant; |
unsigned long niveau_initial; |
unsigned long niveau_initial; |
unsigned long position_variable_statique_courante; |
|
|
|
logical1 creation_variables_statiques; |
logical1 creation_variables_statiques; |
logical1 creation_variables_partagees; |
logical1 creation_variables_partagees; |
Line 3202 logical1 initialisation_fichier_acces_in
|
Line 3207 logical1 initialisation_fichier_acces_in
|
logical1 recherche_instruction_suivante(struct_processus *s_etat_processus); |
logical1 recherche_instruction_suivante(struct_processus *s_etat_processus); |
logical1 retrait_variable(struct_processus *s_etat_processus, |
logical1 retrait_variable(struct_processus *s_etat_processus, |
unsigned char *nom_variable, unsigned char type); |
unsigned char *nom_variable, unsigned char type); |
logical1 retrait_variable_par_niveau(struct_processus *s_etat_processus); |
logical1 retrait_variables_par_niveau(struct_processus *s_etat_processus); |
logical1 retrait_variable_partagee(struct_processus *s_etat_processus, |
logical1 retrait_variable_partagee(struct_processus *s_etat_processus, |
unsigned char *nom_variable, union_position_variable position); |
unsigned char *nom_variable, union_position_variable position); |
|
logical1 retrait_variables_statiques_locales( |
|
struct_processus *s_etat_processus); |
logical1 retrait_variable_statique(struct_processus *s_etat_processus, |
logical1 retrait_variable_statique(struct_processus *s_etat_processus, |
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); |
Line 3232 logical1 recherche_variable_globale(stru
|
Line 3239 logical1 recherche_variable_globale(stru
|
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); |
logical1 recherche_variable_statique(struct_processus *s_etat_processus, |
|
unsigned char *nom_variable, union_position_variable position, |
|
unsigned char origine); |
|
logical1 test_cfsf(struct_processus *s_etat_processus, |
logical1 test_cfsf(struct_processus *s_etat_processus, |
unsigned char indice_drapeau); |
unsigned char indice_drapeau); |
logical1 test_expression_rpn(unsigned char *chaine); |
logical1 test_expression_rpn(unsigned char *chaine); |
Line 3365 struct_objet *parametres_sql(struct_proc
|
Line 3369 struct_objet *parametres_sql(struct_proc
|
struct_objet *s_parametres); |
struct_objet *s_parametres); |
struct_objet *simplification(struct_processus *s_etat_processus, |
struct_objet *simplification(struct_processus *s_etat_processus, |
struct_objet *s_objet); |
struct_objet *s_objet); |
|
|
|
struct_arbre_variables *allocation_noeud(struct_processus *s_etat_processus); |
|
struct_arbre_variables **allocation_tableau_noeuds( |
|
struct_processus *s_etat_processus); |
|
|
|
/* |
|
-------------------------------------------------------------------------------- |
|
Fonctions renvoyant un pointeur sur une *struct_liste_variables_statiques |
|
-------------------------------------------------------------------------------- |
|
*/ |
|
|
|
struct_liste_variables_statiques *recherche_variable_statique(struct_processus |
|
*s_etat_processus, unsigned char *nom_variable, |
|
union_position_variable position, |
|
unsigned char origine); |
#endif |
#endif |
|
|
/* |
/* |
Line 3419 void f77multiplicationci_(complex16 *ca,
|
Line 3438 void f77multiplicationci_(complex16 *ca,
|
void f77multiplicationcr_(complex16 *ca, real8 *rb, complex16 *resultat); |
void f77multiplicationcr_(complex16 *ca, real8 *rb, complex16 *resultat); |
|
|
void f77puissancecc_(complex16 *ca, complex16 *cb, complex16 *resultat); |
void f77puissancecc_(complex16 *ca, complex16 *cb, complex16 *resultat); |
void f77puissanceci_(complex16 *ca, integer8 *ib, complex16 *resultat, |
void f77puissanceci_(complex16 *ca, integer8 *ib, complex16 *resultat); |
integer4 *troncature); |
|
void f77puissancecr_(complex16 *ca, real8 *rb, complex16 *resultat); |
void f77puissancecr_(complex16 *ca, real8 *rb, complex16 *resultat); |
void f77puissanceic_(integer8 *ia, complex16 *cb, complex16 *resultat); |
void f77puissanceic_(integer8 *ia, complex16 *cb, complex16 *resultat); |
void f77puissanceii_(integer8 *ia, integer8 *ib, integer8 *resultat); |
void f77puissanceii_(integer8 *ia, integer8 *ib, integer8 *resultat); |
void f77puissanceir_(integer8 *ia, real8 *rb, real8 *resultat); |
void f77puissanceir_(integer8 *ia, real8 *rb, real8 *resultat); |
void f77puissancerc_(real8 *ra, complex16 *cb, complex16 *resultat); |
void f77puissancerc_(real8 *ra, complex16 *cb, complex16 *resultat); |
void f77puissanceri_(real8 *ra, integer8 *ib, real8 *resultat, |
void f77puissanceri_(real8 *ra, integer8 *ib, real8 *resultat); |
integer4 *troncature); |
|
void f77puissancerr_(real8 *ra, real8 *rb, real8 *resultat); |
void f77puissancerr_(real8 *ra, real8 *rb, real8 *resultat); |
|
|
void f77racinecarreec_(complex16 *ca, complex16 *resultat); |
void f77racinecarreec_(complex16 *ca, complex16 *resultat); |