src/lib-roff/strcasecmp.c

   1 /*@ strcasecmp.c -- case insensitive string comparator.
   2  *
   3  * Copyright (c) 2014 - 2017 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   4  *
   5  *    Copyright (C) 1998, 1999 Free Software Foundation, Inc.
   6  *
   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.
  11  *
  12  *    This program is distributed in the hope that it will be useful,
  13  *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *    GNU General Public License for more details.
  16  *
  17  *    You should have received a copy of the GNU General Public License
  18  *    along with this program; if not, write to the Free Software Foundation,
  19  *    Inc., 51 Franklin St - Fifth Floor, Boston, MA 02110-1301, USA.
  20  */
  21
  22 #include "config.h"
  23
  24 #ifdef LENGTH_LIMIT
  25 # define STRXCASECMP_FUNCTION strncasecmp
  26 # define STRXCASECMP_DECLARE_N , size_t n
  27 # define LENGTH_LIMIT_EXPR(Expr) Expr
  28 #else
  29 # define STRXCASECMP_FUNCTION strcasecmp
  30 # define STRXCASECMP_DECLARE_N /* empty */
  31 # define LENGTH_LIMIT_EXPR(Expr) 0
  32 #endif
  33
  34 #include <ctype.h>
  35 #include <stddef.h>
  36
  37 #define TOLOWER(Ch) (isupper (Ch) ? tolower (Ch) : (Ch))
  38
  39 /* Compare {{no more than N characters of }}strings S1 and S2,
  40    ignoring case, returning less than, equal to or
  41    greater than zero if S1 is lexicographically less
  42    than, equal to or greater than S2.  */
  43
  44 int
  45 STRXCASECMP_FUNCTION (const char *s1, const char *s2 STRXCASECMP_DECLARE_N)
  46 {
  47   register const unsigned char *p1 = (const unsigned char *) s1;
  48   register const unsigned char *p2 = (const unsigned char *) s2;
  49   unsigned char c1, c2;
  50
  51   if (p1 == p2 || LENGTH_LIMIT_EXPR (n == 0))
  52     return 0;
  53
  54   do
  55     {
  56       c1 = TOLOWER (*p1);
  57       c2 = TOLOWER (*p2);
  58
  59       if (LENGTH_LIMIT_EXPR (--n == 0) || c1 == '\0')
  60         break;
  61
  62       ++p1;
  63       ++p2;
  64     }
  65   while (c1 == c2);
  66
  67   return c1 - c2;
  68 }
  69
  70 // s-it2-mode