feat: add eval command

Author: jcs090218

cmds/core/eval.lisp

@@ -0,0 +1,32 @@
+;;;; cmds/core/eval.lisp --- Evaluate lisp form with a proper PATH
+
+;;; Commentary
+;;
+;; The `eval' command definition.
+;;
+
+;;; Code
+
+(defpackage qob-cli/eval
+  (:use cl)
+  (:export command))
+
+(in-package :qob-cli/eval)
+
+(defun options ()
+  "Options for `eval' command."
+  (list ))
+
+(defun handler (cmd)
+  "Handler for `eval' command."
+  (qob-cli:call-script "core/eval" cmd))
+
+(defun command ()
+  "The `eval' command."
+  (clingon:make-command
+   :name "eval"
+   :description "Evaluate lisp form with a proper PATH"
+   :options (options)
+   :handler #'handler))
+
+;;; End of cmds/core/eval.lisp

cmds/qob.lisp

@@ -59,6 +59,7 @@
                    ,(qob-cli/clean:command)
                    ,(qob-cli/create:command)
                    ,(qob-cli/dists:command)
+                   ,(qob-cli/eval:command)
                    ,(qob-cli/files:command)
                    ,(qob-cli/package:command)
                    ,(qob-cli/info:command)

docs/content/Getting-Started/Basic-Usage/_index.en.md

@@ -44,6 +44,7 @@ COMMANDS:
   clean          Delete various files produced during building
   create         Create a new Common Lisp project
   dists          List out all installed dists
+  eval           Evaluate lisp form with a proper PATH
   files          Print all system files
   package        Build a system artifact
   info           Display information about the current system(s)

docs/content/Getting-Started/Basic-Usage/_index.zh-tw.md

@@ -41,6 +41,7 @@ COMMANDS:
   clean          Delete various files produced during building
   create         Create a new Common Lisp project
   dists          List out all installed dists
+  eval           Evaluate lisp form with a proper PATH
   files          Print all system files
   package        Build a system artifact
   info           Display information about the current system(s)

lisp/core/eval.lisp

@@ -0,0 +1,21 @@
+;;;; lisp/core/eval.lisp --- Evaluate lisp form with a proper PATH
+
+;;; Commentary
+;;
+;; Command use to eval lisp form.
+;;
+;;   $ qob eval [forms..]
+;;
+
+;;; Code
+
+(qob-start
+ (let* ((name (qob-args 0)))
+   (qob-info name)
+   (if name
+       (qob-eval name)
+       (progn
+         (qob-info "(No expression found)")
+         (qob-help "core/eval")))))
+
+;;; End of lisp/core/eval.lisp

qob-cli.asd

@@ -19,6 +19,7 @@
                (:file "cmds/core/clean")
                (:file "cmds/core/create")
                (:file "cmds/core/dists")
+               (:file "cmds/core/eval")
                (:file "cmds/core/files")
                (:file "cmds/core/package")
                (:file "cmds/core/info")