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

added option, compiler switches for runnable modules

This commit is contained in:
Basile Burg 2014-11-30 04:38:24 +01:00
parent 7a23e84828
commit a449f8c922
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_main.pas
View File

@ -190,6 +190,7 @@ type
fFileMru: TMruFileList; fFileMru: TMruFileList;
fPrInpWidg: TCEProcInputWidget; fPrInpWidg: TCEProcInputWidget;
fInitialized: boolean; fInitialized: boolean;
fRunnableSw: string;
{$IFDEF WIN32} {$IFDEF WIN32}
fCdbWidg: TCECdbWidget; fCdbWidg: TCECdbWidget;
{$ENDIF} {$ENDIF}
@ -218,6 +219,8 @@ type
procedure optset_ProjMRUItems(aReader: TReader); procedure optset_ProjMRUItems(aReader: TReader);
procedure optget_ProjMRULimit(aWriter: TWriter); procedure optget_ProjMRULimit(aWriter: TWriter);
procedure optset_ProjMRULimit(aReader: TReader); procedure optset_ProjMRULimit(aReader: TReader);
procedure optset_RunnableSw(aReader: TReader);
procedure optget_RunnableSw(aWriter: Twriter);
//Init - Fina //Init - Fina
procedure getCMdParams; procedure getCMdParams;
@ -1289,15 +1292,15 @@ begin
else editor.saveToFile(editor.tempFilename); else editor.saveToFile(editor.tempFilename);
fname := editor.fileName[1..length(editor.fileName) - length(extractFileExt(editor.fileName))]; fname := editor.fileName[1..length(editor.fileName) - length(extractFileExt(editor.fileName))];
if fRunnableSw = '' then
fRunnableSw := '-vcolumns'#13'-w'#13'-wi';
{$IFDEF RELEASE} {$IFDEF RELEASE}
dmdProc.ShowWindow := swoHIDE; dmdProc.ShowWindow := swoHIDE;
{$ENDIF} {$ENDIF}
dmdproc.Options := [poStdErrToOutput, poUsePipes]; dmdproc.Options := [poStdErrToOutput, poUsePipes];
dmdproc.Executable := DCompiler; dmdproc.Executable := DCompiler;
dmdproc.Parameters.Add(editor.fileName); dmdproc.Parameters.Add(editor.fileName);
dmdproc.Parameters.Add('-vcolumns'); dmdproc.Parameters.AddText(fRunnableSw);
dmdproc.Parameters.Add('-w');
dmdproc.Parameters.Add('-wi');
dmdproc.Parameters.Add('-of' + fname + exeExt); dmdproc.Parameters.Add('-of' + fname + exeExt);
LibMan.getLibFiles(nil, dmdproc.Parameters); LibMan.getLibFiles(nil, dmdproc.Parameters);
LibMan.getLibSources(nil, dmdproc.Parameters); LibMan.getLibSources(nil, dmdproc.Parameters);
@ -1676,6 +1679,8 @@ begin
aFiler.DefineProperty('Menu_FileMRU_Limit', @optset_FileMRULimit, @optget_FileMRULimit, true); aFiler.DefineProperty('Menu_FileMRU_Limit', @optset_FileMRULimit, @optget_FileMRULimit, true);
aFiler.DefineProperty('Menu_ProjMRU_Items', @optset_ProjMRUItems, @optget_ProjMRUItems, true); aFiler.DefineProperty('Menu_ProjMRU_Items', @optset_ProjMRUItems, @optget_ProjMRUItems, true);
aFiler.DefineProperty('Menu_ProjMRU_Limit', @optset_ProjMRULimit, @optget_ProjMRULimit, true); aFiler.DefineProperty('Menu_ProjMRU_Limit', @optset_ProjMRULimit, @optget_ProjMRULimit, true);
//
aFiler.DefineProperty('Runnable_Switches', @optset_RunnableSw, @optget_RunnableSw, true);
end; end;
procedure TCEMainForm.sesoptAfterLoad; procedure TCEMainForm.sesoptAfterLoad;
@ -1721,6 +1726,16 @@ procedure TCEMainForm.optset_ProjMRULimit(aReader: TReader);
begin begin
fProjMru.maxCount := aReader.ReadInteger; fProjMru.maxCount := aReader.ReadInteger;
end; end;
procedure TCEMainForm.optset_RunnableSw(aReader: TReader);
begin
fRunnableSw := aReader.ReadString;
end;
procedure TCEMainForm.optget_RunnableSw(aWriter: Twriter);
begin
aWriter.WriteString(fRunnableSw);
end;
{$ENDREGION} {$ENDREGION}
procedure PlugDispatchToHost(aPlugin: TCEPlugin; opCode: LongWord; data0: Integer; data1, data2: Pointer); cdecl; procedure PlugDispatchToHost(aPlugin: TCEPlugin; opCode: LongWord; data0: Integer; data1, data2: Pointer); cdecl;