fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
97dee6eb03da1e67b56756093d8298de22b156c9
harbour-core/src/rtl/langcomp.prg
Viktor Szakats 3851b7d40b 2013-03-29 23:25 UTC+0100 Viktor Szakats (harbour syenar.net) 
* src/rtl/cdpdet.prg
  * src/rtl/langcomp.prg
  * utils/hbmk2/_md_gen.hb
    + added support for Spanish (Latin American) (es_419) dialect

  * utils/hbmk2/hbmk2.hbp
    + added es_419, synced with Transifex language codes

  + utils/hbmk2/_po_dl.hb
    + added automatic script that refreshes repo translations
      with Transifex translation data

  * utils/hbmk2/po/hbmk2.el.po
  * utils/hbmk2/po/hbmk2.hu.po
  * utils/hbmk2/po/hbmk2.it.po
  + utils/hbmk2/po/hbmk2.es_419.po
  + utils/hbmk2/po/hbmk2.fr_FR.po
  * utils/hbmk2/po/hbmk2.es.po -> utils/hbmk2/po/hbmk2.es_ES.po
    * synced language codes
    + updated from Transifex using new script _po_dl.hb

  * contrib/hbrun/doc/hbrun.hu.md
  * contrib/hbrun/doc/hbrun.it.md
  + contrib/hbrun/doc/hbrun.es_419.md
  * contrib/hbrun/doc/hbrun.fr.md -> contrib/hbrun/doc/hbrun.fr_FR.md
  * contrib/hbrun/doc/hbrun.es.md -> contrib/hbrun/doc/hbrun.es_ES.md
    * synced language codes
    + regerenated using _md_gen.hb

  * utils/hbmk2/doc/hbmk2.el.md
  * utils/hbmk2/doc/hbmk2.hu.md
  * utils/hbmk2/doc/hbmk2.it.md
  + utils/hbmk2/doc/hbmk2.es_419.md
  * utils/hbmk2/doc/hbmk2.fr.md -> utils/hbmk2/doc/hbmk2.fr_FR.md
  * utils/hbmk2/doc/hbmk2.es.md -> utils/hbmk2/doc/hbmk2.es_ES.md
    * synced language codes
    + regerenated using _md_gen.hb
2013-03-29 23:28:16 +01:00

395 lines
14 KiB
Plaintext
Raw Blame History

