Mercurial > hg > octave-lyh

comparison liboctave/strcasecmp.c @ 6111:ed81d74118bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-27 02:43:23 by jwe]
author jwe
date Fri, 27 Oct 2006 02:43:24 +0000
parents
children
comparison
equal deleted inserted replaced
6110:8e5edd73e504 6111:ed81d74118bb
1 /* Copyright (C) 1991, 1992 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3
4 The GNU C Library is free software; you can redistribute it and/or
5 modify it under the terms of the GNU General Public License as
6 published by the Free Software Foundation; either version 2 of the
7 License, or (at your option) any later version.
8
9 The GNU C Library 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 GNU
12 General Public License for more details.
13
14 You should have received a copy of the GNU General Public
15 License along with the GNU C Library; see the file COPYING. If
16 not, write to the Free Software Foundation, Inc., 51 Franklin Street,
17 Fifth Floor, Boston, MA 02110-1301, USA. */
18
19 #ifdef HAVE_CONFIG_H
20 #include <config.h>
21 #endif
22
23 #ifndef HAVE_STRCASECMP
24
25 #include <ctype.h>
26 #include <string.h>
27
28 /* Compare S1 and S2, ignoring case, returning less than, equal to or
29 greater than zero if S1 is lexiographically less than,
30 equal to or greater than S2. */
31 int
32 strcasecmp (const char *s1, const char *s2)
33 {
34 register const unsigned char *p1 = (const unsigned char *) s1;
35 register const unsigned char *p2 = (const unsigned char *) s2;
36 unsigned char c1, c2;
37
38 if (p1 == p2)
39 return 0;
40
41 do
42 {
43 c1 = tolower (*p1++);
44 c2 = tolower (*p2++);
45 if (c1 == '\0')
46 break;
47 }
48 while (c1 == c2);
49
50 return c1 - c2;
51 }
52
53 #endif