- match Sys.argv.(1) with
- | "alias" -> mode := `Alias
- | "term" -> mode := `Term
- | "tactic" -> mode := `Tactic
- | "tactical" -> mode := `Tactical
- | "command" -> mode := `Command
- | "script" -> mode := `Script
- | _ ->
- prerr_endline "What???????";
- exit 1
- with Invalid_argument _ -> ()
+ List.assoc (Sys.argv.(1)) modes
+ with
+ | _ ->
+ prerr_endline
+ (sprintf "What? Supported modes are: %s\n"
+ (String.concat " " (List.map fst modes)));
+ exit 1