/*
* Harbour Project source code:
* The Language API module selection
*
* Copyright 2012 Viktor Szakats (harbour syenar.net)
* www - http://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.txt. 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.
*
*/
REQUEST HB_CODEPAGE_UTF8
#ifdef HB_LEGACY_LEVEL4
/* Required for legacy language modules with a two character ID.
These cannot have a compatibility puller symbol in langlgcy.prg,
which in turn pulls all CP modules, so we're pulling them from
here. */
REQUEST HB_CODEPAGE_CS852
REQUEST HB_CODEPAGE_DE850
REQUEST HB_CODEPAGE_EL737
#endif
FUNCTION hb_langSelect( cLangID, cCP )
LOCAL tmp
LOCAL cCPDef
LOCAL cLangIDBase
IF HB_ISSTRING( cLangID )
cCPDef := hb_cdpSelect()
#ifdef HB_LEGACY_LEVEL4
/* Emulate legacy Harbour language modules for compatibility */
SWITCH Upper( cLangID )
CASE "BE866" ; cCPDef := "BG866" ; cLangIDBase := "be" ; EXIT
CASE "BEWIN" ; cCPDef := "BGWIN" ; cLangIDBase := "be" ; EXIT
CASE "BG866" ; cCPDef := "BG866" ; cLangIDBase := "bg" ; EXIT
CASE "BGISO" ; cCPDef := "BGISO" ; cLangIDBase := "bg" ; EXIT
CASE "BGMIK" ; cCPDef := "BGMIK" ; cLangIDBase := "bg" ; EXIT
CASE "BGWIN" ; cCPDef := "BGWIN" ; cLangIDBase := "bg" ; EXIT
CASE "CS852" ; cCPDef := "CS852" ; cLangIDBase := "cs" ; EXIT
CASE "CSISO" ; cCPDef := "CSISO" ; cLangIDBase := "cs" ; EXIT
CASE "CSKAM" ; cCPDef := "CSKAMC"; cLangIDBase := "cs" ; EXIT
CASE "CSWIN" ; cCPDef := "CSWIN" ; cLangIDBase := "cs" ; EXIT
CASE "DEWIN" ; cCPDef := "DEWIN" ; cLangIDBase := "de" ; EXIT
CASE "ELWIN" ; cCPDef := "ELWIN" ; cLangIDBase := "el" ; EXIT
CASE "ESWIN" ; cCPDef := "ESWIN" ; cLangIDBase := "es" ; EXIT
CASE "HE862" ; cCPDef := "HE862" ; cLangIDBase := "he" ; EXIT
CASE "HEWIN" ; cCPDef := "HEWIN" ; cLangIDBase := "he" ; EXIT
CASE "HR646" ; cCPDef := "HR646" ; cLangIDBase := "hr" ; EXIT
CASE "HR852" ; cCPDef := "HR852" ; cLangIDBase := "hr" ; EXIT
CASE "HRISO" ; cCPDef := "HRISO" ; cLangIDBase := "hr" ; EXIT
CASE "HRWIN" ; cCPDef := "HRWIN" ; cLangIDBase := "hr" ; EXIT
CASE "HU852" ; cCPDef := "HU852" ; cLangIDBase := "hu" ; EXIT
CASE "HUISO" ; cCPDef := "HUISO" ; cLangIDBase := "hu" ; EXIT
CASE "HUWIN" ; cCPDef := "HUWIN" ; cLangIDBase := "hu" ; EXIT
CASE "IS850" ; cCPDef := "IS850" ; cLangIDBase := "is" ; EXIT
CASE "LTWIN" ; cCPDef := "LTWIN" ; cLangIDBase := "lt" ; EXIT
CASE "PL852" ; cCPDef := "PL852" ; cLangIDBase := "pl" ; EXIT
CASE "PLISO" ; cCPDef := "PLISO" ; cLangIDBase := "pl" ; EXIT
CASE "PLMAZ" ; cCPDef := "PLMAZ" ; cLangIDBase := "pl" ; EXIT
CASE "PLWIN" ; cCPDef := "PLWIN" ; cLangIDBase := "pl" ; EXIT
CASE "PTISO" ; cCPDef := "PTISO" ; cLangIDBase := "pt" ; EXIT
CASE "RU866" ; cCPDef := "RU866" ; cLangIDBase := "ru" ; EXIT
CASE "RUKOI8" ; cCPDef := "RUKOI8"; cLangIDBase := "ru" ; EXIT
CASE "RUWIN" ; cCPDef := "RU1251"; cLangIDBase := "ru" ; EXIT
CASE "SK852" ; cCPDef := "SK852" ; cLangIDBase := "sk" ; EXIT
CASE "SKISO" ; cCPDef := "SKISO" ; cLangIDBase := "sk" ; EXIT
CASE "SKKAM" ; cCPDef := "SKKAMC"; cLangIDBase := "sk" ; EXIT
CASE "SKWIN" ; cCPDef := "SKWIN" ; cLangIDBase := "sk" ; EXIT
CASE "SL646" ; cCPDef := "SL646" ; cLangIDBase := "sl" ; EXIT
CASE "SL852" ; cCPDef := "SL852" ; cLangIDBase := "sl" ; EXIT
CASE "SLISO" ; cCPDef := "SLISO" ; cLangIDBase := "sl" ; EXIT
CASE "SLWIN" ; cCPDef := "SLWIN" ; cLangIDBase := "sl" ; EXIT
CASE "SR852" ; cCPDef := "SL852" ; cLangIDBase := "sr_lat" ; EXIT
CASE "SRISO" ; cCPDef := "SLISO" ; cLangIDBase := "sr_lat" ; EXIT
CASE "SRWIN" ; cCPDef := "SRWIN" ; cLangIDBase := "sr_cyr" ; EXIT
CASE "SVWIN" ; cCPDef := "SVWIN" ; cLangIDBase := "sv" ; EXIT
CASE "TR857" ; cCPDef := "TR857" ; cLangIDBase := "tr" ; EXIT
CASE "TRWIN" ; cCPDef := "TRWIN" ; cLangIDBase := "tr" ; EXIT
CASE "UA866" ; cCPDef := "UA866" ; cLangIDBase := "uk" ; EXIT
CASE "UADOS" ; cCPDef := "UA1125"; cLangIDBase := "uk" ; EXIT
CASE "UAKOI8" ; cCPDef := "UAKOI8"; cLangIDBase := "uk" ; EXIT
CASE "UAWIN" ; cCPDef := "UA1251"; cLangIDBase := "uk" ; EXIT
CASE "ZHB5" ; cCPDef := "BIG5" ; cLangIDBase := "zh_tra" ; EXIT
CASE "ZHGB" ; cCPDef := "GBK" ; cLangIDBase := "zh_sim" ; EXIT
OTHERWISE
/* Case sensitive legacy IDs. Lowercase flavours denote new
language module IDs, so they won't be recognized as
compatibility ones. INCOMPATIBLE. */
SWITCH cLangID
CASE "CA" ; cCPDef := "DE850" ; cLangIDBase := "ca" ; EXIT
CASE "DE" ; cCPDef := "DE850" ; cLangIDBase := "de" ; EXIT
CASE "EL" ; cCPDef := "EL737" ; cLangIDBase := "el" ; EXIT
CASE "EO" ; cCPDef := "DE850" ; cLangIDBase := "eo" ; EXIT
CASE "ES" ; cCPDef := "DE850" ; cLangIDBase := "es" ; EXIT
CASE "EU" ; cCPDef := "DE850" ; cLangIDBase := "eu" ; EXIT
CASE "FR" ; cCPDef := "DE850" ; cLangIDBase := "fr" ; EXIT
CASE "GL" ; cCPDef := "DE850" ; cLangIDBase := "gl" ; EXIT
CASE "ID" ; cCPDef := "EN" ; cLangIDBase := "id" ; EXIT
CASE "IT" ; cCPDef := "DE850" ; cLangIDBase := "it" ; EXIT
/* INCOMPATIBILITY: "KO" (Korean) using CP949 is not supported anymore. */
CASE "NL" ; cCPDef := "EN" ; cLangIDBase := "nl" ; EXIT
CASE "PT" ; cCPDef := "DE850" ; cLangIDBase := "pt" ; EXIT
CASE "RO" ; cCPDef := "CS852" ; cLangIDBase := "ro" ; EXIT
CASE "SV" ; cCPDef := "DE850" ; cLangIDBase := "sv" ; EXIT
ENDSWITCH
ENDSWITCH
#endif
IF ! HB_ISSTRING( cCP )
cCP := cCPDef
ENDIF
#ifdef HB_LEGACY_LEVEL4
IF ! Empty( cLangIDBase )
/* Legacy emulation */
cLangID := cLangIDBase
ELSE
#endif
/* Support standard ISO language IDs */
IF ! Empty( tmp := __LangStdToLangHb( cLangID ) )
cLangID := cLangIDBase := tmp
ELSE
/* Normal case */
cLangIDBase := cLangID
ENDIF
#ifdef HB_LEGACY_LEVEL4
ENDIF
#endif
IF ! hb_cdpIsUTF8( cCP )
cLangID += "." + cCP
hb_langNew( cLangID, cCP, cLangIDBase, "UTF8" )
ENDIF
ENDIF
RETURN __hb_langSelect( cLangID )
STATIC FUNCTION __LangStdToLangHb( cLangStd )
LOCAL cLangHb := ""
IF HB_ISSTRING( cLangStd )
SWITCH Lower( StrTran( cLangStd, "_", "-" ) )
CASE "af-za" ; EXIT
CASE "af" ; EXIT
CASE "ar-ae" ; EXIT
CASE "ar-bh" ; EXIT
CASE "ar-dz" ; EXIT
CASE "ar-eg" ; EXIT
CASE "ar-iq" ; EXIT
CASE "ar-jo" ; EXIT
CASE "ar-kw" ; EXIT
CASE "ar-lb" ; EXIT
CASE "ar-ly" ; EXIT
CASE "ar-ma" ; EXIT
CASE "ar-om" ; EXIT
CASE "ar-qa" ; EXIT
CASE "ar-sa" ; EXIT
CASE "ar-sy" ; EXIT
CASE "ar-tn" ; EXIT
CASE "ar-ye" ; EXIT
CASE "ar" ; EXIT
CASE "az-az-cyrl" ; EXIT
CASE "az-az-latn" ; EXIT
CASE "az" ; EXIT
CASE "be-by" ; EXIT
CASE "be" ; cLangHb := "be" ; EXIT
CASE "bg-bg"
CASE "bg" ; cLangHb := "bg" ; EXIT
CASE "ca-es"
CASE "ca" ; cLangHb := "ca" ; EXIT
CASE "cy-gb" ; EXIT
CASE "cs-cz"
CASE "cs" ; cLangHb := "cs" ; EXIT
CASE "da-dk" ; EXIT
CASE "da" ; EXIT
CASE "de-at"
CASE "de-ch"
CASE "de-de"
CASE "de-li"
CASE "de-lu"
CASE "de" ; cLangHb := "de" ; EXIT
CASE "div-mv" ; EXIT
CASE "div" ; EXIT
CASE "el-gr"
CASE "el" ; cLangHb := "el" ; EXIT
CASE "en-au"
CASE "en-bz"
CASE "en-ca"
CASE "en-cb"
CASE "en-gb"
CASE "en-ie"
CASE "en-jm"
CASE "en-nz"
CASE "en-ph"
CASE "en-tt"
CASE "en-us"
CASE "en-za"
CASE "en-zw"
CASE "en" ; cLangHb := "en" ; EXIT
CASE "eo" ; cLangHb := "eo" ; EXIT
CASE "es-419"
CASE "es-ar"
CASE "es-bo"
CASE "es-cl"
CASE "es-co"
CASE "es-cr"
CASE "es-do"
CASE "es-ec"
CASE "es-es"
CASE "es-gt"
CASE "es-hn"
CASE "es-mx"
CASE "es-ni"
CASE "es-pa"
CASE "es-pe"
CASE "es-pr"
CASE "es-py"
CASE "es-sv"
CASE "es-uy"
CASE "es-ve"
CASE "es" ; cLangHb := "es" ; EXIT
CASE "et-ee" ; EXIT
CASE "et" ; EXIT
CASE "eu-es"
CASE "eu" ; cLangHb := "eu" ; EXIT
CASE "fa-ir" ; EXIT
CASE "fa" ; EXIT
CASE "fi-fi" ; EXIT
CASE "fi" ; EXIT
CASE "fo-fo" ; EXIT
CASE "fo" ; EXIT
CASE "fr-be"
CASE "fr-ca"
CASE "fr-ch"
CASE "fr-fr"
CASE "fr-lu"
CASE "fr-mc"
CASE "fr" ; cLangHb := "fr" ; EXIT
CASE "gl-es"
CASE "gl" ; cLangHb := "gl" ; EXIT
CASE "gu-in" ; EXIT
CASE "gu" ; EXIT
CASE "he-il"
CASE "he" ; cLangHb := "he" ; EXIT
CASE "hi-in" ; EXIT
CASE "hi" ; EXIT
CASE "hr-hr"
CASE "hr" ; cLangHb := "hr" ; EXIT
CASE "hu-hu"
CASE "hu" ; cLangHb := "hu" ; EXIT
CASE "hy-am" ; EXIT
CASE "hy" ; EXIT
CASE "id-id"
CASE "id" ; cLangHb := "id" ; EXIT
CASE "is-is"
CASE "is" ; cLangHb := "is" ; EXIT
CASE "it-ch"
CASE "it-it"
CASE "it" ; cLangHb := "it" ; EXIT
CASE "ja-jp" ; EXIT
CASE "ja" ; EXIT
CASE "ka-ge" ; EXIT
CASE "ka" ; EXIT
CASE "kk-kz" ; EXIT
CASE "kk" ; EXIT
CASE "kn-in" ; EXIT
CASE "kn" ; EXIT
CASE "ko-kr"
CASE "ko" ; cLangHb := "ko" ; EXIT
CASE "kok-in" ; EXIT
CASE "kok" ; EXIT
CASE "ky-kz" ; EXIT
CASE "ky" ; EXIT
CASE "lt-lt"
CASE "lt" ; cLangHb := "lt" ; EXIT
CASE "lv-lv" ; EXIT
CASE "lv" ; EXIT
CASE "mk-mk" ; EXIT
CASE "mk" ; EXIT
CASE "mn-mn" ; EXIT
CASE "mn" ; EXIT
CASE "mr-in" ; EXIT
CASE "mr" ; EXIT
CASE "ms-bn" ; EXIT
CASE "ms-my" ; EXIT
CASE "ms" ; EXIT
CASE "nb-no" ; EXIT
CASE "nl-be"
CASE "nl-nl"
CASE "nl" ; cLangHb := "nl" ; EXIT
CASE "nn-no" ; EXIT
CASE "no" ; EXIT
CASE "pa-in" ; EXIT
CASE "pa" ; EXIT
CASE "pl-pl"
CASE "pl" ; cLangHb := "pl" ; EXIT
CASE "pt-br"
CASE "pt-pt"
CASE "pt" ; cLangHb := "pt" ; EXIT
CASE "ro-ro"
CASE "ro" ; cLangHb := "ro" ; EXIT
CASE "ru-ru"
CASE "ru" ; cLangHb := "ru" ; EXIT
CASE "sa-in" ; EXIT
CASE "sa" ; EXIT
CASE "sk-sk"
CASE "sk" ; cLangHb := "sk" ; EXIT
CASE "sl-si"
CASE "sl" ; cLangHb := "sl" ; EXIT
CASE "sq-al" ; EXIT
CASE "sq" ; EXIT
CASE "sr-sp-cyrl" ; cLangHb := "sr_cyrl" ; EXIT
CASE "sr-sp-latn" ; cLangHb := "sr_lat" ; EXIT
CASE "sv-fi"
CASE "sv-se"
CASE "sv" ; cLangHb := "sv" ; EXIT
CASE "sw-ke" ; EXIT
CASE "sw" ; EXIT
CASE "syr-sy" ; EXIT
CASE "syr" ; EXIT
CASE "ta-in" ; EXIT
CASE "ta" ; EXIT
CASE "te-in" ; EXIT
CASE "te" ; EXIT
CASE "th-th" ; EXIT
CASE "th" ; EXIT
CASE "tr-tr"
CASE "tr" ; cLangHb := "tr" ; EXIT
CASE "tt-ru" ; EXIT
CASE "tt" ; EXIT
CASE "uk-ua"
CASE "uk" ; cLangHb := "uk" ; EXIT
CASE "ur-pk" ; EXIT
CASE "ur" ; EXIT
CASE "uz-uz-cyrl" ; EXIT
CASE "uz-uz-latn" ; EXIT
CASE "uz" ; EXIT
CASE "vi-vn" ; EXIT
CASE "vi" ; EXIT
CASE "zh-chs" ; cLangHb := "zh_sim" ; EXIT
CASE "zh-cht"
CASE "zh-cn"
CASE "zh-hk"
CASE "zh-mo"
CASE "zh-sg"
CASE "zh-tw" ; cLangHb := "zh_tra" ; EXIT
ENDSWITCH
ENDIF
RETURN cLangHb
Reference in New Issue View Git Blame Copy Permalink