| ------------------------------------------------------------------------------ |
| -- -- |
| -- GNAT RUN-TIME COMPONENTS -- |
| -- -- |
| -- A D A . L O C A L E S -- |
| -- -- |
| -- S p e c -- |
| -- -- |
| -- Copyright (C) 2010-2016, Free Software Foundation, Inc. -- |
| -- -- |
| -- This specification is derived from the Ada Reference Manual for use with -- |
| -- GNAT. In accordance with the copyright of that document, you can freely -- |
| -- copy and modify this specification, provided that if you redistribute a -- |
| -- modified version, any changes that you have made are clearly indicated. -- |
| -- -- |
| ------------------------------------------------------------------------------ |
| |
| package Ada.Locales is |
| pragma Preelaborate (Locales); |
| pragma Remote_Types (Locales); |
| |
| type Language_Code is new String (1 .. 3) |
| with Dynamic_Predicate => |
| (for all E of Language_Code => E in 'a' .. 'z'); |
| |
| type Country_Code is new String (1 .. 2) |
| with Dynamic_Predicate => |
| (for all E of Country_Code => E in 'A' .. 'Z'); |
| |
| Language_Unknown : constant Language_Code := "und"; |
| Country_Unknown : constant Country_Code := "ZZ"; |
| |
| function Language return Language_Code; |
| function Country return Country_Code; |
| |
| end Ada.Locales; |
