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

2006-07-18 10:21 UTC+0100 Viktor Szakats (viktor.szakats syenar.hu)

Browse Source 
* harbour/source/lang/msgcs852.c
   * harbour/source/lang/msgcsiso.c
   * harbour/source/lang/msgcskam.c
   * harbour/source/lang/msgcswin.c
     + Updates/fixes and more translated texts for Czech
       language modules. Thanks to:
       Vojtech Obrdlik <vobrdlik centrum.cz>

   * harbour/source/pp/pplib.c
     ! Fixed function names in trace calls.

   * harbour/source/rdd/dblist.prg
   *	harbour/source/rdd/dbsort.prg
   * harbour/source/rdd/dbstrux.prg
     + Minor improvements.
This commit is contained in:
Viktor Szakats
2006-07-18 08:34:15 +00:00
parent 5ef5f402a8
commit 3cc9382678
9 changed files with 229 additions and 215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
harbour/ChangeLog
View File

@@ -8,6 +8,23 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2006-07-18 12:00 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/hvm.c
! fixed problems reported by Marek with EXIT procedures after my
last commit
+ Updates/fixes and more translated texts for Czech
* harbour/source/lang/msgcs852.c
* harbour/source/lang/msgcsiso.c
* harbour/source/lang/msgcskam.c
* harbour/source/lang/msgcswin.c
+ Updates/fixes and more translated texts for Czech
language modules. Thanks to:
Vojtech Obrdlik <vobrdlik centrum.cz>
* harbour/source/rdd/dbsort.prg
* harbour/source/pp/pplib.c
! Fixed function names in trace calls.
* harbour/source/rdd/dblist.prg
* harbour/source/rdd/dbsort.prg
* harbour/source/rdd/dbstrux.prg

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

@@ -8,6 +8,7 @@
*
* Copyright 2000 Viktor Szakats <viktor.szakats@syenar.hu> (English, from msg_tpl.c)
* Copyright 2000 Davor Siklic <siki@msoft.cz>
* Copyright 2006 Vojtech Obrdlik <vobrdlik@centrum.cz>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -76,8 +77,8 @@ static HB_LANG s_lang =
"býezen",
"duben",
"kvØten",
"Yerven",
"Yervenec",
"Ÿerven",
"Ÿervenec",
"srpen",
"z ý¡",
"ý¡jen",
@@ -90,79 +91,77 @@ static HB_LANG s_lang =
"pondØl¡",
"£terì",
"stýeda",
"Ytvrtek",
"Ÿtvrtek",
"p tek",
"sobota",
/* CA-Cl*pper compatible natmsg items */
"Database Files # Records Last Update Size",
"Do you want more samples?",
"Page No.",
"Datab ze # Z znam… Aktualizace Velikost",
"Chcete v¡ce pý¡klad…?",
"Strana",
"** Subtotal **",
"* Subsubtotal *",
"*** Total ***",
"Ins",
" ",
"Invalid date",
"Range: ",
"Chybn‚ datum",
"Rozsah: ",
" - ",
"A/N",
"INVALID EXPRESSION",
"CHYBNí VíRAZ",
/* Error description names */
"Unknown error",
"Argument error",
"Bound error",
"String overflow",
"Numeric overflow",
"Zero divisor",
"Numeric error",
"Syntax error",
"Operation too complex",
"Nezn m  chyba",
"Chyba argumentu",
"Chyba mez¡",
"PýeteŸen¡ ýetØzce",
"PýeteŸen¡ Ÿ¡sla",
"DØlØn¡ nulou",
"Numerick  chyba",
"Chyba syntaxe",
"Operace pý¡liç komplexn¡",
"",
"",
"Memory low",
"Undefined function",
"No exported method",
"Variable does not exist",
"Alias does not exist",
"No exported variable",
"Illegal characters in alias",
"Alias already in use",
"Nedostatek pamØti",
"Nedefinovan  funkce",
"Nezn m  metoda",
"PromØnn  neexistuje",
"Alias neexistuje",
"Nezn m  promØnn ",
"Nepovolen‚ znaky v aliasu",
"Alias ji§ pou§it",
"",
"Create error",
"Open error",
"Close error",
"Read error",
"Write error",
"Print error",
"Chyba vytvoýen¡",
"Chyba otevýen¡",
"Chyba zavýen¡",
"Chyba Ÿten¡",
"Chyba z pisu",
"Chyba tisku",
"",
"",
"",
"",
"Operation not supported",
"Limit exceeded",
"Corruption detected",
"Data type error",
"Data width error",
"Workarea not in use",
"Workarea not indexed",
"Exclusive required",
"Lock required",
"Write not allowed",
"Append lock failed",
"Lock Failure",
"Operace nen¡ podporov na",
"PýekorŸen limit",
"Index poçkozen",
"Typ dat se neshoduje",
"Chyba ç¡ýky dat",
"Pracovn¡ oblast nen¡ pou§ita",
"Nen¡ otevýen index",
"Po§adov no uzamknut¡",
"Z mek pýi pýid n¡ z znamu selhal",
"Z mek selhal",
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",
"not an array",
"conditional",
"pý¡stup k poli",
"pýiýazen¡ pole",
"zmØna dimenze pole",
"nen¡ pole",
"podm¡nka",
/* Internal error names */
@@ -195,7 +194,7 @@ static HB_LANG s_lang =
/* Texts */
"YYYY/MM/DD",
"DD.MM.YYYY",
"A",
"N"
}

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

