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
|
/*
This software may only be used by you under license from AT&T Corp.
("AT&T"). A copy of AT&T's Source Code Agreement is available at
AT&T's Internet website having the URL:
<http://www.research.att.com/sw/tools/graphviz/license/source.html>
If you received this software without first entering into a license
with AT&T, you have an infringing copy of this software and cannot use
it without violating AT&T's intellectual property rights.
*/
#pragma prototyped
/* Lefteris Koutsofios - AT&T Bell Laboratories */
#include "common.h"
#include "code.h"
#include "mem.h"
Code_t *cbufp;
int cbufn, cbufi;
#define CBUFINCR 1000
#define CBUFSIZE sizeof (Code_t)
static int Cstringoffset;
void Cinit (void) {
Code_t c;
cbufp = Marrayalloc ((long) CBUFINCR * CBUFSIZE);
cbufn = CBUFINCR;
cbufi = 0;
Cstringoffset = (char *) &c.u.s[0] - (char *) &c + 1;
/* the + 1 above accounts for the null character */
}
void Cterm (void) {
Marrayfree (cbufp);
cbufp = NULL;
cbufn = cbufi = 0;
}
void Creset (void) {
cbufi = 0;
}
int Cnew (Ctype_t ctype) {
int i;
if (cbufi >= cbufn) {
cbufp = Marraygrow (cbufp, (long) (cbufn + CBUFINCR) * CBUFSIZE);
cbufn += CBUFINCR;
}
i = cbufi++;
cbufp[i].ctype = ctype;
cbufp[i].next = C_NULL;
return i;
}
int Cinteger (long i) {
int j;
if (cbufi >= cbufn) {
cbufp = Marraygrow (cbufp, (long) (cbufn + CBUFINCR) * CBUFSIZE);
cbufn += CBUFINCR;
}
j = cbufi++;
cbufp[j].ctype = C_INTEGER;
cbufp[j].u.i = i;
cbufp[j].next = C_NULL;
return j;
}
int Creal (double d) {
int i;
if (cbufi >= cbufn) {
cbufp = Marraygrow (cbufp, (long) (cbufn + CBUFINCR) * CBUFSIZE);
cbufn += CBUFINCR;
}
i = cbufi++;
cbufp[i].ctype = C_REAL;
cbufp[i].u.d = d;
cbufp[i].next = C_NULL;
return i;
}
int Cstring (char *s) {
int i, size, incr;
size = (strlen (s) + Cstringoffset + CBUFSIZE - 1) / CBUFSIZE;
if (cbufi + size > cbufn) {
incr = size > CBUFINCR ? size : CBUFINCR;
cbufp = Marraygrow (cbufp, (long) (cbufn + incr) * CBUFSIZE);
cbufn += incr;
}
i = cbufi, cbufi += size;
cbufp[i].ctype = C_STRING;
strcpy ((char *) &cbufp[i].u.s[0], s);
cbufp[i].next = C_NULL;
return i;
}
|
