blob: 716c76b18134215a8cc62350561e4bfd0dd88433 (
plain)
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
|
(in-package :cl-forth)
(defun main ()
(let ((args (rest sb-ext:*posix-argv*)))
(let ((flag (first args)))
(cond ((string= flag "-c")
;; (iter (for (k v) in-hashtable *operations*)
;; (for i from 0)
;; (format t "~s: ~s~%" i k))
;; (let ((tokens (lex-file (second args))))
;; (format t "~s~%" tokens)
;; (let ((program (prog-from-tokens tokens)))
;; (format t "~s~%" program)
;; (generate-program program :compile t)))
(compile-program (second args)))
((string= flag "-i")
(format t "Interpret program WIP~%"))
(t (format t "~a is not a valid flag~%" flag))))))
;; (defun make-exe ()
;; (sb-ext:save-lisp-and-die #P"cl-forth"
;; :toplevel #'main
;; :executable t))
(defparameter *example-path* "./test/prog.lorth")
(defun example-lex ()
(lex-file *example-path* t))
(defun example-prog ()
(make-program *example-path*))
(defun example-compile ()
(generate-program (make-program *example-path*) :path "test/output.asm"
:compile t))
(defun example-run ()
(example-compile)
(run '("test/output")))
|
