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

2012-01-30 14:33 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* harbour/include/harbour.hbx
    + added HB_FUNC_EXCLUDE HB_MT
      TOFIX: it also disabled HB_MTVM() function. It should not happen.

  * harbour/include/hbcpage.hbx
    + added HB_FUNC_EXCLUDE HB_CODEPAGE_BIG5

  * harbour/include/harbour.hbx
  * harbour/include/hbusrrdd.hbx
  * harbour/include/hbscalar.hbx
  * harbour/include/hblang.hbx
  * harbour/include/hbcpage.hbx
    * regenerated automatically

  * harbour/src/rtl/valtype.c
    + added new PRG function: HB_ISHASHKEY( <xVal> ) -> <lValidHashKey>

  * harbour/src/lang/msgskiso.c
  * harbour/src/lang/msgskwin.c
  * harbour/src/lang/msgskkam.c
  * harbour/src/lang/msgsk852.c
    * modification in Slovak CPs by Jaroslav Janik - many thanks.
This commit is contained in:
Przemyslaw Czerpak
2012-01-30 13:33:49 +00:00
parent ac6efa8cbb
commit c68616972b
11 changed files with 103 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
harbour/ChangeLog
View File

@@ -16,6 +16,30 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-01-30 14:33 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/include/harbour.hbx
+ added HB_FUNC_EXCLUDE HB_MT
TOFIX: it also disabled HB_MTVM() function. It should not happen.
* harbour/include/hbcpage.hbx
+ added HB_FUNC_EXCLUDE HB_CODEPAGE_BIG5
* harbour/include/harbour.hbx
* harbour/include/hbusrrdd.hbx
* harbour/include/hbscalar.hbx
* harbour/include/hblang.hbx
* harbour/include/hbcpage.hbx
* regenerated automatically
* harbour/src/rtl/valtype.c
+ added new PRG function: HB_ISHASHKEY( <xVal> ) -> <lValidHashKey>
* harbour/src/lang/msgskiso.c
* harbour/src/lang/msgskwin.c
* harbour/src/lang/msgskkam.c
* harbour/src/lang/msgsk852.c
* modification in Slovak CPs by Jaroslav Janik - many thanks.
2012-01-30 14:38 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* ChangeLog
! fixed multiple typos in previous ChangeLog entry

19
harbour/include/harbour.hbx
View File

