fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2003-06-18 00:10 UTC+0200 Przemyslaw Czerpak <druzus@polbox.com>

Browse Source 
* harbour/include/hbapilng.h
  * harbour/include/hblang.ch
  * harbour/source/lang/Makefile
  * harbour/source/lang/msg_tpl.c
  * harbour/source/lang/msgca.c
  * harbour/source/lang/msgcs852.c
  * harbour/source/lang/msgcsiso.c
  * harbour/source/lang/msgcskam.c
  * harbour/source/lang/msgcswin.c
  * harbour/source/lang/msgde.c
  * harbour/source/lang/msgdewin.c
  * harbour/source/lang/msgen.c
  * harbour/source/lang/msgeo.c
  * harbour/source/lang/msges.c
  * harbour/source/lang/msgeswin.c
  * harbour/source/lang/msgeu.c
  * harbour/source/lang/msgfr.c
  * harbour/source/lang/msggl.c
  * harbour/source/lang/msghe862.c
  * harbour/source/lang/msghewin.c
  * harbour/source/lang/msghr852.c
  * harbour/source/lang/msghriso.c
  * harbour/source/lang/msghu852.c
  * harbour/source/lang/msghucwi.c
  * harbour/source/lang/msghuwin.c
  * harbour/source/lang/msgid.c
  * harbour/source/lang/msgis850.c
  * harbour/source/lang/msgit.c
  * harbour/source/lang/msgko.c
  * harbour/source/lang/msgpl852.c
  * harbour/source/lang/msgpliso.c
  * harbour/source/lang/msgplmaz.c
  * harbour/source/lang/msgplwin.c
  * harbour/source/lang/msgpt.c
  * harbour/source/lang/msgro.c
  * harbour/source/lang/msgru866.c
  * harbour/source/lang/msgrukoi.c
  * harbour/source/lang/msgruwin.c
  * harbour/source/lang/msgsl852.c
  * harbour/source/lang/msgsliso.c
  * harbour/source/lang/msgslwin.c
  * harbour/source/lang/msgsr852.c
  * harbour/source/lang/msgsriso.c
  * harbour/source/lang/msgzhb5.c
  * harbour/source/lang/msgzhgb.c
  + harbour/source/lang/msgsrwin.c
    ! bug fixed in national msg system and new localization added
      (borrowed from xHarbour)

  + harbour/tests/langmsg.prg
    * simple test program for national messages
      I have to ask developpers to run it and check their national messages
This commit is contained in:
Przemyslaw Czerpak
2003-06-17 22:10:30 +00:00
parent 504dba8167
commit 694b32d5c7
48 changed files with 692 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
harbour/ChangeLog
View File

@@ -8,6 +8,60 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-06-18 00:10 UTC+0200 Przemyslaw Czerpak <druzus@polbox.com>
* harbour/include/hbapilng.h
* harbour/include/hblang.ch
* harbour/source/lang/Makefile
* harbour/source/lang/msg_tpl.c
* harbour/source/lang/msgca.c
* harbour/source/lang/msgcs852.c
* harbour/source/lang/msgcsiso.c
* harbour/source/lang/msgcskam.c
* harbour/source/lang/msgcswin.c
* harbour/source/lang/msgde.c
* harbour/source/lang/msgdewin.c
* harbour/source/lang/msgen.c
* harbour/source/lang/msgeo.c
* harbour/source/lang/msges.c
* harbour/source/lang/msgeswin.c
* harbour/source/lang/msgeu.c
* harbour/source/lang/msgfr.c
* harbour/source/lang/msggl.c
* harbour/source/lang/msghe862.c
* harbour/source/lang/msghewin.c
* harbour/source/lang/msghr852.c
* harbour/source/lang/msghriso.c
* harbour/source/lang/msghu852.c
* harbour/source/lang/msghucwi.c
* harbour/source/lang/msghuwin.c
* harbour/source/lang/msgid.c
* harbour/source/lang/msgis850.c
* harbour/source/lang/msgit.c
* harbour/source/lang/msgko.c
* harbour/source/lang/msgpl852.c
* harbour/source/lang/msgpliso.c
* harbour/source/lang/msgplmaz.c
* harbour/source/lang/msgplwin.c
* harbour/source/lang/msgpt.c
* harbour/source/lang/msgro.c
* harbour/source/lang/msgru866.c
* harbour/source/lang/msgrukoi.c
* harbour/source/lang/msgruwin.c
* harbour/source/lang/msgsl852.c
* harbour/source/lang/msgsliso.c
* harbour/source/lang/msgslwin.c
* harbour/source/lang/msgsr852.c
* harbour/source/lang/msgsriso.c
* harbour/source/lang/msgzhb5.c
* harbour/source/lang/msgzhgb.c
+ harbour/source/lang/msgsrwin.c
! bug fixed in national msg system and new localization added
(borrowed from xHarbour)
+ harbour/tests/langmsg.prg
* simple test program for national messages
I have to ask developpers to run it and check their national messages
2003-06-17 21:50 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/rtl/cdpapi.c
! Bug fixed in hb_cdpTranslate() and hb_cdpnTranslate()

