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

2001-12-28 22:53 UTC+0100 Patrick Mast <email@patrickmast.com>

Browse Source 
* contrib/apollo
     + Added function sx_GoBottom()
     + Added function sx_Go()
     + Added function sx_Seek()
     + Added function sx_SetSoftSeek()
     + Added function sx_RLock()
     + Added function sx_Reindex()
     + Added function sx_RecCount()
     + Added function sx_SetMemoBlockSize()
     + Added function sx_CreateNew()
     + Added function sx_CreateField()
     + Added function sx_CreateExec()
   * contrib/apollo/test
     * Added added functions in the test application.
This commit is contained in:
Patrick Mast
2001-12-29 21:59:06 +00:00
parent b96fb44e51
commit 03b64a6364
3 changed files with 227 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
harbour/ChangeLog
View File

@@ -7,6 +7,23 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* source/vm/dynlibhb.c
- remove function hb_StartApp() and related _hInstance
* source/vm/hvm.c
- remove reference to hb_StartApp()
* source/compiler/hbusage.c
+ add documentation of -gc3 switch
2001-12-30 08:00 UTC+0700 Andi Jahja <harbour@cbn.net.id>
* source/compiler/cmdcheck.c
+ switch -gc3 => produce modiule with NO_START_UP
* source/vm/genc.c
+ switch -gc3 now produce NO_START_UP codes.
* source/vm/hvm.c
- commented the use of hb_StartApp()
* include/hbcomp.h
+ definition of HB_COMPGENC_NO_STARTUP

178
harbour/contrib/apollo/apollo.c
View File

