ChangeLog 2000-07-27 10:15 UTC+0100

2000-07-27 08:10:42 +00:00
parent 6f01c79dd4
commit 780d535f1f
34 changed files with 637 additions and 242 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,51 @@
+2000-07-27 10:15 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
+
+    *include/error.ch
+    *include/hbapilng.h
+        *added internal error HB_MEMOVERFLOW
+        *adjusted internal data for Lang API
+        
+    *source/lang/msg_tpl.c
+    *source/lang/msgca.c
+    *source/lang/msgcs852.c
+    *source/lang/msgcsiso.c
+    *source/lang/msgcskam.c
+    *source/lang/msgcswin.c
+    *source/lang/msgde.c
+    *source/lang/msgen.c
+    *source/lang/msges.c
+    *source/lang/msgeu.c
+    *source/lang/msgfr.c
+    *source/lang/msggl.c
+    *source/lang/msghe862.c
+    *source/lang/msghewin.c
+    *source/lang/msghr852.c
+    *source/lang/msghriso.c
+    *source/lang/msghu852.c
+    *source/lang/msghucwi.c
+    *source/lang/msghuwin.c
+    *source/lang/msgis850.c
+    *source/lang/msgit.c
+    *source/lang/msgko.c
+    *source/lang/msgpt.c
+    *source/lang/msgro.c
+    *source/lang/msgsr852.c
+    *source/lang/msgsriso.c
+        * added internal error message: "Memory buffer overflow"
+        
+    *source/lang/msgpl852.c
+    *source/lang/msgpliso.c
+    *source/lang/msgplmaz.c
+        *updated to work with current Lang API
+
+    *source/vm/fm.c
+        * memory blocks are marked with a signature at the end of buffer 
+        to check if memory was overwritten 
+        
+    *source/rtl/transfrm.c
+        * fixed bug when "@(BX" picture was used (it caused that some
+        bytes were copied after the allocated buffer)
+
 2000-07-27 00:15 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
 *source/lang/msgit.c
   *Renamed TPL to IT
--- a/harbour/include/error.ch
+++ b/harbour/include/error.ch
@@ -113,6 +113,7 @@
 #define HB_EI_STACKUFLOW        9019 /* "Stack underflow" */
 #define HB_EI_ITEMBADCOPY       9020 /* "An item was going to be copied to itself from %s" */
 #define HB_EI_MVBADSYMBOL       9021 /* "Invalid symbol item passed as memvar %s" */
+#define HB_EI_XMEMOVERFLOW      9022 /* "Memory buffer overflow" */

 #endif /* _ERROR_CH */

