2008-08-04 22:28 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

* utils/hbdot/hbdot.prg
     + hbdot is now able to run .hrb files too, by doing a check
       on the extension, similar to hbrun.

harbour/ChangeLog

@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-08-04 22:28 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * utils/hbdot/hbdot.prg
+     + hbdot is now able to run .hrb files too, by doing a check
+       on the extension, similar to hbrun.
+
 2008-08-04 22:31 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/make_gcc.mak
     ! fixed SPACEs used instead of TAB in clean command

harbour/utils/hbdot/hbdot.prg

@@ -69,6 +69,7 @@ PROCEDURE _APPMAIN( cFile, ... )
    LOCAL GetList, cLine, cCommand, cPath, nMaxRow, nMaxCol
    LOCAL aHistory, nHistIndex
    LOCAL bKeyUP, bKeyDown, bKeyIns
+   LOCAL cExt
 
 #ifdef _DEFAULT_INC_DIR
    AADD( s_aIncDir, "-I" + _DEFAULT_INC_DIR )
@@ -93,14 +94,21 @@ PROCEDURE _APPMAIN( cFile, ... )
             HB_DotUsage()
             EXIT
          OTHERWISE
-            cFile := HB_COMPILEBUF( HB_ARGV( 0 ), "-n", "-w", "-es2", "-q0", ;
-                                    s_aIncDir, cFile )
-            IF cFile == NIL
-               ERRORLEVEL( 1 )
+
+            hb_FNameSplit( cFile, NIL, NIL, @cExt )
+
+            IF Lower( cExt ) == ".prg"
+               cFile := HB_COMPILEBUF( HB_ARGV( 0 ), "-n", "-w", "-es2", "-q0", ;
+                                       s_aIncDir, cFile )
+               IF cFile == NIL
+                  ERRORLEVEL( 1 )
+               ELSE
+                  __hrbRun( cFile, ... )
+               ENDIF
             ELSE
                __hrbRun( cFile, ... )
             ENDIF
-      END
+      ENDSWITCH
    ELSE
 
       CLEAR SCREEN