2023-04-21 11:45 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

* include/harbour.hbx
  * src/harbour.def
  * src/rtl/vfile.c
    + added new PRG function:
         hb_vfIsLocal( <cFileName> ) --> <lLocalFileSystem>
      It returns TRUE if <cFileName> is not redirected to any Harbour File IO
      driver but access local file system API.

  * contrib/xhb/traceprg.prg
    * merged with Victor's branch so now Harbour File IO API is used to
      access log file.
    * convert relative log file name to absolute file path name
    % write whole log entry in single IO operation.

src/harbour.def

@@ -1149,6 +1149,7 @@ HB_FUN_HB_VFERASE
 HB_FUN_HB_VFEXISTS
 HB_FUN_HB_VFFLUSH
 HB_FUN_HB_VFHANDLE
+HB_FUN_HB_VFISLOCAL
 HB_FUN_HB_VFLINK
 HB_FUN_HB_VFLINKREAD
 HB_FUN_HB_VFLINKSYM

src/rtl/vfile.c

@@ -129,6 +129,11 @@ static void hb_fileReturn( PHB_FILE pFile )
       hb_ret();
 }
 
+/* hb_vfIsLocal( <cFileName> ) --> <lOK> */
+HB_FUNC( HB_VFISLOCAL )
+{
+   hb_retl( hb_fileIsLocalName( hb_parc( 1 ) ) );
+}
 /* hb_vfExists( <cFileName>, [ @<cDestFileName> ] ) --> <lOK> */
 HB_FUNC( HB_VFEXISTS )
 {