@@ -88,15 +88,39 @@ HB_FUNC( SX_COMMIT )
}
/* -----------------29/12/2001 19:59-----------------
* sx_CreateExec()
* => NILL.
* --------------------------------------------------*/
HB_FUNC( SX_CREATEEXEC )
{
sx_CreateExec( );
}
/* -----------------29/12/2001 19:18-----------------
* sx_CreateField()
* --------------------------------------------------*/
HB_FUNC( SX_CREATEFIELD )
{
sx_CreateField( hb_parc( 1 ), /* Field name */
hb_parc( 2 ), /* Field type */
hb_parni( 3 ), /* Field lenght */
hb_parni( 4 ) ); /* Field decimals */
sx_CreateField( hb_parc( 1 ), /* Field name */
hb_parc( 2 ), /* Field type */
hb_parni( 3 ), /* Field lenght */
hb_parni( 4 ) ); /* Field decimals */
}
/* -----------------29/12/2001 19:59-----------------
* sx_CreateNew()
* => The work area number assigned to the database.
* --------------------------------------------------*/
HB_FUNC( SX_CREATENEW )
{
hb_retni(
sx_CreateNew( hb_parc( 1 ), /* Field name */
hb_parc( 2 ), /* Alias */
hb_parni( 3 ), /* RDE Type */
hb_parni( 4 ) ) ); /* The maximum number of fields to be added to the file structure */
}
@@ -114,8 +138,25 @@ HB_FUNC( SX_EOF )
* --------------------------------------------------*/
HB_FUNC( SX_GETSTRING )
{
char *szString=(char*)sx_GetString( hb_parc( 1 ) ); /* Field name */
hb_retc(szString);
hb_retc( ( char * )sx_GetString( hb_parc( 1 ) ) ); /* Field name */
}
/* -----------------29/12/2001 20:13-----------------
* sx_Go()
* --------------------------------------------------*/
HB_FUNC( SX_GO )
{
sx_Go( hb_parni( 1 ) ); /* The record number to go */
}
/* -----------------29/12/2001 20:13-----------------
* sx_GoBottom()
* --------------------------------------------------*/
HB_FUNC( SX_GOBOTTOM )
{
sx_GoBottom( ) ;
}
@@ -134,12 +175,22 @@ HB_FUNC( SX_GOTOP )
HB_FUNC( SX_INDEXTAG )
{
hb_retni(
sx_IndexTag( hb_parc( 1 ), /* Field name */
hb_parc( 2 ), /* Tag name */
hb_parc( 3 ), /* Index expression as a string */
hb_parni( 4 ), /* Option (0=Standard) (1=Unique) (2=Roll-Your-Own) */
hb_parl( 5 ), /* True for a descend index */
hb_parc( 6) ) ); /* Condition */
sx_IndexTag( hb_parc( 1 ), /* Field name */
hb_parc( 2 ), /* Tag name */
hb_parc( 3 ), /* Index expression as a string */
hb_parni( 4 ), /* Option (0=Standard) (1=Unique) (2=Roll-Your-Own) */
hb_parl( 5 ), /* True for a descend index */
hb_parc( 6) ) ); /* Condition */
}
/* -----------------29/12/2001 20:13-----------------
* sx_RecCOunt()
* --------------------------------------------------*/
HB_FUNC( SX_RECCOUNT )
{
hb_retni(
sx_RecCount( ) );
}
@@ -148,7 +199,17 @@ HB_FUNC( SX_INDEXTAG )
* --------------------------------------------------*/
HB_FUNC( SX_RECNO )
{
hb_retni( sx_RecNo( ) );
hb_retni(
sx_RecNo( ) );
}
/* -----------------29/12/2001 20:13-----------------
* sx_Reindex()
* --------------------------------------------------*/
HB_FUNC( SX_REINDEX )
{
sx_Reindex( );
}
@@ -157,9 +218,47 @@ HB_FUNC( SX_RECNO )
* --------------------------------------------------*/
HB_FUNC( SX_REPLACE )
{
sx_Replace( hb_parc( 1 ), /* Field name */
hb_parni( 2 ), /* Data type */
hb_parc( 3) ); /* Data */
sx_Replace( hb_parc( 1 ), /* Field name */
hb_parni( 2 ), /* Data type */
hb_parc( 3) ); /* Data */
}
/* -----------------29/12/2001 20:13-----------------
* sx_RLock()
* --------------------------------------------------*/
HB_FUNC( SX_RLOCK )
{
sx_Rlock( hb_parni( 1 ) ); /* The physical record number of the record to be locked. */
}
/* -----------------29/12/2001 20:13-----------------
* sx_Seek()
* --------------------------------------------------*/
HB_FUNC( SX_SEEK )
{
hb_retl(
sx_Seek( hb_parc( 1 ) ) ); /* The value to search for as a string */
}
/* -----------------29/12/2001 19:59-----------------
* sx_SetMemoBlockSize()
* --------------------------------------------------*/
HB_FUNC( SX_SETMEMOBLOCKSIZE )
{
sx_SetMemoBlockSize( hb_parni( 1 ) ); /* The new default block size. */
/* The size must be a value from 1 through 1024. */
}
/* -----------------29/12/2001 19:59-----------------
* sx_SetSoftSeek()
* --------------------------------------------------*/
HB_FUNC( SX_SETSOFTSEEK )
{
sx_SetSoftSeek( hb_parl( 1 ) ); /* True to set softseek ON */
}
@@ -168,20 +267,20 @@ HB_FUNC( SX_REPLACE )
* --------------------------------------------------*/
HB_FUNC( SX_SKIP )
{
sx_Skip( hb_parni( 1 ) ); /* Number of records to skip */
sx_Skip( hb_parni( 1 ) ); /* Number of records to skip */
}
/* -----------------29/12/2001 19:17-----------------
* sx_Use()
* --------------------------------------------------*/
HB_FUNC( SX_USE )
{
hb_retni( sx_Use( hb_parc( 1 ), /* Filename */
hb_parc( 2 ), /* Alias */
hb_parni( 3 ), /* OpenMode */
hb_parni( 4) )); /* RDE Type */
hb_retni(
sx_Use( hb_parc( 1 ), /* Filename */
hb_parc( 2 ), /* Alias */
hb_parni( 3 ), /* OpenMode */
hb_parni( 4) )); /* RDE Type */
}
@@ -190,9 +289,7 @@ HB_FUNC( SX_USE )
* --------------------------------------------------*/
HB_FUNC( SX_VERSION )
{
char *szVersion=(char*)sx_Version();
hb_retc(szVersion);
/*hb_xfree(szVersion);*/
hb_retc( ( char * ) sx_Version() );
}
@@ -203,3 +300,34 @@ HB_FUNC( SX_ZAP )
{
sx_Zap( );
}
/*
2001-12-28 20:39 UTC+0100 Patrick Mast <email@patrickmast.com>
* contrib/apollo
+ Added function sx_GoBottom()
+ Added function sx_Go()
+ Added function sx_Seek()
+ Added function sx_SetSoftSeek()
+ Added function sx_RLock()
+ Added function sx_Reindex()
+ Added function sx_RecCount()
+ Added function sx_SetMemoBlockSize()
+ Added function sx_CreateNew()
+ Added function sx_CreateField()
+ Added function sx_CreateExec()
*
*
+ Added function sx_IndexTag()
+ Added function sx_RecNo()
+ Added function sx_Replace()
+ Added function sx_Skip()
+ Added function sx_Use()
+ Added function sx_Zap()
* contrib/apollo/test
* Added added functions in the test application.
*/

