From bdcde409a9b65094a7f30485db2624a5f1f50d0c Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Tue, 15 Jun 2010 11:38:31 +0000 Subject: [PATCH] 2010-06-15 13:38 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/xhb/xhbfs.c ! Fixed ISDIRECTORY() to work like originally intended. This effectively reverts breakage caused by this change: 2009-07-06 10:06 UTC+0100 Miguel Angel Marchuet * source/rtl/file.c * Changed IsDirectory to fix IsDirectory( "\\machine\c" ) style call under windows platforms. BTW, in Harbour to achieve above effect, you can use native HB_DIREXISTS( "\\machine\c" ) function call. --- harbour/ChangeLog | 11 +++++++++++ harbour/contrib/xhb/xhbfs.c | 2 +- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f97a1ac1fb..bce4d44c6d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,17 @@ The license applies to all entries newer than 2009-04-28. */ +2010-06-15 13:38 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * contrib/xhb/xhbfs.c + ! Fixed ISDIRECTORY() to work like originally intended. + This effectively reverts breakage caused by this change: + 2009-07-06 10:06 UTC+0100 Miguel Angel Marchuet + * source/rtl/file.c + * Changed IsDirectory to fix IsDirectory( "\\machine\c" ) style call + under windows platforms. + BTW, in Harbour to achieve above effect, you can use + native HB_DIREXISTS( "\\machine\c" ) function call. + 2010-06-15 13:06 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * harbour-win-spec * harbour-wce-spec diff --git a/harbour/contrib/xhb/xhbfs.c b/harbour/contrib/xhb/xhbfs.c index bb82971218..174dea4b13 100644 --- a/harbour/contrib/xhb/xhbfs.c +++ b/harbour/contrib/xhb/xhbfs.c @@ -57,7 +57,7 @@ HB_FUNC( ISDIRECTORY ) { HB_BOOL bRetVal; -#if defined( __PLATFORM__WINDOWS ) +#if defined( __PLATFORM__WINDOWS ) && 0 /* Document, but don't replicate xhb bug. */ bRetVal = hb_fsDirExists( hb_parcx( 1 ) ); #else {