python-delphi-lsp 3.6.0__cp310-abi3-win_amd64.whl

delphi_lsp/lark_tokens.py

@@ -0,0 +1,236 @@
+from __future__ import annotations
+
+import re
+
+KEYWORDS = [
+    'abort',
+    'absolute',
+    'abstract',
+    'add',
+    'align',
+    'and',
+    'ansistring',
+    'array',
+    'as',
+    'asm',
+    'assembler',
+    'at',
+    'automated',
+    'begin',
+    'boolean',
+    'break',
+    'byte',
+    'bytebool',
+    'cardinal',
+    'case',
+    'cdecl',
+    'char',
+    'class',
+    'comp',
+    'const',
+    'constructor',
+    'contains',
+    'continue',
+    'currency',
+    'default',
+    'delayed',
+    'deprecated',
+    'destructor',
+    'dispid',
+    'dispinterface',
+    'div',
+    'do',
+    'double',
+    'downto',
+    'dword',
+    'dynamic',
+    'else',
+    'end',
+    'except',
+    'exit',
+    'experimental',
+    'export',
+    'exports',
+    'extended',
+    'false',
+    'external',
+    'far',
+    'file',
+    'final',
+    'finalization',
+    'finally',
+    'for',
+    'forward',
+    'function',
+    'goto',
+    'halt',
+    'helper',
+    'if',
+    'implementation',
+    'implements',
+    'in',
+    'index',
+    'inherited',
+    'initialization',
+    'inline',
+    'int64',
+    'integer',
+    'interface',
+    'is',
+    'label',
+    'library',
+    'local',
+    'longbool',
+    'longint',
+    'longword',
+    'message',
+    'mod',
+    'namespace',
+    'near',
+    'nil',
+    'noreturn',
+    'nodefault',
+    'null',
+    'not',
+    'object',
+    'of',
+    'olevariant',
+    'on',
+    'operator',
+    'or',
+    'out',
+    'overload',
+    'override',
+    'package',
+    'packed',
+    'pascal',
+    'pchar',
+    'platform',
+    'private',
+    'procedure',
+    'program',
+    'property',
+    'protected',
+    'public',
+    'published',
+    'raise',
+    'read',
+    'readonly',
+    'real',
+    'real48',
+    'record',
+    'reference',
+    'register',
+    'reintroduce',
+    'remove',
+    'repeat',
+    'requires',
+    'resident',
+    'resourcestring',
+    'runerror',
+    'safecall',
+    'sealed',
+    'self',
+    'set',
+    'shl',
+    'shortint',
+    'shortstring',
+    'shr',
+    'single',
+    'smallint',
+    'static',
+    'stdcall',
+    'stored',
+    'strict',
+    'string',
+    'stringresource',
+    'then',
+    'threadvar',
+    'true',
+    'to',
+    'try',
+    'type',
+    'unit',
+    'unmanaged',
+    'unsafe',
+    'until',
+    'uses',
+    'var',
+    'varargs',
+    'variant',
+    'virtual',
+    'while',
+    'widechar',
+    'widestring',
+    'with',
+    'word',
+    'wordbool',
+    'write',
+    'writeonly',
+    'winapi',
+    'xor',
+]
+
+DIRECTIVE_KEYWORDS = [
+    'define',
+    'endif',
+    'ifend',
+    'elseif',
+    'ifdef',
+    'ifndef',
+    'ifopt',
+    'include',
+    'resource',
+    'scopedenums',
+    'undef',
+]
+
+def _keyword_terminal(keyword: str) -> str:
+    token_name = f"{keyword.upper()}.2"
+    pattern = re.escape(keyword)
+    return f"{token_name}: /(?i:{pattern})(?!\\w)/"
+
+
+KEYWORD_TERMINALS = "\n".join(_keyword_terminal(k) for k in KEYWORDS)
+
+
+BASE_TERMINALS = r"""
+PROC_TYPE_DIRECTIVE.3: /;[ \t\r\n]*(?i:(cdecl|stdcall|pascal|register|safecall|winapi|varargs))(?:[ \t\r\n]+(?i:varargs))?(?!\w)/
+EMPTY_USES_BEFORE_IMPLEMENTATION.4: /(?i:uses)(?=[ \t\r\n]+implementation\b)/
+COMPILER_ERROR_TEXT.1: /(?![^\r\n]*[:;=])(?:[A-Za-z]+[ \t]+){2,}[A-Za-z][^\r\n]*/
+
+// literals
+STRING_BLOCK5: /(?s:'''''(?=\r?\n).*?''''')/
+STRING_BLOCK3: /(?s:'''(?=\r?\n).*?''')/
+STRING_LITERAL: /(?s:'(?:''|[^'])*')/
+CHAR_CODE: /#\$[0-9A-Fa-f_]+|#[0-9_]+/
+POINTER_CHAR.0: /\^[A-Za-z\\](?![A-Za-z0-9_])/
+HEX_INT: /\$[0-9A-Fa-f_]+/
+BIN_INT: /%[01_]+/
+FLOAT: /(?:[0-9][0-9_]*\.(?!\.)[0-9_]*([eE][+-]?[0-9_]+)?|[0-9][0-9_]*[eE][+-]?[0-9_]+)/
+INT: /[0-9][0-9_]*/
+
+// identifiers
+STRICT_NAME.3: /(?i:strict)(?=\s*[:,])/
+SPACED_GENERIC_NAME: /&?(?:[_]|[^\W\d_])[\w]*\s*<[^;\r\n]*>\s*(?=\.)/
+GENERIC_NAME: /&?(?:[_]|[^\W\d_])[\w]*<(?:[^<>\r\n]+|<(?:[^<>\r\n]+|<(?:[^<>\r\n]+|<[^<>\r\n]*>)*>)*>)+>/
+NAME: /&?(?:[_]|[^\W\d_])[\w]*/
+
+// comments
+COMMENT_BRACE: /(?s:\{.*?\})/
+COMMENT_PAREN: /(?s:\(\*.*?\*\))/
+COMMENT_SLASH: /\/\/[^\n]*/
+
+%ignore COMMENT_BRACE
+%ignore COMMENT_PAREN
+%ignore COMMENT_SLASH
+
+%import common.WS_INLINE
+%import common.NEWLINE -> _NL
+%ignore WS_INLINE
+%ignore _NL
+"""
+
+
+def build_grammar_snippet() -> str:
+    return '\n'.join([KEYWORD_TERMINALS, BASE_TERMINALS])

delphi_lsp/lexical_scanner.py

@@ -0,0 +1,30 @@
+"""Shared low-level scanners for Delphi lexical regions."""
+
+from __future__ import annotations
+
+
+def scan_brace_comment(
+    text: str,
+    start: int,
+    *,
+    nested: bool = True,
+) -> tuple[int, bool]:
+    """Scan an FPC brace comment, optionally relaxing nesting in inactive text."""
+    if start < 0 or start >= len(text) or text[start] != "{":
+        return start, False
+    depth = 1
+    index = start + 1
+    while index < len(text):
+        if text[index] == "{" and (
+            nested or (index + 1 < len(text) and text[index + 1] == "$")
+        ):
+            depth += 1
+        elif text[index] == "}":
+            depth -= 1
+            if depth == 0:
+                return index + 1, True
+        index += 1
+    return len(text), False
+
+
+__all__ = ["scan_brace_comment"]