57
harbour/contrib/apollo/test/apollo.prg
View File

@@ -77,13 +77,45 @@
Function Main()
LOCAL nAlias,f
sx_SetMemoBlockSize(32)
? "Apollo version " + sx_Version()
? ""
? "Cleaning up files.."
FErase( "TEST.DBF" )
FErase( "TEST.SMT" )
FErase( "TEST.NSX" )
? "OK!"
? ""
? "Creating a new database file.."
nAlias:=sx_CreateNew("TEST.DBF",; // full path filename
"test1",; // Alias
SDENSX,; // rdeType
6) // Maximum fields added by sx_CreateField
IF nAlias=0
? "Error creating database"
RETU NIL
ENDIF
sx_CreateField("FIRST" ,"C",40,0)
sx_CreateField("LAST" ,"C",40,0)
sx_CreateField("NOTES" ,"M",10,0)
sx_CreateField("AGE" ,"N", 3,0)
sx_CreateField("MARRIED" ,"L", 1,0)
sx_CreateField("BIRTDATE","D", 8,0)
sx_CreateExec()
sx_Close()
?? "OK!"
nAlias:=sx_Use("TEST.DBF","test2",EXCLUSIVE,SDENSX)
sx_Zap()
IF Valtype(nAlias)="N" .AND. nAlias # 0
? "OK opening 'TEST.DBF'"
? "Adding 1000 records..."
FOR f=1 to 1000
sx_AppendBlank()
@@ -93,16 +125,41 @@ LOCAL nAlias,f
sx_Commit()
NEXT
? "Creating Index..."
sx_IndexTag(,"LAST","LAST+FIRST",0)
? "Created a HiPer-Six index. See 'TEST.NSX'"
sx_GoTop()
WHILE !sx_Eof()
@ 17,2 SAY "RecNo: "+ LTrim( Str( sx_RecNo() ) )
@ 18,2 SAY sx_GetString( "LAST" )
sx_Skip(1)
ENDDO
? ""
sx_GoTop()
sx_SetSoftSeek( .f. ) // SetSoftSeek OFF
IF sx_Seek( "928 Mast" )
? "String '928 Mast' found in record number "+ LTrim( Str( sx_RecNo() ) )
ELSE
? "String '928 Mast' NOT Found..."
ENDIF
? ""
? "There are "+LTrim( Str( sx_RecCount() ) )+" records in the database"
?
? "Reindexing now..."
sx_ReIndex()
?? "OK!"
sx_Close()
ELSE