version 1.75, 2011/01/03 12:08:09
|
version 1.79, 2011/04/13 19:28:01
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.20 |
RPL/2 (R) version 4.1.0.prerelease.0 |
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 1670 typedef struct rpl_arguments
|
Line 1670 typedef struct rpl_arguments
|
void *s_etat_processus; |
void *s_etat_processus; |
} struct_rpl_arguments; |
} struct_rpl_arguments; |
|
|
|
/* |
|
-------------------------------------------------------------------------------- |
|
Structure d'arbre des instructions intrinsèques |
|
-------------------------------------------------------------------------------- |
|
*/ |
|
|
|
#ifndef RPLARGS |
|
typedef struct instruction |
|
{ |
|
struct instruction **noeud; |
|
void (*feuille)(struct processus *); |
|
} struct_instruction; |
|
#endif |
|
|
|
/* |
|
-------------------------------------------------------------------------------- |
|
Structure d'arbre des variables variable globales et locales |
|
-------------------------------------------------------------------------------- |
|
*/ |
|
|
|
#ifndef RPLARGS |
|
typedef struct arbre_variables |
|
{ |
|
struct arbre_variables **noeud; |
|
struct_liste_chainee *l_variable; |
|
} struct_arbre_variables; |
|
#endif |
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Line 1716 typedef struct processus
|
Line 1743 typedef struct processus
|
|
|
int *pointeurs_caracteres; |
int *pointeurs_caracteres; |
int nombre_caracteres; |
int nombre_caracteres; |
struct instruction *arbre_instructions; |
struct_instruction *arbre_instructions; |
|
|
/* Requetes */ |
/* Requetes */ |
|
|
Line 1780 typedef struct processus
|
Line 1807 typedef struct processus
|
|
|
/* Variables */ |
/* Variables */ |
|
|
struct_variable *s_liste_variables; |
struct_arbre_variables *s_arbre_variables; |
unsigned long nombre_variables; |
struct_liste_chainee *l_liste_variables_par_niveau; |
unsigned long nombre_variables_allouees; |
|
|
|
struct_variable_statique *s_liste_variables_statiques; |
struct_variable_statique *s_liste_variables_statiques; |
unsigned long nombre_variables_statiques; |
unsigned long nombre_variables_statiques; |
Line 1793 typedef struct processus
|
Line 1819 typedef struct processus
|
|
|
unsigned long niveau_courant; |
unsigned long niveau_courant; |
unsigned long niveau_initial; |
unsigned long niveau_initial; |
unsigned long position_variable_courante; |
struct_variable pointeur_variable_courante; |
unsigned long position_variable_statique_courante; |
unsigned long position_variable_statique_courante; |
|
|
logical1 creation_variables_statiques; |
logical1 creation_variables_statiques; |
Line 2121 typedef struct processus
|
Line 2147 typedef struct processus
|
unsigned long taille_pile_objets; |
unsigned long taille_pile_objets; |
struct_objet *pile_objets; |
struct_objet *pile_objets; |
|
|
# ifndef DEBUG_MALLOC |
# define TAILLE_CACHE 16384 |
# define TAILLE_CACHE 16384 |
|
# else |
|
# define TAILLE_CACHE 4 |
|
# endif |
|
|
|
unsigned long *objets_adr[TAILLE_CACHE]; |
unsigned long *objets_adr[TAILLE_CACHE]; |
int pointeur_adr; |
int pointeur_adr; |
Line 2164 typedef struct processus
|
Line 2186 typedef struct processus
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
Structures instruction intrinsèque |
|
-------------------------------------------------------------------------------- |
|
*/ |
|
|
|
#ifndef RPLARGS |
|
typedef struct instruction |
|
{ |
|
struct instruction **noeud; |
|
void (*feuille)(struct_processus *); |
|
} struct_instruction; |
|
#endif |
|
|
|
|
|
/* |
|
-------------------------------------------------------------------------------- |
|
Structure fonction |
Structure fonction |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
Line 2444 void instruction_lq(struct_processus *s_
|
Line 2451 void instruction_lq(struct_processus *s_
|
void instruction_lsq(struct_processus *s_etat_processus); |
void instruction_lsq(struct_processus *s_etat_processus); |
void instruction_lt(struct_processus *s_etat_processus); |
void instruction_lt(struct_processus *s_etat_processus); |
void instruction_lu(struct_processus *s_etat_processus); |
void instruction_lu(struct_processus *s_etat_processus); |
|
void instruction_l_vers_t(struct_processus *s_etat_processus); |
|
|
void instruction_mant(struct_processus *s_etat_processus); |
void instruction_mant(struct_processus *s_etat_processus); |
void instruction_mark(struct_processus *s_etat_processus); |
void instruction_mark(struct_processus *s_etat_processus); |
Line 2679 void instruction_trn(struct_processus *s
|
Line 2687 void instruction_trn(struct_processus *s
|
void instruction_trnc(struct_processus *s_etat_processus); |
void instruction_trnc(struct_processus *s_etat_processus); |
void instruction_true(struct_processus *s_etat_processus); |
void instruction_true(struct_processus *s_etat_processus); |
void instruction_type(struct_processus *s_etat_processus); |
void instruction_type(struct_processus *s_etat_processus); |
|
void instruction_t_vers_l(struct_processus *s_etat_processus); |
|
|
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); |
Line 2980 unsigned char *formateur_fichier(struct_
|
Line 2989 unsigned char *formateur_fichier(struct_
|
struct_objet *s_objet, struct_objet *s_format, |
struct_objet *s_objet, struct_objet *s_format, |
long longueur, long longueur_champ, unsigned char format, |
long longueur, long longueur_champ, unsigned char format, |
unsigned char type, long *longueur_effective, long *recursivite); |
unsigned char type, long *longueur_effective, long *recursivite); |
|
unsigned char *formateur_flux(struct_processus *s_etat_processus, |
|
unsigned char *donnees, long *longueur); |
unsigned char *formateur_fichier_nombre(struct_processus *s_etat_processus, |
unsigned char *formateur_fichier_nombre(struct_processus *s_etat_processus, |
void *valeur_numerique, unsigned char type, |
void *valeur_numerique, unsigned char type, |
long longueur, long longueur_champ, unsigned char format); |
long longueur, long longueur_champ, unsigned char format); |