1  /* Multithread-safety test for setlocale_null_r (LC_ALL, ...).
       2     Copyright (C) 2019-2021 Free Software Foundation, Inc.
       3  
       4     This program is free software: you can redistribute it and/or modify
       5     it under the terms of the GNU General Public License as published by
       6     the Free Software Foundation; either version 3 of the License, or
       7     (at your option) any later version.
       8  
       9     This program 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
      12     GNU General Public License for more details.
      13  
      14     You should have received a copy of the GNU General Public License
      15     along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
      16  
      17  /* Written by Bruno Haible <bruno@clisp.org>, 2019.  */
      18  
      19  #include <config.h>
      20  
      21  /* Work around GCC bug 44511.  */
      22  #if 4 < __GNUC__ + (3 <= __GNUC_MINOR__)
      23  # pragma GCC diagnostic ignored "-Wreturn-type"
      24  #endif
      25  
      26  #if USE_ISOC_THREADS || USE_POSIX_THREADS || USE_ISOC_AND_POSIX_THREADS || USE_WINDOWS_THREADS
      27  
      28  /* Specification.  */
      29  #include <locale.h>
      30  
      31  #include <stdio.h>
      32  #include <stdlib.h>
      33  #include <string.h>
      34  #include <time.h>
      35  
      36  #include "glthread/thread.h"
      37  
      38  /* We want to use the system's setlocale() function here, not the gnulib
      39     override.  */
      40  #undef setlocale
      41  
      42  
      43  /* Some common locale names.  */
      44  
      45  #if defined _WIN32 && !defined __CYGWIN__
      46  # define ENGLISH "English_United States"
      47  # define GERMAN  "German_Germany"
      48  # define FRENCH  "French_France"
      49  # define ENCODING ".1252"
      50  #else
      51  # define ENGLISH "en_US"
      52  # define GERMAN  "de_DE"
      53  # define FRENCH  "fr_FR"
      54  # if defined __sgi
      55  #  define ENCODING ".ISO8859-15"
      56  # elif defined __hpux
      57  #  define ENCODING ".utf8"
      58  # else
      59  #  define ENCODING ".UTF-8"
      60  # endif
      61  #endif
      62  
      63  static const char LOCALE1[] = ENGLISH ENCODING;
      64  static const char LOCALE2[] = GERMAN ENCODING;
      65  static const char LOCALE3[] = FRENCH ENCODING;
      66  
      67  static char *expected;
      68  
      69  static void *
      70  thread1_func (void *arg)
      71  {
      72    for (;;)
      73      {
      74        char buf[SETLOCALE_NULL_ALL_MAX];
      75  
      76        if (setlocale_null_r (LC_ALL, buf, sizeof (buf)))
      77          abort ();
      78        if (strcmp (expected, buf) != 0)
      79          {
      80            fprintf (stderr, "thread1 disturbed by thread2!\n"); fflush (stderr);
      81            abort ();
      82          }
      83      }
      84  
      85    /*NOTREACHED*/
      86  }
      87  
      88  static void *
      89  thread2_func (void *arg)
      90  {
      91    for (;;)
      92      {
      93        char buf[SETLOCALE_NULL_ALL_MAX];
      94  
      95        setlocale_null_r (LC_NUMERIC, buf, sizeof (buf));
      96        setlocale_null_r (LC_ALL, buf, sizeof (buf));
      97      }
      98  
      99    /*NOTREACHED*/
     100  }
     101  
     102  int
     103  main (int argc, char *argv[])
     104  {
     105    if (setlocale (LC_ALL, LOCALE1) == NULL)
     106      {
     107        fprintf (stderr, "Skipping test: LOCALE1 not recognized\n");
     108        return 77;
     109      }
     110    if (setlocale (LC_NUMERIC, LOCALE2) == NULL)
     111      {
     112        fprintf (stderr, "Skipping test: LOCALE2 not recognized\n");
     113        return 77;
     114      }
     115    if (setlocale (LC_TIME, LOCALE3) == NULL)
     116      {
     117        fprintf (stderr, "Skipping test: LOCALE3 not recognized\n");
     118        return 77;
     119      }
     120  
     121    expected = strdup (setlocale (LC_ALL, NULL));
     122  
     123    /* Create the two threads.  */
     124    gl_thread_create (thread1_func, NULL);
     125    gl_thread_create (thread2_func, NULL);
     126  
     127    /* Let them run for 5 seconds.  */
     128    {
     129      struct timespec duration;
     130      duration.tv_sec = 5;
     131      duration.tv_nsec = 0;
     132  
     133      nanosleep (&duration, NULL);
     134    }
     135  
     136    return 0;
     137  }
     138  
     139  #else
     140  
     141  /* No multithreading available.  */
     142  
     143  #include <stdio.h>
     144  
     145  int
     146  main ()
     147  {
     148    fputs ("Skipping test: multithreading not enabled\n", stderr);
     149    return 77;
     150  }
     151  
     152  #endif
     153  
     154  /* Without locking, the results of this test would be:
     155  glibc                OK
     156  musl libc            crash < 10 sec
     157  macOS                crash < 1 sec
     158  FreeBSD              crash < 1 sec
     159  NetBSD               crash < 2 sec
     160  OpenBSD              crash < 1 sec
     161  AIX                  crash < 2 sec
     162  HP-UX                OK
     163  IRIX                 OK
     164  Solaris 10           OK
     165  Solaris 11.0         OK
     166  Solaris 11.4         OK
     167  Solaris OpenIndiana  OK
     168  Haiku                crash < 1 sec
     169  Cygwin               crash < 1 sec
     170  mingw                OK
     171  MSVC                 OK (assuming compiler option /MD !)
     172  */