From c441f8f092cd5da5b09e3e4e826141d915189ab5 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Wed, 10 Aug 2022 18:12:44 -0400
Subject: Step 1: Integers

---
 Makefile     |  7 +++++++
 compiler.scm | 17 +++++++++++++++++
 test.c       |  6 ++++++
 3 files changed, 30 insertions(+)
 create mode 100644 Makefile
 create mode 100644 compiler.scm
 create mode 100644 test.c

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..513a132
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,7 @@
+test:
+	gcc -c scheme_entry.S
+	gcc -c test.c
+	gcc -o test scheme_entry.o test.o
+	./test
+
+.PHONY: test
diff --git a/compiler.scm b/compiler.scm
new file mode 100644
index 0000000..1285ac6
--- /dev/null
+++ b/compiler.scm
@@ -0,0 +1,17 @@
+(use-modules (ice-9 format))
+
+(define (emit template-string . args)
+  (apply format #t template-string args)
+  (newline))
+
+(define (compile-program x)
+  (with-output-to-file "scheme_entry.S"
+    (lambda ()
+      (display ".text
+.p2align 4
+.globl	scheme_entry
+.type	scheme_entry, @function
+scheme_entry:
+")
+      (emit "movl $~a, %eax" x)
+      (emit "ret"))))
diff --git a/test.c b/test.c
new file mode 100644
index 0000000..2d814e0
--- /dev/null
+++ b/test.c
@@ -0,0 +1,6 @@
+#include <stdio.h>
+
+int main(int argc, char** argv) {
+  printf("%d\n", scheme_entry());
+  return 0;
+}
-- 
cgit v1.2.3