From 9e09767e23a4edb6b31540195bfe885f83e080d7 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Tue, 28 Jan 2025 14:39:47 -0500
Subject: [Ongoing] Rewrite frontend to use Flex/Bison

This is a merge of another experiment, so the changes are large:

- separated "modules" directory into frontend/backend
  - adjusted module names and moved files for this to happen
- removed modules lexer & parser
- removed all the unit tests (most were outdated)
- added Bison, flex, and C development tools to manifest.scm
- added lexer.l, a source file used by the flex utility with a functioning lexing implementation
- added parser.y, a source file used by the bison utility with a functioning parser implementation
- added node.c and node.h, which parser.y uses to construct an AST of a C source file (up to binary ops)
- added driver.c, a Guile-C interface that provides a module to scheme programs
- added a Makefile to make all of this
- added stuff to .gitignore
---
 src/backend/utils/assign-stack.scm       | 15 +++++++++++++++
 src/backend/utils/merge-instructions.scm |  7 +++++++
 2 files changed, 22 insertions(+)
 create mode 100644 src/backend/utils/assign-stack.scm
 create mode 100644 src/backend/utils/merge-instructions.scm

(limited to 'src/backend/utils')

diff --git a/src/backend/utils/assign-stack.scm b/src/backend/utils/assign-stack.scm
new file mode 100644
index 0000000..dff9fc7
--- /dev/null
+++ b/src/backend/utils/assign-stack.scm
@@ -0,0 +1,15 @@
+(define-module (backend utils assign-stack)
+  #:export (make-location
+            get-frame-size))
+
+
+(define make-location)
+(define get-frame-size)
+(let ((dict (make-hash-table))
+      (ptr 0))
+  (set! make-location
+        (lambda (id)
+          (or (hash-ref dict id)
+              (begin (set! ptr (1+ ptr))
+                     (hash-set! dict id (get-frame-size))))))
+  (set! get-frame-size (lambda () (* -4 ptr))))
diff --git a/src/backend/utils/merge-instructions.scm b/src/backend/utils/merge-instructions.scm
new file mode 100644
index 0000000..f9fc043
--- /dev/null
+++ b/src/backend/utils/merge-instructions.scm
@@ -0,0 +1,7 @@
+(define-module (backend utils merge-instructions)
+  #:use-module (srfi srfi-1)
+  #:export (merge-instr))
+
+
+(define (merge-instr lst)
+  (append-map (lambda (x) (if (list? (car x)) x (list x))) lst))
-- 
cgit v1.2.3