Question

我想在Common Lisp中获取并解析命令行参数，例如myscript -a 1 -b 2将允许我获取值，myscript -xyz也可以使用。我怎样才能移植（在编译器之间）？

Answer 1

您可以尝试unix-options。

(ql:quickload :unix-options)

(defpackage :test
  (:use :cl)
  (:import-from :unix-options
                :&parameters
                :&free
                :with-cli-options))

您可能希望:use该软件包，但如果您希望从中导入符号，请不要忘记&free和&parameters。该库定义了getopt函数，该函数类似于传统的getopt实用程序。但它也定义了with-cli-options，这是一个更多的lispy。

第一组符号定义选项，即不存在或存在的标志;
&parameters之后的符号定义参数，后面必须跟一个值;
未被识别为选项或参数的参数在绑定到&free

例如：

(in-package :test)

(defun my-program (&rest cli-args)
  (with-cli-options (cli-args)
      (x y z &parameters a b &free other)
    (list x y z a b other))))

这里我定义了程序的入口点。在真实的程序中，您可以简单地将第一个列表留空，如下所示：

(with-cli-options () <bindings> <body>)

...并且可以从Lisp实现的实际命令行参数中移植选项。您还可以调用(uiop:command-line-arguments)以获得完整的命令行，这似乎支持更多的实现，并包含程序的名称作为第一个元素。上面的函数允许我测试解析器的行为。例如，请注意可以分隔或连接短选项：

(my-program "-xyz" "-a" "2" "-b" "3" "--" "something")
=> (T T T "2" "3" ("something"))

(my-program "-x" "-y" "-z" "-a" "2" "-b" "3" "--" "something")
=> (T T T "2" "3" ("something"))

注意那些被声明为参数但没有给出实际值的选项（或者可能是这些选项，情况不明确）：

(my-program "-a" "-b")
=> (NIL NIL NIL "-b" NIL NIL)

有未知参数的警告：

(ignore-errors (my-program "-w"))
; WARNING: Invalid option: w
=> (NIL NIL NIL NIL NIL NIL)

有关详细信息，请参阅文档。

如何在Common Lisp中可移植地解析命令行参数和标志？

1 个答案: