diff options
| author | bd <bdunahu@operationnull.com> | 2025-03-16 02:40:00 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-03-16 02:40:00 -0400 |
| commit | aca2504eec49f140c76b668b6949ba767746a847 (patch) | |
| tree | 37c63b0775a47e6df9be66b26b0080856068064e /src | |
| parent | c5a4fa662e17aa85d895cde4ae3869d8074312e2 (diff) | |
Prune dead files
Diffstat (limited to 'src')
| -rw-r--r-- | src/lex.lisp | 4 | ||||
| -rw-r--r-- | src/main.lisp | 29 | ||||
| -rw-r--r-- | src/package.lisp | 4 |
3 files changed, 21 insertions, 16 deletions
diff --git a/src/lex.lisp b/src/lex.lisp deleted file mode 100644 index 5b9c957..0000000 --- a/src/lex.lisp +++ /dev/null @@ -1,4 +0,0 @@ -(in-package #:lex) - -(defun stub () - (format t "Hello, world!~%")) diff --git a/src/main.lisp b/src/main.lisp index c22d869..ddb8b8d 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -1,16 +1,29 @@ (in-package #:rva) -(defparameter *version* "v0.1") +(defparameter *banner* + " _/_/ _/_/ + _/ _/ + _/ _/ _/_/ _/ _/ _/_/_/ _/ + _/ _/_/ _/ _/ _/ _/ _/ + _/ _/ _/ _/ _/ _/ _/ + _/ _/ _/ _/_/_/ _/ +_/_/ _/_/ " + "Stylized ASCII logo.") + +(defun print-version-number () + "Prints a pretty splash-screen." + (let ((system (asdf:find-system "rva" nil))) + (format t "~av~a~%" *banner* (asdf:component-version system)))) (defun error-cli (message) + "Prints MESSAGE and usage information to stderr +and exits with error code 1." (format *error-output* - "~a~%Usage: - risc_vector file -Options: - --version, -v: print version information~%" - message) + "~a~%Usage: + rva file~%" + message) (sb-ext:exit :code 1)) (defun main () - (lex:stub) - (error-cli "foobar")) + (print-version-number) + (error-cli "Nitimur in Vetitum")) diff --git a/src/package.lisp b/src/package.lisp index cb337b7..78eb546 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -1,7 +1,3 @@ (defpackage #:rva (:use #:cl) (:export #:main)) - -(defpackage #:lex - (:use #:cl) - (:export #:stub)) |