diff options
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")) |