*** empty log message ***

harbour/ChangeLog

@@ -1,3 +1,10 @@
+19990730-15:33 CET Victor Szel <info@szelvesz.hu>
+   + source/rtl/descend.c
+     source/rtl/hardcr.c
+     source/rtl/mtran.c
+     Added documentation.
+     Posted by Jose Lalin <dezac@corevia.com>
+
 19990730-09:20 EDT Paul Tucker <ptucker@sympatico.ca>
    * makefile.vc
      + added sdf and delim support

harbour/source/rtl/descend.c

@@ -31,9 +31,40 @@
    You can contact me at: dezac@corevia.com
  */
 
+/*  $DOC$
+ *  $FUNCNAME$
+ *      DESCEND
+ *  $CATEGORY$
+ *      
+ *  $ONELINER$
+ *      Inverts an expression of string, logical, date or numeric type.
+ *  $SYNTAX$
+ *      DESCEND( <xExp> ) --> <xExpInverted>
+ *  $ARGUMENTS$
+ *      <xExp> is any valid expression.
+ *  $RETURNS$
+ *      Inverted value of the same type as passed.
+ *  $DESCRIPTION$
+ *      This function converts an expression in his inverted form. It is
+ *      useful to build descending indexes.
+ *  $EXAMPLES$
+ *      // Seek for Smith in a descending index
+ *      SEEK DESCEND( "SMITH" )
+ *  $TESTS$
+ *      DATA->( DBSEEK( DESCEND( "SMITH" ) ) )
+ *      will seek "SMITH" into a descending index.
+ *  $STATUS$
+ *      C
+ *  $COMPLIANCE$
+ *      DESCEND is fully CA-Clipper compliant.
+ *  $SEEALSO$
+ *      INDEX, SEEK
+ *  $END$
+ */
+
+#include <ctype.h>
 #include "extend.h"
 #include "itemapi.h"
-#include <ctype.h>
 #include "init.h"
 
 HARBOUR HB_DESCEND(void);
@@ -44,7 +75,7 @@ HB_INIT_SYMBOLS_END( Descend__InitSymbols );
 #if ! defined(__GNUC__)
 #pragma Descend__InitSymbols
 #endif
-
+                            
 char *hb_strdescend( char *string )
 {
    char *s;

harbour/source/rtl/hardcr.c

@@ -31,8 +31,39 @@
    You can contact me at: dezac@corevia.com
  */
 
-#include "extend.h"
+/*  $DOC$
+ *  $FUNCNAME$
+ *      HARDCR
+ *  $CATEGORY$
+ *      
+ *  $ONELINER$
+ *      Converts soft carriage pair chr(141)/chr(10) into hard carriage chr(13)
+ *  $SYNTAX$
+ *      HARDCR( <cString> ) --> <cConvertedString>
+ *  $ARGUMENTS$
+ *      <cString> is a string of chars to convert.
+ *  $RETURNS$
+ *      Trasformed string.
+ *  $DESCRIPTION$
+ *      Returns a string/memo with soft carriages chars converted to
+ *      hard carraige char.
+ *  $EXAMPLES$
+ *      ? HARDCR( Data->CNOTES )
+ *  $TESTS$
+ *      @ 1, 1 SAY HARDCR( Data->CNOTES )
+ *      will display converted string starting on row two, column two of the
+ *      current device.
+ *  $STATUS$
+ *      C
+ *  $COMPLIANCE$
+ *      HARDCR is fully CA-Clipper compliant.
+ *  $SEEALSO$
+ *      MEMOTRAN(), STRTRAN()
+ *  $END$
+ */
+
 #include <ctype.h>
+#include "extend.h"
 #include "init.h"
 
 #define CHR_HARD1   (char)141
@@ -40,7 +71,6 @@
 
 HARBOUR HB_HARDCR(void);
 
-
 HB_INIT_SYMBOLS_BEGIN( HardCR__InitSymbols )
 { "HARDCR", FS_PUBLIC, HB_HARDCR, 0 }
 HB_INIT_SYMBOLS_END( HardCR__InitSymbols );

harbour/source/rtl/mtran.c

@@ -30,9 +30,44 @@
    You can contact me at: dezac@corevia.com
 */
 
+/*  $DOC$
+ *  $FUNCNAME$
+ *      MEMOTRAN
+ *  $CATEGORY$
+ *      
+ *  $ONELINER$
+ *      Converts hard and soft carriages within strings.
+ *  $SYNTAX$
+ *      MEMOTRAN( <cString>, <cHard>, <cSoft> ) --> <cConvertedString>
+ *  $ARGUMENTS$
+ *      <cString> is a string of chars to convert.
+ *      <cHard> is the character to replace hard carriages with. If not
+ *      specified defaults to semicolon.
+ *      <cSoft> is the character to replace soft carriages with. If not
+ *      specified defaults to single space.
+ *  $RETURNS$
+ *      Trasformed string.
+ *  $DESCRIPTION$
+ *      Returns a string/memo with carriage chars converted to specified
+ *      chars.
+ *  $EXAMPLES$
+ *      ? MEMOTRAN( DATA->CNOTES )
+ *  $TESTS$
+ *      @ 1, 1 SAY MEMOTRAN( Data->CNOTES )
+ *      will display converted string starting on row two, column two of the
+ *      current device.
+ *  $STATUS$
+ *      C
+ *  $COMPLIANCE$
+ *      MEMOTRAN is fully CA-Clipper compliant.
+ *  $SEEALSO$
+ *      HARDCR(), STRTRAN()
+ *  $END$
+ */
+
+#include <ctype.h>
 #include "extend.h"
 #include "init.h"
-#include <ctype.h>
 
 #define CHR_HARD1   (char)141
 #define CHR_HARD2   (char)10