pike.git/
src/
array.c
Branch:
Tag:
Non-build tags
All tags
No tags
1998-02-20
1998-02-20 00:29:24 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
0e124e4a5d734b60eab61e1c3ad4193f9b6bc847 (
22
lines) (+
22
/-
0
)
[
Show
|
Annotate
]
Branch:
7.9
new function: friendly_slice_array
Rev: src/array.c:1.29
Rev: src/array.h:1.10
442:
} /*
+
* Slice a pice of an array (nondestructively)
+
* return an array consisting of v[start..end-1]
+
*/
+
struct array *friendly_slice_array(struct array *v,INT32 start,INT32 end)
+
{
+
struct array *a;
+
+
#ifdef DEBUG
+
if(start > end || end>v->size || start<0)
+
fatal("Illegal arguments to slice_array()\n");
+
#endif
+
+
a=allocate_array_no_init(end-start,0);
+
a->type_field = v->type_field;
+
+
assign_svalues_no_free(ITEM(a), ITEM(v)+start, end-start, v->type_field);
+
+
return a;
+
}
+
+
/*
* Copy an array */ struct array *copy_array(struct array *v)