kc3-lang/gnulib/lib/wcscoll-impl.h

• Show log

  Commit

• Hash : 5b3a6f94
  Author :
  Date : 2021-03-25T12:41:41
  

  free-posix: use more often in other modules
  
  This lets us simplify cleanup code that calls ‘free’.
  * lib/amemxfrm.c (amemxfrm):
  * lib/areadlink-with-size.c (areadlink_with_size):
  * lib/areadlinkat-with-size.c (areadlinkat_with_size):
  * lib/astrxfrm.c (astrxfrm):
  * lib/dprintf.c (dprintf):
  * lib/execute.c (execute):
  * lib/execvpe.c (execvpe):
  * lib/fchdir.c (get_name):
  * lib/file-has-acl.c (file_has_acl):
  * lib/fprintf.c (fprintf):
  * lib/getcwd-lgpl.c (rpl_getcwd):
  * lib/getgroups.c (rpl_getgroups):
  * lib/link.c (link, rpl_link):
  * lib/linkat.c (link_immediate, link_follow, linkat_follow):
  * lib/localename.c (newlocale, duplocale):
  * lib/mgetgroups.c (mgetgroups):
  * lib/mountlist.c (read_file_system_list):
  * lib/pipe-filter-gi.c (pipe_filter_gi_close):
  * lib/putenv.c (_unsetenv, putenv):
  * lib/read-file.c (read_file):
  * lib/rename.c (rpl_rename):
  * lib/savedir.c (streamsavedir, savedir):
  * lib/spawni.c (do_open, __spawni):
  * lib/spawn-pipe.c (create_pipe):
  * lib/striconv.c (mem_cd_iconv, str_cd_iconv, str_iconv):
  * lib/striconveh.c (mem_cd_iconveh_internal, str_cd_iconveh)
  (mem_iconveh, str_iconveh):
  * lib/supersede.c (open_supersede, close_supersede):
  * lib/vasnprintf.c (VASNPRINTF):
  * lib/vdprintf.c (vdprintf):
  * lib/vfprintf.c (vfprintf):
  * lib/wcscoll-impl.h (wcscoll):
  * lib/wcsxfrm-impl.h (wcsxfrm):
  * lib/xgetdomainname.c (xgetdomainname):
  * lib/xgethostname.c (xgethostname):
  Simplify by assuming that ‘free’ preserves errno.
  * lib/localename.c: Do not include errno.h.
  * modules/amemxfrm, modules/areadlink-with-size:
  * modules/areadlinkat-with-size, modules/astrxfrm:
  * modules/c-vasnprintf, modules/dprintf, modules/execute:
  * modules/execvpe, modules/fchdir, modules/file-has-acl:
  * modules/fprintf-posix, modules/getcwd-lgpl, modules/getgroups:
  * modules/link, modules/linkat, modules/localename:
  * modules/mgetgroups, modules/mountlist, modules/pipe-filter-gi:
  * modules/posix_spawn-internal, modules/putenv, modules/read-file:
  * modules/rename, modules/savedir, modules/spawn-pipe:
  * modules/striconv, modules/striconveh, modules/supersede:
  * modules/vasnprintf, modules/vdprintf, modules/vfprintf-posix:
  * modules/wcscoll, modules/wcsxfrm, modules/xgetdomainname:
  * modules/xgethostname:
  Depend on free-posix.
  

Download

• lib/wcscoll-impl.h

• /* Compare two wide strings using the current locale.
     Copyright (C) 2011-2021 Free Software Foundation, Inc.
     Written by Bruno Haible <bruno@clisp.org>, 2011.
  
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by
     the Free Software Foundation; either version 3 of the License, or
     (at your option) any later version.
  
     This program 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 General Public License for more details.
  
     You should have received a copy of the GNU General Public License
     along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
  
  int
  wcscoll (const wchar_t *s1, const wchar_t *s2)
  {
    char mbbuf1[1024];
    char mbbuf2[1024];
    char *mbs1;
    char *mbs2;
  
    {
      int saved_errno = errno;
  
      /* Convert s1 to a multibyte string, trying to avoid malloc().  */
      {
        size_t ret;
  
        ret = wcstombs (mbbuf1, s1, sizeof (mbbuf1));
        if (ret == (size_t)-1)
          goto failed1;
        if (ret < sizeof (mbbuf1))
          mbs1 = mbbuf1;
        else
          {
            size_t need = wcstombs (NULL, s1, 0);
            if (need == (size_t)-1)
              goto failed1;
            mbs1 = (char *) malloc (need + 1);
            if (mbs1 == NULL)
              goto out_of_memory1;
            ret = wcstombs (mbs1, s1, need + 1);
            if (ret != need)
              abort ();
          }
      }
  
      /* Convert s2 to a multibyte string, trying to avoid malloc().  */
      {
        size_t ret;
  
        ret = wcstombs (mbbuf2, s2, sizeof (mbbuf2));
        if (ret == (size_t)-1)
          goto failed2;
        if (ret < sizeof (mbbuf2))
          mbs2 = mbbuf2;
        else
          {
            size_t need = wcstombs (NULL, s2, 0);
            if (need == (size_t)-1)
              goto failed2;
            mbs2 = (char *) malloc (need + 1);
            if (mbs2 == NULL)
              goto out_of_memory2;
            ret = wcstombs (mbs2, s2, need + 1);
            if (ret != need)
              abort ();
          }
      }
  
      /* No error so far.  */
      errno = saved_errno;
    }
  
    /* Compare the two multibyte strings.  */
    {
      int result = strcoll (mbs1, mbs2);
  
      if (mbs1 != mbbuf1)
        free (mbs1);
      if (mbs2 != mbbuf2)
        free (mbs2);
      return result;
    }
  
   out_of_memory2:
    if (mbs1 != mbbuf1)
      free (mbs1);
   out_of_memory1:
    errno = ENOMEM;
    return 0;
  
   failed2:
    if (mbs1 != mbbuf1)
      free (mbs1);
   failed1:
    errno = EILSEQ;
    return 0;
  }
  

Download