COBOL support = ('A' OR 'B')

This commit is contained in:
林万程
2022-06-26 11:25:06 +08:00
parent 77f914acc6
commit 7fc8defa9f
2 changed files with 2 additions and 1 deletions

View File

@@ -38,7 +38,7 @@ public class LineExt {
return extDoc(keyMap, matcher, docMap, words, treeMap);
}
private static final Pattern DICT_PATTERN = Pattern.compile("([\\w-]++) ?(NOT)? ?= ?'");
private static final Pattern DICT_PATTERN = Pattern.compile("([\\w-]++) ?(NOT)? ?= ?\\(? ?'");
private static final Pattern AND_OR_PATTERN = Pattern.compile("(AND|OR) ?'");
@NotNull

View File

@@ -1,6 +1,7 @@
123456 INITIALIZE HELLO-WORLD
IF (KEY NOT = '1' AND '2') AND
KEY NOT = ('1' OR '2') AND
KEY NOT = '1' THEN
MOVE WS-HELLO-WORLD TO HELLO-WORLD
END IF