1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
;; Assembler for the RISC-V[ECTOR] mini-ISA.
;; Copyright (C) 2025 bdunahu
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
(in-package #:rva)
(defvar *banner*
" _/_/ _/_/
_/ _/
_/ _/ _/_/ _/ _/ _/_/_/ _/
_/ _/_/ _/ _/ _/ _/ _/
_/ _/ _/ _/ _/ _/ _/
_/ _/ _/ _/_/_/ _/
_/_/ _/_/ "
"Stylized ASCII logo.")
(defun print-splash ()
"Prints a pretty splash-screen."
(format t "~a~%" *banner*))
(defun cli/options ()
"Returns options for the `rva' assembler."
(list
(clingon:make-option
:flag
:description "run the parser, but stop before emission"
:long-name "parse"
:short-name #\p
:required nil
:key :parse)
(clingon:make-option
:flag
:description "run the emitter, but stop before writing"
:long-name "emit"
:short-name #\e
:required nil
:key :emit)))
(defun postprocess (out file)
"Given OUT, a list of words, writes the raw bytes to FILE."
(let ((file (util:generate-file-name file))
(bytes (alexandria:flatten
(mapcar (lambda (x)
(util:word-to-bytes (parse-integer x :radix 2)))
out))))
(with-open-file (stream file
:direction :output
:if-exists :supersede
:if-does-not-exist :create
:element-type '(unsigned-byte 8))
(loop for byte in bytes do (write-byte byte stream)))
(format t "File written! Check ~a~%" file)))
(defun driver (cmd)
"Reads in a file and directs lexing, parsing, and binary emission."
(print-splash)
(let* ((args (clingon:command-arguments cmd))
(file (car args))
(emit? (not (clingon:getopt cmd :parse)))
(write? (not (clingon:getopt cmd :emit))))
(cond
((/= (length args) 1) (error "Wrong number of arguments.~%"))
((not (util:asm-extension? file))
(error "The file is not an asm source code file.~%"))
(t (let ((str (uiop:read-file-string file)))
(if str
(let ((ast (esrap:parse 'parse::str->ast (string-upcase str))))
(if emit?
(let ((words (emit:emit ast)))
(if write?
(postprocess words file)
(format t "Emission successful, got: ~%~a~%" words)))
(format t "Parse successful, got:~%~a~%" (emit:ast->str ast))))
(error "The file does not exist, or it could not be opened.~%")))))))
(defun cli/command ()
"Returns a clingon command."
(clingon:make-command
:name "rva"
:description "generates a binary compatible with the RISC V[ECTOR] simulator"
:usage "[options] file"
:version (asdf:component-version
(asdf:find-system "rva" nil))
:options (cli/options)
:handler #'driver))
(defun main ()
(clingon:run (cli/command)))
|
