Support ID Division (#631)

Co-authored-by: hfhbd <[email protected]>

Author: hfhbd

psi/src/main/kotlin/app/softwork/kobol/Cobol.bnf

@@ -39,7 +39,7 @@ program ::= comments idDiv [envDiv] [dataDiv] procedureDiv
 
 comments ::= comment*
 
-idDiv ::= IDENTIFICATION DIVISION DOT programID_clause [other]
+idDiv ::= (IDENTIFICATION | ID) DIVISION DOT programID_clause [other]
 
 private other ::= (author_clause | installation_clause | date_clause ) *
 

psi/src/main/kotlin/app/softwork/kobol/Cobol.flex

@@ -71,6 +71,7 @@ VARNAME=[a-zA-Z]([\w\-_])*
 <YYINITIAL>
 {
     "IDENTIFICATION"                { yybegin(IDENTIFICATION); return CobolTypes.IDENTIFICATION; }
+    "ID"                            { yybegin(IDENTIFICATION); return CobolTypes.IDENTIFICATION; }
     "ENVIRONMENT"                   { yybegin(ENVIRONMENT); return CobolTypes.ENVIRONMENT; }
     "DATA"                          { yybegin(DATA); return CobolTypes.DATA; }
     "PROCEDURE"                     { yybegin(PROCEDURE); return CobolTypes.PROCEDURE; }

psi/src/test/kotlin/app/softwork/kobol/CobolLexerTest.kt

@@ -13,7 +13,7 @@ class CobolLexerTest {
     fun author() {
         assertEquals(
             """
-            123456 IDENTIFICATION DIVISION.
+            123456 ID DIVISION.
             123456 PROGRAM-ID. BS12A00.
             123456 AUTHOR. A.
             123456 PROCEDURE DIVISION.