OCaml - Argを使った引数付きコマンドラインオプションの解析

Question

OCamlの引数を使ってコマンドラインオプションを解析したい。

標準ライブラリのモジュールArgは私が必要とするすべてを行うようですが、このモジュールの使い方を説明するチュートリアルがあります。

私の問題は、オプションの引数がない場合、すべて同じ奇妙な振る舞いを共有しているようです。例えば、./a.out -dとthis exampleからプログラムを実行すると、次の出力を生成する：

./a.out: option '-d' needs an argument. 
usage: ./a.out [-b] [-s string] [-d int] 
    -b : set somebool to true 
    -s : what follows -s sets some string 
    -d : some int parameter 
    -help Display this list of options 
    --help Display this list of options 
./a.out: ./a.out: option '-d' needs an argument. 
usage: ./a.out [-b] [-s string] [-d int] 
    -b : set somebool to true 
    -s : what follows -s sets some string 
    -d : some int parameter 
    -help Display this list of options 
    --help Display this list of options 
. 
usage: ./a.out [-b] [-s string] [-d int] 
    -b : set somebool to true 
    -s : what follows -s sets some string 
    -d : some int parameter 
    -help Display this list of options 
    --help Display this list of options 

Iエラー/使用方法のメッセージを3回印刷された理由を知ることができませんでした。これは私がオンラインで見つけた他のすべてのコード例にも起こります。これはArgモジュールの問題ですか、またはこれらの例で何らかの形で正しく使用されていませんか？

Answer 1

私はOCaml 4.04.2でバグを再現できましたが、4.02.3ではバグを再現できませんでしたので、何らかの回帰が起こっているようです。

あなたができることの1つは古いバージョンのOCamlを使うことですが、私はそれをお勧めしません。

代わりに、Jane StreetのCoreなどの代替標準ライブラリを使用できます。 Commandというモジュールがあり、実行しようとしているのと同じようにコマンドラインインターフェイスを書くことができます。

このモジュールの詳細なチュートリアルはhereです。

open Core 

let spec = 
    let open Command.Spec in 
    empty 
    +> flag "-b" (no_arg) ~doc:"Sets some flag" 
    +> flag "-s" (optional_with_default "" string) ~doc:"STRING Some string parameter" 
    +> flag "-d" (optional_with_default 0 int) ~doc:"INTEGER Some int parameter" 

let command = 
    Command.basic 
    ~summary:"My awesome CLI" 
    spec 
    (fun some_flag some_string some_int() -> 
     printf " %b '%s' %d\n" some_flag some_string some_int 
    ) 

let() = 
    Command.run command 

---

EDIT：例として

は、ここCommandを使用してロゼッタからCLIでこのバグは知られており、is going to be fixed in OCaml 4.05ました。