mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 22:32:05 -08:00
Code Issues Projects Releases Packages Wiki Activity

New function EXT:ARRAY-RAW-DATA returns an array of octets that overlaps with the data of a given array.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-11-08 15:04:37 +01:00
parent c567ef5d1c
commit 9c2297058c
5 changed files with 43 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/c/array.d
View file

@ -759,6 +759,38 @@ because the total size of the to-array is too small.", 0);
from->array.self.t = address_inc(base, j, fromtype);
}
cl_object
si_array_raw_data(cl_object x)
{
cl_elttype et = ecl_array_elttype(x);
cl_index total_size = x->vector.dim * ecl_aet_size[et];
cl_object output, to_array;
uint8_t *data;
if (et == aet_object) {
FEerror("EXT:ARRAY-RAW-DATA can not get data "
"from an array with element type T.", 0);
}
data = x->vector.self.b8;
to_array = x->array.displaced;
if (to_array == Cnil || ((to_array = ECL_CONS_CAR(to_array)) == Cnil)) {
output = ecl_alloc_object(t_vector);
output->vector.elttype = aet_b8;
output->vector.self.b8 = data;
output->vector.dim = output->vector.fillp = total_size;
output->vector.flags = 0; /* no fill pointer, not adjustable */
output->vector.displaced = Cnil;
} else {
cl_index displ = data - to_array->vector.self.b8;
output = si_make_vector(@'ext::byte8',
MAKE_FIXNUM(total_size),
Cnil,
Cnil,
si_array_raw_data(to_array),
MAKE_FIXNUM(displ));
}
@(return output)
}
cl_elttype
ecl_array_elttype(cl_object x)
{