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

2004-10-05 05:39 UTC-0500 David Arturo Macias Corona <dmacias@mail.udg.mx>

Browse Source 
* harbour/contrib/mysql/tmysql.prg
  * harbour/contrib/mysql/tsqlbrw.prg
    * Changes to approach Clipper behaviour
      NOTE: My changes are marked in source code with label "DAVID:", to
            help in quick review of changes, and these changes are
            described widely in files difer.txt, diffeng.txt
            These labels will be removed in a reasonable time

  + harbour/contrib/mysql/difer.txt
    Describe modifications to programs of harbour\contrib\mysql, in Spanish
  + harbour/contrib/mysql/diffeng.txt
    Describe modifications to programs of harbour\contrib\mysql, in English
This commit is contained in:
David Arturo Macias Corona
2004-10-05 10:55:08 +00:00
parent ec407c3d59
commit 2f1ddb94d5
3 changed files with 427 additions and 154 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
harbour/ChangeLog
View File

@@ -8,6 +8,21 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-10-05 05:39 UTC-0500 David Arturo Macias Corona <dmacias@mail.udg.mx>
* harbour/contrib/mysql/tmysql.prg
* harbour/contrib/mysql/tsqlbrw.prg
* Changes to approach Clipper behaviour
NOTE: My changes are marked in source code with label "DAVID:", to
help in quick review of changes, and these changes are
described widely in files difer.txt, diffeng.txt
These labels will be removed in a reasonable time
+ harbour/contrib/mysql/difer.txt
Describe modifications to programs of harbour\contrib\mysql, in Spanish
+ harbour/contrib/mysql/diffeng.txt
Describe modifications to programs of harbour\contrib\mysql, in English
2004-09-08 16:40 UTC+0100 Ryszard Glab <rglab@imid.med.pl>
* include/hbapi.h
* source/vm/dynsym.c

559
harbour/contrib/mysql/tmysql.prg
View File

File diff suppressed because it is too large Load Diff

7
harbour/contrib/mysql/tsqlbrw.prg
View File

@@ -213,10 +213,10 @@ static function Skipper(nSkip, oQuery)
case (nSkip > 0)
while ( i < nSkip ) // Skip Foward
if oQuery:eof()
//DAVID: change in TMySQLquery:eof() definition if oQuery:eof()
if oQuery:recno() == oQuery:lastrec()
exit
endif
oQuery:Skip(1)
i++
@@ -225,7 +225,8 @@ static function Skipper(nSkip, oQuery)
case ( nSkip < 0 )
while ( i > nSkip ) // Skip backward
if oQuery:bof()
//DAVID: change in TMySQLquery:bof() definition if oQuery:bof()
if oQuery:recno() == 1
exit
endif