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

2013-10-31 13:04 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* contrib/hbfship/hbfship.hbx
    ! removed FIELDDECI() reenabled by mistake during one of
      internal merges

  * src/rdd/dbfcdx/dbfcdx1.c
    * accept headers with KEY and FOR expression lengths without
      offset fields.

  * tests/video.prg
    ! fixed CLIP and xHarbour compilation
    + added support for testing UTF8 screen output
      (non empty 1-st parameter) and HB_GTI_COMPATBUFFER (non empty
      second parameter)
This commit is contained in:
Przemysław Czerpak
2013-10-31 13:04:59 +01:00
parent 04b66a11ba
commit 7e3de3f14c
4 changed files with 42 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
ChangeLog.txt
View File

@@ -10,6 +10,21 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2013-10-31 13:04 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* contrib/hbfship/hbfship.hbx
! removed FIELDDECI() reenabled by mistake during one of
internal merges
* src/rdd/dbfcdx/dbfcdx1.c
* accept headers with KEY and FOR expression lengths without
offset fields.
* tests/video.prg
! fixed CLIP and xHarbour compilation
+ added support for testing UTF8 screen output
(non empty 1-st parameter) and HB_GTI_COMPATBUFFER (non empty
second parameter)
2013-10-30 23:12 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* src/rdd/dbf1.c
! set binary flag by default for PICTURE, BLOB and OLE fields

1
contrib/hbfship/hbfship.hbx
View File

@@ -25,7 +25,6 @@ DYNAMIC dbSetLocate
DYNAMIC dbSetLocateBlock
DYNAMIC ExecName
DYNAMIC ExecPIDNum
DYNAMIC FIELDDECI
DYNAMIC FieldGetArr
DYNAMIC FieldPutArr
DYNAMIC IndexCount

3
src/rdd/dbfcdx/dbfcdx1.c
View File

@@ -3476,6 +3476,7 @@ static void hb_cdxTagLoad( LPCDXTAG pTag )
if( pTag->RootBlock == 0 || pTag->RootBlock % CDX_PAGELEN != 0 ||
( HB_FOFFSET ) pTag->RootBlock >= hb_fileSize( pTag->pIndex->pFile ) ||
HB_GET_LE_UINT16( tagHeader.keySize ) > CDX_MAXKEY ||
uiKeyLen + uiForLen > CDX_HEADEREXPLEN ||
uiForPos + uiForLen > CDX_HEADEREXPLEN ||
uiKeyPos + uiKeyLen > CDX_HEADEREXPLEN ||
( uiKeyPos < uiForPos ? ( uiKeyPos + uiKeyLen > uiForPos && tagHeader.keyExpPool[ uiForPos ] ) :
@@ -3486,6 +3487,8 @@ static void hb_cdxTagLoad( LPCDXTAG pTag )
}
/* some wrong RDDs do not set expression length this is workaround for them */
if( uiKeyPos == 0 && uiKeyLen != 0 && uiForPos == 0 && uiForLen != 0 )
uiForPos = uiKeyLen;
if( ! uiKeyLen )
uiKeyLen = ( uiForPos >= uiKeyPos ? uiForPos : CDX_HEADEREXPLEN ) - uiKeyPos;
if( ! uiForLen )

32
tests/video.prg
View File

@@ -10,14 +10,22 @@
/* UTF-8 */
#include "box.ch"
#ifdef __HARBOUR__
#include "hbgtinfo.ch"
#endif
#ifndef __CLIP__
#ifdef FlagShip
#xtranslate hb_SecondsCPU( [<x>] ) => SecondsCPU( [<x>] )
#else
#ifndef __HARBOUR__
#xtranslate hb_SecondsCPU( [<x>] ) => Seconds( [<x>] )
#endif
#ifdef __CLIP__
#xtranslate hb_SecondsCPU( [<x>] ) => SecondsCPU( [<x>] )
#endif
#ifdef FlagShip
#xtranslate hb_SecondsCPU( [<x>] ) => SecondsCPU( [<x>] )
#endif
#ifdef __XHARBOUR__
#xtranslate hb_SecondsCPU( [<x>] ) => SecondsCPU( [<x>] )
#undef __HARBOUR__
#else
#ifndef __HARBOUR__
#xtranslate hb_SecondsCPU( [<x>] ) => Seconds( [<x>] )
#endif
#endif
@@ -37,10 +45,18 @@ STATIC s_nDispCount := 0
#endif
PROCEDURE Main()
PROCEDURE Main( xUtf, xCompatBuf )
LOCAL aResult := {}
#ifdef __HARBOUR__
hb_cdpSelect( iif( !Empty( xUtf ), "UTF8", "EN" ) )
hb_gtInfo( HB_GTI_BOXCP, hb_cdpSelect() )
hb_gtInfo( HB_GTI_COMPATBUFFER, !Empty( xCompatBuf ) )
? "codepage:", hb_cdpSelect(), "box CP:", hb_gtInfo( HB_GTI_BOXCP ), ;
"compat buffer:", hb_gtInfo( HB_GTI_COMPATBUFFER )
#endif
Initialise() // Initialise Screen Display
// Perform Tests