--- a/harbour/include/hbapilng.h
+++ b/harbour/include/hbapilng.h
@@ -51,8 +51,8 @@ extern "C" {
 #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          111
-#define HB_LANG_ITEM_MAX_               114
+#define HB_LANG_ITEM_BASE_TEXT          112
+#define HB_LANG_ITEM_MAX_               115

 /* This hack is needed to force preprocessing if id is also a macro */
 #define HB_LANG_REQUEST( id )           HB_LANG_REQUEST_( id )
--- a/harbour/source/lang/msg_tpl.c
+++ b/harbour/source/lang/msg_tpl.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msgca.c
+++ b/harbour/source/lang/msgca.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msgcs852.c
+++ b/harbour/source/lang/msgcs852.c
@@ -171,6 +171,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgcsiso.c
+++ b/harbour/source/lang/msgcsiso.c
@@ -171,6 +171,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgcskam.c
+++ b/harbour/source/lang/msgcskam.c
@@ -171,6 +171,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgcswin.c
+++ b/harbour/source/lang/msgcswin.c
@@ -172,6 +172,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgde.c
+++ b/harbour/source/lang/msgde.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msgen.c
+++ b/harbour/source/lang/msgen.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msges.c
+++ b/harbour/source/lang/msges.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Desbordamiento negativo en la Pila",
      "Un item estaba siendo copiado sobre s¡ mismo desde %s",
      "S¡mbolo item no v lido pasado como memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgeu.c
+++ b/harbour/source/lang/msgeu.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgfr.c
+++ b/harbour/source/lang/msgfr.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msggl.c
+++ b/harbour/source/lang/msggl.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msghe862.c
+++ b/harbour/source/lang/msghe862.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msghewin.c
+++ b/harbour/source/lang/msghewin.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msghr852.c
+++ b/harbour/source/lang/msghr852.c
@@ -171,6 +171,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msghriso.c
+++ b/harbour/source/lang/msghriso.c
@@ -171,6 +171,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msghu852.c
+++ b/harbour/source/lang/msghu852.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msghucwi.c
+++ b/harbour/source/lang/msghucwi.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msghuwin.c
+++ b/harbour/source/lang/msghuwin.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msgis850.c
+++ b/harbour/source/lang/msgis850.c
@@ -171,6 +171,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msgit.c
+++ b/harbour/source/lang/msgit.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgko.c
+++ b/harbour/source/lang/msgko.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgpl852.c
+++ b/harbour/source/lang/msgpl852.c
@@ -2,91 +2,190 @@
 * $Id$
 */

-/* Language Support Module - Polskoj©zyczny modu<64> dla Harbour */
+/*
+ * Harbour Project source code:
+ * Language Support Module (PL CP-852)
+ *
+ * Copyright 1999 {list of individual authors and e-mail addresses}
+ * 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 of the License, or
+ * (at your option) any later version, with one exception:
+ *
+ * The exception is that if you link the Harbour Runtime Library (HRL)
+ * and/or the Harbour Virtual Machine (HVM) 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 HRL
+ * and/or HVM code into it.
+ *
+ * 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 program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
+ * their web site at http://www.gnu.org/).
+ *
+ */

 /* Language name: Polish */
 /* ISO language code (2 chars): PL */
-/* Codepage: Latin II - 852 */
+/* Codepage: 852 */

-#include "hbdefs.h"
+#include "hbapilng.h"

-char *hb_dateMonthsName[ 12 ] =
+static HB_LANG s_lang =
 {
-   "Styczeä",
-   "Luty",
-   "Marzec",
-   "Kwiecieä",
-   "Maj",
-   "Czerwiec",
-   "Lipiec",
-   "Sierpieä",
-   "Wrzesieä",
-   "Pa«dziernik",
-   "Listopad",
-   "Grudzieä"
+   {
+      /* Identification */
+
+      "PL852",                     /* ID */
+      "Polish",                    /* Name (in English) */
+      "Polski",                    /* Name (in native language) */
+      "PL",                        /* RFC ID */
+      "852",                       /* Codepage */
+      "$Revision$ $Date$",         /* Version */
+
+      /* Month names */
+
+       "Styczeä",
+       "Luty",
+       "Marzec",
+       "Kwiecieä",
+       "Maj",
+       "Czerwiec",
+       "Lipiec",
+       "Sierpieä",
+       "Wrzesieä",
+       "Pa«dziernik",
+       "Listopad",
+       "Grudzieä",
+
+      /* Day names */
+
+       "Niedziela",
+       "Poniedziaˆek",
+       "Wtorek",
+       "—roda",
+       "Czwartek",
+       "Pi¥tek",
+       "Sobota",
+
+      /* CA-Cl*pper compatible natmsg items */
+
+      "Baza danych       #Rekord¢w    Uaktualniona Rozmiar",
+      "Wi©cej przykˆad¢w?",
+      "Strona",
+      "** Subtotal **",
+      "* Subsubtotal *",
+      "*** Total ***",
+      "Wst",    /* wstaw */
+      "Zas",    /* zastap */
+      "Nieprawidˆowa data",
+      "Zakres:",
+      " - ",
+      "T/N",
+      "Bˆ©dne wyra¾enie",
+
+      /* Error description names */
+
+       "Bˆ¥d bez opisu",
+       "Nieprawidˆowy argument",
+       "Bˆ¥d zakresu tablicy",
+       "Za du¾y string",
+       "Przepeˆnienie numeryczne",
+       "Dzielenie przez zero",
+       "Bˆ¥d numeryczny",
+       "Nieprawidˆowa skˆadnia",
+       "Operacja zbyt zˆo¾ona",
+      "",
+      "",
+       "Za maˆo pami©ci",
+       "Niezdefiniowana funkcja",
+       "Metoda jest niedost©pna",
+       "Zmienna nie istnieje",
+       "Alias bazy nie istnieje",
+       "Zmienna jest niedost©pna",
+       "Nieprawidˆowy alias bazy",
+       "Podany alias ju¾ istnieje",
+      "",
+       "Bˆ¥d podczas tworzenia zbioru",
+       "Bˆ¥d podczas otwarcia zbioru",
+       "Bˆ¥d podczas zamkni©cia zbioru",
+       "Bˆ¥d podczas odczytu ze zbioru",
+       "Bˆ¥d podczas zapisu do zbioru",
+       "Bˆ¥d wydruku",
+      "",
+      "",
+      "",
+      "",
+       "Nieprawidˆowa operacja",
+       "Przekroczony limit",
+       "Uszkodzony indeks bazy",
+       "Niezgodny typ danych",
+       "Warto˜† poza zakresem",
+       "Baza nie jest otwarta",
+       "Baza nie ma indeksu",
+       "Wymagany jest wyˆ¥czny dost©p do bazy",
+       "Wymagana blokada dost©pu",
+       "Zapis niedozwolony",
+       "Brak blokady dost©pu podczas dodawania rekordu",
+       "Nie udaˆo si© zablokowa† dost©pu",
+      "",
+      "",
+      "",
+      "",
+       "Nieprawidˆowa liczba argument¢w",
+       "pobranie elementu tablicy",
+       "zmiana warto˜ci elementu tablicy",
+       "wymagana jest tablica",
+       "wymagany typ: logiczny",
+
+      /* Internal error names */
+
+      "Nienaprawialny bˆ¥d nr %lu: ",
+      "Nieudana pr¢ba naprawy bˆ©du",
+      "Brak kodu obsˆugi ERRORBLOCK()",
+      "Zbyt wiele zagnie¾d¾onych bˆ©d¢w",
+      "Niezaˆadowany lub zˆy RDD",
+      "Zˆy typ metody woˆanej z %s",
+      "hb_xgrab nie mo¾e zarezerwowa† pami©ci",
+      "hb_xrealloc wywoˆany ze wska«nikiem NULL",
+      "hb_xrealloc wywoˆany ze zˆym wska«nikiem",
+      "hb_xrealloc nie mo¾e powi©kszy† bloku pami©ci",
+      "hb_xfree wywoˆany ze zˆym wska«nikiem",
+      "hb_xfree wywoˆany ze wska«nikiem NULL",
+      "Brak definicji procedury startowej: \'%s\'",
+      "Brak procedury startowej",
+      "Nieprawidˆowa warto˜† VM opcode",
+      "W %s wymagany jest item typu \'Symbol\'",
+      "W %s podano zˆy item dla SELF",
+      "W %s oczekiwany jest item typu \'Codeblock\'",
+      "Funkcja %s wymaga innego typu na stosie",
+      "Stos poni¾ej dna",
+      "Item nie mo¾e by† skopiowany w %s",
+      "W %s podano zˆy item jako memvar",
+      "Zapis poza przydzielonym obszarem",
+
+      /* Texts */
+
+      "YYYY.MM.DD",
+      "T",
+      "N"
+   }
 };

-char *hb_dateDaysName[ 7 ] =
-{
-   "Niedziela",
-   "Poniedzia<EFBFBD>ek",
-   "Wtorek",
-   "—roda",
-   "Czwartek",
-   "PiĄtek",
-   "Sobota"
-};
+HB_LANG_ANNOUNCE( PL852 );
+
+HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_PL852 )
+   hb_langRegister( &s_lang );
+HB_CALL_ON_STARTUP_END( hb_lang_Init_PL852 )
+#if ! defined(__GNUC__) && ! defined(_MSC_VER)
+   #pragma startup hb_lang_Init_PL852
+#endif

