From aca2504eec49f140c76b668b6949ba767746a847 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 16 Mar 2025 02:40:00 -0400 Subject: Prune dead files --- src/lex.lisp | 4 ---- src/main.lisp | 29 +++++++++++++++++++++-------- src/package.lisp | 4 ---- 3 files changed, 21 insertions(+), 16 deletions(-) delete mode 100644 src/lex.lisp (limited to 'src') 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)) -- cgit v1.2.3