|
428
|
1 /* This file is part of XEmacs.
|
|
|
2
|
|
|
3 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
4 under the terms of the GNU General Public License as published by the
|
|
|
5 Free Software Foundation; either version 2, or (at your option) any
|
|
|
6 later version.
|
|
|
7
|
|
|
8 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
9 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
10 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
11 for more details.
|
|
|
12
|
|
|
13 You should have received a copy of the GNU General Public License
|
|
|
14 along with XEmacs; see the file COPYING. If not, write to
|
|
|
15 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
16 Boston, MA 02111-1307, USA. */
|
|
|
17
|
|
|
18 /* Synched up with: Not in FSF. */
|
|
|
19
|
|
|
20 /* In SunOS 4.1.1 the strcmp and strncmp functions reference memory
|
|
|
21 past the last byte of the string! This will core dump if the memory
|
|
|
22 following the last byte is not mapped.
|
|
|
23
|
|
|
24 Here are correct versions by hbs@lucid.com.
|
|
|
25 */
|
|
|
26
|
|
|
27 # include <config.h>
|
|
|
28 # ifndef REGISTER /* Strictly enforced in 20.3 */
|
|
|
29 # define REGISTER
|
|
|
30 # endif
|
|
|
31
|
|
|
32 #include <string.h>
|
|
|
33 #define ALIGNED(x) (!(((unsigned long) (x)) & (sizeof (unsigned long) - 1)))
|
|
|
34
|
|
|
35 #define MAGIC 0x7efefeff
|
|
|
36 #define HIGH_BIT_P(c) ((c) & hi_bit)
|
|
|
37 #define HAS_ZERO(c) (((((c) + magic) ^ (c)) & not_magic) != not_magic)
|
|
|
38
|
|
|
39 int
|
|
|
40 strcmp (const char *x, const char *y)
|
|
|
41 {
|
|
|
42 if (x == y)
|
|
|
43 return 0;
|
|
|
44 else if (ALIGNED (x) && ALIGNED (y))
|
|
|
45 {
|
|
442
|
46 const unsigned long *x1 = (const unsigned long *) x;
|
|
|
47 const unsigned long *y1 = (const unsigned long *) y;
|
|
428
|
48 unsigned long c;
|
|
|
49 unsigned long magic = MAGIC;
|
|
|
50 unsigned long not_magic = ~magic;
|
|
|
51 unsigned long hi_bit = 0x80000000;
|
|
|
52
|
|
|
53 while ((c = *x1) == *y1)
|
|
|
54 {
|
|
|
55 if (HAS_ZERO(c))
|
|
|
56 {
|
|
|
57 if (!HIGH_BIT_P (c))
|
|
|
58 return 0;
|
|
|
59 else
|
|
|
60 {
|
|
442
|
61 x = (const char *) x1;
|
|
|
62 y = (const char *) y1;
|
|
428
|
63 goto slow_loop;
|
|
|
64 }
|
|
|
65 }
|
|
|
66
|
|
|
67 x1++;
|
|
|
68 y1++;
|
|
|
69 }
|
|
|
70
|
|
442
|
71 x = (const char *) x1;
|
|
|
72 y = (const char *) y1;
|
|
428
|
73 goto slow_loop;
|
|
|
74 }
|
|
|
75 else
|
|
|
76 {
|
|
|
77 char c;
|
|
|
78
|
|
|
79 slow_loop:
|
|
|
80
|
|
|
81 while ((c = *x) == *y)
|
|
|
82 {
|
|
|
83 if (c == (char) 0) return 0;
|
|
|
84 x++;
|
|
|
85 y++;
|
|
|
86 }
|
|
|
87 return (*x - *y);
|
|
|
88 }
|
|
|
89 }
|
|
|
90
|
|
|
91
|
|
|
92 int
|
|
442
|
93 strncmp (const char *x, const char *y, size_t n)
|
|
428
|
94 {
|
|
|
95 if ((x == y) || (n <= 0))
|
|
|
96 return 0;
|
|
|
97 else if (ALIGNED (x) && ALIGNED (y))
|
|
|
98 {
|
|
442
|
99 const unsigned long *x1 = (const unsigned long *) x;
|
|
|
100 const unsigned long *y1 = (const unsigned long *) y;
|
|
428
|
101 unsigned long c;
|
|
|
102 unsigned long magic = MAGIC;
|
|
|
103 unsigned long not_magic = ~magic;
|
|
|
104 unsigned long hi_bit = 0x80000000;
|
|
|
105
|
|
|
106 while ((c = *x1) == *y1)
|
|
|
107 {
|
|
|
108 n -= sizeof (unsigned long);
|
|
|
109 if (n <= 0)
|
|
|
110 return 0;
|
|
|
111
|
|
|
112 if (HAS_ZERO(c))
|
|
|
113 {
|
|
|
114 if (!HIGH_BIT_P (c))
|
|
|
115 return 0;
|
|
|
116 else
|
|
|
117 {
|
|
442
|
118 x = (const char *) x1;
|
|
|
119 y = (const char *) y1;
|
|
428
|
120 goto slow_loop;
|
|
|
121 }
|
|
|
122 }
|
|
|
123
|
|
|
124 x1++;
|
|
|
125 y1++;
|
|
|
126 }
|
|
|
127
|
|
442
|
128 x = (const char *) x1;
|
|
|
129 y = (const char *) y1;
|
|
428
|
130 goto slow_loop;
|
|
|
131 }
|
|
|
132 else
|
|
|
133 {
|
|
|
134 char c;
|
|
|
135
|
|
|
136 slow_loop:
|
|
|
137
|
|
|
138 while ((c = *x) == *y)
|
|
|
139 {
|
|
|
140 n--;
|
|
|
141 if (n <= 0)
|
|
|
142 return 0;
|
|
|
143 if (c == (char) 0)
|
|
|
144 return 0;
|
|
|
145 x++;
|
|
|
146 y++;
|
|
|
147 }
|
|
|
148 return (*x - *y);
|
|
|
149 }
|
|
|
150 }
|