-char *hb_errorsGeneric[] =
-{
-   "B<EFBFBD>Ąd bez opisu",
-   "Nieprawid<EFBFBD>owy argument",
-   "B<EFBFBD>Ąd zakresu tablicy",
-   "Za duľy string",
-   "Przepe<EFBFBD>nienie numeryczne",
-   "Dzielenie przez zero",
-   "B<EFBFBD>Ąd numeryczny",
-   "Nieprawid<EFBFBD>owa sk<73>adnia",
-   "Operacja zbyt z<>oľona",
-   "",
-   "",
-   "Za ma<6D>o pami©ci",
-   "Niezdefiniowana funkcja",
-   "Metoda jest niedost©pna",
-   "Zmienna nie istnieje",
-   "Alias bazy nie istnieje",
-   "Zmienna jest niedost©pna",
-   "Nieprawid<EFBFBD>owy alias bazy",
-   "Podany alias juľ istnieje",
-   "",
-   "B<EFBFBD>Ąd podczas tworzenia zbioru",
-   "B<EFBFBD>Ąd podczas otwarcia zbioru",
-   "B<EFBFBD>Ąd podczas zamkni©cia zbioru",
-   "B<EFBFBD>Ąd podczas odczytu ze zbioru",
-   "B<EFBFBD>Ąd podczas zapisu do zbioru",
-   "B<EFBFBD>Ąd wydruku",
-   "",
-   "",
-   "",
-   "",
-   "Nieprawid<EFBFBD>owa operacja",
-   "Przekroczony limit",
-   "Uszkodzony indeks bazy",
-   "Niezgodny typ danych",
-   "Warto<EFBFBD>† poza zakresem",
-   "Baza jest nie otwarta",
-   "Baza nie ma indeksu",
-   "Wymagany jest wy<77>Ączny dost©p do bazy",
-   "Wymagana blokada dost©pu",
-   "Zapis niedozwolony",
-   "Brak blokady dost©pu podczas dodawania rekordu",
-   "Nie uda<64>o si© zablokowa† dost©pu",
-   "",
-   "",
-   "",
-   "Nieprwid<EFBFBD>owa liczba argument˘w",
-   "pobranie elementu tablicy",
-   "zmiana warto<74>ci elementu tablicy",
-   "wymagana jest tablica",
-   "wymagany typ: logiczny"
-};
--- a/harbour/source/lang/msgpliso.c
+++ b/harbour/source/lang/msgpliso.c
@@ -2,91 +2,190 @@
 * $Id$
 */

