2012-10-05 21:31 UTC+0200 Viktor Szakats (vszakats syenar.net)

* extras/hbvpdf/hbvpdf.prg
    ! s&r typo in recent mods

  * extras/hbvpdf/hbvpsup.prg
    ! typo in recent mods

  * contrib/hbnf/doc/en/mouse2.txt
  * contrib/xhb/xhbtedit.prg
  * extras/gfspell/spell.prg
  * extras/hbvpdf/tests/pdf_demo.prg
    * .not. -> !

  * contrib/hbformat/hbfmtcls.prg
    + enabled to convert .not. to ! by default

harbour/ChangeLog

@@ -16,6 +16,22 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-10-05 21:31 UTC+0200 Viktor Szakats (vszakats syenar.net)
+  * extras/hbvpdf/hbvpdf.prg
+    ! s&r typo in recent mods
+
+  * extras/hbvpdf/hbvpsup.prg
+    ! typo in recent mods
+
+  * contrib/hbnf/doc/en/mouse2.txt
+  * contrib/xhb/xhbtedit.prg
+  * extras/gfspell/spell.prg
+  * extras/hbvpdf/tests/pdf_demo.prg
+    * .not. -> !
+
+  * contrib/hbformat/hbfmtcls.prg
+    + enabled to convert .not. to ! by default
+
 2012-10-05 19:22 UTC+0200 Viktor Szakats (vszakats syenar.net)
   * contrib/gtwvg/syswnd.prg
   * contrib/gtwvg/tests/tbrowser.prg

harbour/contrib/hbformat/hbfmtcls.prg

@@ -87,7 +87,7 @@ CREATE CLASS HBFORMATCODE
    VAR nIndCont       INIT   3      // Indent for continuation ( after ';' ) lines - amount of spaces
    VAR lCnvAst        INIT .T.      // If true, convert asterisk '*' to '//'
    VAR lCnvAmp        INIT .T.      // If true, convert '&&' to '//'
-   VAR lCnvNot        INIT .F.      // If true, convert .NOT. TO !
+   VAR lCnvNot        INIT .T.      // If true, convert .NOT. TO !
    VAR nCaseCmd       INIT   1      // Case of commands ( -1 - no change, 1 - upper, 2 - lower, 3 - title )
    VAR nCaseBoo       INIT   1      // Case of boolean operators ( -1 - no change, 1 - upper, 2 - lower, 3 - title )
    VAR nCaseFnc       INIT   4      // Case of functions ( -1 - no change, 1 - upper, 2 - lower, 3 - title, 4 - as in pattern )

harbour/contrib/hbnf/doc/en/mouse2.txt

@@ -22,7 +22,7 @@
  *     movement is set to the maximum for the current video mode.
  *     Use FT_MSHOWCRS() to display the mouse cursor.
  *  $EXAMPLES$
- *     IF .NOT. FT_MINIT()
+ *     IF ! FT_MINIT()
  *        ? "No mouse driver is installed"
  *     ENDIF
  *  $SEEALSO$

harbour/contrib/xhb/xhbtedit.prg

@@ -2122,7 +2122,7 @@ METHOD SplitLine( nRow ) CLASS XHBEditor
    LOCAL nPosInWord
 
    // Do something only if Word Wrapping is on
-   IF .NOT. ::lWordWrap // .OR. ( ::LineLen( nRow ) <= ::nWordWrapCol )
+   IF ! ::lWordWrap // .OR. ::LineLen( nRow ) <= ::nWordWrapCol
       RETURN Self
    ENDIF
 

harbour/extras/gfspell/spell.prg

@@ -1190,7 +1190,7 @@ endif
 //  See if the DBF file exists
 //
 //////////////////////////////////////
-if .not. "."$cDBF
+if ! "."$cDBF
    cDBF += ".DBF"
 endif
 
@@ -1364,7 +1364,7 @@ endif
 //  See if the DBF file exists
 //
 //////////////////////////////////////
-if .not. "."$cDBF
+if ! "."$cDBF
    cDBF += ".DBF"
 endif
 

harbour/extras/hbvpdf/hbvpdf.prg

@@ -2448,7 +2448,7 @@ local cData  := valtype(xData)
    if HB_ISSTRING(xData)
        cData += i2bin(len(xData))+xData
    elseif HB_ISNUMERIC(xData)
-       cData += i2bin(len(alhb_ntos(xData)) )+hb_ntos(str(xData))
+       cData += i2bin(len(hb_ntos(xData)))+hb_ntos(xData)
    elseif HB_ISDATE(xData)
        cData += i2bin(8)+dtos(xData)
    elseif HB_ISLOGICAL(xData)

harbour/extras/hbvpdf/hbvpsup.prg

@@ -3,4 +3,4 @@
  */
 
 FUNCTION vpdf_FontsDat()
-   #pragma __streaminclude "fonts.dat" | RETURN { %s }
+   #pragma __streaminclude "fonts.dat" | RETURN %s

harbour/extras/hbvpdf/tests/pdf_demo.prg

@@ -173,7 +173,7 @@ STATIC FUNCTION cton( cString, nBase ) // this function called only used in pdf_
 
    FOR nI := 1 TO nLen
       cChar := SubStr( cTemp, nI, 1 )
-      IF .NOT. IsDigit( cChar )
+      IF ! IsDigit( cChar )
          n := n + ( ( Asc( cChar ) - 65 ) + 10 ) * ( nBase ^ ( nI - 1 ) )
       ELSE
          n := n + ( ( nBase ^ ( nI - 1 ) ) * Val( cChar ) )