Add a treesitter grammar

1 files changed, 38 insertions, 0 deletions

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))))