12
harbour/include/hbapilng.h
View File

@@ -57,20 +57,12 @@
#include "hbvmpub.h"
#include "hbinit.h"
#include "hblang.ch" /* Base values for the unified language item table */
#if defined(HB_EXTERN_C)
extern "C" {
#endif
/* Base values for the unified language item table */
#define HB_LANG_ITEM_BASE_ID 0
#define HB_LANG_ITEM_BASE_MONTH 6
#define HB_LANG_ITEM_BASE_DAY 18
#define HB_LANG_ITEM_BASE_NATMSG 25
#define HB_LANG_ITEM_BASE_ERRDESC 38
#define HB_LANG_ITEM_BASE_ERRINTR 89
#define HB_LANG_ITEM_BASE_TEXT 114
#define HB_LANG_ITEM_MAX_ 117
/* This hack is needed to force preprocessing if id is also a macro */
#define HB_LANG_REQUEST( id ) HB_LANG_REQUEST_( id )
#define HB_LANG_REQUEST_( id ) extern HB_FUNC( HB_LANG_##id ); \

8
harbour/include/hblang.ch
View File

@@ -59,9 +59,11 @@
#define HB_LANG_ITEM_BASE_NATMSG 25
#define HB_LANG_ITEM_BASE_ERRDESC 38
#define HB_LANG_ITEM_BASE_ERRINTR 89
#define HB_LANG_ITEM_BASE_TEXT 114
#define HB_LANG_ITEM_MAX_ 117
#define HB_LANG_ITEM_BASE_TEXT 115
#define HB_LANG_ITEM_MAX_ 118
#translate HB_LANG_REQUEST <id> => REQUEST HB_LANG_<id>
#ifndef HB_APILNG_H_
#translate HB_LANG_REQUEST <id> => REQUEST HB_LANG_<id>
#endif
#endif /* HB_LANG_CH_ */

3
harbour/source/lang/Makefile
View File

@@ -15,7 +15,7 @@ C_SOURCES=\
msgen.c \
msgeo.c \
msges.c \
msgeswin.c \
msgeswin.c \
msgeu.c \
msgfr.c \
msggl.c \
@@ -44,6 +44,7 @@ C_SOURCES=\
msgslwin.c \
msgsr852.c \
msgsriso.c \
msgsrwin.c \
msgzhb5.c \
msgzhgb.c \

1
harbour/source/lang/msg_tpl.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgca.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgcs852.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgcsiso.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgcskam.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgcswin.c
View File

@@ -158,6 +158,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgde.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgdewin.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgen.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgeo.c
View File

@@ -158,6 +158,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msges.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"acceso al array",
"asignaci¢n del array",
"dimensi¢n del array",

1
harbour/source/lang/msgeswin.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"acceso al array",
"asignación del array",
"dimensión del array",

1
harbour/source/lang/msgeu.c
View File

@@ -139,6 +139,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"taula-atzipena",
"yaula-esleipen",
"array dimension",

1
harbour/source/lang/msgfr.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msggl.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msghe862.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"<EFBFBD>‰˜ˆŽ˜” Œ™ ‰…‚™ ˜”‘Ž",
"Š˜’ŽŒ „™‰‚",
"array assign",

1
harbour/source/lang/msghewin.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"îñôø ùâåé ùì ôøîèøéí",
"âéùä ìîòøê",
"array assign",

1
harbour/source/lang/msghr852.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msghriso.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msghu852.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"t”mbelem hozz f‚r‚s",
"t”mbelem ‚rt‚kad s",
"t”mbelem dimenzi¢",

1
harbour/source/lang/msghucwi.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"t”mbelem hozz f‚r‚s",
"t”mbelem ‚rt‚kad s",
"t”mbelem dimenzi¢",

1
harbour/source/lang/msghuwin.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"tömbelem hozzáférés",
"tömbelem értékadás",
"tömbelem dimenzió",

1
harbour/source/lang/msgid.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgis850.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgit.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"accesso all'array",
"assegnazione all'array",
"dimensione dell'array",

1
harbour/source/lang/msgko.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgpl852.c
View File

@@ -155,6 +155,7 @@ static HB_LANG s_lang =
"Nie udaˆo si© zablokowa† dost©pu",
"",
"",
"",
"",
"Nieprawidˆowa liczba argument¢w",
"pobranie elementu tablicy",

1
harbour/source/lang/msgpliso.c
View File

@@ -155,6 +155,7 @@ static HB_LANG s_lang =
"Nie uda³o siê zablokowaæ dostêpu",
"",
"",
"",
"",
"Nieprawid³owa liczba argumentów",
"pobranie elementu tablicy",

1
harbour/source/lang/msgplmaz.c
View File

@@ -155,6 +155,7 @@ static HB_LANG s_lang =
"Nie uda’o si‘ zablokowa<77> dost‘pu",
"",
"",
"",
"",
"Nieprawid’owa liczba argument¢w",
"pobranie elementu tablicy",

1
harbour/source/lang/msgplwin.c
View File

@@ -155,6 +155,7 @@ static HB_LANG s_lang =
"Nie uda³o siê zablokowaæ dostêpu",
"",
"",
"",
"",
"Nieprawid³owa liczba argumentów",
"pobranie elementu tablicy",

1
harbour/source/lang/msgpt.c
View File

@@ -168,6 +168,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"acesso de array",
"array assign",
""

1
harbour/source/lang/msgro.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgru866.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"<EFBFBD>¥¢¥à­®¥ ª®«¨ç¥á⢮  à£ã¬¥­â®¢",
"¤®áâ㯠ª ¬ áᨢã",
"¯à¨á¢®¥­¨¥ ¬ áᨢ ",

1
harbour/source/lang/msgrukoi.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"îÅ×ÅÒÎÏÅ ËÏÌÉÞÅÓÔ×Ï ÁÒÇÕÍÅÎÔÏ×",
"ÄÏÓÔÕÐ Ë ÍÁÓÓÉ×Õ",
"ÐÒÉÓ×ÏÅÎÉÅ ÍÁÓÓÉ×Á",

1
harbour/source/lang/msgruwin.c
View File

@@ -156,6 +156,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"Íåâåðíîå êîëè÷åñòâî àðãóìåíòîâ",
"äîñòóï ê ìàññèâó",
"ïðèñâîåíèå ìàññèâà",

1
harbour/source/lang/msgsl852.c
View File

@@ -139,6 +139,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgsliso.c
View File

@@ -139,6 +139,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgslwin.c
View File

@@ -139,6 +139,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgsr852.c
View File

@@ -139,6 +139,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgsriso.c
View File

@@ -139,6 +139,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

211
harbour/source/lang/msgsrwin.c Normal file
View File

@@ -0,0 +1,211 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* Language Support Module (SRWIN)
*
* Copyright 2003 Srdjan Dragojlovic <digikv@yahoo.com>
* www - http://www.xHarbour.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.
*
*/
/* Language name: Serbian */
/* ISO language code (2 chars): SR */
/* Codepage: Windows-1251 */
#include "hbapilng.h"
static HB_LANG s_lang =
{
{
/* Identification */
"SRWIN", /* ID */
"Serbian", /* Name (in English) */
"Ñðïñêè", /* Name (in native language) */
"SR", /* RFC ID */
"1251", /* Codepage */
"$Revision$ $Date$", /* Version */
/* Month names */
"£àíóàð",
"Ôåáðóàð",
"Ìàðò",
"Àïðèë",
"Ìà¼",
"£óí",
"£óë",
"Àâãóñò",
"Ñåïòåìáàð",
"Îêòîáàð",
"Íîâåìáàð",
"Äåöåìáàð"
/* Day names */
"Íåäåsà",
"Ïîíåäåsàê",
"Óòîðàê",
"Ñðåäà",
"×åòâðòàê",
"Ïåòàê",
"Ñóáîòà"
/* CA-Cl*pper compatible natmsg items */
"Ôàjë ñà ïîäàöèìà # Çàïèñè Ïîñëåäoà èçì. Âåëè÷èíà",
"Íóæíî ¼îø ïðèìåðà ?",
"Ñòð.N",
"** Subtotal **",
"* Subsubtotal *",
"*** Total ***",
"Ins",
" ",
"Ïîãðåøàí ïîäàòàê",
"Äèàïàçîí: ",
" - ",
"Ä/Í",
"ÏÎÃÐÅØÀÍ ÈÇÐÀÇ",
/* Error description names */
"Íåïîçíàòà ãðåøêà",
"Íåïîçíàò àðãóìåíò",
"Ïðîáè¼åíà ãðàíèöà",
"Ïðåäóãà÷êà ðå÷",
"Ïðåâåëèê áðî¼",
"Äåëåoå ñà íóëîì",
"Áðî¼÷àíà ãðåøêà",
"Ãðåøêà ó ñèíòàêñè",
"Èñóâèøå ñëîæåíà îïåðàöè¼à",
"",
"",
"Íåäîâîsíî ìåìîðè¼å",
"Íåïîçíàòà ôóíêöè¼à",
"Ìåòîä íå åêñïîðòîâàí",
"Ïðîìåoèâà íåïîñòî¼è",
"Àëèàñ íå ïîñòî¼è",
"Ïðîìåoèâà íå åêñïîðòîâàíà",
"Íåäîçâîsåí ñèìáîë ó èìåíó àëèàñà",
"Àëèàñ ñå âåz êîðèñòè",
"",
"Ãðåøêà ïðèëèêîì êðåèðàoà",
"Ãðåøêà ïðèëèêîì îòâàðàoà",
"Ãðåøêà ïðèëèêîì çàòâàðàoà",
"Ãðåøêà ïðèëèêîì ÷èòàoà",
"Ãðåøêà ïðèëèêîì óïèñà",
"Ãðåøêà ïðèëèêîì øòàìïå",
"",
"",
"",
"",
"Îïåðàöè¼à íè¼å ïîäðæàíà",
"Ëèìèò ïðåâðøåí",
"ÄÅÒÅÊÒÎÂÀÍÎ ÎØÒÅZÅOÅ",
"Ãðåøêà ó òèïó ïîäàòêà",
"Ãðåøêà ó âåëè÷èíè ïîäàòêà",
"Ôà¼ë íè¼å îòâîðåí",
"Ôà¼ë íè¼å èíäåêñèðàí",
"Ïîòðåáàí åêñêëóçèâíè ïðèñòóï",
"Ïîòðåáíî çàêsó÷àâàoå",
"Óïèñ íè¼å äîçâîsåí",
"Äîäàâàoå çàïèñà íè¼å äîçâîsåíî",
"Ãðåøêà ïðèëèêîì çàêsó÷àâàoà",
"",
"",
"",
"",
"Íåâåðíîå êîëè÷åñòâî àðãóìåíòîâ",
"ïðèñòóï íèçó",
"âåëè÷èíà íèçà",
"íè¼å ó íèçó",
"óïîð<EFBFBD>åoå"
/* Internal error names */
"Íåèñïðàâèìàÿ îøèáêà %lu: ",
"Îøèáêà ïðè âîññòàíîâëåíèè",
"Íå îïðåäåëåí ERRORBLOCK() äëÿ îøèáêè",
"Ïðåâûøåí ïðåäåë ðåêóðñèâíûõ âûçîâîâ îáðàáîò÷èêà îøèáîê",
"Íå óäàåòñÿ çàãðóçèòü RDD",
"Íåâåðíûé òèï ìåòîäà %s",
"hb_xgrab íå ìîæå ðàñïðåäåëèòü ïàìÿòü",
"hb_xrealloc âûçâàí ñ NULL óêàçàòåëåì",
"hb_xrealloc âûçâàí ñ íåâåðíûì óêàçàòåëåì",
"hb_xrealloc åíå ìîæåò ïåðåðàñïðåäåëèòü ïàìÿòü",
"hb_xfree âûçâàí ñ íåâåðíûì óêàçàòåëåì",
"hb_xfree âûçâàí ñ NULL óêàçàòåëåì",
"Íå íàéäåíà ñòàðòîâàÿ ïðîöåäóðà: \'%s\'",
"Îòñóòñòâóåò ñòàðòîâàÿ ïðîöåäóðà",
"VM: Íåèçâåñòíûé êîä",
"%s: îæèäàëñÿ ñèìâîë",
"%s: íåâåðíûé òèï ñèìâîëà äëÿ self",
"%s: îæèäàëñÿ êîäîáëîê",
"%s: íåâåðíûé òèï ýëåìåíòà íà âåðøèíå ñòåêà",
"Âûõîä çà ïðåäåëû ñòåêà",
"%s: ïîïûòêà êîïèðîâàòü ýëåìåíò íà ñåáÿ",
"%s: íåâåðíîå èìÿ ïåðåìåííîé",
"Ïåðåïîëíåíèå áóôåðà ïàìÿòè",
"hb_xgrab requested to allocate zero bytes",
"hb_xrealloc requested to resize to zero bytes",
"hb_xalloc requested to allocate zero bytes",
/* Texts */
"ÄÄ.ÌÌ.ÃÃÃÃ",
"Ä",
"Í"
}
};
HB_LANG_ANNOUNCE( SRWIN );
HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_SRWIN )
hb_langRegister( &s_lang );
HB_CALL_ON_STARTUP_END( hb_lang_Init_SRWIN )
#if ! defined(__GNUC__) && ! defined(_MSC_VER)
#pragma startup hb_lang_Init_SRWIN
#endif

