From f95ef77895d2d68ddc52ccbf7d8d2a52d34c6f3d Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 23 Dec 2001 09:19:10 +0000 Subject: [PATCH] 2001-12-23 10:18 UTC+0100 Viktor Szakats --- harbour/ChangeLog | 11 ++++++++++- harbour/include/hbapi.h | 10 ++++------ harbour/include/hbundoc.api | 7 ++++++- harbour/source/rtl/filesys.c | 22 +++++++++++----------- 4 files changed, 31 insertions(+), 19 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 55eb84467e..1d244a7970 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,16 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ * contrib/libmisc/Makefile + contrib/libgt/Make_b32.bat + * Added the Lib prefix from library name + + contrib/htmllib/*.prg + ! Fixed all return value checking for the Win32 API + contrib/htmllib/Makefile.bc + contrib/htmllib/Makefile + * Sources and neccessary files to build htmllib-harbour cgi library + * include/hbcommon.api +2001-12-25 11:45 UTC+0700 Andi Jahja + + source/compiler/harbour.simple add a derivative copy of bison.simple v 1.28 which will be used as the standard bison skeleton output parser for the purpose of Harbour project in order to have a uniform parser code. Developers are expected @@ -27,7 +37,6 @@ * include/hbundoc.api * Some compatibility #defines moved to its place. - 2001-12-22 11:30 UTC+0100 Antonio Linares * source/vm/dynlibhb.c + New function hb_StartApp() added diff --git a/harbour/include/hbapi.h b/harbour/include/hbapi.h index 964805ec0a..b2c32f38d5 100644 --- a/harbour/include/hbapi.h +++ b/harbour/include/hbapi.h @@ -545,12 +545,10 @@ extern char * hb_macroExpandString( char *szString, ULONG ulLength, BOOL *pbNewS /* garbage collector */ #define HB_GARBAGE_FUNC( hbfunc ) void hbfunc( void * Cargo ) /* callback function for cleaning garbage memory pointer */ typedef HB_GARBAGE_FUNC( HB_GARBAGE_FUNC_ ); -typedef HB_GARBAGE_FUNC_ *HB_GARBAGE_FUNC_PTR; +typedef HB_GARBAGE_FUNC_ * HB_GARBAGE_FUNC_PTR; extern HB_ITEM_PTR hb_gcGripGet( HB_ITEM_PTR pItem ); -extern void hb_gcGripDrop( HB_ITEM_PTR pItem ); -#define _getGrip hb_gcGripGet -#define _getDrop hb_gcGripDrop +extern void hb_gcGripDrop( HB_ITEM_PTR pItem ); extern void * hb_gcAlloc( ULONG ulSize, HB_GARBAGE_FUNC_PTR pFunc ); /* allocates a memory controlled by the garbage collector */ extern void hb_gcFree( void *pAlloc ); /* deallocates a memory allocated by the garbage collector */ @@ -579,7 +577,7 @@ extern char * hb_verHarbour( void ); /* retrieves a newly allocated buffer conta extern void hb_verBuildInfo( void ); /* display harbour, compiler, and platform versions to standard console */ /* environment variables access */ -/* WARNING: This returned pointer must be freed using hb_xfree( ( void * ) ptr ); */ +/* WARNING: This returned pointer must be freed if not NULL using hb_xfree( ( void * ) ptr ); */ extern char * hb_getenv( const char * name ); /* Version tracking related things */ @@ -599,4 +597,4 @@ extern char * hb_getenv( const char * name ); } #endif -#endif /* HB_APIEXT_H_ */ \ No newline at end of file +#endif /* HB_APIEXT_H_ */ diff --git a/harbour/include/hbundoc.api b/harbour/include/hbundoc.api index 831313116b..a08d8be4d0 100644 --- a/harbour/include/hbundoc.api +++ b/harbour/include/hbundoc.api @@ -68,6 +68,11 @@ #define _cEval0 hb_evalBlock0 #define _cEval1 hb_evalBlock1 +/* Undocumented CA-Cl*pper misc functions */ + +#define _getGrip hb_gcGripGet +#define _getDrop hb_gcGripDrop + /* Undocumented CA-Cl*pper TSupport API */ #define _tchdir hb_fsChDir @@ -99,4 +104,4 @@ #define _bcmp memcmp #define _bscan(p,cnt,c) memchr( p, c, cnt ) -#endif /* HB_UNDOC_API_ */ \ No newline at end of file +#endif /* HB_UNDOC_API_ */ diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c index 5dc24adb11..eb0a357b22 100644 --- a/harbour/source/rtl/filesys.c +++ b/harbour/source/rtl/filesys.c @@ -1030,8 +1030,8 @@ BOOL hb_fsDelete( BYTE * pFilename ) #if defined(HB_OS_WIN_32) - bResult = ( DeleteFile( ( char * ) pFilename ) == 0 ); - s_uiErrorLast = (USHORT) GetLastError(); + bResult = DeleteFile( ( char * ) pFilename ); + s_uiErrorLast = ( USHORT ) GetLastError(); #elif defined(HAVE_POSIX_IO) @@ -1063,8 +1063,8 @@ BOOL hb_fsRename( BYTE * pOldName, BYTE * pNewName ) #if defined(HB_OS_WIN_32) - bResult = ( MoveFile( ( char * ) pOldName, ( char * ) pNewName ) == 0 ); - s_uiErrorLast = (USHORT) GetLastError(); + bResult = MoveFile( ( char * ) pOldName, ( char * ) pNewName ); + s_uiErrorLast = ( USHORT ) GetLastError(); #elif defined(HB_FS_FILE_IO) @@ -1306,8 +1306,8 @@ BOOL hb_fsMkDir( BYTE * pDirname ) #if defined(HB_OS_WIN_32) - bResult = ( CreateDirectory( ( char * ) pDirname, NULL ) == 0 ); - s_uiErrorLast = (USHORT) GetLastError(); + bResult = CreateDirectory( ( char * ) pDirname, NULL ); + s_uiErrorLast = ( USHORT ) GetLastError(); #elif defined(HAVE_POSIX_IO) || defined(__MINGW32__) @@ -1339,8 +1339,8 @@ BOOL hb_fsChDir( BYTE * pDirname ) #if defined(HB_OS_WIN_32) - bResult = ( SetCurrentDirectory( ( char * ) pDirname ) == 0 ); - s_uiErrorLast = (USHORT) GetLastError(); + bResult = SetCurrentDirectory( ( char * ) pDirname ); + s_uiErrorLast = ( USHORT ) GetLastError(); #elif defined(HAVE_POSIX_IO) || defined(__MINGW32__) @@ -1366,8 +1366,8 @@ BOOL hb_fsRmDir( BYTE * pDirname ) #if defined(HB_OS_WIN_32) - bResult = ( RemoveDirectory( ( char * ) pDirname ) == 0 ); - s_uiErrorLast = (USHORT) GetLastError(); + bResult = RemoveDirectory( ( char * ) pDirname ); + s_uiErrorLast = ( USHORT ) GetLastError(); #elif defined(HAVE_POSIX_IO) || defined(__MINGW32__) @@ -1413,7 +1413,7 @@ USHORT hb_fsCurDirBuff( USHORT uiDrive, BYTE * pbyBuffer, ULONG ulLen ) #if defined(HB_OS_WIN_32) GetCurrentDirectory( ulLen, ( char * ) pbyBuffer ); - s_uiErrorLast = (USHORT) GetLastError(); + s_uiErrorLast = ( USHORT ) GetLastError(); #elif defined(HAVE_POSIX_IO)