]> Savannah Git Hosting - gnulib.git/commitdiff
strncasecmp_l: New module.
authorBruno Haible <bruno@clisp.org>
Sun, 16 Feb 2025 21:32:33 +0000 (22:32 +0100)
committerBruno Haible <bruno@clisp.org>
Sun, 16 Feb 2025 21:32:33 +0000 (22:32 +0100)
* lib/strings.in.h (strncasecmp_l): New declaration.
* lib/strncasecmp_l.c: New file, based on lib/strncasecmp.c.
* m4/strncasecmp_l.m4: New file.
* m4/strings_h.m4 (gl_STRINGS_H): Test for strncasecmp_l.
(gl_STRINGS_H_REQUIRE_DEFAULTS): Initialize GNULIB_STRNCASECMP_L.
(gl_STRINGS_H_DEFAULTS): Initialize HAVE_STRNCASECMP_L,
REPLACE_STRNCASECMP_L.
* modules/strings-h (Makefile.am): Substitute GNULIB_STRNCASECMP_L,
HAVE_STRNCASECMP_L, REPLACE_STRNCASECMP_L.
* modules/strncasecmp_l: New file.
* tests/test-strings-h-c++.cc: Check declaration of strncasecmp_l.
* doc/posix-functions/strncasecmp_l.texi: Mention the new module and the
macOS, Solaris, Cygwin bugs.

ChangeLog
doc/posix-functions/strncasecmp_l.texi
lib/strings.in.h
lib/strncasecmp_l.c [new file with mode: 0644]
m4/strings_h.m4
m4/strncasecmp_l.m4 [new file with mode: 0644]
modules/strings-h
modules/strncasecmp_l [new file with mode: 0644]
tests/test-strings-h-c++.cc

index a8731ea5ff9ec9a0e369d9a5b3717a1661d19ec4..aa5f4dd46869e36c4b932581927e5c1700d55cf7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,20 @@
+2025-02-16  Bruno Haible  <bruno@clisp.org>
+
+       strncasecmp_l: New module.
+       * lib/strings.in.h (strncasecmp_l): New declaration.
+       * lib/strncasecmp_l.c: New file, based on lib/strncasecmp.c.
+       * m4/strncasecmp_l.m4: New file.
+       * m4/strings_h.m4 (gl_STRINGS_H): Test for strncasecmp_l.
+       (gl_STRINGS_H_REQUIRE_DEFAULTS): Initialize GNULIB_STRNCASECMP_L.
+       (gl_STRINGS_H_DEFAULTS): Initialize HAVE_STRNCASECMP_L,
+       REPLACE_STRNCASECMP_L.
+       * modules/strings-h (Makefile.am): Substitute GNULIB_STRNCASECMP_L,
+       HAVE_STRNCASECMP_L, REPLACE_STRNCASECMP_L.
+       * modules/strncasecmp_l: New file.
+       * tests/test-strings-h-c++.cc: Check declaration of strncasecmp_l.
+       * doc/posix-functions/strncasecmp_l.texi: Mention the new module and the
+       macOS, Solaris, Cygwin bugs.
+
 2025-02-16  Bruno Haible  <bruno@clisp.org>
 
        strcasecmp_l: Add tests.
