Hi,
Przemysław Czerpak wrote:
Harbour results are correct and are the same as in CL53/COMIX CDX
implementation. Seek last with softseek on should fully revert the
positioning order and when exact key cannot be found should stop
at 1-st smaller value (1 in 1-st record in your example) or at EOF
if smaller value does not exists (try: DBSEEK(0, .T., .T.))
It's defined indirectly by dynamic descend flag which causes
that seek last should work like in Harbour native RDDs and
CL53/COMIX. In such implementation seek last is fully revertible
by switching to descending order ( ordDescend(,,!ordDescend()) )
and forward seek. Otherwise we will have some anomalies.
Ok, if understand the idea of seeklast now, then it means "try doing
seek backward (in reversed index order, like using DESCEND)", but not
"return the last record (having maximal recno value) of the records
having the same key value".
C:\cawi32\sample\test>test188.exe
Harbour 2.0.0 (Rev. 13372) DBFCDX
3
2
So Harbour DBFCDX results are correct.
C:\cawi32\sample\test>test188.exe xxx
Harbour 2.0.0 (Rev. 13372) ADSCDX
2
2
I've just tested 32bit Linux Harbour build on remote machines
with and ADS local server in your second tests gives the same
results as Harbour (2 3) so it's possible that the problem is
only in ADS remote server or in some ACE libraries (I used 9.10)
Sorry, I've made a mistake doing copy-paste results from console into
email. The second test returns the same result (3 and 2) in both
Harbour's DBFCDX and ADSCDX with both local and remote server. I've by
mistake copy-pasted results of the first test twice for ADSCDX.
But ADS still have bug in the first test. If softseek positions at EOF
seeklast does not help to stop on last record. Here is the test
indicating both correct (in some cases) and wrong (in another cases)
behavior of ADS:
REQUEST DBFCDX
#ifdef __HARBOUR__
REQUEST ADSCDX
#endif
FIELD F
PROC main(cADS, cLocal)
IF EMPTY(cADS)
RDDSETDEFAULT("DBFCDX")
ELSE
RDDSETDEFAULT("ADSCDX")
AdsSetServerType(IIF(EMPTY(cLocal), 2, 1))
ENDIF
? VERSION(), RDDSETDEFAULT()
DBCREATE("test188", {{"F", "N", 5, 0}},, .T.)
OrdCreate("test188", "f", "F", {|| F})
DBAPPEND(); F := 1
DBAPPEND(); F := 1
DBAPPEND(); F := 3
DBAPPEND(); F := 3
DBSEEK(2, .T., .F.)
? RECNO()
DBSEEK(2, .T., .T.)
? RECNO()
DBSEEK(10, .T., .F.)
? RECNO()
DBSEEK(10, .T., .T.)
? RECNO()
DBCLOSEALL()
RETURN
-------------
K:\TMP\_AdsBug_>TEST188.EXE
Harbour 2.0.0 (Rev. 13372) DBFCDX
3
2
5
4
K:\TMP\_AdsBug_>TEST188.EXE ads
Harbour 2.0.0 (Rev. 13372) ADSCDX
3
2
5
5
-------------
Regards,
Mindaugas
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
