version 1.100, 2011/06/23 13:41:16
|
version 1.104, 2011/06/25 10:40:48
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.3 |
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 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 2810 void affichage_pile(struct_processus *s_
|
Line 2819 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 2889 void insertion_thread_surveillance(struc
|
Line 2897 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 3070 unsigned char *formateur_nombre(struct_p
|
Line 3080 unsigned char *formateur_nombre(struct_p
|
void *valeur_numerique, unsigned char type); |
void *valeur_numerique, unsigned char type); |
unsigned char *formateur_reel(struct_processus *s_etat_processus, |
unsigned char *formateur_reel(struct_processus *s_etat_processus, |
void *valeur_numerique, unsigned char type); |
void *valeur_numerique, unsigned char type); |
unsigned char *interface_cas(struct_processus *s_etat_processus, |
|
unsigned char *commande, const char *argument); |
|
unsigned char *messages(struct_processus *s_etat_processus); |
unsigned char *messages(struct_processus *s_etat_processus); |
unsigned char *purification_chaine(unsigned char *chaine); |
unsigned char *purification_chaine(unsigned char *chaine); |
unsigned char *reencodage(struct_processus *s_etat_processus, |
unsigned char *reencodage(struct_processus *s_etat_processus, |
Line 3267 struct_objet *copie_objet(struct_process
|
Line 3275 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); |