From 782f5ff59cf22fe4995c47b50904ac6474e37b1a Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 17 Sep 2015 21:13:47 +0200
Subject: [PATCH] more for #10, handle mainSourceFile

---
 src/ce_dubproject.pas | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas
index 10d5058e..4bfdcb90 100644
--- a/src/ce_dubproject.pas
+++ b/src/ce_dubproject.pas
@@ -419,7 +419,10 @@ begin
   fSrcs.Clear;
   lst := TStringList.Create;
   try
-    // auto folders
+    // auto folders & files
+    item := fJSON.Find('mainSourceFile');
+    if item <> nil then
+      fSrcs.Add(ExtractRelativepath(fBasePath, item.AsString));
     tryAddFromFolder(fBasePath + 'src');
     tryAddFromFolder(fBasePath + 'source');
     // custom folders
@@ -444,6 +447,9 @@ begin
     conf := getCurrentCustomConfig;
     if conf <> nil then
     begin
+      item := conf.Find('mainSourceFile');
+      if item <> nil then
+        fSrcs.Add(ExtractRelativepath(fBasePath, item.AsString));
       // custom folders in current config
       item := conf.Find('sourcePaths');
       if item <> nil then
@@ -467,7 +473,6 @@ begin
     //
     deleteDups(fSrcs);
     // TODO-cDUB: manage exclusions from 'excludedSourceFiles' (global + curr conf)
-    // + mainSourceFile.
   finally
     lst.Free;
   end;
@@ -478,6 +483,11 @@ var
   tt: TJSONData;
 begin
   result := true;
+  if value.Find('mainSourceFile') <> nil then
+  begin
+    fBinKind := executable;
+    exit;
+  end;
   tt := value.Find('targetType');
   if tt <> nil then
   begin