@@ -8,6 +8,7 @@
*
* Copyright 2000 Viktor Szakats <viktor.szakats@syenar.hu> (English, from msg_tpl.c)
* Copyright 2000 Davor Siklic <siki@msoft.cz>
* Copyright 2006 Vojtech Obrdlik <vobrdlik@centrum.cz>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -96,73 +97,71 @@ static HB_LANG s_lang =
/* CA-Cl*pper compatible natmsg items */
"Database Files # Records Last Update Size",
"Do you want more samples?",
"Page No.",
"Databáze # Záznamù Aktualizace Velikost",
"Chcete více pøíkladù?",
"Strana",
"** Subtotal **",
"* Subsubtotal *",
"*** Total ***",
"Ins",
" ",
"Invalid date",
"Range: ",
"Chybné datum",
"Rozsah: ",
" - ",
"A/N",
"INVALID EXPRESSION",
"CHYBNÝ VÝRAZ",
/* Error description names */
"Unknown error",
"Argument error",
"Bound error",
"String overflow",
"Numeric overflow",
"Zero divisor",
"Numeric error",
"Syntax error",
"Operation too complex",
"Neznámá chyba",
"Chyba argumentu",
"Chyba mezí",
"Pøeteèení øetìzce",
"Pøeteèení èísla",
"Dìlìní nulou",
"Numerická chyba",
"Chyba syntaxe",
"Operace pøíli¹ komplexní",
"",
"",
"Memory low",
"Undefined function",
"No exported method",
"Variable does not exist",
"Alias does not exist",
"No exported variable",
"Illegal characters in alias",
"Alias already in use",
"Nedostatek pamìti",
"Nedefinovaná funkce",
"Neznámá metoda",
"Promìnná neexistuje",
"Alias neexistuje",
"Neznámá promìnná",
"Nepovolené znaky v aliasu",
"Alias ji¾ pou¾it",
"",
"Create error",
"Open error",
"Close error",
"Read error",
"Write error",
"Print error",
"Chyba vytvoøení",
"Chyba otevøení",
"Chyba zavøení",
"Chyba ètení",
"Chyba zápisu",
"Chyba tisku",
"",
"",
"",
"",
"Operation not supported",
"Limit exceeded",
"Corruption detected",
"Data type error",
"Data width error",
"Workarea not in use",
"Workarea not indexed",
"Exclusive required",
"Lock required",
"Write not allowed",
"Append lock failed",
"Lock Failure",
"Operace není podporována",
"Pøekorèen limit",
"Index po¹kozen",
"Typ dat se neshoduje",
"Chyba ¹íøky dat",
"Pracovní oblast není pou¾ita",
"Není otevøen index",
"Po¾adováno uzamknutí",
"Zámek pøi pøidání záznamu selhal",
"Zámek selhal",
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",
"not an array",
"conditional",
"pøístup k poli",
"pøiøazení pole",
"zmìna dimenze pole",
"není pole",
"podmínka",
/* Internal error names */
@@ -195,7 +194,7 @@ static HB_LANG s_lang =
/* Texts */
"YYYY/MM/DD",
"DD.MM.YYYY",
"A",
"N"
}

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

