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

2001-09-21 11:30 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2001-09-21 07:33:34 +00:00
parent 1fde255304
commit 1603cf3dbc
6 changed files with 25 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -1,3 +1,14 @@
2001-09-21 11:30 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* contrib/rdd_ads/ads1.c
! Uploaded a fix, posted by Brian Hays
* contrib/rdd_ads/adsfunc.c
* contrib/rdd_ads/ads.ch
* SET PATH TO <cpath> added
* contrib/rdd_ads/doc/rddads.rsp
* adsfuncs.txt item added
* contrib/rdd_ads/doc/en/adsfuncs.txt
! minor formatting bug fixed
2001-09-18 02:06 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/vm/arrayshb.c

5
harbour/contrib/rdd_ads/ads.ch
View File

@@ -104,6 +104,11 @@
#command SET DEFAULT TO ;
=> Set( _SET_DEFAULT, "" ); AdsSetDefault( "" )
#command SET PATH TO <(path)> ;
=> Set( _SET_PATH, <(path)> ); AdsSetSearchPath( <(path)> )
#command SET PATH TO ;
=> Set( _SET_PATH, "" ); AdsSetSearchPath( "" )
#command SET DELETED <x:ON,OFF,&> ;
=> Set( _SET_DELETED, <(x)> ) ;
;AdsSetDeleted( if( upper( <(x)> ) == "ON", .t., .f. ) )

1
harbour/contrib/rdd_ads/ads1.c
View File

@@ -852,6 +852,7 @@ static ERRCODE adsGetValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
else
hb_itemPutC( pItem, "" );
}
hb_itemSetCMemo( pItem );
break;
}
}

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

@@ -244,7 +244,12 @@ HB_FUNC( ADSSETCHARTYPE )
HB_FUNC( ADSSETDEFAULT )
{
AdsSetDefault ( (UNSIGNED8*) hb_parc( 1 ) );
AdsSetDefault( (UNSIGNED8*) hb_parc( 1 ) );
}
HB_FUNC( ADSSETSEARCHPATH )
{
AdsSetSearchPath( (UNSIGNED8*) hb_parc( 1 ) );
}
HB_FUNC( ADSSETDELETED )

2
harbour/contrib/rdd_ads/doc/en/adsfuncs.txt
View File

@@ -388,7 +388,7 @@
* $FILES$
* Library is RddAds
* Header is ads.ch
* $SEEALSO$
* $SEEALSO$
* ADSClearAOF(),ADSIsRecordInAOF(),ADSRefreshAOF()
* $END$
*/

1
harbour/contrib/rdd_ads/doc/rddads.rsp
View File

@@ -1 +1,2 @@
en\readme.txt
en\adsfuncs.txt