small changes to admit Harbour FILE()

harbour/ChangeLog

@@ -1,3 +1,9 @@
+19990525-10:03 CET Antonio Linares <alinares@fivetech.com>
+  * tests/working/runner.c (shouldn't this file be located at source/runner?)
+    - some small changes to admit FILE() Harbour name.
+  * tests/working/run_exp.h (shouldn't this file be located at include directory ?)
+    - some small changes to admit FILE() Harbour name.
+
 19990525-09:13 CET Antonio Linares <alinares@fivetech.com>
   * makefile.b32
     - project dependencies list order changed to properly build everything in one pass

harbour/tests/working/run_exp.h

@@ -49,7 +49,7 @@ HARBOUR FCLOSE();
 HARBOUR FERASE();
 HARBOUR FRENAME();
 HARBOUR FSEEK();
-HARBOUR _FILE();
+HARBOUR FILE();
 HARBOUR FREADSTR();
 HARBOUR BIN2I();
 HARBOUR BIN2L();
@@ -168,7 +168,7 @@ static SYMBOL symbols[] = {
 { "FERASE",         FS_PUBLIC, FERASE        , 0 },
 { "FRENAME",        FS_PUBLIC, FRENAME       , 0 },
 { "FSEEK",          FS_PUBLIC, FSEEK         , 0 },
-{ "_FILE",          FS_PUBLIC, _FILE         , 0 },
+{ "FILE",           FS_PUBLIC, FILE         , 0 },
 { "FREADSTR",       FS_PUBLIC, FREADSTR      , 0 },
 { "BIN2I",          FS_PUBLIC, BIN2I         , 0 },
 { "BIN2L",          FS_PUBLIC, BIN2L         , 0 },

harbour/tests/working/runner.c

@@ -1,6 +1,7 @@
 #include "pcode.h"
-#include <stdio.h>
 
+#define FILE _FILE
+#include <stdio.h>
 
 /* #if INTEL32 */
 static BYTE prgFunction[] = { 0x68, 0x00, 0x00, 0x00, 0x00,
@@ -52,8 +53,10 @@ void Do( WORD );
 ULONG FindSymbol( char *, PDYNFUNC, ULONG );
 void SafeRead( char *, int, int, FILE * );
 
-
+#undef FILE
 #include "run_exp.h"
+#define FILE _FILE
+
 /*
  *
  * This file contains the exportable functions available to the Harbour program

harbour/tests/working/test_all.prg

@@ -9,6 +9,7 @@ Function Main( cOption )
 LOCAL aDir,f,o,cRead
 
 aDir:=Directory("*.PRG")
+
 o=fCreate("Test_All.Bat")
 IF !Empty( cOption ) .and. Upper( cOption ) == "HRB"
     fWrite(o,"del test_all.out"+chr(13)+chr(10))