index bfe8a164261d23a32b4556daf530b3694457b327..e39a67e7d22b1f982390105e632126556922c63c 100644 (file)
@@ -4,15 +4,23 @@
 
 POSIX specification:@* @url{https://pubs.opengroup.org/onlinepubs/9799919799/functions/strncasecmp_l.html}
 
-Gnulib module: ---
+Gnulib module: strncasecmp_l
+@mindex strncasecmp_l
 
 Portability problems fixed by Gnulib:
 @itemize
+@item
+This function is missing on many platforms:
+FreeBSD 9.0, NetBSD 10.0, OpenBSD 6.1, Minix 3.3.0, AIX 6.1, HP-UX 11, Solaris 11.3, Cygwin 2.5.x, mingw, MSVC 14, Android 5.1.
+@item
+This function is declared in @code{<string.h>} instead of @code{<strings.h>}
+on some platforms:
+glibc 2.9, macOS 15.
+@item
+This function uses the case mappings of a wrong locale on some platforms:
+Solaris 11.4, Cygwin 3.5.6.
 @end itemize
 
 Portability problems not fixed by Gnulib:
 @itemize
-@item
-This function is missing on many platforms:
-FreeBSD 6.0, NetBSD 10.0, OpenBSD 6.0, Minix 3.1.8, AIX 5.1, HP-UX 11, Solaris 11.3, Cygwin 1.7.x, mingw, MSVC 14, Android 5.1.
 @end itemize
index f355e806a23889d3b8bfffa730eeca2c748acd6d..40c891d7499133845d968cf138d9a32ff0101405 100644 (file)
@@ -46,7 +46,7 @@
 # include <stddef.h>
 #endif
 
-#if @GNULIB_STRCASECMP_L@
+#if @GNULIB_STRCASECMP_L@ || @GNULIB_STRNCASECMP_L@
 /* Get locale_t.  */
 # include <locale.h>
 # if ((__GLIBC__ == 2 && __GLIBC_MINOR__ < 10) \
@@ -193,6 +193,41 @@ _GL_WARN_ON_USE (strncasecmp, "strncasecmp cannot work correctly on character "
 # endif
 #endif
 
+#if @GNULIB_STRNCASECMP_L@
+# if @REPLACE_STRNCASECMP_L@
+#  if !(defined __cplusplus && defined GNULIB_NAMESPACE)
+#   undef strncasecmp_l
+#   define strncasecmp_l rpl_strncasecmp_l
+#  endif
+_GL_FUNCDECL_RPL (strncasecmp_l, int,
+                  (const char *s1, const char *s2, size_t n, locale_t locale),
+                  _GL_ARG_NONNULL ((1, 2, 4)));
+_GL_CXXALIAS_RPL (strncasecmp_l, int,
+                  (const char *s1, const char *s2, size_t n, locale_t locale));
+# else
+#  if !@HAVE_STRNCASECMP_L@
+_GL_FUNCDECL_SYS (strncasecmp_l, int,
+                  (const char *s1, const char *s2, size_t n, locale_t locale),
+                  _GL_ARG_NONNULL ((1, 2, 4)));
+#  endif
+_GL_CXXALIAS_SYS (strncasecmp_l, int,
+                  (const char *s1, const char *s2, size_t n, locale_t locale));
+# endif
+# if __GLIBC__ >= 2
+_GL_CXXALIASWARN (strncasecmp_l);
+# endif
+#elif defined GNULIB_POSIXCHECK
+/* strncasecmp_l() does not work with multibyte strings:
+   POSIX says that it operates on "strings", and "string" in POSIX is defined
+   as a sequence of bytes, not of characters.   */
+# undef strncasecmp_l
+# if HAVE_RAW_DECL_STRNCASECMP_L
+_GL_WARN_ON_USE (strncasecmp_l, "strncasecmp_l cannot work correctly on "
+                 "character strings in multibyte locales and is unportable - "
+                 "use gnulib module strncasecmp_l for portability");
+# endif
+#endif
+
 
 #ifdef __cplusplus
 }
diff --git a/lib/strncasecmp_l.c b/lib/strncasecmp_l.c
new file mode 100644 (file)
index 0000000..f20cdc7
--- /dev/null
@@ -0,0 +1,84 @@
+/* Case-insensitive string comparison function for unibyte locales.
+   Copyright (C) 1998-2025 Free Software Foundation, Inc.
+
+   This file is free software: you can redistribute it and/or modify
+   it under the terms of the GNU Lesser General Public License as
+   published by the Free Software Foundation; either version 2.1 of the
+   License, or (at your option) any later version.
+
+   This file is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU Lesser General Public License for more details.
+
+   You should have received a copy of the GNU Lesser General Public License
+   along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
+
+#include <config.h>
+
+/* Specification.  */
+#include <strings.h>
+
+#include <ctype.h>
+#include <limits.h>
+#include <string.h>
+
+int
+strncasecmp_l (const char *s1, const char *s2, size_t n, locale_t locale)
+{
+#if GNULIB_defined_locale_t
+
+  struct gl_locale_category_t *plc =
+    &locale->category[gl_log2_lc_mask (LC_CTYPE)];
+  if (plc->is_c_locale)
+    /* Implementation for the "C" locale.  */
+    return c_strncasecmp (s1, s2, n);
+# if HAVE_WINDOWS_LOCALE_T
+  /* Documentation:
+     <https://learn.microsoft.com/en-us/cpp/c-runtime-library/reference/strnicmp-wcsnicmp-mbsnicmp-strnicmp-l-wcsnicmp-l-mbsnicmp-l>  */
+  return _strnicmp_l (s1, s2, n, plc->system_locale);
+# else
+  /* Implementation for the global locale.  */
+  {
+    int ret;
+#  if HAVE_WORKING_USELOCALE
+    locale_t saved_locale = uselocale (LC_GLOBAL_LOCALE);
+#  endif
+    ret = strncasecmp (s1, s2, n);
+#  if HAVE_WORKING_USELOCALE
+    uselocale (saved_locale);
+#  endif
+    return ret;
+  }
+# endif
+
+#else
+
+  unsigned char c1, c2;
+
+  if (s1 == s2 || n == 0)
+    return 0;
+
+  do
+    {
+      c1 = tolower ((unsigned char) *s1);
+      c2 = tolower ((unsigned char) *s2);
+
+      if (--n == 0 || c1 == '\0')
+        break;
+
+      ++s1;
+      ++s2;
+    }
+  while (c1 == c2);
+
+  if (UCHAR_MAX <= INT_MAX)
+    return c1 - c2;
+  else
+    /* On machines where 'char' and 'int' are types of the same size, the
+       difference of two 'unsigned char' values - including the sign bit -
+       doesn't fit in an 'int'.  */
+    return _GL_CMP (c1, c2);
+
+#endif
+}
index 992503779c3b4c49b1d4880497cd6306fd844e36..18f30d4aed683643fd3fa4b6119d0243dec1d35b 100644 (file)
@@ -1,5 +1,5 @@
 # strings_h.m4
-# serial 13
+# serial 14
 dnl Copyright (C) 2007, 2009-2025 Free Software Foundation, Inc.
 dnl This file is free software; the Free Software Foundation
 dnl gives unlimited permission to copy and/or distribute it,
@@ -29,7 +29,7 @@ AC_DEFUN_ONCE([gl_STRINGS_H],
        <strings.h>.  */
     #include <sys/types.h>
     #include <strings.h>
-    ]], [ffs strcasecmp strcasecmp_l strncasecmp])
+    ]], [ffs strcasecmp strcasecmp_l strncasecmp strncasecmp_l])
 ])
 
 # gl_STRINGS_MODULE_INDICATOR([modulename])
