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

2012-10-05 10:28 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* harbour/src/rtl/philes.c
    * modified HB_CWD() to return previous path if new one is set by
      optional parameter so current syntax is:
         HB_CWD( [ <cNewWD> ] ) -> <cPrevWD>
    + set FError() in HB_CWD() function. Now programmer can check if HB_CWD()
      succeed checking result of FError() function, i.e.
            HB_CWD( cNewPath )
            IF FError() != 0
               ? "Cannot set working directory to:", cNewPath
            ELSE
               // stuff
            ENDIF
    + set FError() in the following functions:
         HB_FGETATTR(), HB_FSETATTR(),
         HB_FGETDATETIME(), HB_FSETDATETIME(),
         HB_FISDEVICE()
This commit is contained in:
Przemyslaw Czerpak
2012-10-05 08:28:51 +00:00
parent 06f0b235dd
commit 8946553dc8
2 changed files with 34 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
harbour/ChangeLog
View File

@@ -16,6 +16,24 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-10-05 10:28 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/rtl/philes.c
* modified HB_CWD() to return previous path if new one is set by
optional parameter so current syntax is:
HB_CWD( [ <cNewWD> ] ) -> <cPrevWD>
+ set FError() in HB_CWD() function. Now programmer can check if HB_CWD()
succeed checking result of FError() function, i.e.
HB_CWD( cNewPath )
IF FError() != 0
? "Cannot set working directory to:", cNewPath
ELSE
// stuff
ENDIF
+ set FError() in the following functions:
HB_FGETATTR(), HB_FSETATTR(),
HB_FGETDATETIME(), HB_FSETDATETIME(),
HB_FISDEVICE()
2012-10-05 03:01 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbformat/hbfmtcls.prg
+ added TOFIX

21
harbour/src/rtl/philes.c
View File

@@ -323,15 +323,18 @@ HB_FUNC( HB_CURDRIVE )
HB_FUNC( HB_CWD )
{
char szBuffer[ HB_PATH_MAX ];
const char * szNewWD = hb_parc( 1 );
if( szNewWD )
hb_fsSetCWD( szNewWD );
const char * szNewWD;
if( hb_fsGetCWD( szBuffer, sizeof( szBuffer ) ) )
hb_retc( szBuffer );
else
hb_retc_null();
szNewWD = hb_parc( 1 );
if( szNewWD )
hb_fsSetCWD( szNewWD );
hb_fsSetFError( hb_fsError() );
}
HB_FUNC( HB_PROGNAME )
@@ -405,6 +408,7 @@ HB_FUNC( HB_FGETATTR )
HB_FATTR nAttr;
hb_retl( hb_fsGetAttr( hb_parcx( 1 ), &nAttr ) );
hb_fsSetFError( hb_fsError() );
hb_stornl( nAttr, 2 );
}
@@ -412,6 +416,7 @@ HB_FUNC( HB_FGETATTR )
HB_FUNC( HB_FSETATTR )
{
hb_retl( hb_fsSetAttr( hb_parcx( 1 ), hb_parnl( 2 ) ) );
hb_fsSetFError( hb_fsError() );
}
HB_FUNC( HB_FSETDATETIME )
@@ -433,13 +438,18 @@ HB_FUNC( HB_FSETDATETIME )
}
hb_retl( hb_fsSetFileTime( hb_parcx( 1 ), lDate, lTime ) );
hb_fsSetFError( hb_fsError() );
}
HB_FUNC( HB_FGETDATETIME )
{
long lJulian, lMillisec;
HB_BOOL fOK;
if( hb_fsGetFileTime( hb_parcx( 1 ), &lJulian, &lMillisec ) )
fOK = hb_fsGetFileTime( hb_parcx( 1 ), &lJulian, &lMillisec );
hb_fsSetFError( hb_fsError() );
if( fOK )
{
if( HB_ISBYREF( 3 ) )
{
@@ -477,6 +487,7 @@ HB_FUNC( HB_FSETDEVMODE )
HB_FUNC( HB_FISDEVICE )
{
hb_retl( hb_fsIsDevice( hb_numToHandle( hb_parnint( 1 ) ) ) );
hb_fsSetFError( hb_fsError() );
}
/* HB_PREAD( <nPipeHandle>, <@cBuffer>, [<nBytes>], [<nTimeOut>] )