paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-08 22:39:36 +01: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; property Filename: string read FFileName write FFileName;
end; 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 }
TFpDebugThreadRunCommand = class(TFpDebugThreadCommand) TFpDebugThreadRunCommand = class(TFpDebugThreadCommand)
@ -195,6 +207,21 @@ implementation
var var
GFpDebugThreadCommandList: TFpDebugThreadCommandList = nil; 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 } { TFpDebugThreadStackTraceCommand }
function TFpDebugThreadStackTraceCommand.Execute(AController: TDbgController; out DoProcessLoop: boolean): boolean; function TFpDebugThreadStackTraceCommand.Execute(AController: TDbgController; out DoProcessLoop: boolean): boolean;
@ -601,6 +628,7 @@ end;
initialization initialization
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadQuitDebugServerCommand); TFpDebugThreadCommandList.instance.Add(TFpDebugThreadQuitDebugServerCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadSetFilenameCommand); TFpDebugThreadCommandList.instance.Add(TFpDebugThreadSetFilenameCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadSetConsoleTtyCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadRunCommand); TFpDebugThreadCommandList.instance.Add(TFpDebugThreadRunCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadContinueCommand); TFpDebugThreadCommandList.instance.Add(TFpDebugThreadContinueCommand);
TFpDebugThreadCommandList.instance.Add(TFpDebugThreadStepOverInstrCommand); TFpDebugThreadCommandList.instance.Add(TFpDebugThreadStepOverInstrCommand);