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

some fixes on hb_parc() use from DbCreate()

Browse Source
This commit is contained in:
Antonio Linares
2002-10-19 14:14:57 +00:00
parent 0e79a63edc
commit d9e8189b85
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/source/rdd/dbcmd.c
View File

@@ -1222,7 +1222,10 @@ HB_FUNC( DBCREATE )
BOOL bOpen;
hb_retl( FALSE );
szFileName = hb_parc( 1 );
if( ( szFileName = hb_parc( 1 ) ) == ( char * ) 0 )
szFileName = "";
pStruct = hb_param( 2 , HB_IT_ARRAY );
if( pStruct )
uiLen = ( USHORT ) hb_arrayLen( pStruct );
@@ -1277,14 +1280,16 @@ HB_FUNC( DBCREATE )
if( uiLen > HARBOUR_MAX_RDD_DRIVERNAME_LENGTH )
uiLen = HARBOUR_MAX_RDD_DRIVERNAME_LENGTH;
hb_strncpyUpper( cDriverBuffer, hb_parc( 3 ), uiLen );
hb_strncpyUpper( cDriverBuffer,
hb_parc( 3 ) != ( char * ) 0 ? hb_parc( 3 ) : "", uiLen );
szDriver = cDriverBuffer;
}
else
szDriver = s_szDefDriver;
pFileName = hb_fsFNameSplit( szFileName );
strncpy( szAlias, hb_parc( 5 ), HARBOUR_MAX_RDD_ALIAS_LENGTH );
strncpy( szAlias, hb_parc( 5 ) != ( char * ) 0 ? hb_parc( 5 ) : "",
HARBOUR_MAX_RDD_ALIAS_LENGTH );
uiLen = strlen( szAlias );
if( uiLen == 0 )
strncpy( szAlias, pFileName->szName, HARBOUR_MAX_RDD_ALIAS_LENGTH );