Mercurial > hg > octave-kai > gnulib-hg
annotate lib/strverscmp.c @ 2162:f791c89a9a49
(ISDIGIT): Define.
(strverscmp): Use ISDIGIT, not isdigit.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Sat, 22 Jan 2000 09:43:23 +0000 |
| parents | 38fd8f5d359d |
| children | 9b7ce618e1fb |
| rev | line source |
|---|---|
| 974 | 1 /* Compare strings while treating digits characters numerically. |
| 2162 | 2 Copyright (C) 1997, 2000 Free Software Foundation, Inc. |
| 974 | 3 This file is part of the GNU C Library. |
| 4 Contributed by Jean-Francois Bignolles <bignolle@ecoledoc.ibp.fr>, 1997. | |
| 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 | |
| 975 | 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 | |
| 2162 | 39 /* ISDIGIT differs from isdigit, as follows: |
| 40 - Its arg may be any int or unsigned int; it need not be an unsigned char. | |
| 41 - It's guaranteed to evaluate its argument exactly once. | |
| 42 - It's typically faster. | |
| 43 Posix 1003.2-1992 section 2.5.2.1 page 50 lines 1556-1558 says that | |
| 44 only '0' through '9' are digits. Prefer ISDIGIT to isdigit unless | |
| 45 it's important to use the locale's definition of `digit' even when the | |
| 46 host does not conform to Posix. */ | |
| 47 #define ISDIGIT(c) ((unsigned) (c) - '0' <= 9) | |
| 974 | 48 |
| 49 /* Compare S1 and S2 as strings holding indices/version numbers, | |
| 50 returning less than, equal to or greater than zero if S1 is less than, | |
| 51 equal to or greater than S2 (for more info, see the texinfo doc). | |
| 52 */ | |
| 53 | |
| 54 int | |
| 1557 | 55 strverscmp (const char *s1, const char *s2) |
| 974 | 56 { |
| 57 const unsigned char *p1 = (const unsigned char *) s1; | |
| 58 const unsigned char *p2 = (const unsigned char *) s2; | |
| 59 unsigned char c1, c2; | |
| 60 int state; | |
| 61 int diff; | |
| 62 | |
| 63 /* Symbol(s) 0 [1-9] others (padding) | |
| 64 Transition (10) 0 (01) d (00) x (11) - */ | |
| 65 static const unsigned int next_state[] = | |
| 66 { | |
| 67 /* state x d 0 - */ | |
| 68 /* S_N */ S_N, S_I, S_Z, S_N, | |
| 69 /* S_I */ S_N, S_I, S_I, S_I, | |
| 70 /* S_F */ S_N, S_F, S_F, S_F, | |
| 71 /* S_Z */ S_N, S_F, S_Z, S_Z | |
| 72 }; | |
| 73 | |
| 74 static const int result_type[] = | |
| 75 { | |
| 76 /* state x/x x/d x/0 x/- d/x d/d d/0 d/- | |
| 77 0/x 0/d 0/0 0/- -/x -/d -/0 -/- */ | |
| 78 | |
| 79 /* S_N */ CMP, CMP, CMP, CMP, CMP, LEN, CMP, CMP, | |
| 80 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
|
81 /* 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
|
82 1, LEN, LEN, CMP, CMP, CMP, CMP, CMP, |
| 974 | 83 /* S_F */ CMP, CMP, CMP, CMP, CMP, LEN, CMP, CMP, |
| 84 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
|
85 /* S_Z */ CMP, 1, 1, CMP, -1, CMP, CMP, CMP, |
| 974 | 86 -1, CMP, CMP, CMP |
| 87 }; | |
| 88 | |
| 89 if (p1 == p2) | |
| 90 return 0; | |
| 91 | |
| 92 c1 = *p1++; | |
| 93 c2 = *p2++; | |
| 94 /* Hint: '0' is a digit too. */ | |
| 2162 | 95 state = S_N | ((c1 == '0') + (ISDIGIT (c1) != 0)); |
| 974 | 96 |
| 97 while ((diff = c1 - c2) == 0 && c1 != '\0') | |
| 98 { | |
| 99 state = next_state[state]; | |
| 100 c1 = *p1++; | |
| 101 c2 = *p2++; | |
| 2162 | 102 state |= (c1 == '0') + (ISDIGIT (c1) != 0); |
| 974 | 103 } |
| 104 | |
| 2162 | 105 state = result_type[state << 2 | ((c2 == '0') + (ISDIGIT (c2) != 0))]; |
| 974 | 106 |
| 107 switch (state) | |
| 976 | 108 { |
| 974 | 109 case CMP: |
| 110 return diff; | |
| 111 | |
| 112 case LEN: | |
| 2162 | 113 while (ISDIGIT (*p1++)) |
| 114 if (!ISDIGIT (*p2++)) | |
| 974 | 115 return 1; |
| 116 | |
| 2162 | 117 return ISDIGIT (*p2) ? -1 : diff; |
| 974 | 118 |
| 119 default: | |
| 120 return state; | |
| 976 | 121 } |
| 974 | 122 } |