diff options
| author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2016-09-20 16:17:27 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-09-20 16:17:27 +0200 |
| commit | d857db508c318887463dde2039c9bfe99cdeebfa (patch) | |
| tree | 8cf1d98876f4c72e624892103917be5286c95c17 /driver/Commandline.ml | |
| parent | 99554c986d023d00192eb3d1fbfe1c0cc138596e (diff) | |
| parent | 20f226ce463221032238895264c73d2207bf31d8 (diff) | |
| download | compcert-d857db508c318887463dde2039c9bfe99cdeebfa.tar.gz compcert-d857db508c318887463dde2039c9bfe99cdeebfa.zip | |
Merge pull request #139 from AbsInt/advanced-diagnostics
Advanced diagnostics
Diffstat (limited to 'driver/Commandline.ml')
| -rw-r--r-- | driver/Commandline.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/driver/Commandline.ml b/driver/Commandline.ml index d125736a..ce5acf9d 100644 --- a/driver/Commandline.ml +++ b/driver/Commandline.ml @@ -32,6 +32,8 @@ type action = | Self of (string -> unit) | String of (string -> unit) | Integer of (int -> unit) + | Ignore + | Unit of (unit -> unit) let match_pattern text = function | Exact s -> @@ -96,6 +98,8 @@ let parse_array spec argv first last = end else begin eprintf "Option `%s' expects an argument\n" s; exit 2 end + | Some (Ignore) -> parse (i+1) + | Some (Unit f) -> f (); parse (i+1) end in parse first |