ChangeLogTag:19990801-20:40 GMT+1 Bruno Cantero <bruno@issnet.net>

harbour/ChangeLog

@@ -1,3 +1,12 @@
+19990801-20:40 GMT+1 Bruno Cantero <bruno@issnet.net>
+   * source/rdd/rddsys.prg
+     source/rdd/dbf0.prg
+     source/rdd/sdf0.prg
+     source/rdd/delim0.prg
+     source/rdd/dbfntx/dbfntx0.prg
+     tests/working/testdbf.prg
+     Added a message for check if all the RDD's are linked
+
 19990801-20:20 GMT+1 Bruno Cantero <bruno@issnet.net>
    * source/rtl/files.c
      Changed for MSVC

harbour/source/rdd/dbf0.prg

@@ -28,6 +28,8 @@ ANNOUNCE DBF
 
 init procedure DBFInit
 
+   QOut( "init procedure DBFInit" )
+
    REQUEST _DBF
 
    rddRegister( "DBF", RDT_FULL )

harbour/source/rdd/dbfntx/dbfntx0.prg

@@ -28,6 +28,8 @@ ANNOUNCE DBFNTX
 
 init procedure DBFNTXInit
 
+   QOut( "init procedure DBFNTXInit" )
+
    REQUEST _DBFNTX
 
    rddRegister( "DBFNTX", RDT_FULL )

harbour/source/rdd/delim0.prg

@@ -28,6 +28,8 @@ ANNOUNCE DELIM
 
 init procedure DELIMInit
 
+   QOut( "init procedure DELIMInit")
+
    REQUEST _DELIM
 
    rddRegister( "DELIM", RDT_TRANSFER )

harbour/source/rdd/rddsys.prg

@@ -28,6 +28,8 @@ ANNOUNCE RDDSYS
 
 init procedure RddInit
 
+   QOut( "init procedure RddInit" )
+
    REQUEST DBFNTX
 
    rddSetDefault( "DBFNTX" )
@@ -36,6 +38,8 @@ return
 
 exit procedure RddExit
 
+   QOut( "exit procedure RddExit" )
+
    rddShutdown()
 
 return

harbour/source/rdd/sdf0.prg

@@ -28,6 +28,8 @@ ANNOUNCE SDF
 
 init procedure SDFInit
 
+   QOut( "init procedure SDFInit" )
+
    REQUEST _SDF
 
    rddRegister( "SDF", RDT_TRANSFER )

harbour/tests/working/testdbf.prg

@@ -6,9 +6,12 @@ function main()
 		      { "DATE",      "D",  8, 0 }, ;
 		      { "LOGICAL",   "L",  1, 0 } }
 
-   QQOut( "Testing the DBF RDD driver" )
-   QOut()
+   local aRdd := rddList()
+
+   QOut( "Registered RDD's:", LTrim( Str( Len( aRdd ) ) ), "=>" )
+   aEval( aRdd, { | cDriver | QQOut( "", cDriver ) } )
    QOut()
+   QOut( "Creating a DBF file" )
    dbCreate( "testdbf.dbf", aStruct )
 
 return nil