@@ -24,6 +24,7 @@
// HB_FUNC_EXCLUDE HBNUMERIC
// HB_FUNC_EXCLUDE HBSYMBOL
// HB_FUNC_EXCLUDE HBTIMESTAMP
// HB_FUNC_EXCLUDE HB_MT
/* -------------------------------------------------------------------- */
/* WARNING: Automatically generated code below. DO NOT EDIT! */
@@ -34,11 +35,11 @@
#ifndef __HBEXTERN_CH__HARBOUR__
#define __HBEXTERN_CH__HARBOUR__
#ifdef __HBEXTERN__HARBOUR__ANNOUNCE
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HARBOUR__ANNOUNCE )
ANNOUNCE __HBEXTERN__HARBOUR__
#endif
#ifdef __HBEXTERN__HARBOUR__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HARBOUR__REQUEST )
#command DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif
@@ -382,14 +383,14 @@ DYNAMIC HB_DBRENAME
DYNAMIC HB_DBREQUEST
DYNAMIC HB_DBZAP
DYNAMIC HB_DESERIALIZE
DYNAMIC HB_DIRSEPADD
DYNAMIC HB_DIRSEPDEL
DYNAMIC HB_DIRBASE
DYNAMIC HB_DIRBUILD
DYNAMIC HB_DIRCREATE
DYNAMIC HB_DIRDELETE
DYNAMIC HB_DIREXISTS
DYNAMIC HB_DIRSCAN
DYNAMIC HB_DIRSEPADD
DYNAMIC HB_DIRSEPDEL
DYNAMIC HB_DIRTEMP
DYNAMIC HB_DIRUNBUILD
DYNAMIC HB_DISABLEWAITLOCKS
@@ -508,8 +509,8 @@ DYNAMIC HB_HOUR
DYNAMIC HB_HPAIRAT
DYNAMIC HB_HPOS
DYNAMIC HB_HRBDO
DYNAMIC HB_HRBGETFUNSYM
DYNAMIC HB_HRBGETFUNLIST
DYNAMIC HB_HRBGETFUNSYM
DYNAMIC HB_HRBLOAD
DYNAMIC HB_HRBRUN
DYNAMIC HB_HRBSIGNATURE
@@ -599,6 +600,7 @@ DYNAMIC HB_ISCHAR
DYNAMIC HB_ISDATE
DYNAMIC HB_ISDATETIME
DYNAMIC HB_ISHASH
DYNAMIC HB_ISHASHKEY
DYNAMIC HB_ISLOGICAL
DYNAMIC HB_ISMEMO
DYNAMIC HB_ISNIL
@@ -649,7 +651,6 @@ DYNAMIC HB_METHODNAME
DYNAMIC HB_MILLISECONDS
DYNAMIC HB_MINUTE
DYNAMIC HB_MMIDDLEDOWN
DYNAMIC HB_MTVM
DYNAMIC HB_MUTEXCREATE
DYNAMIC HB_MUTEXEVAL
DYNAMIC HB_MUTEXLOCK
@@ -681,10 +682,11 @@ DYNAMIC HB_OSPATHDELIMITERS
DYNAMIC HB_OSPATHLISTSEPARATOR
DYNAMIC HB_OSPATHSEPARATOR
DYNAMIC HB_PATHJOIN
DYNAMIC HB_PATHRELATIVIZE
DYNAMIC HB_PATHNORMALIZE
DYNAMIC HB_PATHRELATIVIZE
DYNAMIC HB_PCODEVER
DYNAMIC HB_PISBYREF
DYNAMIC HB_POPUPMENU
DYNAMIC HB_PREAD
DYNAMIC HB_PROCESSCLOSE
DYNAMIC HB_PROCESSOPEN
@@ -806,6 +808,7 @@ DYNAMIC HB_TRACELEVEL
DYNAMIC HB_TRACELOG
DYNAMIC HB_TRACELOGAT
DYNAMIC HB_TRACELOGLEVEL
DYNAMIC HB_TRACEMODE
DYNAMIC HB_TRACESTATE
DYNAMIC HB_TRACESTRING
DYNAMIC HB_TRACESYSOUT
@@ -1446,7 +1449,7 @@ DYNAMIC __XHELP
DYNAMIC __XRESTSCREEN
DYNAMIC __XSAVESCREEN
#ifdef __HBEXTERN__HARBOUR__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HARBOUR__REQUEST )
#uncommand DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif

10
harbour/include/hbcpage.hbx
View File

@@ -10,6 +10,7 @@
/* -------------------------------------------------------------------- */
// HB_FUNC_INCLUDE HB_CODEPAGE_*
// HB_FUNC_EXCLUDE HB_CODEPAGE_BIG5
/* -------------------------------------------------------------------- */
/* WARNING: Automatically generated code below. DO NOT EDIT! */
@@ -20,11 +21,11 @@
#ifndef __HBEXTERN_CH__HBCPAGE__
#define __HBEXTERN_CH__HBCPAGE__
#ifdef __HBEXTERN__HBCPAGE__ANNOUNCE
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBCPAGE__ANNOUNCE )
ANNOUNCE __HBEXTERN__HBCPAGE__
#endif
#ifdef __HBEXTERN__HBCPAGE__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBCPAGE__REQUEST )
#command DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif
@@ -117,8 +118,11 @@ DYNAMIC HB_CODEPAGE_UA1125
DYNAMIC HB_CODEPAGE_UA1251
DYNAMIC HB_CODEPAGE_UA866
DYNAMIC HB_CODEPAGE_UAKOI8
DYNAMIC HB_CODEPAGE_UTF16LE
DYNAMIC HB_CODEPAGE_UTF8
DYNAMIC HB_CODEPAGE_UTF8ASC
#ifdef __HBEXTERN__HBCPAGE__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBCPAGE__REQUEST )
#uncommand DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif

