mirror of
https://github.com/Nikolay-Shirokov/cc-1c-skills.git
synced 2026-08-08 04:30:19 +03:00
Nick ShirokovandClaude Opus 5
39cf8e49cf
.NET XmlWriter пишет `<a />`, а Конфигуратор — `<a/>`. Поскольку Save переписывает файл целиком, meta-edit при добавлении одного реквизита переводил в пробельную форму все пустые теги документа. Дефект только у PS-порта: lxml (45 из 49 py-портов) уже пишет плотно, то есть порты расходились побайтово. Канон измерен, а не предположен: чистая выгрузка пустой ИБ на Windows и macOS плюс сплошной скан 8 выгрузок в cfsrc — 476 943 XML, 21 294 119 самозакрывающихся тегов, пробельных 0. Форма не зависит от ОС, версии платформы (8.3.20-8.5) и наличия атрибутов. Правило уже было реализовано в skd-edit — оттуда и взято. Замена безопасна доказуемо: .NET экранирует `>` как `>` и в тексте, и в атрибутах, поэтому ` />` после Save — только конец тега. Лазейки (CDATA, комментарии) в 1С-метаданных не встречаются — 0 из 476 943 файлов; гард на них всё равно стоит. Одиннадцать скриптов писали прямо в FileStream без пост-обработки — переведены на MemoryStream, что заодно чинит `encoding="utf-8"` строчными (335 файлов в снэпшотах). В cfe-borrow правится и сборка Form.xml: куски берутся из OuterXml, а он спацовывает так же, как XmlWriter. Дрейф снэпшотов: 12 838 строк тегов + 335 деклараций, содержательных изменений ноль. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
100 lines
3.7 KiB
PowerShell
100 lines
3.7 KiB
PowerShell
# template-remove v1.4 — Remove template from 1C object
|
||
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
|
||
param(
|
||
[Parameter(Mandatory)]
|
||
[Alias("ProcessorName")]
|
||
[string]$ObjectName,
|
||
|
||
[Parameter(Mandatory)]
|
||
[string]$TemplateName,
|
||
|
||
[string]$SrcDir = "src"
|
||
)
|
||
|
||
$ErrorActionPreference = "Stop"
|
||
[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
|
||
[Console]::InputEncoding = [System.Text.Encoding]::UTF8
|
||
|
||
# --- Проверки ---
|
||
|
||
$rootXmlPath = Join-Path $SrcDir "$ObjectName.xml"
|
||
if (-not (Test-Path $rootXmlPath)) {
|
||
Write-Error "Корневой файл обработки не найден: $rootXmlPath"
|
||
exit 1
|
||
}
|
||
|
||
$processorDir = Join-Path $SrcDir $ObjectName
|
||
$templatesDir = Join-Path $processorDir "Templates"
|
||
$templateMetaPath = Join-Path $templatesDir "$TemplateName.xml"
|
||
$templateDir = Join-Path $templatesDir $TemplateName
|
||
|
||
if (-not (Test-Path $templateMetaPath)) {
|
||
Write-Error "Метаданные макета не найдены: $templateMetaPath"
|
||
exit 1
|
||
}
|
||
|
||
# --- Удаление файлов ---
|
||
|
||
if (Test-Path $templateDir) {
|
||
Remove-Item -Path $templateDir -Recurse -Force
|
||
Write-Host "[OK] Удалён каталог: $templateDir"
|
||
}
|
||
|
||
Remove-Item -Path $templateMetaPath -Force
|
||
Write-Host "[OK] Удалён файл: $templateMetaPath"
|
||
|
||
# --- Модификация корневого XML ---
|
||
|
||
$rootXmlFull = Resolve-Path $rootXmlPath
|
||
$xmlDoc = New-Object System.Xml.XmlDocument
|
||
$xmlDoc.PreserveWhitespace = $true
|
||
$xmlDoc.Load($rootXmlFull.Path)
|
||
|
||
$nsMgr = New-Object System.Xml.XmlNamespaceManager($xmlDoc.NameTable)
|
||
$nsMgr.AddNamespace("md", "http://v8.1c.ru/8.3/MDClasses")
|
||
|
||
# Удалить <Template>TemplateName</Template> из ChildObjects
|
||
$templateNodes = $xmlDoc.SelectNodes("//md:ChildObjects/md:Template", $nsMgr)
|
||
foreach ($node in $templateNodes) {
|
||
if ($node.InnerText -eq $TemplateName) {
|
||
$parent = $node.ParentNode
|
||
# Удалить предшествующий whitespace
|
||
$prev = $node.PreviousSibling
|
||
if ($prev -and $prev.NodeType -eq [System.Xml.XmlNodeType]::Whitespace) {
|
||
$parent.RemoveChild($prev) | Out-Null
|
||
}
|
||
$parent.RemoveChild($node) | Out-Null
|
||
break
|
||
}
|
||
}
|
||
|
||
# Очистить MainDataCompositionSchema если указывала на этот макет
|
||
$mainDCS = $xmlDoc.SelectSingleNode("//md:MainDataCompositionSchema", $nsMgr)
|
||
if ($mainDCS -and $mainDCS.InnerText -match "Template\.$([regex]::Escape($TemplateName))$") {
|
||
$mainDCS.InnerText = ""
|
||
Write-Host "[OK] Очищён MainDataCompositionSchema"
|
||
}
|
||
|
||
# Сохранить с BOM
|
||
$encBom = New-Object System.Text.UTF8Encoding($true)
|
||
$settings = New-Object System.Xml.XmlWriterSettings
|
||
$settings.Encoding = $encBom
|
||
$settings.Indent = $false
|
||
|
||
# Через MemoryStream, а не прямо в файл: нужен шаг пост-обработки строки — XmlWriter
|
||
# отдаёт `encoding="utf-8"` и `<a />`, Конфигуратор пишет `encoding="UTF-8"` и `<a/>`.
|
||
$memStream = New-Object System.IO.MemoryStream
|
||
$writer = [System.Xml.XmlWriter]::Create($memStream, $settings)
|
||
$xmlDoc.Save($writer)
|
||
$writer.Flush(); $writer.Close()
|
||
|
||
$xmlText = [System.Text.Encoding]::UTF8.GetString($memStream.ToArray())
|
||
$memStream.Close()
|
||
if ($xmlText.Length -gt 0 -and $xmlText[0] -eq [char]0xFEFF) { $xmlText = $xmlText.Substring(1) }
|
||
$xmlText = $xmlText.Replace('encoding="utf-8"', 'encoding="UTF-8"')
|
||
# Гард на CDATA/комментарии: только там `>` не экранируется, и ` />` может быть содержимым.
|
||
if ($xmlText -notmatch '<!\[CDATA\[|<!--') { $xmlText = [regex]::Replace($xmlText, '(?<=\S) />', '/>') }
|
||
[System.IO.File]::WriteAllText($rootXmlFull.Path, $xmlText, $encBom)
|
||
|
||
Write-Host "[OK] Макет $TemplateName удалён из $rootXmlPath"
|