# epf-build v1.17 — Build external data processor or report (EPF/ERF) from XML sources # Source: https://github.com/Nikolay-Shirokov/cc-1c-skills # NB: *nix-раскладку платформы (/opt/1cv8//1cv8, без .exe) знает только .py-порт — PS на *nix не исполняется. <# .SYNOPSIS Сборка внешней обработки/отчёта 1С из XML-исходников .DESCRIPTION Собирает EPF/ERF-файл из XML-исходников с помощью платформы 1С. Общий скрипт для epf-build и erf-build. .PARAMETER V8Path Путь к каталогу bin платформы или к 1cv8.exe .PARAMETER InfoBasePath Путь к файловой информационной базе .PARAMETER InfoBaseServer Сервер 1С (для серверной базы) .PARAMETER InfoBaseRef Имя базы на сервере .PARAMETER UserName Имя пользователя 1С .PARAMETER Password Пароль пользователя .PARAMETER SourceFile Путь к корневому XML-файлу исходников .PARAMETER OutputFile Путь к выходному EPF/ERF-файлу .PARAMETER AdditionalV8Arguments Дополнительные аргументы запуска 1cv8.exe (например /UseHwLicenses+) .PARAMETER AdditionalIbcmdArguments Дополнительные аргументы запуска ibcmd (форма --ключ=значение) .EXAMPLE .\epf-build.ps1 -InfoBasePath "C:\Bases\MyDB" -SourceFile "src\МояОбработка.xml" -OutputFile "build\МояОбработка.epf" .EXAMPLE .\epf-build.ps1 -InfoBasePath "C:\Bases\MyDB" -SourceFile "src\МойОтчёт.xml" -OutputFile "build\МойОтчёт.erf" #> [CmdletBinding(PositionalBinding=$false)] param( [Parameter(Mandatory=$false)] [string]$V8Path, [Parameter(Mandatory=$false)] [string]$InfoBasePath, [Parameter(Mandatory=$false)] [string]$InfoBaseServer, [Parameter(Mandatory=$false)] [string]$InfoBaseRef, [Parameter(Mandatory=$false)] [string]$UserName, [Parameter(Mandatory=$false)] [string]$Password, [Parameter(Mandatory=$true)] [string]$SourceFile, [Parameter(Mandatory=$true)] [string]$OutputFile, # Что проверить в исходниках перед сборкой: modules (синтаксис в контекстах), handlers, # unreferenced, empty-handlers, config; off — не проверять. По умолчанию modules,handlers. [Parameter(Mandatory=$false)] [string]$Checks, # Контексты синтаксической проверки. По умолчанию ThinClient,Server. [Parameter(Mandatory=$false)] [string]$Context, [Parameter(Mandatory=$false)] [string[]]$AdditionalV8Arguments = @(), [Parameter(Mandatory=$false)] [string[]]$AdditionalIbcmdArguments = @() ) $OutputEncoding = [System.Text.Encoding]::UTF8 [Console]::OutputEncoding = [System.Text.Encoding]::UTF8 function Protect-Secrets { # Redact literal secret values from a display string (String.Replace is literal, not regex). param([string]$Text, [string[]]$Secrets) foreach ($s in $Secrets) { if ($s) { $Text = $Text.Replace($s, '***') } } return $Text } # --- Additional platform arguments --- $script:V8OwnedKeys = @( 'DESIGNER', 'ENTERPRISE', 'CREATEINFOBASE', 'CONFIG', '/F', '/S', '/N', '/P', '/Out', '/DisableStartupDialogs', '/UseTemplate', '/AddToList', '/Execute', '/C', '/URL', '/UC', '/DumpIB', '/RestoreIB', '/DumpCfg', '/LoadCfg', '/DumpConfigToFiles', '/LoadConfigFromFiles', '/UpdateDBCfg', '/DumpExternalDataProcessorOrReportToFiles', '/LoadExternalDataProcessorOrReportFromFiles' ) # Пакетные команды платформы. В одной командной строке DESIGNER выполняет ТОЛЬКО ПОСЛЕДНЮЮ, # остальные молча отбрасывает (проверено на 8.3.24: /LoadConfigFromFiles вместе с # /CheckCanApplyConfigurationExtensions завершились кодом 0 с пустым логом, и загрузка НЕ # состоялась). Такая команда в дополнительных аргументах подменяет собой операцию навыка, а навык # отчитывается успехом. Дополнительные аргументы — это опции, а не режимы. $script:V8BatchKeys = @( '/CheckConfig', '/CheckModules', '/CheckCanApplyConfigurationExtensions', '/DumpDBCfgList', '/DeleteCfg', '/UpdateCfg', '/CompareCfg', '/MergeCfg', '/ManageCfgSupport', '/RollbackCfg', '/ConvertFiles' ) $script:IbcmdOwnedKeys = @( '--db-path', '--data', '--out', '--file', '--load', '--restore', '--import', '--export', '--apply', '--force', '--create-database', '--user', '--password' ) $script:V8SecretKeys = @('/P', '/UC', '/WSP', '/AWSP') $script:IbcmdSecretKeys = @('--password', '--token', '--db-pwd') function Test-ArgKeyMatch { # A token matches a key when it equals the key, or starts with it and the next # character is not a letter — catches glued /N"user" and --password=x, while # keeping /ClearCache distinct from /C. param([string]$Token, [string]$Key) if ($Token.Length -lt $Key.Length) { return $false } if (-not $Token.Substring(0, $Key.Length).Equals($Key, [System.StringComparison]::OrdinalIgnoreCase)) { return $false } if ($Token.Length -eq $Key.Length) { return $true } return -not [char]::IsLetter($Token[$Key.Length]) } function Get-ProjectExtraArgs { # v8args / ibcmdargs from .v8-project.json — same upward walk as v8path. param([string]$Name) $dir = (Get-Location).Path while ($dir) { $pf = Join-Path $dir ".v8-project.json" if (Test-Path $pf) { try { $j = Get-Content $pf -Raw -Encoding UTF8 | ConvertFrom-Json if ($j.$Name) { return @($j.$Name | ForEach-Object { [string]$_ }) } } catch {} return @() } $parent = Split-Path $dir -Parent if (-not $parent -or $parent -eq $dir) { break } $dir = $parent } return @() } function Assert-ExtraArgs { # The platform accepts only one batch operation, and a duplicate connection or # output key fails with an opaque 1C error — reject what the skill owns itself. param([string[]]$ExtraArgs, [string]$Engine, [hashtable]$Hints) $paramName = if ($Engine -eq 'ibcmd') { '-AdditionalIbcmdArguments' } else { '-AdditionalV8Arguments' } $owned = if ($Engine -eq 'ibcmd') { $script:IbcmdOwnedKeys } else { $script:V8OwnedKeys } foreach ($tok in $ExtraArgs) { if ($Engine -eq 'ibcmd' -and $tok -notmatch '^-') { Write-Host "Error: '$tok' is a positional token — pass values as --key=value ($paramName cannot extend the ibcmd command)" -ForegroundColor Red exit 1 } if ($Engine -ne 'ibcmd') { foreach ($b in $script:V8BatchKeys) { if (Test-ArgKeyMatch $tok $b) { Write-Host "Error: $b is a batch command; passed via $paramName it would replace the skill's own operation (a command line runs only its last batch command)" -ForegroundColor Red exit 1 } } } foreach ($k in $owned) { if (Test-ArgKeyMatch $tok $k) { $hint = '' if ($Hints -and $Hints.ContainsKey($k)) { $hint = " (use $($Hints[$k]))" } Write-Host "Error: $k is controlled by the skill and cannot be passed via $paramName$hint" -ForegroundColor Red exit 1 } } } } function Resolve-ExtraArgs { # Pick the argument list for the selected engine and validate it. An explicitly passed # parameter for the other engine is an error; the same keys coming from .v8-project.json # simply do not apply — a project may describe both engines. param([string]$Engine, [string[]]$V8Extra, [string[]]$IbcmdExtra, [hashtable]$Hints) # powershell.exe -File — how skills are invoked — cannot bind an array parameter: # space-separated values spill into positional ones, a comma-joined list arrives as a # single token. So accept the repo's list convention (comma-separated) and split here; # a native array call keeps working. A value containing a comma is not supported. $V8Extra = @($V8Extra | ForEach-Object { $_ -split ',' } | Where-Object { $_ -ne '' }) $IbcmdExtra = @($IbcmdExtra | ForEach-Object { $_ -split ',' } | Where-Object { $_ -ne '' }) if ($Engine -eq 'ibcmd' -and $V8Extra.Count -gt 0) { Write-Host "Error: -AdditionalV8Arguments applies to 1cv8 only; the selected engine is ibcmd (use -AdditionalIbcmdArguments)" -ForegroundColor Red exit 1 } if ($Engine -ne 'ibcmd' -and $IbcmdExtra.Count -gt 0) { Write-Host "Error: -AdditionalIbcmdArguments applies to ibcmd only; the selected engine is 1cv8 (use -AdditionalV8Arguments)" -ForegroundColor Red exit 1 } if ($Engine -eq 'ibcmd') { $extra = @(Get-ProjectExtraArgs 'ibcmdargs') + @($IbcmdExtra) } else { $extra = @(Get-ProjectExtraArgs 'v8args') + @($V8Extra) } if ($extra.Count -gt 0) { Assert-ExtraArgs $extra $Engine $Hints } # Plain return, no comma trick: the caller re-collects with @(...), and ,@() there # would nest the array — the tokens would then be glued into one argument. return $extra } function Format-ArgsForDisplay { # Redact values of secret-prone keys in glued, =-joined and separate forms. # Matching here is a plain prefix (no letter rule): over-masking costs nothing, # a leaked password does. param([string[]]$ArgList, [string]$Engine) $keys = if ($Engine -eq 'ibcmd') { $script:IbcmdSecretKeys } else { $script:V8SecretKeys } $res = @() $maskNext = $false foreach ($tok in $ArgList) { if ($maskNext) { $res += '***'; $maskNext = $false; continue } $hit = $null foreach ($k in $keys) { if ($tok.Length -ge $k.Length -and $tok.Substring(0, $k.Length).Equals($k, [System.StringComparison]::OrdinalIgnoreCase)) { $hit = $k; break } } if (-not $hit) { $res += $tok; continue } if ($tok.Length -eq $hit.Length) { $res += $tok; $maskNext = $true } elseif ($tok[$hit.Length] -eq '=') { $res += ($hit + '=***') } else { $res += ($hit + '***') } } return ,$res } function ConvertTo-CleanPath { # Forgive what is unambiguous in a path the caller passed: surrounding whitespace, # surrounding quotes that survived shell parsing, a trailing separator. A quote left # inside afterwards cannot be part of a real path — reject it by name instead of letting # 1C answer with its opaque "Неверные или отсутствующие параметры соединения". param([string]$Value, [string]$ParamName) if (-not $Value) { return $Value } $v = $Value.Trim() if ($v.Length -ge 2 -and $v[0] -eq $v[-1] -and ($v[0] -eq '"' -or $v[0] -eq "'")) { $v = $v.Substring(1, $v.Length - 2).Trim() } if ($v.Length -gt 3 -and ($v[-1] -eq '\' -or $v[-1] -eq '/')) { $v = $v.Substring(0, $v.Length - 1) } if ($v.Contains('"')) { Write-Host "Error: $ParamName contains a quote character: $Value" -ForegroundColor Red exit 1 } return $v } $V8Path = ConvertTo-CleanPath $V8Path '-V8Path' $InfoBasePath = ConvertTo-CleanPath $InfoBasePath '-InfoBasePath' $SourceFile = ConvertTo-CleanPath $SourceFile '-SourceFile' $OutputFile = ConvertTo-CleanPath $OutputFile '-OutputFile' function Assert-InfoBaseExists { # These skills work on a ready infobase. Saying so up front beats the platform's # "Неверные или отсутствующие параметры соединения" after a launch. param([string]$Path) if (-not $Path) { return } if (-not (Test-Path (Join-Path $Path "1Cv8.1CD"))) { Write-Host "Error: information base not found at $Path (no 1Cv8.1CD)" -ForegroundColor Red exit 1 } } Assert-InfoBaseExists $InfoBasePath # --- Resolve V8Path --- function Find-ProjectV8Path { $dir = (Get-Location).Path while ($dir) { $pf = Join-Path $dir ".v8-project.json" if (Test-Path $pf) { try { $j = Get-Content $pf -Raw -Encoding UTF8 | ConvertFrom-Json if ($j.v8path) { return [string]$j.v8path } } catch {} return $null } $parent = Split-Path $dir -Parent if (-not $parent -or $parent -eq $dir) { break } $dir = $parent } return $null } if (-not $V8Path) { $V8Path = Find-ProjectV8Path } if (-not $V8Path) { $found = Get-ChildItem @("C:\Program Files\1cv8\*\bin\1cv8.exe", "C:\Program Files (x86)\1cv8\*\bin\1cv8.exe") -ErrorAction SilentlyContinue | Sort-Object { try { [version]$_.Directory.Parent.Name } catch { [version]"0.0" } } -Descending | Select-Object -First 1 if ($found) { $V8Path = $found.FullName Write-Host "Auto-selected platform $($found.Directory.Parent.Name): $V8Path" -ForegroundColor Yellow } else { Write-Host "Error: 1C executable not found. Specify -V8Path" -ForegroundColor Red exit 1 } } if (Test-Path $V8Path -PathType Container) { $V8Path = Join-Path $V8Path "1cv8.exe" } if (-not (Test-Path $V8Path)) { Write-Host "Error: 1C executable not found at $V8Path" -ForegroundColor Red exit 1 } # --- Detect engine (ibcmd vs 1cv8) by exe name --- function ConvertFrom-PlatformBytes { # ibcmd writes UTF-8 (checked on 8.3.24, 8.3.27, 8.5), a crashing 1cv8 may still emit # OEM text. Decode strictly as UTF-8 and fall back to cp866 on invalid bytes — guessing # one of them outright mangles Cyrillic. param([byte[]]$Bytes) if (-not $Bytes -or $Bytes.Length -eq 0) { return '' } try { $strict = New-Object System.Text.UTF8Encoding($false, $true) return $strict.GetString($Bytes) } catch { return [System.Text.Encoding]::GetEncoding(866).GetString($Bytes) } } function Invoke-PlatformProcess { # Run the platform non-interactively and capture its console output. A closed stdin pipe # (EOF) makes an auth prompt fast-fail instead of hanging; capturing keeps the child's # text out of our stream until we print it labelled (and out of the wrong encoding). # Returns @{ Output; ExitCode }. # # Quoting differs by engine, so the caller says which it built: # ibcmd — tokens are bare (--db-path=C:\a b), the whole token gets quoted here; # 1cv8 — -PreQuoted: the caller already put quotes inside the token (File="C:\a b"), # which is where 1C's own parser expects them; quoting again breaks the value. param([string]$Exe, [string[]]$ProcArgs, [switch]$PreQuoted) $psi = New-Object System.Diagnostics.ProcessStartInfo $psi.FileName = $Exe $psi.Arguments = if ($PreQuoted) { $ProcArgs -join ' ' } else { ($ProcArgs | ForEach-Object { if ($_ -match '[\s"]') { '"' + ($_ -replace '"', '\"') + '"' } else { $_ } }) -join ' ' } $psi.UseShellExecute = $false $psi.CreateNoWindow = $true $psi.RedirectStandardInput = $true $psi.RedirectStandardOutput = $true $psi.RedirectStandardError = $true $p = [System.Diagnostics.Process]::Start($psi) $p.StandardInput.Close() # stderr is drained in parallel: reading the streams one after another deadlocks # as soon as the other one fills its pipe buffer. $errMs = New-Object System.IO.MemoryStream $errTask = $p.StandardError.BaseStream.CopyToAsync($errMs) $outMs = New-Object System.IO.MemoryStream $p.StandardOutput.BaseStream.CopyTo($outMs) $errTask.Wait() $p.WaitForExit() $out = ConvertFrom-PlatformBytes $outMs.ToArray() $err = ConvertFrom-PlatformBytes $errMs.ToArray() if ($err) { $out += $err } return [pscustomobject]@{ Output = $out; ExitCode = $p.ExitCode } } function Write-PlatformOutput { # Print what the platform wrote to the console as its own labelled block. Silence stays # silent: in batch mode 1cv8 reports through /Out and prints nothing here. param([string]$Text) if (-not $Text) { return } $t = $Text.TrimEnd() if (-not $t) { return } $limit = 65536 if ($t.Length -gt $limit) { $t = "[... обрезано, показаны последние $limit символов ...]`r`n" + $t.Substring($t.Length - $limit) } Write-Host "--- Вывод платформы ---" Write-Host $t Write-Host "--- End ---" } function Test-OutputNonEmpty { # Postcondition: the platform must have produced a non-empty output file. # Exit code 0 without it (broken/headless env) is a false success — reject it. param([string]$Path) return (Test-Path $Path -PathType Leaf) -and ((Get-Item $Path -ErrorAction SilentlyContinue).Length -gt 0) } function Find-V8Project([string]$startDir) { $d = $startDir for ($i = 0; $i -lt 20 -and $d; $i++) { $pj = Join-Path $d ".v8-project.json" if (Test-Path $pj) { return $pj } $parent = [System.IO.Path]::GetDirectoryName($d) if ($parent -eq $d) { break } $d = $parent } return $null } # --- Проверка исходников платформой --- # Сборка .epf/.erf ничего не проверяет: /LoadExternalDataProcessorOrReportFromFiles упаковывает XML # и модули не компилирует, поэтому сломанный модуль доезжает до пользователя и падает при открытии # обработки. Прямой команды «проверь внешнюю обработку» у платформы нет, но объект КОНФИГУРАЦИИ она # проверяет — поэтому обработка кладётся в конфигурацию временной базы (stub-db-create # -EmbedSourceFile) и спрашивается штатной /CheckConfig. # # Запуск отдельный и только через 1cv8: у ibcmd такой команды нет, а в одной командной строке # DESIGNER выполняет лишь последнюю пакетную команду. function Get-CheckFlags { param([string[]]$Checks, [string[]]$Contexts) $flags = @() if ($Checks -contains 'modules') { foreach ($c in $Contexts) { $flags += "-$c" } } if ($Checks -contains 'handlers') { $flags += '-HandlersExistence' } if ($Checks -contains 'unreferenced') { $flags += '-UnreferenceProcedures' } if ($Checks -contains 'empty-handlers') { $flags += '-EmptyHandlers' } if ($Checks -contains 'config') { $flags += '-ConfigLogIntegrity', '-IncorrectReferences' } return $flags } # Платформа называет объект своим именем внутри конфигурации; модели нужен путь к исходнику. # Путь СКЛЕИВАЕТСЯ по конвенции выгрузки, поэтому возвращается только существующий файл: # выдуманный путь хуже отсутствующего — модель пойдёт открывать файл, которого нет. function Resolve-SourcePath { param([string]$Line, [string]$SourceDir) $candidate = $null $m = [regex]::Match($Line, '(?:Обработка|Отчет|DataProcessor|Report)\.([^.]+)\.(?:Форма|Form)\.([^.]+)\.') if ($m.Success) { $candidate = (Join-Path $SourceDir (Join-Path $m.Groups[1].Value (Join-Path "Forms" (Join-Path $m.Groups[2].Value "Ext\Form\Module.bsl")))) } if (-not $candidate) { $m = [regex]::Match($Line, '(?:Обработка|Отчет|DataProcessor|Report)\.([^.]+)\.(МодульОбъекта|ObjectModule)') if ($m.Success) { $candidate = (Join-Path $SourceDir (Join-Path $m.Groups[1].Value "Ext\ObjectModule.bsl")) } } if (-not $candidate) { $m = [regex]::Match($Line, '(?:Обработка|Отчет|DataProcessor|Report)\.([^.]+)\.(МодульМенеджера|ManagerModule)') if ($m.Success) { $candidate = (Join-Path $SourceDir (Join-Path $m.Groups[1].Value "Ext\ManagerModule.bsl")) } } if ($candidate -and (Test-Path $candidate -PathType Leaf)) { return $candidate } return $null } # $true, если платформа нашла проблемы — вызывающий не собирает артефакт. function Invoke-SourceCheck { param([string]$Exe, [string]$BasePath, [string[]]$Flags, [string]$SourceDir, [string[]]$ExtraArgs) $exeDir = Split-Path $Exe -Parent $exeLeaf = Split-Path $Exe -Leaf $v8 = if ($exeLeaf -match '^ibcmd') { Join-Path $exeDir ("1cv8" + [System.IO.Path]::GetExtension($Exe)) } else { $Exe } if (-not (Test-Path $v8)) { Write-Host "[note] source check skipped: 1cv8 not found at $v8" -ForegroundColor Yellow return $false } $dir = Join-Path $env:TEMP "epf_check_$(Get-Random)" New-Item -ItemType Directory -Path $dir -Force | Out-Null try { $outFile = Join-Path $dir "check_log.txt" $a = @("DESIGNER", "/F", "`"$BasePath`"", "/CheckConfig") + $Flags + @("/Out", "`"$outFile`"", "/DisableStartupDialogs") + $ExtraArgs Write-Host "Running: 1cv8.exe $($a -join ' ')" $res = Invoke-PlatformProcess $v8 $a -PreQuoted $lines = @() if (Test-Path $outFile) { $raw = Get-Content $outFile -Raw -ErrorAction SilentlyContinue if ($raw) { $lines = @($raw -split "`r?`n" | Where-Object { $_.Trim() -ne '' }) } } # Платформа отвечает 101 на найденные проблемы; «Ошибок не обнаружено» приходит с кодом 0. if ($res.ExitCode -eq 0) { return $false } Write-Host "Error: платформа нашла проблемы в исходниках — сборка отменена" -ForegroundColor Red # Пустой лог при ненулевом коде — отказ не по находкам (база занята, нет лицензии); молчать нельзя. if ($lines.Count -eq 0) { Write-Host " платформа вернула код $($res.ExitCode) без сообщений" -ForegroundColor Red } foreach ($l in $lines) { Write-Host " $($l.TrimEnd())" -ForegroundColor Red $srcPath = Resolve-SourcePath $l $SourceDir if ($srcPath) { Write-Host " -> $srcPath" -ForegroundColor Red } } return $true } finally { if (Test-Path $dir) { Remove-Item -Path $dir -Recurse -Force -ErrorAction SilentlyContinue } } } # Проверять ли исходники: -Checks off сильнее настройки проекта externalCheck. function Get-SourceCheckList { param([string]$Checks) $known = @('modules', 'handlers', 'unreferenced', 'empty-handlers', 'config') if ($Checks) { $list = @($Checks -split ',' | ForEach-Object { $_.Trim().ToLower() } | Where-Object { $_ }) if ($list -contains 'off') { return @() } foreach ($c in $list) { if ($known -notcontains $c) { Write-Host "Error: unknown check '$c' (expected: $($known -join ', ') or off)" -ForegroundColor Red exit 1 } } return $list } $pf = Find-V8Project (Get-Location).Path if ($pf) { try { $proj = Get-Content $pf -Raw -Encoding UTF8 | ConvertFrom-Json if ($null -ne $proj.externalCheck -and -not [bool]$proj.externalCheck) { return @() } } catch {} } return @('modules', 'handlers') } $engine = if ((Split-Path $V8Path -Leaf) -match '^ibcmd') { "ibcmd" } else { "1cv8" } # --- Resolve additional arguments for the selected engine --- $argHints = @{ '/F' = '-InfoBasePath'; '/S' = '-InfoBaseServer + -InfoBaseRef'; '/N' = '-UserName'; '/P' = '-Password'; '--db-path' = '-InfoBasePath'; '--user' = '-UserName'; '--password' = '-Password' } $extraArgs = @(Resolve-ExtraArgs $engine $AdditionalV8Arguments $AdditionalIbcmdArguments $argHints) if ($engine -eq "ibcmd" -and $InfoBaseServer -and $InfoBaseRef) { Write-Host "Error: ibcmd supports file infobases only (use -InfoBasePath or omit for stub)" -ForegroundColor Red exit 1 } # --- Что проверяем в исходниках перед сборкой --- $checkList = @(Get-SourceCheckList $Checks) $contextList = @() if ($Context) { $contextList = @($Context -split ',' | ForEach-Object { $_.Trim() } | Where-Object { $_ }) } if ($contextList.Count -eq 0) { $contextList = @('ThinClient', 'Server') } elseif ($checkList.Count -gt 0 -and $checkList -notcontains 'modules') { Write-Host "Error: -Context задан, но в -Checks нет modules — контексты относятся только к ней" -ForegroundColor Red exit 1 } $sourceDir = Split-Path $SourceFile -Parent function New-StubBase { # Стаб запускает свои процессы платформы (CREATEINFOBASE, LoadConfigFromFiles, UpdateDBCfg) — # им нужны те же дополнительные аргументы, что и сборке. Передаются только явные: файл проекта # стаб читает сам. Вызов через -Command, не -File: -File берёт хвост буквально, и массивный # параметр пришёл бы одним склеенным токеном. param([string]$BasePath, [switch]$Embed) $stubScript = Join-Path $PSScriptRoot "stub-db-create.ps1" $q = { param($s) "'" + ($s -replace "'", "''") + "'" } $stubCmd = "& $(& $q $stubScript) -SourceDir $(& $q $sourceDir) -V8Path $(& $q $V8Path) -TempBasePath $(& $q $BasePath)" if ($Embed) { $stubCmd += " -EmbedSourceFile $(& $q $SourceFile)" } if ($AdditionalV8Arguments.Count -gt 0) { $stubCmd += " -AdditionalV8Arguments " + (($AdditionalV8Arguments | ForEach-Object { & $q $_ }) -join ',') } if ($AdditionalIbcmdArguments.Count -gt 0) { $stubCmd += " -AdditionalIbcmdArguments " + (($AdditionalIbcmdArguments | ForEach-Object { & $q $_ }) -join ',') } $p = Start-Process -FilePath "powershell.exe" -ArgumentList "-NoProfile -Command `"$stubCmd`"" -NoNewWindow -Wait -PassThru return $p.ExitCode } # --- Auto-create stub database if no connection specified --- $autoCreatedBase = $null $checkBase = $null $checkBasePath = $null if (-not $InfoBasePath -and (-not $InfoBaseServer -or -not $InfoBaseRef)) { $autoBasePath = Join-Path $env:TEMP "epf_stub_db_$(Get-Random)" Write-Host "No database specified. Creating temporary stub database..." if ((New-StubBase $autoBasePath -Embed:($checkList.Count -gt 0)) -ne 0) { # С внедрённой обработкой база падает прежде всего из-за самих исходников # (пример: DefaultForm на несуществующую форму) — говорить про базу значит увести не туда. if ($checkList.Count -gt 0) { Write-Host "Error: платформа не приняла исходники при подготовке проверки — сборка отменена" -ForegroundColor Red Write-Host " сообщение платформы выше; имя объекта в нём конфигурационное: DataProcessor/Report = проверяемая внешняя обработка/отчёт" -ForegroundColor Red } else { Write-Host "Error: failed to create stub database" -ForegroundColor Red } exit 1 } $InfoBasePath = $autoBasePath $autoCreatedBase = $autoBasePath if ($checkList.Count -gt 0) { $checkBasePath = $autoBasePath } } elseif ($checkList.Count -gt 0) { # Базу указали снаружи: класть проверяемую обработку в чужую конфигурацию нельзя, поэтому под # проверку поднимается своя временная база, а сборка идёт на указанной. $checkBase = Join-Path $env:TEMP "epf_check_db_$(Get-Random)" Write-Host "Creating temporary database for the source check..." if ((New-StubBase $checkBase -Embed) -ne 0) { Write-Host "Error: платформа не приняла исходники при подготовке проверки — сборка отменена" -ForegroundColor Red Write-Host " сообщение платформы выше; имя объекта в нём конфигурационное: DataProcessor/Report = проверяемая внешняя обработка/отчёт" -ForegroundColor Red exit 1 } $checkBasePath = $checkBase } # --- Validate source file --- if (-not (Test-Path $SourceFile)) { Write-Host "Error: source file not found: $SourceFile" -ForegroundColor Red exit 1 } # --- Проверка исходников платформой: сломанный .epf до пользователя доезжать не должен --- if ($checkList.Count -gt 0 -and $checkBasePath) { # Проверку ведёт 1cv8, поэтому ibcmd-шные дополнительные аргументы ей не отдаём. $checkExtra = if ($engine -eq "ibcmd") { @() } else { $extraArgs } $found = Invoke-SourceCheck $V8Path $checkBasePath (Get-CheckFlags $checkList $contextList) $sourceDir $checkExtra if ($found) { if ($autoCreatedBase -and (Test-Path $autoCreatedBase)) { Remove-Item -Path $autoCreatedBase -Recurse -Force -ErrorAction SilentlyContinue } if ($checkBase -and (Test-Path $checkBase)) { Remove-Item -Path $checkBase -Recurse -Force -ErrorAction SilentlyContinue } exit 1 } } # --- Ensure output directory exists --- $outDir = Split-Path $OutputFile -Parent if ($outDir -and -not (Test-Path $outDir)) { New-Item -ItemType Directory -Path $outDir -Force | Out-Null } # --- Temp dir --- $tempDir = Join-Path $env:TEMP "epf_build_$(Get-Random)" New-Item -ItemType Directory -Path $tempDir -Force | Out-Null try { if ($engine -eq "ibcmd") { # --- ibcmd branch: build EPF/ERF via config import --out --- $srcDir = Split-Path $SourceFile -Parent $arguments = @("infobase", "config", "import", "$srcDir", "--out=$OutputFile", "--db-path=$InfoBasePath") if ($UserName) { $arguments += "--user=$UserName" } if ($Password) { $arguments += "--password=$Password" } $arguments += "--data=$tempDir" $arguments += $extraArgs Write-Host "Running: ibcmd $(Protect-Secrets ((Format-ArgsForDisplay $arguments $engine) -join ' ') @($Password, $UserName))" $__ib = Invoke-PlatformProcess $V8Path $arguments $output = $__ib.Output $exitCode = $__ib.ExitCode $outMissing = ($exitCode -eq 0) -and -not (Test-OutputNonEmpty $OutputFile) if ($outMissing) { $exitCode = 1 } if ($exitCode -eq 0) { Write-Host "External data processor/report built successfully: $OutputFile" -ForegroundColor Green } elseif ($outMissing) { Write-Host "Error: exit code 0 but no non-empty file at $OutputFile — build produced no output" -ForegroundColor Red } else { Write-Host "Error building external data processor/report (code: $exitCode)" -ForegroundColor Red } Write-PlatformOutput $output exit $exitCode } # --- 1cv8 branch --- # --- Build arguments --- $arguments = @("DESIGNER") if ($InfoBaseServer -and $InfoBaseRef) { $arguments += "/S", "`"$InfoBaseServer/$InfoBaseRef`"" } else { $arguments += "/F", "`"$InfoBasePath`"" } if ($UserName) { $arguments += "/N`"$UserName`"" } if ($Password) { $arguments += "/P`"$Password`"" } $arguments += "/LoadExternalDataProcessorOrReportFromFiles", "`"$SourceFile`"", "`"$OutputFile`"" # --- Output --- $outFile = Join-Path $tempDir "build_log.txt" $arguments += "/Out", "`"$outFile`"" $arguments += "/DisableStartupDialogs" $arguments += $extraArgs # --- Execute --- Write-Host "Running: 1cv8.exe $(Protect-Secrets ((Format-ArgsForDisplay $arguments $engine) -join ' ') @($Password, $UserName))" $__v8 = Invoke-PlatformProcess $V8Path $arguments -PreQuoted $exitCode = $__v8.ExitCode # --- Result --- # Postcondition: exit 0 without a non-empty output file is a false success. $outMissing = ($exitCode -eq 0) -and -not (Test-OutputNonEmpty $OutputFile) if ($outMissing) { $exitCode = 1 } if ($exitCode -eq 0) { Write-Host "Build completed successfully: $OutputFile" -ForegroundColor Green } elseif ($outMissing) { Write-Host "Error: exit code 0 but no non-empty file at $OutputFile — build produced no output" -ForegroundColor Red } else { Write-Host "Error building (code: $exitCode)" -ForegroundColor Red } if (Test-Path $outFile) { $logContent = Get-Content $outFile -Raw -ErrorAction SilentlyContinue if ($logContent) { Write-Host "--- Log ---" Write-Host $logContent Write-Host "--- End ---" } } Write-PlatformOutput $__v8.Output exit $exitCode } finally { if (Test-Path $tempDir) { Remove-Item -Path $tempDir -Recurse -Force -ErrorAction SilentlyContinue } if ($autoCreatedBase -and (Test-Path $autoCreatedBase)) { Remove-Item -Path $autoCreatedBase -Recurse -Force -ErrorAction SilentlyContinue } if ($checkBase -and (Test-Path $checkBase)) { Remove-Item -Path $checkBase -Recurse -Force -ErrorAction SilentlyContinue } }