@@ -8,6 +8,7 @@
*
* Copyright 2000 Viktor Szakats <viktor.szakats@syenar.hu> (English, from msg_tpl.c)
* Copyright 2000 Davor Siklic <siki@msoft.cz>
* Copyright 2006 Vojtech Obrdlik <vobrdlik@centrum.cz>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -64,9 +65,9 @@ static HB_LANG s_lang =
"CSKAM", /* ID */
"Czech", /* Name (in English) */
"?esky", /* Name (in native language) */
"€esky", /* Name (in native language) */
"CS", /* RFC ID */
"KAM", /* Codepage */
"895(KAM)", /* Codepage */
"$Revision$ $Date$", /* Version */
/* Month names */
@@ -75,9 +76,9 @@ static HB_LANG s_lang =
"£nor",
"b©ezen",
"duben",
"kv^ten",
"?erven",
"?ervenec",
"kvˆten",
"‡erven",
"‡ervenec",
"srpen",
"z ©¡",
"©¡jen",
@@ -86,83 +87,81 @@ static HB_LANG s_lang =
/* Day names */
"ned^le",
"pond^l¡",
"£ter~",
"nedˆle",
"pondˆl¡",
"£ter˜",
"st©eda",
"?tvrtek",
"‡tvrtek",
"p tek",
"sobota",
/* CA-Cl*pper compatible natmsg items */
"Database Files # Records Last Update Size",
"Do you want more samples?",
"Page No.",
"Datab ze # Z znam– Aktualizace Velikost",
"Chcete v¡ce p©¡klad–?",
"Strana",
"** Subtotal **",
"* Subsubtotal *",
"*** Total ***",
"Ins",
" ",
"Invalid date",
"Range: ",
"Chybn‚ datum",
"Rozsah: ",
" - ",
"A/N",
"INVALID EXPRESSION",
"CHYBN<EFBFBD> V<>RAZ",
/* Error description names */
"Unknown error",
"Argument error",
"Bound error",
"String overflow",
"Numeric overflow",
"Zero divisor",
"Numeric error",
"Syntax error",
"Operation too complex",
"Nezn m  chyba",
"Chyba argumentu",
"Chyba mez¡",
"P©ete‡en¡ ©etˆzce",
"P©ete‡en¡ ‡¡sla",
"Dˆlˆn¡ nulou",
"Numerick  chyba",
"Chyba syntaxe",
"Operace p©¡li¨ komplexn¡",
"",
"",
"Memory low",
"Undefined function",
"No exported method",
"Variable does not exist",
"Alias does not exist",
"No exported variable",
"Illegal characters in alias",
"Alias already in use",
"Nedostatek pamˆti",
"Nedefinovan  funkce",
"Nezn m  metoda",
"Promˆnn  neexistuje",
"Alias neexistuje",
"Nezn m  promˆnn ",
"Nepovolen‚ znaky v aliasu",
"Alias ji‘ pou‘it",
"",
"Create error",
"Open error",
"Close error",
"Read error",
"Write error",
"Print error",
"Chyba vytvo©en¡",
"Chyba otev©en¡",
"Chyba zav©en¡",
"Chyba ‡ten¡",
"Chyba z pisu",
"Chyba tisku",
"",
"",
"",
"",
"Operation not supported",
"Limit exceeded",
"Corruption detected",
"Data type error",
"Data width error",
"Workarea not in use",
"Workarea not indexed",
"Exclusive required",
"Lock required",
"Write not allowed",
"Append lock failed",
"Lock Failure",
"Operace nen¡ podporov na",
"P©ekor‡en limit",
"Index po¨kozen",
"Typ dat se neshoduje",
"Chyba ¨¡©ky dat",
"Pracovn¡ oblast nen¡ pou‘ita",
"Nen¡ otev©en index",
"Po‘adov no uzamknut¡",
"Z mek p©i p©id n¡ z znamu selhal",
"Z mek selhal",
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",
"not an array",
"conditional",
"p©¡stup k poli",
"p©i©azen¡ pole",
"zmˆna dimenze pole",
"nen¡ pole",
"podm¡nka",
/* Internal error names */
@@ -195,7 +194,7 @@ static HB_LANG s_lang =
/* Texts */
"YYYY/MM/DD",
"DD.MM.YYYY",
"A",
"N"
}

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

