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
|
/* This file is part of the software similarity tester SIM.
Written by Dick Grune, Vrije Universiteit, Amsterdam.
$Id: tokenarray.c,v 1.5 2008/09/23 09:07:12 dick Exp $
*/
#include "error.h"
#include "lex.h"
#include "Malloc.h"
#include "tokenarray.h"
#define TK_INCR 10000 /* increment of token array size */
TOKEN *TokenArray; /* to be filled by Malloc() */
static unsigned int tk_size; /* size of TokenArray[] */
static unsigned int tk_free; /* next free position in TokenArray[] */
void
InitTokenArray(void) {
tk_size = TK_INCR;
TokenArray = (TOKEN *)Malloc(sizeof (TOKEN) * tk_size);
tk_free = 1; /* don't use position 0 */
}
void
StoreToken(void) {
if (tk_free == tk_size) {
/* allocated array is full; try to increase its size */
unsigned int new_size = tk_size + TK_INCR;
TOKEN *new_array = (TOKEN *)TryRealloc(
(char *)TokenArray,
sizeof (TOKEN) * new_size
);
if (!new_array) {
/* we failed */
fatal("out of memory");
}
if (new_size < tk_free)
fatal("internal error: TK_INCR causes numeric overflow");
TokenArray = new_array, tk_size = new_size;
}
/* now we are sure there is room enough */
TokenArray[tk_free++] = lex_token;
}
unsigned int
TextLength(void) {
return tk_free;
}
|