1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
/*
* This file is part of libdyn.a, the C Dynamic Object library. It
* contains the source code for the function DynInsert().
*
* There are no restrictions on this code; however, if you make any
* changes, I request that you document them so that I do not get
* credit or blame for your modifications.
*
* Written by Barr3y Jaspan, Student Information Processing Board (SIPB)
* and MIT-Project Athena, 1989.
*/
#include <stdio.h>
#include <string.h>
#include "dynP.h"
int DynInsert(obj, idx, els_in, num)
DynObjectP obj;
void *els_in;
int idx, num;
{
DynPtr els = (DynPtr) els_in;
int ret;
if (idx < 0 || idx > obj->num_el) {
if (obj->debug)
fprintf(stderr, "dyn: insert: index %d is not in [0,%d]\n",
idx, obj->num_el);
return DYN_BADINDEX;
}
if (num < 1) {
if (obj->debug)
fprintf(stderr, "dyn: insert: cannot insert %d elements\n",
num);
return DYN_BADVALUE;
}
if (obj->debug)
fprintf(stderr,"dyn: insert: Moving %d bytes from %p + %d to + %d\n",
(obj->num_el-idx)*obj->el_size, obj->array,
obj->el_size*idx, obj->el_size*(idx+num));
if ((ret = _DynResize(obj, obj->num_el + num)) != DYN_OK)
return ret;
#ifdef HAVE_MEMMOVE
memmove(obj->array + obj->el_size*(idx + num),
obj->array + obj->el_size*idx,
(size_t) ((obj->num_el-idx)*obj->el_size));
#else
bcopy(obj->array + obj->el_size*idx,
obj->array + obj->el_size*(idx + num),
(obj->num_el-idx)*obj->el_size);
#endif
if (obj->debug)
fprintf(stderr, "dyn: insert: Copying %d bytes from %p to %p + %d\n",
obj->el_size*num, els, obj->array, obj->el_size*idx);
#ifdef HAVE_MEMMOVE
memmove(obj->array + obj->el_size*idx, els, (size_t) (obj->el_size*num));
#else
bcopy(els, obj->array + obj->el_size*idx, obj->el_size*num);
#endif
obj->num_el += num;
if (obj->debug)
fprintf(stderr, "dyn: insert: done.\n");
return DYN_OK;
}
|
