| blob | dd549e181dfaef103dcc320811f58ca3049b516a |
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-2018, 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>
40 /* Table containing equivalences between ISO_639_1 codes and their ISO_639_3
41 alpha-3 code plus their language name. */
44 {
254 };
256 /* Table containing equivalences between ISO_3166 alpha-2 codes and country
257 names. This table has several entries for codes that have several valid
258 country names. */
261 {
554 };
556 /* Utility function to perform case insensitive string comparison. Returns 1
557 if both strings are equal and 0 otherwise. */
559 static int
562 s1++;
563 s2++;
564 }
567 }
569 /* Utility function to copy length characters of a string. The target string
570 must have space to store the extra string null terminator. */
572 static void
576 }
579 }
581 /* Utility function to search for the last byte of the lc_all string to be
582 processed. Required because in some targets (for example, AIX), the
583 string returned by setlocale() has duplicates. */
592 /* Search for the 1st space (if any) */
594 s1++;
602 /* Skip this space and search for the 2nd one (if available) */
603 s1++;
605 s1++;
613 /* Search for the last byte of lc_all */
615 s1++;
619 /* Check if the two strings match */
620 {
628 /* Compare their contents */
630 p1++;
631 p2++;
632 }
634 /* if the two strings match then update the last byte */
638 }
639 }
640 }
641 }
642 }
645 }
647 /* Utility function to search in the iso_639_1 table for an iso-639-1 code;
648 returns the corresponding iso-639-3 code or NULL if not found. */
661 p++;
663 }
666 }
669 }
671 /* Utility function to search in the iso_639_1 table for a language name;
672 returns the corresponding iso-639-3 code or NULL if not found. */
683 p--;
685 }
688 }
691 }
693 /* Utility function to search in the iso_3166 table for a country name;
694 returns the corresponding iso-3166 code or NULL if not found. */
702 p++;
705 p--;
707 }
710 }
713 }
715 /*
716 c_get_language_code needs to fill in the Alpha-3 encoding of the
717 language code (3 lowercase letters). That should be "und" if the
718 language is unknown. [see Ada.Locales]
719 */
720 void
727 /* Get locales set in the environment */
732 /* The string returned by setlocale has the following format:
734 language[_territory][.code-set][@modifier]
736 where language is an ISO 639 language code, territory is an ISO 3166
737 country code, and codeset is a character set or encoding identifier
738 like ISO-8859-1 or UTF-8.
739 */
745 /* Copy the language part (which may be an ISO-639-1 code, an ISO-639-3
746 code, or a language name) adding a string terminator */
749 s++;
753 /* Handle conversion of ISO-639-1 to ISO-639-3 */
759 /* Duplicate the ISO-639-1 code adding the null terminator required to
760 search for the equivalent ISO-639-3 code; we cannot just append the
761 null terminator since the pointer may reference non-writable memory.
762 */
770 /* Copy the ISO-639-3 code (adding a null terminator) */
775 /* Handle conversion of language name to ISO-639-3 */
781 /* Duplicate the ISO-639-1 code adding the null terminator required to
782 search for the equivalent ISO-639-3 code; we cannot just append the
783 null terminator since the pointer may reference non-writable memory.
784 */
791 }
792 }
794 /* Copy out the computed ISO_639_3 code */
800 /* Restore the original locale settings */
805 }
807 /*
808 c_get_country_code needs to fill in the Alpha-2 encoding of the
809 country code (2 uppercase letters). That should be "ZZ" if the
810 country is unknown. [see Ada.Locales]
811 */
812 void
819 /* Get locales set in the environment */
824 /* The string returned by setlocale has the following format:
826 language[_territory][.code-set][@modifier]
828 where language is an ISO 639 language code, territory is an ISO 3166
829 country code, and codeset is a character set or encoding identifier
830 like ISO-8859-1 or UTF-8.
831 */
839 /* Search for the beginning of the country code */
843 s1++;
846 s1++;
850 s2++;
857 /* setlocale returned us the country name */
868 }
869 }
870 }
872 /* Copy out the computed ISO_3166 code */
878 /* Restore the original locale settings */
883 }