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
|
/*******************************************************************************
* The Elm Mail System - $Revision: 1.1.1.1 $ $State: Exp $
*
* Copyright (c) 1988-1995 USENET Community Trust
* Copyright (c) 1986,1987 Dave Taylor
*******************************************************************************
* Bug reports, patches, comments, suggestions should be sent to:
*
* Bill Pemberton, Elm Coordinator
* flash@virginia.edu
*
*******************************************************************************
* $Log: strincmp.c,v $
* Revision 1.1.1.1 2001/11/21 18:25:35 ludo
* Imported Sources
*
* Revision 1.3 2001/11/20 14:42:56 ludo
* See ChangeLog
*
* Revision 1.2 2001/11/18 23:10:25 ludo
* See ChangeLog
*
* Revision 1.1.1.1 2001/09/28 13:06:57 ludo
* Import of sources
*
* Revision 1.1.1.1 2001/07/28 00:06:35 ludovic
* Imported Sources
*
* Revision 1.5 1995/09/29 17:41:42 wfp5p
* Alpha 8 (Chip's big changes)
*
* Revision 1.4 1995/09/11 15:19:00 wfp5p
* Alpha 7
*
* Revision 1.3 1995/07/18 18:59:51 wfp5p
* Alpha 6
*
* Revision 1.2 1995/06/22 14:48:38 wfp5p
* Performance enhancements from Paul Close
*
* Revision 1.1.1.1 1995/04/19 20:38:33 wfp5p
* Initial import of elm 2.4 PL0 as base for elm 2.5.
*
******************************************************************************/
/** compare strings ignoring case
**/
#include <Pantomime/elm_defs.h>
static char lwtab[1<<(8*sizeof(char))];
static int first_time = TRUE;
static void setup_lwtab()
{
int c;
for (c = 1<<(8*sizeof(char)) - 1; c >= 0; c--)
lwtab[c] = tolower(c);
first_time = FALSE;
}
int
strincmp(s1,s2,n)
register const char *s1, *s2;
register int n;
{
register int d;
if (first_time)
setup_lwtab();
#define CHECKSTR \
if ((d = (lwtab[(unsigned)*s1] - lwtab[(unsigned)*s2])) != 0 || *s1 == '\0' || *s2 == '\0' ) \
return d; \
else \
++s1, ++s2
switch (n & 07) {
case 7: CHECKSTR;
case 6: CHECKSTR;
case 5: CHECKSTR;
case 4: CHECKSTR;
case 3: CHECKSTR;
case 2: CHECKSTR;
case 1: CHECKSTR;
}
for (n >>= 3 ; n > 0 ; --n) {
CHECKSTR;
CHECKSTR;
CHECKSTR;
CHECKSTR;
CHECKSTR;
CHECKSTR;
CHECKSTR;
CHECKSTR;
}
return 0;
}
int
istrcmp(s1,s2)
register const char *s1, *s2;
{
register int d;
if (first_time)
setup_lwtab();
for (;;) {
d = (lwtab[(unsigned)*s1] - lwtab[(unsigned)*s2]);
if ( d != 0 || *s1 == '\0' || *s2 == '\0' )
return d;
++s1;
++s2;
}
/*NOTREACHED*/
}
|