-/* Language Support Module - Polskoj©zyczny modu<64> dla Harbour */
+/*
+ * Harbour Project source code:
+ * Language Support Module (PL ISO-8859-2)
+ *
+ * Copyright 1999 {list of individual authors and e-mail addresses}
+ * 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 of the License, or
+ * (at your option) any later version, with one exception:
+ *
+ * The exception is that if you link the Harbour Runtime Library (HRL)
+ * and/or the Harbour Virtual Machine (HVM) 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 HRL
+ * and/or HVM code into it.
+ *
+ * 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 program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
+ * their web site at http://www.gnu.org/).
+ *
+ */

 /* Language name: Polish */
 /* ISO language code (2 chars): PL */
 /* Codepage: ISO-8859-2 */

-#include "hbdefs.h"
+#include "hbapilng.h"

-char *hb_dateMonthsName[ 12 ] =
+static HB_LANG s_lang =
 {
-   "Styczeń",
-   "Luty",
-   "Marzec",
-   "Kwiecień",
-   "Maj",
-   "Czerwiec",
-   "Lipiec",
-   "Sierpień",
-   "Wrzesień",
-   "PaĽdziernik",
-   "Listopad",
-   "Grudzień"
+   {
+      /* Identification */
+
+      "PLISO",                     /* ID */
+      "Polish",                    /* Name (in English) */
+      "Polski",                    /* Name (in native language) */
+      "PL",                        /* RFC ID */
+      "ISO-8859-2",                /* Codepage */
+      "$Revision$ $Date$",         /* Version */
+
+      /* Month names */
+
+       "Styczeñ",
+       "Luty",
+       "Marzec",
+       "Kwiecieñ",
+       "Maj",
+       "Czerwiec",
+       "Lipiec",
+       "Sierpieñ",
+       "Wrzesieñ",
+       "Pa¼dziernik",
+       "Listopad",
+       "Grudzieñ",
+
+      /* Day names */
+
+       "Niedziela",
+       "Poniedzia³ek",
+       "Wtorek",
+       "¦roda",
+       "Czwartek",
+       "Pi±tek",
+       "Sobota",
+
+      /* CA-Cl*pper compatible natmsg items */
+
+      "Baza danych       #Rekordów    Uaktualniona Rozmiar",
+      "Wiêcej przyk³adów?",
+      "Strona",
+      "** Subtotal **",
+      "* Subsubtotal *",
+      "*** Total ***",
+      "Wst",    /* wstaw */
+      "Zas",    /* zastap */
+      "Nieprawid³owa data",
+      "Zakres:",
+      " - ",
+      "T/N",
+      "B³êdne wyra¿enie",
+
+      /* Error description names */
+
+       "B³±d bez opisu",
+       "Nieprawid³owy argument",
+       "B³±d zakresu tablicy",
+       "Za du¿y string",
+       "Przepe³nienie numeryczne",
+       "Dzielenie przez zero",
+       "B³±d numeryczny",
+       "Nieprawid³owa sk³adnia",
+       "Operacja zbyt z³o¿ona",
+      "",
+      "",
+       "Za ma³o pamiêci",
+       "Niezdefiniowana funkcja",
+       "Metoda jest niedostêpna",
+       "Zmienna nie istnieje",
+       "Alias bazy nie istnieje",
+       "Zmienna jest niedostêpna",
+       "Nieprawid³owy alias bazy",
+       "Podany alias ju¿ istnieje",
+      "",
+       "B³±d podczas tworzenia zbioru",
+       "B³±d podczas otwarcia zbioru",
+       "B³±d podczas zamkniêcia zbioru",
+       "B³±d podczas odczytu ze zbioru",
+       "B³±d podczas zapisu do zbioru",
+       "B³±d wydruku",
+      "",
+      "",
+      "",
+      "",
+       "Nieprawid³owa operacja",
+       "Przekroczony limit",
+       "Uszkodzony indeks bazy",
+       "Niezgodny typ danych",
+       "Warto¶æ poza zakresem",
+       "Baza jest nie otwarta",
+       "Baza nie ma indeksu",
+       "Wymagany jest wy³±czny dostêp do bazy",
+       "Wymagana blokada dostêpu",
+       "Zapis niedozwolony",
+       "Brak blokady dostêpu podczas dodawania rekordu",
+       "Nie uda³o siê zablokowaæ dostêpu",
+      "",
+      "",
+      "",
+      "",
+       "Nieprawid³owa liczba argumentów",
+       "pobranie elementu tablicy",
+       "zmiana warto¶ci elementu tablicy",
+       "wymagana jest tablica",
+       "wymagany typ: logiczny",
+
+      /* Internal error names */
+
+      "Nienaprawialny b³±d nr %lu: ",
+      "Nieudana próba naprawy b³êdu",
+      "Brak kodu obs³ugi ERRORBLOCK()",
+      "Zbyt wiele zagnie¿d¿onych b³êdów",
+      "Nieza³adowany lub z³y RDD",
+      "Z³y typ metody wo³anej z %s",
+      "hb_xgrab nie mo¿e zarezerwowaæ pamiêci",
+      "hb_xrealloc wywo³any ze wska¼nikiem NULL",
+      "hb_xrealloc wywo³any ze z³ym wska¼nikiem",
+      "hb_xrealloc nie mo¿e powiekszyæ bloku pamiêci",
+      "hb_xfree wywo³any ze z³ym wska¼nikiem",
+      "hb_xfree wywo³any ze wska¼nikiem NULL",
+      "Brak definicja procedury startowej: \'%s\'",
+      "Brak procedury startowej",
+      "Nieprawid³owa warto¶æ VM opcode",
+      "W %s wymagany jest item typu \'Symbol\'",
+      "W %s podano z³y item dla SELF",
+      "W %s oczekiwany jest item typu \'Codeblock\'",
+      "Funkcja %s wymaga innego typu na stosie",
+      "Stos poni¿ej dna",
+      "Item nie mo¿e byæ skopiowany w %s",
+      "W %s podano z³y item jako memvar",
+      "Zapis poza przydzielonym obszarem",
+
+      /* Texts */
+
+      "YYYY.MM.DD",
+      "T",
+      "N"
+   }
 };

