version 1.91, 2018/05/30 16:56:07
|
version 1.98, 2021/03/13 12:50:52
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.29 |
RPL/2 (R) version 4.1.33 |
Copyright (C) 1989-2018 Dr. BERTRAND Joël |
Copyright (C) 1989-2021 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 { \ |