2010-12-06 18:05 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

* utils/hbrun/hbrun.prg
    + Readded -I<selfdir> option.
      (partial revert of 2010-11-23 19:05 UTC+0100)

harbour/ChangeLog

@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2010-12-06 18:05 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * utils/hbrun/hbrun.prg
+    + Readded -I<selfdir> option.
+      (partial revert of 2010-11-23 19:05 UTC+0100)
+
 2010-12-05 12:15 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/tests/cpinfo.prg
     * small modification for non latin CPs having first lower letter before
@@ -41,7 +46,7 @@
          // uppers and lowers are mixed: AaBbCcDdEe....
          #define HB_CP_CSSORT    HB_CDP_CSSORT_MIXED
          // ignore case
-         #define HB_CP_CSSORT    HB_CDP_CSSORT_IGNORE 
+         #define HB_CP_CSSORT    HB_CDP_CSSORT_IGNORE
 
 2010-12-04 19:32 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/dbinfo.ch

harbour/utils/hbrun/hbrun.prg

@@ -161,7 +161,7 @@ PROCEDURE _APPMAIN( cFile, ... )
                      ENDIF
 
                      cFile := HB_COMPILEBUF( hHeaders, HB_ARGV( 0 ), "-n2", "-w", "-es2", "-q0", ;
-                                             s_aCompOptions, "-D" + "__HBSCRIPT__HBRUN", cFile )
+                                             s_aCompOptions, "-I" + FNameDirGet( cFile ), "-D" + "__HBSCRIPT__HBRUN", cFile )
                      IF cFile == NIL
                         ERRORLEVEL( 1 )
                         EXIT
@@ -180,6 +180,13 @@ PROCEDURE _APPMAIN( cFile, ... )
 
    RETURN
 
+STATIC FUNCTION FNameDirGet( cFileName )
+   LOCAL cDir
+
+   hb_FNameSplit( cFileName, @cDir )
+
+   RETURN cDir
+
 STATIC FUNCTION hbrun_CoreHeaderFiles()
    LOCAL hHeaders