1
harbour/source/lang/msgzhb5.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

1
harbour/source/lang/msgzhgb.c
View File

@@ -157,6 +157,7 @@ static HB_LANG s_lang =
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",

376
harbour/tests/langmsg.prg Normal file
View File

@@ -0,0 +1,376 @@
/*
* $Id$
*/
/*
* Copyright 2003 Przemyslaw Czerpak <druzus@polbox.com>
* See doc/license.txt for licensing terms.
*/
#include "hblang.ch"
function main( cLng )
local i, a, aDay, aMnt, aErr, aInt, cDtFrm, cTrue, cFalse
HB_LANGSELECT("EN")
aDay:=GET_DAYS()
aMnt:=GET_MONTHS()
aErr:=GET_ERR()
aInt:=GET_IERR()
cDtFrm:=HB_LANGMESSAGE(HB_LANG_ITEM_BASE_TEXT )
cTrue :=HB_LANGMESSAGE(HB_LANG_ITEM_BASE_TEXT + 1 )
cFalse:=HB_LANGMESSAGE(HB_LANG_ITEM_BASE_TEXT + 2 )
if !empty( cLng )
HB_LANGSELECT( UPPER( cLng ) )
endif
? HB_LANGNAME()
? "HB_LANG_ITEM_BASE_ID ", "["+HB_LANGMESSAGE(HB_LANG_ITEM_BASE_ID )+"]"
? "HB_LANG_ITEM_BASE_MONTH ", "["+HB_LANGMESSAGE(HB_LANG_ITEM_BASE_MONTH )+"]"
? "HB_LANG_ITEM_BASE_DAY ", "["+HB_LANGMESSAGE(HB_LANG_ITEM_BASE_DAY )+"]"
? "HB_LANG_ITEM_BASE_NATMSG ", "["+HB_LANGMESSAGE(HB_LANG_ITEM_BASE_NATMSG )+"]"
? "HB_LANG_ITEM_BASE_ERRDESC", "["+HB_LANGMESSAGE(HB_LANG_ITEM_BASE_ERRDESC)+"]"
? "HB_LANG_ITEM_BASE_ERRINTR", "["+HB_LANGMESSAGE(HB_LANG_ITEM_BASE_ERRINTR)+"]"
? "HB_LANG_ITEM_BASE_TEXT ", "["+HB_LANGMESSAGE(HB_LANG_ITEM_BASE_TEXT )+"]"
? "HB_LANGERRMSG(0)", HB_LANGERRMSG(0)
?
? "date format: " + HB_LANGMESSAGE(HB_LANG_ITEM_BASE_TEXT ) + " (" + cDtFrm + ")"
? " TRUE val: " + HB_LANGMESSAGE(HB_LANG_ITEM_BASE_TEXT + 1 ) + " (" + cTrue + ")"
? " FALSE val: " + HB_LANGMESSAGE(HB_LANG_ITEM_BASE_TEXT + 2 ) + " (" + cFalse + ")"
?
inkey(0)
? "Errors:"
? "-------"
a:=GET_ERR()
for i:=1 to len(a)
? padr(a[i,1],15) + "|" + padr(aErr[i,2],30) + "|" + padr(a[i,2],32)
next
?
inkey(0)
? "Internal errors:"
? "----------------"
a:=GET_IERR()
for i:=1 to len(a)
? padr(a[i,1],15) + "|" + padr(aInt[i,2],30) + "|" + padr(a[i,2],32)
next
?
inkey(0)
? "Days:"
? "-----"
a:=GET_DAYS()
for i:=1 to len(a)
? " " + padr(aDay[i],15) + a[i]
next
?
inkey(0)
? "Months:"
? "-------"
a:=GET_MONTHS()
for i:=1 to len(a)
? " " + padr(aMnt[i],15) + a[i]
next
?
inkey(0)
return nil
function GET_DAYS()
LOCAL i, n, aDays[7], dt:=date()
for i:=1 to 7
n:=dow(dt)
aDays[n]:=cdow(dt)
++dt
next
return (aDays)
function GET_MONTHS()
LOCAL i, n, aMonths[12], dt:=date()
dt-=day(dt)-1
for i:=1 to 12
n:=month(dt)
aMonths[n]:=cmonth(dt)
dt+=31
dt-=day(dt)-1
next
return (aMonths)
function GET_ERR()
local aErr
aErr := { { "EG_ARG ", HB_LANGERRMSG( 1 ) }, ;
{ "EG_BOUND ", HB_LANGERRMSG( 2 ) }, ;
{ "EG_STROVERFLOW ", HB_LANGERRMSG( 3 ) }, ;
{ "EG_NUMOVERFLOW ", HB_LANGERRMSG( 4 ) }, ;
{ "EG_ZERODIV ", HB_LANGERRMSG( 5 ) }, ;
{ "EG_NUMERR ", HB_LANGERRMSG( 6 ) }, ;
{ "EG_SYNTAX ", HB_LANGERRMSG( 7 ) }, ;
{ "EG_COMPLEXITY ", HB_LANGERRMSG( 8 ) }, ;
{ " ", HB_LANGERRMSG( 9 ) }, ;
{ " ", HB_LANGERRMSG( 10 ) }, ;
{ "EG_MEM ", HB_LANGERRMSG( 11 ) }, ;
{ "EG_NOFUNC ", HB_LANGERRMSG( 12 ) }, ;
{ "EG_NOMETHOD ", HB_LANGERRMSG( 13 ) }, ;
{ "EG_NOVAR ", HB_LANGERRMSG( 14 ) }, ;
{ "EG_NOALIAS ", HB_LANGERRMSG( 15 ) }, ;
{ "EG_NOVARMETHOD ", HB_LANGERRMSG( 16 ) }, ;
{ "EG_BADALIAS ", HB_LANGERRMSG( 17 ) }, ;
{ "EG_DUPALIAS ", HB_LANGERRMSG( 18 ) }, ;
{ "EG_NOOBJECT ", HB_LANGERRMSG( 19 ) }, ;
{ "EG_CREATE ", HB_LANGERRMSG( 20 ) }, ;
{ "EG_OPEN ", HB_LANGERRMSG( 21 ) }, ;
{ "EG_CLOSE ", HB_LANGERRMSG( 22 ) }, ;
{ "EG_READ ", HB_LANGERRMSG( 23 ) }, ;
{ "EG_WRITE ", HB_LANGERRMSG( 24 ) }, ;
{ "EG_PRINT ", HB_LANGERRMSG( 25 ) }, ;
{ " ", HB_LANGERRMSG( 26 ) }, ;
{ " ", HB_LANGERRMSG( 27 ) }, ;
{ " ", HB_LANGERRMSG( 28 ) }, ;
{ " ", HB_LANGERRMSG( 29 ) }, ;
{ "EG_UNSUPPORTED ", HB_LANGERRMSG( 30 ) }, ;
{ "EG_LIMIT ", HB_LANGERRMSG( 31 ) }, ;
{ "EG_CORRUPTION ", HB_LANGERRMSG( 32 ) }, ;
{ "EG_DATATYPE ", HB_LANGERRMSG( 33 ) }, ;
{ "EG_DATAWIDTH ", HB_LANGERRMSG( 34 ) }, ;
{ "EG_NOTABLE ", HB_LANGERRMSG( 35 ) }, ;
{ "EG_NOORDER ", HB_LANGERRMSG( 36 ) }, ;
{ "EG_SHARED ", HB_LANGERRMSG( 37 ) }, ;
{ "EG_UNLOCKED ", HB_LANGERRMSG( 38 ) }, ;
{ "EG_READONLY ", HB_LANGERRMSG( 39 ) }, ;
{ "EG_APPENDLOCK ", HB_LANGERRMSG( 40 ) }, ;
{ "EG_LOCK ", HB_LANGERRMSG( 41 ) }, ;
{ " ", HB_LANGERRMSG( 42 ) }, ;
{ " ", HB_LANGERRMSG( 43 ) }, ;
{ " ", HB_LANGERRMSG( 44 ) }, ;
{ " ", HB_LANGERRMSG( 45 ) }, ;
{ "EG_ARRACCESS ", HB_LANGERRMSG( 46 ) }, ;
{ "EG_ARRASSIGN ", HB_LANGERRMSG( 47 ) }, ;
{ "EG_ARRDIMENSION", HB_LANGERRMSG( 48 ) }, ;
{ "EG_NOTARRAY ", HB_LANGERRMSG( 49 ) }, ;
{ "EG_CONDITION ", HB_LANGERRMSG( 50 ) } }
return aErr
function HB_LANGERRINTR(n)
return HB_LANGMESSAGE(HB_LANG_ITEM_BASE_ERRINTR + n - 9000 )
function GET_IERR()
local aErr
aErr := { ;
{ "HB_EI_ERRUNRECOV ", HB_LANGERRINTR(9000) }, ;
{ "HB_EI_ERRRECFAILURE ", HB_LANGERRINTR(9001) }, ;
{ "HB_EI_ERRNOBLOCK ", HB_LANGERRINTR(9002) }, ;
{ "HB_EI_ERRTOOMANY ", HB_LANGERRINTR(9003) }, ;
{ "HB_EI_RDDINVALID ", HB_LANGERRINTR(9004) }, ;
{ "HB_EI_CLSINVMETHOD ", HB_LANGERRINTR(9005) }, ;
{ "HB_EI_XGRABALLOC ", HB_LANGERRINTR(9006) }, ;
{ "HB_EI_XREALLOCNULL ", HB_LANGERRINTR(9007) }, ;
{ "HB_EI_XREALLOCINV ", HB_LANGERRINTR(9008) }, ;
{ "HB_EI_XREALLOC ", HB_LANGERRINTR(9009) }, ;
{ "HB_EI_XFREEINV ", HB_LANGERRINTR(9010) }, ;
{ "HB_EI_XFREENULL ", HB_LANGERRINTR(9011) }, ;
{ "HB_EI_VMBADSTARTUP ", HB_LANGERRINTR(9012) }, ;
{ "HB_EI_VMNOSTARTUP ", HB_LANGERRINTR(9013) }, ;
{ "HB_EI_VMBADOPCODE ", HB_LANGERRINTR(9014) }, ;
{ "HB_EI_VMNOTSYMBOL ", HB_LANGERRINTR(9015) }, ;
{ "HB_EI_VMINVSYMBOL ", HB_LANGERRINTR(9016) }, ;
{ "HB_EI_VMNOTCBLOCK ", HB_LANGERRINTR(9017) }, ;
{ "HB_EI_VMPOPINVITEM ", HB_LANGERRINTR(9018) }, ;
{ "HB_EI_STACKUFLOW ", HB_LANGERRINTR(9019) }, ;
{ "HB_EI_ITEMBADCOPY ", HB_LANGERRINTR(9020) }, ;
{ "HB_EI_MVBADSYMBOL ", HB_LANGERRINTR(9021) }, ;
{ "HB_EI_XMEMOVERFLOW ", HB_LANGERRINTR(9022) }, ;
{ "HB_EI_XGRABNULLSIZE ", HB_LANGERRINTR(9023) }, ;
{ "HB_EI_XREALLOCNULLSIZE", HB_LANGERRINTR(9024) }, ;
{ "HB_EI_XALLOCNULLSIZE ", HB_LANGERRINTR(9025) } }
return aErr