#Requires -RunAsAdministrator
#Requires -Version 5.1
$ErrorActionPreference = 'Continue'

function Invoke-Com {
    param([scriptblock]$Fn, [int]$Retries = 30, [int]$DelayMs = 2000)
    for ($i = 0; $i -lt $Retries; $i++) {
        try { return & $Fn } catch {
            $hr = $_.Exception.HResult
            if ($hr -eq -2147418111) { Start-Sleep -Milliseconds $DelayMs; continue }
            throw
        }
    }
    throw "COM call rejected $Retries times (RPC_E_CALL_REJECTED)"
}

Write-Host "=== Deploy 8B with RPC retry ==="
$dte = Invoke-Com { New-Object -ComObject TcXaeShell.DTE.17.0 }
Invoke-Com { $dte.MainWindow.Visible = $true } | Out-Null
try { Invoke-Com { $dte.SuppressUI = $false } | Out-Null } catch {}
Invoke-Com { $dte.Solution.Open('C:\Users\tonycao\work\twincat3-auto-cli\TwinCAT_EL6695_Primary\TwinCATProject1.sln') } | Out-Null
Write-Host "solution opened"

$sm = $null
for ($i = 0; $i -lt 40; $i++) {
    try { $sm = Invoke-Com { $dte.Solution.Projects.Item(1).Object } -Retries 3 -DelayMs 3000; if ($sm) { break } } catch { Write-Host "  waiting sysmgr..." }
}
if (-not $sm) { Write-Host "FATAL: no sysmgr"; exit 1 }
Write-Host "sysmgr OK"
Invoke-Com { $sm.SetTargetNetId('169.254.176.217.1.1') } | Out-Null

Write-Host "building..."
try { Invoke-Com { $dte.ExecuteCommand('Build.BuildSolution') } -Retries 10 | Out-Null } catch { Write-Host "build cmd: $_" }
# wait for build done (BuildState 3 = done)
$done = $false
for ($i = 0; $i -lt 90; $i++) {
    try {
        $bs = Invoke-Com { $dte.Solution.SolutionBuild.BuildState } -Retries 5 -DelayMs 3000
        $bi = Invoke-Com { $dte.Solution.SolutionBuild.LastBuildInfo } -Retries 5 -DelayMs 1000
        if ($bs -eq 3) { Write-Host "build done (LastBuildInfo=$bi) after $($i*2)s"; $done = $true; break }
    } catch { Write-Host "  build poll err: $_" }
    Start-Sleep -Seconds 2
}
if (-not $done) { Write-Host "WARN: build state never reached done" }

# dump build errors if any
try {
    $ew = $dte.ToolWindows.ErrorList
    Write-Host "error list check skipped"
} catch {}

Write-Host "activating..."
Invoke-Com { $sm.ActivateConfiguration() } -Retries 30 -DelayMs 3000 | Out-Null
Write-Host "activated"
Start-Sleep 10
Write-Host "restarting runtime..."
Invoke-Com { $sm.StartRestartTwinCAT() } -Retries 30 -DelayMs 3000 | Out-Null
Write-Host "restart issued"
Start-Sleep 12
try { Write-Host "IsTwinCATStarted=$($sm.IsTwinCATStarted)" } catch {}
Write-Host "=== done ==="