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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
/* Case-independent string comparison HTString.c
**
** Original version came with listserv implementation.
** Version TBL Oct 91 replaces one which modified the strings.
** 02-Dec-91 (JFG) Added stralloccopy and stralloccat
** 23 Jan 92 (TBL) Changed strallocc* to 8 char HTSAC* for VM and suchlike
** 6 Oct 92 (TBL) Moved WWW_TraceFlag in here to be in library
*/
#include <ctype.h>
#include "HTUtils.h"
#include "tcp.h"
#include "LYLeaks.h"
#define FREE(x) if (x) {free(x); x = NULL;}
PUBLIC int WWW_TraceFlag = 0; /* Global trace flag for ALL W3 code */
#ifndef VC
#define VC "unknown"
#endif /* !VC */
PUBLIC CONST char * HTLibraryVersion = VC; /* String for help screen etc */
#ifndef VM /* VM has these already it seems */
/* Strings of any length
** ---------------------
*/
PUBLIC int strcasecomp ARGS2(
CONST char*, a,
CONST char *, b)
{
CONST char *p = a;
CONST char *q = b;
for (p = a, q = b; *p && *q; p++, q++) {
int diff = TOLOWER(*p) - TOLOWER(*q);
if (diff) return diff;
}
if (*p)
return 1; /* p was longer than q */
if (*q)
return -1; /* p was shorter than q */
return 0; /* Exact match */
}
/* With count limit
** ----------------
*/
PUBLIC int strncasecomp ARGS3(
CONST char*, a,
CONST char *, b,
int, n)
{
CONST char *p = a;
CONST char *q = b;
for (p = a, q = b; ; p++, q++) {
int diff;
if (p == (a+n))
return 0; /* Match up to n characters */
if (!(*p && *q))
return (*p - *q);
diff = TOLOWER(*p) - TOLOWER(*q);
if (diff)
return diff;
}
/*NOTREACHED*/
}
#endif /* VM */
/* Allocate a new copy of a string, and returns it
*/
PUBLIC char * HTSACopy ARGS2(
char **, dest,
CONST char *, src)
{
FREE(*dest);
if (src) {
*dest = (char *) malloc (strlen(src) + 1);
if (*dest == NULL)
outofmem(__FILE__, "HTSACopy");
strcpy (*dest, src);
}
return *dest;
}
/* String Allocate and Concatenate
*/
PUBLIC char * HTSACat ARGS2(
char **, dest,
CONST char *, src)
{
if (src && *src) {
if (*dest) {
int length = strlen(*dest);
*dest = (char *)realloc(*dest, length + strlen(src) + 1);
if (*dest == NULL)
outofmem(__FILE__, "HTSACat");
strcpy (*dest + length, src);
} else {
*dest = (char *)malloc(strlen(src) + 1);
if (*dest == NULL)
outofmem(__FILE__, "HTSACat");
strcpy (*dest, src);
}
}
return *dest;
}
/* Find next Field
** ---------------
**
** On entry,
** *pstr points to a string containig white space separated
** field, optionlly quoted.
**
** On exit,
** *pstr has been moved to the first delimiter past the
** field
** THE STRING HAS BEEN MUTILATED by a 0 terminator
**
** returns a pointer to the first field
*/
PUBLIC char * HTNextField ARGS1(
char **, pstr)
{
char * p = *pstr;
char * start; /* start of field */
while (*p && WHITE(*p))
p++; /* Strip white space */
if (!*p) {
*pstr = p;
return NULL; /* No first field */
}
if (*p == '"') { /* quoted field */
p++;
start = p;
for (; *p && *p!='"'; p++) {
if (*p == '\\' && p[1])
p++; /* Skip escaped chars */
}
} else {
start = p;
while (*p && !WHITE(*p))
p++; /* Skip first field */
}
if (*p)
*p++ = '\0';
*pstr = p;
return start;
}
|