From ddd448ae86e5730d5cd297f44ec89ee3fa3c0006 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 18 Jan 2025 01:25:47 -0700
Subject: use a scheme procedures+eval to manage and transform AST

Removes records for a more-managable scheme-syntax approach. Modules+overriding allows for the IR itself to be represented and evaluated as scheme code during each transformation.
---
 src/modules/generator/expansion.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 src/modules/generator/expansion.scm

(limited to 'src/modules/generator/expansion.scm')

diff --git a/src/modules/generator/expansion.scm b/src/modules/generator/expansion.scm
new file mode 100644
index 0000000..3beb6db
--- /dev/null
+++ b/src/modules/generator/expansion.scm
@@ -0,0 +1,23 @@
+(define-module (modules generator expansion)
+  #:use-module (modules ast ir)
+  #:use-module (modules utils merge-instructions)
+  #:export (instrs
+            not
+            neg
+            ret))
+
+
+(define (instrs lst)
+  #f
+  (list 'instrs (cons 'list (merge-instr lst))))
+
+(define (not dst src) (unary 'not dst src))
+(define (neg dst src) (unary 'neg dst src))
+
+(define (ret src)
+  (list (list 'mov (list 'reg "eax") src)
+        (list 'ret)))
+
+(define (unary op dst src)
+  (list (list 'mov dst src)
+        (list op dst)))
-- 
cgit v1.2.3