Improve directive name parsing in cases without trailing whitespace

Author: cirras

CHANGELOG.md

@@ -15,6 +15,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 - Include "found" and "expected" values for issues messages in `LowercaseKeyword`.
 - Exclude `J` and `K` by default in `ShortIdentifier`.
+- Improve compiler directive parsing in cases where the directive name is not followed by whitespace.
 
 ### Fixed
 

delphi-frontend/src/main/java/au/com/integradev/delphi/preprocessor/directive/CompilerDirectiveParserImpl.java

@@ -238,7 +238,10 @@ private String readName() {
     StringBuilder name = new StringBuilder();
     char character = currentChar();
 
-    while (Character.isLetter(character) || Character.isDigit(character) || character == '_') {
+    while ((character >= 'a' && character <= 'z')
+        || (character >= 'A' && character <= 'Z')
+        || Character.isDigit(character)
+        || character == '_') {
       name.append(character);
       character = nextChar();
     }

delphi-frontend/src/test/java/au/com/integradev/delphi/preprocessor/directive/CompilerDirectiveParserTest.java

@@ -239,6 +239,18 @@ void testCreateSwitchDirective() {
     assertThat(((SwitchDirective) directive).isActive()).isTrue();
   }
 
+  @Test
+  void testDirectiveNameWithTrailingSymbol() {
+    CompilerDirective directive = parse("{$if%01010 <> 123}");
+    assertThat(directive).isInstanceOf(IfDirective.class);
+  }
+
+  @Test
+  void testDirectiveNameWithTrailingNonAsciiCharacter() {
+    CompilerDirective directive = parse("{$ifǣ <> 123}");
+    assertThat(directive).isInstanceOf(IfDirective.class);
+  }
+
   @Test
   void testCreateUnsupportedDirectives() {
     CompilerDirective directive = parse("{$FOO}");