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

2008-10-06 01:06 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/debug/debugger.prg
  * source/rtl/typefile.prg
  * source/rtl/tgetlist.prg
  * source/rtl/treport.prg
  * source/rtl/teditor.prg
    * Using [Q]QOut() functions instead of "[?]?" commands.
    * Using hb_Run() function instead of RUN command.

  * source/rtl/typefile.prg
    % Upped read buffer.
    * Formatting.
    % Got rid of a few unnecessary initialization.
This commit is contained in:
Viktor Szakats
2008-10-05 23:09:31 +00:00
parent 0316d44e12
commit 809fd031dc
6 changed files with 81 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/source/debug/debugger.prg
View File

@@ -2034,17 +2034,21 @@ METHOD OSShell() CLASS HBDebugger
SetColor( "W/N" )
CLS
? "Type 'exit' to RETURN to the Debugger"
QOut( "Type 'exit' to RETURN to the Debugger" )
SetCursor( SC_NORMAL )
BEGIN SEQUENCE WITH { | objErr | Break( objErr ) }
IF At( "WINDOWS", cOs ) != 0 .OR. At( "DOS", cOs ) != 0 .OR. At( "OS/2", cOs ) != 0
IF At( "WINDOWS", cOs ) != 0 .OR. ;
At( "DOS", cOs ) != 0 .OR. ;
At( "OS/2", cOs ) != 0
cShell := GetEnv( "COMSPEC" )
RUN ( cShell )
ELSEIF At( "LINUX", cOs ) != 0 .OR. At( "BSD", cOs ) != 0 .OR. At( "DARWIN", cOs ) != 0
hb_Run( cShell )
ELSEIF At( "LINUX", cOs ) != 0 .OR. ;
At( "BSD", cOs ) != 0 .OR. ;
At( "DARWIN", cOs ) != 0
cShell := GetEnv( "SHELL" )
RUN ( cShell )
hb_Run( cShell )
ELSE
Alert( "Not implemented yet!" )
ENDIF