@@ -9,6 +9,7 @@
* Copyright 2000 Viktor Szakats <viktor.szakats@syenar.hu> (English, from msg_tpl.c)
* Copyright 2000 Roman Masek <woodoo@iol.cz>
* Copyright 2000 Davor Siklic <siki@msoft.cz>
* Copyright 2006 Vojtech Obrdlik <vobrdlik@centrum.cz>
* www - http://www.harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -64,10 +65,10 @@ static HB_LANG s_lang =
/* Identification */
"CSWIN", /* ID */
"Czech", /* Name (in English) */
"Èesky", /* Name (in native language) */
"CS", /* RFC ID */
"1250", /* Codepage */
"Czech", /* Name (in English) */
"Èesky", /* Name (in native language) */
"CS", /* RFC ID */
"1250", /* Codepage */
"$Revision$ $Date$", /* Version */
/* Month names */
@@ -97,75 +98,73 @@ static HB_LANG s_lang =
/* CA-Cl*pper compatible natmsg items */
"Database Files # Records Last Update Size",
"Do you want more samples?",
"Page No.",
"Databáze # Záznamù Aktualizace Velikost",
"Chcete více pøíkladù?",
"Strana",
"** Subtotal **",
"* Subsubtotal *",
"*** Total ***",
"Ins",
" ",
"Invalid date",
"Range: ",
"Chybné datum",
"Rozsah: ",
" - ",
"A/N",
"INVALID EXPRESSION",
"CHYBNÝ VÝRAZ",
/* Error description names */
"Unknown error",
"Argument error",
"Bound error",
"String overflow",
"Numeric overflow",
"Zero divisor",
"Numeric error",
"Syntax error",
"Operation too complex",
"Neznámá chyba",
"Chyba argumentu",
"Chyba mezí",
"Pøeteèení øetìzce",
"Pøeteèení èísla",
"Dìlìní nulou",
"Numerická chyba",
"Chyba syntaxe",
"Operace pøíliš komplexní",
"",
"",
"Memory low",
"Undefined function",
"No exported method",
"Variable does not exist",
"Alias does not exist",
"No exported variable",
"Illegal characters in alias",
"Alias already in use",
"Nedostatek pamìti",
"Nedefinovaná funkce",
"Neznámá metoda",
"Promìnná neexistuje",
"Alias neexistuje",
"Neznámá promìnná",
"Nepovolené znaky v aliasu",
"Alias již použit",
"",
"Create error",
"Open error",
"Close error",
"Read error",
"Write error",
"Print error",
"Chyba vytvoøení",
"Chyba otevøení",
"Chyba zavøení",
"Chyba ètení",
"Chyba zápisu",
"Chyba tisku",
"",
"",
"",
"",
"Operation not supported",
"Limit exceeded",
"Corruption detected",
"Data type error",
"Data width error",
"Workarea not in use",
"Workarea not indexed",
"Exclusive required",
"Lock required",
"Write not allowed",
"Append lock failed",
"Lock Failure",
"Operace není podporována",
"Pøekorèen limit",
"Index poškozen",
"Typ dat se neshoduje",
"Chyba šíøky dat",
"Pracovní oblast není použita",
"Není otevøen index",
"Požadováno uzamknutí",
"Zámek pøi pøidání záznamu selhal",
"Zámek selhal",
"",
"",
"",
"",
"array access",
"array assign",
"array dimension",
"not an array",
"conditional",
"pøístup k poli",
"pøiøazení pole",
"zmìna dimenze pole",
"není pole",
"podmínka",
/* Internal error names */
/* Internal error names */
"Unrecoverable error %lu: ",
"Error recovery failure",