-char *hb_dateDaysName[ 7 ] =
-{
-   "Niedziela",
-   "Poniedziałek",
-   "Wtorek",
-   "¦roda",
-   "Czwartek",
-   "Pi±tek",
-   "Sobota"
-};
+HB_LANG_ANNOUNCE( PLISO );
+
+HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_PLISO )
+   hb_langRegister( &s_lang );
+HB_CALL_ON_STARTUP_END( hb_lang_Init_PLISO )
+#if ! defined(__GNUC__) && ! defined(_MSC_VER)
+   #pragma startup hb_lang_Init_PLISO
+#endif

-char *hb_errorsGeneric[] =
-{
-   "Bł±d bez opisu",
-   "Nieprawidłowy argument",
-   "Bł±d zakresu tablicy",
-   "Za duży string",
-   "Przepełnienie numeryczne",
-   "Dzielenie przez zero",
-   "Bł±d numeryczny",
-   "Nieprawidłowa składnia",
-   "Operacja zbyt złożona",
-   "",
-   "",
-   "Za mało pamięci",
-   "Niezdefiniowana funkcja",
-   "Metoda jest niedostępna",
-   "Zmienna nie istnieje",
-   "Alias bazy nie istnieje",
-   "Zmienna jest niedostępna",
-   "Nieprawidłowy alias bazy",
-   "Podany alias już istnieje",
-   "",
-   "Bł±d podczas tworzenia zbioru",
-   "Bł±d podczas otwarcia zbioru",
-   "Bł±d podczas zamknięcia zbioru",
-   "Bł±d podczas odczytu ze zbioru",
-   "Bł±d podczas zapisu do zbioru",
-   "Bł±d wydruku",
-   "",
-   "",
-   "",
-   "",
-   "Nieprawidłowa operacja",
-   "Przekroczony limit",
-   "Uszkodzony indeks bazy",
-   "Niezgodny typ danych",
-   "Warto¶ć poza zakresem",
-   "Baza jest nie otwarta",
-   "Baza nie ma indeksu",
-   "Wymagany jest wył±czny dostęp do bazy",
-   "Wymagana blokada dostępu",
-   "Zapis niedozwolony",
-   "Brak blokady dostępu podczas dodawania rekordu",
-   "Nie udało się zablokować dostępu",
-   "",
-   "",
-   "",
-   "Nieprwidłowa liczba argumentów",
-   "pobranie elementu tablicy",
-   "zmiana warto¶ci elementu tablicy",
-   "wymagana jest tablica",
-   "wymagany typ: logiczny"
-};
--- a/harbour/source/lang/msgplmaz.c
+++ b/harbour/source/lang/msgplmaz.c
@@ -2,91 +2,190 @@
 * $Id$
 */

-/* Language Support Module - Polskoj©zyczny modu<64> dla Harbour */
+/*
+ * Harbour Project source code:
+ * Language Support Module (PL Mazowia)
+ *
+ * Copyright 1999 {list of individual authors and e-mail addresses}
+ * 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 of the License, or
+ * (at your option) any later version, with one exception:
+ *
+ * The exception is that if you link the Harbour Runtime Library (HRL)
+ * and/or the Harbour Virtual Machine (HVM) 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 HRL
+ * and/or HVM code into it.
+ *
+ * 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 program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit
+ * their web site at http://www.gnu.org/).
+ *
+ */

 /* Language name: Polish */
 /* ISO language code (2 chars): PL */
 /* Codepage: Mazowia */

-#include "hbdefs.h"
+#include "hbapilng.h"

