diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 2cec9da83d..339b025275 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,24 @@ +19991017-14:36 GMT+1 Victor Szel + * source/rdd/dbnubs.c + source/rdd/Makefile + include/hbextern.ch + source/runner/stdalone/external.prg + * Added internal versions of database commands. All undocumented. + WARNING ! Please add dbnubs.c to non-GNU make systems. + * source/rtl/dummy.prg + include/hbextern.ch + source/runner/stdalone/external.prg + + __dbArrange() + + __dbFList() + + __dbOpenSDF() + + __dbSetFound() + + __dbSetLocate() + + __dbTrans() + + __dbTransRec() + Some more undocumented, internal Clipper functions added. + With these, to my knowledge *all* Clipper level, internal and + undocumented functions are defined in Harbour. + 19991017-13:34 GMT+1 Victor Szel * source/rtl/dummy.prg + Some more undocumented and internal functions added. diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch index a34940aeed..ef39bf827b 100644 --- a/harbour/include/hbextern.ch +++ b/harbour/include/hbextern.ch @@ -482,6 +482,13 @@ EXTERNAL __DBSORT EXTERNAL __DBTOTAL EXTERNAL __DBUPDATE EXTERNAL __DBZAP +EXTERNAL __DBARRANGE +EXTERNAL __DBFLIST +EXTERNAL __DBOPENSDF +EXTERNAL __DBSETFOUND +EXTERNAL __DBSETLOCATE +EXTERNAL __DBTRANS +EXTERNAL __DBTRANSREC EXTERNAL DBEDIT EXTERNAL ISPRINTER EXTERNAL NETNAME @@ -698,6 +705,33 @@ EXTERNAL __RDDSETDEFAULT EXTERNAL _DBFC EXTERNAL DBF_GETFUNCTABLE // +//symbols from file: rdd\dbnubs.c +// +EXTERNAL __DBSEEK +EXTERNAL __DBSKIP +EXTERNAL __DBGOTOP +EXTERNAL __DBGOBOTTOM +EXTERNAL __DBGOTO +EXTERNAL __DBAPPEND +EXTERNAL __DBDELETE +EXTERNAL __DBRECALL +EXTERNAL __DBCOMMIT +EXTERNAL __DBCOMMITALL +EXTERNAL __DBUNLOCK +EXTERNAL __DBUNLALL +EXTERNAL __DBSETFILTER +EXTERNAL __DBCLEARRELATION +EXTERNAL __DBSETRELATION +EXTERNAL __DBREINDEX +EXTERNAL __DBCREATINDEX +EXTERNAL __DBCLEARINDEX +EXTERNAL __DBSETINDEX +EXTERNAL __DBSETORDER +EXTERNAL __DBCLOSEAREA +EXTERNAL __DBCLOSE +EXTERNAL __DBUSE +EXTERNAL __DBSELECT +// //symbols from file: rdd\delim1.c // EXTERNAL _DELIMC diff --git a/harbour/source/rdd/Makefile b/harbour/source/rdd/Makefile index cb55bca271..8ead34863a 100644 --- a/harbour/source/rdd/Makefile +++ b/harbour/source/rdd/Makefile @@ -7,6 +7,7 @@ ROOT = ../../ C_SOURCES=\ dbcmd.c \ dbf1.c \ + dbnubs.c \ sdf1.c \ delim1.c \ diff --git a/harbour/source/rdd/dbnubs.c b/harbour/source/rdd/dbnubs.c new file mode 100644 index 0000000000..1144013cc0 --- /dev/null +++ b/harbour/source/rdd/dbnubs.c @@ -0,0 +1,184 @@ +/* + * $Id$ + */ + +/* + * Harbour Project source code: + * Internal versions for database version (Clipper undocumented) + * + * Copyright 1999 Victor Szel + * www - http://www.harbour-project.org + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version, with one exception: + * + * The exception is that if you link the Harbour Runtime Library (HRL) + * and/or the Harbour Virtual Machine (HVM) with other files to produce + * an executable, this does not by itself cause the resulting executable + * to be covered by the GNU General Public License. Your use of that + * executable is in no way restricted on account of linking the HRL + * and/or HVM code into it. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit + * their web site at http://www.gnu.org/). + * + */ + +#include "hbdefs.h" + +extern HARBOUR HB_DBSEEK(); +extern HARBOUR HB_DBSKIP(); +extern HARBOUR HB_DBGOTOP(); +extern HARBOUR HB_DBGOBOTTOM(); +extern HARBOUR HB_DBGOTO(); +extern HARBOUR HB_DBAPPEND(); +extern HARBOUR HB_DBDELETE(); +extern HARBOUR HB_DBRECALL(); +extern HARBOUR HB_DBCOMMITALL(); +extern HARBOUR HB_DBUNLOCK(); +extern HARBOUR HB_DBUNLOCKALL(); +extern HARBOUR HB_DBSETFILTER(); +extern HARBOUR HB_DBCLEARRELATION(); +extern HARBOUR HB_DBSETRELATION(); +extern HARBOUR HB_DBREINDEX(); +extern HARBOUR HB_DBCREATEINDEX(); +extern HARBOUR HB_DBCLEARINDEX(); +extern HARBOUR HB_DBSETINDEX(); +extern HARBOUR HB_DBSETORDER(); +extern HARBOUR HB_DBCLOSEALL(); +extern HARBOUR HB_DBCLOSEAREA(); +extern HARBOUR HB_DBUSEAREA(); +extern HARBOUR HB_DBSELECTAREA(); + +HARBOUR HB___DBSEEK( void ) +{ + HB_DBSEEK(); +} + +HARBOUR HB___DBSKIP( void ) +{ + HB_DBSKIP(); +} + +HARBOUR HB___DBGOTOP( void ) +{ + HB_DBGOTOP(); +} + +HARBOUR HB___DBGOBOTTOM( void ) +{ + HB_DBGOBOTTOM(); +} + +HARBOUR HB___DBGOTO( void ) +{ + HB_DBGOTO(); +} + +HARBOUR HB___DBAPPEND( void ) +{ + HB_DBAPPEND(); +} + +HARBOUR HB___DBDELETE( void ) +{ + HB_DBDELETE(); +} + +HARBOUR HB___DBRECALL( void ) +{ + HB_DBRECALL(); +} + +/* NOTE: Clipper does exactly that, __dbCommit() will call dbCommitAll() + This may be a bug. */ + +HARBOUR HB___DBCOMMIT( void ) +{ + HB_DBCOMMITALL(); +} + +HARBOUR HB___DBCOMMITALL( void ) +{ + HB_DBCOMMITALL(); +} + +HARBOUR HB___DBUNLOCK( void ) +{ + HB_DBUNLOCK(); +} + +HARBOUR HB___DBUNLALL( void ) +{ + HB_DBUNLOCKALL(); +} + +HARBOUR HB___DBSETFILTER( void ) +{ + HB_DBSETFILTER(); +} + +HARBOUR HB___DBCLEARRELATION( void ) +{ + HB_DBCLEARRELATION(); +} + +HARBOUR HB___DBSETRELATION( void ) +{ + HB_DBSETRELATION(); +} + +HARBOUR HB___DBREINDEX( void ) +{ + HB_DBREINDEX(); +} + +HARBOUR HB___DBCREATINDEX( void ) +{ + HB_DBCREATEINDEX(); +} + +HARBOUR HB___DBCLEARINDEX( void ) +{ + HB_DBCLEARINDEX(); +} + +HARBOUR HB___DBSETINDEX( void ) +{ + HB_DBSETINDEX(); +} + +HARBOUR HB___DBSETORDER( void ) +{ + HB_DBSETORDER(); +} + +HARBOUR HB___DBCLOSEAREA( void ) +{ + HB_DBCLOSEALL(); +} + +HARBOUR HB___DBCLOSE( void ) +{ + HB_DBCLOSEAREA(); +} + +HARBOUR HB___DBUSE( void ) +{ + HB_DBUSEAREA(); +} + +HARBOUR HB___DBSELECT( void ) +{ + HB_DBSELECTAREA(); +} + diff --git a/harbour/source/rtl/dummy.prg b/harbour/source/rtl/dummy.prg index 8ab06a7c57..e86de967dd 100644 --- a/harbour/source/rtl/dummy.prg +++ b/harbour/source/rtl/dummy.prg @@ -75,6 +75,15 @@ FUNCTION __dbTotal() ; RETURN NIL FUNCTION __dbUpdate() ; RETURN NIL FUNCTION __dbZap() ; RETURN NIL +/* NOTE: Internal functions */ +FUNCTION __dbArrange() ; RETURN NIL +FUNCTION __dbFList() ; RETURN {} +FUNCTION __dbOpenSDF() ; RETURN NIL +FUNCTION __dbSetFound() ; RETURN NIL +FUNCTION __dbSetLocate() ; RETURN NIL +FUNCTION __dbTrans() ; RETURN NIL +FUNCTION __dbTransRec() ; RETURN NIL + FUNCTION dbEdit() ; RETURN NIL FUNCTION IsPrinter() ; RETURN .T. FUNCTION NetName() ; RETURN "" diff --git a/harbour/source/runner/stdalone/external.prg b/harbour/source/runner/stdalone/external.prg index e98b61e833..bee6bd4df9 100644 --- a/harbour/source/runner/stdalone/external.prg +++ b/harbour/source/runner/stdalone/external.prg @@ -479,6 +479,13 @@ EXTERNAL __DBSORT EXTERNAL __DBTOTAL EXTERNAL __DBUPDATE EXTERNAL __DBZAP +EXTERNAL __DBARRANGE +EXTERNAL __DBFLIST +EXTERNAL __DBOPENSDF +EXTERNAL __DBSETFOUND +EXTERNAL __DBSETLOCATE +EXTERNAL __DBTRANS +EXTERNAL __DBTRANSREC EXTERNAL DBEDIT EXTERNAL ISPRINTER EXTERNAL NETNAME @@ -695,6 +702,33 @@ EXTERNAL __RDDSETDEFAULT EXTERNAL _DBFC EXTERNAL DBF_GETFUNCTABLE // +//symbols from file: rdd\dbnubs.c +// +EXTERNAL __DBSEEK +EXTERNAL __DBSKIP +EXTERNAL __DBGOTOP +EXTERNAL __DBGOBOTTOM +EXTERNAL __DBGOTO +EXTERNAL __DBAPPEND +EXTERNAL __DBDELETE +EXTERNAL __DBRECALL +EXTERNAL __DBCOMMIT +EXTERNAL __DBCOMMITALL +EXTERNAL __DBUNLOCK +EXTERNAL __DBUNLALL +EXTERNAL __DBSETFILTER +EXTERNAL __DBCLEARRELATION +EXTERNAL __DBSETRELATION +EXTERNAL __DBREINDEX +EXTERNAL __DBCREATINDEX +EXTERNAL __DBCLEARINDEX +EXTERNAL __DBSETINDEX +EXTERNAL __DBSETORDER +EXTERNAL __DBCLOSEAREA +EXTERNAL __DBCLOSE +EXTERNAL __DBUSE +EXTERNAL __DBSELECT +// //symbols from file: rdd\delim1.c // EXTERNAL _DELIMC