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

* contrib/xhb/hterrsys.prg
  * contrib/xhb/htmutil.prg
  * contrib/xhb/tfile.prg
  * contrib/xhb/xhberr.prg
  * doc/en/file.txt
  * extras/gfspell/spell.prg
  * extras/guestbk/testcgi.prg
  * extras/httpsrv/cgifunc.prg
  * extras/httpsrv/uhttpd.prg
  * tests/inifiles.prg
  * utils/hbmk2/hbmk2.prg
    ! TCgiFile():Tell() fixed to return correct value
    * use fileio.ch constants instead of literals

harbour/extras/httpsrv/cgifunc.prg

@@ -725,7 +725,7 @@ PROCEDURE uhttpd_WriteToLogFile( cString, cLog, lCreate )
      //cString := "PROCEDURE: " + ProcName( -2 ) + " " + cString
 
      IF nHandle > 0
-        FSeek( nHandle, 0, 2 )
+        FSeek( nHandle, 0, FS_END )
         FWrite( nHandle, cString )
         FWrite( nHandle, CRLF )
         FClose( nHandle )

harbour/extras/httpsrv/uhttpd.prg

@@ -497,7 +497,7 @@ PROCEDURE Main( ... )
 
    // --------------------- Open log files -------------------------------------
 
-   IF ( s_hfileLogAccess := FOPEN( cLogAccess, FO_CREAT + FO_WRITE ) ) == -1
+   IF ( s_hfileLogAccess := FOPEN( cLogAccess, FO_CREAT + FO_WRITE ) ) == F_ERROR
       ? "Can't open access log file"
       WAIT
       ErrorLevel( 1 )
@@ -505,7 +505,7 @@ PROCEDURE Main( ... )
    ENDIF
    FSEEK( s_hfileLogAccess, 0, FS_END )
 
-   IF ( s_hfileLogError := FOPEN( cLogError, FO_CREAT + FO_WRITE ) ) == -1
+   IF ( s_hfileLogError := FOPEN( cLogError, FO_CREAT + FO_WRITE ) ) == F_ERROR
       ? "Can't open error log file"
       WAIT
       ErrorLevel( 1 )
@@ -2175,7 +2175,7 @@ STATIC FUNCTION Exe_Path()
    IF nPos == 0
       cPath := ""
    ELSE
-      cPath := SubStr( cPath, 1, nPos-1 )
+      cPath := SubStr( cPath, 1, nPos - 1 )
    ENDIF
    RETURN cPath