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/main.lisp | |
| parent | c5a4fa662e17aa85d895cde4ae3869d8074312e2 (diff) | |
Prune dead files
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 29 |
1 files changed, 21 insertions, 8 deletions
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")) |