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
|
/*
* case-mapping stuff
*
* We exploit the fact that we are dealing only with headers here, and
* headers are limited to the ASCII characters by RFC822. It is barely
* possible that we might be dealing with a translation into another
* character set, but in particular it's very unlikely for a header
* character to be outside -128..255.
*
* Life would be a whole lot simpler if tolower() could safely and portably
* be applied to any char.
*/
#include <stdio.h>
#include "string.h"
#include "case.h"
/* note that case.h knows the value of OFFSET */
#define OFFSET 128 /* avoid trouble with negative chars */
#define MAPSIZE (256+OFFSET)
char casemap[MAPSIZE]; /* relies on init to '\0' */
static int primed = 0; /* has casemap been set up? */
/*
- prime - set up case-mapping stuff
*/
static void
prime()
{
register char *lp;
register char *up;
register int c;
register int i;
static char lower[] = "abcdefghijklmnopqrstuvwxyz";
static char upper[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
for (lp = lower, up = upper; *lp != '\0'; lp++, up++) {
c = *lp;
casemap[c+OFFSET] = c;
casemap[*up+OFFSET] = c;
}
for (i = 0; i < MAPSIZE; i++)
if (casemap[i] == '\0')
casemap[i] = (char)(i-OFFSET);
primed = 1;
}
/*
- cistrncmp - case-independent strncmp
*/
int /* < == > 0 */
cistrncmp(s1, s2, len)
char *s1;
char *s2;
int len;
{
register char *p1;
register char *p2;
register int n;
if (!primed)
prime();
p1 = s1;
p2 = s2;
n = len;
while (--n >= 0 && *p1 != '\0' && TOLOW(*p1) == TOLOW(*p2)) {
p1++;
p2++;
}
if (n < 0)
return(0);
/*
* The following case analysis is necessary so that characters
* which look negative collate low against normal characters but
* high against the end-of-string NUL.
*/
if (*p1 == '\0' && *p2 == '\0')
return(0);
else if (*p1 == '\0')
return(-1);
else if (*p2 == '\0')
return(1);
else
return(TOLOW(*p1) - TOLOW(*p2));
}
/*
- rfc822ize - do the bizarre case conversion needed for rfc822 message-ids
*
* Actually, this is not quite complete. Absolute, total, full RFC822
* compliance requires a horrible parsing job, because of the arcane
* quoting conventions -- abc"def"ghi is not equivalent to abc"DEF"ghi,
* for example. There are three or four things that might occur in the
* domain part of a message-id that are case-sensitive. They don't seem
* to ever occur in real news, thank Cthulhu. (What? You were expecting
* a merciful and forgiving deity to be invoked in connection with RFC822?
* Forget it; none of them would come near it.)
*/
char * /* returns the argument */
rfc822ize(s)
char *s;
{
register char *p;
static char post[] = "postmaster";
static int postlen = sizeof(post)-1;
if (!primed)
prime();
p = strrchr(s, '@');
if (p == NULL) /* no local/domain split */
p = ""; /* assume all local */
else if (p - (s+1) == postlen && CISTREQN(s+1, post, postlen)) {
/* crazy special case -- "postmaster" is case-insensitive */
p = s;
}
#ifdef NONSTANDARD
#ifdef RFCVIOLATION
#ifdef B_2_11_MISTAKE
p = s; /* all case-insensitive */
#endif
#endif
#endif
for (; *p != '\0'; p++)
*p = TOLOW(*p);
return(s);
}
|