Commit 077dc327 authored by Bruno Guillaume's avatar Bruno Guillaume

Fix usage message

parent d82eaf3b
...@@ -25,12 +25,9 @@ module Grew_args = struct ...@@ -25,12 +25,9 @@ module Grew_args = struct
let timeout = ref None let timeout = ref None
let usage = let usage =
"grew has 3 running modes:\n"^ "grew-gui: a Gtk interface\n"^
" * GUI MODE: a Gtk interface (this is the default mode)\n"^
" * CORPUS MODE: runs rewriting on all graphs of a directory\n"^
" * DET MODE: runs a deterministic grs on all graphs of a directory\n"^
"\n"^ "\n"^
"Options for mode selection:" "Options:"
let dump_version () = let dump_version () =
Printf.printf "grew: %s\n" VERSION; Printf.printf "grew: %s\n" VERSION;
...@@ -41,17 +38,18 @@ module Grew_args = struct ...@@ -41,17 +38,18 @@ module Grew_args = struct
let args = [ let args = [
(* options for all modes *) (* options for all modes *)
"-grs", String (fun s -> grs := Some s), "<grs_file> chose the grs file to load"; "-grs", String (fun s -> grs := Some s), "<grs_file> chose the grs file to load";
"-old_grs", Unit (fun () -> old_grs := true), " Use old grs parser"; "-old_grs", Unit (fun () -> old_grs := true), " Use old grs parser";
"-strat", String (fun s -> strat := s), "<strat> set the module strategy to use"; "-strat", String (fun s -> strat := s), "<strat> set the module strategy to use";
"-seq", String (fun s -> strat := s), "<strat> [DEPRECATED] replaced by -strat option"; "-seq", String (fun s -> strat := s), "<strat> [DEPRECATED] replaced by -strat option";
"-timeout", Float (fun f -> timeout := Some f; Rewrite.set_timeout (Some f)), "<float> set a timeout on rewriting"; "-timeout", Float (fun f -> timeout := Some f; Rewrite.set_timeout (Some f)), "<float> set a timeout on rewriting";
"-max_depth_det", Int (fun v -> Rewrite.set_max_depth_det v), "<int> set the maximum depth of rewriting in a module in deterministric rewriting (default: 2000)"; "-max_depth_det", Int (fun v -> Rewrite.set_max_depth_det v), "<int> set the maximum depth of rewriting in a module in deterministric rewriting (default: 2000)";
"-max_depth_non_det", Int (fun v -> Rewrite.set_max_depth_non_det v), "<int> set the maximum depth of rewriting in a module in non-deterministric rewriting (default: 100)"; "-max_depth_non_det", Int (fun v -> Rewrite.set_max_depth_non_det v), "<int> set the maximum depth of rewriting in a module in non-deterministric rewriting (default: 100)";
"-features", String (fun s -> features := Some (Str.split (Str.regexp "; *") s)), "<feat_name_list> set the list of feature names to printf in dep format"; "-features", String (fun s -> features := Some (Str.split (Str.regexp "; *") s)), "<feat_name_list> set the list of feature names to printf in dep format";
"-main_feat", String (fun s -> main_feat := Some s), "<feat_name_list> set the list of feature names used in dep format to set the \"main word\""; "-main_feat", String (fun s -> main_feat := Some s), "<feat_name_list> set the list of feature names used in dep format to set the \"main word\"";
"-safe_commands", Unit (fun () -> Libgrew.set_safe_commands true), " enable safe_commands mode";
"-debug", Unit (fun () -> Libgrew.set_debug_mode true), " enable debug mode"; "-debug", Unit (fun () -> Libgrew.set_debug_mode true), " enable debug mode";
"-debug_loop", Unit (fun () -> Rewrite.set_debug_loop ()), " enable loop debug mode"; "-debug_loop", Unit (fun () -> Rewrite.set_debug_loop ()), " enable loop debug mode";
"-fullscreen", Unit (fun () -> fullscreen := true), " fullscreen"; "-fullscreen", Unit (fun () -> fullscreen := true), " fullscreen";
"-i", String (fun file -> input_data := Some file), "<input_data> set the input data (file or directory) where to find graph files (.gr or .conll) in corpus or det mode"; "-i", String (fun file -> input_data := Some file), "<input_data> set the input data (file or directory) where to find graph files (.gr or .conll) in corpus or det mode";
] ]
......
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