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

2003-06-15 14:20 UTC+0200 Przemyslaw Czerpak <druzus@polbox.com>

Browse Source 
* 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.
This commit is contained in:
Przemyslaw Czerpak
2003-06-15 12:31:04 +00:00
parent dabdee1440
commit 5babd32ef5
8 changed files with 232 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -8,6 +8,19 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-06-15 14:20 UTC+0200 Przemyslaw Czerpak <druzus@polbox.com>
* 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 <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
! Bug fixed, related to seek with lLast and go bottom with scope set.

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

@@ -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",

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

@@ -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 */

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

@@ -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 */

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

@@ -155,7 +155,6 @@ static HB_LANG s_lang =
"Nie uda’o si‘ zablokowa<77> 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 */

210
harbour/source/lang/msgplwin.c Normal file
View File

@@ -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

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

@@ -162,7 +162,6 @@ static HB_LANG s_lang =
"ÎÅ ÍÁÓÓÉ×",
"ÓÒÁ×ÎÅÎÉÅ",
/* Internal error names */
"îÅÉÓÐÒÁ×ÉÍÁÑ ÏÛÉÂËÁ %lu: ",

10
harbour/source/rtl/inkey.c
View File

@@ -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 */