version 1.90, 2018/05/30 16:50:13
|
version 1.95, 2019/02/03 14:41:29
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.29 |
RPL/2 (R) version 4.1.31 |
Copyright (C) 1989-2018 Dr. BERTRAND Joël |
Copyright (C) 1989-2019 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 983
|
Line 983
|
|
|
#define createComplexMatrixObject |
#define createComplexMatrixObject |
|
|
|
// Array |
|
|
|
#define isArray(rpl_object) \ |
|
((*rpl_object).type == TBL) |
|
|
|
#define ifIsArray(rpl_object) if (isArray(rpl_object)) |
|
#define elseIfIsArray(rpl_object) } else if (isArray(rpl_object)) |
|
|
|
#define createArray(rpl_object, size) do { \ |
|
int __i; \ |
|
if (rpl_object != NULL) systemError("Reallocated object"); \ |
|
if ((rpl_object = _allocation(TBL)) == NULL) \ |
|
systemError("Memory allocation error"); \ |
|
(*((struct_tableau *) (*rpl_object).objet)).nombre_elements = size; \ |
|
if (((*((struct_tableau *) (*rpl_object).objet)).elements = malloc( \ |
|
size * sizeof(struct_objet *))) == NULL) \ |
|
systemError("Memory allocation error"); \ |
|
for(__i = 0; __i < size; __i++) { \ |
|
nullify((*((struct_tableau *) (*rpl_object).objet)).elements[__i]); \ |
|
createIntegerObject((*((struct_tableau *) (*rpl_object).objet)) \ |
|
.elements[__i]); } \ |
|
} while(0) |
|
|
|
#define setObjectIntoArray(rpl_array, pos, rpl_object) do { \ |
|
typeof(pos) __position = pos; __position--; \ |
|
ifIsArray(rpl_array) { \ |
|
if ((__position < 0) || (__position >= (*((struct_tableau *) \ |
|
(*rpl_array).objet)).nombre_elements)) \ |
|
executionError("Element out of range"); \ |
|
if ((*rpl_array).nombre_occurrences > 1) \ |
|
{ \ |
|
struct_objet *__tmp_rpl_object; \ |
|
if ((__tmp_rpl_object = _copie_objet(rpl_array, 'O')) == NULL) \ |
|
systemError("Memory allocation error"); \ |
|
_liberation(rpl_array); \ |
|
rpl_array = __tmp_rpl_object; \ |
|
} \ |
|
_liberation((*((struct_tableau *) (*rpl_array).objet)) \ |
|
.elements[__position]); \ |
|
(*((struct_tableau *) (*rpl_array).objet)).elements[__position] = \ |
|
rpl_object; \ |
|
} \ |
|
else executionError("Type mistmatch error"); \ |
|
nullify(rpl_object); \ |
|
} while(0) |
|
|
|
#define getObjectFromArray() |
|
|
// Binary integer |
// Binary integer |
|
|
#define setBinaryInteger(rpl_object, value) do { \ |
#define setBinaryInteger(rpl_object, value) do { \ |
Line 1105
|
Line 1153
|
ifIsString(rpl_object) string = (char *) (*rpl_object).objet; \ |
ifIsString(rpl_object) string = (char *) (*rpl_object).objet; \ |
else executionError("Type mismatch error"); } while(0) |
else executionError("Type mismatch error"); } while(0) |
|
|
#define unEscString(s) do { \ |
#define unEscString(s) ({ \ |
unsigned char *__a; integer8 __l; \ |
unsigned char *__a; integer8 __l; \ |
__a = formateur_flux((*rpl_arguments).s_etat_processus, \ |
__a = formateur_flux((*rpl_arguments).s_etat_processus, \ |
(unsigned char *) s, &__l); \ |
(unsigned char *) s, &__l); \ |
if (nullified(__a)) systemError("Memory allocation error"); \ |
if (nullified(__a)) systemError("Memory allocation error"); \ |
free(s); s = (string) __a; \ |
(string) __a; \ |
} while(0) |
}) |
|
|
#define escString(rpl_object) do { \ |
#define escString(rpl_object) ({ \ |
unsigned char *__a; integer8 __l; \ |
unsigned char *__a; integer8 __l; \ |
__a = analyse_flux((*rpl_arguments).s_etat_processus, \ |
__a = analyse_flux((*rpl_arguments).s_etat_processus, \ |
(unsigned char *) s, strlen(s)); \ |
(unsigned char *) s, strlen(s)); \ |
if (nullified(__a)) systemError("Memory allocation error"); \ |
if (nullified(__a)) systemError("Memory allocation error"); \ |
free(s); s = (string) __a; \ |
(string) __a; \ |
} while(0) |
}) |
|
|
#define createStringObject(rpl_object) do { \ |
#define createStringObject(rpl_object) do { \ |
struct_processus *s_etat_processus; \ |
struct_processus *s_etat_processus; \ |