2013-03-21 19:00 UTC+0100 Viktor Szakats (harbour syenar.net)

* utils/hbmk2/hbmk2.prg
    + when running a script with hbrun/hbmk2 form cmdline,
      show an error if it's not found instead of launching
      the interactive menu.

  * doc/en/tbrowse.txt
    ! minor, for testing commits
This commit is contained in:
Viktor Szakats
2013-03-21 19:02:24 +01:00
parent 906ece32e2
commit f7aa07fba3
3 changed files with 21 additions and 6 deletions

View File

@@ -13725,6 +13725,7 @@ STATIC PROCEDURE __hbshell( cFile, ... )
LOCAL hHRB
LOCAL cVersion
LOCAL cParamL
LOCAL cFileOri
/* get this before doing anything else */
LOCAL lDebug := ;
@@ -13841,9 +13842,12 @@ STATIC PROCEDURE __hbshell( cFile, ... )
cFile := hb_DirSepToOS( cFile )
ENDIF
IF !( cFile == "." ) .AND. ;
! Empty( hb_FNameName( cFile ) ) .AND. ;
! Empty( cFile := FindInPath( cFile,, { ".hb", ".hrb" } ) )
IF cFile == "." .OR. Empty( hb_FNameName( cFile ) )
__hbshell_ext_init( aExtension )
__hbshell_prompt( hb_AParams() )
ELSEIF ! Empty( cFile := FindInPath( cFileOri := cFile,, { ".hb", ".hrb" } ) )
cExt := Lower( hb_FNameExt( cFile ) )
@@ -13925,8 +13929,7 @@ STATIC PROCEDURE __hbshell( cFile, ... )
EXIT
ENDSWITCH
ELSE
__hbshell_ext_init( aExtension )
__hbshell_prompt( hb_AParams() )
OutErr( hb_StrFormat( I_( "hbshell: Cannot find script '%1$s'" ), cFileOri ) + _OUT_EOL )
ENDIF
RETURN