-char *hb_dateMonthsName[ 12 ] =
+static HB_LANG s_lang =
 {
-   "Stycze¤",
-   "Luty",
-   "Marzec",
-   "Kwiecie¤",
-   "Maj",
-   "Czerwiec",
-   "Lipiec",
-   "Sierpie¤",
-   "Wrzesie¤",
-   "Pa¦dziernik",
-   "Listopad",
-   "Grudzie¤"
+   {
+      /* Identification */
+
+      "PLMAZ",                     /* ID */
+      "Polish",                    /* Name (in English) */
+      "Polski",                    /* Name (in native language) */
+      "PL",                        /* RFC ID */
+      "Mazowia",                   /* Codepage */
+      "$Revision$ $Date$",         /* Version */
+
+      /* Month names */
+
+       "Stycze¤",
+       "Luty",
+       "Marzec",
+       "Kwiecie¤",
+       "Maj",
+       "Czerwiec",
+       "Lipiec",
+       "Sierpie¤",
+       "Wrzesie¤",
+       "Pa¦dziernik",
+       "Listopad",
+       "Grudzie¤",
+
+      /* Day names */
+
+       "Niedziela",
+       "Poniedzia’ek",
+       "Wtorek",
+       "˜roda",
+       "Czwartek",
+       "Pi†tek",
+       "Sobota",
+
+      /* CA-Cl*pper compatible natmsg items */
+
+      "Baza danych       #Rekord¢w    Uaktualniona Rozmiar",
+      "Wi‘cej przyk’ad¢w?",
+      "Strona",
+      "** Subtotal **",
+      "* Subsubtotal *",
+      "*** Total ***",
+      "Wst",    /* wstaw */
+      "Zas",    /* zastap */
+      "Nieprawid’owa data",
+      "Zakres:",
+      " - ",
+      "T/N",
+      "B’‘dne wyra§enie",
+
+      /* Error description names */
+
+       "B’†d bez opisu",
+       "Nieprawid’owy argument",
+       "B’†d zakresu tablicy",
+       "Za du§y string",
+       "Przepe’nienie numeryczne",
+       "Dzielenie przez zero",
+       "B’†d numeryczny",
+       "Nieprawid’owa sk’adnia",
+       "Operacja zbyt z’o§ona",
+      "",
+      "",
+       "Za ma’o pami‘ci",
+       "Niezdefiniowana funkcja",
+       "Metoda jest niedost‘pna",
+       "Zmienna nie istnieje",
+       "Alias bazy nie istnieje",
+       "Zmienna jest niedost‘pna",
+       "Nieprawid’owy alias bazy",
+       "Podany alias ju§ istnieje",
+      "",
+       "B’†d podczas tworzenia zbioru",
+       "B’†d podczas otwarcia zbioru",
+       "B’†d podczas zamkni‘cia zbioru",
+       "B’†d podczas odczytu ze zbioru",
+       "B’†d podczas zapisu do zbioru",
+       "B’†d wydruku",
+      "",
+      "",
+      "",
+      "",
+       "Nieprawid’owa operacja",
+       "Przekroczony limit",
+       "Uszkodzony indeks bazy",
+       "Niezgodny typ danych",
+       "Wartož<EFBFBD> poza zakresem",
+       "Baza jest nie otwarta",
+       "Baza nie ma indeksu",
+       "Wymagany jest wy’†czny dost‘p do bazy",
+       "Wymagana blokada dost‘pu",
+       "Zapis niedozwolony",
+       "Brak blokady dost‘pu podczas dodawania rekordu",
+       "Nie uda’o si‘ zablokowa<77> dost‘pu",
+      "",
+      "",
+      "",
+      "",
+       "Nieprawid’owa liczba argument¢w",
+       "pobranie elementu tablicy",
+       "zmiana wartožci elementu tablicy",
+       "wymagana jest tablica",
+       "wymagany typ: logiczny",
+
+      /* Internal error names */
+
+      "Nienaprawialny b’†d nr %lu: ",
+      "Nieudana pr¢ba naprawy b’‘du",
+      "Brak kodu obs’ugi ERRORBLOCK()",
+      "Zbyt wiele zagnie§d§onych b’‘d¢w",
+      "Nieza’adowany lub z’y RDD",
+      "Z’y typ metody wo’anej z %s",
+      "hb_xgrab nie mo§e zarezerwowa<77> pami‘ci",
+      "hb_xrealloc wywo’any ze wska¦nikiem NULL",
+      "hb_xrealloc wywo’any ze z’ym wska¦nikiem",
+      "hb_xrealloc nie mo§e powi‘kszy<7A> bloku pami‘ci",
+      "hb_xfree wywo’any ze z’ym wska¦nikiem",
+      "hb_xfree wywo’any ze wska¦nikiem NULL",
+      "Brak definicji procedury startowej: \'%s\'",
+      "Brak procedury startowej",
+      "Nieprawid’owa wartož<6F> VM opcode",
+      "W %s wymagany jest item typu \'Symbol\'",
+      "W %s podano z’y item dla SELF",
+      "W %s oczekiwany jest item typu \'Codeblock\'",
+      "Funkcja %s wymaga innego typu na stosie",
+      "Stos poni§ej dna",
+      "Item nie mo§e by<62> skopiowany w %s",
+      "W %s podano z’y item jako memvar",
+      "Zapis poza przydzielonym obszarem",
+
+      /* Texts */
+
+      "YYYY.MM.DD",
+      "T",
+      "N"
+   }
 };

