From 4a96b9f17f5f20c02ed5c47882bcdc094ee3fd53 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 24 Mar 2013 21:39:15 +0100 Subject: [PATCH] cleanups --- ChangeLog.txt | 8 ++++++++ doc/en/browse.txt | 8 ++++---- doc/en/diskspac.txt | 4 ++-- doc/en/file.txt | 38 +++++++++++++++++++------------------- doc/en/objfunc.txt | 34 ++++++++++++++++------------------ doc/en/rdddb.txt | 4 ++-- 6 files changed, 51 insertions(+), 45 deletions(-) diff --git a/ChangeLog.txt b/ChangeLog.txt index ae4905685e..a55e86db6c 100644 --- a/ChangeLog.txt +++ b/ChangeLog.txt @@ -10,6 +10,14 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2013-03-24 21:39 UTC+0100 Viktor Szakats (harbour syenar.net) + * doc/en/browse.txt + * doc/en/diskspac.txt + * doc/en/file.txt + * doc/en/objfunc.txt + * doc/en/rdddb.txt + * cleanups + 2013-03-24 21:25 UTC+0100 Viktor Szakats (harbour syenar.net) * doc/en/datetime.txt * cleanups diff --git a/doc/en/browse.txt b/doc/en/browse.txt index b1e2fdc93f..6874474868 100644 --- a/doc/en/browse.txt +++ b/doc/en/browse.txt @@ -152,11 +152,11 @@ --------------------------- - dbedit.ch Value Meaning + dbedit.ch Meaning - DE_ABORT 0 Abort dbEdit(). - DE_CONT 1 Continue dbEdit() as is. - DE_REFRESH 2 Force reread/redisplay of all data rows. + DE_ABORT Abort dbEdit(). + DE_CONT Continue dbEdit() as is. + DE_REFRESH Force reread/redisplay of all data rows.
The user function is called once in each of the following cases: diff --git a/doc/en/diskspac.txt b/doc/en/diskspac.txt index f1cc9c7b82..8b117d4acf 100644 --- a/doc/en/diskspac.txt +++ b/doc/en/diskspac.txt @@ -39,7 +39,7 @@ $EXAMPLES$ ? "You can use : " + hb_ntos( DiskSpace() ) + " bytes " - Note: See tests/diskspac.prg for another example + // NOTE: See tests/diskspac.prg for another example $STATUS$ R $COMPLIANCE$ @@ -101,7 +101,7 @@ ? "You can use : " + hb_ntos( hb_DiskSpace() ) + " bytes " +; "Out of a total of " + hb_ntos( hb_DiskSpace( "C:", HB_FS_TOTAL ) ) - Note: See tests/diskspac.prg for another example + // NOTE: See tests/diskspac.prg for another example $STATUS$ R $COMPLIANCE$ diff --git a/doc/en/file.txt b/doc/en/file.txt index 8a83c4797a..798dc39e11 100644 --- a/doc/en/file.txt +++ b/doc/en/file.txt @@ -43,16 +43,16 @@ the default value is 0. The file open modes are as follows: - nMode fileio.ch Meaning + nMode Meaning - 0 FO_READ Read only - 1 FO_WRITE Write only - 2 FO_READWRITE Read/write - 16 FO_EXCLUSIVE Exclusive read only - 32 FO_DENYWRITE Prevent others from writing - 48 FO_DENYREAD Deny read only - 64 FO_DENYNONE Not deny, Let to others Read / Write - 64 FO_SHARED same as FO_DENYNONE + FO_READ Read only + FO_WRITE Write only + FO_READWRITE Read/write + FO_EXCLUSIVE Exclusive read only + FO_DENYWRITE Prevent others from writing + FO_DENYREAD Deny read only + FO_DENYNONE Not deny, Let to others Read / Write + FO_SHARED same as FO_DENYNONE
If there is an error in opening a file, a F_ERROR will be returned by @@ -74,7 +74,7 @@ C $FILES$ Library is core - Header is fileio.ch + Header is fileio.ch $SEEALSO$ FCreate(), FError(), FClose() $END$ @@ -116,12 +116,12 @@ this function. - fileio.ch Meaning + Meaning - 0 FC_NORMAL Normal/Default, Read/Write - 1 FC_READONLY Read-only file attribute is set - 2 FC_HIDDEN Hidden, Excluded from normal DIR search - 4 FC_SYSTEM Create, Excluded from normal DIR search + FC_NORMAL Normal/Default, Read/Write + FC_READONLY Read-only file attribute is set + FC_HIDDEN Hidden, Excluded from normal DIR search + FC_SYSTEM Create, Excluded from normal DIR search
$EXAMPLES$ #include "fileio.ch" @@ -509,11 +509,11 @@ file pointer should he moved, as shown in the following table: - fileio.ch File position + File position - 0 FS_SET Beginning of file - 1 FS_RELATIVE Current file pointer position - 2 FS_END End of file + FS_SET Beginning of file + FS_RELATIVE Current file pointer position + FS_END End of file
If a value is not provided for , it defaults to 0 and diff --git a/doc/en/objfunc.txt b/doc/en/objfunc.txt index f369c57537..82845e9fc7 100644 --- a/doc/en/objfunc.txt +++ b/doc/en/objfunc.txt @@ -129,11 +129,11 @@ that allow you to distinguish between VAR and CLASS VAR: table> - hboo.ch Value Meaning + hboo.ch Meaning - HB_MSGLISTALL 0 All types - HB_MSGLISTCLASS 1 CLASS VAR only - HB_MSGLISTPURE 2 VAR only + HB_MSGLISTALL All types + HB_MSGLISTCLASS CLASS VAR only + HB_MSGLISTPURE VAR only /table> VAR are instance variable usable within each object from a class, @@ -350,16 +350,14 @@ ? oHappy:Smile( 3 ) // *SMILE* STATIC FUNCTION MySmile( nType ) - LOCAL cSmile - DO CASE - CASE nType == 1 - cSmile := ":)" - CASE nType == 2 - cSmile := ";)" - CASE nType == 3 - cSmile := "*SMILE*" - ENDCASE - RETURN cSmile + IF HB_ISNUMERIC( nType ) + SWITCH nType + CASE 1 ; RETURN ":)" + CASE 2 ; RETURN ";)" + CASE 3 ; RETURN "*SMILE*" + ENDCASE + ENDIF + RETURN NIL $STATUS$ R $COMPLIANCE$ @@ -398,7 +396,7 @@ with the name already exist in . $EXAMPLES$ // create a new THappy class and add a Smile INLINE method - oHappy := HBClass():New( "THappy" ) + oHappy := HBClass():New( "THappy" ) bInline := {| nType | { ":)", ";)", "*SMILE*" }[ nType ] } __objAddInline( oHappy, "Smile", bInline ) ? oHappy:Smile( 1 ) // :) @@ -440,7 +438,7 @@ already exist in . $EXAMPLES$ // create a new THappy class and add a lHappy VAR - oHappy := HBClass():New( "THappy" ) + oHappy := HBClass():New( "THappy" ) __objAddData( oHappy, "lHappy" ) oHappy:lHappy := .T. IF oHappy:lHappy @@ -559,7 +557,7 @@ mechanism. $EXAMPLES$ // create a new THappy class and add a Smile INLINE method - oHappy := HBClass():New( "THappy" ) + oHappy := HBClass():New( "THappy" ) bMyInline := {| nType | { ":)", ";)" }[ nType ] } bYourInline := {| nType | { "*SMILE*", "*WINK*" }[ nType ] } __objAddInline( oHappy, "Smile", bMyInline ) @@ -716,7 +714,7 @@ with the name does not exist in . $EXAMPLES$ // create a new THappy class and add a lHappy VAR - oHappy := HBClass():New( "THappy" ) + oHappy := HBClass():New( "THappy" ) __objAddData( oHappy, "lHappy" ) ? __objHasData( oHappy, "lHappy" ) // .T. // remove lHappy VAR diff --git a/doc/en/rdddb.txt b/doc/en/rdddb.txt index 10aec9d0f7..1bc6f8446f 100644 --- a/doc/en/rdddb.txt +++ b/doc/en/rdddb.txt @@ -459,7 +459,7 @@ This function is not CA-Cl*pper compliant $FILES$ Library is rdd - Header is dbstruct.ch + Header is dbstruct.ch $SEEALSO$ AFields()*, dbStruct() $END$ @@ -1121,7 +1121,7 @@ C $FILES$ Library is rdd - Header is dbstruct.ch + Header is dbstruct.ch $SEEALSO$ AFields()* $END$