From 9bb01032b6fae78d216ca48e8f4aa300b1420693 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 15 Jul 2015 14:28:57 +0200
Subject: [PATCH] symlist: uses new TCEProcess

see b911e10e9398f43eac410fb66e37eeb21905e480
---
 src/ce_symlist.pas | 22 +++++-----------------
 1 file changed, 5 insertions(+), 17 deletions(-)

diff --git a/src/ce_symlist.pas b/src/ce_symlist.pas
index ea351f0f..f10be381 100644
--- a/src/ce_symlist.pas
+++ b/src/ce_symlist.pas
@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, TreeFilterEdit, Forms, Controls, Graphics, ExtCtrls, Menus,
   ComCtrls, ce_widget, jsonparser, process, actnlist, Buttons, Clipbrd, LCLProc,
-  ce_common, ce_observer, ce_synmemo, ce_interfaces, ce_writableComponent;
+  ce_common, ce_observer, ce_synmemo, ce_interfaces, ce_writableComponent, ce_processes;
 
 type
 
@@ -116,7 +116,7 @@ type
     fOptions: TCESymbolListOptions;
     fSyms: TSymbolList;
     fMsgs: ICEMessagesDisplay;
-    fToolProc: TCheckedAsyncProcess;
+    fToolProc: TCEProcess;
     fActCopyIdent: TAction;
     fActRefresh: TAction;
     fActRefreshOnChange: TAction;
@@ -131,7 +131,6 @@ type
     fSmartFilter: boolean;
     fAutoExpandErrors: boolean;
     fSortSymbols: boolean;
-    fToolOutput: TMemoryStream;
     ndAlias, ndClass, ndEnum, ndFunc, ndUni: TTreeNode;
     ndImp, ndIntf, ndMix, ndStruct, ndTmp: TTreeNode;
     ndVar, ndWarn, ndErr: TTreeNode;
@@ -147,7 +146,6 @@ type
     //
     procedure checkIfHasToolExe;
     procedure callToolProc;
-    procedure toolOutputData(sender: TObject);
     procedure toolTerminated(sender: TObject);
     //
     procedure docNew(aDoc: TCESynMemo);
@@ -350,7 +348,6 @@ begin
   inherited;
   // allow empty name if owner is nil
   fSyms := TSymbolList.create(nil);
-  fToolOutput := TMemoryStream.create;
   //
   fOptions := TCESymbolListOptions.Create(self);
   fOptions.Name:= 'symbolListOptions';
@@ -392,7 +389,6 @@ begin
   EntitiesConnector.removeObserver(self);
   //
   killProcess(fToolProc);
-  fToolOutput.free;
   fSyms.Free;
   //
   fOptions.saveToFile(getCoeditDocPath + OptsFname);
@@ -665,12 +661,11 @@ begin
 
   // standard process options
   killProcess(fToolProc);
-  fToolProc := TCheckedAsyncProcess.Create(nil);
+  fToolProc := TCEProcess.Create(nil);
   fToolProc.ShowWindow := swoHIDE;
   fToolProc.Options := [poUsePipes];
   fToolProc.Executable := exeFullName(toolExeName);
   fToolProc.OnTerminate := @toolTerminated;
-  fToolProc.OnReadData  := @toolOutputData;
   fToolProc.CurrentDirectory := ExtractFileDir(Application.ExeName);
 
   // focused source
@@ -683,11 +678,6 @@ begin
   fToolProc.Execute;
 end;
 
-procedure TCESymbolListWidget.toolOutputData(sender: TObject);
-begin
-  processOutputToStream(TProcess(sender), fToolOutput);
-end;
-
 procedure TCESymbolListWidget.toolTerminated(sender: TObject);
 //
 function getCatNode(node: TTreeNode; stype: TSymbolType ): TTreeNode;
@@ -754,12 +744,10 @@ begin
   updateVisibleCat;
   if fDoc = nil then exit;
   //
-  processOutputToStream(TProcess(sender), fToolOutput);
-  fToolOutput.Position := 0;
-  fSyms.LoadFromTool(fToolOutput);
   fToolProc.OnTerminate := nil;
   fToolProc.OnReadData  := nil;
-  fToolOutput.Clear;
+  fToolProc.OutputStack.Position:=0;
+  fSyms.LoadFromTool(fToolProc.OutputStack);
   //
   tree.BeginUpdate;
   for i := 0 to fSyms.symbols.Count-1 do