Updating of ADS RDD files

harbour/source/tools/dbftools.c

@@ -36,6 +36,48 @@
 #include "extend.h"
 #include "rddapi.h"
 
+/*  $DOC$
+ *  $FUNCNAME$
+ *      FIELDTYPE()
+ *  $CATEGORY$
+ *      Data Base
+ *  $ONELINER$
+ *      Determines the type of a given field.
+ *  $SYNTAX$
+ *      FIELDTYPE(<nFieldNum>) --> cFieldType
+ *  $ARGUMENTS$
+ *      <nFieldNum> Data field , which type need to be determined.
+ *  $RETURNS$
+ *      FIELDTYPE() returns the character that designates the type of a given field:
+ *      'C' - character string;
+ *      'N' - numeric;
+ *      'L' - logical;
+ *      'D' - date;
+ *      'M' - memo.
+ *  $DESCRIPTION$
+ *      This function determines the type of a field, designated by its number.
+ *  $EXAMPLES$
+ *      FUNCTION Main()
+ *      LOCAL i
+ *      USE Tests NEW
+ *      FOR i = 1 TO FCOUNT()
+ *        ? FieldType( i )
+ *      NEXT
+ *      USE
+ *      RETURN NIL
+ *  $TESTS$
+ *
+ *  $STATUS$
+ *      R
+ *  $COMPLIANCE$
+ *      This function is CA-CLIPPER TOOLS compatible
+ *  $SEEALSO$
+ *    FIELDSIZE(), FIELDDECI()
+ *  $INCLUDE$
+ *
+ *  $END$
+ */
+ 
 HARBOUR HB_FIELDTYPE( void )
 {
    USHORT uiField;
@@ -49,6 +91,43 @@ HARBOUR HB_FIELDTYPE( void )
    hb_retc( ( char * ) &( pField->uiType ) );
 }
 
+/*  $DOC$
+ *  $FUNCNAME$
+ *      FIELDSIZE()
+ *  $CATEGORY$
+ *      Data Base
+ *  $ONELINER$
+ *      Determines the size of a given field.
+ *  $SYNTAX$
+ *      FIELDSIZE(<nFieldNum>) --> nFieldSize
+ *  $ARGUMENTS$
+ *      <nFieldNum> Data field , which size need to be determined.
+ *  $RETURNS$
+ *      FIELDSIZE() returns the number that designates the size of a given field.
+ *  $DESCRIPTION$
+ *      This function determines the size of a field, designated by its number.
+ *  $EXAMPLES$
+ *      FUNCTION Main()
+ *      LOCAL i
+ *      USE Tests NEW
+ *      FOR i = 1 TO FCOUNT()
+ *        ? FieldSize( i )
+ *      NEXT
+ *      USE
+ *      RETURN NIL
+ *  $TESTS$
+ *
+ *  $STATUS$
+ *      R
+ *  $COMPLIANCE$
+ *      This function is CA-CLIPPER TOOLS compatible
+ *  $SEEALSO$
+ *    FIELDTYPE(), FIELDDECI()
+ *  $INCLUDE$
+ *
+ *  $END$
+ */
+
 HARBOUR HB_FIELDSIZE( void )
 {
    USHORT uiField;
@@ -62,6 +141,45 @@ HARBOUR HB_FIELDSIZE( void )
    hb_retni( pField->uiLen );
 }
 
+/*  $DOC$
+ *  $FUNCNAME$
+ *      FIELDDECI()
+ *  $CATEGORY$
+ *      Data Base
+ *  $ONELINER$
+ *      Determines the number of decimal places of a given numeric field.
+ *  $SYNTAX$
+ *      FIELDDECI(<nFieldNum>) --> nFieldDeci
+ *  $ARGUMENTS$
+ *      <nFieldNum> Numeric data field , for which number of decimal
+ *                  places need to be determined.
+ *  $RETURNS$
+ *      FIELDDECI() returns the numeric value that designates the number
+ *                  of decimal places of a given field.
+ *  $DESCRIPTION$
+ *      This function determines the number of decimal places of a given numeric field.
+ *  $EXAMPLES$
+ *      FUNCTION Main()
+ *      LOCAL i
+ *      USE Tests NEW
+ *      FOR i = 1 TO FCOUNT()
+ *        ? FieldDeci( i )
+ *      NEXT
+ *      USE
+ *      RETURN NIL
+ *  $TESTS$
+ *
+ *  $STATUS$
+ *      R
+ *  $COMPLIANCE$
+ *      This function is CA-CLIPPER TOOLS compatible
+ *  $SEEALSO$
+ *    FIELDTYPE(), FIELDSIZE()
+ *  $INCLUDE$
+ *
+ *  $END$
+ */
+
 HARBOUR HB_FIELDDECI( void )
 {
    USHORT uiField;