From 416d424eaf9e82d0f572ba1be75c24a87a8de65b Mon Sep 17 00:00:00 2001
From: Luiz Rafael Culik <culik@sl.conex.net>
Date: Mon, 29 May 2000 03:09:43 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/source/rtl/filesys.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c
index beb0b71828..a18a20df7d 100644
--- a/harbour/source/rtl/filesys.c
+++ b/harbour/source/rtl/filesys.c
@@ -50,6 +50,8 @@
  *    hb_fsIsDrv()
  *    hb_fsIsDevice()
  *
+ * Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
+ *    hb_fsEof()
  * See doc/license.txt for licensing terms.
  *
  */
@@ -1456,3 +1458,9 @@ BOOL hb_fsFile( BYTE * pFilename )
    return bIsFile;
 }
 
+BOOL    hb_fsEof( FHANDLE hFileHandle )
+{
+   int iResult;
+   iResult = eof(hFileHandle);
+   return ( iResult ? FALSE : TRUE );
+}