From a3d234983b259576e985f810eacf0d03eefc02d2 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 18 Jan 2025 02:07:07 -0700
Subject: Add new emitter files for code generation

---
 src/modules/emitter/driver.scm   |  6 +++++
 src/modules/emitter/traverse.scm | 50 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 56 insertions(+)
 create mode 100644 src/modules/emitter/driver.scm
 create mode 100644 src/modules/emitter/traverse.scm

diff --git a/src/modules/emitter/driver.scm b/src/modules/emitter/driver.scm
new file mode 100644
index 0000000..7ce8517
--- /dev/null
+++ b/src/modules/emitter/driver.scm
@@ -0,0 +1,6 @@
+(define-module (emitter driver)
+  #:export (assembly->string))
+
+
+(define (assembly->string n)
+  (eval n (resolve-module '(emitter traverse))))
diff --git a/src/modules/emitter/traverse.scm b/src/modules/emitter/traverse.scm
new file mode 100644
index 0000000..6c0c19d
--- /dev/null
+++ b/src/modules/emitter/traverse.scm
@@ -0,0 +1,50 @@
+(define-module (emitter traverse)
+  #:export (prog
+            subrout
+            instr
+            allocate
+            mov
+            ret
+            neg
+            not
+            allocate
+            reg
+            stack
+            imm))
+
+
+(define (prog srout)
+  (string-append/shared srout ".section .note.GNU-stack,\"\",@progbits\n"))
+
+(define (srout label instrs)
+  (format #f "    .globl ~a
+~a:
+\tpushq\t%rbp
+\tmovq\t%rsp, %rbp
+~a" label label (apply string-append/shared instrs)))
+
+(define (mov src dst)
+  (format #f "\tmovl\t~a, ~a\n" src dst))
+
+(define (ret)
+  "\tmovq\t%rbp, %rsp
+\tpopq\t%rbp
+\tret\n")
+
+(define (neg dst)
+  (format #f "\tnegl\t~a\n" dst))
+
+(define (not dst)
+  (format #f "\tnotl\t~a\n" dst))
+
+(define (alloc size)
+  (format #f "\tsubq\t$~a, %rsp\n" size))
+
+(define (reg r)
+  (format #f "%~a" r))
+
+(define (stack loc)
+  (format #f "~a(%rbp)" loc))
+
+(define (imm int)
+  (format #f "$~a" int))
-- 
cgit v1.2.3