Mercurial > hg > octave-kai > gnulib-hg
annotate lib/strverscmp.c @ 3836:3add19ae3d2c
*** empty log message ***
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Tue, 30 Apr 2002 09:18:24 +0000 |
| parents | 1ea823152408 |
| children | d82316ffe803 |
| rev | line source |
|---|---|
| 974 | 1 /* Compare strings while treating digits characters numerically. |
|
3700
1ea823152408
add 2002 to Copyright line
Jim Meyering <jim@meyering.net>
parents:
3699
diff
changeset
|
2 Copyright (C) 1997, 2000, 2002 Free Software Foundation, Inc. |
| 974 | 3 This file is part of the GNU C Library. |
|
2287
9b7ce618e1fb
Put cedilla on `c' in author's name.
Jim Meyering <jim@meyering.net>
parents:
2162
diff
changeset
|
4 Contributed by Jean-Fran�ois Bignolles <bignolle@ecoledoc.ibp.fr>, 1997. |
| 974 | 5 |
| 6 The GNU C Library is free software; you can redistribute it and/or | |
| 7 modify it under the terms of the GNU Library General Public License as | |
| 8 published by the Free Software Foundation; either version 2 of the | |
| 9 License, or (at your option) any later version. | |
| 10 | |
| 11 The GNU C Library is distributed in the hope that it will be useful, | |
| 12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 14 Library General Public License for more details. | |
| 15 | |
| 16 You should have received a copy of the GNU Library General Public | |
| 17 License along with the GNU C Library; see the file COPYING.LIB. If not, | |
| 18 write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 19 Boston, MA 02111-1307, USA. */ | |
| 20 | |
|
1019
6fc478cbf47d
[HAVE_CONFIG_H]: Include config.h.
Jim Meyering <jim@meyering.net>
parents:
977
diff
changeset
|
21 #if HAVE_CONFIG_H |
|
6fc478cbf47d
[HAVE_CONFIG_H]: Include config.h.
Jim Meyering <jim@meyering.net>
parents:
977
diff
changeset
|
22 # include <config.h> |
|
6fc478cbf47d
[HAVE_CONFIG_H]: Include config.h.
Jim Meyering <jim@meyering.net>
parents:
977
diff
changeset
|
23 #endif |
|
6fc478cbf47d
[HAVE_CONFIG_H]: Include config.h.
Jim Meyering <jim@meyering.net>
parents:
977
diff
changeset
|
24 |
| 974 | 25 #include <string.h> |
| 26 #include <ctype.h> | |
| 27 | |
| 28 /* states: S_N: normal, S_I: comparing integral part, S_F: comparing | |
|
2986
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
29 fractional parts, S_Z: idem but with leading Zeroes only */ |
| 974 | 30 #define S_N 0x0 |
| 31 #define S_I 0x4 | |
| 32 #define S_F 0x8 | |
| 33 #define S_Z 0xC | |
| 34 | |
| 35 /* result_type: CMP: return diff; LEN: compare using len_diff/diff */ | |
| 36 #define CMP 2 | |
| 37 #define LEN 3 | |
| 38 | |
|
2986
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
39 |
| 2162 | 40 /* ISDIGIT differs from isdigit, as follows: |
| 41 - Its arg may be any int or unsigned int; it need not be an unsigned char. | |
| 42 - It's guaranteed to evaluate its argument exactly once. | |
| 43 - It's typically faster. | |
| 3699 | 44 POSIX says that only '0' through '9' are digits. Prefer ISDIGIT to |
| 45 ISDIGIT_LOCALE unless it's important to use the locale's definition | |
| 46 of `digit' even when the host does not conform to POSIX. */ | |
| 2162 | 47 #define ISDIGIT(c) ((unsigned) (c) - '0' <= 9) |
| 974 | 48 |
|
2986
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
49 #undef __strverscmp |
|
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
50 #undef strverscmp |
|
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
51 |
|
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
52 #ifndef weak_alias |
|
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
53 # define __strverscmp strverscmp |
|
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
54 #endif |
|
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
55 |
| 974 | 56 /* Compare S1 and S2 as strings holding indices/version numbers, |
| 57 returning less than, equal to or greater than zero if S1 is less than, | |
| 58 equal to or greater than S2 (for more info, see the texinfo doc). | |
| 59 */ | |
| 60 | |
| 61 int | |
|
2986
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
62 __strverscmp (const char *s1, const char *s2) |
| 974 | 63 { |
| 64 const unsigned char *p1 = (const unsigned char *) s1; | |
| 65 const unsigned char *p2 = (const unsigned char *) s2; | |
| 66 unsigned char c1, c2; | |
| 67 int state; | |
| 68 int diff; | |
| 69 | |
| 70 /* Symbol(s) 0 [1-9] others (padding) | |
| 71 Transition (10) 0 (01) d (00) x (11) - */ | |
| 72 static const unsigned int next_state[] = | |
| 73 { | |
| 74 /* state x d 0 - */ | |
| 75 /* S_N */ S_N, S_I, S_Z, S_N, | |
| 76 /* S_I */ S_N, S_I, S_I, S_I, | |
| 77 /* S_F */ S_N, S_F, S_F, S_F, | |
| 78 /* S_Z */ S_N, S_F, S_Z, S_Z | |
| 79 }; | |
| 80 | |
| 81 static const int result_type[] = | |
| 82 { | |
| 83 /* state x/x x/d x/0 x/- d/x d/d d/0 d/- | |
| 84 0/x 0/d 0/0 0/- -/x -/d -/0 -/- */ | |
| 85 | |
| 86 /* S_N */ CMP, CMP, CMP, CMP, CMP, LEN, CMP, CMP, | |
| 87 CMP, CMP, CMP, CMP, CMP, CMP, CMP, CMP, | |
|
1020
7a11651fb4a6
Use `1' not `+1' -- some compilers (sunos' cc) can't parse it.
Jim Meyering <jim@meyering.net>
parents:
1019
diff
changeset
|
88 /* S_I */ CMP, -1, -1, CMP, 1, LEN, LEN, CMP, |
|
7a11651fb4a6
Use `1' not `+1' -- some compilers (sunos' cc) can't parse it.
Jim Meyering <jim@meyering.net>
parents:
1019
diff
changeset
|
89 1, LEN, LEN, CMP, CMP, CMP, CMP, CMP, |
| 974 | 90 /* S_F */ CMP, CMP, CMP, CMP, CMP, LEN, CMP, CMP, |
| 91 CMP, CMP, CMP, CMP, CMP, CMP, CMP, CMP, | |
|
1020
7a11651fb4a6
Use `1' not `+1' -- some compilers (sunos' cc) can't parse it.
Jim Meyering <jim@meyering.net>
parents:
1019
diff
changeset
|
92 /* S_Z */ CMP, 1, 1, CMP, -1, CMP, CMP, CMP, |
| 974 | 93 -1, CMP, CMP, CMP |
| 94 }; | |
| 95 | |
| 96 if (p1 == p2) | |
| 97 return 0; | |
| 98 | |
| 99 c1 = *p1++; | |
| 100 c2 = *p2++; | |
| 101 /* Hint: '0' is a digit too. */ | |
| 2162 | 102 state = S_N | ((c1 == '0') + (ISDIGIT (c1) != 0)); |
| 974 | 103 |
| 104 while ((diff = c1 - c2) == 0 && c1 != '\0') | |
| 105 { | |
| 106 state = next_state[state]; | |
| 107 c1 = *p1++; | |
| 108 c2 = *p2++; | |
| 2162 | 109 state |= (c1 == '0') + (ISDIGIT (c1) != 0); |
| 974 | 110 } |
| 111 | |
| 2162 | 112 state = result_type[state << 2 | ((c2 == '0') + (ISDIGIT (c2) != 0))]; |
| 974 | 113 |
| 114 switch (state) | |
| 976 | 115 { |
| 974 | 116 case CMP: |
| 117 return diff; | |
| 118 | |
| 119 case LEN: | |
| 2162 | 120 while (ISDIGIT (*p1++)) |
| 121 if (!ISDIGIT (*p2++)) | |
| 974 | 122 return 1; |
| 123 | |
| 2162 | 124 return ISDIGIT (*p2) ? -1 : diff; |
| 974 | 125 |
| 126 default: | |
| 127 return state; | |
| 976 | 128 } |
| 974 | 129 } |
|
2986
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
130 #ifdef weak_alias |
|
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
131 weak_alias (__strverscmp, strverscmp) |
|
f15c2a52acf6
Incorporate weak-alias-related changes from glibc.
Jim Meyering <jim@meyering.net>
parents:
2287
diff
changeset
|
132 #endif |