6
harbour/include/hblang.hbx
View File

@@ -20,11 +20,11 @@
#ifndef __HBEXTERN_CH__HBLANG__
#define __HBEXTERN_CH__HBLANG__
#ifdef __HBEXTERN__HBLANG__ANNOUNCE
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBLANG__ANNOUNCE )
ANNOUNCE __HBEXTERN__HBLANG__
#endif
#ifdef __HBEXTERN__HBLANG__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBLANG__REQUEST )
#command DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif
@@ -98,7 +98,7 @@ DYNAMIC HB_LANG_UAWIN
DYNAMIC HB_LANG_ZHB5
DYNAMIC HB_LANG_ZHGB
#ifdef __HBEXTERN__HBLANG__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBLANG__REQUEST )
#uncommand DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif

6
harbour/include/hbscalar.hbx
View File

@@ -28,11 +28,11 @@
#ifndef __HBEXTERN_CH__HBSCALAR__
#define __HBEXTERN_CH__HBSCALAR__
#ifdef __HBEXTERN__HBSCALAR__ANNOUNCE
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBSCALAR__ANNOUNCE )
ANNOUNCE __HBEXTERN__HBSCALAR__
#endif
#ifdef __HBEXTERN__HBSCALAR__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBSCALAR__REQUEST )
#command DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif
@@ -46,7 +46,7 @@ DYNAMIC HBNUMERIC
DYNAMIC HBSYMBOL
DYNAMIC HBTIMESTAMP
#ifdef __HBEXTERN__HBSCALAR__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBSCALAR__REQUEST )
#uncommand DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif

7
harbour/include/hbusrrdd.hbx
View File

@@ -21,11 +21,11 @@
#ifndef __HBEXTERN_CH__HBUSRRDD__
#define __HBEXTERN_CH__HBUSRRDD__
#ifdef __HBEXTERN__HBUSRRDD__ANNOUNCE
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBUSRRDD__ANNOUNCE )
ANNOUNCE __HBEXTERN__HBUSRRDD__
#endif
#ifdef __HBEXTERN__HBUSRRDD__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBUSRRDD__REQUEST )
#command DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif
@@ -116,7 +116,6 @@ DYNAMIC UR_SUPER_SYNCCHILDREN
DYNAMIC UR_SUPER_TRANS
DYNAMIC UR_SUPER_TRANSREC
DYNAMIC UR_SUPER_UNLOCK
DYNAMIC UR_SUPER_WRITEBHEADER
DYNAMIC UR_SUPER_WRITEDBHEADER
DYNAMIC UR_SUPER_ZAP
DYNAMIC USRRDD_AREADATA
@@ -130,7 +129,7 @@ DYNAMIC USRRDD_SETEOF
DYNAMIC USRRDD_SETFOUND
DYNAMIC USRRDD_SETTOP
#ifdef __HBEXTERN__HBUSRRDD__REQUEST
#if defined( __HBEXTREQ__ ) .OR. defined( __HBEXTERN__HBUSRRDD__REQUEST )
#uncommand DYNAMIC <fncs,...> => EXTERNAL <fncs>
#endif

21
harbour/src/lang/msgsk852.c
View File

