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