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

2007-04-14 13:47 UTC+0200 Francesco Saverio Giudice (info/at/fsgiudice.com)

Browse Source 
* harbour/include/hbcompat.ch
     * added xharbour compatible hash translations
This commit is contained in:
Francesco Saverio Giudice
2007-04-14 11:47:04 +00:00
parent 2373b7f087
commit 7ffd80019b
2 changed files with 37 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-04-14 13:47 UTC+0200 Francesco Saverio Giudice (info/at/fsgiudice.com)
* harbour/include/hbcompat.ch
* added xharbour compatible hash translations
2007-04-14 13:36 UTC+0200 Francesco Saverio Giudice (info/at/fsgiudice.com)
* harbour/bin/bld.bat
* added HB_USER_LIB var to bcc link line to make usable bldtest.bat

33
harbour/include/hbcompat.ch
View File

@@ -31,4 +31,37 @@
#xcommand DEFAULT => OTHERWISE
#endif
#if !defined( HB_COMPAT_XHB )
#xtranslate HASH([<x,...>]) => HB_HASH([<x>])
#xtranslate HHASKEY([<x,...>]) => HB_HHASKEY([<x>])
#xtranslate HGETPOS([<x,...>]) => HB_HPOS([<x>])
#xtranslate HGET([<x,...>]) => HB_HGET([<x>])
#xtranslate HSET([<x,...>]) => HB_HSET([<x>])
#xtranslate HDEL([<x,...>]) => HB_HDEL([<x>])
#xtranslate HGETKEYAT([<x,...>]) => HB_HKEYAT([<x>])
#xtranslate HGETVALUEAT([<x,...>]) => HB_HVALUEAT([<x>])
#xtranslate HSETVALUEAT([<x,...>]) => HB_HVALUEAT([<x>])
#xtranslate HGETPAIRAT([<x,...>]) => HB_HPAIRAT([<x>])
#xtranslate HDELAT([<x,...>]) => HB_HDELAT([<x>])
#xtranslate HGETKEYS([<x,...>]) => HB_HKEYS([<x>])
#xtranslate HGETVALUES([<x,...>]) => HB_HVALUES([<x>])
#xtranslate HFILL([<x,...>]) => HB_HFILL([<x>])
#xtranslate HCLONE([<x,...>]) => HB_HCLONE([<x>])
#xtranslate HCOPY([<x,...>]) => HB_HCOPY([<x>])
#xtranslate HMERGE([<x,...>]) => HB_HMERGE([<x>])
#xtranslate HEVAL([<x,...>]) => HB_HEVAL([<x>])
#xtranslate HSCAN([<x,...>]) => HB_HSCAN([<x>])
#xtranslate HSETCASEMATCH( <h>,<l> ) => HB_HCASEMATCH( <h>,<l> ); <h>
#xtranslate HGETCASEMATCH([<x,...>]) => HB_HCASEMATCH([<x>])
#xtranslate HSETAUTOADD( <h>,<l> ) => HB_HAUTOADD( <h>,<l> ); <h>
#xtranslate HGETAUTOADD([<x,...>]) => HB_HAUTOADD([<x>])
#xtranslate HALLOCATE([<x,...>]) => HB_HALLOCATE([<x>])
#xtranslate HDEFAULT([<x,...>]) => HB_HDEFAULT([<x>])
#xtranslate NUMTOHEX(<n>) => NTOC(<n>, 16)
#xtranslate HEXTONUM(<c>) => CTON(<c>, 16)
#endif
#endif /* __HARBOUR__ */