@@ -6,7 +6,8 @@
* Harbour Project source code:
* Language Support Module (SK852) SK852
*
* Copyright 2008 Gyula Bartal <bartal@tauris-danubius.sk> (from msgskwin.c)
* Copyright 2008,2012 Gyula Bartal <gybartal@gmail.com> (from msgskwin.c)
* Update December 25, 2011 Jaroslav Janik <Jaroslav.Janik@siemens.com>
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -118,7 +119,7 @@ static HB_LANG s_lang =
"Preplnenie Ÿ¡sla",
"Delenie nulou",
"Numerick  chyba",
"Chyba syntaxe",
"Syntaktick  chyba",
"Oper cia pr¡liç komplexn ",
"",
"",
@@ -129,7 +130,7 @@ static HB_LANG s_lang =
"Oblasœ neexistuje",
"Nezn ma premenn ",
"Nepovolen‚ znaky v oblasti",
"Oblasœ u§ pou§it ",
"Oblasœ je u§ pou§it ",
"",
"Chyba vytvorenia",
"Chyba otvorenia",
@@ -141,7 +142,7 @@ static HB_LANG s_lang =
"",
"",
"",
"Nepodporov na oper cia",
"Nepodporovan  oper cia",
"PrekroŸenì limit",
"Index poçkodenì",
"Chyba typu d t",
@@ -150,16 +151,16 @@ static HB_LANG s_lang =
"Nezoraden  pracovn  oblasœ",
"Nutnì vìhradnì pr¡stup",
"Uzamknutie nutn‚",
"Zlyhanie z mka pri prid v nie",
"Zlyhanie z mka",
"Zlyhanie uzamkutia pri prid van¡",
"Zlyhanie uzamknutia",
"",
"",
"",
"",
"pr¡stup k polom",
"priradenie k pole",
"zmena dimenze pole",
"nie je polom",
"pr¡stup k po–u",
"priradenie k po–u",
"zmena dimenze po–a",
"nie je to pole",
"podmienka",
/* Internal error names */

23
harbour/src/lang/msgskiso.c
View File

@@ -6,7 +6,8 @@
* Harbour Project source code:
* Language Support Module (SK ISO-8859-2)
*
* Copyright 2008 Gyula Bartal <bartal@tauris-danubius.sk> (from msgskwin.c)
* Copyright 2008,2012 Gyula Bartal <gybartal@gmail.com> (from msgskwin.c)
* Update December 25, 2011 Jaroslav Janik <Jaroslav.Janik@siemens.com>
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -118,18 +119,18 @@ static HB_LANG s_lang =
"Preplnenie èísla",
"Delenie nulou",
"Numerická chyba",
"Chyba syntaxe",
"Syntaktická chyba",
"Operácia príli¹ komplexná",
"",
"",
"Nedostatok pamäte",
"Nedefinovaná funkcia",
"Neznámá metóda",
"Neznáma metóda",
"Premenná neexistuje",
"Oblas» neexistuje",
"Neznáma premenná",
"Nepovolené znaky v oblasti",
"Oblas» u¾ pou¾itá",
"Oblas» je u¾ pou¾itá",
"",
"Chyba vytvorenia",
"Chyba otvorenia",
@@ -141,7 +142,7 @@ static HB_LANG s_lang =
"",
"",
"",
"Nepodporována operácia",
"Nepodporovaná operácia",
"Prekroèený limit",
"Index po¹kodený",
"Chyba typu dát",
@@ -150,16 +151,16 @@ static HB_LANG s_lang =
"Nezoradená pracovná oblas»",
"Nutný výhradný prístup",
"Uzamknutie nutné",
"Zlyhanie zámka pri pridávánie",
"Zlyhanie zámka",
"Zlyhanie uzamkutia pri pridávaní",
"Zlyhanie uzamknutia",
"",
"",
"",
"",
"prístup k polom",
"priradenie k pole",
"zmena dimenze pole",
"nie je polom",
"prístup k poµu",
"priradenie k poµu",
"zmena dimenze poµa",
"nie je to pole",
"podmienka",
/* Internal error names */

23
harbour/src/lang/msgskkam.c
View File

