1*0Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI"
2*0Sstevel@tonic-gate
3*0Sstevel@tonic-gate /*
4*0Sstevel@tonic-gate * This file is part of libdyn.a, the C Dynamic Object library. It
5*0Sstevel@tonic-gate * contains the source code for the internal function _DynRealloc().
6*0Sstevel@tonic-gate *
7*0Sstevel@tonic-gate * There are no restrictions on this code; however, if you make any
8*0Sstevel@tonic-gate * changes, I request that you document them so that I do not get
9*0Sstevel@tonic-gate * credit or blame for your modifications.
10*0Sstevel@tonic-gate *
11*0Sstevel@tonic-gate * Written by Barr3y Jaspan, Student Information Processing Board (SIPB)
12*0Sstevel@tonic-gate * and MIT-Project Athena, 1989.
13*0Sstevel@tonic-gate */
14*0Sstevel@tonic-gate
15*0Sstevel@tonic-gate #include <stdio.h>
16*0Sstevel@tonic-gate #include <stdlib.h>
17*0Sstevel@tonic-gate
18*0Sstevel@tonic-gate #include "dynP.h"
19*0Sstevel@tonic-gate
20*0Sstevel@tonic-gate /*
21*0Sstevel@tonic-gate * Resize the array so that element req exists.
22*0Sstevel@tonic-gate */
_DynResize(obj,req)23*0Sstevel@tonic-gate int _DynResize(obj, req)
24*0Sstevel@tonic-gate DynObjectP obj;
25*0Sstevel@tonic-gate int req;
26*0Sstevel@tonic-gate {
27*0Sstevel@tonic-gate int cnt, size;
28*0Sstevel@tonic-gate
29*0Sstevel@tonic-gate if (obj->size > req)
30*0Sstevel@tonic-gate return DYN_OK;
31*0Sstevel@tonic-gate else if (obj->inc > 0)
32*0Sstevel@tonic-gate return _DynRealloc(obj, (req - obj->size) / obj->inc + 1);
33*0Sstevel@tonic-gate else {
34*0Sstevel@tonic-gate if (obj->size == 0)
35*0Sstevel@tonic-gate size = -obj->inc;
36*0Sstevel@tonic-gate else
37*0Sstevel@tonic-gate size = obj->size;
38*0Sstevel@tonic-gate
39*0Sstevel@tonic-gate while (size <= req)
40*0Sstevel@tonic-gate size <<= 1;
41*0Sstevel@tonic-gate
42*0Sstevel@tonic-gate return _DynRealloc(obj, size);
43*0Sstevel@tonic-gate }
44*0Sstevel@tonic-gate }
45*0Sstevel@tonic-gate
46*0Sstevel@tonic-gate /*
47*0Sstevel@tonic-gate * Resize the array by num_incs units. If obj->inc is positive, this
48*0Sstevel@tonic-gate * means make it obj->inc*num_incs elements larger. If obj->inc is
49*0Sstevel@tonic-gate * negative, this means make the array num_incs elements long.
50*0Sstevel@tonic-gate *
51*0Sstevel@tonic-gate * Ideally, this function should not be called from outside the
52*0Sstevel@tonic-gate * library. However, nothing will break if it is.
53*0Sstevel@tonic-gate */
_DynRealloc(obj,num_incs)54*0Sstevel@tonic-gate int _DynRealloc(obj, num_incs)
55*0Sstevel@tonic-gate DynObjectP obj;
56*0Sstevel@tonic-gate int num_incs;
57*0Sstevel@tonic-gate {
58*0Sstevel@tonic-gate DynPtr temp;
59*0Sstevel@tonic-gate int new_size_in_bytes;
60*0Sstevel@tonic-gate
61*0Sstevel@tonic-gate if (obj->inc > 0)
62*0Sstevel@tonic-gate new_size_in_bytes = obj->el_size*(obj->size + obj->inc*num_incs);
63*0Sstevel@tonic-gate else
64*0Sstevel@tonic-gate new_size_in_bytes = obj->el_size*num_incs;
65*0Sstevel@tonic-gate
66*0Sstevel@tonic-gate if (obj->debug)
67*0Sstevel@tonic-gate fprintf(stderr,
68*0Sstevel@tonic-gate "dyn: alloc: Increasing object by %d bytes (%d incs).\n",
69*0Sstevel@tonic-gate new_size_in_bytes - obj->el_size*obj->size,
70*0Sstevel@tonic-gate num_incs);
71*0Sstevel@tonic-gate
72*0Sstevel@tonic-gate temp = (DynPtr) realloc(obj->array, new_size_in_bytes);
73*0Sstevel@tonic-gate if (temp == NULL) {
74*0Sstevel@tonic-gate if (obj->debug)
75*0Sstevel@tonic-gate fprintf(stderr, "dyn: alloc: Out of memory.\n");
76*0Sstevel@tonic-gate return DYN_NOMEM;
77*0Sstevel@tonic-gate }
78*0Sstevel@tonic-gate else {
79*0Sstevel@tonic-gate obj->array = temp;
80*0Sstevel@tonic-gate if (obj->inc > 0)
81*0Sstevel@tonic-gate obj->size += obj->inc*num_incs;
82*0Sstevel@tonic-gate else
83*0Sstevel@tonic-gate obj->size = num_incs;
84*0Sstevel@tonic-gate }
85*0Sstevel@tonic-gate
86*0Sstevel@tonic-gate if (obj->debug)
87*0Sstevel@tonic-gate fprintf(stderr, "dyn: alloc: done.\n");
88*0Sstevel@tonic-gate
89*0Sstevel@tonic-gate return DYN_OK;
90*0Sstevel@tonic-gate }
91