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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
/*
* extarr.c
* kirk johnson
* july 1993
*
* RCS $Id: extarr.c,v 1.4 1995/08/28 08:27:20 tuna Exp $
*
* Copyright (C) 1989, 1990, 1993, 1994, 1995 Kirk Lauritz Johnson
*
* Parts of the source code (as marked) are:
* Copyright (C) 1989, 1990, 1991 by Jim Frost
* Copyright (C) 1992 by Jamie Zawinski <jwz@lucid.com>
*
* Permission to use, copy, modify and freely distribute xearth for
* non-commercial and not-for-profit purposes is hereby granted
* without fee, provided that both the above copyright notice and this
* permission notice appear in all copies and in supporting
* documentation.
*
* Unisys Corporation holds worldwide patent rights on the Lempel Zev
* Welch (LZW) compression technique employed in the CompuServe GIF
* image file format as well as in other formats. Unisys has made it
* clear, however, that it does not require licensing or fees to be
* paid for freely distributed, non-commercial applications (such as
* xearth) that employ LZW/GIF technology. Those wishing further
* information about licensing the LZW patent should contact Unisys
* directly at (lzw_info@unisys.com) or by writing to
*
* Unisys Corporation
* Welch Licensing Department
* M/S-C1SW19
* P.O. Box 500
* Blue Bell, PA 19424
*
* The author makes no representations about the suitability of this
* software for any purpose. It is provided "as is" without express or
* implied warranty.
*
* THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, INDIRECT
* OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
* LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
* NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/
#include "xearth.h"
#include "kljcpyrt.h"
ExtArr extarr_alloc(eltsize)
unsigned eltsize;
{
ExtArr rslt;
rslt = (ExtArr) malloc((unsigned) sizeof(struct extarr));
assert(rslt != NULL);
rslt->eltsize = eltsize;
rslt->limit = 1;
rslt->count = 0;
rslt->body = (void *) malloc((unsigned) eltsize*rslt->limit);
assert(rslt->body != NULL);
return rslt;
}
void extarr_free(x)
ExtArr x;
{
free(x->body);
free(x);
}
void *extarr_next(x)
ExtArr x;
{
unsigned eltsize;
unsigned limit;
unsigned count;
void *body;
void *rslt;
eltsize = x->eltsize;
limit = x->limit;
count = x->count;
body = x->body;
if (count == limit)
{
limit *= 2;
body = (void *) realloc(body, (unsigned) eltsize*limit);
assert(body != NULL);
x->limit = limit;
x->body = body;
}
rslt = (void *) ((char *) body + (count * eltsize));
x->count = count + 1;
return rslt;
}
|
