diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2016-08-17 11:31:23 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-08-17 11:31:23 +0200 |
| commit | 0f9d824914c9dff0bf5d983ab387a5b5326307fc (patch) | |
| tree | 162ffbc12514864db4d1e7cbff86559be4924616 /driver/Commandline.ml | |
| parent | b1a059251053a061d98e4b440bfab40ffd8761c7 (diff) | |
| parent | 5309f16159e4decd81330622dcdd6eb4b25819a1 (diff) | |
| download | compcert-0f9d824914c9dff0bf5d983ab387a5b5326307fc.tar.gz compcert-0f9d824914c9dff0bf5d983ab387a5b5326307fc.zip | |
Merge pull request #107 from AbsInt/add-file
Add support for response files
Diffstat (limited to 'driver/Commandline.ml')
| -rw-r--r-- | driver/Commandline.ml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/driver/Commandline.ml b/driver/Commandline.ml index 0a2c8fca..d125736a 100644 --- a/driver/Commandline.ml +++ b/driver/Commandline.ml @@ -16,6 +16,7 @@ (* Parsing of command-line flags and arguments *) open Printf +open Responsefile type pattern = | Exact of string @@ -99,4 +100,9 @@ let parse_array spec argv first last = in parse first let parse_cmdline spec = - parse_array spec Sys.argv 1 (Array.length Sys.argv - 1) + try + let argv = expandargv Sys.argv in + parse_array spec argv 1 (Array.length argv - 1) + with Responsefile.Error s -> + eprintf "%s" s; + exit 2 |