From 5babd32ef5988ce93ec3aaf37ba8737337f32e06 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Sun, 15 Jun 2003 12:31:04 +0000 Subject: [PATCH] 2003-06-15 14:20 UTC+0200 Przemyslaw Czerpak * harbour/source/lang/msgen.c * harbour/source/lang/msgpl852.c * harbour/source/lang/msgpliso.c * harbour/source/lang/msgplmaz.c ! the bug reported by Alexander in msgru* fixed. + harbour/source/lang/msgplwin.c + added msgplwin (cp1250) * harbour/source/rtl/inkey.c * removed dirty hack which degrease performance of inkey() on *nix platforms. --- harbour/ChangeLog | 13 ++ harbour/source/lang/msgen.c | 3 +- harbour/source/lang/msgpl852.c | 3 +- harbour/source/lang/msgpliso.c | 3 +- harbour/source/lang/msgplmaz.c | 3 +- harbour/source/lang/msgplwin.c | 210 +++++++++++++++++++++++++++++++++ harbour/source/lang/msgrukoi.c | 1 - harbour/source/rtl/inkey.c | 10 +- 8 files changed, 232 insertions(+), 14 deletions(-) create mode 100644 harbour/source/lang/msgplwin.c diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 14f286b9d7..7ab846c7d9 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,19 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2003-06-15 14:20 UTC+0200 Przemyslaw Czerpak + * harbour/source/lang/msgen.c + * harbour/source/lang/msgpl852.c + * harbour/source/lang/msgpliso.c + * harbour/source/lang/msgplmaz.c + ! the bug reported by Alexander in msgru* fixed. + + harbour/source/lang/msgplwin.c + + added msgplwin (cp1250) + + * harbour/source/rtl/inkey.c + * removed dirty hack which degrease performance of inkey() on *nix + platforms. + 2003-06-14 21:25 UTC+0300 Alexander Kresin * source/rdd/dbfntx/dbfntx1.c ! Bug fixed, related to seek with lLast and go bottom with scope set. diff --git a/harbour/source/lang/msgen.c b/harbour/source/lang/msgen.c index 5d6b5e5ac8..eba575e13f 100644 --- a/harbour/source/lang/msgen.c +++ b/harbour/source/lang/msgen.c @@ -156,7 +156,6 @@ static HB_LANG s_lang = "", "", "", - "", "array access", "array assign", "array dimension", @@ -190,7 +189,7 @@ static HB_LANG s_lang = "Memory buffer overflow", "hb_xgrab requested to allocate zero bytes", "hb_xrealloc requested to resize to zero bytes", - "hb_xalloc requested to allocate zero bytes" + "hb_xalloc requested to allocate zero bytes", "YYYY/MM/DD", "Y", diff --git a/harbour/source/lang/msgpl852.c b/harbour/source/lang/msgpl852.c index b65eb4c24a..eae16cd312 100644 --- a/harbour/source/lang/msgpl852.c +++ b/harbour/source/lang/msgpl852.c @@ -155,7 +155,6 @@ static HB_LANG s_lang = "Nie udaˆo siŠ zablokowa† dostŠpu", "", "", - "", "", "Nieprawidˆowa liczba argument˘w", "pobranie elementu tablicy", @@ -190,7 +189,7 @@ static HB_LANG s_lang = "Zapis poza przydzielonym obszarem", "hb_xgrab requested to allocate zero bytes", "hb_xrealloc requested to resize to zero bytes", - "hb_xalloc requested to allocate zero bytes" + "hb_xalloc requested to allocate zero bytes", /* Texts */ diff --git a/harbour/source/lang/msgpliso.c b/harbour/source/lang/msgpliso.c index 0f2f8ee7e7..01da0cfcb6 100644 --- a/harbour/source/lang/msgpliso.c +++ b/harbour/source/lang/msgpliso.c @@ -155,7 +155,6 @@ static HB_LANG s_lang = "Nie udało się zablokować dostępu", "", "", - "", "", "Nieprawidłowa liczba argumentów", "pobranie elementu tablicy", @@ -190,7 +189,7 @@ static HB_LANG s_lang = "Zapis poza przydzielonym obszarem", "hb_xgrab requested to allocate zero bytes", "hb_xrealloc requested to resize to zero bytes", - "hb_xalloc requested to allocate zero bytes" + "hb_xalloc requested to allocate zero bytes", /* Texts */ diff --git a/harbour/source/lang/msgplmaz.c b/harbour/source/lang/msgplmaz.c index 1c63a539f8..d5fa37face 100644 --- a/harbour/source/lang/msgplmaz.c +++ b/harbour/source/lang/msgplmaz.c @@ -155,7 +155,6 @@ static HB_LANG s_lang = "Nie uda’o si‘ zablokowa dost‘pu", "", "", - "", "", "Nieprawid’owa liczba argument˘w", "pobranie elementu tablicy", @@ -190,7 +189,7 @@ static HB_LANG s_lang = "Zapis poza przydzielonym obszarem", "hb_xgrab requested to allocate zero bytes", "hb_xrealloc requested to resize to zero bytes", - "hb_xalloc requested to allocate zero bytes" + "hb_xalloc requested to allocate zero bytes", /* Texts */ diff --git a/harbour/source/lang/msgplwin.c b/harbour/source/lang/msgplwin.c new file mode 100644 index 0000000000..f7edf919bc --- /dev/null +++ b/harbour/source/lang/msgplwin.c @@ -0,0 +1,210 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Language Support Module (PL Windows CP1250) + * + * 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, 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: Polish */ +/* ISO language code (2 chars): PL */ +/* Codepage: 1250 */ + +#include "hbapilng.h" + +static HB_LANG s_lang = +{ + { + /* Identification */ + + "PLWIN", /* ID */ + "Polish", /* Name (in English) */ + "Polski", /* Name (in native language) */ + "PL", /* RFC ID */ + "1250", /* 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 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", + "hb_xgrab requested to allocate zero bytes", + "hb_xrealloc requested to resize to zero bytes", + "hb_xalloc requested to allocate zero bytes", + + /* Texts */ + + "YYYY.MM.DD", + "T", + "N" + } +}; + +HB_LANG_ANNOUNCE( PLWIN ); + +HB_CALL_ON_STARTUP_BEGIN( hb_lang_Init_PLWIN ) + hb_langRegister( &s_lang ); +HB_CALL_ON_STARTUP_END( hb_lang_Init_PLWIN ) +#if ! defined(__GNUC__) && ! defined(_MSC_VER) + #pragma startup hb_lang_Init_PLWIN +#endif + diff --git a/harbour/source/lang/msgrukoi.c b/harbour/source/lang/msgrukoi.c index f0beafd7fb..2f22d26cbe 100644 --- a/harbour/source/lang/msgrukoi.c +++ b/harbour/source/lang/msgrukoi.c @@ -162,7 +162,6 @@ static HB_LANG s_lang = "ÎĹ ÍÁÓÓÉ×", "ÓŇÁ×ÎĹÎÉĹ", - /* Internal error names */ "îĹÉÓĐŇÁ×ÉÍÁŃ ĎŰÉÂËÁ %lu: ", diff --git a/harbour/source/rtl/inkey.c b/harbour/source/rtl/inkey.c index 3a8bfd3659..556430d235 100644 --- a/harbour/source/rtl/inkey.c +++ b/harbour/source/rtl/inkey.c @@ -202,12 +202,12 @@ int hb_inkeyNext( HB_inkey_enum event_mask ) /* Return the next key without void hb_inkeyPoll( void ) /* Poll the console keyboard to stuff the Harbour buffer */ { - static double dbLast; +// static double dbLast; HB_TRACE(HB_TR_DEBUG, ("hb_inkeyPoll()")); - if( dbLast != hb_dateSeconds() ) - { +// if( dbLast != hb_dateSeconds() ) +// { if( hb_set.HB_SET_TYPEAHEAD || s_inkeyPoll ) { int ch = hb_gt_ReadKey( s_eventmask ); @@ -235,8 +235,8 @@ void hb_inkeyPoll( void ) /* Poll the console keyboard to stuff the Harbour hb_inkeyPut( ch ); } - dbLast = hb_dateSeconds(); - } +// dbLast = hb_dateSeconds(); +// } } void hb_inkeyReset( BOOL allocate ) /* Reset the keyboard buffer */