Auto-build: copilot (python) from 7fa279c

2026-06-14 09:54:56 +03:00 · 2026-05-17 11:22:33 +00:00
commit bbd2f7a8c1
207 changed files with 98901 additions and 0 deletions
@@ -0,0 +1,138 @@
+# help-add v1.4 — Add built-in help to 1C object
+# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
+param(
+	[Parameter(Mandatory)]
+	[string]$ObjectName,
+
+	[string]$Lang = "ru",
+
+	[string]$SrcDir = "src"
+)
+
+$ErrorActionPreference = "Stop"
+[Console]::OutputEncoding = [System.Text.Encoding]::UTF8
+[Console]::InputEncoding = [System.Text.Encoding]::UTF8
+
+# --- Detect format version ---
+
+function Detect-FormatVersion([string]$dir) {
+	$d = $dir
+	while ($d) {
+		$cfgPath = Join-Path $d "Configuration.xml"
+		if (Test-Path $cfgPath) {
+			$head = [System.IO.File]::ReadAllText($cfgPath, [System.Text.Encoding]::UTF8).Substring(0, [Math]::Min(2000, (Get-Item $cfgPath).Length))
+			if ($head -match '<MetaDataObject[^>]+version="(\d+\.\d+)"') { return $Matches[1] }
+		}
+		$parent = Split-Path $d -Parent
+		if ($parent -eq $d) { break }
+		$d = $parent
+	}
+	return "2.17"
+}
+
+$formatVersion = Detect-FormatVersion (Resolve-Path $SrcDir).Path
+
+# --- Проверки ---
+
+$objectDir = Join-Path $SrcDir $ObjectName
+$extDir = Join-Path $objectDir "Ext"
+
+if (-not (Test-Path $extDir)) {
+	Write-Error "Каталог объекта не найден: $extDir. Проверьте путь ObjectName (например Catalogs/МойСправочник)."
+	exit 1
+}
+
+$helpXmlPath = Join-Path $extDir "Help.xml"
+if (Test-Path $helpXmlPath) {
+	Write-Error "Справка уже существует: $helpXmlPath"
+	exit 1
+}
+
+# --- Кодировка ---
+
+$encBom = New-Object System.Text.UTF8Encoding($true)
+
+# --- 1. Help.xml ---
+
+$helpXml = @"
+<?xml version="1.0" encoding="UTF-8"?>
+<Help xmlns="http://v8.1c.ru/8.3/xcf/extrnprops" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="$formatVersion">
+	<Page>$Lang</Page>
+</Help>
+"@
+
+[System.IO.File]::WriteAllText($helpXmlPath, $helpXml, $encBom)
+
+# --- 2. Help/<lang>.html ---
+
+$helpDir = Join-Path $extDir "Help"
+New-Item -ItemType Directory -Path $helpDir -Force | Out-Null
+
+$helpHtmlPath = Join-Path $helpDir "$Lang.html"
+
+$helpHtml = @"
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
+<html>
+<head>
+    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
+    <link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"/>
+</head>
+<body>
+    <h1>$ObjectName</h1>
+    <p>Описание.</p>
+</body>
+</html>
+"@
+
+[System.IO.File]::WriteAllText($helpHtmlPath, $helpHtml, $encBom)
+
+# --- 3. Проверка IncludeHelpInContents в метаданных форм ---
+
+$formsDir = Join-Path $objectDir "Forms"
+if (Test-Path $formsDir) {
+	$formMetaFiles = Get-ChildItem -Path $formsDir -Filter "*.xml" -File
+	foreach ($formMeta in $formMetaFiles) {
+		$xmlDoc = New-Object System.Xml.XmlDocument
+		$xmlDoc.PreserveWhitespace = $true
+		$xmlDoc.Load($formMeta.FullName)
+
+		$nsMgr = New-Object System.Xml.XmlNamespaceManager($xmlDoc.NameTable)
+		$nsMgr.AddNamespace("md", "http://v8.1c.ru/8.3/MDClasses")
+
+		$includeHelp = $xmlDoc.SelectSingleNode("//md:IncludeHelpInContents", $nsMgr)
+		if (-not $includeHelp) {
+			# Добавить после <FormType>
+			$formType = $xmlDoc.SelectSingleNode("//md:FormType", $nsMgr)
+			if ($formType) {
+				$newElem = $xmlDoc.CreateElement("IncludeHelpInContents", "http://v8.1c.ru/8.3/MDClasses")
+				$newElem.InnerText = "false"
+				$parent = $formType.ParentNode
+				$nextSibling = $formType.NextSibling
+				# Вставить перенос + табуляцию + элемент
+				$ws = $xmlDoc.CreateWhitespace("`n`t`t`t")
+				if ($nextSibling) {
+					$parent.InsertBefore($ws, $nextSibling) | Out-Null
+					$parent.InsertBefore($newElem, $ws) | Out-Null
+				} else {
+					$parent.AppendChild($ws) | Out-Null
+					$parent.AppendChild($newElem) | Out-Null
+				}
+
+				$settings = New-Object System.Xml.XmlWriterSettings
+				$settings.Encoding = $encBom
+				$settings.Indent = $false
+				$stream = New-Object System.IO.FileStream($formMeta.FullName, [System.IO.FileMode]::Create)
+				$writer = [System.Xml.XmlWriter]::Create($stream, $settings)
+				$xmlDoc.Save($writer)
+				$writer.Close()
+				$stream.Close()
+
+				Write-Host "     IncludeHelpInContents добавлен: $($formMeta.Name)"
+			}
+		}
+	}
+}
+
+Write-Host "[OK] Создана справка: $ObjectName"
+Write-Host "     Метаданные: $helpXmlPath"
+Write-Host "     Страница:   $helpHtmlPath"