@@ -53,6 +53,7 @@ AC_DEFUN([gl_STRINGS_H_REQUIRE_DEFAULTS],
     gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRCASECMP])
     gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRCASECMP_L])
     gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRNCASECMP])
+    gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRNCASECMP_L])
   ])
   m4_require(GL_MODULE_INDICATOR_PREFIX[_STRINGS_H_MODULE_INDICATOR_DEFAULTS])
   AC_REQUIRE([gl_STRINGS_H_DEFAULTS])
@@ -65,8 +66,10 @@ AC_DEFUN([gl_STRINGS_H_DEFAULTS],
   HAVE_STRCASECMP=1;       AC_SUBST([HAVE_STRCASECMP])
   HAVE_STRCASECMP_L=1;     AC_SUBST([HAVE_STRCASECMP_L])
   HAVE_STRNCASECMP=1;      AC_SUBST([HAVE_STRNCASECMP])
+  HAVE_STRNCASECMP_L=1;    AC_SUBST([HAVE_STRNCASECMP_L])
   HAVE_DECL_STRNCASECMP=1; AC_SUBST([HAVE_DECL_STRNCASECMP])
   REPLACE_STRCASECMP=0;    AC_SUBST([REPLACE_STRCASECMP])
   REPLACE_STRCASECMP_L=0;  AC_SUBST([REPLACE_STRCASECMP_L])
   REPLACE_STRNCASECMP=0;   AC_SUBST([REPLACE_STRNCASECMP])
+  REPLACE_STRNCASECMP_L=0; AC_SUBST([REPLACE_STRNCASECMP_L])
 ])