4
harbour/source/pp/pplib.c
View File

@@ -222,7 +222,7 @@ void hb_compGenError( char * szErrors[], char cPrefix, int iError, const char *
HB_SYMBOL_UNUSED( cPrefix );
HB_TRACE(HB_TR_DEBUG, ("GenError(%p, %c, %d, %s, %s)", szErrors, cPrefix, iError, szError1, szError2));
HB_TRACE(HB_TR_DEBUG, ("hb_compGenError(%p, %c, %d, %s, %s)", szErrors, cPrefix, iError, szError1, szError2));
/* TOFIX: The internal buffers allocated by the preprocessor should be
deallocated here */
@@ -237,7 +237,7 @@ void hb_compGenError( char * szErrors[], char cPrefix, int iError, const char *
void hb_compGenWarning( char * szWarnings[], char cPrefix, int iWarning, const char * szWarning1, const char * szWarning2 )
{
HB_TRACE(HB_TR_DEBUG, ("GenWarning(%p, %c, %d, %s, %s)", szWarnings, cPrefix, iWarning, szWarning1, szWarning2));
HB_TRACE(HB_TR_DEBUG, ("hb_compGenWarning(%p, %c, %d, %s, %s)", szWarnings, cPrefix, iWarning, szWarning1, szWarning2));
/* NOTE: All warnings are simply ignored */

2
harbour/source/rdd/dblist.prg
View File

@@ -80,7 +80,7 @@ PROCEDURE __dbList( lOff, abEval, lAll, bFor, bWhile, nNext, nRecord, lRest, lTo
/* Save SETs */
IF !Empty( lToPrint )
lOldPrinter := Set(_SET_PRINTER, .T. )
lOldPrinter := Set( _SET_PRINTER, .T. )
ENDIF
IF !Empty( cToFileName )
hb_FNameSplit( cToFileName, @cPath, @cName, @cExt )

7
harbour/source/rdd/dbsort.prg
View File

@@ -64,13 +64,12 @@ FUNCTION __dbSort( cToFileName, aFields, bFor, bWhile, nNext, nRecord, lRest,;
LOCAL oError
LOCAL lError := .F.
nOldArea := Select()
aStruct := dbStruct()
IF Empty( aStruct )
IF Empty( aStruct := dbStruct() )
RETURN .F.
ENDIF
nOldArea := Select()
BEGIN SEQUENCE
dbCreate( cToFileName, aStruct, cRDD, .T., "", NIL, cCodePage, nConnection )

10
harbour/source/rdd/dbstrux.prg
View File

@@ -132,9 +132,8 @@ FUNCTION __dbCreate( cFileName, cFileFrom, cRDD, lNew, cAlias, cCodePage, nConne
ELSE
dbUseArea( lNew, NIL, cFileFrom, "" )
/* ; Harbour does some extra RTrim()-ing here. */
dbEval( {|| AAdd( aStruct, { RTrim( FIELD->FIELD_NAME ) ,;
RTrim( FIELD->FIELD_TYPE ) ,;
dbEval( {|| AAdd( aStruct, { FIELD->FIELD_NAME ,;
FIELD->FIELD_TYPE ,;
FIELD->FIELD_LEN ,;
FIELD->FIELD_DEC } ) } )
dbCloseArea()
@@ -143,7 +142,10 @@ FUNCTION __dbCreate( cFileName, cFileFrom, cRDD, lNew, cAlias, cCodePage, nConne
dbSelectArea( nOldArea )
ENDIF
AEval( aStruct, {| aField | iif( aField[ DBS_TYPE ] == "C" .AND. aField[ DBS_DEC ] != 0,;
/* Type detection is more in sync with dbCreate() logic in Harbour, as lowercase "C"
and padded/continued strings ("C ", "C...") are also accepted. */
AEval( aStruct, {| aField | iif( Upper( Left( aField[ DBS_TYPE ], 1 ) ) == "C" .AND. aField[ DBS_DEC ] != 0,;
( aField[ DBS_LEN ] += aField[ DBS_DEC ] * 256,;
aField[ DBS_DEC ] := 0 ), NIL ) } )