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

See changelog 2001-09-16 22:40 GMT -3

Browse Source
This commit is contained in:
Luiz Rafael Culik
2001-09-16 23:33:53 +00:00
parent bc990c32c6
commit 45aab7b93a
2 changed files with 27 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-09-16 20:40 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
*contrib/libct/files.c
* fixed compiler problem for MINGW
2001-09-13 06:02 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/vm/arrays.c

25
harbour/contrib/libct/files.c
View File

@@ -78,14 +78,35 @@ static struct ffblk fsOldFiles;
#include "dos.h"
#include <dir.h>
#endif
#if defined(HB_OS_WIN_32)
#if defined(HB_OS_WIN_32) || defined(__MINGW32__)
static HANDLE hLastFind;
static WIN32_FIND_DATA Lastff32;
LPTSTR GetDate(FILETIME *rTime);
LPTSTR GetTime(FILETIME *rTime);
#include <dir.h>
/*
#if defined(__MINGW32__)
#define FA_RDONLY 1
#define FA_HIDDEN 2
#define FA_SYSTEM 4
#define FA_LABEL 8
#define FA_DIREC 16
#define FA_ARCH 32
#endif
*/
#endif
#if !defined(FA_ARCH)
#define FA_RDONLY 1 /* R */
#define FA_HIDDEN 2 /* H */
#define FA_SYSTEM 4 /* S */
#define FA_LABEL 8 /* V */
#define FA_DIREC 16 /* D */
#define FA_ARCH 32 /* A */
#define FA_NORMAL 0
#endif
HB_FUNC(FILEATTR)
{
@@ -561,7 +582,7 @@ HB_FUNC(FILETIME)
}
#if defined(HB_OS_WIN_32)
#if defined(HB_OS_WIN_32) || defined(__MINGW32__)
#include <tchar.h>