diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f782c00d04..c0fa7f80bc 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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( ) -> + + * 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 diff --git a/harbour/include/harbour.hbx b/harbour/include/harbour.hbx index cb1eaea9d5..4facc7ab84 100644 --- a/harbour/include/harbour.hbx +++ b/harbour/include/harbour.hbx @@ -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 => EXTERNAL #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 => EXTERNAL #endif diff --git a/harbour/include/hbcpage.hbx b/harbour/include/hbcpage.hbx index 58459c7b95..e20b1450f5 100644 --- a/harbour/include/hbcpage.hbx +++ b/harbour/include/hbcpage.hbx @@ -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 => EXTERNAL #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 => EXTERNAL #endif diff --git a/harbour/include/hblang.hbx b/harbour/include/hblang.hbx index 9cf6c2c91e..cc29c02074 100644 --- a/harbour/include/hblang.hbx +++ b/harbour/include/hblang.hbx @@ -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 => EXTERNAL #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 => EXTERNAL #endif diff --git a/harbour/include/hbscalar.hbx b/harbour/include/hbscalar.hbx index aee9071731..8ff9251377 100644 --- a/harbour/include/hbscalar.hbx +++ b/harbour/include/hbscalar.hbx @@ -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 => EXTERNAL #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 => EXTERNAL #endif diff --git a/harbour/include/hbusrrdd.hbx b/harbour/include/hbusrrdd.hbx index d09041e804..6182b26c15 100644 --- a/harbour/include/hbusrrdd.hbx +++ b/harbour/include/hbusrrdd.hbx @@ -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 => EXTERNAL #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 => EXTERNAL #endif diff --git a/harbour/src/lang/msgsk852.c b/harbour/src/lang/msgsk852.c index 78a880ada7..78ea737bf6 100644 --- a/harbour/src/lang/msgsk852.c +++ b/harbour/src/lang/msgsk852.c @@ -6,7 +6,8 @@ * Harbour Project source code: * Language Support Module (SK852) SK852 * - * Copyright 2008 Gyula Bartal (from msgskwin.c) + * Copyright 2008,2012 Gyula Bartal (from msgskwin.c) + * Update December 25, 2011 Jaroslav Janik * 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 */ diff --git a/harbour/src/lang/msgskiso.c b/harbour/src/lang/msgskiso.c index 9a9d4c0f8e..c87ab5619a 100644 --- a/harbour/src/lang/msgskiso.c +++ b/harbour/src/lang/msgskiso.c @@ -6,7 +6,8 @@ * Harbour Project source code: * Language Support Module (SK ISO-8859-2) * - * Copyright 2008 Gyula Bartal (from msgskwin.c) + * Copyright 2008,2012 Gyula Bartal (from msgskwin.c) + * Update December 25, 2011 Jaroslav Janik * 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 */ diff --git a/harbour/src/lang/msgskkam.c b/harbour/src/lang/msgskkam.c index 61e637723e..4271354acb 100644 --- a/harbour/src/lang/msgskkam.c +++ b/harbour/src/lang/msgskkam.c @@ -6,7 +6,8 @@ * Harbour Project source code: * Language Support Module (SK Kamenicky ["895"]) * - * Copyright 2008 Gyula Bartal (from msgskwin.c) + * Copyright 2008,2012 Gyula Bartal (from msgskwin.c) + * Update December 25, 2011 Jaroslav Janik * 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 */ diff --git a/harbour/src/lang/msgskwin.c b/harbour/src/lang/msgskwin.c index ca999f7aba..91ceb90bfc 100644 --- a/harbour/src/lang/msgskwin.c +++ b/harbour/src/lang/msgskwin.c @@ -6,7 +6,8 @@ * Harbour Project source code: * Language Support Module (SKWIN) WIN1250 * - * Copyright 2008 Gyula Bartal (from msgcswin.c) + * Copyright 2008,2012 Gyula Bartal (from msgcswin.c) + * Update December 25, 2011 Jaroslav Janik * 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 */ diff --git a/harbour/src/rtl/valtype.c b/harbour/src/rtl/valtype.c index 5c91a1eccb..93c1a7246e 100644 --- a/harbour/src/rtl/valtype.c +++ b/harbour/src/rtl/valtype.c @@ -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 );