paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebugServer: Added setconsoletty command.

Browse Source 
git-svn-id: trunk@49268 -
This commit is contained in:
joost 2015-06-04 19:20:35 +00:00
parent c88aaffaa0
commit f504e38ee7
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/fpdebug/app/fpdserver/debugthreadcommand.pas
View File

@ -51,6 +51,18 @@ type
property Filename: string read FFileName write FFileName;
end;
{ TFpDebugThreadSetRedirectConsoleOutputCommand }
TFpDebugThreadSetConsoleTtyCommand = class(TFpDebugThreadCommand)
private
FConsoleTty: String;
public
function Execute(AController: TDbgController; out DoProcessLoop: boolean): boolean; override;
class function TextName: string; override;
published
property ConsoleTty: String read FConsoleTty write FConsoleTty;
end;
{ TFpDebugThreadRunCommand }
TFpDebugThreadRunCommand = class(TFpDebugThreadCommand)
@ -195,6 +207,21 @@ implementation
var
GFpDebugThreadCommandList: TFpDebugThreadCommandList = nil;
{ TFpDebugThreadSetConsoleTtyCommand }
function TFpDebugThreadSetConsoleTtyCommand.Execute(AController: TDbgController; out DoProcessLoop: boolean): boolean;
begin
AController.ConsoleTty:=FConsoleTty;
AController.RedirectConsoleOutput:=(AController.ConsoleTty='');
DoProcessLoop:=false;
result:=true;
end;
class function TFpDebugThreadSetConsoleTtyCommand.TextName: string;
begin
result := 'setconsoletty';
end;
{ TFpDebugThreadStackTraceCommand }
function TFpDebugThreadStackTraceCommand.Execute(AController: TDbgController; out DoProcessLoop: boolean): boolean;
@ -601,6 +628,7 @@ end;
initialization
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadQuitDebugServerCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadSetFilenameCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadSetConsoleTtyCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadRunCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadContinueCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadStepOverInstrCommand);