From babe9f9d0e84daec1015d7593a9d6c6d480662b8 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 28 Dec 2024 12:44:07 -0700
Subject: Assembly generation for trivial programs

---
 src/modules/ast/syntax-tree.scm | 48 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 src/modules/ast/syntax-tree.scm

(limited to 'src/modules/ast/syntax-tree.scm')

diff --git a/src/modules/ast/syntax-tree.scm b/src/modules/ast/syntax-tree.scm
new file mode 100644
index 0000000..738b115
--- /dev/null
+++ b/src/modules/ast/syntax-tree.scm
@@ -0,0 +1,48 @@
+(define-module (modules ast syntax-tree)
+  #:use-module (srfi srfi-9)
+  #:export (make-program
+            program?
+            program-function
+
+            make-function
+            function?
+            function-id
+            function-stmt
+
+            make-stmt
+            stmt?
+            stmt-expr
+
+            make-expr
+            expr?
+            expr-int
+
+            make-id
+            id?
+            id-symbol))
+
+(define-record-type <program>
+  (make-program func)
+  program?
+  (func program-function))
+
+(define-record-type <function>
+  (make-function id stmt)
+  function?
+  (id function-id)
+  (stmt function-stmt))
+
+(define-record-type <stmt>
+  (make-stmt expr)
+  stmt?
+  (expr stmt-expr))
+
+(define-record-type <expr>
+  (make-expr int)
+  expr?
+  (int expr-int))
+
+(define-record-type <id>
+  (make-id symbol)
+  id?
+  (symbol id-symbol))
-- 
cgit v1.2.3