Skip to content
Snippets Groups Projects
Commit 0ed6b546 authored by Julien Signoles's avatar Julien Signoles
Browse files

Merge branch 'fix/andre/cmdline-remove-string-list' into 'master'

[Kernel] remove obsolete and unused Cmdline.String_list

See merge request frama-c/frama-c!2809
parents ee4a22eb 0adac834
No related branches found
No related tags found
No related merge requests found
...@@ -252,7 +252,6 @@ type option_setting = ...@@ -252,7 +252,6 @@ type option_setting =
| Unit of (unit -> unit) | Unit of (unit -> unit)
| Int of (int -> unit) | Int of (int -> unit)
| String of (string -> unit) | String of (string -> unit)
| String_list of (string list -> unit)
exception Cannot_parse of string * string exception Cannot_parse of string * string
let raise_error name because = raise (Cannot_parse(name, because)) let raise_error name because = raise (Cannot_parse(name, because))
...@@ -310,10 +309,6 @@ let parse known_options_list then_expected options_list = ...@@ -310,10 +309,6 @@ let parse known_options_list then_expected options_list =
check_string_argname (); check_string_argname ();
f arg; f arg;
true true
| String_list f ->
check_string_argname ();
f (Str.split (Str.regexp "[ \t]*,[ \t]*") arg);
true
in in
unknown_options, use_arg && not explicit, true unknown_options, use_arg && not explicit, true
with Not_found -> with Not_found ->
...@@ -896,7 +891,6 @@ let low_print_option_help fmt print_invisible o = ...@@ -896,7 +891,6 @@ let low_print_option_help fmt print_invisible o =
| Unit _ -> "" | Unit _ -> ""
| Int _ -> " <n>" | Int _ -> " <n>"
| String _ -> " <s>" | String _ -> " <s>"
| String_list _ -> " <s1, ..., sn>"
else else
" <" ^ s ^ ">" " <" ^ s ^ ">"
in in
......
...@@ -270,7 +270,6 @@ type option_setting = ...@@ -270,7 +270,6 @@ type option_setting =
| Unit of (unit -> unit) | Unit of (unit -> unit)
| Int of (int -> unit) | Int of (int -> unit)
| String of (string -> unit) | String of (string -> unit)
| String_list of (string list -> unit)
val add_option: val add_option:
string -> string ->
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment