version 1.175, 2012/09/15 12:57:09
|
version 1.179, 2012/10/03 14:53:12
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.10 |
RPL/2 (R) version 4.1.11 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 1495 typedef struct liste_pile_systeme
|
Line 1495 typedef struct liste_pile_systeme
|
L LOOP : boucle utilisé dans le traitement de l'instruction RETURN. |
L LOOP : boucle utilisé dans le traitement de l'instruction RETURN. |
Elle correspond à une boucle FOR ou START mais sans son |
Elle correspond à une boucle FOR ou START mais sans son |
initialisation. |
initialisation. |
|
A FORALL : NEXT termine une boucle sur un objet. |
*/ |
*/ |
|
|
unsigned long adresse_retour; |
unsigned long adresse_retour; |
Line 1520 typedef union position_variable
|
Line 1521 typedef union position_variable
|
typedef struct variable |
typedef struct variable |
{ |
{ |
unsigned char *nom; |
unsigned char *nom; |
unsigned char origine; |
unsigned char origine; // P(rogramme) ou E(valuation) |
|
|
unsigned long niveau; |
unsigned long niveau; |
|
|
Line 1728 typedef struct instruction
|
Line 1729 typedef struct instruction
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structure d'arbre des variables variable globales et locales |
Structure d'arbre des variables globales et locales |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
typedef struct arbre_variables |
typedef struct arbre_variables |
{ |
{ |
unsigned int noeuds_utilises; |
unsigned int noeuds_utilises; |
signed int indice_tableau_pere; |
// Nombre de noeuds utilisés dans le |
struct arbre_variables *noeud_pere; |
// tableau **noeuds |
struct arbre_variables **noeuds; |
signed int indice_tableau_pere; |
struct liste_variables *feuille; |
// Position de la structure dans le |
|
// tableau **noeuds du père |
|
|
|
struct arbre_variables *noeud_pere; |
|
struct arbre_variables **noeuds; |
|
|
|
struct liste_variables *feuille; |
|
struct liste_variables_statiques *feuille_statique; |
} struct_arbre_variables; |
} struct_arbre_variables; |
|
|
typedef struct tableau_variables |
typedef struct tableau_variables |
Line 1773 typedef struct liste_variables
|
Line 1781 typedef struct liste_variables
|
struct liste_variables *precedent; |
struct liste_variables *precedent; |
} struct_liste_variables; |
} struct_liste_variables; |
|
|
|
typedef struct liste_variables_statiques |
|
{ |
|
struct liste_variables_statiques *suivant; |
|
struct_variable_statique *variable; |
|
} struct_liste_variables_statiques; |
#endif |
#endif |
|
|
/* |
/* |
Line 2475 void instruction_fleche_str(struct_proce
|
Line 2488 void instruction_fleche_str(struct_proce
|
void instruction_fleche_table(struct_processus *s_etat_processus); |
void instruction_fleche_table(struct_processus *s_etat_processus); |
void instruction_floor(struct_processus *s_etat_processus); |
void instruction_floor(struct_processus *s_etat_processus); |
void instruction_for(struct_processus *s_etat_processus); |
void instruction_for(struct_processus *s_etat_processus); |
|
void instruction_forall(struct_processus *s_etat_processus); |
void instruction_format(struct_processus *s_etat_processus); |
void instruction_format(struct_processus *s_etat_processus); |
void instruction_fp(struct_processus *s_etat_processus); |
void instruction_fp(struct_processus *s_etat_processus); |
void instruction_fs_test(struct_processus *s_etat_processus); |
void instruction_fs_test(struct_processus *s_etat_processus); |