Commit b39e4447 authored by Taddeüs Kroes's avatar Taddeüs Kroes

Improved command-line usage

parent bda5c1c0
...@@ -35,7 +35,7 @@ let parse_args () = ...@@ -35,7 +35,7 @@ let parse_args () =
-e, --echo Just parse and pretty-print, no optimizations\n\ -e, --echo Just parse and pretty-print, no optimizations\n\
\n\ \n\
Formatting options:\n \ Formatting options:\n \
--sort Sort declarations in each selector group\n\ -r, --sort Sort declarations in each selector group\n\
" "
in in
...@@ -66,7 +66,7 @@ let parse_args () = ...@@ -66,7 +66,7 @@ let parse_args () =
handle {args with simple = true; shorthands = true; duplicates = true} tl handle {args with simple = true; shorthands = true; duplicates = true} tl
| ("-e" | "--echo") :: tl -> | ("-e" | "--echo") :: tl ->
handle {args with echo = true} tl handle {args with echo = true} tl
| "--sort" :: tl -> | ("-r" | "--sort") :: tl ->
handle {args with sort = true} tl handle {args with sort = true} tl
| ("-h" | "--help") :: tl -> | ("-h" | "--help") :: tl ->
...@@ -80,6 +80,13 @@ let parse_args () = ...@@ -80,6 +80,13 @@ let parse_args () =
| "-o" :: filename :: tl -> | "-o" :: filename :: tl ->
handle {args with outfile = Some filename} tl handle {args with outfile = Some filename} tl
| arg :: tl when String.length arg > 1 && arg.[0] = '-' && arg.[1] <> '-' ->
let rec handle_opts args = function
| i when i = String.length arg -> args
| i -> handle_opts (handle args ["-" ^ String.make 1 arg.[i]]) (i + 1)
in
handle_opts args 1
| arg :: tl when arg.[0] = '-' -> | arg :: tl when arg.[0] = '-' ->
prerr_string usage; prerr_string usage;
raise (Failure ("unknown option " ^ arg)) raise (Failure ("unknown option " ^ arg))
......
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