fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-10-12 01:41 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* extras/hbxlsxml/xlsxml.prg
    ! fixed missing UTF-8 mime-type svn prop

  * tests/gtkeys.prg
    ! fixed typo in recent mods causing it to fail under Clipper

  * contrib/hbunix/tests/testdmn.prg
  * contrib/xhb/tfile.prg
  * contrib/xhb/xhberr.prg
  * contrib/xhb/xhbtedit.prg
  * contrib/gtwvg/class.prg
  * contrib/gtwvg/tests/utils.prg
  * contrib/hbnf/dfile.prg
  * contrib/hbgd/tests/counter.prg
  * contrib/hbtip/tests/tipmime.prg
  * src/debug/debugger.prg
  * src/rtl/teditor.prg
  * src/rtl/typefile.prg
  * src/rdd/usrrdd/rdds/logrdd.prg
  * tests/testrdd2.prg
  * tests/inifiles.prg
  * extras/gtwvw/tests/drawimg.prg
  * extras/httpsrv/cgifunc.prg
  * extras/httpsrv/session.prg
    % File() -> hb_FileExists()
    ; pls review me in core

  * contrib/gtwvg/class.prg
  * contrib/gtwvg/menubar.prg
  * contrib/gtwvg/paint.prg
  * contrib/gtwvg/parthdlr.prg
  * contrib/gtwvg/tests/modal.prg
  * contrib/gtwvg/tests/utils.prg
  * contrib/gtwvg/toolbar.prg
    % VALTYPE() -> HB_IS*() and some related optimizations

  * tests/codebloc.prg
  * tests/newrdd.prg
  * tests/inkeytst.prg
  * tests/files.prg
  * tests/testrdd.prg
  * tests/wcecon.prg
  * tests/testrdd2.prg
  * tests/inifiles.prg
    * *LTRIM(STR()) -> hb_ntos()
      (keeping macro for Clipper where seemed necessary)
This commit is contained in:
Viktor Szakats
2012-10-11 23:46:23 +00:00
parent 627c64b8ac
commit 32b3c2a1cd
31 changed files with 157 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
harbour/src/debug/debugger.prg
View File

@@ -410,7 +410,7 @@ METHOD New() CLASS HBDebugger
::BuildCommandWindow()
::BuildBrowseStack()
IF File( ::cSettingsFileName )
IF hb_FileExists( ::cSettingsFileName )
::LoadSettings()
::lGo := ::lRunAtStartup // Once again after settings file is loaded
ENDIF
@@ -1071,7 +1071,7 @@ METHOD DoScript( cFileName ) CLASS HBDebugger
LOCAL cLine
LOCAL nLen
IF File( cFileName )
IF hb_FileExists( cFileName )
cInfo := MemoRead( cFileName )
nLen := MLCount( cInfo, NIL, NIL, .F. )
FOR n := 1 TO nLen
@@ -1826,7 +1826,7 @@ METHOD LocatePrgPath( cPrgName ) CLASS HBDebugger
FOR i := 1 TO iMax
cRetPrgName := aPaths[ i ] + hb_ps() + cPrgName
IF File( cRetPrgName )
IF hb_FileExists( cRetPrgName )
RETURN cRetPrgName
ENDIF
NEXT
@@ -1898,7 +1898,7 @@ METHOD Open() CLASS HBDebugger
IF !Empty( cFileName ) ;
.AND. ( ValType( ::cPrgName ) == "U" .OR. !hb_FileMatch( cFileName, ::cPrgName ) )
IF ! File( cFileName ) .AND. ! Empty( ::cPathForFiles )
IF ! hb_FileExists( cFileName ) .AND. ! Empty( ::cPathForFiles )
cRealName := ::LocatePrgPath( cFileName )
IF Empty( cRealName )
__dbgAlert( "File '" + cFileName + "' not found!" )
@@ -1938,11 +1938,11 @@ METHOD OpenPPO() CLASS HBDebugger
IF Lower( cExt ) == ".ppo"
::cPrgName := hb_FNameMerge( cDir, cName, ".prg" )
lSuccess := File( ::cPrgName )
lSuccess := hb_FileExists( ::cPrgName )
::lPPO := !lSuccess
ELSE
::cPrgName := hb_FNameMerge( cDir, cName, ".ppo" )
lSuccess := File( ::cPrgName )
lSuccess := hb_FileExists( ::cPrgName )
::lPPO := lSuccess
ENDIF
@@ -2474,16 +2474,16 @@ METHOD ShowCodeLine( nProc ) CLASS HBDebugger
IF ! Empty( cPrgName )
IF !hb_FileMatch( strip_path( cPrgName ), strip_path( ::cPrgName ) ) ;
IF ! hb_FileMatch( strip_path( cPrgName ), strip_path( ::cPrgName ) ) ;
.OR. ::oBrwText == NIL
IF ! File( cPrgName ) .AND. !Empty( ::cPathForFiles )
IF ! hb_FileExists( cPrgName ) .AND. ! Empty( ::cPathForFiles )
cPrgName := ::LocatePrgPath( cPrgName )
ENDIF
::cPrgName := cPrgName
IF !File( cPrgName )
IF ! hb_FileExists( cPrgName )
::oBrwText := NIL
::oWndCode:Browser := NIL
::oWndCode:SetCaption( ::aProcStack[ nProc ][ CSTACK_MODULE ] + ;