From 577e90d607a1abfe980a37a4e3afb8e6cddb0c7a Mon Sep 17 00:00:00 2001
From: Chen Kedem <niki@synel.co.il>
Date: Wed, 12 Jul 2006 09:23:54 +0000
Subject: [PATCH] 2006-07-12 12:24 UTC+0300 Chen Kedem <niki@actcom.co.il>

---
 harbour/ChangeLog          |  6 +++++
 harbour/doc/en/rdddb.txt   |  8 +++---
 harbour/doc/en/rddmisc.txt | 54 +++++++++++++++++++++++++++-----------
 3 files changed, 49 insertions(+), 19 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4e0417c383..d8fb1cd92b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,12 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+
+  * harbour/source/vm/cmdarg.c
+  * harbour/source/vm/itemapi.c
+    * formatting
+
+2006-07-12 12:24 UTC+0300 Chen Kedem <niki@actcom.co.il>
    * doc/en/rddmisc.txt
    * doc/en/rdddb.txt
      ! Fix the sample for AFIELDS()
diff --git a/harbour/doc/en/rdddb.txt b/harbour/doc/en/rdddb.txt
index b1e943f0e2..edd0749731 100644
--- a/harbour/doc/en/rdddb.txt
+++ b/harbour/doc/en/rdddb.txt
@@ -455,9 +455,9 @@
  *      This function is Not CA-Clipper compliant
  *  $FILES$
  *      Library is rdd
- *      Header  is Dbstruct.ch
+ *      Header  is dbstruct.ch
  *  $SEEALSO$
- *      AFIELDS(),DBSTRUCT()
+ *      AFIELDS()*,DBSTRUCT()
  *  $END$
  */
 
@@ -1077,9 +1077,9 @@
  *      This function is CA-Clipper compliant
  *  $FILES$
  *      Library is rdd
- *      Header is  DbStruct.ch
+ *      Header  is dbstruct.ch
  *  $SEEALSO$
- *      AFIELDS()
+ *      AFIELDS()*
  *  $END$
  */
 
diff --git a/harbour/doc/en/rddmisc.txt b/harbour/doc/en/rddmisc.txt
index a511468b7c..577bc0f8dc 100644
--- a/harbour/doc/en/rddmisc.txt
+++ b/harbour/doc/en/rddmisc.txt
@@ -17,7 +17,7 @@
 
 /*  $DOC$
  *  $FUNCNAME$
- *     AFIELDS()
+ *     AFIELDS()*
  *  $CATEGORY$
  *      Database
  *  $ONELINER$
@@ -36,34 +36,58 @@
  *      <nFields> Number od fields in a database or work area
  *  $DESCRIPTION$
  *      This function will fill a series of arrays with field
- *      names,field types,field lenghts, and number of field
+ *      names, field types, field lenghts, and number of field
  *      decimal positions for the currently selected or designed
  *      database. Each array parallels the different descriptors
- *      of a file's structure.The first array will consist of the
- *      names of the fields in the current work area.All other arrays
+ *      of a file's structure. The first array will consist of the
+ *      names of the fields in the current work area. All other arrays
  *      are optional and will be filled with the corrensponding data.
  *      This function will return zero if no parameters are specified
- *      or if no database is avaliable in the current work area.Otherwise,
+ *      or if no database is avaliable in the current work area. Otherwise,
  *      the number of fields or the lenght of the shortest array argument,
  *      witchever is smaller, will be returned.
+ *
+ *      AFIELDS() is a compatibility function, it is superseded by
+ *      DBSTRUCT() which returns one multidimensional array.
+ *
+ *      NOTE: The destination arrays must be initialized to a given size,
+ *            usually FCOUNT(), before calling this function.
+ *
  *  $EXAMPLES$
  *      FUNCTION Main()
- *         LOCAL aNames:={},aTypes:={},aLens:={},aDecs:={},nFields:=0
- *
+ *         LOCAL aNames, aTypes, aLens, aDecs, nCount, nFields, i
  *         USE Test
  *
- *         dbGoTop()
- *         nFields:=aFields(aNames,aTypes,aLens,aDecs)
+ *         nCount := FCount()
+ *         ? "Number of fields:", nCount
+ *         PrintFields( nCount )   // Information for all fields
+ *         PrintFields( 4      )   // Information for first 4 fields
+ *      RETURN NIL
  *
- *         ? "Number of fields", nFields
+ *      FUNCTION PrintFields( nCount )
+ *         LOCAL aNames, aTypes, aLens, aDecs, nFields, i
  *
- *         RETURN NIL
+ *         aNames  := Array( nCount )
+ *         aTypes  := Array( nCount )
+ *         aLens   := Array( nCount )
+ *         aDecs   := Array( nCount )
+ *         nFields := aFields( aNames, aTypes, aLens, aDecs )
+ *
+ *         ? "Number of items :", nFields
+ *         FOR i := 1 TO nFields
+ *             ?  i, PadR( aNames[ i ], 12 ), aTypes[ i ]
+ *             ?? aLens[ i ], aDecs[ i ]
+ *         NEXT
+ *         ?
+ *      RETURN NIL
  *  $STATUS$
  *      R
  *  $COMPLIANCE$
  *      AFIELDS() is fully CA-Clipper compliant.
  *  $FILES$
  *      Library is rdd
+ *  $SEEALSO$
+ *      DBSTRUCT()
  *  $END$
  */
 
@@ -392,7 +416,7 @@
  *      FIELDPUT(<nField>, <expAssign>) --> ValueAssigned
  *  $ARGUMENTS$
  *      <nField> The field numeric position
- *  
+ *
  *      <expAssign> Expression to be assigned to the specified field
  *  $RETURNS$
  *      <ValueAssigned> Any expression
@@ -494,7 +518,7 @@
  *  $CATEGORY$
  *      Database
  *  $ONELINER$
- *      Return the length of a database file header 
+ *      Return the length of a database file header
  *  $SYNTAX$
  *      HEADER() --> nBytes
  *  $RETURNS$
@@ -701,7 +725,7 @@
  *  $TESTS$
  *  $STATUS$
  *      R
- *  $COMPLIANCE$    
+ *  $COMPLIANCE$
  *      This function is Ca-Clipper compliant
  *  $FILES$
  *      Library is rdd
@@ -733,7 +757,7 @@
  *      DBGOTOP()
  *      RECSIZE()            // Returns 1
  *      DBGOTO(50)
- *      RECSIZE() 
+ *      RECSIZE()
  *  $TESTS$
  *  $STATUS$
  *      R