2003-02-25 22:10 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

harbour/ChangeLog

@@ -8,6 +8,15 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-02-25 22:10 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
+  * contrib/rdd_ads/adsfunc.c
+    + Transaction processing functions added.
+  * contrib/rdd_ads/ads.ch
+    + New commands added:
+      BEGIN TRANSACTION
+      COMMIT TRANSACTION
+      ROLLBACK TRANSACTION
+
 2003-02-18 22:05 UTC+0100 Tomaz Zupan <tomaz.zupan@orpo.si>
   * include/hbdbf.h
   * include/hbdbsort.h

harbour/contrib/rdd_ads/ads.ch

@@ -117,3 +117,9 @@
       => AdsSetCharType( if( upper( <(x)> ) == "OEM", 2, 1 ) )
 
 #command COMMIT                 => AdsWriteAllRecords()
+
+#command BEGIN TRANSACTION      => AdsBeginTransaction()
+
+#command COMMIT TRANSACTION     => AdsCommitTransaction()
+
+#command ROLLBACK TRANSACTION   => AdsRollbackTransaction()

harbour/contrib/rdd_ads/adsfunc.c

@@ -1274,6 +1274,36 @@ HB_FUNC( ADSGETCONNECTIONHANDLE )
    hb_retni( adsConnectHandle );
 }
 
+HB_FUNC( ADSBEGINTRANSACTION )
+{
+   hb_retnl( AdsBeginTransaction( (hb_pcount()>1)? (ADSHANDLE)hb_parnl(1) : adsConnectHandle ) );
+}
+
+HB_FUNC( ADSCOMMITTRANSACTION )
+{
+   hb_retnl( AdsCommitTransaction( (hb_pcount()>1)? (ADSHANDLE)hb_parnl(1) : adsConnectHandle ) );
+}
+
+HB_FUNC( ADSROLLBACKTRANSACTION )
+{
+   hb_retnl( AdsRollbackTransaction( (hb_pcount()>1)? (ADSHANDLE)hb_parnl(1) : adsConnectHandle ) );
+}
+
+HB_FUNC( ADSFAILEDTRANSACTIONRECOVERY )
+{
+   hb_retnl( AdsFailedTransactionRecovery( (ISCHAR(1))? hb_parc(1) : NULL ) );
+}
+
+HB_FUNC( ADSINTRANSACTION )
+{
+   UNSIGNED16 pbInTrans;
+
+   if( AdsInTransaction( (hb_pcount()>1)? (ADSHANDLE)hb_parnl(1) : adsConnectHandle,&pbInTrans ) )
+      hb_retl( (int) pbInTrans );
+   else
+      hb_retl( 0 );
+}
+
 HB_FUNC( ADSGETLASTERROR )
 {
    /*  nLastErr := AdsGetLastError( [ @cLastErr ] )  */