fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
71a63b4c22fe23d47a67be46fe42e9fe8a0ffadf
harbour-core/harbour/source/rtl/lang.c
Viktor Szakats c417d61afa 2009-05-18 11:19 UTC+0200 Viktor Szakats (harbour.01 syenar hu) 
* bin/hb-func.sh
    ! HB_USER_LIBS_DEF -> CC_HB_USER_LIBS
    ; QUESTION: Is it a problem to move these to HB_ namespace?

  * source/rtl/lang.c
    ! Fixed to return language IDs with consistent '-' separators
      instead of '_'. We may change this to consistent '_', if
      we decide it's better.
2009-05-18 09:20:34 +00:00

299 lines
12 KiB
C
Raw Blame History

/*
* $Id$
*/
/*
* Harbour Project source code:
* Language related functions
*
* Copyright 2009 Viktor Szakats <harbour.01 syenar.hu>
* www - http://www.harbour-project.org
*
* 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 2, 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 software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
*
* As a special exception, the Harbour Project gives permission for
* additional uses of the text contained in its release of Harbour.
*
* The exception is that, if you link the Harbour libraries with other
* files to produce an executable, this does not by itself cause the
* resulting executable to be covered by the GNU General Public License.
* Your use of that executable is in no way restricted on account of
* linking the Harbour library code into it.
*
* This exception does not however invalidate any other reasons why
* the executable file might be covered by the GNU General Public License.
*
* This exception applies only to the code released by the Harbour
* Project under the name Harbour. If you copy code from other
* Harbour Project or Free Software Foundation releases into a copy of
* Harbour, as the General Public License permits, the exception does
* not apply to the code that you add in this way. To avoid misleading
* anyone as to the status of such modified files, you must delete
* this exception notice from them.
*
* If you write modifications of your own for Harbour, it is your choice
* whether to permit this exception to apply to your modifications.
* If you do not wish that, delete this exception notice.
*
*/
#define HB_OS_WIN_USED
#include "hbapi.h"
HB_FUNC( HB_USERLANG )
{
char * ietf;
BOOL bFree;
ietf = hb_getenv( "LC_ALL" );
if( ! ietf )
{
ietf = hb_getenv( "LC_MESSAGES" );
if( ! ietf )
ietf = hb_getenv( "LANG" );
}
bFree = ( ietf != NULL );
#if defined(HB_OS_WIN)
if( ! ietf )
{
switch( GetUserDefaultLangID() )
{
case 0x0036: ietf = "af" ; break;
case 0x0436: ietf = "af-ZA" ; break;
case 0x001C: ietf = "sq" ; break;
case 0x041C: ietf = "sq-AL" ; break;
case 0x0001: ietf = "ar" ; break;
case 0x1401: ietf = "ar-DZ" ; break;
case 0x3C01: ietf = "ar-BH" ; break;
case 0x0C01: ietf = "ar-EG" ; break;
case 0x0801: ietf = "ar-IQ" ; break;
case 0x2C01: ietf = "ar-JO" ; break;
case 0x3401: ietf = "ar-KW" ; break;
case 0x3001: ietf = "ar-LB" ; break;
case 0x1001: ietf = "ar-LY" ; break;
case 0x1801: ietf = "ar-MA" ; break;
case 0x2001: ietf = "ar-OM" ; break;
case 0x4001: ietf = "ar-QA" ; break;
case 0x0401: ietf = "ar-SA" ; break;
case 0x2801: ietf = "ar-SY" ; break;
case 0x1C01: ietf = "ar-TN" ; break;
case 0x3801: ietf = "ar-AE" ; break;
case 0x2401: ietf = "ar-YE" ; break;
case 0x002B: ietf = "hy" ; break;
case 0x042B: ietf = "hy-AM" ; break;
case 0x002C: ietf = "az" ; break;
case 0x082C: ietf = "az-AZ-Cyrl" ; break;
case 0x042C: ietf = "az-AZ-Latn" ; break;
case 0x002D: ietf = "eu" ; break;
case 0x042D: ietf = "eu-ES" ; break;
case 0x0023: ietf = "be" ; break;
case 0x0423: ietf = "be-BY" ; break;
case 0x0002: ietf = "bg" ; break;
case 0x0402: ietf = "bg-BG" ; break;
case 0x0003: ietf = "ca" ; break;
case 0x0403: ietf = "ca-ES" ; break;
case 0x0452: ietf = "cy-GB" ; break;
case 0x0C04: ietf = "zh-HK" ; break;
case 0x1404: ietf = "zh-MO" ; break;
case 0x0804: ietf = "zh-CN" ; break;
case 0x0004: ietf = "zh-CHS" ; break;
case 0x1004: ietf = "zh-SG" ; break;
case 0x0404: ietf = "zh-TW" ; break;
case 0x7C04: ietf = "zh-CHT" ; break;
case 0x001A: ietf = "hr" ; break;
case 0x041A: ietf = "hr-HR" ; break;
case 0x0005: ietf = "cs" ; break;
case 0x0405: ietf = "cs-CZ" ; break;
case 0x0006: ietf = "da" ; break;
case 0x0406: ietf = "da-DK" ; break;
case 0x0065: ietf = "div" ; break;
case 0x0465: ietf = "div-MV" ; break;
case 0x0013: ietf = "nl" ; break;
case 0x0813: ietf = "nl-BE" ; break;
case 0x0413: ietf = "nl-NL" ; break;
case 0x0009: ietf = "en" ; break;
case 0x0C09: ietf = "en-AU" ; break;
case 0x2809: ietf = "en-BZ" ; break;
case 0x1009: ietf = "en-CA" ; break;
case 0x2409: ietf = "en-CB" ; break;
case 0x1809: ietf = "en-IE" ; break;
case 0x2009: ietf = "en-JM" ; break;
case 0x1409: ietf = "en-NZ" ; break;
case 0x3409: ietf = "en-PH" ; break;
case 0x1C09: ietf = "en-ZA" ; break;
case 0x2C09: ietf = "en-TT" ; break;
case 0x0809: ietf = "en-GB" ; break;
case 0x0409: ietf = "en-US" ; break;
case 0x3009: ietf = "en-ZW" ; break;
case 0x0025: ietf = "et" ; break;
case 0x0425: ietf = "et-EE" ; break;
case 0x0038: ietf = "fo" ; break;
case 0x0438: ietf = "fo-FO" ; break;
case 0x0029: ietf = "fa" ; break;
case 0x0429: ietf = "fa-IR" ; break;
case 0x000B: ietf = "fi" ; break;
case 0x040B: ietf = "fi-FI" ; break;
case 0x000C: ietf = "fr" ; break;
case 0x080C: ietf = "fr-BE" ; break;
case 0x0C0C: ietf = "fr-CA" ; break;
case 0x040C: ietf = "fr-FR" ; break;
case 0x140C: ietf = "fr-LU" ; break;
case 0x180C: ietf = "fr-MC" ; break;
case 0x100C: ietf = "fr-CH" ; break;
case 0x0056: ietf = "gl" ; break;
case 0x0456: ietf = "gl-ES" ; break;
case 0x0037: ietf = "ka" ; break;
case 0x0437: ietf = "ka-GE" ; break;
case 0x0007: ietf = "de" ; break;
case 0x0C07: ietf = "de-AT" ; break;
case 0x0407: ietf = "de-DE" ; break;
case 0x1407: ietf = "de-LI" ; break;
case 0x1007: ietf = "de-LU" ; break;
case 0x0807: ietf = "de-CH" ; break;
case 0x0008: ietf = "el" ; break;
case 0x0408: ietf = "el-GR" ; break;
case 0x0047: ietf = "gu" ; break;
case 0x0447: ietf = "gu-IN" ; break;
case 0x000D: ietf = "he" ; break;
case 0x040D: ietf = "he-IL" ; break;
case 0x0039: ietf = "hi" ; break;
case 0x0439: ietf = "hi-IN" ; break;
case 0x000E: ietf = "hu" ; break;
case 0x040E: ietf = "hu-HU" ; break;
case 0x000F: ietf = "is" ; break;
case 0x040F: ietf = "is-IS" ; break;
case 0x0021: ietf = "id" ; break;
case 0x0421: ietf = "id-ID" ; break;
case 0x0010: ietf = "it" ; break;
case 0x0410: ietf = "it-IT" ; break;
case 0x0810: ietf = "it-CH" ; break;
case 0x0011: ietf = "ja" ; break;
case 0x0411: ietf = "ja-JP" ; break;
case 0x004B: ietf = "kn" ; break;
case 0x044B: ietf = "kn-IN" ; break;
case 0x003F: ietf = "kk" ; break;
case 0x043F: ietf = "kk-KZ" ; break;
case 0x0057: ietf = "kok" ; break;
case 0x0457: ietf = "kok-IN" ; break;
case 0x0012: ietf = "ko" ; break;
case 0x0412: ietf = "ko-KR" ; break;
case 0x0040: ietf = "ky" ; break;
case 0x0440: ietf = "ky-KZ" ; break;
case 0x0026: ietf = "lv" ; break;
case 0x0426: ietf = "lv-LV" ; break;
case 0x0027: ietf = "lt" ; break;
case 0x0427: ietf = "lt-LT" ; break;
case 0x002F: ietf = "mk" ; break;
case 0x042F: ietf = "mk-MK" ; break;
case 0x003E: ietf = "ms" ; break;
case 0x083E: ietf = "ms-BN" ; break;
case 0x043E: ietf = "ms-MY" ; break;
case 0x004E: ietf = "mr" ; break;
case 0x044E: ietf = "mr-IN" ; break;
case 0x0050: ietf = "mn" ; break;
case 0x0450: ietf = "mn-MN" ; break;
case 0x0014: ietf = "no" ; break;
case 0x0414: ietf = "nb-NO" ; break;
case 0x0814: ietf = "nn-NO" ; break;
case 0x0015: ietf = "pl" ; break;
case 0x0415: ietf = "pl-PL" ; break;
case 0x0016: ietf = "pt" ; break;
case 0x0416: ietf = "pt-BR" ; break;
case 0x0816: ietf = "pt-PT" ; break;
case 0x0046: ietf = "pa" ; break;
case 0x0446: ietf = "pa-IN" ; break;
case 0x0018: ietf = "ro" ; break;
case 0x0418: ietf = "ro-RO" ; break;
case 0x0019: ietf = "ru" ; break;
case 0x0419: ietf = "ru-RU" ; break;
case 0x004F: ietf = "sa" ; break;
case 0x044F: ietf = "sa-IN" ; break;
case 0x0C1A: ietf = "sr-SP-Cyrl" ; break;
case 0x081A: ietf = "sr-SP-Latn" ; break;
case 0x001B: ietf = "sk" ; break;
case 0x041B: ietf = "sk-SK" ; break;
case 0x0024: ietf = "sl" ; break;
case 0x0424: ietf = "sl-SI" ; break;
case 0x000A: ietf = "es" ; break;
case 0x2C0A: ietf = "es-AR" ; break;
case 0x400A: ietf = "es-BO" ; break;
case 0x340A: ietf = "es-CL" ; break;
case 0x240A: ietf = "es-CO" ; break;
case 0x140A: ietf = "es-CR" ; break;
case 0x1C0A: ietf = "es-DO" ; break;
case 0x300A: ietf = "es-EC" ; break;
case 0x440A: ietf = "es-SV" ; break;
case 0x100A: ietf = "es-GT" ; break;
case 0x480A: ietf = "es-HN" ; break;
case 0x080A: ietf = "es-MX" ; break;
case 0x4C0A: ietf = "es-NI" ; break;
case 0x180A: ietf = "es-PA" ; break;
case 0x3C0A: ietf = "es-PY" ; break;
case 0x280A: ietf = "es-PE" ; break;
case 0x500A: ietf = "es-PR" ; break;
case 0x0C0A: ietf = "es-ES" ; break;
case 0x380A: ietf = "es-UY" ; break;
case 0x200A: ietf = "es-VE" ; break;
case 0x0041: ietf = "sw" ; break;
case 0x0441: ietf = "sw-KE" ; break;
case 0x001D: ietf = "sv" ; break;
case 0x081D: ietf = "sv-FI" ; break;
case 0x041D: ietf = "sv-SE" ; break;
case 0x005A: ietf = "syr" ; break;
case 0x045A: ietf = "syr-SY" ; break;
case 0x0049: ietf = "ta" ; break;
case 0x0449: ietf = "ta-IN" ; break;
case 0x0044: ietf = "tt" ; break;
case 0x0444: ietf = "tt-RU" ; break;
case 0x004A: ietf = "te" ; break;
case 0x044A: ietf = "te-IN" ; break;
case 0x001E: ietf = "th" ; break;
case 0x041E: ietf = "th-TH" ; break;
case 0x001F: ietf = "tr" ; break;
case 0x041F: ietf = "tr-TR" ; break;
case 0x0022: ietf = "uk" ; break;
case 0x0422: ietf = "uk-UA" ; break;
case 0x0020: ietf = "ur" ; break;
case 0x0420: ietf = "ur-PK" ; break;
case 0x0043: ietf = "uz" ; break;
case 0x0843: ietf = "uz-UZ-Cyrl" ; break;
case 0x0443: ietf = "uz-UZ-Latn" ; break;
case 0x002A: ietf = "vi" ; break;
case 0x042A: ietf = "vi-VN" ; break;
}
}
#endif
if( bFree )
{
long tmp, len = strlen( ietf );
for( tmp = 0; tmp < len; tmp++ )
{
if( ietf[ tmp ] == '.' )
break;
else if( ietf[ tmp ] == '_' )
ietf[ tmp ] = '-';
}
hb_retclen_buffer( ietf, tmp );
}
else
hb_retc_const( ietf );
}
Reference in New Issue View Git Blame Copy Permalink