Commit 2ffbc6e5 authored by Glen Mével's avatar Glen Mével

`toutes-lettres` now supports --help (useful for tab-completion)

parent 21619fb2
......@@ -439,7 +439,7 @@ let usage = Printf.sprintf
^^ "Format des nombres :\n"
^^ " [+-]CHIFFRES[,CHIFFRES]\n"
^^ "Options :\n"
^^ " --pre1990\n"
^^ " --pré-1990\n"
^^ " --1990 (par défaut)\n"
^^ " Appliquer ou non la réforme de 1990.\n"
^^ " --français (par défaut)\n"
......@@ -524,10 +524,11 @@ let () =
in
while !i < Array.length Sys.argv do
begin match Sys.argv.(!i) with
| "--help"
| "--aide" ->
Printf.printf "%s" usage ;
exit 0
| "--pre1990" -> Options.pre1990 := true
| "--pré-1990" -> Options.pre1990 := true
| "--1990" -> Options.pre1990 := false
| "--français" -> Options.variante := `France
| "--belge" -> Options.variante := `Belgique
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment