Fix keyword typos, support bare raise and property re-publication

README.md

@@ -16,6 +16,13 @@ Grammar for Pascal and its dialects Delphi and Freepascal.
 - Syntax highlighting
 - Scopes
 
+
+## Warren's fork of tree-sitter pascal is compatible with ML Code Index tools like REPOWISE
+## warren's repowise fork has unit tests to test pascal unit parsing, for AI/ML/MCP integration.
+    # from warrens repowise fork
+    # https://github.com/wpostma/repowise
+    uv run --with-editable .\thirdparty\tree-sitter-pascal pytest test_parser.py -q
+
 ## Screenshots
 
 (using nvim-treesitter)

bindings/python/tests/test_binding.py

@@ -1,10 +1,21 @@
+import ctypes
 from unittest import TestCase
 
 import tree_sitter
 import tree_sitter_pascal
 
 
 class TestLanguage(TestCase):
+    def test_returns_language_capsule(self):
+        capsule = tree_sitter_pascal.language()
+        self.assertEqual(type(capsule).__name__, "PyCapsule")
+
+        get_name = ctypes.pythonapi.PyCapsule_GetName
+        get_name.restype = ctypes.c_char_p
+        get_name.argtypes = [ctypes.py_object]
+
+        self.assertEqual(get_name(capsule).decode(), "tree_sitter.Language")
+
     def test_can_load_grammar(self):
         try:
             tree_sitter.Language(tree_sitter_pascal.language())

bindings/python/tree_sitter_pascal.egg-info/PKG-INFO

@@ -0,0 +1,45 @@
+Metadata-Version: 2.4
+Name: tree-sitter-pascal
+Version: 0.9.1
+Summary: Pascal grammar for tree-sitter
+License: MIT
+Project-URL: Homepage, https://github.com/tree-sitter/tree-sitter-pascal
+Keywords: incremental,parsing,tree-sitter,pascal
+Classifier: Intended Audience :: Developers
+Classifier: License :: OSI Approved :: MIT License
+Classifier: Topic :: Software Development :: Compilers
+Classifier: Topic :: Text Processing :: Linguistic
+Classifier: Typing :: Typed
+Requires-Python: >=3.8
+Description-Content-Type: text/markdown
+License-File: LICENSE
+Provides-Extra: core
+Requires-Dist: tree-sitter~=0.21; extra == "core"
+Dynamic: license-file
+
+# tree-sitter-pascal
+
+Grammar for Pascal and its dialects Delphi and Freepascal.
+
+## Supported language features
+- Classes, records, interfaces, class helpers
+- Nested declarations
+- Variant records
+- Generics (Delphi- & FPC flavored)
+- Anonymous procedures & functions
+- Inline assember (but no highlighting)
+- Extended RTTI attributes
+- FPC PasCocoa extensions
+
+## Tree-sitter features:
+- Syntax highlighting
+- Scopes
+
+## Screenshots
+
+(using nvim-treesitter)
+
+<a href=".doc/scr1.png"><img src=".doc/scr1.png" style="width: 22%; height: 22%"></a>
+<a href=".doc/scr2.png"><img src=".doc/scr2.png" style="width: 22%; height: 22%"></a>
+<a href=".doc/scr3.png"><img src=".doc/scr3.png" style="width: 22%; height: 22%"></a>
+<a href=".doc/scr4.png"><img src=".doc/scr4.png" style="width: 22%; height: 22%"></a>

bindings/python/tree_sitter_pascal.egg-info/SOURCES.txt

@@ -0,0 +1,22 @@
+LICENSE
+README.md
+pyproject.toml
+setup.py
+bindings/python/tree_sitter_pascal/binding.c
+bindings/python/tree_sitter_pascal.egg-info/PKG-INFO
+bindings/python/tree_sitter_pascal.egg-info/SOURCES.txt
+bindings/python/tree_sitter_pascal.egg-info/dependency_links.txt
+bindings/python/tree_sitter_pascal.egg-info/not-zip-safe
+bindings/python/tree_sitter_pascal.egg-info/requires.txt
+bindings/python/tree_sitter_pascal.egg-info/top_level.txt
+bindings/python/tree_sitter_pascal/__init__.py
+bindings/python/tree_sitter_pascal/__init__.pyi
+bindings/python/tree_sitter_pascal/binding.c
+bindings/python/tree_sitter_pascal/py.typed
+bindings/python/tree_sitter_pascal.egg-info/PKG-INFO
+bindings/python/tree_sitter_pascal.egg-info/SOURCES.txt
+bindings/python/tree_sitter_pascal.egg-info/dependency_links.txt
+bindings/python/tree_sitter_pascal.egg-info/not-zip-safe
+bindings/python/tree_sitter_pascal.egg-info/requires.txt
+bindings/python/tree_sitter_pascal.egg-info/top_level.txt
+src/parser.c

bindings/python/tree_sitter_pascal.egg-info/dependency_links.txt

@@ -0,0 +1 @@
+

bindings/python/tree_sitter_pascal.egg-info/not-zip-safe

@@ -0,0 +1 @@
+

bindings/python/tree_sitter_pascal.egg-info/requires.txt

@@ -0,0 +1,3 @@
+
+[core]
+tree-sitter~=0.21