-char *hb_dateDaysName[ 7 ] =
-{
-   "Niedziela",
-   "Poniedzia’ek",
-   "Wtorek",
-   "<EFBFBD>roda",
-   "Czwartek",
-   "Pi†tek",
-   "Sobota"
-};
+HB_LANG_ANNOUNCE( PLMAZ );
+
+HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_PLMAZ )
+   hb_langRegister( &s_lang );
+HB_CALL_ON_STARTUP_END( hb_lang_Init_PLMAZ )
+#if ! defined(__GNUC__) && ! defined(_MSC_VER)
+   #pragma startup hb_lang_Init_PLMAZ
+#endif

-char *hb_errorsGeneric[] =
-{
-   "B’†d bez opisu",
-   "Nieprawid’owy argument",
-   "B’†d zakresu tablicy",
-   "Za du§y string",
-   "Przepe’nienie numeryczne",
-   "Dzielenie przez zero",
-   "B’†d numeryczny",
-   "Nieprawid’owa sk’adnia",
-   "Operacja zbyt z’o§ona",
-   "",
-   "",
-   "Za ma’o pami‘ci",
-   "Niezdefiniowana funkcja",
-   "Metoda jest niedost‘pna",
-   "Zmienna nie istnieje",
-   "Alias bazy nie istnieje",
-   "Zmienna jest niedost‘pna",
-   "Nieprawid’owy alias bazy",
-   "Podany alias ju§ istnieje",
-   "",
-   "B’†d podczas tworzenia zbioru",
-   "B’†d podczas otwarcia zbioru",
-   "B’†d podczas zamkni‘cia zbioru",
-   "B’†d podczas odczytu ze zbioru",
-   "B’†d podczas zapisu do zbioru",
-   "B’†d wydruku",
-   "",
-   "",
-   "",
-   "",
-   "Nieprawid’owa operacja",
-   "Przekroczony limit",
-   "Uszkodzony indeks bazy",
-   "Niezgodny typ danych",
-   "WartožŤ poza zakresem",
-   "Baza jest nie otwarta",
-   "Baza nie ma indeksu",
-   "Wymagany jest wy’†czny dost‘p do bazy",
-   "Wymagana blokada dost‘pu",
-   "Zapis niedozwolony",
-   "Brak blokady dost‘pu podczas dodawania rekordu",
-   "Nie uda’o si‘ zablokowaŤ dost‘pu",
-   "",
-   "",
-   "",
-   "Nieprwid’owa liczba argument˘w",
-   "pobranie elementu tablicy",
-   "zmiana wartožci elementu tablicy",
-   "wymagana jest tablica",
-   "wymagany typ: logiczny"
-};
--- a/harbour/source/lang/msgpt.c
+++ b/harbour/source/lang/msgpt.c
@@ -182,6 +182,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "Um item iria ser copiado para ele mesmo em %s",
      "Symbol item inv lido passado como memvar  %s",
+      "Memory buffer overflow",

      /* Texts */
   
--- a/harbour/source/lang/msgro.c
+++ b/harbour/source/lang/msgro.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/lang/msgsr852.c
+++ b/harbour/source/lang/msgsr852.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow",
      "An item was going to be copied to itself from %s",
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",

      /* Texts */

--- a/harbour/source/lang/msgsriso.c
+++ b/harbour/source/lang/msgsriso.c
@@ -170,6 +170,7 @@ static HB_LANG s_lang =
      "Stack underflow", 
      "An item was going to be copied to itself from %s", 
      "Invalid symbol item passed as memvar %s",
+      "Memory buffer overflow",
   
      /* Texts */
   
--- a/harbour/source/rtl/transfrm.c
+++ b/harbour/source/rtl/transfrm.c
@@ -308,8 +308,9 @@ HB_FUNC( TRANSFORM )
         BOOL     bFound = FALSE;

         hb_itemGetNLen( pValue, &iOrigWidth, &iOrigDec );
-      
-         szResult = ( char * ) hb_xgrab( ulPicLen + 4 );   /* Grab enough              */
+
+         /* TODO: maybe replace this 16 with something else */      
+         szResult = ( char * ) hb_xgrab( ulPicLen + 16 );   /* Grab enough */
         *szResult = '\0';

         for( i = 0; i < ulPicLen && !bFound; i++ )      /* Count number in front    */
--- a/harbour/source/vm/fm.c
+++ b/harbour/source/vm/fm.c
@@ -104,7 +104,7 @@ void * hb_xalloc( ULONG ulSize )         /* allocates fixed memory, returns NULL
    */
   HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_xalloc(%lu)", ulSize));

-   pMem = malloc( ulSize + sizeof( HB_MEMINFO ) );
+   pMem = malloc( ulSize + sizeof( HB_MEMINFO ) + sizeof( ULONG ) );

   if( ! pMem )
      return pMem;
