NB-076
e5ab3baa46
## 核心变更 ### 1. 新PROCEDURE DIVISION解析器（procedure_parser.py） - 行级状态机替换旧的BrParser regex解析器 - 覆盖：IF/ELSE/END-IF（嵌套）、EVALUATE/WHEN/ALSO、 PERFORM UNTIL/VARYING、READ/AT END/NOT AT END、 SORT/MERGE、GO TO DEPENDING ON - 之前：3/37程序有分支检测 → 现在：37/37全部有分支 - 速度：~20ms/程序，纯规则引擎 ### 2. 桥接层（pipeline_bridge.py） - 新解析器为主，旧解析器3秒超时兜底 - 自动选取分支数更多的结果 ### 3. 线性路径枚举（design_mcdc.py） - 替换旧的Cartesian积路径枚举（O(2^N)）为每决策点独立枚举（O(N)） - 28-sysin: 162分支仅163条路径（之前需截断到60DP） - 消除了500路径硬上限和60DP截断 ### 4. 条件解析修复（cond.py） - NOT运算符规范化：X NOT = 5 → X <> 5 - 88-level反向：NOT WS-EOF-Y → parent <> value - 裸字段引用：NOT WS-EOF → WS-EOF <> 'Y' - 验证：1182个IF条件中0个NOT污染 ### 5. 约束字段过滤（__init__.py） - OF限定词剥离：STD-KEY OF MASTER-REC → STD-KEY - 下标字段解析：WS-ITEM(SUB) → WS-ITEM - 跳过不在fields_dict中的字段（group item/伪影） ### 6. 预处理器增强（read.py） - VALUE ALL剥离（VALUE ALL '*' → VALUE '*'） - &续行合并（COBOL多行字符串拼接） - PIC小数点点→V转换（Z(9)9.99. → Z(9)9V99.） - 缺少点号补全 ### 7. Grammar修复（grammar.lark） - OCCURS 1 TIME支持（原只认TIMES） - USAGE IS COMP支持（可选IS） - $符号在PICTURE_STRING中 - 无NAME条款支持（clause+） ### 8. Flatfile写入（flatfile.py） - 多记录FD支持（选字段最多的记录） - Path类型强制转换 - 回退零值记录 ### 9. Bug修复 - trace_to_root空列表保护（core.py） ### 10. 测试套件（S16-S21） - S16: 全量基准程序端到端 - S17: gcov运行时对比 - S18/S19: 桥接器验证 - S20: DISPLAY插桩运行时验证+gcov分支覆盖率 - S21: 条件解析修复验证 - 全部17/17回归测试通过 Co-Authored-By: Claude <noreply@anthropic.com>
41 lines
1.6 KiB
Plaintext
41 lines
1.6 KiB
Plaintext
start: data_div_content
|
|
data_div_content: (file_section | working_storage | linkage)*
|
|
file_section: "FILE" "SECTION" DOT (fd | sd)+
|
|
fd: "FD" NAME FD_SUFFIX data_item*
|
|
sd: "SD" NAME FD_SUFFIX data_item*
|
|
FD_SUFFIX: /(?:"[^"]*"|'[^']*'|[^.])*\./
|
|
working_storage: "WORKING-STORAGE" "SECTION" DOT data_item*
|
|
linkage: "LINKAGE" "SECTION" DOT data_item*
|
|
data_item: level_num ((NAME | "FILLER") clause* | clause+) DOT
|
|
level_num: LEVEL
|
|
clause: pic_clause | value_clause | occurs_clause | redefines_clause | usage_clause
|
|
| "SYNC" | "SYNCHRONIZED"
|
|
| "JUSTIFIED" "RIGHT"?
|
|
| "BLANK" "WHEN" "ZERO"
|
|
| "GLOBAL" | "EXTERNAL"
|
|
pic_clause: "PIC" "IS"? PICTURE_STRING
|
|
value_clause: "VALUE" "IS"? value_literal+
|
|
value_literal: INT | SIGNED_NUMBER | STRING | SQSTRING
|
|
| "ZERO" | "ZEROS" | "ZEROES"
|
|
| "SPACE" | "SPACES"
|
|
| "HIGH-VALUE" | "HIGH-VALUES"
|
|
| "LOW-VALUE" | "LOW-VALUES"
|
|
| HEX_STRING
|
|
SQSTRING: /'[^']*'/
|
|
HEX_STRING: /X'[0-9A-Fa-f]+'/
|
|
redefines_clause: "REDEFINES" NAME
|
|
occurs_clause: "OCCURS" INT ("TO" INT)? ("TIME" "S"?)? ("DEPENDING" "ON" NAME)? key_clause? indexed_clause?
|
|
key_clause: ("ASCENDING" | "DESCENDING") "KEY" "IS"? NAME (","? NAME)*
|
|
indexed_clause: "INDEXED" "BY" NAME (","? NAME)*
|
|
usage_clause: "USAGE"? "IS"? USAGE_VAL
|
|
USAGE_VAL: "COMP" | "COMP-3" | "COMP-5" | "BINARY" | "PACKED-DECIMAL" | "DISPLAY"
|
|
LEVEL: /0[1-9]|[0-4][0-9]|49|66|77|88|[0-9]+/
|
|
NAME: /[A-Z][A-Z0-9-]*/i
|
|
PICTURE_STRING: /[0-9A-Z()+,\-*\/V\$]+/i
|
|
INT: /[0-9]+/
|
|
DOT: /\./
|
|
%import common.SIGNED_NUMBER
|
|
%import common.ESCAPED_STRING -> STRING
|
|
%import common.WS
|
|
%ignore WS
|