diff --git a/m4/strncasecmp_l.m4 b/m4/strncasecmp_l.m4
new file mode 100644 (file)
index 0000000..efdc90c
--- /dev/null
@@ -0,0 +1,34 @@
+# strncasecmp_l.m4
+# serial 1
+dnl Copyright (C) 2009-2025 Free Software Foundation, Inc.
+dnl This file is free software; the Free Software Foundation
+dnl gives unlimited permission to copy and/or distribute it,
+dnl with or without modifications, as long as this notice is preserved.
+dnl This file is offered as-is, without any warranty.
+
+AC_DEFUN([gl_FUNC_STRNCASECMP_L],
+[
+  AC_REQUIRE([gl_STRINGS_H_DEFAULTS])
+
+  dnl Persuade glibc <strings.h> to declare strncasecmp_l().
+  AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS])
+
+  AC_CHECK_FUNCS_ONCE([strncasecmp_l])
+  if test $ac_cv_func_strncasecmp_l = yes; then
+    dnl strncasecmp_l usually has the same bug as strncasecmp.
+    gl_STRCASECMP_WORKS
+    case "$gl_cv_func_strcasecmp_works" in
+      *yes) ;;
+      *) REPLACE_STRNCASECMP_L=1 ;;
+    esac
+  else
+    HAVE_STRNCASECMP_L=0
+  fi
+])
+
+# Prerequisites of lib/strncasecmp_l.c.
+AC_DEFUN([gl_PREREQ_STRNCASECMP_L],
+[
+  AC_REQUIRE([gt_FUNC_USELOCALE])
+  :
+])
index f03d16223e93c10e2be20d434fa2aecdf4fe175e..ae047ec155a4ee18ae7cdebcfcde73a01d9cd494 100644 (file)
@@ -36,14 +36,17 @@ strings.h: strings.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(WARN_ON_USE
              -e 's/@''GNULIB_STRCASECMP''@/$(GNULIB_STRCASECMP)/g' \
              -e 's/@''GNULIB_STRCASECMP_L''@/$(GNULIB_STRCASECMP_L)/g' \
              -e 's/@''GNULIB_STRNCASECMP''@/$(GNULIB_STRNCASECMP)/g' \
+             -e 's/@''GNULIB_STRNCASECMP_L''@/$(GNULIB_STRNCASECMP_L)/g' \
              -e 's|@''HAVE_FFS''@|$(HAVE_FFS)|g' \
              -e 's|@''HAVE_STRCASECMP''@|$(HAVE_STRCASECMP)|g' \
              -e 's|@''HAVE_STRCASECMP_L''@|$(HAVE_STRCASECMP_L)|g' \
              -e 's|@''HAVE_STRNCASECMP''@|$(HAVE_STRNCASECMP)|g' \
+             -e 's|@''HAVE_STRNCASECMP_L''@|$(HAVE_STRNCASECMP_L)|g' \
              -e 's|@''HAVE_DECL_STRNCASECMP''@|$(HAVE_DECL_STRNCASECMP)|g' \
              -e 's|@''REPLACE_STRCASECMP''@|$(REPLACE_STRCASECMP)|g' \
              -e 's|@''REPLACE_STRCASECMP_L''@|$(REPLACE_STRCASECMP_L)|g' \
              -e 's|@''REPLACE_STRNCASECMP''@|$(REPLACE_STRNCASECMP)|g' \
+             -e 's|@''REPLACE_STRNCASECMP_L''@|$(REPLACE_STRNCASECMP_L)|g' \
              -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \
              -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \
              -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \
diff --git a/modules/strncasecmp_l b/modules/strncasecmp_l
new file mode 100644 (file)
index 0000000..154bd44
--- /dev/null
@@ -0,0 +1,39 @@
+Description:
+Case-insensitive string comparison for unibyte locales.
+
+Files:
+lib/strncasecmp_l.c
+m4/strncasecmp_l.m4
+m4/strcasecmp.m4
+m4/intl-thread-locale.m4
+
+Depends-on:
+strings-h
+locale-h
+extensions
+c-strncasecmp   [test $HAVE_STRNCASECMP_L = 0 || test $REPLACE_STRNCASECMP_L = 1]
+tolower_l       [test $HAVE_STRNCASECMP_L = 0 || test $REPLACE_STRNCASECMP_L = 1]
+
+configure.ac:
+gl_FUNC_STRNCASECMP_L
+gl_CONDITIONAL([GL_COND_OBJ_STRNCASECMP_L],
+               [test $HAVE_STRNCASECMP_L = 0 || test $REPLACE_STRNCASECMP_L = 1])
+AM_COND_IF([GL_COND_OBJ_STRNCASECMP_L], [
+  gl_PREREQ_STRNCASECMP_L
+])
+gl_MODULE_INDICATOR([strncasecmp_l])
+gl_STRINGS_MODULE_INDICATOR([strncasecmp_l])
+
+Makefile.am:
+if GL_COND_OBJ_STRNCASECMP_L
+lib_SOURCES += strncasecmp_l.c
+endif
+
+Include:
+<strings.h>
+
+License:
+LGPLv2+
+
+Maintainer:
+all
index ce6dcda2cae6b46094ade14a383d81c5bab14b73..4f6d505db0771622e0aabad0c79bde9cb8ff977e 100644 (file)
@@ -33,6 +33,11 @@ SIGNATURE_CHECK (GNULIB_NAMESPACE::strcasecmp_l, int,
                  (const char *, const char *, locale_t));
 #endif
 
+#if GNULIB_TEST_STRNCASECMP_L
+SIGNATURE_CHECK (GNULIB_NAMESPACE::strncasecmp_l, int,
+                 (const char *, const char *, size_t, locale_t));
+#endif
+
 
 int
 main ()