From a9f6cfb6a8b6d38057faca067c015da1f72cf62d Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 5 Oct 2026 00:26:05 +0200
Subject: Add a treesitter grammar

---
 tools/tree-sitter/test/corpus/pointer_cast.txt | 38 ++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 tools/tree-sitter/test/corpus/pointer_cast.txt

(limited to 'tools/tree-sitter/test/corpus/pointer_cast.txt')

diff --git a/tools/tree-sitter/test/corpus/pointer_cast.txt b/tools/tree-sitter/test/corpus/pointer_cast.txt
new file mode 100644
index 0000000..63a28ab
--- /dev/null
+++ b/tools/tree-sitter/test/corpus/pointer_cast.txt
@@ -0,0 +1,38 @@
+==================
+pointer_cast
+==================
+
+program()
+var
+  c: ^Char := nil
+  p: Pointer := nil
+
+begin
+  p := c;
+  c := p
+end.
+
+---
+
+(source_file
+  (program_declaration
+    (var_section
+      (variable_declaration
+        (identifier_definition
+          (identifier))
+        (pointer_type
+          (identifier))
+        (literal
+          (nil)))
+      (variable_declaration
+        (identifier_definition
+          (identifier))
+        (identifier)
+        (literal
+          (nil))))
+    (assignment_statement
+      (identifier)
+      (identifier))
+    (assignment_statement
+      (identifier)
+      (identifier))))
-- 
cgit v1.2.3