forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

changed runnable module TProcess to TAsyncProcess.

This commit is contained in:
Basile Burg 2014-11-03 10:39:51 +01:00
parent 9a24bf0075
commit 4e9259371c
3 changed files with 36 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lazproj/test/src/runnable_input_handling.d Normal file
View File

@ -0,0 +1,14 @@
module runnable;
import std.stdio;
void main(string args[])
{
writeln("use <<Process input>> widget to continue: just click 'Send'");
stdout.flush;
readln;
writeln("type <kbd>ENTER</kbd> in the field");
stdout.flush;
readln;
writeln("it was not possible when the process was declared as a local variable...");
}

6
src/ce_main.lfm
View File

@ -3185,10 +3185,4 @@ object CEMainForm: TCEMainForm
OnShowHint = ApplicationProperties1ShowHint
left = 96
end
object OutputTimer: TIdleTimer
Interval = 100
OnTimer = OutputTimerTimer
left = 128
top = 1
end
end

44
src/ce_main.pas
View File

@ -60,7 +60,6 @@ type
actEdUnIndent: TAction;
Actions: TActionList;
ApplicationProperties1: TApplicationProperties;
OutputTimer: TIdleTimer;
imgList: TImageList;
mainMenu: TMainMenu;
MenuItem1: TMenuItem;
@ -171,7 +170,6 @@ type
var CanShow: Boolean; var HintInfo: THintInfo);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
procedure OutputTimerTimer(Sender: TObject);
private
fDoc: TCESynMemo;
@ -194,7 +192,7 @@ type
fPrInpWidg: TCEProcInputWidget;
fTools: TCETools;
fRunProc: TProcess;// TAsyncProcess;
fRunProc: TAsyncProcess;
// ICEMultiDocObserver
procedure docNew(const aDoc: TCESynMemo);
@ -237,6 +235,7 @@ type
// run & exec sub routines
procedure asyncprocOutput(sender: TObject);
procedure asyncprocTerminate(sender: TObject);
procedure ProcessOutputToMsg(const aProcess: TProcess;aCtxt: TMessageContext = mcUnknown);
procedure compileAndRunFile(const edIndex: NativeInt; const runArgs: string = '');
procedure compileProject(const aProject: TCEProject);
@ -1243,29 +1242,38 @@ begin
end;
end;
procedure TCEMainForm.OutputTimerTimer(Sender: TObject);
procedure TCEMainForm.asyncprocOutput(sender: TObject);
var
proc: TProcess;
begin
if fRunProc <> nil then
ProcessOutputToMsg(fRunProc, mcEditor);
proc := TProcess(sender);
if proc = fRunProc then
ProcessOutputToMsg(TAsyncProcess(sender), mcEditor);
end;
procedure TCEMainForm.asyncprocOutput(sender: TObject);
procedure TCEMainForm.asyncprocTerminate(sender: TObject);
var
proc: TProcess;
begin
//ProcessOutputToMsg(TAsyncProcess(sender), mcEditor);
proc := TProcess(sender);
ProcessOutputToMsg(TAsyncProcess(sender), mcEditor);
if proc = fRunProc then
FreeRunnableProc;
if proc = fPrInpWidg.process then
fPrInpWidg.process := nil;
end;
procedure TCEMainForm.compileAndRunFile(const edIndex: NativeInt; const runArgs: string = '');
var
editor: TCESynMemo;
dmdproc: TProcess;
//runproc: TProcess;
fname: string;
begin
FreeRunnableProc;
fRunProc := TProcess.Create(nil);
//fRunProc := TAsyncProcess.Create(nil);
//fRunProc.OnReadData := @asyncprocOutput;
fRunProc := TAsyncProcess.Create(nil);
fRunProc.OnReadData := @asyncprocOutput;
fRunProc.OnTerminate:= @asyncprocTerminate;
dmdproc := TProcess.Create(nil);
editor := fEditWidg.editor[edIndex];
@ -1296,29 +1304,21 @@ begin
begin
ProcessOutputToMsg(dmdproc, mcEditor);
fMesgWidg.addCeInf(editor.fileName + ' successfully compiled', mcEditor );
fRunProc.Options := fRunProc.Options + [poStderrToOutPut, poUsePipes];
fRunProc.Options := fRunProc.Options + [poNoConsole, poStderrToOutPut, poUsePipes];
fRunProc.CurrentDirectory := extractFilePath(fRunProc.Executable);
fRunProc.Parameters.DelimitedText := expandSymbolicString(runArgs);
fRunProc.Executable := fname + exeExt;
fPrInpWidg.process := fRunProc;
fRunProc.Execute;
//ProcessOutputToMsg(fRunProc, mcEditor);
//repeat ProcessOutputToMsg(runproc, mcEditor) until not runproc.Running;
//sysutils.DeleteFile(fname + exeExt);
sysutils.DeleteFile(fname + objExt);
sysutils.DeleteFile(fname + objExt);
end
else begin
ProcessOutputToMsg(dmdproc, mcEditor);
fMesgWidg.addCeErr(editor.fileName + ' has not been compiled', mcEditor );
end;
//fPrInpWidg.process := nil;
finally
dmdproc.Free;
//runproc.Free;
end;
end;