summaryrefslogtreecommitdiff
path: root/src/unit-tests/lexer
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2025-01-28 14:39:47 -0500
committerbd <bdunahu@operationnull.com>2025-01-28 14:39:47 -0500
commit9e09767e23a4edb6b31540195bfe885f83e080d7 (patch)
tree42454c51ea8e0c8cf90b7c9020dedf3a5627cea2 /src/unit-tests/lexer
parentc63a873fe7fbf7947e07acfaf2402fe85100deba (diff)
[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
Diffstat (limited to 'src/unit-tests/lexer')
-rw-r--r--src/unit-tests/lexer/lexer.test.scm89
1 files changed, 0 insertions, 89 deletions
diff --git a/src/unit-tests/lexer/lexer.test.scm b/src/unit-tests/lexer/lexer.test.scm
deleted file mode 100644
index ce3520d..0000000
--- a/src/unit-tests/lexer/lexer.test.scm
+++ /dev/null
@@ -1,89 +0,0 @@
-;; -*- compile-command: "guile -L ./src/modules ./src/unit-tests/lexer/lexer.test.scm"; -*-
-(use-modules (srfi srfi-64)
- (lexer lexer))
-
-(define (read-this str)
- (set-current-input-port
- (open-input-string str))
- str)
-
-
-(test-begin "lexer-harness")
-
-
-(test-equal (read-this "")
- '()
- (read-tokens))
-
-(test-equal (read-this "(")
- '(left-paren)
- (read-tokens))
-
-(test-equal (read-this "((")
- '(left-paren left-paren)
- (read-tokens))
-
-(test-equal (read-this "( )")
- '(left-paren right-paren)
- (read-tokens))
-
-(test-equal (read-this "( {;} {((};})")
- '(left-paren open-brace semi-colon close-brace open-brace left-paren left-paren close-brace semi-colon close-brace right-paren)
- (read-tokens))
-
-(test-equal (read-this "1")
- '(1)
- (read-tokens))
-
-(test-equal (read-this "~+-")
- '(complement add sub)
- (read-tokens))
-
-(test-equal (read-this "---")
- '(decrement sub)
- (read-tokens))
-
-(test-equal (read-this "+--")
- '(add decrement)
- (read-tokens))
-
-(test-equal (read-this "0")
- '(0)
- (read-tokens))
-
-(test-equal (read-this "0011001")
- '(11001)
- (read-tokens))
-
-(test-equal (read-this "12 {34")
- '(12 open-brace 34)
- (read-tokens))
-
-(test-equal (read-this "34;")
- '(34 semi-colon)
- (read-tokens))
-
-(test-error (read-this "3.4")
- (read-tokens))
-
-(test-equal (read-this "a")
- '("a")
- (read-tokens))
-
-(test-equal (read-this "a_2")
- '("a_2")
- (read-tokens))
-
-(test-error (read-this "1foo")
- (read-tokens))
-
-(test-equal (read-this "void")
- '(void)
- (read-tokens))
-
-(test-equal (read-this "int main(void) {return 2;}")
- '(int "main" left-paren void right-paren open-brace return 2 semi-colon close-brace)
- (read-tokens))
-
-
-(test-end "lexer-harness")