20000205-13:06 GMT+1 Victor Szakats <info@szelvesz.hu>

harbour/ChangeLog

@@ -1,3 +1,14 @@
+20000205-13:06 GMT+1 Victor Szakats <info@szelvesz.hu>
+   * tests/db_brows.prg
+     ! UPDATED() removed, since it's now defined in the RTL.
+   * include/rddapi.h
+     source/tools/dbftools.c
+     * hb_rdd*() function declration moved to rddapi.h
+   * source/tools/dbftools.c
+     ! Removed #includes not needed. Especially windows.h.
+   * source/compiler/hbusage.c
+     + Note added about switch character.
+
 20000205-00:32 GMT+1 Victor Szakats <info@szelvesz.hu>
    * source/tools/Makefile
      + dbftools.c added.

harbour/include/rddapi.h

@@ -41,6 +41,7 @@
 /* RDD virtual machine integration functions */
 
 extern int     hb_rddGetCurrentWorkAreaNumber( void );
+extern void *  hb_rddGetCurrentWorkAreaPointer( void );
 extern ERRCODE hb_rddSelectWorkAreaAlias( char * szAlias );
 extern ERRCODE hb_rddSelectWorkAreaNumber( int iArea );
 extern ERRCODE hb_rddSelectWorkAreaSymbol( PHB_SYMB pSymAlias );

harbour/source/compiler/hbusage.c

@@ -78,6 +78,8 @@ void hb_compPrintUsage( char * szSelf )
            "\n          /10              restrict symbol length to 10 significant characters"
 /* TODO:   "\n           @<file>         compile list of modules in <file>" */
            "\n"
+           "\nNotes:  Use the specific option character for your platform"
+           "\n        instead of \'/\'."
            , szSelf );
 }
 

harbour/source/tools/dbftools.c

@@ -6,7 +6,7 @@
  * Harbour Project source code:
  * Some dbf structure related functions
  *
- * Copyright 2000 Alexander Kresin  <alex@belacy.belgorod.su>
+ * Copyright 2000 Alexander Kresin <alex@belacy.belgorod.su>
  * www - http://www.harbour-project.org
  *
  * This program is free software; you can redistribute it and/or modify
@@ -33,18 +33,9 @@
  *
  */
 
-#include "windows.h"
 #include "extend.h"
-#include "init.h"
-#include "itemapi.h"
-#include "rddsys.ch"
-#include "langapi.h"
-#include "dates.h"
-#include "errorapi.h"
 #include "rddapi.h"
 
-extern void* hb_rddGetCurrentWorkAreaPointer( void );
-
 HARBOUR HB_FIELDTYPE( void )
 {
    USHORT uiField;
@@ -52,9 +43,10 @@ HARBOUR HB_FIELDTYPE( void )
    AREAP pArea;
 
    uiField = hb_parni( 1 );
-   pArea = (AREAP) hb_rddGetCurrentWorkAreaPointer();
+   pArea = ( AREAP ) hb_rddGetCurrentWorkAreaPointer();
    pField = pArea->lpFields + uiField - 1;
-   hb_retc( (char*) &(pField->uiType) );
+
+   hb_retc( ( char * ) &( pField->uiType ) );
 }
 
 HARBOUR HB_FIELDSIZE( void )
@@ -64,8 +56,9 @@ HARBOUR HB_FIELDSIZE( void )
    AREAP pArea;
 
    uiField = hb_parni( 1 );
-   pArea = (AREAP) hb_rddGetCurrentWorkAreaPointer();
+   pArea = ( AREAP ) hb_rddGetCurrentWorkAreaPointer();
    pField = pArea->lpFields + uiField - 1;
+
    hb_retni( pField->uiLen );
 }
 
@@ -76,7 +69,8 @@ HARBOUR HB_FIELDDECI( void )
    AREAP pArea;
 
    uiField = hb_parni( 1 );
-   pArea = (AREAP) hb_rddGetCurrentWorkAreaPointer();
+   pArea = ( AREAP ) hb_rddGetCurrentWorkAreaPointer();
    pField = pArea->lpFields + uiField - 1;
+
    hb_retni( pField->uiDec );
-}
+}

harbour/tests/db_brows.prg

@@ -896,14 +896,4 @@ FUNC NUM_STR( NOM, KOLZN )
    NOM := INT( NOM )
 RETURN ( REPLICATE( "0", KOLZN - LEN( LTRIM( STR( NOM ) ) ) ) + LTRIM( STR( NOM ) ) )
 
-*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
-*+
-*+    Function updated()
-*+
-*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
-*+
-FUNCTION updated
-
-RETURN .t.
-
 *+ EOF: SAMPLE.PRG