46 lines
1.7 KiB
PowerShell
46 lines
1.7 KiB
PowerShell
|
#Requires -RunAsAdministrator
|
|||
|
|
$ErrorActionPreference = 'Continue'
|
|||
|
|
function Invoke-Com {
|
|||
|
|
param([scriptblock]$Fn, [int]$Retries = 5, [int]$DelayMs = 2000)
|
|||
|
|
for ($i = 0; $i -lt $Retries; $i++) {
|
|||
|
|
try { return & $Fn } catch {
|
|||
|
|
if ($_.Exception.HResult -eq -2147418111) { Start-Sleep -Milliseconds $DelayMs; continue }
|
|||
|
|
throw
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return $null
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
$dte = New-Object -ComObject TcXaeShell.DTE.17.0
|
|||
|
|
$dte.MainWindow.Visible = $true
|
|||
|
|
try { $dte.SuppressUI = $false } catch {}
|
|||
|
|
$dte.Solution.Open('C:\Users\tonycao\work\twincat3-auto-cli\TwinCAT_EL6695_Primary_2kHz\TwinCATProject1.sln')
|
|||
|
|
Write-Host "open issued, waiting 30s..."
|
|||
|
|
Start-Sleep 30
|
|||
|
|
|
|||
|
|
Write-Host "BuildState pre-build: $(Invoke-Com { $dte.Solution.SolutionBuild.BuildState })"
|
|||
|
|
|
|||
|
|
Write-Host "issuing build..."
|
|||
|
|
Invoke-Com { $dte.ExecuteCommand('Build.BuildSolution') } | Out-Null
|
|||
|
|
for ($i = 0; $i -lt 30; $i++) {
|
|||
|
|
$bs = Invoke-Com { $dte.Solution.SolutionBuild.BuildState } -Retries 2 -DelayMs 1000
|
|||
|
|
Write-Host " [$($i*3)s] BuildState=$bs"
|
|||
|
|
if ($bs -eq 3) { break }
|
|||
|
|
Start-Sleep 3
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
Write-Host "--- output window (Build pane) ---"
|
|||
|
|
try {
|
|||
|
|
$ow = $dte.ToolWindows.OutputWindow
|
|||
|
|
foreach ($pane in $ow.OutputWindowPanes) {
|
|||
|
|
if ($pane.Name -match 'Build|<7C><><EFBFBD><EFBFBD>') {
|
|||
|
|
$td = $pane.TextDocument
|
|||
|
|
$txt = $td.StartPoint.CreateEditPoint()
|
|||
|
|
$content = $txt.GetText($td.EndPoint)
|
|||
|
|
$lines = $content -split "`r?`n"
|
|||
|
|
Write-Host "pane '$($pane.Name)': $($lines.Count) lines, last 25:"
|
|||
|
|
$lines | Select-Object -Last 25 | ForEach-Object { Write-Host " $_" }
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
} catch { Write-Host "output window err: $_" }
|