19991017-14:36 GMT+1

1999-10-17 12:52:12 +00:00
parent 4038613721
commit 028ba286d2
6 changed files with 283 additions and 0 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,24 @@
+19991017-14:36 GMT+1 Victor Szel <info@szelvesz.hu>
+   * 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 <info@szelvesz.hu>
   * source/rtl/dummy.prg
     + Some more undocumented and internal functions added.
--- 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
--- 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 \

--- a/harbour/source/rdd/dbnubs.c
+++ 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 <info@szelvesz.hu>
+ * 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();
+}
+
--- 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 ""
--- 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