|
1869
|
1 /* Locale-specific memory comparison. |
|
|
2 Copyright 1999 Free Software Foundation, Inc. |
|
|
3 |
|
|
4 This program is free software; you can redistribute it and/or modify |
|
|
5 it under the terms of the GNU General Public License as published by |
|
|
6 the Free Software Foundation; either version 2, or (at your option) |
|
|
7 any later version. |
|
|
8 |
|
|
9 This program is distributed in the hope that it will be useful, |
|
|
10 but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
12 GNU General Public License for more details. |
|
|
13 |
|
|
14 You should have received a copy of the GNU General Public License |
|
|
15 along with this program; if not, write to the Free Software Foundation, |
|
|
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
|
|
17 |
|
|
18 /* Contributed by Paul Eggert <eggert@twinsun.com>. */ |
|
|
19 |
|
|
20 #if HAVE_CONFIG_H |
|
|
21 # include <config.h> |
|
|
22 #endif |
|
|
23 |
|
|
24 #ifndef __GNUC__ |
|
|
25 # ifdef HAVE_ALLOCA_H |
|
|
26 # include <alloca.h> |
|
|
27 # else |
|
|
28 # ifdef _AIX |
|
|
29 # pragma alloca |
|
|
30 # else |
|
|
31 # ifdef _WIN32 |
|
|
32 # include <malloc.h> |
|
|
33 # include <io.h> |
|
|
34 # else |
|
|
35 # ifndef alloca |
|
|
36 char *alloca (); |
|
|
37 # endif |
|
|
38 # endif |
|
|
39 # endif |
|
|
40 # endif |
|
|
41 #endif |
|
|
42 |
|
|
43 #if HAVE_STRING_H |
|
|
44 # include <string.h> |
|
|
45 #endif |
|
|
46 |
|
|
47 /* Compare S1 (with length S1LEN) and S2 (with length S2LEN) according |
|
|
48 to the LC_COLLATE locale. S1 and S2 do not overlap, but may be |
|
|
49 adjacent. Temporarily modify the bytes after S1 and S2, but |
|
|
50 restore their original contents before returning. */ |
|
|
51 int |
|
|
52 memcoll (char *s1, size_t s1len, char *s2, size_t s2len) |
|
|
53 { |
|
|
54 int diff; |
|
|
55 char n1; |
|
|
56 char n2; |
|
|
57 |
|
|
58 /* We will temporarily set the bytes after S1 and S2 to zero, so if |
|
|
59 S1 and S2 are adjacent, compare to a temporary copy of the |
|
|
60 earlier, to avoid temporarily stomping on the later. */ |
|
|
61 |
|
|
62 if (s1 + s1len == s2) |
|
|
63 { |
|
|
64 char *s2copy = alloca (s2len + 1); |
|
|
65 memcpy (s2copy, s2, s2len); |
|
|
66 s2 = s2copy; |
|
|
67 } |
|
|
68 |
|
|
69 if (s2 + s2len == s1) |
|
|
70 { |
|
|
71 char *s1copy = alloca (s1len + 1); |
|
|
72 memcpy (s1copy, s1, s1len); |
|
|
73 s1 = s1copy; |
|
|
74 } |
|
|
75 |
|
|
76 n1 = s1[s1len]; s1[s1len++] = '\0'; |
|
|
77 n2 = s2[s2len]; s2[s2len++] = '\0'; |
|
|
78 |
|
|
79 while (! (diff = strcoll (s1, s2))) |
|
|
80 { |
|
|
81 /* strcoll found no difference, but perhaps it was fooled by NUL |
|
|
82 characters in the data. Work around this problem by advancing |
|
|
83 past the NUL chars. */ |
|
|
84 size_t size1 = strlen (s1) + 1; |
|
|
85 size_t size2 = strlen (s2) + 1; |
|
|
86 s1 += size1; |
|
|
87 s2 += size2; |
|
|
88 s1len -= size1; |
|
|
89 s2len -= size2; |
|
|
90 |
|
|
91 if (s1len == 0) |
|
|
92 { |
|
|
93 if (s2len != 0) |
|
|
94 diff = -1; |
|
|
95 break; |
|
|
96 } |
|
|
97 else if (s2len == 0) |
|
|
98 { |
|
|
99 diff = 1; |
|
|
100 break; |
|
|
101 } |
|
|
102 } |
|
|
103 |
|
|
104 s1[s1len - 1] = n1; |
|
|
105 s2[s2len - 1] = n2; |
|
|
106 |
|
|
107 return diff; |
|
|
108 } |
