version 1.70, 2016/03/01 22:12:36
|
version 1.76, 2017/06/30 13:11:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.25 |
RPL/2 (R) version 4.1.27 |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 29
|
Line 29
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
# define RPLARGS |
// Si TYPE_DECLARATION est défini, toutes les structures internes du RPL/2 |
# define struct_processus void |
// sont exposés pour travailler sur des nouveaux types de données. |
|
# ifndef TYPE_DECLARATION |
|
# define RPLARGS |
|
# define struct_processus void |
|
# endif |
|
|
# include "rpl.h" |
# include "rpl.h" |
|
|
/* |
/* |
Line 47
|
Line 52
|
((*rpl_arguments).type_erreur == 'S')) \ |
((*rpl_arguments).type_erreur == 'S')) \ |
return 0; } while(0) |
return 0; } while(0) |
#define leave do { return(0); } while(0) |
#define leave do { return(0); } while(0) |
#define allocation(a) librpl_allocation((*rpl_arguments).s_etat_processus, a) |
#define _allocation(a) librpl_allocation((*rpl_arguments).s_etat_processus, a) |
#define copie_objet(a, b) librpl_copie_objet( \ |
#define _copie_objet(a, b) librpl_copie_objet( \ |
(*rpl_arguments).s_etat_processus, a, b) |
(*rpl_arguments).s_etat_processus, a, b) |
#define liberation(a) librpl_liberation((*rpl_arguments).s_etat_processus, a) |
#define _liberation(a) librpl_liberation((*rpl_arguments).s_etat_processus, a) |
|
|
#ifdef __RPLC_MAIN |
#ifdef __RPLC_MAIN |
struct_rpl_arguments __static_rpl_arguments; |
struct_rpl_arguments __static_rpl_arguments; |
Line 68
|
Line 73
|
|
|
/* |
/* |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
|
Gestion des objets |
|
-------------------------------------------------------------------------------- |
|
*/ |
|
|
|
// new, dup, drop, disp, parse |
|
// __type_new(struct_rpl_arguments *rpl_arguments) |
|
#define declareTypeExtension(fct) \ |
|
int __type_##fct(struct_processus *s_etat_processus, void **arg) { \ |
|
char *rptr, *ptr, *iptr; \ |
|
rptr = (char *) ((*s_etat_processus).definitions_chainees + \ |
|
(*s_etat_processus).position_courante); \ |
|
ptr = rptr; \ |
|
iptr = (char *) (*s_etat_processus).instruction_courante; \ |
|
if ((ptr != rptr) && (iptr)) goto __parse_error; |
|
#define parseError { goto __parse_error; } while(0) |
|
#define typeError { return(0); } while(0) |
|
#define typeSuccess { return(1); } while(0) |
|
#define typeFound(a) { return(a); } while(0) |
|
#define endTypeExtension __parse_error: return(0); } |
|
#define sizeOfParse (rptr - ptr) |
|
#define searchType(...) { recherche_type(s_etat_processus); \ |
|
if (((*s_etat_processus).erreur_execution != d_ex) || \ |
|
((*s_etat_processus).erreur_systeme != d_es)) \ |
|
{ __VA_ARGS__; return(0); } } while(0) |
|
|
|
/* |
|
-------------------------------------------------------------------------------- |
Types |
Types |
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
Line 224
|
Line 256
|
do { \ |
do { \ |
if (rpl_object == NULL) \ |
if (rpl_object == NULL) \ |
systemError("Nullified object"); \ |
systemError("Nullified object"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = NULL; \ |
rpl_object = NULL; \ |
} while(0) |
} while(0) |
|
|
Line 236
|
Line 268
|
|
|
#define dupObject(rpl_object) \ |
#define dupObject(rpl_object) \ |
__CATCH_SYSTEM_ERROR__; \ |
__CATCH_SYSTEM_ERROR__; \ |
do { if (copie_objet(rpl_object, 'P') != rpl_object) \ |
do { if (_copie_objet(rpl_object, 'P') != rpl_object) \ |
systemError("Memory allocation error"); } while(0) |
systemError("Memory allocation error"); } while(0) |
|
|
/* |
/* |
Line 245
|
Line 277
|
-------------------------------------------------------------------------------- |
-------------------------------------------------------------------------------- |
*/ |
*/ |
|
|
#define CONCAT(a, b) __CONCAT(a, b) |
#define CONCAT(a, b) __RPL_CONCAT(a, b) |
#define __CONCAT(a, b) a##b |
#define __RPL_CONCAT(a, b) a##b |
#define FIRST(...) FIRST_HELPER(__VA_ARGS__, throwaway) |
#define FIRST(...) FIRST_HELPER(__VA_ARGS__, throwaway) |
#define FIRST_HELPER(first, ...) first |
#define FIRST_HELPER(first, ...) first |
#define REST(...) REST_HELPER(NUM(__VA_ARGS__), __VA_ARGS__) |
#define REST(...) REST_HELPER(NUM(__VA_ARGS__), __VA_ARGS__) |
Line 648
|
Line 680
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
(*((integer8 *) (*rpl_object).objet)) = (integer8) value; \ |
(*((integer8 *) (*rpl_object).objet)) = (integer8) value; \ |
Line 671
|
Line 703
|
#define createIntegerObject(rpl_object) do { \ |
#define createIntegerObject(rpl_object) do { \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |
systemError("Reallocated object"); \ |
systemError("Reallocated object"); \ |
if ((rpl_object = allocation(INT)) == NULL) \ |
if ((rpl_object = _allocation(INT)) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
setInteger(rpl_object, 0); } while(0) |
setInteger(rpl_object, 0); } while(0) |
|
|
Line 683
|
Line 715
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
(*((real8 *) (*rpl_object).objet)) = (real8) value; \ |
(*((real8 *) (*rpl_object).objet)) = (real8) value; \ |
Line 706
|
Line 738
|
#define createRealObject(rpl_object) do { \ |
#define createRealObject(rpl_object) do { \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |
systemError("Reallocated object"); \ |
systemError("Reallocated object"); \ |
if ((rpl_object = allocation(REL)) == NULL) \ |
if ((rpl_object = _allocation(REL)) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
setReal(rpl_object, 0); } while(0) |
setReal(rpl_object, 0); } while(0) |
|
|
Line 720
|
Line 752
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
setRealPartOfComplex(rpl_object, __rp); \ |
setRealPartOfComplex(rpl_object, __rp); \ |
Line 734
|
Line 766
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
ifIsComplex(rpl_object) (*((complex16 *) (*rpl_object).objet)) \ |
ifIsComplex(rpl_object) (*((complex16 *) (*rpl_object).objet)) \ |
Line 747
|
Line 779
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
(*((complex16 *) (*rpl_object).objet)).partie_imaginaire = value; \ |
(*((complex16 *) (*rpl_object).objet)).partie_imaginaire = value; \ |
Line 776
|
Line 808
|
#define createComplexObject(rpl_object) do { \ |
#define createComplexObject(rpl_object) do { \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |
systemError("Reallocated object"); \ |
systemError("Reallocated object"); \ |
if ((rpl_object = allocation(CPL)) == NULL) \ |
if ((rpl_object = _allocation(CPL)) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
setComplex(rpl_object, 0, 0); } while(0) |
setComplex(rpl_object, 0, 0); } while(0) |
|
|
Line 788
|
Line 820
|
s_etat_processus = (*rpl_arguments).s_etat_processus; \ |
s_etat_processus = (*rpl_arguments).s_etat_processus; \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |
systemError("Reallocated object"); \ |
systemError("Reallocated object"); \ |
if ((rpl_object = allocation(cat)) == NULL) \ |
if ((rpl_object = _allocation(cat)) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
(*((structure *) (*rpl_object).objet)).taille = size; \ |
(*((structure *) (*rpl_object).objet)).taille = size; \ |
if (((*((structure *) (*rpl_object).objet)).tableau = \ |
if (((*((structure *) (*rpl_object).objet)).tableau = \ |
Line 824
|
Line 856
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
__position--; \ |
__position--; \ |
Line 872
|
Line 904
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
__position--; \ |
__position--; \ |
Line 928
|
Line 960
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
(*((integer8 *) (*rpl_object).objet)) = (integer8) value; \ |
(*((integer8 *) (*rpl_object).objet)) = (integer8) value; \ |
Line 952
|
Line 984
|
#define createBinaryIntegerObject(rpl_object) do { \ |
#define createBinaryIntegerObject(rpl_object) do { \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |
systemError("Reallocated object"); \ |
systemError("Reallocated object"); \ |
if ((rpl_object = allocation(BIN)) == NULL) \ |
if ((rpl_object = _allocation(BIN)) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
setBinaryInteger(rpl_object, 0); } while(0) |
setBinaryInteger(rpl_object, 0); } while(0) |
|
|
Line 972
|
Line 1004
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
free((*((struct_nom *) (*rpl_object).objet)).nom); \ |
free((*((struct_nom *) (*rpl_object).objet)).nom); \ |
Line 996
|
Line 1028
|
s_etat_processus = (*rpl_arguments).s_etat_processus; \ |
s_etat_processus = (*rpl_arguments).s_etat_processus; \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |
systemError("Reallocated object"); \ |
systemError("Reallocated object"); \ |
if ((rpl_object = allocation(NOM)) == NULL) \ |
if ((rpl_object = _allocation(NOM)) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
(*((struct_nom *) (*rpl_object).objet)).symbole = d_faux; \ |
(*((struct_nom *) (*rpl_object).objet)).symbole = d_faux; \ |
if (((*((struct_nom *) (*rpl_object).objet)).nom = malloc( \ |
if (((*((struct_nom *) (*rpl_object).objet)).nom = malloc( \ |
Line 1022
|
Line 1054
|
if ((*rpl_object).nombre_occurrences > 1) \ |
if ((*rpl_object).nombre_occurrences > 1) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(rpl_object, 'O')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(rpl_object, 'O')) \ |
|
== NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(rpl_object); \ |
_liberation(rpl_object); \ |
rpl_object = __tmp_rpl_object; \ |
rpl_object = __tmp_rpl_object; \ |
} \ |
} \ |
free((unsigned char *) (*rpl_object).objet); \ |
free((unsigned char *) (*rpl_object).objet); \ |
Line 1046
|
Line 1079
|
s_etat_processus = (*rpl_arguments).s_etat_processus; \ |
s_etat_processus = (*rpl_arguments).s_etat_processus; \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |
systemError("Reallocated object"); \ |
systemError("Reallocated object"); \ |
if ((rpl_object = allocation(CHN)) == NULL) \ |
if ((rpl_object = _allocation(CHN)) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
if (((*rpl_object).objet = malloc(sizeof(unsigned char))) == NULL) \ |
if (((*rpl_object).objet = malloc(sizeof(unsigned char))) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
Line 1063
|
Line 1096
|
#define createListObject(rpl_object) do { \ |
#define createListObject(rpl_object) do { \ |
if (rpl_object != NULL) \ |
if (rpl_object != NULL) \ |
systemError("Reallocated object"); \ |
systemError("Reallocated object"); \ |
if ((rpl_object = allocation(LST)) == NULL) \ |
if ((rpl_object = _allocation(LST)) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
(*rpl_object).objet = NULL; } while(0) |
(*rpl_object).objet = NULL; } while(0) |
|
|
Line 1073
|
Line 1106
|
ifIsList(list) \ |
ifIsList(list) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(list, 'N')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(list, 'N')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(list); \ |
_liberation(list); \ |
list = __tmp_rpl_object; \ |
list = __tmp_rpl_object; \ |
if ((*list).objet == NULL) \ |
if ((*list).objet == NULL) \ |
{ \ |
{ \ |
Line 1108
|
Line 1141
|
ifIsList(list) \ |
ifIsList(list) \ |
{ \ |
{ \ |
struct_objet *__tmp_rpl_object; \ |
struct_objet *__tmp_rpl_object; \ |
if ((__tmp_rpl_object = copie_objet(list, 'N')) == NULL) \ |
if ((__tmp_rpl_object = _copie_objet(list, 'N')) == NULL) \ |
systemError("Memory allocation error"); \ |
systemError("Memory allocation error"); \ |
liberation(list); \ |
_liberation(list); \ |
list = __tmp_rpl_object; \ |
list = __tmp_rpl_object; \ |
if ((*list).objet == NULL) \ |
if ((*list).objet == NULL) \ |
{ \ |
{ \ |
Line 1162
|
Line 1195
|
__current = (*__current).suivant; \ |
__current = (*__current).suivant; \ |
} \ |
} \ |
} \ |
} \ |
liberation((*__current).donnee); \ |
_liberation((*__current).donnee); \ |
free(__current); \ |
free(__current); \ |
} \ |
} \ |
} \ |
} \ |