fix: 生产级 COBOL 程序解析 — COPY + OCCURS TO + FD 修复
对抗性测试发现的生产程序解析缺陷和修复: 缺陷1: COPY 语句从未被预处理(18 个月 bug) - resolve_copybooks() 在 main() CLI 中调用但在 extract_structure() 路径中从未被调用 - 修复: preprocess() 函数头部调用 resolve_copybooks() - 不可解析的 COPY 行被移除(避免 Lark 在 FD 块内遇到无法识别的指令) 缺陷2: Lark 语法的 fd 规则要求 data_item+ (至少一个记录) - 生产程序 FD 可以通过 COPY 引入记录定义 - COPY 被移除后 FD 内无 data_item 导致 Lark 崩溃 - 修复: fd 改为 data_item* (零或多个) 缺陷3: OCCURS 1 TO 100 TIMES(变量范围表) - 语法只支持 OCCURS INT TIMES,不支持 OCCURS 1 TO 100 TIMES - 修复: occurs_clause 增加 'TO' INT 可选部分 效果: 4 个生产程序中 2 个成功解析(CRDVAL, GENDATA) - 剩余 2 个(CRDCALC, CRDRPT)因固定格式续行限制未修复 全回归: 767 passed(0 new failures)
This commit is contained in:
@@ -27,6 +27,10 @@ def _is_fixed_format(source: str) -> bool:
|
||||
|
||||
|
||||
def preprocess(source: str) -> str:
|
||||
# COPY 预处理:展开或移除 COPY 语句
|
||||
# Lark 语法不支持 COPY(这是预处理指令),必须在解析前处理
|
||||
source = resolve_copybooks(source, '.')
|
||||
|
||||
fixed = _is_fixed_format(source)
|
||||
lines = []
|
||||
for raw_line in source.splitlines():
|
||||
@@ -110,10 +114,12 @@ def resolve_copybooks(source: str, source_dir: str) -> str:
|
||||
re.escape(old.strip()), new.strip(),
|
||||
cb, flags=re.IGNORECASE
|
||||
)
|
||||
result.append(f' * COPY {name}')
|
||||
# 展开 COPYBOOK 内容,不添加注释行(避免 Lark 在 FD 块内看到注释)
|
||||
result.append(cb)
|
||||
else:
|
||||
result.append(line)
|
||||
# COPY 未找到时完全跳过(预处理指令,Lark 不应处理)
|
||||
# 该行可能在 FD/SD 块内,保留会破坏 Lark 解析
|
||||
pass
|
||||
else:
|
||||
result.append(line)
|
||||
return '\n'.join(result)
|
||||
|
||||
Reference in New Issue
Block a user