diff options
| author | Björn Gustavsson <[email protected]> | 2017-01-19 14:11:54 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2017-02-03 13:34:23 +0100 |
| commit | d3182f64b8addb0aa2ea53f24ecdb8391bf4935f (patch) | |
| tree | 5ce282d9ee91b1595a0aec9c3ac76787039a5e4d | |
| parent | ce431409d0daba5630e36173dcb751f0ab65e5bb (diff) | |
| download | otp-d3182f64b8addb0aa2ea53f24ecdb8391bf4935f.tar.gz otp-d3182f64b8addb0aa2ea53f24ecdb8391bf4935f.tar.bz2 otp-d3182f64b8addb0aa2ea53f24ecdb8391bf4935f.zip | |
Clean up filtering of options
| -rw-r--r-- | lib/asn1/src/asn1ct.erl | 31 |
1 files changed, 21 insertions, 10 deletions
diff --git a/lib/asn1/src/asn1ct.erl b/lib/asn1/src/asn1ct.erl index c5e32cdc96..0a68395b49 100644 --- a/lib/asn1/src/asn1ct.erl +++ b/lib/asn1/src/asn1ct.erl @@ -1105,16 +1105,27 @@ translate_options([H|T]) -> translate_options([]) -> []. remove_asn_flags(Options) -> - [X || X <- Options, - X /= get_rule(Options), - X /= optimize, - X /= compact_bit_string, - X /= legacy_bit_string, - X /= legacy_erlang_types, - X /= debug, - X /= asn1config, - X /= record_name_prefix]. - + [X || X <- Options, not is_asn1_flag(X)]. + +is_asn1_flag(asn1config) -> true; +is_asn1_flag(ber) -> true; +is_asn1_flag(compact_bit_string) -> true; +is_asn1_flag(debug) -> true; +is_asn1_flag(der) -> true; +is_asn1_flag(legacy_bit_string) -> true; +is_asn1_flag({macro_name_prefix,_}) -> true; +is_asn1_flag({n2n,_}) -> true; +is_asn1_flag(noobj) -> true; +is_asn1_flag(no_ok_wrapper) -> true; +is_asn1_flag(optimize) -> true; +is_asn1_flag(per) -> true; +is_asn1_flag({record_name_prefix,_}) -> true; +is_asn1_flag(undec_rec) -> true; +is_asn1_flag(uper) -> true; +is_asn1_flag(verbose) -> true; +%% 'warnings_as_errors' is intentionally passed through to the compiler. +is_asn1_flag(_) -> false. + debug_on(Options) -> case lists:member(debug,Options) of true -> |