From 95ecf236a942b427d520445a042b671e95503469 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Fri, 24 Jun 2016 02:03:21 +0200 Subject: [PATCH] DUB runnables, support for ldc2 & gdc according to the "runnableCompiler" setting --- src/ce_main.lfm | 144 ++++++++++++++++++++++++++++++++++++++++++++++++ src/ce_main.pas | 4 ++ 2 files changed, 148 insertions(+) diff --git a/src/ce_main.lfm b/src/ce_main.lfm index 5500acdc..d00325ca 100644 --- a/src/ce_main.lfm +++ b/src/ce_main.lfm @@ -2229,9 +2229,81 @@ object CEMainForm: TCEMainForm end object MenuItem92: TMenuItem Action = actFileRunDub + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF000000002A0000 + 00BA000000BA000000BA000000910000001A00000046000000AA000000AC0000 + 005E000000A4000000BA000000BA000000A500000030000000010000003C0000 + 00FF000000A20000009A000000DD0000009E000000FB000001B6000001B60000 + 00FC000000930000009800000098000000C9000000E80000000F0000003C0000 + 00FF00000018FFFFFF0000000012000000D000000FA80000C8980000CF850000 + 0BA4000000CB00000003FFFFFF0000000027000000FF000000350000003C0000 + 00FF00000018FFFFFF0000000005000000E400002A8C0000BEE70000C2CD0000 + 2384000000E50000007500000092000000C4000000E80000000E0000003C0000 + 00FF00000018FFFFFF0000000006000000E5000000690000AA420000B4730000 + 2E8B000000E50000009D000000C5000000E3000000DA000000090000003C0000 + 00FF00000018FFFFFF000000001F000000F900000052FFFFFF0000007F0A0000 + 076E000000E400000007000000020000002F000000FF000000350000003C0000 + 00FF000000A20000009A000000DF000000D70000000CFFFFFF00FFFFFF000000 + 0069000000F40000009A00000098000000C3000000EE000000120000002A0000 + 00BA000000BA000000B9000000900000001AFFFFFF00FFFFFF00FFFFFF000000 + 004B000000BA000000BA000000BA000000AD0000003A00000001FFFFFF000000 + 00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } end object MenuItem94: TMenuItem Action = actFileRunDubOut + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF000000002A0000 + 00BA000000BA000000BA000000910000001A00000046000000AA000000AC0000 + 005E000000A4000000BA000000BA000000A500000030000000010000003C0000 + 00FF000000A20000009A000000DD0000009E000000FB000001B6000001B60000 + 00FC000000930000009800000098000000C9000000E80000000F0000003C0000 + 00FF00000018FFFFFF0000000012000000D000000FA80000C8980000CF850000 + 0BA4000000CB00000003FFFFFF0000000027000000FF000000350000003C0000 + 00FF00000018FFFFFF0000000005000000E400002A8C0000BEE70000C2CD0000 + 2384000000E50000007500000092000000C4000000E80000000E0000003C0000 + 00FF00000018FFFFFF0000000006000000E5000000690000AA420000B4730000 + 2E8B000000E50000009D000000C5000000E3000000DA000000090000003C0000 + 00FF00000018FFFFFF000000001F000000F900000052FFFFFF0000007F0A0000 + 076E000000E400000007000000020000002F000000FF000000350000003C0000 + 00FF000000A20000009A000000DF000000D70000000CFFFFFF00FFFFFF000000 + 0069000000F40000009A00000098000000C3000000EE000000120000002A0000 + 00BA000000BA000000B9000000900000001AFFFFFF00FFFFFF00FFFFFF000000 + 004B000000BA000000BA000000BA000000AD0000003A00000001FFFFFF000000 + 00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } end object MenuItem59: TMenuItem Caption = '-' @@ -4078,9 +4150,81 @@ object CEMainForm: TCEMainForm end object MenuItem93: TMenuItem Action = actFileRunDub + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF000000002A0000 + 00BA000000BA000000BA000000910000001A00000046000000AA000000AC0000 + 005E000000A4000000BA000000BA000000A500000030000000010000003C0000 + 00FF000000A20000009A000000DD0000009E000000FB000001B6000001B60000 + 00FC000000930000009800000098000000C9000000E80000000F0000003C0000 + 00FF00000018FFFFFF0000000012000000D000000FA80000C8980000CF850000 + 0BA4000000CB00000003FFFFFF0000000027000000FF000000350000003C0000 + 00FF00000018FFFFFF0000000005000000E400002A8C0000BEE70000C2CD0000 + 2384000000E50000007500000092000000C4000000E80000000E0000003C0000 + 00FF00000018FFFFFF0000000006000000E5000000690000AA420000B4730000 + 2E8B000000E50000009D000000C5000000E3000000DA000000090000003C0000 + 00FF00000018FFFFFF000000001F000000F900000052FFFFFF0000007F0A0000 + 076E000000E400000007000000020000002F000000FF000000350000003C0000 + 00FF000000A20000009A000000DF000000D70000000CFFFFFF00FFFFFF000000 + 0069000000F40000009A00000098000000C3000000EE000000120000002A0000 + 00BA000000BA000000B9000000900000001AFFFFFF00FFFFFF00FFFFFF000000 + 004B000000BA000000BA000000BA000000AD0000003A00000001FFFFFF000000 + 00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } end object MenuItem96: TMenuItem Action = actFileRunDubOut + Bitmap.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000064000000640000000000000000000000FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000 + 00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF000000002A0000 + 00BA000000BA000000BA000000910000001A00000046000000AA000000AC0000 + 005E000000A4000000BA000000BA000000A500000030000000010000003C0000 + 00FF000000A20000009A000000DD0000009E000000FB000001B6000001B60000 + 00FC000000930000009800000098000000C9000000E80000000F0000003C0000 + 00FF00000018FFFFFF0000000012000000D000000FA80000C8980000CF850000 + 0BA4000000CB00000003FFFFFF0000000027000000FF000000350000003C0000 + 00FF00000018FFFFFF0000000005000000E400002A8C0000BEE70000C2CD0000 + 2384000000E50000007500000092000000C4000000E80000000E0000003C0000 + 00FF00000018FFFFFF0000000006000000E5000000690000AA420000B4730000 + 2E8B000000E50000009D000000C5000000E3000000DA000000090000003C0000 + 00FF00000018FFFFFF000000001F000000F900000052FFFFFF0000007F0A0000 + 076E000000E400000007000000020000002F000000FF000000350000003C0000 + 00FF000000A20000009A000000DF000000D70000000CFFFFFF00FFFFFF000000 + 0069000000F40000009A00000098000000C3000000EE000000120000002A0000 + 00BA000000BA000000B9000000900000001AFFFFFF00FFFFFF00FFFFFF000000 + 004B000000BA000000BA000000BA000000AD0000003A00000001FFFFFF000000 + 00010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00000000010000000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF + FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00 + } end object MenuItem10: TMenuItem Caption = '-' diff --git a/src/ce_main.pas b/src/ce_main.pas index 2e9e59c5..b5fe77e0 100644 --- a/src/ce_main.pas +++ b/src/ce_main.pas @@ -2468,6 +2468,10 @@ begin fRunProc.Options := fRunProc.Options + [poNewConsole]; {$ENDIF} end; + case fAppliOpts.runnableCompiler of + gdc: fRunProc.Parameters.add('--compiler=gdc'); + ldc: fRunProc.Parameters.add('--compiler=ldc2'); + end; fRunProc.execute; end;