version 1.93, 2011/06/21 07:35:40
|
version 1.109, 2011/08/03 09:26:47
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.1 |
RPL/2 (R) version 4.1.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 23
|
Line 23
|
#ifndef INCLUSION_RPL |
#ifndef INCLUSION_RPL |
#define INCLUSION_RPL |
#define INCLUSION_RPL |
|
|
#define _GNU_SOURCE |
#ifndef __RPLCAS |
#define _POSIX_C_SOURCE 200112L |
# define _GNU_SOURCE |
|
# define _POSIX_C_SOURCE 200112L |
|
#endif |
|
|
#define _REENTRANT |
#define _REENTRANT |
|
|
#ifdef Darwin |
#ifndef __RPLCAS |
# define _DARWIN_C_SOURCE |
# ifdef Darwin |
#endif |
# define _DARWIN_C_SOURCE |
|
# endif |
|
|
#ifdef OpenBSD |
# ifdef OpenBSD |
# define _BSD_SOURCE |
# define _BSD_SOURCE |
|
# endif |
#endif |
#endif |
|
|
#ifdef OS2 |
#ifdef OS2 |
# define _BSD_SOURCE |
# ifndef __RPLCAS |
# define _XOPEN_SOURCE 600 |
# define _BSD_SOURCE |
|
# define _XOPEN_SOURCE 600 |
|
# endif |
|
|
# include <types.h> |
# include <types.h> |
enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR }; |
enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR }; |
Line 923 pid_t debug_fork();
|
Line 930 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 973 pid_t debug_fork();
|
Line 981 pid_t debug_fork();
|
#define VIN __RPL_VIN |
#define VIN __RPL_VIN |
#define VRL __RPL_VRL |
#define VRL __RPL_VRL |
|
|
|
enum t_rplcas_commandes { RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE }; |
|
|
enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST, |
enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST, |
MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK, |
MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK, |
Line 2233 typedef struct processus
|
Line 2242 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 2271 typedef struct fonction
|
Line 2292 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 2467 void instruction_in(struct_processus *s_
|
Line 2489 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 2490 void instruction_lcd_fleche(struct_proce
|
Line 2513 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 2798 void affichage_pile(struct_processus *s_
|
Line 2822 void affichage_pile(struct_processus *s_
|
niveau_courant); |
niveau_courant); |
#endif |
#endif |
|
|
void *allocation(struct_processus *s_etat_processus, enum t_type type); |
|
void *allocation_maillon(struct_processus *s_etat_processus); |
void *allocation_maillon(struct_processus *s_etat_processus); |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
Line 2819 void conversion_hms_vers_decimal(real8 *
|
Line 2842 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 2875 void insertion_thread_surveillance(struc
|
Line 2900 void insertion_thread_surveillance(struc
|
void integrale_romberg(struct_processus *s_etat_processus, |
void integrale_romberg(struct_processus *s_etat_processus, |
struct_objet *s_expression, unsigned char *variable, |
struct_objet *s_expression, unsigned char *variable, |
real8 a, real8 b, real8 precision); |
real8 a, real8 b, real8 precision); |
|
void interface_cas(struct_processus *s_etat_processus, |
|
enum t_rplcas_commandes commande); |
void interruption1(SIGHANDLER_ARGS); |
void interruption1(SIGHANDLER_ARGS); |
void interruption2(SIGHANDLER_ARGS); |
void interruption2(SIGHANDLER_ARGS); |
void interruption3(SIGHANDLER_ARGS); |
void interruption3(SIGHANDLER_ARGS); |
Line 3112 logical1 retrait_variable_statique(struc
|
Line 3139 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 3254 struct_objet *copie_objet(struct_process
|
Line 3278 struct_objet *copie_objet(struct_process
|
struct_objet *s_objet, unsigned char type); |
struct_objet *s_objet, unsigned char type); |
|
|
#ifndef RPLARGS |
#ifndef RPLARGS |
|
struct_objet *allocation(struct_processus *s_etat_processus, enum t_type type); |
struct_objet *formateur_date(struct_processus *s_etat_processus, |
struct_objet *formateur_date(struct_processus *s_etat_processus, |
struct timeval *temps); |
struct timeval *temps); |
struct_objet *lecture_pipe(struct_processus *s_etat_processus, int pipe); |
struct_objet *lecture_pipe(struct_processus *s_etat_processus, int pipe); |