diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 5c3d0f997b..097c86ce22 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,21 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2008-02-10 04:03 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * common.mak + * source/lang/Makefile + + source/lang/msgbgmik.c + + source/lang/msgbe866.c + + source/lang/msgbewin.c + + source/lang/msghr437.c + + source/lang/msghrwin.c + + source/lang/msgua866.c + + source/lang/msguakoi.c + + source/lang/msguawin.c + + Added some msg files from xhb. Some problems corrected. + (Belarussian ISO code, long filename and internal ID + for HR1250) + 2008-02-09 22:42 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/harbour.spec * harbour/harbour-ce-spec diff --git a/harbour/common.mak b/harbour/common.mak index 4ffb9cd761..6aee982b3e 100644 --- a/harbour/common.mak +++ b/harbour/common.mak @@ -676,8 +676,11 @@ DEBUG_LIB_OBJS = \ #********************************************************** LANG_LIB_OBJS = \ + $(OBJ_DIR)\msgbe866$(OBJEXT) \ + $(OBJ_DIR)\msgbewin$(OBJEXT) \ $(OBJ_DIR)\msgbg866$(OBJEXT) \ $(OBJ_DIR)\msgbgiso$(OBJEXT) \ + $(OBJ_DIR)\msgbgmik$(OBJEXT) \ $(OBJ_DIR)\msgbgwin$(OBJEXT) \ $(OBJ_DIR)\msgca$(OBJEXT) \ $(OBJ_DIR)\msgcs852$(OBJEXT) \ @@ -696,8 +699,10 @@ LANG_LIB_OBJS = \ $(OBJ_DIR)\msggl$(OBJEXT) \ $(OBJ_DIR)\msghe862$(OBJEXT) \ $(OBJ_DIR)\msghewin$(OBJEXT) \ + $(OBJ_DIR)\msghr437$(OBJEXT) \ $(OBJ_DIR)\msghr852$(OBJEXT) \ $(OBJ_DIR)\msghriso$(OBJEXT) \ + $(OBJ_DIR)\msghrwin$(OBJEXT) \ $(OBJ_DIR)\msghu852$(OBJEXT) \ $(OBJ_DIR)\msghucwi$(OBJEXT) \ $(OBJ_DIR)\msghuiso$(OBJEXT) \ @@ -726,6 +731,9 @@ LANG_LIB_OBJS = \ $(OBJ_DIR)\msgsrwin$(OBJEXT) \ $(OBJ_DIR)\msgtr857$(OBJEXT) \ $(OBJ_DIR)\msgtrwin$(OBJEXT) \ + $(OBJ_DIR)\msgua866$(OBJEXT) \ + $(OBJ_DIR)\msguakoi$(OBJEXT) \ + $(OBJ_DIR)\msguawin$(OBJEXT) \ $(OBJ_DIR)\msgzhb5$(OBJEXT) \ $(OBJ_DIR)\msgzhgb$(OBJEXT) \ diff --git a/harbour/source/lang/Makefile b/harbour/source/lang/Makefile index 48a8b45942..78bd0403c8 100644 --- a/harbour/source/lang/Makefile +++ b/harbour/source/lang/Makefile @@ -5,8 +5,11 @@ ROOT = ../../ C_SOURCES=\ + msgbe866.c \ + msgbewin.c \ msgbg866.c \ msgbgiso.c \ + msgbgmik.c \ msgbgwin.c \ msgca.c \ msgcs852.c \ @@ -25,8 +28,10 @@ C_SOURCES=\ msggl.c \ msghe862.c \ msghewin.c \ + msghr437.c \ msghr852.c \ msghriso.c \ + msghrwin.c \ msghu852.c \ msghucwi.c \ msghuiso.c \ @@ -55,6 +60,9 @@ C_SOURCES=\ msgtr857.c \ msgtrwin.c \ msgsrwin.c \ + msgua866.c \ + msguakoi.c \ + msguawin.c \ msgzhb5.c \ msgzhgb.c \ diff --git a/harbour/source/lang/msgbe866.c b/harbour/source/lang/msgbe866.c new file mode 100644 index 0000000000..ff4e367edc --- /dev/null +++ b/harbour/source/lang/msgbe866.c @@ -0,0 +1,220 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (BE866) + * + * Copyright 2004 Pavel Tsarenko + * 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: Belorussian */ +/* ISO language code (2 chars): BE */ +/* Codepage: 866 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "BE866", /* ID */ + "Belorussian", /* Name (in English) */ + "᪠ ", /* Name (in native language) */ + "BY", /* RFC ID */ + "866", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "㤧", + "", + "i", + "ᠢi", + "", + "ࢥ", + "i", + "i", + "ᥭ", + "i", + "i⠯", + "", + + /* Day names */ + + "蠟", + "蠟", + "ࠪ", + "ࠤ", + "梥", + "i", + "㡮", + + /* CA-Cl*pper compatible natmsg items */ + + " # i . ", + " 몫 ?", + ".N", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "ࠢi쭠 ", + "ﯠ: ", + " - ", + "/", + "I ", + + /* Error description names */ + + "冷 뫪", + "ࠢi 㬥", + "࠯ i", + "࠯ ࠤ", + "࠯ i", + "﫥 ", + "쪠᭠ 뫪", + "i⠪i筠 뫪", + " ᪫ ", + "", + "", + "ࠪ i", + "冷 㭪", + "⠤ ᯠ⠢", + "ࠬ i", + "i i", + "ࠬ ᯠࠢ", + "묠 i ii i", + "i 㦮 몠", + "", + "뫪 ⢮࠭", + "뫪 ", + "뫪 뭥", + "뫪 ⠭", + "뫪 i", + "뫪 㪠", + "", + "", + "", + "", + " 묫i", + "裂 ࠢ蠭", + " 誮", + "뫪 ", + "뫪 ", + " ", + " iiࠢ", + "ࠡ ᪫i ", + "ࠡ ", + "i ", + " i ", + " 묠", + "", + "", + "", + "", + "ࠢi쭠 쪠 㬥", + " i", + " i", + " i", + "", + + /* Internal error names */ + + " 뫪 %lu: ", + "뫪 i", + " 맭砭 ERRORBLOCK() 뫪i", + "ࠢ蠭 裂 i 몫i 몠 뫠", + " 묮 i RDD", + "ࠢi ⠤ %s", + "hb_xgrab ࠧઠ ", + "hb_xrealloc 몫i NULL i", + "hb_xrealloc 몫i ࠢi i", + "hb_xrealloc ࠧઠ ", + "hb_xfree 몫i ࠢi i", + "hb_xfree 몫i NULL i", + " ⠢ : \'%s\'", + "i砥 ⠢ ", + "VM: 冷 ", + "%s: 砪 i", + "%s: ࠢi i self", + "%s: 砪 ", + "%s: ࠢi i ", + " ", + "%s: ஡ iࠢ ", + "%s: ࠢi쭠 i ࠬ", + "࠯ i", + "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( BE866 ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_BE866 ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_BE866 ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_BE866 +#elif defined(HB_MSC_STARTUP) + #if _MSC_VER >= 1010 + #pragma data_seg( ".CRT$XIY" ) + #pragma comment( linker, "/Merge:.CRT=.data" ) + #else + #pragma data_seg( "XIY" ) + #endif + static HB_$INITSYM hb_vm_auto_hb_lang_Init_BE866 = hb_lang_Init_BE866; + #pragma data_seg() +#endif diff --git a/harbour/source/lang/msgbewin.c b/harbour/source/lang/msgbewin.c new file mode 100644 index 0000000000..2bf9edbc97 --- /dev/null +++ b/harbour/source/lang/msgbewin.c @@ -0,0 +1,220 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (BEWIN) + * + * Copyright 2004 Pavel Tsarenko + * 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: Belorussian */ +/* ISO language code (2 chars): BE */ +/* Codepage: Windows-1251 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "BEWIN", /* ID */ + "Belorussian", /* Name (in English) */ + " ", /* Name (in native language) */ + "BY", /* RFC ID */ + "1251", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "", + "", + "", + "", + "", + "", + "˳", + "", + "", + "", + "˳", + "", + + /* Day names */ + + "", + "", + "", + "", + "", + "", + "", + + /* CA-Cl*pper compatible natmsg items */ + + " # . ", + " ?", + ".N", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + " ", + ": ", + " - ", + "/", + "² ", + + /* Error description names */ + + " ", + " ", + " ", + " ", + " ", + " ", + " ", + "ѳ ", + " ", + "", + "", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + "", + " ", + " ", + " ", + " ", + " ", + " ", + "", + "", + "", + "", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " 糢 ", + " ", + " ", + " ", + " ", + "", + "", + "", + "", + " ", + " ", + " ", + " ", + "", + + /* 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( BEWIN ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_BEWIN ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_BEWIN ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_BEWIN +#elif defined(HB_MSC_STARTUP) + #if _MSC_VER >= 1010 + #pragma data_seg( ".CRT$XIY" ) + #pragma comment( linker, "/Merge:.CRT=.data" ) + #else + #pragma data_seg( "XIY" ) + #endif + static HB_$INITSYM hb_vm_auto_hb_lang_Init_BEWIN = hb_lang_Init_BEWIN; + #pragma data_seg() +#endif diff --git a/harbour/source/lang/msgbgmik.c b/harbour/source/lang/msgbgmik.c new file mode 100644 index 0000000000..357f5cb9ae --- /dev/null +++ b/harbour/source/lang/msgbgmik.c @@ -0,0 +1,221 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (BGMIK) + * + * Copyright 2005 Rosen Vladimirov + * 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: Bulgarian */ +/* ISO language code (2 chars): BG */ +/* Codepage: DOS-MIK */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "BGMIK", /* ID */ + "Bulgarian", /* Name (in English) */ + "", /* Name (in native language) */ + "BG", /* RFC ID */ + "MIK", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "", + "", + "", + "", + "", + "", + "", + "", + "", + "", + "", + "", + + /* Day names */ + + "", + "", + "", + "", + "", + "", + "", + + /* CA-Clipper compatible natmsg items */ + + " # . ", + "Do you want more samples?", + ". N.", + "** **", + "* *", + "*** ***", + "Ins", + " ", + " ", + "Range: ", + " - ", + "/", + "INVALID EXPRESSION", + + /* Error description names */ + + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + "", + "", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + "", + " ", + " ", + " ", + " ", + " ", + " ", + "", + "", + "", + "", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + "", + "", + "", + "", + " ", + " ", + " ", + " ", + "", + + /* Internal error names */ + + " %lu: ", + " ", + " ERRORBLOCK() ", + " ", + " RDD ", + " %s", + "hb_xgrab ", + "hb_xrealloc NULL", + "hb_xrealloc ", + "hb_xrealloc ", + "hb_xfree ", + "hb_xfree NULL", + " : \'%s\'", + " ", + " VM ", + " %s", + " self %s", + " %s", + " %s ", + " ", + " %s ", + " %s ", + " ", + "hb_xgrab 0 ", + "hb_xrealloc 0 ", + "hb_xalloc 0 ", + + /* Texts */ + + "//", + "", + "" + } +}; + +HB_LANG_ANNOUNCE( BGMIK ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_BGMIK ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_BGMIK ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_BGMIK +#elif defined(HB_MSC_STARTUP) + #if _MSC_VER >= 1010 + #pragma data_seg( ".CRT$XIY" ) + #pragma comment( linker, "/Merge:.CRT=.data" ) + #else + #pragma data_seg( "XIY" ) + #endif + static HB_$INITSYM hb_vm_auto_hb_lang_Init_BGMIK = hb_lang_Init_BGMIK; + #pragma data_seg() +#endif + diff --git a/harbour/source/lang/msghr437.c b/harbour/source/lang/msghr437.c new file mode 100644 index 0000000000..73a03caf0b --- /dev/null +++ b/harbour/source/lang/msghr437.c @@ -0,0 +1,221 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (HR437) + * + * Copyright 2004 Vladimir Miholic + * 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. + * + */ + +/* Language name: CROATIAN */ +/* ISO language code (2 chars): HR */ +/* Codepage: 437 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "HR437", /* ID */ + "Croatian", /* Name (in English) */ + "Hrvatski", /* Name (in native language) */ + "HR", /* RFC ID */ + "437", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "sije~anj", + "velja~a", + "o`ujak", + "travanj", + "svibanj", + "lipanj", + "srpanj", + "kolovoz", + "rujan", + "listopad", + "studeni", + "prosinac", + + /* Day names */ + + "nedjelja", + "ponedjeljak", + "utorak", + "srijeda", + "~etvrtak", + "petak", + "subota", + + /* CA-Cl*pper compatible natmsg items */ + + "Datot.baze podat. # Zapisi Zadnja prom. Vel.", + "@elite jo{ primjera?", + "Str.Br.", + "** Podzbroj **", + "* Podpodzbroj *", + "*** Zbroj ***", + "Ins", + " ", + "Pogre{an podatak", + "Raspon: ", + " - ", + "D/N", + "POGRE[AN IZRAZ", + + /* Error description names */ + + "Nepoznata gre{ka", + "Pogre{an argument", + "Pogre{na granica", + "Prekora~enje niza", + "Prekora~enje broja", + "Dijeljenje s nulom", + "Broj~ana gre{ka", + "Sintaksna gre{ka", + "Prekomplicirana operacija", + "", + "", + "Nedostatak memorije", + "Nedefinirana funkcija", + "Nema eksportne metode", + "Varijabla ne postoji", + "Alijas ne postoji", + "Nema izvozne varijable", + "Nedopu{teni znak u aliasu", + "Alias ve} u upotrebi", + "", + "Gre{ka kreiranja", + "Gre{ka otvaranja", + "Gre{ka zatvaranja", + "Gre{ka ~itanja", + "Gre{ka zapisivanja", + "Gre{ka ispisa", + "", + "", + "", + "", + "Operacija nije podr`ana", + "Prekora~enje granice", + "Otkriven kvar", + "Tip podatka pogre{an", + "Du`ina podatka pogre{na", + "Radno podru~je nije u upotrebi", + "Radno podru~je nije indeksirano", + "potrebno isklju~iv", + "Potrebno zaklju~avanje", + "Zapisanje nije dozvoljeno", + "Izostalo zaklju~avanje kod dodavanja", + "Gre{ka zaklju~avanja", + "", + "", + "", + "", + "pristup matrici", + "pridru`ivanje matrici", + "dimenzija matrice", + "nije matrica", + "uvjetan", + + /* Internal error names */ + + "Nepopravljiva gre{ka %lu: ", + "Gre{ka obnavljanje neuspje{no", + "Nema ERRORBLOCK() za gre{ku", + "Previ{e povratnih poziva upravlja~a gre{aka", + "RDD neispravan ili izostalo u~itavanje", + "Neispravan tip metode iz %s", + "hb_xgrab ne mo`e dodijeliti memoriju", + "hb_xrealloc pozvan s NULL pokaziva~em", + "hb_xrealloc pozvan s neispravnim pokaziva~em", + "hb_xrealloc ne mo`e realocirati memoriju", + "hb_xfree pozvan s neispravnim pokaziva~em", + "hb_xfree pozvan s NULL pokaziva~em", + "Nije mogu}e prona}i po~etnu proceduru: \'%s\'", + "Nema po~etne procedure", + "Nepodr`an VM opcod", + "Simbol element o~ekivan iz %s", + "Neispravan simbol tip za sebe iz %s", + "Kodeblok o~ekivan iz %s", + "Nepravilan tip elementa na staku poku{aj stavljanja iz %s", + "Prekora~enje staka", + "Element je bio kopiran u samog sebe iz %s", + "Neispravan simbol elemenat dodan kao memorijska varijabla %s", + "Prekora~enje memorijskog me|uspremnika", + "hb_xgrab zahtjev za dodjelom nul bajta", + "hb_xrealloc zahtjev za pro{irenjem na nul bajtove", + "hb_xalloc zahtjev za dodjelom nul bajtova", + + /* Texts */ + + "DD/MM/YYYY", + "D", + "N" + } +}; + +HB_LANG_ANNOUNCE( HR437 ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_HR437 ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_HR437 ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_HR437 +#elif defined(HB_MSC_STARTUP) + #if _MSC_VER >= 1010 + #pragma data_seg( ".CRT$XIY" ) + #pragma comment( linker, "/Merge:.CRT=.data" ) + #else + #pragma data_seg( "XIY" ) + #endif + static HB_$INITSYM hb_vm_auto_hb_lang_Init_HR437 = hb_lang_Init_HR437; + #pragma data_seg() +#endif + diff --git a/harbour/source/lang/msghrwin.c b/harbour/source/lang/msghrwin.c new file mode 100644 index 0000000000..5b714efa3b --- /dev/null +++ b/harbour/source/lang/msghrwin.c @@ -0,0 +1,222 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (HRWIN) + * + * Copyright 2000 Viktor Szakats (English, from msg_tpl.c) + * Copyright 2000 Davor Siklic + * Copyright 2003 Vladimir Miholic (Croatien from msg_hr852.c) + * 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. + * + */ + +/* Language name: CROATIAN */ +/* ISO language code (2 chars): HR */ +/* Codepage: Windows-1250 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "HRWIN", /* ID */ + "Croatian", /* Name (in English) */ + "Hrvatski", /* Name (in native language) */ + "HR", /* RFC ID */ + "1250", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "sijecanj", + "veljaca", + "oujak", + "travanj", + "svibanj", + "lipanj", + "srpanj", + "kolovoz", + "rujan", + "listopad", + "studeni", + "prosinac", + + /* Day names */ + + "nedjelja", + "ponedjeljak", + "utorak", + "srijeda", + "cetvrtak", + "petak", + "subota", + + /* CA-Cl*pper compatible natmsg items */ + + "Datot.baze podat. # Zapisi Zadnja prom. Vel.", + "elite jo primjera?", + "Str.Br.", + "** Podzbroj **", + "* Podpodzbroj *", + "*** Zbroj ***", + "Ins", + " ", + "Pogrean podatak", + "Raspon: ", + " - ", + "D/N", + "POGREAN IZRAZ", + + /* Error description names */ + + "Nepoznata greka", + "Pogrean argument", + "Pogrena granica", + "Prekoracenje niza", + "Prekoracenje broja", + "Dijeljenje s nulom", + "Brojcana greka", + "Sintaksna greka", + "Prekomplicirana operacija", + "", + "", + "Nedostatak memorije", + "Nedefinirana funkcija", + "Nema eksportne metode", + "Varijabla ne postoji", + "Alijas ne postoji", + "Nema izvozne varijable", + "Nedoputeni znak u aliasu", + "Alias vec u upotrebi", + "", + "Greka kreiranja", + "Greka otvaranja", + "Greka zatvaranja", + "Greka citanja", + "Greka zapisivanja", + "Greka ispisa", + "", + "", + "", + "", + "Operacija nije podrana", + "Prekoracenje granice", + "Otkriven kvar", + "Tip podatka pogrean", + "Duina podatka pogrena", + "Radno podrucje nije u upotrebi", + "Radno podrucje nije indeksirano", + "potrebno iskljuciv", + "Potrebno zakljucavanje", + "Zapisanje nije dozvoljeno", + "Izostalo zakljucavanje kod dodavanja", + "Greka zakljucavanja", + "", + "", + "", + "", + "pristup matrici", + "pridruivanje matrici", + "dimenzija matrice", + "nije matrica", + "uvjetan", + + /* Internal error names */ + + "Nepopravljiva greka %lu: ", + "Greka obnavljanje neuspjeno", + "Nema ERRORBLOCK() za greku", + "Previe povratnih poziva upravljaca greaka", + "RDD neispravan ili izostalo ucitavanje", + "Neispravan tip metode iz %s", + "hb_xgrab ne moe dodijeliti memoriju", + "hb_xrealloc pozvan s NULL pokazivacem", + "hb_xrealloc pozvan s neispravnim pokazivacem", + "hb_xrealloc ne moe realocirati memoriju", + "hb_xfree pozvan s neispravnim pokazivacem", + "hb_xfree pozvan s NULL pokazivacem", + "Nije moguce pronaci pocetnu proceduru: \'%s\'", + "Nema pocetne procedure", + "Nepodran VM opcod", + "Simbol element ocekivan iz %s", + "Neispravan simbol tip za sebe iz %s", + "Kodeblok ocekivan iz %s", + "Nepravilan tip elementa na staku pokuaj stavljanja iz %s", + "Prekoracenje staka", + "Element je bio kopiran u samog sebe iz %s", + "Neispravan simbol elemenat dodan kao memorijska varijabla %s", + "Prekoracenje memorijskog meduspremnika", + "hb_xgrab zahtjev za dodjelom nul bajta", + "hb_xrealloc zahtjev za proirenjem na nul bajtove", + "hb_xalloc zahtjev za dodjelom nul bajtova", + + /* Texts */ + + "DD/MM/YYYY", + "D", + "N" + } +}; + +HB_LANG_ANNOUNCE( HRWIN ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_HRWIN ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_HRWIN ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_HRWIN +#elif defined(HB_MSC_STARTUP) + #if _MSC_VER >= 1010 + #pragma data_seg( ".CRT$XIY" ) + #pragma comment( linker, "/Merge:.CRT=.data" ) + #else + #pragma data_seg( "XIY" ) + #endif + static HB_$INITSYM hb_vm_auto_hb_lang_Init_HRWIN = hb_lang_Init_HRWIN; + #pragma data_seg() +#endif diff --git a/harbour/source/lang/msgua866.c b/harbour/source/lang/msgua866.c new file mode 100644 index 0000000000..40ca69c6d6 --- /dev/null +++ b/harbour/source/lang/msgua866.c @@ -0,0 +1,221 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (UA866) + * + * Copyright 2004 Pavel Tsarenko + * 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: Ukrainian */ +/* ISO language code (2 chars): UA */ +/* Codepage: 866 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "UA866", /* ID */ + "Ukrainian", /* Name (in English) */ + "쪨", /* Name (in native language) */ + "UA", /* RFC ID */ + "866", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "i祭", + "⨩", + "१", + "i⥭", + "ࠢ", + "ࢥ", + "⨩", + "௥", + "ᥭ", + "⥭", + "⮯", + "㤥", + + /* Day names */ + + "i", + "i", + "iப", + "।", + "⢥", + "'⭨", + "㡮", + + /* CA-Cl*pper compatible natmsg items */ + + " # ⠭ . i", + "ii ਪ ?", + ".N", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "iୠ ", + ": ", + " - ", + "/", + "I ", + + /* Error description names */ + + "i ", + "i୨ 㬥", + "९ ᨢ", + "९ ப", + "९ ᫠", + "i ", + "᫮ ", + "⠪筠 ", + "㦥 ᪫ i", + "", + "", + " 'i", + "i 㭪i", + "⮤ ᯮ⮢", + "i i", + " i", + "i ᯮ⮢", + "⨬i ᨬ ii ", + " ⮢", + "", + " ⢮७", + " i", + " ", + " ⠭", + " ", + " ", + "", + "", + "", + "", + "i iਬ", + "ii ॢ饭", + " 誮", + " ⨯ ", + " ஧i ", + " i", + " iᮢ", + "i ᪫ ", + "i ஢", + " ", + " 㢠 i", + "㢠 ", + "", + "", + "", + "", + "iୠ ii 㬥i", + " ᨢ", + "᢮ ᨢ", + " ᨢ", + "iﭭ", + + /* Internal error names */ + + "ࠢ %lu: ", + " ii", + " 祭 ERRORBLOCK() ", + "ॢ饭 ४ᨢ i ஡ ", + " ⠦ RDD", + "i୨ ⨯ ⮤ %s", + "hb_xgrab ஧i '", + "hb_xrealloc NULL i", + "hb_xrealloc i୨ i", + "hb_xrealloc ஧i '", + "hb_xfree i୨ i", + "hb_xfree NULL i", + " ⮢ 楤: \'%s\'", + "i ⮢ 楤", + "VM: i ", + "%s: i㢠 ᨬ", + "%s: i୨ ⨯ ᨬ self", + "%s: i㢠 ", + "%s: i୨ ⨯ 設i ⥪", + "i i ⥪", + "%s: ஡ ஢ ᥡ", + "%s: i୥ ' i", + "९ 'i", + "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( UA866 ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_UA866 ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_UA866 ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_UA866 +#elif defined(HB_MSC_STARTUP) + #if _MSC_VER >= 1010 + #pragma data_seg( ".CRT$XIY" ) + #pragma comment( linker, "/Merge:.CRT=.data" ) + #else + #pragma data_seg( "XIY" ) + #endif + static HB_$INITSYM hb_vm_auto_hb_lang_Init_UA866 = hb_lang_Init_UA866; + #pragma data_seg() +#endif + diff --git a/harbour/source/lang/msguakoi.c b/harbour/source/lang/msguakoi.c new file mode 100644 index 0000000000..308d2ffa85 --- /dev/null +++ b/harbour/source/lang/msguakoi.c @@ -0,0 +1,221 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (UAKOI8) + * + * Copyright 2004 Pavel Tsarenko + * 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: Ukrainian */ +/* ISO language code (2 chars): UA */ +/* Codepage: KOI-8U */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "UAKOI8", /* ID */ + "Ukrainian", /* Name (in English) */ + "", /* Name (in native language) */ + "UA", /* RFC ID */ + "KOI8U", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "", + "", + "", + "צ", + "", + "", + "", + "", + "", + "", + "", + "", + + /* Day names */ + + "Ħ", + "Ħ", + "", + "", + "", + "'", + "", + + /* CA-Cl*pper compatible natmsg items */ + + " # . ͦ", + "ҦΦ ?", + ".N", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + "צ ", + ": ", + " - ", + "/", + " ", + + /* Error description names */ + + "צ ", + "צ ", + " ", + " ", + " ", + " ", + " ", + " ", + " æ", + "", + "", + " 'Ԧ", + "צ æ", + " ", + "ͦ խ", + " խ", + "ͦ ", + "ͦ Φ ", + " խ", + "", + " ", + " צ", + " ", + " ", + " ", + " ", + "", + "", + "", + "", + "æ Цխ", + "ͦ ", + " ", + " ", + " ͦ ", + " צ", + " ", + "Ҧ ", + "Ҧ ", + " ", + " Φ", + " ", + "", + "", + "", + "", + "צ ˦˦ Ԧ", + " ", + " ", + " ", + "Ҧ", + + /* 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( UAKOI8 ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_UAKOI8 ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_UAKOI8 ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_UAKOI8 +#elif defined(HB_MSC_STARTUP) + #if _MSC_VER >= 1010 + #pragma data_seg( ".CRT$XIY" ) + #pragma comment( linker, "/Merge:.CRT=.data" ) + #else + #pragma data_seg( "XIY" ) + #endif + static HB_$INITSYM hb_vm_auto_hb_lang_Init_UAKOI8 = hb_lang_Init_UAKOI8; + #pragma data_seg() +#endif + diff --git a/harbour/source/lang/msguawin.c b/harbour/source/lang/msguawin.c new file mode 100644 index 0000000000..3bd872c66b --- /dev/null +++ b/harbour/source/lang/msguawin.c @@ -0,0 +1,221 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (UAWIN) + * + * Copyright 2004 Pavel Tsarenko + * 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: Ukrainian */ +/* ISO language code (2 chars): UA */ +/* Codepage: Windows-1251 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "UAWIN", /* ID */ + "Ukrainian", /* Name (in English) */ + "", /* Name (in native language) */ + "UA", /* RFC ID */ + "1251", /* Codepage */ + "$Revision$ $Date$", /* Version */ + + /* Month names */ + + "ѳ", + "", + "", + "", + "", + "", + "", + "", + "", + "", + "", + "", + + /* Day names */ + + "", + "", + "³", + "", + "", + "'", + "", + + /* CA-Cl*pper compatible natmsg items */ + + " # . ", + " ?", + ".N", + "** Subtotal **", + "* Subsubtotal *", + "*** Total ***", + "Ins", + " ", + " ", + ": ", + " - ", + "/", + "² ", + + /* Error description names */ + + " ", + " ", + " ", + " ", + " ", + "ij ", + " ", + " ", + " ", + "", + "", + " '", + "i ", + " ", + " ", + " ", + " ", + " ", + " ", + "", + " ", + " ", + " ", + " ", + " ", + " ", + "", + "", + "", + "", + " ", + "˳ ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + " ", + "", + "", + "", + "", + " ", + " ", + " ", + " ", + "", + + /* 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( UAWIN ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_UAWIN ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_UAWIN ) + +#if defined(HB_PRAGMA_STARTUP) + #pragma startup hb_lang_Init_UAWIN +#elif defined(HB_MSC_STARTUP) + #if _MSC_VER >= 1010 + #pragma data_seg( ".CRT$XIY" ) + #pragma comment( linker, "/Merge:.CRT=.data" ) + #else + #pragma data_seg( "XIY" ) + #endif + static HB_$INITSYM hb_vm_auto_hb_lang_Init_UAWIN = hb_lang_Init_UAWIN; + #pragma data_seg() +#endif +