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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
#include <stdlib.h>
#include "byte.h"
#include "str.h"
#include "stralloc.h"
#include "alloc.h"
/**
@file stralloc.c
@author djb
@source qmail, ucspi-tcp
@brief genious dynamic string handling
*/
int stralloc_starts(stralloc *sa,const char *s)
{
int len;
len = str_len(s);
return (sa->len >= len) && byte_equal(s,len,sa->s);
}
int stralloc_cat(stralloc *sato,stralloc *safrom)
{
return stralloc_catb(sato,safrom->s,safrom->len);
}
int stralloc_catb(stralloc *sa,const char *s,unsigned int n)
{
if (!sa->s) return stralloc_copyb(sa,s,n);
if (!stralloc_readyplus(sa,n + 1)) return 0;
byte_copy(sa->s + sa->len,n,s);
sa->len += n;
sa->s[sa->len] = 'Z'; /* ``offensive programming'' */
return 1;
}
int stralloc_cats(stralloc *sa,const char *s)
{
return stralloc_catb(sa,s,str_len(s));
}
int stralloc_copy(stralloc *sato,stralloc *safrom)
{
return stralloc_copyb(sato,safrom->s,safrom->len);
}
int stralloc_ready(stralloc *sa,size_t len)
{
register size_t wanted = len+(len>>3)+30; /* heuristic from djb */
if (wanted<len) wanted = len;
if (!sa->s || sa->a<len) {
register char* tmp;
if (!(tmp = realloc(sa->s,wanted))) // !!! needs stdlib (realloc)
return 0;
sa->a = wanted;
sa->s = tmp;
}
return 1;
}
int stralloc_readyplus(stralloc *sa,size_t len)
{
if (sa->s) {
if (sa->len + len < len) return 0; /* catch integer overflow */
return stralloc_ready(sa,sa->len+len);
} else
return stralloc_ready(sa,len);
}
int stralloc_copyb(stralloc *sa,const char *s,unsigned int n)
{
if (!stralloc_ready(sa,n + 1)) return 0;
byte_copy(sa->s,n,s);
sa->len = n;
sa->s[n] = 'Z'; /* ``offensive programming'' */
return 1;
}
int stralloc_copys(stralloc *sa,const char *s)
{
return stralloc_copyb(sa,s,str_len(s));
}
int stralloc_catulong0(stralloc *sa,unsigned long u,unsigned int n)
{
unsigned int len;
unsigned long q;
char *s;
len = 1;
q = u;
while (q > 9) { ++len; q /= 10; }
if (len < n) len = n;
if (!stralloc_readyplus(sa,len)) return 0;
s = sa->s + sa->len;
sa->len += len;
while (len) { s[--len] = '0' + (u % 10); u /= 10; }
return 1;
}
int stralloc_catlong0(stralloc *sa,long l,unsigned int n)
{
if (l < 0) {
if (!stralloc_append(sa,"-")) return 0;
l = -l;
}
return stralloc_catulong0(sa,l,n);
}
int stralloc_append(stralloc *sa,const char *in)
{
if (stralloc_readyplus(sa,1)) {
sa->s[sa->len] = *in;
++sa->len;
return 1;
}
return 0;
}
void stralloc_free(stralloc *sa) {
if (sa->s) free(sa->s);
sa->s = 0;
sa->a = sa->len = 0;
}
|
