#Requires -Version 5.1
[CmdletBinding()]
param(
    [string]$Solution = $null
)

. "$PSScriptRoot\tc-common.ps1"
if (-not $Solution) { $Solution = $script:DefaultSolution }

New-Log $script:DefaultLogDir
$LogFile = Join-Path $script:DefaultLogDir "start-tc.log"

function Write-Log($Message) {
    $line = "[{0}] {1}" -f (Get-Date -Format 'HH:mm:ss'), $Message
    Write-Host $line
    Add-Content -Path $LogFile -Value $line -Encoding UTF8
}

Write-Log "=== Start TwinCAT Runtime via DTE ==="

try {
    $dte = New-Object -ComObject TcXaeShell.DTE.17.0 -ErrorAction Stop
} catch {
    Write-Log "FATAL: Cannot create DTE: $_"
    exit 1
}

$dte.MainWindow.Visible = $true

try {
    $dte.Solution.Open($Solution)
    for ($i = 1; $i -le 120; $i++) {
        Start-Sleep -Seconds 1
        if ($dte.Solution.IsOpen) { break }
    }
    Write-Log "Solution open: $($dte.Solution.IsOpen)"

    $sysMgr = $null
    for ($i = 1; $i -le 40; $i++) {
        try {
            $sysMgr = $dte.Solution.Projects.Item(1).Object
            if ($sysMgr) { break }
        } catch {}
        Start-Sleep -Seconds 3
    }
    Write-Log "SysManager: $(if ($sysMgr) { 'OK' } else { 'null' })"
    if (-not $sysMgr) { exit 1 }

    # Set target and platform with retry
    $targetNetId = '169.254.176.217.1.1'
    $platform = 'TwinCAT RT (x64)'
    for ($i = 1; $i -le 10; $i++) {
        try { $sysMgr.SetTargetNetId($targetNetId); Write-Log "SetTargetNetId OK (try $i)"; break } catch { Start-Sleep -Seconds 2 }
    }
    for ($i = 1; $i -le 10; $i++) {
        try { $sysMgr.ConfigurationManager.ActiveTargetPlatform = $platform; Write-Log "Platform OK (try $i)"; break } catch { Start-Sleep -Seconds 2 }
    }

    Start-Sleep -Seconds 3
    Write-Log "IsTwinCATStarted before: $($sysMgr.IsTwinCATStarted())"

    Write-Log "Calling StartRestartTwinCAT()..."
    try {
        $sysMgr.StartRestartTwinCAT()
        Write-Log "StartRestartTwinCAT() OK"
    } catch {
        Write-Log "StartRestartTwinCAT() error: $_"
    }
    Start-Sleep -Seconds 10
    Write-Log "IsTwinCATStarted after: $($sysMgr.IsTwinCATStarted())"

    # Also try ActivateConfiguration if not started
    if (-not $sysMgr.IsTwinCATStarted()) {
        Write-Log "TwinCAT not started. Trying ActivateConfiguration..."
        try {
            $sysMgr.ActivateConfiguration()
            Write-Log "ActivateConfiguration OK"
        } catch {
            Write-Log "ActivateConfiguration error: $_"
        }
        Start-Sleep -Seconds 10
        Write-Log "IsTwinCATStarted after activate: $($sysMgr.IsTwinCATStarted())"
    }

    Write-Log "=== Done ==="
} finally {
    try { $dte.Quit() } catch {}
}