version 1.95, 2011/06/21 15:03:58
|
version 1.103, 2011/06/24 20:31:42
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.1 |
RPL/2 (R) version 4.1.0.prerelease.4 |
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 973 pid_t debug_fork();
|
Line 980 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 2241 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 2798 void affichage_pile(struct_processus *s_
|
Line 2818 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 2877 void insertion_thread_surveillance(struc
|
Line 2896 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 3253 struct_objet *copie_objet(struct_process
|
Line 3274 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); |