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

2008-12-29 20:23 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/hbct/disk.c
    ! fixed dirname() - thanks to Saulius
This commit is contained in:
Przemyslaw Czerpak
2008-12-29 19:20:15 +00:00
parent 1624a58420
commit b8e1c81cba
2 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-12-29 20:23 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbct/disk.c
! fixed dirname() - thanks to Saulius
2008-12-29 19:20 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbcomp.h
* harbour/include/hbmacro.ch

14
harbour/contrib/hbct/disk.c
View File

@@ -101,9 +101,21 @@ HB_FUNC( DIRMAKE )
HB_FUNC( DIRNAME )
{
BYTE *pbyBuffer = ( BYTE * ) hb_xgrab( _POSIX_PATH_MAX + 1 );
unsigned char *pszDrive = ( unsigned char * ) hb_parc( 1 );
USHORT uiDrive = 0;
if( pszDrive )
{
/* some network drivers (f.e. NETX from Novel Netware) allow
* to create drives after 'Z' letter.
*/
if( *pszDrive >= 'A' && *pszDrive < 'A' + 32 )
uiDrive = *pszDrive - ( 'A' - 1 );
else if( *pszDrive >= 'a' && *pszDrive < 'a' + 32 )
uiDrive = *pszDrive - ( 'a' - 1 );
}
pbyBuffer[0] = HB_OS_PATH_DELIM_CHR;
hb_fsCurDirBuff( hb_fsCurDrv(), pbyBuffer + 1, _POSIX_PATH_MAX );
hb_fsCurDirBuff( uiDrive, pbyBuffer + 1, _POSIX_PATH_MAX );
hb_retc_buffer( ( char * ) pbyBuffer );
}