From c302eef4c45bc694fd59ccfc4f49532251b7d2d4 Mon Sep 17 00:00:00 2001 From: Eddie Runia Date: Wed, 28 Jul 1999 12:38:34 +0000 Subject: [PATCH] see changelog --- harbour/ChangeLog | 4 ++++ harbour/include/run_exp.h | 2 ++ harbour/source/rtl/dir.c | 2 ++ 3 files changed, 8 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index bbe9ca1bee..eff8678052 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +19990728-14:15 CET Eddie Runia + * source/rtl/dir.c + FA_ENCRYPTED etc. only available if USE_NT has been defined + 19990728-13:10 CET Victor Szel ! source/hbpp/hbppmain.c - MakeFilename() bug fixed here, too. (see 19990728-05:40) diff --git a/harbour/include/run_exp.h b/harbour/include/run_exp.h index c721e46536..eb21b37b95 100644 --- a/harbour/include/run_exp.h +++ b/harbour/include/run_exp.h @@ -64,6 +64,7 @@ HARBOUR HB_STRDUMP(); HARBOUR HB_STRTOKEN(); HARBOUR HB_TAN(); HARBOUR HB_TANH(); +HARBOUR HB_TFILEREAD(); HARBOUR HB_TOCHAR(); HARBOUR HB_VALTYPE(); @@ -127,6 +128,7 @@ HB_INIT_SYMBOLS_BEGIN( RUNNER ) { "STRTOKEN", FS_PUBLIC, HB_STRTOKEN , 0 }, { "TAN", FS_PUBLIC, HB_TAN , 0 }, { "TANH", FS_PUBLIC, HB_TANH , 0 }, +{ "TFILEREAD", FS_PUBLIC, HB_TFILEREAD , 0 }, { "TOCHAR", FS_PUBLIC, HB_TOCHAR , 0 }, { "VALTYPE", FS_PUBLIC, HB_VALTYPE , 0 } HB_INIT_SYMBOLS_END( RUNNER ); diff --git a/harbour/source/rtl/dir.c b/harbour/source/rtl/dir.c index b39082c5a3..22b2c756e6 100644 --- a/harbour/source/rtl/dir.c +++ b/harbour/source/rtl/dir.c @@ -408,6 +408,7 @@ HARBOUR HB_DIRECTORY( void ) } /* some of these are known to work under NT - I picked the letters to use.*/ /* needs testing on a Novell drive */ +#if define(USE_NT) if (attrib & FA_ENCRYPTED) strcat(aatrib,"E"); // if (attrib & FA_NORMAL) @@ -424,6 +425,7 @@ HARBOUR HB_DIRECTORY( void ) strcat(aatrib,"O"); if (attrib & FA_NOTINDEXED) strcat(aatrib,"X"); +#endif #endif #endif /* TODO: attribute match rtn */