@@ -6,7 +6,8 @@
* Harbour Project source code:
* Language Support Module (SK Kamenicky ["895"])
*
* Copyright 2008 Gyula Bartal <bartal@tauris-danubius.sk> (from msgskwin.c)
* Copyright 2008,2012 Gyula Bartal <gybartal@gmail.com> (from msgskwin.c)
* Update December 25, 2011 Jaroslav Janik <Jaroslav.Janik@siemens.com>
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -118,18 +119,18 @@ static HB_LANG s_lang =
"Preplnenie ‡¡sla",
"Delenie nulou",
"Numerick  chyba",
"Chyba syntaxe",
"Syntaktick  chyba",
"Oper cia pr¡li¨ komplexn ",
"",
"",
"Nedostatok pam„te",
"Nedefinovan  funkcia",
"Nezn m  met¢da",
"Nezn ma met¢da",
"Premenn  neexistuje",
"OblasŸ neexistuje",
"Nezn ma premenn ",
"Nepovolen‚ znaky v oblasti",
"OblasŸ u‘ pou‘it ",
"OblasŸ je u‘ pou‘it ",
"",
"Chyba vytvorenia",
"Chyba otvorenia",
@@ -141,7 +142,7 @@ static HB_LANG s_lang =
"",
"",
"",
"Nepodporov na oper cia",
"Nepodporovan  oper cia",
"Prekro‡en˜ limit",
"Index po¨koden˜",
"Chyba typu d t",
@@ -150,16 +151,16 @@ static HB_LANG s_lang =
"Nezoraden  pracovn  oblasŸ",
"Nutn˜ v˜hradn˜ pr¡stup",
"Uzamknutie nutn‚",
"Zlyhanie z mka pri prid v nie",
"Zlyhanie z mka",
"Zlyhanie uzamkutia pri prid van¡",
"Zlyhanie uzamknutia",
"",
"",
"",
"",
"pr¡stup k polom",
"priradenie k pole",
"zmena dimenze pole",
"nie je polom",
"pr¡stup k poŒu",
"priradenie k poŒu",
"zmena dimenze poŒa",
"nie je to pole",
"podmienka",
/* Internal error names */

23
harbour/src/lang/msgskwin.c
View File

@@ -6,7 +6,8 @@
* Harbour Project source code:
* Language Support Module (SKWIN) WIN1250
*
* Copyright 2008 Gyula Bartal <bartal@tauris-danubius.sk> (from msgcswin.c)
* Copyright 2008,2012 Gyula Bartal <gybartal@gmail.com> (from msgcswin.c)
* Update December 25, 2011 Jaroslav Janik <Jaroslav.Janik@siemens.com>
* www - http://harbour-project.org
*
* This program is free software; you can redistribute it and/or modify
@@ -118,18 +119,18 @@ static HB_LANG s_lang =
"Preplnenie èísla",
"Delenie nulou",
"Numerická chyba",
"Chyba syntaxe",
"Syntaktická chyba",
"Operácia príliš komplexná",
"",
"",
"Nedostatok pamäte",
"Nedefinovaná funkcia",
"Neznámá metóda",
"Neznáma metóda",
"Premenná neexistuje",
"Oblas<EFBFBD> neexistuje",
"Neznáma premenná",
"Nepovolené znaky v oblasti",
"Oblas<EFBFBD> už použitá",
"Oblas<EFBFBD> je už použitá",
"",
"Chyba vytvorenia",
"Chyba otvorenia",
@@ -141,7 +142,7 @@ static HB_LANG s_lang =
"",
"",
"",
"Nepodporována operácia",
"Nepodporovaná operácia",
"Prekroèený limit",
"Index poškodený",
"Chyba typu dát",
@@ -150,16 +151,16 @@ static HB_LANG s_lang =
"Nezoradená pracovná oblas<61>",
"Nutný výhradný prístup",
"Uzamknutie nutné",
"Zlyhanie zámka pri pridávánie",
"Zlyhanie zámka",
"Zlyhanie uzamkutia pri pridávaní",
"Zlyhanie uzamknutia",
"",
"",
"",
"",
"prístup k polom",
"priradenie k pole",
"zmena dimenze pole",
"nie je polom",
"prístup k po¾u",
"priradenie k po¾u",
"zmena dimenze po¾a",
"nie je to pole",
"podmienka",
/* Internal error names */

5
harbour/src/rtl/valtype.c
View File

@@ -146,6 +146,11 @@ HB_FUNC( HB_ISHASH )
hb_retl( HB_ISHASH( 1 ) );
}
HB_FUNC( HB_ISHASHKEY )
{
hb_retl( ( hb_parinfo( 1 ) & HB_IT_HASHKEY ) != 0 );
}
HB_FUNC( HB_ISNULL )
{
PHB_ITEM pItem = hb_param( 1, HB_IT_ANY );