mirror of
https://github.com/Nikolay-Shirokov/cc-1c-skills.git
synced 2026-07-17 08:15:16 +03:00
feat(form-decompile,form-compile): valueType — пустой Settings (список без ограничения типа)
Пустой <Settings xsi:type="v8:TypeDescription"/> у ValueList (список без ограничения типа) — частый случай (в корпусе пустых 1893 vs непустых 864). Три состояния valueType: нет ключа → нет Settings; "" → пустой <Settings…/>; тип → с типом. Компилятор эмитит по присутствию ключа (включая ""); декомпилятор для пустого Settings пишет маркер "". (ValueList без Settings вовсе — 58%, без ключа valueType.) Зеркало py. Кейс attributes-types: + СписокЛюбой с valueType:"" (пустой Settings), сертифицирован в 1С. Регресс 39/39 ps1+py. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
# form-compile v1.78 — Compile 1C managed form from JSON or object metadata
|
||||
# form-compile v1.79 — Compile 1C managed form from JSON or object metadata
|
||||
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
|
||||
param(
|
||||
[string]$JsonPath,
|
||||
@@ -4398,11 +4398,12 @@ function Emit-Attributes {
|
||||
}
|
||||
# valueType: уточнение типа значений ValueList → <Settings xsi:type="v8:TypeDescription">
|
||||
# (та же грамматика типа, что и Type, включая составной "A | B"). Forgiving-синонимы.
|
||||
$vtSpec = $null
|
||||
# Три состояния: нет ключа → нет Settings; "" → пустой <Settings…/>; тип → с типом.
|
||||
$vtSpec = $null; $hasVt = $false
|
||||
foreach ($k in @('valueType','typeDescription','описаниеТипов','типЗначений')) {
|
||||
if ($attr.PSObject.Properties[$k] -and $attr.$k) { $vtSpec = $attr.$k; break }
|
||||
if ($attr.PSObject.Properties[$k]) { $vtSpec = $attr.$k; $hasVt = $true; break }
|
||||
}
|
||||
if ($vtSpec) {
|
||||
if ($hasVt) {
|
||||
Emit-Type -typeStr "$vtSpec" -indent $inner -tag "Settings" -tagAttrs ' xsi:type="v8:TypeDescription"'
|
||||
}
|
||||
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
#!/usr/bin/env python3
|
||||
# form-compile v1.78 — Compile 1C managed form from JSON or object metadata
|
||||
# form-compile v1.79 — Compile 1C managed form from JSON or object metadata
|
||||
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
|
||||
import argparse
|
||||
import copy
|
||||
@@ -4122,13 +4122,16 @@ def emit_attributes(lines, attrs, indent):
|
||||
lines.append(f'{inner}<Type/>')
|
||||
# valueType: ОписаниеТипов значений ValueList → <Settings xsi:type="v8:TypeDescription">
|
||||
# (та же грамматика типа, включая составной "A | B"). Forgiving-синонимы.
|
||||
# Три состояния: нет ключа → нет Settings; "" → пустой <Settings…/>; тип → с типом.
|
||||
vt_spec = None
|
||||
has_vt = False
|
||||
for k in ('valueType', 'typeDescription', 'описаниеТипов', 'типЗначений'):
|
||||
if attr.get(k):
|
||||
if k in attr:
|
||||
vt_spec = attr[k]
|
||||
has_vt = True
|
||||
break
|
||||
if vt_spec:
|
||||
emit_type(lines, str(vt_spec), inner, tag="Settings", tag_attrs=' xsi:type="v8:TypeDescription"')
|
||||
if has_vt:
|
||||
emit_type(lines, '' if vt_spec is None else str(vt_spec), inner, tag="Settings", tag_attrs=' xsi:type="v8:TypeDescription"')
|
||||
|
||||
if attr.get('main') is True:
|
||||
lines.append(f'{inner}<MainAttribute>true</MainAttribute>')
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
# form-decompile v0.54 — Decompile 1C managed Form.xml to JSON DSL (draft)
|
||||
# form-decompile v0.55 — Decompile 1C managed Form.xml to JSON DSL (draft)
|
||||
# Source: https://github.com/Nikolay-Shirokov/cc-1c-skills
|
||||
# ВНИМАНИЕ: раундтрип не гарантируется. Навык исключён из авто-использования моделью.
|
||||
param(
|
||||
@@ -1676,7 +1676,8 @@ if ($attrsNode) {
|
||||
# (та же грамматика типа). Дин-список Settings (xsi:type="DynamicList") обрабатывается отдельно.
|
||||
$setNode = $a.SelectSingleNode("lf:Settings", $ns)
|
||||
if ($setNode -and $setNode.GetAttribute("type", $NS_XSI) -match 'TypeDescription$') {
|
||||
$vt = Decompile-Type $setNode; if ($vt) { $ao['valueType'] = $vt }
|
||||
$vt = Decompile-Type $setNode
|
||||
$ao['valueType'] = if ($vt) { $vt } else { '' } # пустой Settings → маркер ""
|
||||
}
|
||||
if ((Get-Child $a 'MainAttribute') -eq 'true') { $ao['main'] = $true }
|
||||
$vw = Decompile-XrFlag $a 'View'; if ($null -ne $vw) { $ao['view'] = $vw }
|
||||
|
||||
Reference in New Issue
Block a user