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

2002-10-21 10:20 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-10-21 06:17:03 +00:00
parent bc19afa751
commit 05c8446d48
2 changed files with 16 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2002-10-21 10:20 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* contrib/rdd_ads/adsfunc.c
! Few fixes - checking for hb_parc() return value
2002-10-20 22:50 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
* source/rtl/inkey.c
! reduce keyboard polling to <= once per tick.

20
harbour/contrib/rdd_ads/adsfunc.c
View File

@@ -243,12 +243,14 @@ HB_FUNC( ADSSETCHARTYPE )
HB_FUNC( ADSSETDEFAULT )
{
AdsSetDefault( (UNSIGNED8*) hb_parc( 1 ) );
if( ISCHAR(1) )
AdsSetDefault( (UNSIGNED8*) hb_parc( 1 ) );
}
HB_FUNC( ADSSETSEARCHPATH )
{
AdsSetSearchPath( (UNSIGNED8*) hb_parc( 1 ) );
if( ISCHAR(1) )
AdsSetSearchPath( (UNSIGNED8*) hb_parc( 1 ) );
}
HB_FUNC( ADSSETDELETED )
@@ -265,7 +267,8 @@ HB_FUNC( ADSBLOB2FILE )
szFileName = hb_parc( 1 );
szFieldName = hb_parc( 2 );
if( ( strlen( szFileName ) == 0 ) || ( strlen( szFieldName ) == 0 ) )
if( !szFileName || !szFieldName || ( strlen( szFileName ) == 0 ) ||
( strlen( szFieldName ) == 0 ) )
{
hb_errRT_DBCMD( EG_ARG, 1014, NULL, "ADSBLOB2FILE" );
return;
@@ -288,7 +291,8 @@ HB_FUNC( ADSFILE2BLOB )
szFileName = hb_parc( 1 );
szFieldName = hb_parc( 2 );
if( ( strlen( szFileName ) == 0 ) || ( strlen( szFieldName ) == 0 ) )
if( !szFileName || !szFieldName || ( strlen( szFileName ) == 0 ) ||
( strlen( szFieldName ) == 0 ) )
{
hb_errRT_DBCMD( EG_ARG, 1014, NULL, "ADSFILE2BLOB" );
return;
@@ -522,7 +526,7 @@ HB_FUNC( ADSEVALAOF )
UNSIGNED16 pusOptLevel;
pArea = (ADSAREAP) hb_rddGetCurrentWorkAreaPointer();
if( pArea )
if( pArea && ISCHAR(1) )
{
pucFilter = hb_parc( 1 );
@@ -560,7 +564,7 @@ HB_FUNC( ADSGETAOF )
UNSIGNED8 pucFilter[HARBOUR_MAX_RDD_FILTER_LENGTH+1];
UNSIGNED8 *pucFilter2;
UNSIGNED16 pusLen = HARBOUR_MAX_RDD_FILTER_LENGTH;
UNSIGNED32 ulRetVal = FAILURE;
UNSIGNED32 ulRetVal;
hb_retc( "" );
pArea = (ADSAREAP) hb_rddGetCurrentWorkAreaPointer();
@@ -681,7 +685,7 @@ HB_FUNC( ADSSETAOF )
UNSIGNED32 ulRetVal;
pArea = (ADSAREAP) hb_rddGetCurrentWorkAreaPointer();
if( pArea )
if( pArea && ISCHAR(1) )
{
pucFilter = hb_parc( 1 );
if( hb_pcount() > 1 )
@@ -744,7 +748,7 @@ HB_FUNC( ADSENABLEENCRYPTION )
UNSIGNED32 ulRetVal;
char * pucPassword = hb_parc( 1 );
if( strlen( pucPassword ) == 0 )
if( !pucPassword || ( strlen( pucPassword ) == 0 ) )
{
hb_errRT_DBCMD( EG_ARG, 1014, NULL, "ADSENABLEENCRYPTION" );
return;