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

ChangeLogTag:19990728-13:13 GMT+1 Bruno Cantero <bruno@issnet.net>

Browse Source
This commit is contained in:
Bruno Cantero
1999-07-28 11:25:11 +00:00
parent 8f30efeed5
commit 870cf3fe24
5 changed files with 421 additions and 397 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
19990728-13:13 GMT+1 Bruno Cantero <bruno@issnet.net>
* source/rdd/rddsys.prg, source/rdd/dbcmd.c, source/rdd/dbfntx0.prg
source/rdd/dbfntx1.c, include/rdd.api, tests/working/testrdd.prg
The size of WorkAreas now is variable
Testing under MSVC++ 6.0 and DJGPP
19990728-14:44 Alexander Kresin
* source\hbpp\hbpp.c
* Bug, appeared after last change, fixed

7
harbour/include/rdd.api
View File

@@ -455,7 +455,6 @@ typedef struct
*
* Informaci¢n para administrar el  rea de trabajo
*/
struct _RDDFUNCS;
typedef struct _AREA
{
@@ -489,7 +488,7 @@ typedef struct _AREA
// HANDLE heap;
// USHORT heapSize;
USHORT rddID;
// USHORT rddID;
} AREA;
@@ -507,9 +506,9 @@ typedef USHORT ( * DBENTRYP_L )( AREAP area, LONG param );
typedef USHORT ( * DBENTRYP_I )( AREAP area, PHB_ITEM param );
typedef USHORT ( * DBENTRYP_SI )( AREAP area, USHORT index, PHB_ITEM param );
typedef USHORT ( * DBENTRYP_VP )( AREAP area, DBOPENINFOP param );
typedef USHORT ( * DBENTRYP_SP )( AREAP area, USHORT * param );
//typedef USHORT (far * DBENTRYP_S)(AREAP area, USHORT param);
//typedef USHORT ( * DBENTRYP_SP )( AREAP area, USHORT * param ); BP
//typedef USHORT (far * DBENTRYP_LP)(AREAP area, LONGP param);
//typedef USHORT (far * DBENTRYP_PP)(AREAP area, FARPP param);
//typedef USHORT (far * DBENTRYP_SVP)(AREAP area, USHORT index, FARP param);
@@ -577,7 +576,7 @@ typedef struct _RDDFUNCS
// DBENTRYP_V newarea; /* V */
DBENTRYP_VP open;
// DBENTRYP_V release; /* V */
// DBENTRYP_SP structSize; /* SP */
DBENTRYP_SP structSize;
// DBENTRYP_VP sysName; /* VP */
// DBENTRYP_VP dbEval; /* VP */
// DBENTRYP_V pack; /* V */

785
harbour/source/rdd/dbcmd.c
View File

File diff suppressed because it is too large Load Diff

15
harbour/source/rdd/dbfntx1.c
View File

@@ -26,9 +26,11 @@
#include <init.h>
#include <rdd.api>
HARBOUR HB_REQUEST_DBFNTX1( void );
HARBOUR HB_DBFNTX_GETFUNCTABLE( void );
HB_INIT_SYMBOLS_BEGIN( dbfntx1__InitSymbols )
{ "REQUEST_DBFNTX1", FS_PUBLIC, HB_REQUEST_DBFNTX1, 0 },
{ "DBFNTX_GETFUNCTABLE", FS_PUBLIC, HB_DBFNTX_GETFUNCTABLE, 0 }
HB_INIT_SYMBOLS_END( dbfntx1__InitSymbols );
#if ! defined(__GNUC__)
@@ -95,6 +97,11 @@ ERRCODE dbfntxOpen( AREAP pArea, DBOPENINFOP pOpenInfo )
return SUCCESS;
}
ERRCODE dbfntxStructSize( AREAP pArea, USHORT * uiSize )
{
printf( "Calling dbfntxStructSize()\n" );
return SUCCESS;
}
static RDDFUNCS ntxSuper = { 0 };
@@ -107,7 +114,8 @@ static RDDFUNCS ntxTable = { dbfntxBof,
dbfntxSkip,
dbfntxClose,
dbfntxCreate,
dbfntxOpen
dbfntxOpen,
dbfntxStructSize
};
HARBOUR HB_REQUEST_DBFNTX1( void )
@@ -123,6 +131,7 @@ HARBOUR HB_DBFNTX_GETFUNCTABLE( void )
* uiCount = RDDFUNCSCOUNT;
pTable = ( RDDFUNCS * ) hb_parnl( 2 );
if( pTable )
hb_rddInherit( pTable, &ntxTable, &ntxSuper, 0 );
hb_retni( SUCCESS );
hb_retni( hb_rddInherit( pTable, &ntxTable, &ntxSuper, 0 ) );
else
hb_retni( FAILURE );
}

5
harbour/tests/working/testrdd.prg
View File

@@ -10,13 +10,12 @@ function main()
QOut()
QOut()
dbCreate( "File.dbf", {} )
dbUseArea( .T., "dbfntx", "AnyFile" )
dbUseArea(,, "TestRdd.dbf" )
Bof()
Eof()
Found()
dbGoBottom()
dbGoTo(1)
dbGoTo( 1 )
dbGoTop()
dbSkip()
dbCloseArea()