Auto-build: agents (powershell) from fc2d460

2026-08-09 04:53:20 +03:00 · 2026-08-08 12:48:45 +00:00
commit 2b686c00c8
321 changed files with 166452 additions and 0 deletions
@@ -0,0 +1,114 @@
+# form-remove v1.8 — Remove form from 1C object
+# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
+param(
+	[Parameter(Mandatory)]
+	[Alias("ProcessorName")]
+	[string]$ObjectName,
+
+	[Parameter(Mandatory)]
+	[string]$FormName,
+
+	[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
+$formsDir = Join-Path $processorDir "Forms"
+$formMetaPath = Join-Path $formsDir "$FormName.xml"
+$formDir = Join-Path $formsDir $FormName
+
+if (-not (Test-Path $formMetaPath)) {
+	Write-Error "Метаданные формы не найдены: $formMetaPath"
+	exit 1
+}
+
+# --- Удаление файлов ---
+
+if (Test-Path $formDir) {
+	Remove-Item -Path $formDir -Recurse -Force
+	Write-Host "[OK] Удалён каталог: $formDir"
+}
+
+Remove-Item -Path $formMetaPath -Force
+Write-Host "[OK] Удалён файл: $formMetaPath"
+
+# --- Модификация корневого 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")
+
+# Удалить <Form>FormName</Form> из ChildObjects
+$formNodes = $xmlDoc.SelectNodes("//md:ChildObjects/md:Form", $nsMgr)
+foreach ($node in $formNodes) {
+	if ($node.InnerText -eq $FormName) {
+		$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
+		# Опустевший контейнер: остаётся отступ-whitespace, и XmlWriter пишет пару
+		# <ChildObjects>\n\t\t</ChildObjects>. Платформа пишет только <ChildObjects/>
+		# (1394 самозакрывающихся на acc+erp, пустых пар ни в одной форме — 0).
+		if ($parent.SelectNodes("*").Count -eq 0) { $parent.IsEmpty = $true }
+		break
+	}
+}
+
+# Очистить любые Default*/Auxiliary* form-слоты, указывавшие на удалённую форму
+# (form-add пишет свойство по назначению: DefaultObjectForm/DefaultListForm/
+#  DefaultChoiceForm/DefaultRecordForm/DefaultForm — не только generic DefaultForm).
+$formRefRe = "Form\.$([regex]::Escape($FormName))$"
+foreach ($node in $xmlDoc.SelectNodes("//md:*", $nsMgr)) {
+	if ($node.LocalName -like "*Form" -and $node.InnerText -and $node.InnerText -match $formRefRe) {
+		# IsEmpty, а не InnerText="": пустая строка сериализуется парой <Tag></Tag>, а
+		# Конфигуратор пустых пар не пишет (0 на 476 942 XML корпуса) — нужен <Tag/>.
+		$node.IsEmpty = $true
+	}
+}
+
+# Сохранить с BOM
+$encBom = New-Object System.Text.UTF8Encoding($true)
+$settings = New-Object System.Xml.XmlWriterSettings
+$settings.Encoding = $encBom
+$settings.Indent = $false
+$settings.NewLineHandling = [System.Xml.NewLineHandling]::None
+
+# Через MemoryStream, а не прямо в файл: нужен шаг пост-обработки строки.
+$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"')
+# Пустой элемент: XmlWriter отдаёт `<a />`, Конфигуратор пишет `<a/>`. Внутри
+# CDATA/комментария ` />` может быть содержимым (там `>` не экранируется),
+# поэтому они идут первыми ветками альтернации и возвращаются как есть.
+$xmlText = [regex]::Replace($xmlText, '(?s)<!\[CDATA\[.*?\]\]>|<!--.*?-->|(?<=\S) />', { param($m) if ($m.Value -eq ' />') { '/>' } else { $m.Value } })
+# Целевой перевод строки: стиль файла-назначения — правка наследует его (#44/#46/#47),
+# новый файл получает канон выгрузки CRLF. Зеркало _detect_xml_style в py-порту.
+$targetEol = if ((Test-Path -LiteralPath $rootXmlFull.Path) -and ([System.IO.File]::ReadAllText($rootXmlFull.Path) -notmatch "`r`n")) { "`n" } else { "`r`n" }
+$xmlText = ($xmlText -replace "`r`n", "`n") -replace "`n", $targetEol
+[System.IO.File]::WriteAllText($rootXmlFull.Path, $xmlText, $encBom)
+
+Write-Host "[OK] Форма $FormName удалена из $rootXmlPath"