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

2008-10-21 13:17 UTC+0100 Miguel Angel Marchuet <miguelangel@marchuet.net>

Browse Source 
* contrib/xhb/hbcompat.ch
  * contrib/xhb/hbcompat.h
    + added compatibilities.
  * include/fileio.ch
  * source/rtl/filesys.c
    * minor sintax correction.
This commit is contained in:
Miguel Angel Marchuet Frutos
2008-10-21 11:16:35 +00:00
parent 5ea5b2d18a
commit 08be73b95c
5 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -8,6 +8,15 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-21 13:17 UTC+0100 Miguel Angel Marchuet <miguelangel@marchuet.net>
* contrib/xhb/hbcompat.ch
* contrib/xhb/hbcompat.h
+ added compatibilities.
* include/fileio.ch
* source/rtl/filesys.c
* minor sintax correction.
2008-10-21 09:35 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/console.c
! Fixed typo in hb_dispoutAt() numeric color handling.

4
harbour/contrib/xhb/hbcompat.ch
View File

@@ -115,6 +115,8 @@
#xtranslate hb_IniRead([<x,...>]) => hb_ReadIni(<x>)
#xtranslate hb_IniWrite([<x,...>]) => hb_WriteIni(<x>)
#xtranslate hb_DisableWaitLocks([<x>]) => DisableWaitLocks(<x>)
/* Some statement endings */
#xcommand ENDSEQUENCE => END
#xcommand ENDSWITCH => END
@@ -192,6 +194,8 @@
#xtranslate hb_ReadIni([<x,...>]) => hb_IniRead(<x>)
#xtranslate hb_WriteIni([<x,...>]) => hb_IniWrite(<x>)
#xtranslate DisableWaitLocks([<x>]) => hb_DisableWaitLocks(<x>)
#xtranslate Str(<x>,[<y>],[<y>],<z>)=> iif(<z>, hb_NToS(<x>), Str(<x>))
#xtranslate hb_CMDARGARGV([<x,...>])=> hb_ARGV(0)

1
harbour/contrib/xhb/hbcompat.h
View File

@@ -70,6 +70,7 @@
#define hb_retcAdopt( szText ) hb_retc_buffer( (szText) )
#define hb_retclenAdopt( szText, ulLen ) hb_retclen_buffer( (szText), (ulLen) )
#define hb_retclenAdoptRaw( szText, ulLen ) hb_retclen_buffer( (szText), (ulLen) )
#define hb_retcStatic( szText ) hb_retc_const( (szText) )
#define hb_storclenAdopt hb_storclen_buffer
#define hb_itemPutCRawStatic hb_itemPutCLConst

2
harbour/include/fileio.ch
View File

@@ -81,7 +81,7 @@
/* File seek mode flags */
#define FS_SET 0 /* Seek from beginning of file */
#define FS_RELATIVE 1 /* Seek from current file poitner */
#define FS_RELATIVE 1 /* Seek from current file pointer */
#define FS_END 2 /* Seek from end of file */
/* File mode flags */

3
harbour/source/rtl/filesys.c
View File

@@ -317,7 +317,7 @@ static HANDLE DosToWinHandle( HB_FHANDLE fHandle )
return GetStdHandle( STD_OUTPUT_HANDLE );
else if( fHandle == ( HB_FHANDLE ) 2 )
return GetStdHandle( STD_ERROR_HANDLE);
return GetStdHandle( STD_ERROR_HANDLE );
else
return ( HANDLE ) fHandle;
@@ -3214,3 +3214,4 @@ HB_FUNC( HB_DISABLEWAITLOCKS )
{
hb_retl( hb_fsDisableWaitLocks( ISLOG( 1 ) ? ( hb_parl( 1 ) ? 1 : 0 ) : -1 ) );
}