* Add ability to set compiler defines (PR #3)

For Ticket #2
All 73 tests pass

Author: darianmiller

README.md

@@ -217,6 +217,41 @@ Example:
 -IncludePath @('C:\Inc\Headers')
 ```
 
+## -Define
+
+```text
+-Define <string[]>
+```
+
+One or more additional conditional defines to pass to the DCC compiler.  When
+at least one value is supplied, the defines are joined with semicolons and
+passed as a single `-D` argument:
+
+```text
+-DMYFLAG;USE_JEDI_JCL
+```
+
+This is appended to the existing config define (e.g. `-DDEBUG`) that the script
+always adds for the `-Config` value; it does not replace it.
+
+When no `-Define` values are supplied (the default), no extra `-D` argument is
+added beyond the config define.
+
+Examples:
+
+```powershell
+# Single define
+delphi-dccbuild.ps1 -ProjectFile .\src\MyApp.dpr -RootDir $root -Define CI
+
+# Multiple defines
+delphi-dccbuild.ps1 -ProjectFile .\src\MyApp.dpr -RootDir $root `
+    -Define MYFLAG, USE_JEDI_JCL
+
+# Via pipeline with defines
+delphi-inspect.ps1 -DetectLatest -Platform Win32 -BuildSystem DCC |
+    delphi-dccbuild.ps1 -ProjectFile .\src\MyApp.dpr -Define CI, MYFLAG
+```
+
 ## -ShowOutput   (switch)
 
 ```text

source/delphi-dccbuild.ps1

@@ -108,6 +108,10 @@ param(
   # joined with semicolons.
   [string[]]$IncludePath = @(),
 
+  # Additional conditional defines (-D flag).  Multiple defines are joined
+  # with semicolons and passed as a single -D argument.
+  [string[]]$Define = @(),
+
   [switch]$ShowOutput
 )
 
@@ -258,6 +262,7 @@ function Invoke-DccProject {
     [string]$DcuOutputDir,
     [string[]]$UnitSearchPath = @(),
     [string[]]$IncludePath    = @(),
+    [string[]]$Define         = @(),
     [switch]$ShowOutput
   )
 
@@ -281,6 +286,9 @@ function Invoke-DccProject {
   if ($UnitSearchPath.Count -gt 0) { $dccArgs += "-U$($UnitSearchPath -join ';')" }
   if ($IncludePath.Count -gt 0)    { $dccArgs += "-I$($IncludePath -join ';')" }
 
+  # Additional defines: multiple entries joined with semicolons into a single -D flag
+  if ($Define.Count -gt 0) { $dccArgs += "-D$($Define -join ';')" }
+
   return Invoke-DccExe -CompilerPath $CompilerPath -Arguments $dccArgs -ShowOutput:$ShowOutput
 }
 
@@ -335,6 +343,7 @@ try {
     -DcuOutputDir    $DcuOutputDir `
     -UnitSearchPath  $UnitSearchPath `
     -IncludePath     $IncludePath `
+    -Define          $Define `
     -ShowOutput:$ShowOutput
 
   $resultObj = [pscustomobject]@{

tests/pwsh/delphi-dccbuild.Tests.ps1

@@ -45,6 +45,9 @@
     DcuOutputDir adds -N0 flag.
     UnitSearchPath single entry adds -U flag; multiple joined with semicolons.
     IncludePath single entry adds -I flag; multiple joined with semicolons.
+    Define omitted adds no extra -D argument beyond the config define.
+    Define single entry adds a -D flag with that value.
+    Define multiple entries are joined with semicolons into a single -D flag.
 
   Describe 8 - Main flow (via Invoke-ToolProcess, no DCC calls):
     Exits 3 when no rootDir is provided (no pipeline, no -RootDir).
@@ -667,6 +670,81 @@ Describe 'Invoke-DccProject' {
 
   }
 
+  Context 'Define omitted adds no extra -D argument beyond the config define' {
+
+    BeforeAll {
+      $script:capturedArgs = $null
+      Mock Invoke-DccExe {
+        $script:capturedArgs = $Arguments
+        return [pscustomobject]@{ ExitCode = 0; Output = '' }
+      }
+
+      Invoke-DccProject `
+        -CompilerPath 'C:\RAD\Studio\23.0\bin\dcc32.exe' `
+        -ProjectFile  'C:\Projects\MyApp.dpr' `
+        -Config       'Debug' `
+        -Target       'Build' `
+        -Verbosity    'normal'
+    }
+
+    It 'contains exactly one -D argument (the config define)' {
+      @($script:capturedArgs | Where-Object { $_ -like '-D*' }).Count | Should -Be 1
+    }
+
+    It 'the only -D argument is -DDEBUG' {
+      $script:capturedArgs | Should -Contain '-DDEBUG'
+    }
+
+  }
+
+  Context 'Define single entry adds a -D flag with that value' {
+
+    BeforeAll {
+      $script:capturedArgs = $null
+      Mock Invoke-DccExe {
+        $script:capturedArgs = $Arguments
+        return [pscustomobject]@{ ExitCode = 0; Output = '' }
+      }
+
+      Invoke-DccProject `
+        -CompilerPath 'C:\RAD\Studio\23.0\bin\dcc32.exe' `
+        -ProjectFile  'C:\Projects\MyApp.dpr' `
+        -Config       'Debug' `
+        -Target       'Build' `
+        -Verbosity    'normal' `
+        -Define       @('MYFLAG')
+    }
+
+    It 'includes -DMYFLAG' {
+      $script:capturedArgs | Should -Contain '-DMYFLAG'
+    }
+
+  }
+
+  Context 'Define multiple entries are joined with semicolons into a single -D flag' {
+
+    BeforeAll {
+      $script:capturedArgs = $null
+      Mock Invoke-DccExe {
+        $script:capturedArgs = $Arguments
+        return [pscustomobject]@{ ExitCode = 0; Output = '' }
+      }
+
+      Invoke-DccProject `
+        -CompilerPath 'C:\RAD\Studio\23.0\bin\dcc32.exe' `
+        -ProjectFile  'C:\Projects\MyApp.dpr' `
+        -Config       'Debug' `
+        -Target       'Build' `
+        -Verbosity    'normal' `
+        -Define       @('MYFLAG', 'USE_JEDI_JCL')
+    }
+
+    It 'includes -DMYFLAG;USE_JEDI_JCL as a single argument' {
+      $script:capturedArgs | Should -Contain '-DMYFLAG;USE_JEDI_JCL'
+    }
+
+  }
+
 }
 
 Describe 'Main flow -- pre-compiler validation (no DCC invoked)' {