Skip to content

Commit ef52f7e

Browse files
committed
feat: SKIP compiler directive can be terminated with a separator period.
Signed-off-by: ap891843 <[email protected]>
1 parent 4e5fc32 commit ef52f7e

File tree

3 files changed

+5
-4
lines changed

3 files changed

+5
-4
lines changed

server/src/main/antlr4/com/broadcom/lsp/cobol/core/parser/CobolLexer.g4

+3-3
Original file line numberDiff line numberDiff line change
@@ -289,9 +289,9 @@ SHIFT_IN : S H I F T MINUSCHAR I N;
289289
SHIFT_OUT : S H I F T MINUSCHAR O U T;
290290
SHORT_DATE : S H O R T MINUSCHAR D A T E;
291291
SIGN : S I G N;
292-
SKIP1 : S K I P '1' -> skip;
293-
SKIP2 : S K I P '2' -> skip;
294-
SKIP3 : S K I P '3' -> skip;
292+
SKIP1 : S K I P '1' DOT_FS? -> skip;
293+
SKIP2 : S K I P '2' DOT_FS? -> skip;
294+
SKIP3 : S K I P '3' DOT_FS?-> skip;
295295
SORT : S O R T;
296296
SORT_CONTROL : S O R T MINUSCHAR C O N T R O L;
297297
SORT_CORE_SIZE : S O R T MINUSCHAR C O R E MINUSCHAR S I Z E;

server/src/test/java/com/broadcom/lsp/cobol/usecases/TestSkipStatement.java

+1
Original file line numberDiff line numberDiff line change
@@ -36,6 +36,7 @@ class TestSkipStatement {
3636
+ " PERFORM WITH TEST BEFORE UNTIL {$ID0} = 0\n"
3737
+ " SUBTRACT 1 FROM {$TAPARM1}\n"
3838
+ " CALL {%'ID1'}\n"
39+
+ " SKIP1.\n"
3940
+ " END-PERFORM.\n"
4041
+ " SKIP2.\n"
4142
+ " {#*PROGB}.\n"

server/src/test/java/com/broadcom/lsp/cobol/usecases/TestSkipStatementsAllowedEverywhere.java

+1-1
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,7 @@ class TestSkipStatementsAllowedEverywhere {
3737
+ " PROCEDURE DIVISION.\n"
3838
+ " {#*PROCB}.\n"
3939
+ " MOVE 0 TO {$VARNAME}\n"
40-
+ " SKIP2\n"
40+
+ " SKIP2.\n"
4141
+ " MOVE 0 TO {$VARNAME}.\n"
4242
+ " SKIP3\n";
4343

0 commit comments

Comments
 (0)