@@ -123,6 +123,10 @@ void * hb_xalloc( ULONG ulSize )         /* allocates fixed memory, returns NULL
   ( ( PHB_MEMINFO ) pMem )->pNextBlock = NULL;

   ( ( PHB_MEMINFO ) pMem )->ulSignature = HB_MEMINFO_SIGNATURE;
+   {
+      ULONG *pSig = (ULONG *)( ( ( unsigned char * ) pMem ) + ulSize + sizeof(HB_MEMINFO) );
+      *pSig = HB_MEMINFO_SIGNATURE;
+   }   
   ( ( PHB_MEMINFO ) pMem )->ulSize = ulSize;  /* size of the memory block */

   if( hb_tr_level() >= HB_TR_DEBUG )
@@ -179,7 +183,7 @@ void * hb_xgrab( ULONG ulSize )         /* allocates fixed memory, exits on fail

 #ifdef HB_FM_STATISTICS

-   pMem = malloc( ulSize + sizeof( HB_MEMINFO ) );
+   pMem = malloc( ulSize + sizeof( HB_MEMINFO ) + sizeof( ULONG ) );

   if( ! pMem )
      hb_errInternal( HB_EI_XGRABALLOC, NULL, NULL, NULL );
@@ -198,6 +202,10 @@ void * hb_xgrab( ULONG ulSize )         /* allocates fixed memory, exits on fail
   ( ( PHB_MEMINFO ) pMem )->pNextBlock = NULL;

   ( ( PHB_MEMINFO ) pMem )->ulSignature = HB_MEMINFO_SIGNATURE;
+   {
+      ULONG *pSig = (ULONG *)( ( ( unsigned char * ) pMem ) + ulSize + sizeof(HB_MEMINFO) );
+      *pSig = HB_MEMINFO_SIGNATURE;
+   }   
   ( ( PHB_MEMINFO ) pMem )->ulSize = ulSize;  /* size of the memory block */

   if( hb_tr_level() >= HB_TR_DEBUG )
@@ -252,6 +260,7 @@ void * hb_xrealloc( void * pMem, ULONG ulSize )       /* reallocates memory */

   PHB_MEMINFO pMemBlock;
   ULONG ulMemSize;
+   ULONG *pSig;

   HB_TRACE_STEALTH(HB_TR_DEBUG, ("hb_xrealloc(%p, %lu)", pMem, ulSize));

@@ -265,7 +274,11 @@ void * hb_xrealloc( void * pMem, ULONG ulSize )       /* reallocates memory */

   ulMemSize = pMemBlock->ulSize;

-   pMem = realloc( pMemBlock, ulSize + sizeof( HB_MEMINFO ) );
+   pSig = (ULONG *)( ( ( unsigned char * ) pMem ) + ulMemSize );
+   if( *pSig != HB_MEMINFO_SIGNATURE )
+      hb_errInternal( HB_EI_XMEMOVERFLOW, NULL, NULL, NULL );
+
+   pMem = realloc( pMemBlock, ulSize + sizeof( HB_MEMINFO ) + sizeof( ULONG ) );

   s_lMemoryConsumed += ( ulSize - ulMemSize );
   if( s_lMemoryMaxConsumed < s_lMemoryConsumed )
@@ -275,6 +288,10 @@ void * hb_xrealloc( void * pMem, ULONG ulSize )       /* reallocates memory */
      hb_errInternal( HB_EI_XREALLOC, NULL, NULL, NULL );

   ( ( PHB_MEMINFO ) pMem )->ulSize = ulSize;  /* size of the memory block */
+   {
+      ULONG *pSig = (ULONG *)( ( ( unsigned char * ) pMem ) + ulSize + sizeof(HB_MEMINFO) );
+      *pSig = HB_MEMINFO_SIGNATURE;
+   }   
   if( ( ( PHB_MEMINFO ) pMem )->pPrevBlock )
      ( ( PHB_MEMINFO ) pMem )->pPrevBlock->pNextBlock = ( PHB_MEMINFO ) pMem;
   if( ( ( PHB_MEMINFO ) pMem )->pNextBlock )
@@ -313,10 +330,15 @@ void hb_xfree( void * pMem )            /* frees fixed memory */
   if( pMem )
   {
      PHB_MEMINFO pMemBlock = ( PHB_MEMINFO ) ( ( char * ) pMem - sizeof( HB_MEMINFO ) );
+      ULONG *pSig;

      if( pMemBlock->ulSignature != HB_MEMINFO_SIGNATURE )
         hb_errInternal( HB_EI_XFREEINV, NULL, NULL, NULL );

+      pSig  = (ULONG *)( ( ( unsigned char * ) pMem ) + pMemBlock->ulSize );
+      if( *pSig != HB_MEMINFO_SIGNATURE )
+         hb_errInternal( HB_EI_XMEMOVERFLOW, NULL, NULL, NULL );
+
      s_lMemoryConsumed -= pMemBlock->ulSize;
      s_lMemoryBlocks--;