From 493ef821aeac647e533c78b5a0346858cdd0d3c6 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 3 Nov 2014 08:12:12 +0100
Subject: [PATCH] cdb test
---
src/ce_gdbcmd.lfm | 80 +++++++++++++++++++++++
src/ce_gdbcmd.pas | 163 ++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 243 insertions(+)
create mode 100644 src/ce_gdbcmd.lfm
create mode 100644 src/ce_gdbcmd.pas
diff --git a/src/ce_gdbcmd.lfm b/src/ce_gdbcmd.lfm
new file mode 100644
index 00000000..a8a3a906
--- /dev/null
+++ b/src/ce_gdbcmd.lfm
@@ -0,0 +1,80 @@
+inherited CEWidget1: TCEWidget1
+ Left = 874
+ Height = 589
+ Top = 248
+ Width = 499
+ ClientHeight = 589
+ ClientWidth = 499
+ inherited Back: TPanel
+ Height = 589
+ Width = 499
+ ClientHeight = 589
+ ClientWidth = 499
+ inherited Content: TPanel
+ Height = 589
+ Width = 499
+ ClientHeight = 589
+ ClientWidth = 499
+ object lstGdbOut: TMemo[0]
+ Left = 4
+ Height = 524
+ Top = 61
+ Width = 491
+ Align = alClient
+ BorderSpacing.Around = 4
+ Font.Height = -12
+ Font.Name = 'Lucida Console'
+ ParentFont = False
+ ReadOnly = True
+ ScrollBars = ssBoth
+ TabOrder = 0
+ end
+ object Edit1: TEdit[1]
+ Left = 4
+ Height = 23
+ Top = 34
+ Width = 491
+ Align = alTop
+ BorderSpacing.Around = 4
+ OnKeyPress = Edit1KeyPress
+ TabOrder = 1
+ end
+ object Panel1: TPanel[2]
+ Left = 4
+ Height = 26
+ Top = 4
+ Width = 491
+ Align = alTop
+ BorderSpacing.Around = 4
+ Caption = 'Panel1'
+ ClientHeight = 26
+ ClientWidth = 491
+ TabOrder = 2
+ object Button1: TButton
+ Left = 8
+ Height = 25
+ Top = 0
+ Width = 75
+ Caption = 'start'
+ OnClick = Button1Click
+ TabOrder = 0
+ end
+ object Button2: TButton
+ Left = 88
+ Height = 25
+ Top = 0
+ Width = 75
+ Caption = 'stop'
+ OnClick = Button2Click
+ TabOrder = 1
+ end
+ end
+ end
+ end
+ object IdleTimer1: TIdleTimer[2]
+ Interval = 100
+ OnTimer = IdleTimer1Timer
+ left = 211
+ top = 16
+ end
+end
diff --git a/src/ce_gdbcmd.pas b/src/ce_gdbcmd.pas
new file mode 100644
index 00000000..caf573dd
--- /dev/null
+++ b/src/ce_gdbcmd.pas
@@ -0,0 +1,163 @@
+unit ce_gdbcmd;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+ Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, process,
+ Menus, StdCtrls, ce_widget, ce_project, ce_interfaces, ce_observer, asyncprocess;
+
+type
+
+ { TCEWidget1 }
+
+ TCEWidget1 = class(TCEWidget, ICEProjectObserver)
+ Button1: TButton;
+ Button2: TButton;
+ Edit1: TEdit;
+ IdleTimer1: TIdleTimer;
+ lstGdbOut: TMemo;
+ Panel1: TPanel;
+ procedure Button1Click(Sender: TObject);
+ procedure Button2Click(Sender: TObject);
+ procedure Edit1KeyPress(Sender: TObject; var Key: char);
+ procedure IdleTimer1Timer(Sender: TObject);
+ private
+ fGdbProc: TProcess;
+ fProject: TCEProject;
+ procedure gdbReadData(sender: TObject);
+ public
+ constructor create(aOwner: TComponent); override;
+ destructor destroy; override;
+ //
+ procedure projNew(const aProject: TCEProject);
+ procedure projClosing(const aProject: TCEProject);
+ procedure projFocused(const aProject: TCEProject);
+ procedure projChanged(const aProject: TCEProject);
+ end;
+
+implementation
+{$R *.lfm}
+
+{$REGION Standard Comp/Obj------------------------------------------------------}
+constructor TCEWidget1.create(aOwner: TComponent);
+begin
+ inherited;
+ //
+ EntitiesConnector.addObserver(self);
+end;
+
+destructor TCEWidget1.destroy;
+begin
+ EntitiesConnector.removeObserver(self);
+ inherited;
+end;
+{$ENDREGION --------------------------------------------------------------------}
+
+{$REGION ICEProjectMonitor -----------------------------------------------------}
+procedure TCEWidget1.projNew(const aProject: TCEProject);
+begin
+ fProject := aProject;
+end;
+
+procedure TCEWidget1.projClosing(const aProject: TCEProject);
+begin
+ fProject := nil;
+end;
+
+procedure TCEWidget1.projFocused(const aProject: TCEProject);
+begin
+ fProject := aProject;
+end;
+
+procedure TCEWidget1.projChanged(const aProject: TCEProject);
+begin
+ fProject := aProject;
+end;
+{$ENDREGION --------------------------------------------------------------------}
+
+
+procedure TCEWidget1.Button1Click(Sender: TObject);
+var
+ outname: string;
+begin
+ if fProject = nil then exit;
+ outname := fProject.outputFilename;
+ if not fileExists(outname) then exit;
+ //
+ fGdbProc := TProcess.create(nil);
+ fGdbProc.Executable := 'cdb';
+ fGdbProc.Parameters.Add('-c');
+ fGdbProc.Parameters.Add('"l+*;.lines"');
+ fGdbProc.Parameters.Add(outname);
+ fGdbProc.CurrentDirectory := extractFilePath(outname);
+ fGdbProc.Options := fGdbProc.Options + [poStderrToOutPut, poUsePipes];
+ //fGdbProc.OnReadData := @gdbReadData;
+
+ fGdbProc.Execute;
+end;
+
+procedure TCEWidget1.Button2Click(Sender: TObject);
+begin
+ if fGdbProc = nil then exit;
+ fGdbProc.Terminate(0);
+ fGdbProc.Free;
+ fGdbProc := nil;
+end;
+
+procedure TCEWidget1.Edit1KeyPress(Sender: TObject; var Key: char);
+var
+ inp: string;
+begin
+ if fGdbProc <> nil then
+ if Key = LineEnding[1] then
+ begin
+ inp := Edit1.Text + LineEnding;
+ fGdbProc.Input.Write( inp[1], length(inp) );
+ end;
+ Edit1.Text := '';
+end;
+
+procedure TCEWidget1.IdleTimer1Timer(Sender: TObject);
+begin
+ gdbReadData(nil);
+end;
+
+procedure TCEWidget1.gdbReadData(sender: TObject);
+var
+ str: TMemoryStream;
+ lst: TStringList;
+ cnt: Integer;
+ sum: Integer;
+begin
+
+ if fGdbProc = nil then exit;
+
+ cnt := 0;
+ sum := 0;
+ str := TMemoryStream.Create;
+ lst := TStringList.Create;
+
+
+ while fGdbProc.Output.NumBytesAvailable <> 0 do
+ begin
+ str.Size := str.Size + 1024;
+ cnt := fGdbProc.Output.Read((str.Memory + sum)^, 1024);
+ sum += cnt;
+ end;
+ // cnt = 0;
+
+ str.Size := sum;
+ lst.LoadFromStream(str);
+ lstGdbOut.Lines.AddStrings(lst);
+ lstGdbOut.VertScrollBar.Position := lstGdbOut.Lines.Count * 53;
+
+ lst.Free;
+ str.Free;
+end;
+
+
+
+end.
+