bindings/python/tree_sitter_pascal.egg-info/top_level.txt

@@ -0,0 +1,2 @@
+_binding
+tree_sitter_pascal

bindings/python/tree_sitter_pascal/__init__.pyi

@@ -1 +1,4 @@
-def language() -> int: ...
+from typing import Any
+
+
+def language() -> Any: ...

bindings/python/tree_sitter_pascal/binding.c

@@ -5,7 +5,7 @@ typedef struct TSLanguage TSLanguage;
 TSLanguage *tree_sitter_pascal(void);
 
 static PyObject* _binding_language(PyObject *self, PyObject *args) {
-    return PyLong_FromVoidPtr(tree_sitter_pascal());
+    return PyCapsule_New(tree_sitter_pascal(), "tree_sitter.Language", NULL);
 }
 
 static PyMethodDef methods[] = {

grammar.js

@@ -232,7 +232,7 @@ function statements(trailing) {
 
 		[rn('raise'),       $ => seq(
 			$.kRaise,
-			field('exception', $._expr),
+			field('exception', optional($._expr)),
 			...semicolon
 		)],
 
@@ -814,8 +814,7 @@ module.exports = grammar({
 			$.kProperty,
 			field('name', $.identifier),
 			field('args', optional($.declPropArgs)),
-			':',
-			field('type', $.type),
+			optional(seq(':', field('type', $.type))),
 			repeat(choice(
 				seq($.kIndex, field('index', $._expr)),
 				...enable_if(delphi, seq($.kDispId, field('dispid', $._expr))),
@@ -1139,7 +1138,7 @@ module.exports = grammar({
 		kStatic:           $ => /static/i,
 		kVirtual:          $ => /virtual/i,
 		kAbstract:         $ => /abstract/i,
-		kSealed:           $ => /seled/i,
+		kSealed:           $ => /sealed/i,
 		kDynamic:          $ => /dynamic/i,
 		kOverride:         $ => /override/i,
 		kOverload:         $ => /overload/i,
@@ -1164,7 +1163,7 @@ module.exports = grammar({
 		kExport:           $ => /export/i,
 		kFar:              $ => /far/i,
 		kNear:             $ => /near/i,
-		kSafecall:         $ => /safecal/i,
+		kSafecall:         $ => /safecall/i,
 		kAssembler:        $ => /assembler/i,
 		kNostackframe:     $ => /nostackframe/i,
 		kInterrupt:        $ => /interrupt/i,
@@ -1193,7 +1192,7 @@ module.exports = grammar({
 		kIfndef:           $ => /ifndef/i,
 		kEndif:            $ => /endif/i,
 
-		identifier:        $ => /[&]?[a-zA-Z_]+[0-9_a-zA-Z]*/,
+		identifier:        $ => /[&]?[a-zA-Z_]+[0-9_a-zA-Z$]*/,
 
 	  	_space:            $ => /[\s\r\n\t]+/,
 		pp:                $ => /\{\$[^}]*\}/,

src/grammar.json

@@ -1046,8 +1046,16 @@
           "type": "FIELD",
           "name": "exception",
           "content": {
-            "type": "SYMBOL",
-            "name": "_expr"
+            "type": "CHOICE",
+            "members": [
+              {
+                "type": "SYMBOL",
+                "name": "_expr"
+              },
+              {
+                "type": "BLANK"
+              }
+            ]
           }
         },
         {
@@ -2055,8 +2063,16 @@
           "type": "FIELD",
           "name": "exception",
           "content": {
-            "type": "SYMBOL",
-            "name": "_expr"
+            "type": "CHOICE",
+            "members": [
+              {
+                "type": "SYMBOL",
+                "name": "_expr"
+              },
+              {
+                "type": "BLANK"
+              }
+            ]
           }
         }
       ]
@@ -6775,16 +6791,29 @@
           }
         },
         {
-          "type": "STRING",
-          "value": ":"
-        },
-        {
-          "type": "FIELD",
-          "name": "type",
-          "content": {
-            "type": "SYMBOL",
-            "name": "type"
-          }
+          "type": "CHOICE",
+          "members": [
+            {
+              "type": "SEQ",
+              "members": [
+                {
+                  "type": "STRING",
+                  "value": ":"
+                },
+                {
+                  "type": "FIELD",
+                  "name": "type",
+                  "content": {
+                    "type": "SYMBOL",
+                    "name": "type"
+                  }
+                }
+              ]
+            },
+            {
+              "type": "BLANK"
+            }
+          ]
         },
         {
           "type": "REPEAT",
@@ -9282,7 +9311,7 @@
     },
     "kSealed": {
       "type": "PATTERN",
-      "value": "seled",
+      "value": "sealed",
       "flags": "i"
     },
     "kDynamic": {
@@ -9402,7 +9431,7 @@
     },
     "kSafecall": {
       "type": "PATTERN",
-      "value": "safecal",
+      "value": "safecall",
       "flags": "i"
     },
     "kAssembler": {
@@ -9527,7 +9556,7 @@
     },
     "identifier": {
       "type": "PATTERN",
-      "value": "[&]?[a-zA-Z_]+[0-9_a-zA-Z]*"
+      "value": "[&]?[a-zA-Z_]+[0-9_a-zA-Z$]*"
     },
     "_space": {
       "type": "PATTERN",