309aaba342
- 8B PDO config: ULINT-sized payload, no 0x1A01 diag PDO on SM3 (device rejected SM3=8 with diag assigned: 'size not allowed, min/max 0xa') - twin_layout_blob_sized(): single 64-bit mapping entry for 8B payloads - Ticker: per-byte XOR 0x5A transform in 8B mode so TwinCAT can verify every byte individually (1KB path unchanged, const-guarded) - TwinCAT automation scripts: deploy with RPC retry, LinkVariables-based whole-array relink (element links only carry 1 byte), ADS watch, diag - Docs: 8B design, verification methodology, test report
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\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: $_" }
|