diff options
| author | Björn Gustavsson <[email protected]> | 2012-11-15 08:17:27 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-11-22 17:23:12 +0100 |
| commit | 0481bd15d660853076036c09d7adcce1de523a23 (patch) | |
| tree | abb8340dd5cafa1b01fc3a073a9324ebf4f24f92 /lib/asn1/src/asn1rt_ber_bin_v2.erl | |
| parent | d2989f33c435e1ec2b788772c5e4a77835ec5e10 (diff) | |
| download | otp-0481bd15d660853076036c09d7adcce1de523a23.tar.gz otp-0481bd15d660853076036c09d7adcce1de523a23.tar.bz2 otp-0481bd15d660853076036c09d7adcce1de523a23.zip | |
Remove support for the obsolete {Typename,Value} tuple notation
Of the back-ends that we are going to keep, only the UPER back-end
support the obsolete {Typename,Value} notation. For consistency
with the PER and BER encodings, remove the support for UPER
encoding too. Also remove vestiges of the support for the
notation in the other back-ends.
Diffstat (limited to 'lib/asn1/src/asn1rt_ber_bin_v2.erl')
| -rw-r--r-- | lib/asn1/src/asn1rt_ber_bin_v2.erl | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/lib/asn1/src/asn1rt_ber_bin_v2.erl b/lib/asn1/src/asn1rt_ber_bin_v2.erl index 9ff5017c68..e46e163ebb 100644 --- a/lib/asn1/src/asn1rt_ber_bin_v2.erl +++ b/lib/asn1/src/asn1rt_ber_bin_v2.erl @@ -22,8 +22,7 @@ %% encoding / decoding of BER -export([decode/1, decode/2, match_tags/2, encode/1, encode/2]). --export([fixoptionals/2, cindex/3, - list_to_record/2, +-export([fixoptionals/2, encode_tag_val/1, encode_tags/3, skip_ExtensionAdditions/2]). @@ -612,13 +611,6 @@ match_tags(Tlv, []) -> Tlv; match_tags(Tlv = {Tag,_V},[T|_Tt]) -> exit({error,{asn1,{wrong_tag,{{expected,T},{got,Tag,Tlv}}}}}). - - -cindex(Ix,Val,Cname) -> - case element(Ix,Val) of - {Cname,Val2} -> Val2; - X -> X - end. %%% %% skips components that do not match a tag in Tags @@ -642,13 +634,6 @@ skip_ExtensionAdditions(TLV=[{Tag,_}|Rest],Tags) -> %%=============================================================================== %%=============================================================================== -% converts a list to a record if necessary -list_to_record(Name,List) when is_list(List) -> - list_to_tuple([Name|List]); -list_to_record(_Name,Tuple) when is_tuple(Tuple) -> - Tuple. - - fixoptionals(OptList,Val) when is_list(Val) -> fixoptionals(OptList,Val,1,[],[]). |