Mercurial > hg > octave-kai > gnulib-hg
annotate lib/strverscmp.c @ 12559:c2cbabec01dd
update nearly all FSF copyright year lists to include 2010
Use the same procedure as for 2009, outlined in
http://thread.gmane.org/gmane.comp.lib.gnulib.bugs/20081
| author | Jim Meyering <meyering@redhat.com> |
|---|---|
| date | Fri, 01 Jan 2010 10:31:12 +0100 |
| parents | b5e42ef33b49 |
| children | 97fc9a21a8fb |
| rev | line source |
|---|---|
| 974 | 1 /* Compare strings while treating digits characters numerically. |
|
12559
c2cbabec01dd
update nearly all FSF copyright year lists to include 2010
Jim Meyering <meyering@redhat.com>
parents:
12518
diff
changeset
|
2 Copyright (C) 1997, 2000, 2002, 2004, 2006, 2009-2010 Free Software |
|
c2cbabec01dd
update nearly all FSF copyright year lists to include 2010
Jim Meyering <meyering@redhat.com>
parents:
12518
diff
changeset
|
3 Foundation, Inc. |
| 974 | 4 This file is part of the GNU C Library. |
| 5184 | 5 Contributed by Jean-François Bignolles <bignolle@ecoledoc.ibp.fr>, 1997. |
| 974 | 6 |
| 4422 | 7 This program is free software; you can redistribute it and/or modify |
| 8 it under the terms of the GNU General Public License as published by | |
| 9 the Free Software Foundation; either version 2, or (at your option) | |
| 10 any later version. | |
| 974 | 11 |
| 4422 | 12 This program is distributed in the hope that it will be useful, |
| 974 | 13 but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 4422 | 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 15 GNU General Public License for more details. | |
| 974 | 16 |
| 4422 | 17 You should have received a copy of the GNU General Public License along |
| 18 with this program; if not, write to the Free Software Foundation, | |
|
5848
a48fb0e98c8c
*** empty log message ***
Paul Eggert <eggert@cs.ucla.edu>
parents:
5184
diff
changeset
|
19 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ |
| 974 | 20 |
|
7302
8a1a9361108c
* _fpending.c: Include <config.h> unconditionally, since we no
Paul Eggert <eggert@cs.ucla.edu>
parents:
6932
diff
changeset
|
21 #if !_LIBC |
|
1019
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: |
|
6932
6aeb4d6c28d9
* lib/.cppi-disable: Add wcwidth.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6259
diff
changeset
|
41 - Its arg may be any int or unsigned int; it need not be an unsigned char |
|
6aeb4d6c28d9
* lib/.cppi-disable: Add wcwidth.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6259
diff
changeset
|
42 or EOF. |
| 2162 | 43 - It's typically faster. |
| 3699 | 44 POSIX says that only '0' through '9' are digits. Prefer ISDIGIT to |
|
6932
6aeb4d6c28d9
* lib/.cppi-disable: Add wcwidth.
Paul Eggert <eggert@cs.ucla.edu>
parents:
6259
diff
changeset
|
45 isdigit unless it's important to use the locale's definition |
| 3699 | 46 of `digit' even when the host does not conform to POSIX. */ |
| 5159 | 47 #define ISDIGIT(c) ((unsigned int) (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++)) |
|
12421
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
7302
diff
changeset
|
121 if (!ISDIGIT (*p2++)) |
|
e8d2c6fc33ad
Use spaces for indentation, not tabs.
Bruno Haible <bruno@clisp.org>
parents:
7302
diff
changeset
|
122 return 1; |
| 974 | 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 |