From 0e10fade8dc991b0da6ea96bd70314ad50803394 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sat, 5 Sep 2015 22:42:19 +0200
Subject: [PATCH] support for disabled string syntax in more project fields

- import string paths, import module paths, extra sources.
- use ce_common funct to test if disabled
---
 src/ce_dmdwrap.pas | 25 ++++++++-----------------
 1 file changed, 8 insertions(+), 17 deletions(-)

diff --git a/src/ce_dmdwrap.pas b/src/ce_dmdwrap.pas
index 0a689021..6a5338cd 100644
--- a/src/ce_dmdwrap.pas
+++ b/src/ce_dmdwrap.pas
@@ -623,15 +623,8 @@ begin
     if fAllInst then aList.Add('-allinst');
     if fAddMain then aList.Add('-main');
     if fRelease then aList.Add('-release');
-    for str in fVerIds do begin
-      if length(str) > 0 then
-        if str[1] = ';' then
-          continue;
-      if length(str) > 1 then
-        if str[1..2] = '//' then
-          continue;
-      aList.Add('-version=' + str);
-    end;
+    for str in fVerIds do
+      if not isStringDisabled(str) then aList.Add('-version=' + str);
     //
     if fRelease then
       begin
@@ -905,6 +898,8 @@ begin
       exts.AddStrings(['.d', '.di', '.dd']);
       for str in fExtraSrcs do
       begin
+        if isStringDisabled(str) then
+          continue;
         str := symbolExpander.get(str);
         if not listAsteriskPath(str, aList, exts) then
           aList.Add(str);
@@ -912,9 +907,9 @@ begin
     finally
       exts.Free;
     end;
-    for str in fImpMod do
+    for str in fImpMod do if not isStringDisabled(str) then
       aList.Add('-I'+ symbolExpander.get(str));
-    for str in fImpStr do
+    for str in fImpStr do if not isStringDisabled(str) then
       aList.Add('-J'+ symbolExpander.get(str));
     if fFname <> '' then
       aList.Add('-of' + symbolExpander.get(fFname));
@@ -1030,12 +1025,8 @@ begin
     begin
     for str1 in fCustom do if str1 <> '' then
     begin
-      if length(str1) > 0 then
-        if str1[1] = ';' then
-          continue;
-      if length(str1) > 1 then
-        if str1[1..2] = '//' then
-          continue;
+      if isStringDisabled(str1) then
+        continue;
       if str1[1] <> '-' then
         str2 := '-' + str1
       else