| blob | 832a3e17980d639f7371c4c9279ee864444398f1 |
1 /****************************************************************************
2 * *
3 * GNAT COMPILER COMPONENTS *
4 * *
5 * L O C A L E S *
6 * *
7 * C Implementation File *
8 * *
9 * Copyright (C) 2010-2023, Free Software Foundation, Inc. *
10 * *
11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 3, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
16 * or FITNESS FOR A PARTICULAR PURPOSE. *
17 * *
18 * As a special exception under Section 7 of GPL version 3, you are granted *
19 * additional permissions described in the GCC Runtime Library Exception, *
20 * version 3.1, as published by the Free Software Foundation. *
21 * *
22 * You should have received a copy of the GNU General Public License and *
23 * a copy of the GCC Runtime Library Exception along with this program; *
24 * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see *
25 * <http://www.gnu.org/licenses/>. *
26 * *
27 * GNAT was originally developed by the GNAT team at New York University. *
28 * Extensive contributions were provided by Ada Core Technologies Inc. *
29 * *
30 ****************************************************************************/
32 /* This file provides OS-dependent support for the Ada.Locales package. */
34 #include <locale.h>
35 #include <ctype.h>
36 #include <stddef.h>
38 #define ARRAY_SIZE(a) (sizeof (a) / sizeof ((a)[0]))
42 /* Table containing equivalences between ISO_639_1 codes and their ISO_639_3
43 alpha-3 code plus their language name. */
46 {
256 };
258 /* Table containing equivalences between ISO_3166 alpha-2 codes and country
259 names. This table has several entries for codes that have several valid
260 country names. */
263 {
556 };
558 /* Utility function to perform case insensitive string comparison. Returns 1
559 if both strings are equal and 0 otherwise. */
561 static int
564 s1++;
565 s2++;
566 }
569 }
571 /* Utility function to copy length characters of a string. The target string
572 must have space to store the extra string null terminator. */
574 static void
578 }
581 }
583 /* Utility function to search for the last byte of the lc_all string to be
584 processed. Required because in some targets (for example, AIX), the
585 string returned by setlocale() has duplicates. */
594 /* Search for the 1st space (if any) */
596 s1++;
604 /* Skip this space and search for the 2nd one (if available) */
605 s1++;
607 s1++;
615 /* Search for the last byte of lc_all */
617 s1++;
621 /* Check if the two strings match */
622 {
630 /* Compare their contents */
632 p1++;
633 p2++;
634 }
636 /* if the two strings match then update the last byte */
640 }
641 }
642 }
643 }
644 }
647 }
649 /* Utility function to search in the iso_639_1 table for an iso-639-1 code;
650 returns the corresponding iso-639-3 code or NULL if not found. */
663 p++;
665 }
668 }
671 }
673 /* Utility function to search in the iso_639_1 table for a language name;
674 returns the corresponding iso-639-3 code or NULL if not found. */
685 p--;
687 }
690 }
693 }
695 /* Utility function to search in the iso_3166 table for a country name;
696 returns the corresponding iso-3166 code or NULL if not found. */
704 p++;
707 p--;
709 }
712 }
715 }
717 /*
718 c_get_language_code needs to fill in the Alpha-3 encoding of the
719 language code (3 lowercase letters). That should be "und" if the
720 language is unknown. [see Ada.Locales]
721 */
722 void
729 /* Get locales set in the environment */
734 /* The string returned by setlocale has the following format:
736 language[_territory][.code-set][@modifier]
738 where language is an ISO 639 language code, territory is an ISO 3166
739 country code, and codeset is a character set or encoding identifier
740 like ISO-8859-1 or UTF-8.
741 */
747 /* Copy the language part (which may be an ISO-639-1 code, an ISO-639-3
748 code, or a language name) adding a string terminator */
751 s++;
755 /* Handle conversion of ISO-639-1 to ISO-639-3 */
761 /* Duplicate the ISO-639-1 code adding the null terminator required to
762 search for the equivalent ISO-639-3 code; we cannot just append the
763 null terminator since the pointer may reference non-writable memory.
764 */
772 /* Copy the ISO-639-3 code (adding a null terminator) */
777 /* Handle conversion of language name to ISO-639-3 */
783 /* Duplicate the ISO-639-1 code adding the null terminator required to
784 search for the equivalent ISO-639-3 code; we cannot just append the
785 null terminator since the pointer may reference non-writable memory.
786 */
793 }
794 }
796 /* Copy out the computed ISO_639_3 code */
802 /* Restore the original locale settings */
807 }
809 /*
810 c_get_country_code needs to fill in the Alpha-2 encoding of the
811 country code (2 uppercase letters). That should be "ZZ" if the
812 country is unknown. [see Ada.Locales]
813 */
814 void
821 /* Get locales set in the environment */
826 /* The string returned by setlocale has the following format:
828 language[_territory][.code-set][@modifier]
830 where language is an ISO 639 language code, territory is an ISO 3166
831 country code, and codeset is a character set or encoding identifier
832 like ISO-8859-1 or UTF-8.
833 */
841 /* Search for the beginning of the country code */
845 s1++;
848 s1++;
852 s2++;
859 /* setlocale returned us the country name */
870 }
871 }
872 }
874 /* Copy out the computed ISO_3166 code */
880 /* Restore the original locale settings */
885 }