added logic for hb_file()

1999-05-30 17:10:30 +00:00
parent 907afa3849
commit 5b27a88cfc
1 changed files with 4 additions and 2 deletions
--- a/harbour/source/rtl/files.c
+++ b/harbour/source/rtl/files.c
@@ -610,9 +610,11 @@ HARBOUR HB_FILE()

        if( arg1_it )
        {
-                /* TODO: I'm thinking about this :( */
+           last_error = 0;
+           access(_parc(1), 0);
+           last_error = errno;
        }
-        _retl(0);
+        _retl(last_error==0?1:0);
        return;
 }