From 0485ab000fd0dbf1d9d211032cddaf35c5964e7a Mon Sep 17 00:00:00 2001 From: Joe Casadonte Date: Sat, 15 Feb 2025 22:16:49 -0500 Subject: [PATCH] Add support for Perl class syntax ADJUST keyword --- browser-ext/src/web-parse.ts | 2 +- server/perl.tmLanguage.json | 2 +- server/src/parser.ts | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/browser-ext/src/web-parse.ts b/browser-ext/src/web-parse.ts index 4c0e80f..9299a6b 100644 --- a/browser-ext/src/web-parse.ts +++ b/browser-ext/src/web-parse.ts @@ -214,7 +214,7 @@ function labels(state: ParserState) : boolean { let match; // Phaser block - if ((match = state.stmt.match(/^(BEGIN|INIT|CHECK|UNITCHECK|END)\s*\{/))) { + if ((match = state.stmt.match(/^(BEGIN|INIT|CHECK|UNITCHECK|END|ADJUST)\s*\{/))) { const phaser = match[1]; const endLine = SubEndLine(state); diff --git a/server/perl.tmLanguage.json b/server/perl.tmLanguage.json index f831f35..d73818f 100644 --- a/server/perl.tmLanguage.json +++ b/server/perl.tmLanguage.json @@ -911,7 +911,7 @@ "name": "variable.parameter.function.perl" } }, - "match": "^\\s*(BEGIN|UNITCHECK|CHECK|INIT|END|DESTROY)\\b", + "match": "^\\s*(BEGIN|UNITCHECK|CHECK|INIT|END|DESTROY|ADJUST)\\b", "name": "meta.function.perl" }, { diff --git a/server/src/parser.ts b/server/src/parser.ts index dc52475..1b9cb67 100644 --- a/server/src/parser.ts +++ b/server/src/parser.ts @@ -266,7 +266,7 @@ function look_ahead_signatures(state: ParserState): string[] { function labels(state: ParserState): boolean { let match; // Phaser block - if ((match = state.stmt.match(/^(BEGIN|INIT|CHECK|UNITCHECK|END)\s*\{/))) { + if ((match = state.stmt.match(/^(BEGIN|INIT|CHECK|UNITCHECK|END|ADJUST)\s*\{/))) { const phaser = match[1]; const endLine = SubEndLine(state);