From 1b357826ee089b65aef83ac7f5989a49d36de1e8 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 7 Sep 2015 12:20:15 +0200
Subject: [PATCH] implemented first script line used to pass dmd switch, close
 #36

- optional
- support for symbolic strings
---
 lazproj/test/src/runnable_firstline_flags.d | 19 ++++++++++++++++
 src/ce_main.pas                             | 25 +++++++++++++++++++--
 2 files changed, 42 insertions(+), 2 deletions(-)
 create mode 100644 lazproj/test/src/runnable_firstline_flags.d

diff --git a/lazproj/test/src/runnable_firstline_flags.d b/lazproj/test/src/runnable_firstline_flags.d
new file mode 100644
index 00000000..089f441b
--- /dev/null
+++ b/lazproj/test/src/runnable_firstline_flags.d
@@ -0,0 +1,19 @@
+#!runnable-flags: -version=a -version=b
+module runnable;
+
+/* 
+
+compile fine and run, feature #36: 
+- see specs at https://github.com/BBasile/Coedit/issues/36
+- dmd switches can be passed in the script line
+- dups are automatically eliminated.
+
+*/
+
+import std.stdio;
+
+void main(string[] args)
+{
+    version(a) "a".writeln;
+    version(b) "b".writeln;
+}
diff --git a/src/ce_main.pas b/src/ce_main.pas
index ff713c62..1e04eb66 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1515,13 +1515,25 @@ end;
 procedure TCEMainForm.compileAndRunFile(unittest: boolean = false; redirect: boolean = true;
 	const runArgs: string = '');
 var
+  i: integer;
   dmdproc: TCEProcess;
-  fname: string;
+  extraArgs: TStringList;
+  fname, firstlineFlags: string;
 begin
 
   fMsgs.clearByData(fDoc);
   FreeRunnableProc;
   if fDoc = nil then exit;
+  if fDoc.Lines.Count = 0 then exit;
+
+  firstlineFlags := fDoc.Lines[0];
+  i := length(firstlineFlags);
+  if ( i > 18) then
+  begin
+    if UpperCase(firstlineFlags[1..17]) = '#!RUNNABLE-FLAGS:' then
+        firstlineFlags := symbolExpander.get(firstlineFlags[18..i])
+    else firstlineFlags:= '';
+  end else firstlineFlags:= '';
 
   fRunProc := TCEProcess.Create(nil);
   if redirect then
@@ -1537,6 +1549,7 @@ begin
     {$ENDIF}
   end;
 
+  extraArgs := TStringList.Create;
   dmdproc := TCEProcess.Create(nil);
   try
 
@@ -1558,6 +1571,8 @@ begin
     dmdproc.Parameters.Add(fDoc.fileName);
     dmdproc.Parameters.Add('-J' + ExtractFilePath(fDoc.fileName));
     dmdproc.Parameters.AddText(fRunnableSw);
+    CommandToList(firstlineFlags, extraArgs);
+    dmdproc.Parameters.AddStrings(extraArgs);
     if unittest then
     begin
       dmdproc.Parameters.Add('-main');
@@ -1567,6 +1582,7 @@ begin
     dmdproc.Parameters.Add('-of' + fname + exeExt);
     LibMan.getLibFiles(nil, dmdproc.Parameters);
     LibMan.getLibSources(nil, dmdproc.Parameters);
+    deleteDups(dmdproc.Parameters);
     dmdproc.Execute;
     while dmdproc.Running do
       application.ProcessMessages;
@@ -1577,7 +1593,11 @@ begin
         fDoc, amcEdit, amkInf);
       fRunProc.CurrentDirectory := extractFilePath(fRunProc.Executable);
       if runArgs <> '' then
-        fRunProc.Parameters.DelimitedText := symbolExpander.get(runArgs);
+      begin
+        extraArgs.Clear;
+        CommandToList(symbolExpander.get(runArgs), extraArgs);
+        fRunProc.Parameters.AddStrings(extraArgs);
+      end;
       fRunProc.Executable := fname + exeExt;
       if redirect then
       	getprocInputHandler.addProcess(fRunProc);
@@ -1591,6 +1611,7 @@ begin
 
   finally
     dmdproc.Free;
+    extraArgs.Free;
   end;
 end;