feat: Phase 2 complete — 13 Phases of COBOL type classification and test benchmark

P0.6: gcov infrastructure P1: extract_structure output expansion (11 new feature fields) P2: Confusion group rule engine (8 pairs + contradiction + backtrack) P3: 4-factor confidence calculation + quality gate update P4: 33+2 COBOL program type test samples (22 files, 7 categories) P5: parametrized/ test data generation engine P6: japanese_data.py lookup tables P7-10: Type-specific test suites (~159 parametrized tests) P11: Full classification pipeline (classify_program) + orchestrator integration P12: Documentation (module-interfaces, test-plan v3.0, coverage-matrix) Architecture decisions: - classification_pipeline/ merged to hina/pipeline/ - parametrized/ as independent module - japanese_data.py as root-level file - hina/__all__ only exports classify_program() Co-Authored-By: Claude <noreply@anthropic.com>
2026-06-19 23:51:55 +08:00
parent 63b5284715
commit bc1d56d1a4
129 changed files with 19378 additions and 261 deletions
@@ -0,0 +1,22 @@
+      * ==== TYPE: DV01 DIVIDE(50) ====
+      * FEATURE: DIVIDE 50 INTO
+      * BRANCHES: 2, DECISIONS: 1
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. DV01.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 WS-VALUE   PIC 9(5) VALUE 10000.
+       01 WS-RESULT  PIC 9(5) VALUE 0.
+       01 WS-REMAIND PIC 9(5) VALUE 0.
+       PROCEDURE DIVISION.
+       MAIN-PROCEDURE.
+           DIVIDE 50 INTO WS-VALUE GIVING WS-RESULT
+               REMAINDER WS-REMAIND.
+           DISPLAY 'VALUE: ' WS-VALUE ' RESULT: ' WS-RESULT
+                   ' REM: ' WS-REMAIND.
+           IF WS-REMAIND = 0
+               DISPLAY 'DIVISIBLE BY 50'
+           ELSE
+               DISPLAY 'NOT DIVISIBLE BY 50'
+           END-IF.
+           STOP RUN.
@@ -0,0 +1,22 @@
+      * ==== TYPE: DV02 DIVIDE(25) ====
+      * FEATURE: DIVIDE 25 INTO
+      * BRANCHES: 2, DECISIONS: 1
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. DV02.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 WS-VALUE   PIC 9(5) VALUE 5000.
+       01 WS-RESULT  PIC 9(5) VALUE 0.
+       01 WS-REMAIND PIC 9(5) VALUE 0.
+       PROCEDURE DIVISION.
+       MAIN-PROCEDURE.
+           DIVIDE 25 INTO WS-VALUE GIVING WS-RESULT
+               REMAINDER WS-REMAIND.
+           DISPLAY 'VALUE: ' WS-VALUE ' RESULT: ' WS-RESULT
+                   ' REM: ' WS-REMAIND.
+           IF WS-REMAIND = 0
+               DISPLAY 'DIVISIBLE BY 25'
+           ELSE
+               DISPLAY 'NOT DIVISIBLE BY 25'
+           END-IF.
+           STOP RUN.
@@ -0,0 +1,22 @@
+      * ==== TYPE: DV03 DIVIDE(100) ====
+      * FEATURE: DIVIDE 100 INTO
+      * BRANCHES: 2, DECISIONS: 1
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. DV03.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01 WS-VALUE   PIC 9(5) VALUE 20000.
+       01 WS-RESULT  PIC 9(5) VALUE 0.
+       01 WS-REMAIND PIC 9(5) VALUE 0.
+       PROCEDURE DIVISION.
+       MAIN-PROCEDURE.
+           DIVIDE 100 INTO WS-VALUE GIVING WS-RESULT
+               REMAINDER WS-REMAIND.
+           DISPLAY 'VALUE: ' WS-VALUE ' RESULT: ' WS-RESULT
+                   ' REM: ' WS-REMAIND.
+           IF WS-REMAIND = 0
+               DISPLAY 'DIVISIBLE BY 100'
+           ELSE
+               DISPLAY 'NOT DIVISIBLE BY 100'
+           END-IF.
+           STOP RUN.