Ulf Wiger
1685 lines
41 KiB
Erlang
1685 lines
41 KiB
Erlang
%% Generated by the Erlang ASN.1 PER (unaligned) compiler. Version: 5.4.3
|
|
%% Purpose: Encoding and decoding of the types in GajumaruSerialization.
|
|
|
|
-module('GajumaruSerialization').
|
|
-moduledoc false.
|
|
-compile(nowarn_unused_vars).
|
|
-dialyzer(no_improper_lists).
|
|
-dialyzer(no_match).
|
|
-include("GajumaruSerialization.hrl").
|
|
-asn1_info([{vsn,'5.4.3'},
|
|
{module,'GajumaruSerialization'},
|
|
{options,[uper,{outdir,"asn1_optimized"},{i,"."},{i,"asn1_optimized"}]}]).
|
|
|
|
-export([encoding_rule/0,maps/0,bit_string_format/0,
|
|
legacy_erlang_types/0]).
|
|
-export(['dialyzer-suppressions'/1]).
|
|
-export([
|
|
enc_GajumaruData/1,
|
|
enc_Content/1,
|
|
enc_TemplateFields/1,
|
|
enc_TemplateField/1,
|
|
enc_StaticFields/1,
|
|
enc_Value/1,
|
|
enc_KeyValue/1,
|
|
enc_Id/1,
|
|
enc_Account/1,
|
|
enc_SignedTx/1,
|
|
enc_ContractCode/1,
|
|
enc_ContractV1/1,
|
|
enc_ContractV2/1,
|
|
enc_ContractV3/1,
|
|
enc_TypeInfoV1/1,
|
|
enc_TypeInfoV3/1
|
|
]).
|
|
|
|
-export([
|
|
dec_GajumaruData/1,
|
|
dec_Content/1,
|
|
dec_TemplateFields/1,
|
|
dec_TemplateField/1,
|
|
dec_StaticFields/1,
|
|
dec_Value/1,
|
|
dec_KeyValue/1,
|
|
dec_Id/1,
|
|
dec_Account/1,
|
|
dec_SignedTx/1,
|
|
dec_ContractCode/1,
|
|
dec_ContractV1/1,
|
|
dec_ContractV2/1,
|
|
dec_ContractV3/1,
|
|
dec_TypeInfoV1/1,
|
|
dec_TypeInfoV3/1
|
|
]).
|
|
|
|
-export([info/0]).
|
|
|
|
-export([encode/2,decode/2]).
|
|
|
|
encoding_rule() -> uper.
|
|
|
|
maps() -> false.
|
|
|
|
bit_string_format() -> bitstring.
|
|
|
|
legacy_erlang_types() -> false.
|
|
|
|
encode(Type, Data) ->
|
|
try complete(encode_disp(Type, Data)) of
|
|
Bytes ->
|
|
{ok,Bytes}
|
|
catch
|
|
Class:Exception:Stk when Class =:= error; Class =:= exit ->
|
|
case Exception of
|
|
{error,{asn1,Reason}} ->
|
|
{error,{asn1,{Reason,Stk}}};
|
|
Reason ->
|
|
{error,{asn1,{Reason,Stk}}}
|
|
end
|
|
end.
|
|
|
|
|
|
decode(Type, Data) ->
|
|
try
|
|
{Result,_Rest} = decode_disp(Type, Data),
|
|
{ok,Result}
|
|
catch
|
|
Class:Exception:Stk when Class =:= error; Class =:= exit ->
|
|
case Exception of
|
|
{error,{asn1,Reason}} ->
|
|
{error,{asn1,{Reason,Stk}}};
|
|
Reason ->
|
|
{error,{asn1,{Reason,Stk}}}
|
|
end
|
|
end.
|
|
|
|
encode_disp('GajumaruData', Data) -> enc_GajumaruData(Data);
|
|
encode_disp('Content', Data) -> enc_Content(Data);
|
|
encode_disp('TemplateFields', Data) -> enc_TemplateFields(Data);
|
|
encode_disp('TemplateField', Data) -> enc_TemplateField(Data);
|
|
encode_disp('StaticFields', Data) -> enc_StaticFields(Data);
|
|
encode_disp('Value', Data) -> enc_Value(Data);
|
|
encode_disp('KeyValue', Data) -> enc_KeyValue(Data);
|
|
encode_disp('Id', Data) -> enc_Id(Data);
|
|
encode_disp('Account', Data) -> enc_Account(Data);
|
|
encode_disp('SignedTx', Data) -> enc_SignedTx(Data);
|
|
encode_disp('ContractCode', Data) -> enc_ContractCode(Data);
|
|
encode_disp('ContractV1', Data) -> enc_ContractV1(Data);
|
|
encode_disp('ContractV2', Data) -> enc_ContractV2(Data);
|
|
encode_disp('ContractV3', Data) -> enc_ContractV3(Data);
|
|
encode_disp('TypeInfoV1', Data) -> enc_TypeInfoV1(Data);
|
|
encode_disp('TypeInfoV3', Data) -> enc_TypeInfoV3(Data);
|
|
encode_disp(Type, _Data) -> exit({error,{asn1,{undefined_type,Type}}}).
|
|
|
|
decode_disp('GajumaruData', Data) -> dec_GajumaruData(Data);
|
|
decode_disp('Content', Data) -> dec_Content(Data);
|
|
decode_disp('TemplateFields', Data) -> dec_TemplateFields(Data);
|
|
decode_disp('TemplateField', Data) -> dec_TemplateField(Data);
|
|
decode_disp('StaticFields', Data) -> dec_StaticFields(Data);
|
|
decode_disp('Value', Data) -> dec_Value(Data);
|
|
decode_disp('KeyValue', Data) -> dec_KeyValue(Data);
|
|
decode_disp('Id', Data) -> dec_Id(Data);
|
|
decode_disp('Account', Data) -> dec_Account(Data);
|
|
decode_disp('SignedTx', Data) -> dec_SignedTx(Data);
|
|
decode_disp('ContractCode', Data) -> dec_ContractCode(Data);
|
|
decode_disp('ContractV1', Data) -> dec_ContractV1(Data);
|
|
decode_disp('ContractV2', Data) -> dec_ContractV2(Data);
|
|
decode_disp('ContractV3', Data) -> dec_ContractV3(Data);
|
|
decode_disp('TypeInfoV1', Data) -> dec_TypeInfoV1(Data);
|
|
decode_disp('TypeInfoV3', Data) -> dec_TypeInfoV3(Data);
|
|
decode_disp(Type, _Data) -> exit({error,{asn1,{undefined_type,Type}}}).
|
|
|
|
info() ->
|
|
case ?MODULE:module_info(attributes) of
|
|
Attributes when is_list(Attributes) ->
|
|
case lists:keyfind(asn1_info, 1, Attributes) of
|
|
{_,Info} when is_list(Info) ->
|
|
Info;
|
|
_ ->
|
|
[]
|
|
end;
|
|
_ ->
|
|
[]
|
|
end.
|
|
enc_GajumaruData(Val) ->
|
|
[begin
|
|
%% attribute tag(1) with type INTEGER
|
|
Enc1@element = element(2, Val),
|
|
if Enc1@element bsr 16 =:= 0 ->
|
|
<<Enc1@element:16>>;
|
|
true ->
|
|
exit({error,{asn1,{illegal_integer,Enc1@element}}})
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute vsn(2) with type INTEGER
|
|
Enc3@element = element(3, Val),
|
|
if Enc3@element bsr 8 =:= 0 ->
|
|
Enc3@element;
|
|
true ->
|
|
exit({error,{asn1,{illegal_integer,Enc3@element}}})
|
|
end
|
|
end|begin
|
|
%% attribute content(3) with type Content
|
|
Enc5@element = element(4, Val),
|
|
enc_Content(Enc5@element)
|
|
end].
|
|
|
|
|
|
dec_GajumaruData(Bytes) ->
|
|
|
|
%% attribute tag(1) with type INTEGER
|
|
{Term1,Bytes1} = begin
|
|
<<V1@V0:16,V1@Buf1/bitstring>> = Bytes,
|
|
{V1@V0,V1@Buf1}
|
|
end,
|
|
|
|
%% attribute vsn(2) with type INTEGER
|
|
{Term2,Bytes2} = begin
|
|
<<V2@V0:8,V2@Buf1/bitstring>> = Bytes1,
|
|
{V2@V0,V2@Buf1}
|
|
end,
|
|
|
|
%% attribute content(3) with type Content
|
|
{Term3,Bytes3} = dec_Content(Bytes2),
|
|
Res1 = {'GajumaruData',Term1,Term2,Term3},
|
|
{Res1,Bytes3}.
|
|
|
|
enc_Content(Val) ->
|
|
{ChoiceTag,ChoiceVal} = Val,
|
|
if ChoiceTag =:= templateFields ->
|
|
[<<0:3>>|enc_TemplateFields(ChoiceVal)];
|
|
ChoiceTag =:= staticFields ->
|
|
[<<1:3>>|enc_StaticFields(ChoiceVal)];
|
|
ChoiceTag =:= account ->
|
|
[<<2:3>>|enc_Account(ChoiceVal)];
|
|
ChoiceTag =:= signedTx ->
|
|
[<<3:3>>|enc_SignedTx(ChoiceVal)];
|
|
ChoiceTag =:= contract ->
|
|
[<<4:3>>|enc_ContractCode(ChoiceVal)]
|
|
end.
|
|
|
|
|
|
dec_Content(Bytes) ->
|
|
{Choice,Bytes1} =
|
|
begin
|
|
<<V1@V0:3,V1@Buf1/bitstring>> = Bytes,
|
|
{V1@V0,V1@Buf1}
|
|
end,
|
|
case Choice of
|
|
0 ->
|
|
{Val,NewBytes} = begin
|
|
dec_TemplateFields(Bytes1)
|
|
end,
|
|
{{templateFields,Val},NewBytes};
|
|
1 ->
|
|
{Val,NewBytes} = begin
|
|
dec_StaticFields(Bytes1)
|
|
end,
|
|
{{staticFields,Val},NewBytes};
|
|
2 ->
|
|
{Val,NewBytes} = begin
|
|
dec_Account(Bytes1)
|
|
end,
|
|
{{account,Val},NewBytes};
|
|
3 ->
|
|
{Val,NewBytes} = begin
|
|
dec_SignedTx(Bytes1)
|
|
end,
|
|
{{signedTx,Val},NewBytes};
|
|
4 ->
|
|
{Val,NewBytes} = begin
|
|
dec_ContractCode(Bytes1)
|
|
end,
|
|
{{contract,Val},NewBytes}
|
|
end.
|
|
enc_TemplateFields(Val) ->
|
|
Enc1@len = length(Val),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|[enc_TemplateField(Comp) || Comp <- Val]];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|[enc_TemplateField(Comp) || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc1@fn = fun(Comp) -> enc_TemplateField(Comp) end,
|
|
encode_fragmented_sof(Enc1@fn, Val, Enc1@len)
|
|
end
|
|
end.
|
|
|
|
|
|
|
|
dec_TemplateFields(Bytes) ->
|
|
dec_components1(Bytes, []).
|
|
|
|
enc_TemplateField(Val) ->
|
|
[begin
|
|
Enc1@element = element(2, Val),
|
|
if Enc1@element =:= asn1_NOVALUE ->
|
|
<<0:1>>;
|
|
true ->
|
|
<<1:1>>
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute name(1) with type IA5String
|
|
Enc2@element = element(2, Val),
|
|
if Enc2@element =:= asn1_NOVALUE ->
|
|
[];
|
|
true ->
|
|
begin
|
|
Enc3@len = length(Enc2@element),
|
|
Enc3@bin = encode_chars(Enc2@element, 7),
|
|
if Enc3@len < 128 ->
|
|
[Enc3@len|Enc3@bin];
|
|
Enc3@len < 16384 ->
|
|
[<<2:2,Enc3@len:14>>|Enc3@bin];
|
|
true ->
|
|
encode_fragmented(Enc3@bin, 7)
|
|
end
|
|
end
|
|
end
|
|
end|begin
|
|
%% attribute value(2) with type Value
|
|
Enc5@element = element(3, Val),
|
|
enc_Value(Enc5@element)
|
|
end].
|
|
|
|
|
|
dec_TemplateField(Bytes) ->
|
|
{Opt,Bytes1} = begin
|
|
<<V1@V0:1,V1@Buf1/bitstring>> = Bytes,
|
|
{V1@V0,V1@Buf1}
|
|
end,
|
|
|
|
%% attribute name(1) with type IA5String
|
|
{Term1,Bytes2} = case Opt band 1 of
|
|
1 ->
|
|
begin
|
|
{V2@V0,V2@Buf1} = case Bytes1 of
|
|
<<0:1,V2@V3:7,V2@V5:V2@V3/binary-unit:7,V2@Buf6/bitstring>> ->
|
|
{V2@V5,V2@Buf6};
|
|
<<1:1,0:1,V2@V4:14,V2@V6:V2@V4/binary-unit:7,V2@Buf7/bitstring>> ->
|
|
{V2@V6,V2@Buf7};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> ->
|
|
{V2@V6,V2@Buf7} = decode_fragmented(V2@V4, V2@Buf5, 7),
|
|
{V2@V6,V2@Buf7}
|
|
end,
|
|
{V2@V8,V2@Buf9} = {decode_chars(V2@V0, 7),V2@Buf1},
|
|
{V2@V8,V2@Buf9}
|
|
end;
|
|
0 ->
|
|
{asn1_NOVALUE,Bytes1}
|
|
end,
|
|
|
|
%% attribute value(2) with type Value
|
|
{Term2,Bytes3} = dec_Value(Bytes2),
|
|
Res1 = {'TemplateField',Term1,Term2},
|
|
{Res1,Bytes3}.
|
|
|
|
enc_StaticFields(Val) ->
|
|
Enc1@len = length(Val),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|[enc_Value(Comp) || Comp <- Val]];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|[enc_Value(Comp) || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc1@fn = fun(Comp) -> enc_Value(Comp) end,
|
|
encode_fragmented_sof(Enc1@fn, Val, Enc1@len)
|
|
end
|
|
end.
|
|
|
|
|
|
|
|
dec_StaticFields(Bytes) ->
|
|
dec_components2(Bytes, []).
|
|
|
|
enc_Value(Val) ->
|
|
{ChoiceTag,ChoiceVal} = Val,
|
|
if ChoiceTag =:= intValue ->
|
|
[<<0:3>>|encode_unconstrained_number(ChoiceVal)];
|
|
ChoiceTag =:= boolValue ->
|
|
if ChoiceVal =:= false ->
|
|
<<1:3,0:1>>;
|
|
ChoiceVal =:= true ->
|
|
<<1:3,1:1>>;
|
|
true ->
|
|
exit({error,{asn1,{illegal_boolean,ChoiceVal}}})
|
|
end;
|
|
ChoiceTag =:= binaryValue ->
|
|
[<<2:3>>|begin
|
|
Enc6@len = byte_size(ChoiceVal),
|
|
if Enc6@len < 128 ->
|
|
[Enc6@len|ChoiceVal];
|
|
Enc6@len < 16384 ->
|
|
[<<2:2,Enc6@len:14>>|ChoiceVal];
|
|
true ->
|
|
encode_fragmented(ChoiceVal, 8)
|
|
end
|
|
end];
|
|
ChoiceTag =:= idValue ->
|
|
[<<3:3>>|enc_Id(ChoiceVal)];
|
|
ChoiceTag =:= listValue ->
|
|
[<<4:3>>|enc_Value_listValue(ChoiceVal)];
|
|
ChoiceTag =:= tupleValue ->
|
|
[<<5:3>>|enc_Value_tupleValue(ChoiceVal)];
|
|
ChoiceTag =:= mapValue ->
|
|
[<<6:3>>|enc_Value_mapValue(ChoiceVal)]
|
|
end.
|
|
enc_Value_listValue(Val) ->
|
|
Enc1@len = length(Val),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|[enc_Value(Comp) || Comp <- Val]];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|[enc_Value(Comp) || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc1@fn = fun(Comp) -> enc_Value(Comp) end,
|
|
encode_fragmented_sof(Enc1@fn, Val, Enc1@len)
|
|
end
|
|
end.
|
|
|
|
enc_Value_tupleValue(Val) ->
|
|
Enc1@len = length(Val),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|[enc_Value(Comp) || Comp <- Val]];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|[enc_Value(Comp) || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc1@fn = fun(Comp) -> enc_Value(Comp) end,
|
|
encode_fragmented_sof(Enc1@fn, Val, Enc1@len)
|
|
end
|
|
end.
|
|
|
|
enc_Value_mapValue(Val) ->
|
|
Enc1@len = length(Val),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|[enc_KeyValue(Comp) || Comp <- Val]];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|[enc_KeyValue(Comp) || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc1@fn = fun(Comp) -> enc_KeyValue(Comp) end,
|
|
encode_fragmented_sof(Enc1@fn, Val, Enc1@len)
|
|
end
|
|
end.
|
|
|
|
|
|
|
|
dec_Value(Bytes) ->
|
|
{Choice,Bytes1} =
|
|
begin
|
|
<<V1@V0:3,V1@Buf1/bitstring>> = Bytes,
|
|
{V1@V0,V1@Buf1}
|
|
end,
|
|
case Choice of
|
|
0 ->
|
|
{Val,NewBytes} = begin
|
|
begin
|
|
{V2@V0,V2@Buf1} = case Bytes1 of
|
|
<<0:1,V2@V3:7,V2@Buf4/bitstring>> when V2@V3 =/= 0 ->
|
|
{V2@V3,V2@Buf4};
|
|
<<1:1,0:1,V2@V4:14,V2@Buf5/bitstring>> when V2@V4 =/= 0 ->
|
|
{V2@V4,V2@Buf5};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> when V2@V4 =/= 0 ->
|
|
V2@Mul6 = V2@V4 * 16384,
|
|
{V2@Mul6,V2@Buf5}
|
|
end,
|
|
<<V2@V7:V2@V0/signed-unit:8,V2@Buf8/bitstring>> = V2@Buf1,
|
|
{V2@V7,V2@Buf8}
|
|
end
|
|
end,
|
|
{{intValue,Val},NewBytes};
|
|
1 ->
|
|
{Val,NewBytes} = begin
|
|
begin
|
|
<<V3@V0:1,V3@Buf1/bitstring>> = Bytes1,
|
|
V3@Int2 = case V3@V0 of
|
|
0 -> false;
|
|
1 -> true
|
|
end,
|
|
{V3@Int2,V3@Buf1}
|
|
end
|
|
end,
|
|
{{boolValue,Val},NewBytes};
|
|
2 ->
|
|
{Val,NewBytes} = begin
|
|
begin
|
|
{V4@V0,V4@Buf1} = case Bytes1 of
|
|
<<0:1,V4@V3:7,V4@V5:V4@V3/binary-unit:8,V4@Buf6/bitstring>> ->
|
|
{V4@V5,V4@Buf6};
|
|
<<1:1,0:1,V4@V4:14,V4@V6:V4@V4/binary-unit:8,V4@Buf7/bitstring>> ->
|
|
{V4@V6,V4@Buf7};
|
|
<<1:1,1:1,V4@V4:6,V4@Buf5/bitstring>> ->
|
|
{V4@V6,V4@Buf7} = decode_fragmented(V4@V4, V4@Buf5, 8),
|
|
{V4@V6,V4@Buf7}
|
|
end,
|
|
V4@Conv8 = binary:copy(V4@V0),
|
|
{V4@Conv8,V4@Buf1}
|
|
end
|
|
end,
|
|
{{binaryValue,Val},NewBytes};
|
|
3 ->
|
|
{Val,NewBytes} = begin
|
|
dec_Id(Bytes1)
|
|
end,
|
|
{{idValue,Val},NewBytes};
|
|
4 ->
|
|
{Val,NewBytes} = begin
|
|
dec_Value_listValue(Bytes1)
|
|
end,
|
|
{{listValue,Val},NewBytes};
|
|
5 ->
|
|
{Val,NewBytes} = begin
|
|
dec_Value_tupleValue(Bytes1)
|
|
end,
|
|
{{tupleValue,Val},NewBytes};
|
|
6 ->
|
|
{Val,NewBytes} = begin
|
|
dec_Value_mapValue(Bytes1)
|
|
end,
|
|
{{mapValue,Val},NewBytes}
|
|
end.
|
|
|
|
dec_Value_listValue(Bytes) ->
|
|
dec_components3(Bytes, []).
|
|
|
|
|
|
dec_Value_tupleValue(Bytes) ->
|
|
dec_components4(Bytes, []).
|
|
|
|
|
|
dec_Value_mapValue(Bytes) ->
|
|
dec_components5(Bytes, []).
|
|
|
|
enc_KeyValue(Val) ->
|
|
[begin
|
|
%% attribute key(1) with type Value
|
|
Enc1@element = element(2, Val),
|
|
enc_Value(Enc1@element)
|
|
end|begin
|
|
%% attribute val(2) with type Value
|
|
Enc2@element = element(3, Val),
|
|
enc_Value(Enc2@element)
|
|
end].
|
|
|
|
|
|
dec_KeyValue(Bytes) ->
|
|
|
|
%% attribute key(1) with type Value
|
|
{Term1,Bytes1} = dec_Value(Bytes),
|
|
|
|
%% attribute val(2) with type Value
|
|
{Term2,Bytes2} = dec_Value(Bytes1),
|
|
Res1 = {'KeyValue',Term1,Term2},
|
|
{Res1,Bytes2}.
|
|
|
|
enc_Id(Val) ->
|
|
[begin
|
|
%% attribute type(1) with type INTEGER
|
|
Enc1@element = element(2, Val),
|
|
if Enc1@element bsr 8 =:= 0 ->
|
|
Enc1@element;
|
|
true ->
|
|
exit({error,{asn1,{illegal_integer,Enc1@element}}})
|
|
end
|
|
end|begin
|
|
%% attribute value(2) with type OCTET STRING
|
|
Enc3@element = element(3, Val),
|
|
Enc4@len = byte_size(Enc3@element),
|
|
if Enc4@len =:= 32 ->
|
|
Enc3@element
|
|
end
|
|
end].
|
|
|
|
|
|
dec_Id(Bytes) ->
|
|
|
|
%% attribute type(1) with type INTEGER
|
|
{Term1,Bytes1} = begin
|
|
<<V1@V0:8,V1@Buf1/bitstring>> = Bytes,
|
|
{V1@V0,V1@Buf1}
|
|
end,
|
|
|
|
%% attribute value(2) with type OCTET STRING
|
|
{Term2,Bytes2} = begin
|
|
<<V2@V0:32/binary-unit:8,V2@Buf1/bitstring>> = Bytes1,
|
|
V2@Conv2 = binary:copy(V2@V0),
|
|
{V2@Conv2,V2@Buf1}
|
|
end,
|
|
Res1 = {'Id',Term1,Term2},
|
|
{Res1,Bytes2}.
|
|
|
|
enc_Account(Val) ->
|
|
[begin
|
|
%% attribute foo(1) with type INTEGER
|
|
Enc1@element = element(2, Val),
|
|
encode_unconstrained_number(Enc1@element)
|
|
end|begin
|
|
%% attribute bar(2) with type OCTET STRING
|
|
Enc3@element = element(3, Val),
|
|
Enc4@len = byte_size(Enc3@element),
|
|
if Enc4@len < 128 ->
|
|
[Enc4@len|Enc3@element];
|
|
Enc4@len < 16384 ->
|
|
[<<2:2,Enc4@len:14>>|Enc3@element];
|
|
true ->
|
|
encode_fragmented(Enc3@element, 8)
|
|
end
|
|
end].
|
|
|
|
|
|
dec_Account(Bytes) ->
|
|
|
|
%% attribute foo(1) with type INTEGER
|
|
{Term1,Bytes1} = begin
|
|
{V1@V0,V1@Buf1} = case Bytes of
|
|
<<0:1,V1@V3:7,V1@Buf4/bitstring>> when V1@V3 =/= 0 ->
|
|
{V1@V3,V1@Buf4};
|
|
<<1:1,0:1,V1@V4:14,V1@Buf5/bitstring>> when V1@V4 =/= 0 ->
|
|
{V1@V4,V1@Buf5};
|
|
<<1:1,1:1,V1@V4:6,V1@Buf5/bitstring>> when V1@V4 =/= 0 ->
|
|
V1@Mul6 = V1@V4 * 16384,
|
|
{V1@Mul6,V1@Buf5}
|
|
end,
|
|
<<V1@V7:V1@V0/signed-unit:8,V1@Buf8/bitstring>> = V1@Buf1,
|
|
{V1@V7,V1@Buf8}
|
|
end,
|
|
|
|
%% attribute bar(2) with type OCTET STRING
|
|
{Term2,Bytes2} = begin
|
|
{V2@V0,V2@Buf1} = case Bytes1 of
|
|
<<0:1,V2@V3:7,V2@V5:V2@V3/binary-unit:8,V2@Buf6/bitstring>> ->
|
|
{V2@V5,V2@Buf6};
|
|
<<1:1,0:1,V2@V4:14,V2@V6:V2@V4/binary-unit:8,V2@Buf7/bitstring>> ->
|
|
{V2@V6,V2@Buf7};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> ->
|
|
{V2@V6,V2@Buf7} = decode_fragmented(V2@V4, V2@Buf5, 8),
|
|
{V2@V6,V2@Buf7}
|
|
end,
|
|
V2@Conv8 = binary:copy(V2@V0),
|
|
{V2@Conv8,V2@Buf1}
|
|
end,
|
|
Res1 = {'Account',Term1,Term2},
|
|
{Res1,Bytes2}.
|
|
|
|
enc_SignedTx(Val) ->
|
|
[begin
|
|
%% attribute signatures(1) with type SEQUENCE OF
|
|
Enc1@element = element(2, Val),
|
|
enc_SignedTx_signatures(Enc1@element)
|
|
end|begin
|
|
%% attribute transaction(2) with type OCTET STRING
|
|
Enc2@element = element(3, Val),
|
|
Enc3@len = byte_size(Enc2@element),
|
|
if Enc3@len < 128 ->
|
|
[Enc3@len|Enc2@element];
|
|
Enc3@len < 16384 ->
|
|
[<<2:2,Enc3@len:14>>|Enc2@element];
|
|
true ->
|
|
encode_fragmented(Enc2@element, 8)
|
|
end
|
|
end].
|
|
enc_SignedTx_signatures(Val) ->
|
|
Enc2@len = length(Val),
|
|
if Enc2@len < 128 ->
|
|
[Enc2@len|[begin
|
|
Enc1@len = byte_size(Comp),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|Comp];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|Comp];
|
|
true ->
|
|
encode_fragmented(Comp, 8)
|
|
end
|
|
end || Comp <- Val]];
|
|
Enc2@len < 16384 ->
|
|
[<<2:2,Enc2@len:14>>|[begin
|
|
Enc1@len = byte_size(Comp),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|Comp];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|Comp];
|
|
true ->
|
|
encode_fragmented(Comp, 8)
|
|
end
|
|
end || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc2@fn = fun(Comp) -> begin
|
|
Enc1@len = byte_size(Comp),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|Comp];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|Comp];
|
|
true ->
|
|
encode_fragmented(Comp, 8)
|
|
end
|
|
end end,
|
|
encode_fragmented_sof(Enc2@fn, Val, Enc2@len)
|
|
end
|
|
end.
|
|
|
|
|
|
|
|
dec_SignedTx(Bytes) ->
|
|
|
|
%% attribute signatures(1) with type SEQUENCE OF
|
|
{Term1,Bytes1} = dec_SignedTx_signatures(Bytes),
|
|
|
|
%% attribute transaction(2) with type OCTET STRING
|
|
{Term2,Bytes2} = begin
|
|
{V1@V0,V1@Buf1} = case Bytes1 of
|
|
<<0:1,V1@V3:7,V1@V5:V1@V3/binary-unit:8,V1@Buf6/bitstring>> ->
|
|
{V1@V5,V1@Buf6};
|
|
<<1:1,0:1,V1@V4:14,V1@V6:V1@V4/binary-unit:8,V1@Buf7/bitstring>> ->
|
|
{V1@V6,V1@Buf7};
|
|
<<1:1,1:1,V1@V4:6,V1@Buf5/bitstring>> ->
|
|
{V1@V6,V1@Buf7} = decode_fragmented(V1@V4, V1@Buf5, 8),
|
|
{V1@V6,V1@Buf7}
|
|
end,
|
|
V1@Conv8 = binary:copy(V1@V0),
|
|
{V1@Conv8,V1@Buf1}
|
|
end,
|
|
Res1 = {'SignedTx',Term1,Term2},
|
|
{Res1,Bytes2}.
|
|
|
|
|
|
dec_SignedTx_signatures(Bytes) ->
|
|
dec_components6(Bytes, []).
|
|
|
|
enc_ContractCode(Val) ->
|
|
{ChoiceTag,ChoiceVal} = Val,
|
|
if ChoiceTag =:= v1 ->
|
|
[<<0:2>>|enc_ContractV1(ChoiceVal)];
|
|
ChoiceTag =:= v2 ->
|
|
[<<1:2>>|enc_ContractV2(ChoiceVal)];
|
|
ChoiceTag =:= v3 ->
|
|
[<<2:2>>|enc_ContractV3(ChoiceVal)]
|
|
end.
|
|
|
|
|
|
dec_ContractCode(Bytes) ->
|
|
{Choice,Bytes1} =
|
|
begin
|
|
<<V1@V0:2,V1@Buf1/bitstring>> = Bytes,
|
|
{V1@V0,V1@Buf1}
|
|
end,
|
|
case Choice of
|
|
0 ->
|
|
{Val,NewBytes} = begin
|
|
dec_ContractV1(Bytes1)
|
|
end,
|
|
{{v1,Val},NewBytes};
|
|
1 ->
|
|
{Val,NewBytes} = begin
|
|
dec_ContractV2(Bytes1)
|
|
end,
|
|
{{v2,Val},NewBytes};
|
|
2 ->
|
|
{Val,NewBytes} = begin
|
|
dec_ContractV3(Bytes1)
|
|
end,
|
|
{{v3,Val},NewBytes}
|
|
end.
|
|
enc_ContractV1(Val) ->
|
|
[begin
|
|
%% attribute sourceHash(1) with type OCTET STRING
|
|
Enc1@element = element(2, Val),
|
|
Enc2@len = byte_size(Enc1@element),
|
|
if Enc2@len < 128 ->
|
|
[Enc2@len|Enc1@element];
|
|
Enc2@len < 16384 ->
|
|
[<<2:2,Enc2@len:14>>|Enc1@element];
|
|
true ->
|
|
encode_fragmented(Enc1@element, 8)
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute typeInfo(2) with type SEQUENCE OF
|
|
Enc3@element = element(3, Val),
|
|
enc_ContractV1_typeInfo(Enc3@element)
|
|
end|begin
|
|
%% attribute byteCode(3) with type OCTET STRING
|
|
Enc4@element = element(4, Val),
|
|
Enc5@len = byte_size(Enc4@element),
|
|
if Enc5@len < 128 ->
|
|
[Enc5@len|Enc4@element];
|
|
Enc5@len < 16384 ->
|
|
[<<2:2,Enc5@len:14>>|Enc4@element];
|
|
true ->
|
|
encode_fragmented(Enc4@element, 8)
|
|
end
|
|
end].
|
|
enc_ContractV1_typeInfo(Val) ->
|
|
Enc1@len = length(Val),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|[enc_TypeInfoV1(Comp) || Comp <- Val]];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|[enc_TypeInfoV1(Comp) || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc1@fn = fun(Comp) -> enc_TypeInfoV1(Comp) end,
|
|
encode_fragmented_sof(Enc1@fn, Val, Enc1@len)
|
|
end
|
|
end.
|
|
|
|
|
|
|
|
dec_ContractV1(Bytes) ->
|
|
|
|
%% attribute sourceHash(1) with type OCTET STRING
|
|
{Term1,Bytes1} = begin
|
|
{V1@V0,V1@Buf1} = case Bytes of
|
|
<<0:1,V1@V3:7,V1@V5:V1@V3/binary-unit:8,V1@Buf6/bitstring>> ->
|
|
{V1@V5,V1@Buf6};
|
|
<<1:1,0:1,V1@V4:14,V1@V6:V1@V4/binary-unit:8,V1@Buf7/bitstring>> ->
|
|
{V1@V6,V1@Buf7};
|
|
<<1:1,1:1,V1@V4:6,V1@Buf5/bitstring>> ->
|
|
{V1@V6,V1@Buf7} = decode_fragmented(V1@V4, V1@Buf5, 8),
|
|
{V1@V6,V1@Buf7}
|
|
end,
|
|
V1@Conv8 = binary:copy(V1@V0),
|
|
{V1@Conv8,V1@Buf1}
|
|
end,
|
|
|
|
%% attribute typeInfo(2) with type SEQUENCE OF
|
|
{Term2,Bytes2} = dec_ContractV1_typeInfo(Bytes1),
|
|
|
|
%% attribute byteCode(3) with type OCTET STRING
|
|
{Term3,Bytes3} = begin
|
|
{V2@V0,V2@Buf1} = case Bytes2 of
|
|
<<0:1,V2@V3:7,V2@V5:V2@V3/binary-unit:8,V2@Buf6/bitstring>> ->
|
|
{V2@V5,V2@Buf6};
|
|
<<1:1,0:1,V2@V4:14,V2@V6:V2@V4/binary-unit:8,V2@Buf7/bitstring>> ->
|
|
{V2@V6,V2@Buf7};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> ->
|
|
{V2@V6,V2@Buf7} = decode_fragmented(V2@V4, V2@Buf5, 8),
|
|
{V2@V6,V2@Buf7}
|
|
end,
|
|
V2@Conv8 = binary:copy(V2@V0),
|
|
{V2@Conv8,V2@Buf1}
|
|
end,
|
|
Res1 = {'ContractV1',Term1,Term2,Term3},
|
|
{Res1,Bytes3}.
|
|
|
|
|
|
dec_ContractV1_typeInfo(Bytes) ->
|
|
dec_components7(Bytes, []).
|
|
|
|
enc_ContractV2(Val) ->
|
|
[begin
|
|
%% attribute sourceHash(1) with type OCTET STRING
|
|
Enc1@element = element(2, Val),
|
|
Enc2@len = byte_size(Enc1@element),
|
|
if Enc2@len < 128 ->
|
|
[Enc2@len|Enc1@element];
|
|
Enc2@len < 16384 ->
|
|
[<<2:2,Enc2@len:14>>|Enc1@element];
|
|
true ->
|
|
encode_fragmented(Enc1@element, 8)
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute typeInfo(2) with type SEQUENCE OF
|
|
Enc3@element = element(3, Val),
|
|
enc_ContractV2_typeInfo(Enc3@element)
|
|
end,
|
|
begin
|
|
%% attribute byteCode(3) with type OCTET STRING
|
|
Enc4@element = element(4, Val),
|
|
Enc5@len = byte_size(Enc4@element),
|
|
if Enc5@len < 128 ->
|
|
[Enc5@len|Enc4@element];
|
|
Enc5@len < 16384 ->
|
|
[<<2:2,Enc5@len:14>>|Enc4@element];
|
|
true ->
|
|
encode_fragmented(Enc4@element, 8)
|
|
end
|
|
end|begin
|
|
%% attribute compilerVersion(4) with type OCTET STRING
|
|
Enc6@element = element(5, Val),
|
|
Enc7@len = byte_size(Enc6@element),
|
|
if Enc7@len < 128 ->
|
|
[Enc7@len|Enc6@element];
|
|
Enc7@len < 16384 ->
|
|
[<<2:2,Enc7@len:14>>|Enc6@element];
|
|
true ->
|
|
encode_fragmented(Enc6@element, 8)
|
|
end
|
|
end].
|
|
enc_ContractV2_typeInfo(Val) ->
|
|
Enc1@len = length(Val),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|[enc_TypeInfoV1(Comp) || Comp <- Val]];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|[enc_TypeInfoV1(Comp) || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc1@fn = fun(Comp) -> enc_TypeInfoV1(Comp) end,
|
|
encode_fragmented_sof(Enc1@fn, Val, Enc1@len)
|
|
end
|
|
end.
|
|
|
|
|
|
|
|
dec_ContractV2(Bytes) ->
|
|
|
|
%% attribute sourceHash(1) with type OCTET STRING
|
|
{Term1,Bytes1} = begin
|
|
{V1@V0,V1@Buf1} = case Bytes of
|
|
<<0:1,V1@V3:7,V1@V5:V1@V3/binary-unit:8,V1@Buf6/bitstring>> ->
|
|
{V1@V5,V1@Buf6};
|
|
<<1:1,0:1,V1@V4:14,V1@V6:V1@V4/binary-unit:8,V1@Buf7/bitstring>> ->
|
|
{V1@V6,V1@Buf7};
|
|
<<1:1,1:1,V1@V4:6,V1@Buf5/bitstring>> ->
|
|
{V1@V6,V1@Buf7} = decode_fragmented(V1@V4, V1@Buf5, 8),
|
|
{V1@V6,V1@Buf7}
|
|
end,
|
|
V1@Conv8 = binary:copy(V1@V0),
|
|
{V1@Conv8,V1@Buf1}
|
|
end,
|
|
|
|
%% attribute typeInfo(2) with type SEQUENCE OF
|
|
{Term2,Bytes2} = dec_ContractV2_typeInfo(Bytes1),
|
|
|
|
%% attribute byteCode(3) with type OCTET STRING
|
|
{Term3,Bytes3} = begin
|
|
{V2@V0,V2@Buf1} = case Bytes2 of
|
|
<<0:1,V2@V3:7,V2@V5:V2@V3/binary-unit:8,V2@Buf6/bitstring>> ->
|
|
{V2@V5,V2@Buf6};
|
|
<<1:1,0:1,V2@V4:14,V2@V6:V2@V4/binary-unit:8,V2@Buf7/bitstring>> ->
|
|
{V2@V6,V2@Buf7};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> ->
|
|
{V2@V6,V2@Buf7} = decode_fragmented(V2@V4, V2@Buf5, 8),
|
|
{V2@V6,V2@Buf7}
|
|
end,
|
|
V2@Conv8 = binary:copy(V2@V0),
|
|
{V2@Conv8,V2@Buf1}
|
|
end,
|
|
|
|
%% attribute compilerVersion(4) with type OCTET STRING
|
|
{Term4,Bytes4} = begin
|
|
{V3@V0,V3@Buf1} = case Bytes3 of
|
|
<<0:1,V3@V3:7,V3@V5:V3@V3/binary-unit:8,V3@Buf6/bitstring>> ->
|
|
{V3@V5,V3@Buf6};
|
|
<<1:1,0:1,V3@V4:14,V3@V6:V3@V4/binary-unit:8,V3@Buf7/bitstring>> ->
|
|
{V3@V6,V3@Buf7};
|
|
<<1:1,1:1,V3@V4:6,V3@Buf5/bitstring>> ->
|
|
{V3@V6,V3@Buf7} = decode_fragmented(V3@V4, V3@Buf5, 8),
|
|
{V3@V6,V3@Buf7}
|
|
end,
|
|
V3@Conv8 = binary:copy(V3@V0),
|
|
{V3@Conv8,V3@Buf1}
|
|
end,
|
|
Res1 = {'ContractV2',Term1,Term2,Term3,Term4},
|
|
{Res1,Bytes4}.
|
|
|
|
|
|
dec_ContractV2_typeInfo(Bytes) ->
|
|
dec_components8(Bytes, []).
|
|
|
|
enc_ContractV3(Val) ->
|
|
[begin
|
|
%% attribute sourceHash(1) with type OCTET STRING
|
|
Enc1@element = element(2, Val),
|
|
Enc2@len = byte_size(Enc1@element),
|
|
if Enc2@len < 128 ->
|
|
[Enc2@len|Enc1@element];
|
|
Enc2@len < 16384 ->
|
|
[<<2:2,Enc2@len:14>>|Enc1@element];
|
|
true ->
|
|
encode_fragmented(Enc1@element, 8)
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute typeInfo(2) with type SEQUENCE OF
|
|
Enc3@element = element(3, Val),
|
|
enc_ContractV3_typeInfo(Enc3@element)
|
|
end,
|
|
begin
|
|
%% attribute byteCode(3) with type OCTET STRING
|
|
Enc4@element = element(4, Val),
|
|
Enc5@len = byte_size(Enc4@element),
|
|
if Enc5@len < 128 ->
|
|
[Enc5@len|Enc4@element];
|
|
Enc5@len < 16384 ->
|
|
[<<2:2,Enc5@len:14>>|Enc4@element];
|
|
true ->
|
|
encode_fragmented(Enc4@element, 8)
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute compilerVersion(4) with type OCTET STRING
|
|
Enc6@element = element(5, Val),
|
|
Enc7@len = byte_size(Enc6@element),
|
|
if Enc7@len < 128 ->
|
|
[Enc7@len|Enc6@element];
|
|
Enc7@len < 16384 ->
|
|
[<<2:2,Enc7@len:14>>|Enc6@element];
|
|
true ->
|
|
encode_fragmented(Enc6@element, 8)
|
|
end
|
|
end|begin
|
|
%% attribute payable(5) with type BOOLEAN
|
|
Enc8@element = element(6, Val),
|
|
if Enc8@element =:= false ->
|
|
<<0:1>>;
|
|
Enc8@element =:= true ->
|
|
<<1:1>>;
|
|
true ->
|
|
exit({error,{asn1,{illegal_boolean,Enc8@element}}})
|
|
end
|
|
end].
|
|
enc_ContractV3_typeInfo(Val) ->
|
|
Enc1@len = length(Val),
|
|
if Enc1@len < 128 ->
|
|
[Enc1@len|[enc_TypeInfoV3(Comp) || Comp <- Val]];
|
|
Enc1@len < 16384 ->
|
|
[<<2:2,Enc1@len:14>>|[enc_TypeInfoV3(Comp) || Comp <- Val]];
|
|
true ->
|
|
begin
|
|
Enc1@fn = fun(Comp) -> enc_TypeInfoV3(Comp) end,
|
|
encode_fragmented_sof(Enc1@fn, Val, Enc1@len)
|
|
end
|
|
end.
|
|
|
|
|
|
|
|
dec_ContractV3(Bytes) ->
|
|
|
|
%% attribute sourceHash(1) with type OCTET STRING
|
|
{Term1,Bytes1} = begin
|
|
{V1@V0,V1@Buf1} = case Bytes of
|
|
<<0:1,V1@V3:7,V1@V5:V1@V3/binary-unit:8,V1@Buf6/bitstring>> ->
|
|
{V1@V5,V1@Buf6};
|
|
<<1:1,0:1,V1@V4:14,V1@V6:V1@V4/binary-unit:8,V1@Buf7/bitstring>> ->
|
|
{V1@V6,V1@Buf7};
|
|
<<1:1,1:1,V1@V4:6,V1@Buf5/bitstring>> ->
|
|
{V1@V6,V1@Buf7} = decode_fragmented(V1@V4, V1@Buf5, 8),
|
|
{V1@V6,V1@Buf7}
|
|
end,
|
|
V1@Conv8 = binary:copy(V1@V0),
|
|
{V1@Conv8,V1@Buf1}
|
|
end,
|
|
|
|
%% attribute typeInfo(2) with type SEQUENCE OF
|
|
{Term2,Bytes2} = dec_ContractV3_typeInfo(Bytes1),
|
|
|
|
%% attribute byteCode(3) with type OCTET STRING
|
|
{Term3,Bytes3} = begin
|
|
{V2@V0,V2@Buf1} = case Bytes2 of
|
|
<<0:1,V2@V3:7,V2@V5:V2@V3/binary-unit:8,V2@Buf6/bitstring>> ->
|
|
{V2@V5,V2@Buf6};
|
|
<<1:1,0:1,V2@V4:14,V2@V6:V2@V4/binary-unit:8,V2@Buf7/bitstring>> ->
|
|
{V2@V6,V2@Buf7};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> ->
|
|
{V2@V6,V2@Buf7} = decode_fragmented(V2@V4, V2@Buf5, 8),
|
|
{V2@V6,V2@Buf7}
|
|
end,
|
|
V2@Conv8 = binary:copy(V2@V0),
|
|
{V2@Conv8,V2@Buf1}
|
|
end,
|
|
|
|
%% attribute compilerVersion(4) with type OCTET STRING
|
|
{Term4,Bytes4} = begin
|
|
{V3@V0,V3@Buf1} = case Bytes3 of
|
|
<<0:1,V3@V3:7,V3@V5:V3@V3/binary-unit:8,V3@Buf6/bitstring>> ->
|
|
{V3@V5,V3@Buf6};
|
|
<<1:1,0:1,V3@V4:14,V3@V6:V3@V4/binary-unit:8,V3@Buf7/bitstring>> ->
|
|
{V3@V6,V3@Buf7};
|
|
<<1:1,1:1,V3@V4:6,V3@Buf5/bitstring>> ->
|
|
{V3@V6,V3@Buf7} = decode_fragmented(V3@V4, V3@Buf5, 8),
|
|
{V3@V6,V3@Buf7}
|
|
end,
|
|
V3@Conv8 = binary:copy(V3@V0),
|
|
{V3@Conv8,V3@Buf1}
|
|
end,
|
|
|
|
%% attribute payable(5) with type BOOLEAN
|
|
{Term5,Bytes5} = begin
|
|
<<V4@V0:1,V4@Buf1/bitstring>> = Bytes4,
|
|
V4@Int2 = case V4@V0 of
|
|
0 -> false;
|
|
1 -> true
|
|
end,
|
|
{V4@Int2,V4@Buf1}
|
|
end,
|
|
Res1 = {'ContractV3',Term1,Term2,Term3,Term4,Term5},
|
|
{Res1,Bytes5}.
|
|
|
|
|
|
dec_ContractV3_typeInfo(Bytes) ->
|
|
dec_components9(Bytes, []).
|
|
|
|
enc_TypeInfoV1(Val) ->
|
|
[begin
|
|
%% attribute typeHash(1) with type OCTET STRING
|
|
Enc1@element = element(2, Val),
|
|
Enc2@len = byte_size(Enc1@element),
|
|
if Enc2@len < 128 ->
|
|
[Enc2@len|Enc1@element];
|
|
Enc2@len < 16384 ->
|
|
[<<2:2,Enc2@len:14>>|Enc1@element];
|
|
true ->
|
|
encode_fragmented(Enc1@element, 8)
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute name(2) with type OCTET STRING
|
|
Enc3@element = element(3, Val),
|
|
Enc4@len = byte_size(Enc3@element),
|
|
if Enc4@len < 128 ->
|
|
[Enc4@len|Enc3@element];
|
|
Enc4@len < 16384 ->
|
|
[<<2:2,Enc4@len:14>>|Enc3@element];
|
|
true ->
|
|
encode_fragmented(Enc3@element, 8)
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute argType(3) with type OCTET STRING
|
|
Enc5@element = element(4, Val),
|
|
Enc6@len = byte_size(Enc5@element),
|
|
if Enc6@len < 128 ->
|
|
[Enc6@len|Enc5@element];
|
|
Enc6@len < 16384 ->
|
|
[<<2:2,Enc6@len:14>>|Enc5@element];
|
|
true ->
|
|
encode_fragmented(Enc5@element, 8)
|
|
end
|
|
end|begin
|
|
%% attribute outType(4) with type OCTET STRING
|
|
Enc7@element = element(5, Val),
|
|
Enc8@len = byte_size(Enc7@element),
|
|
if Enc8@len < 128 ->
|
|
[Enc8@len|Enc7@element];
|
|
Enc8@len < 16384 ->
|
|
[<<2:2,Enc8@len:14>>|Enc7@element];
|
|
true ->
|
|
encode_fragmented(Enc7@element, 8)
|
|
end
|
|
end].
|
|
|
|
|
|
dec_TypeInfoV1(Bytes) ->
|
|
|
|
%% attribute typeHash(1) with type OCTET STRING
|
|
{Term1,Bytes1} = begin
|
|
{V1@V0,V1@Buf1} = case Bytes of
|
|
<<0:1,V1@V3:7,V1@V5:V1@V3/binary-unit:8,V1@Buf6/bitstring>> ->
|
|
{V1@V5,V1@Buf6};
|
|
<<1:1,0:1,V1@V4:14,V1@V6:V1@V4/binary-unit:8,V1@Buf7/bitstring>> ->
|
|
{V1@V6,V1@Buf7};
|
|
<<1:1,1:1,V1@V4:6,V1@Buf5/bitstring>> ->
|
|
{V1@V6,V1@Buf7} = decode_fragmented(V1@V4, V1@Buf5, 8),
|
|
{V1@V6,V1@Buf7}
|
|
end,
|
|
V1@Conv8 = binary:copy(V1@V0),
|
|
{V1@Conv8,V1@Buf1}
|
|
end,
|
|
|
|
%% attribute name(2) with type OCTET STRING
|
|
{Term2,Bytes2} = begin
|
|
{V2@V0,V2@Buf1} = case Bytes1 of
|
|
<<0:1,V2@V3:7,V2@V5:V2@V3/binary-unit:8,V2@Buf6/bitstring>> ->
|
|
{V2@V5,V2@Buf6};
|
|
<<1:1,0:1,V2@V4:14,V2@V6:V2@V4/binary-unit:8,V2@Buf7/bitstring>> ->
|
|
{V2@V6,V2@Buf7};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> ->
|
|
{V2@V6,V2@Buf7} = decode_fragmented(V2@V4, V2@Buf5, 8),
|
|
{V2@V6,V2@Buf7}
|
|
end,
|
|
V2@Conv8 = binary:copy(V2@V0),
|
|
{V2@Conv8,V2@Buf1}
|
|
end,
|
|
|
|
%% attribute argType(3) with type OCTET STRING
|
|
{Term3,Bytes3} = begin
|
|
{V3@V0,V3@Buf1} = case Bytes2 of
|
|
<<0:1,V3@V3:7,V3@V5:V3@V3/binary-unit:8,V3@Buf6/bitstring>> ->
|
|
{V3@V5,V3@Buf6};
|
|
<<1:1,0:1,V3@V4:14,V3@V6:V3@V4/binary-unit:8,V3@Buf7/bitstring>> ->
|
|
{V3@V6,V3@Buf7};
|
|
<<1:1,1:1,V3@V4:6,V3@Buf5/bitstring>> ->
|
|
{V3@V6,V3@Buf7} = decode_fragmented(V3@V4, V3@Buf5, 8),
|
|
{V3@V6,V3@Buf7}
|
|
end,
|
|
V3@Conv8 = binary:copy(V3@V0),
|
|
{V3@Conv8,V3@Buf1}
|
|
end,
|
|
|
|
%% attribute outType(4) with type OCTET STRING
|
|
{Term4,Bytes4} = begin
|
|
{V4@V0,V4@Buf1} = case Bytes3 of
|
|
<<0:1,V4@V3:7,V4@V5:V4@V3/binary-unit:8,V4@Buf6/bitstring>> ->
|
|
{V4@V5,V4@Buf6};
|
|
<<1:1,0:1,V4@V4:14,V4@V6:V4@V4/binary-unit:8,V4@Buf7/bitstring>> ->
|
|
{V4@V6,V4@Buf7};
|
|
<<1:1,1:1,V4@V4:6,V4@Buf5/bitstring>> ->
|
|
{V4@V6,V4@Buf7} = decode_fragmented(V4@V4, V4@Buf5, 8),
|
|
{V4@V6,V4@Buf7}
|
|
end,
|
|
V4@Conv8 = binary:copy(V4@V0),
|
|
{V4@Conv8,V4@Buf1}
|
|
end,
|
|
Res1 = {'TypeInfoV1',Term1,Term2,Term3,Term4},
|
|
{Res1,Bytes4}.
|
|
|
|
enc_TypeInfoV3(Val) ->
|
|
[begin
|
|
%% attribute typeHash(1) with type OCTET STRING
|
|
Enc1@element = element(2, Val),
|
|
Enc2@len = byte_size(Enc1@element),
|
|
if Enc2@len < 128 ->
|
|
[Enc2@len|Enc1@element];
|
|
Enc2@len < 16384 ->
|
|
[<<2:2,Enc2@len:14>>|Enc1@element];
|
|
true ->
|
|
encode_fragmented(Enc1@element, 8)
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute name(2) with type OCTET STRING
|
|
Enc3@element = element(3, Val),
|
|
Enc4@len = byte_size(Enc3@element),
|
|
if Enc4@len < 128 ->
|
|
[Enc4@len|Enc3@element];
|
|
Enc4@len < 16384 ->
|
|
[<<2:2,Enc4@len:14>>|Enc3@element];
|
|
true ->
|
|
encode_fragmented(Enc3@element, 8)
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute payable(3) with type BOOLEAN
|
|
Enc5@element = element(4, Val),
|
|
if Enc5@element =:= false ->
|
|
<<0:1>>;
|
|
Enc5@element =:= true ->
|
|
<<1:1>>;
|
|
true ->
|
|
exit({error,{asn1,{illegal_boolean,Enc5@element}}})
|
|
end
|
|
end,
|
|
begin
|
|
%% attribute argType(4) with type OCTET STRING
|
|
Enc7@element = element(5, Val),
|
|
Enc8@len = byte_size(Enc7@element),
|
|
if Enc8@len < 128 ->
|
|
[Enc8@len|Enc7@element];
|
|
Enc8@len < 16384 ->
|
|
[<<2:2,Enc8@len:14>>|Enc7@element];
|
|
true ->
|
|
encode_fragmented(Enc7@element, 8)
|
|
end
|
|
end|begin
|
|
%% attribute outType(5) with type OCTET STRING
|
|
Enc9@element = element(6, Val),
|
|
Enc10@len = byte_size(Enc9@element),
|
|
if Enc10@len < 128 ->
|
|
[Enc10@len|Enc9@element];
|
|
Enc10@len < 16384 ->
|
|
[<<2:2,Enc10@len:14>>|Enc9@element];
|
|
true ->
|
|
encode_fragmented(Enc9@element, 8)
|
|
end
|
|
end].
|
|
|
|
|
|
dec_TypeInfoV3(Bytes) ->
|
|
|
|
%% attribute typeHash(1) with type OCTET STRING
|
|
{Term1,Bytes1} = begin
|
|
{V1@V0,V1@Buf1} = case Bytes of
|
|
<<0:1,V1@V3:7,V1@V5:V1@V3/binary-unit:8,V1@Buf6/bitstring>> ->
|
|
{V1@V5,V1@Buf6};
|
|
<<1:1,0:1,V1@V4:14,V1@V6:V1@V4/binary-unit:8,V1@Buf7/bitstring>> ->
|
|
{V1@V6,V1@Buf7};
|
|
<<1:1,1:1,V1@V4:6,V1@Buf5/bitstring>> ->
|
|
{V1@V6,V1@Buf7} = decode_fragmented(V1@V4, V1@Buf5, 8),
|
|
{V1@V6,V1@Buf7}
|
|
end,
|
|
V1@Conv8 = binary:copy(V1@V0),
|
|
{V1@Conv8,V1@Buf1}
|
|
end,
|
|
|
|
%% attribute name(2) with type OCTET STRING
|
|
{Term2,Bytes2} = begin
|
|
{V2@V0,V2@Buf1} = case Bytes1 of
|
|
<<0:1,V2@V3:7,V2@V5:V2@V3/binary-unit:8,V2@Buf6/bitstring>> ->
|
|
{V2@V5,V2@Buf6};
|
|
<<1:1,0:1,V2@V4:14,V2@V6:V2@V4/binary-unit:8,V2@Buf7/bitstring>> ->
|
|
{V2@V6,V2@Buf7};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> ->
|
|
{V2@V6,V2@Buf7} = decode_fragmented(V2@V4, V2@Buf5, 8),
|
|
{V2@V6,V2@Buf7}
|
|
end,
|
|
V2@Conv8 = binary:copy(V2@V0),
|
|
{V2@Conv8,V2@Buf1}
|
|
end,
|
|
|
|
%% attribute payable(3) with type BOOLEAN
|
|
{Term3,Bytes3} = begin
|
|
<<V3@V0:1,V3@Buf1/bitstring>> = Bytes2,
|
|
V3@Int2 = case V3@V0 of
|
|
0 -> false;
|
|
1 -> true
|
|
end,
|
|
{V3@Int2,V3@Buf1}
|
|
end,
|
|
|
|
%% attribute argType(4) with type OCTET STRING
|
|
{Term4,Bytes4} = begin
|
|
{V4@V0,V4@Buf1} = case Bytes3 of
|
|
<<0:1,V4@V3:7,V4@V5:V4@V3/binary-unit:8,V4@Buf6/bitstring>> ->
|
|
{V4@V5,V4@Buf6};
|
|
<<1:1,0:1,V4@V4:14,V4@V6:V4@V4/binary-unit:8,V4@Buf7/bitstring>> ->
|
|
{V4@V6,V4@Buf7};
|
|
<<1:1,1:1,V4@V4:6,V4@Buf5/bitstring>> ->
|
|
{V4@V6,V4@Buf7} = decode_fragmented(V4@V4, V4@Buf5, 8),
|
|
{V4@V6,V4@Buf7}
|
|
end,
|
|
V4@Conv8 = binary:copy(V4@V0),
|
|
{V4@Conv8,V4@Buf1}
|
|
end,
|
|
|
|
%% attribute outType(5) with type OCTET STRING
|
|
{Term5,Bytes5} = begin
|
|
{V5@V0,V5@Buf1} = case Bytes4 of
|
|
<<0:1,V5@V3:7,V5@V5:V5@V3/binary-unit:8,V5@Buf6/bitstring>> ->
|
|
{V5@V5,V5@Buf6};
|
|
<<1:1,0:1,V5@V4:14,V5@V6:V5@V4/binary-unit:8,V5@Buf7/bitstring>> ->
|
|
{V5@V6,V5@Buf7};
|
|
<<1:1,1:1,V5@V4:6,V5@Buf5/bitstring>> ->
|
|
{V5@V6,V5@Buf7} = decode_fragmented(V5@V4, V5@Buf5, 8),
|
|
{V5@V6,V5@Buf7}
|
|
end,
|
|
V5@Conv8 = binary:copy(V5@V0),
|
|
{V5@Conv8,V5@Buf1}
|
|
end,
|
|
Res1 = {'TypeInfoV3',Term1,Term2,Term3,Term4,Term5},
|
|
{Res1,Bytes5}.
|
|
|
|
|
|
%%%
|
|
%%% Run-time functions.
|
|
%%%
|
|
|
|
'dialyzer-suppressions'(Arg) ->
|
|
_ = complete(element(1, Arg)),
|
|
ok.
|
|
|
|
dec_components1(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V1@V0,V1@Buf1} = case Bytes of
|
|
<<0:1,V1@V3:7,V1@Buf4/bitstring>> ->
|
|
{V1@V3,V1@Buf4};
|
|
<<1:1,0:1,V1@V4:14,V1@Buf5/bitstring>> ->
|
|
{V1@V4,V1@Buf5};
|
|
<<1:1,1:1,V1@V4:6,V1@Buf5/bitstring>> ->
|
|
V1@Mul6 = V1@V4 * 16384,
|
|
{V1@Mul6,V1@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment10(V1@V0, V1@Buf1, Acc),
|
|
if V1@V0 >= 16384 ->
|
|
dec_components1(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_components2(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V2@V0,V2@Buf1} = case Bytes of
|
|
<<0:1,V2@V3:7,V2@Buf4/bitstring>> ->
|
|
{V2@V3,V2@Buf4};
|
|
<<1:1,0:1,V2@V4:14,V2@Buf5/bitstring>> ->
|
|
{V2@V4,V2@Buf5};
|
|
<<1:1,1:1,V2@V4:6,V2@Buf5/bitstring>> ->
|
|
V2@Mul6 = V2@V4 * 16384,
|
|
{V2@Mul6,V2@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment11(V2@V0, V2@Buf1, Acc),
|
|
if V2@V0 >= 16384 ->
|
|
dec_components2(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_components3(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V3@V0,V3@Buf1} = case Bytes of
|
|
<<0:1,V3@V3:7,V3@Buf4/bitstring>> ->
|
|
{V3@V3,V3@Buf4};
|
|
<<1:1,0:1,V3@V4:14,V3@Buf5/bitstring>> ->
|
|
{V3@V4,V3@Buf5};
|
|
<<1:1,1:1,V3@V4:6,V3@Buf5/bitstring>> ->
|
|
V3@Mul6 = V3@V4 * 16384,
|
|
{V3@Mul6,V3@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment12(V3@V0, V3@Buf1, Acc),
|
|
if V3@V0 >= 16384 ->
|
|
dec_components3(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_components4(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V4@V0,V4@Buf1} = case Bytes of
|
|
<<0:1,V4@V3:7,V4@Buf4/bitstring>> ->
|
|
{V4@V3,V4@Buf4};
|
|
<<1:1,0:1,V4@V4:14,V4@Buf5/bitstring>> ->
|
|
{V4@V4,V4@Buf5};
|
|
<<1:1,1:1,V4@V4:6,V4@Buf5/bitstring>> ->
|
|
V4@Mul6 = V4@V4 * 16384,
|
|
{V4@Mul6,V4@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment13(V4@V0, V4@Buf1, Acc),
|
|
if V4@V0 >= 16384 ->
|
|
dec_components4(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_components5(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V5@V0,V5@Buf1} = case Bytes of
|
|
<<0:1,V5@V3:7,V5@Buf4/bitstring>> ->
|
|
{V5@V3,V5@Buf4};
|
|
<<1:1,0:1,V5@V4:14,V5@Buf5/bitstring>> ->
|
|
{V5@V4,V5@Buf5};
|
|
<<1:1,1:1,V5@V4:6,V5@Buf5/bitstring>> ->
|
|
V5@Mul6 = V5@V4 * 16384,
|
|
{V5@Mul6,V5@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment14(V5@V0, V5@Buf1, Acc),
|
|
if V5@V0 >= 16384 ->
|
|
dec_components5(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_components6(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V6@V0,V6@Buf1} = case Bytes of
|
|
<<0:1,V6@V3:7,V6@Buf4/bitstring>> ->
|
|
{V6@V3,V6@Buf4};
|
|
<<1:1,0:1,V6@V4:14,V6@Buf5/bitstring>> ->
|
|
{V6@V4,V6@Buf5};
|
|
<<1:1,1:1,V6@V4:6,V6@Buf5/bitstring>> ->
|
|
V6@Mul6 = V6@V4 * 16384,
|
|
{V6@Mul6,V6@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment15(V6@V0, V6@Buf1, Acc),
|
|
if V6@V0 >= 16384 ->
|
|
dec_components6(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_components7(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V7@V0,V7@Buf1} = case Bytes of
|
|
<<0:1,V7@V3:7,V7@Buf4/bitstring>> ->
|
|
{V7@V3,V7@Buf4};
|
|
<<1:1,0:1,V7@V4:14,V7@Buf5/bitstring>> ->
|
|
{V7@V4,V7@Buf5};
|
|
<<1:1,1:1,V7@V4:6,V7@Buf5/bitstring>> ->
|
|
V7@Mul6 = V7@V4 * 16384,
|
|
{V7@Mul6,V7@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment16(V7@V0, V7@Buf1, Acc),
|
|
if V7@V0 >= 16384 ->
|
|
dec_components7(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_components8(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V8@V0,V8@Buf1} = case Bytes of
|
|
<<0:1,V8@V3:7,V8@Buf4/bitstring>> ->
|
|
{V8@V3,V8@Buf4};
|
|
<<1:1,0:1,V8@V4:14,V8@Buf5/bitstring>> ->
|
|
{V8@V4,V8@Buf5};
|
|
<<1:1,1:1,V8@V4:6,V8@Buf5/bitstring>> ->
|
|
V8@Mul6 = V8@V4 * 16384,
|
|
{V8@Mul6,V8@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment17(V8@V0, V8@Buf1, Acc),
|
|
if V8@V0 >= 16384 ->
|
|
dec_components8(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_components9(Bytes, Acc) ->
|
|
%% Length with constraint no
|
|
{V9@V0,V9@Buf1} = case Bytes of
|
|
<<0:1,V9@V3:7,V9@Buf4/bitstring>> ->
|
|
{V9@V3,V9@Buf4};
|
|
<<1:1,0:1,V9@V4:14,V9@Buf5/bitstring>> ->
|
|
{V9@V4,V9@Buf5};
|
|
<<1:1,1:1,V9@V4:6,V9@Buf5/bitstring>> ->
|
|
V9@Mul6 = V9@V4 * 16384,
|
|
{V9@Mul6,V9@Buf5}
|
|
end,
|
|
{Acc1,Buf1} = dec_fragment18(V9@V0, V9@Buf1, Acc),
|
|
if V9@V0 >= 16384 ->
|
|
dec_components9(Buf1, Acc1);
|
|
true ->
|
|
{lists:reverse(Acc1),Buf1}
|
|
end.
|
|
|
|
dec_fragment10(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment10(Num, Bytes, Acc) ->
|
|
{Term,Remain} = dec_TemplateField(Bytes),
|
|
dec_fragment10(Num-1, Remain, [Term|Acc]).
|
|
|
|
dec_fragment11(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment11(Num, Bytes, Acc) ->
|
|
{Term,Remain} = dec_Value(Bytes),
|
|
dec_fragment11(Num-1, Remain, [Term|Acc]).
|
|
|
|
dec_fragment12(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment12(Num, Bytes, Acc) ->
|
|
{Term,Remain} = dec_Value(Bytes),
|
|
dec_fragment12(Num-1, Remain, [Term|Acc]).
|
|
|
|
dec_fragment13(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment13(Num, Bytes, Acc) ->
|
|
{Term,Remain} = dec_Value(Bytes),
|
|
dec_fragment13(Num-1, Remain, [Term|Acc]).
|
|
|
|
dec_fragment14(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment14(Num, Bytes, Acc) ->
|
|
{Term,Remain} = dec_KeyValue(Bytes),
|
|
dec_fragment14(Num-1, Remain, [Term|Acc]).
|
|
|
|
dec_fragment15(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment15(Num, Bytes, Acc) ->
|
|
{Term,Remain} = begin
|
|
{V10@V0,V10@Buf1} = case Bytes of
|
|
<<0:1,V10@V3:7,V10@V5:V10@V3/binary-unit:8,V10@Buf6/bitstring>> ->
|
|
{V10@V5,V10@Buf6};
|
|
<<1:1,0:1,V10@V4:14,V10@V6:V10@V4/binary-unit:8,V10@Buf7/bitstring>> ->
|
|
{V10@V6,V10@Buf7};
|
|
<<1:1,1:1,V10@V4:6,V10@Buf5/bitstring>> ->
|
|
{V10@V6,V10@Buf7} = decode_fragmented(V10@V4, V10@Buf5, 8),
|
|
{V10@V6,V10@Buf7}
|
|
end,
|
|
V10@Conv8 = binary:copy(V10@V0),
|
|
{V10@Conv8,V10@Buf1}
|
|
end,
|
|
dec_fragment15(Num-1, Remain, [Term|Acc]).
|
|
|
|
dec_fragment16(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment16(Num, Bytes, Acc) ->
|
|
{Term,Remain} = dec_TypeInfoV1(Bytes),
|
|
dec_fragment16(Num-1, Remain, [Term|Acc]).
|
|
|
|
dec_fragment17(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment17(Num, Bytes, Acc) ->
|
|
{Term,Remain} = dec_TypeInfoV1(Bytes),
|
|
dec_fragment17(Num-1, Remain, [Term|Acc]).
|
|
|
|
dec_fragment18(0, Bytes, Acc) ->
|
|
{Acc,Bytes};
|
|
dec_fragment18(Num, Bytes, Acc) ->
|
|
{Term,Remain} = dec_TypeInfoV3(Bytes),
|
|
dec_fragment18(Num-1, Remain, [Term|Acc]).
|
|
|
|
complete(InList) when is_list(InList) ->
|
|
case list_to_bitstring(InList) of
|
|
<<>> ->
|
|
<<0>>;
|
|
Res ->
|
|
Sz = bit_size(Res),
|
|
case Sz band 7 of
|
|
0 ->
|
|
Res;
|
|
Bits ->
|
|
<<Res:Sz/bitstring,0:(8 - Bits)>>
|
|
end
|
|
end;
|
|
complete(Bin) when is_binary(Bin) ->
|
|
case Bin of
|
|
<<>> ->
|
|
<<0>>;
|
|
_ ->
|
|
Bin
|
|
end;
|
|
complete(InList) when is_bitstring(InList) ->
|
|
Sz = bit_size(InList),
|
|
PadLen = 8 - Sz band 7,
|
|
<<InList:Sz/bitstring,0:PadLen>>.
|
|
|
|
decode_chars(Val, N) ->
|
|
[
|
|
C ||
|
|
<<C:N>> <= Val
|
|
].
|
|
|
|
decode_fragmented(SegSz0, Buf0, Unit) ->
|
|
SegSz = SegSz0 * Unit * 16384,
|
|
<<Res:SegSz/bitstring,Buf/bitstring>> = Buf0,
|
|
decode_fragmented_1(Buf, Unit, Res).
|
|
|
|
decode_fragmented_1(<<0:1,N:7,Buf0/bitstring>>, Unit, Res) ->
|
|
Sz = N * Unit,
|
|
<<S:Sz/bitstring,Buf/bitstring>> = Buf0,
|
|
{<<Res/bitstring,S/bitstring>>, Buf};
|
|
decode_fragmented_1(<<1:1,0:1,N:14,Buf0/bitstring>>, Unit, Res) ->
|
|
Sz = N * Unit,
|
|
<<S:Sz/bitstring,Buf/bitstring>> = Buf0,
|
|
{<<Res/bitstring,S/bitstring>>, Buf};
|
|
decode_fragmented_1(<<1:1,1:1,SegSz0:6,Buf0/bitstring>>, Unit, Res0) ->
|
|
SegSz = SegSz0 * Unit * 16384,
|
|
<<Frag:SegSz/bitstring,Buf/bitstring>> = Buf0,
|
|
Res = <<Res0/bitstring,Frag/bitstring>>,
|
|
decode_fragmented_1(Buf, Unit, Res).
|
|
|
|
encode_chars(Val, NumBits) ->
|
|
<<
|
|
<<C:NumBits>> ||
|
|
C <- Val
|
|
>>.
|
|
|
|
encode_components(Cs, _Encoder, 0, Acc) ->
|
|
{Cs, lists:reverse(Acc)};
|
|
encode_components([C | Cs], Encoder, Size, Acc) ->
|
|
B = Encoder(C),
|
|
encode_components(Cs, Encoder, Size - 1, [B | Acc]).
|
|
|
|
encode_fragmented(Bin, Unit) ->
|
|
encode_fragmented_1(Bin, Unit, 4).
|
|
|
|
encode_fragmented_1(Bin, Unit, N) ->
|
|
SegSz = Unit * N * 16384,
|
|
case Bin of
|
|
<<B:SegSz/bitstring,T/bitstring>> ->
|
|
[<<3:2,N:6>>, B | encode_fragmented_1(T, Unit, N)];
|
|
_ when N > 1 ->
|
|
encode_fragmented_1(Bin, Unit, N - 1);
|
|
_ ->
|
|
case bit_size(Bin) div Unit of
|
|
Len when Len < 128 ->
|
|
[Len, Bin];
|
|
Len when Len < 16384 ->
|
|
[<<2:2,Len:14>>, Bin]
|
|
end
|
|
end.
|
|
|
|
encode_fragmented_sof(Fun, Comps, Len) ->
|
|
encode_fragmented_sof_1(Fun, Comps, Len, 4).
|
|
|
|
encode_fragmented_sof_1(Encoder, Comps0, Len0, N) ->
|
|
SegSz = N * 16384,
|
|
if
|
|
Len0 >= SegSz ->
|
|
{Comps, B} = encode_components(Comps0, Encoder, SegSz, []),
|
|
Len = Len0 - SegSz,
|
|
[<<3:2,N:6>>,
|
|
B |
|
|
encode_fragmented_sof_1(Encoder, Comps, Len, N)];
|
|
N > 1 ->
|
|
encode_fragmented_sof_1(Encoder, Comps0, Len0, N - 1);
|
|
Len0 < 128 ->
|
|
{[], B} = encode_components(Comps0, Encoder, Len0, []),
|
|
[Len0 | B];
|
|
Len0 < 16384 ->
|
|
{[], B} = encode_components(Comps0, Encoder, Len0, []),
|
|
[<<2:2,Len0:14>> | B]
|
|
end.
|
|
|
|
encode_unconstrained_number(Val) when not is_integer(Val) ->
|
|
exit({error, {asn1, {illegal_integer, Val}}});
|
|
encode_unconstrained_number(Val) when Val >= 0 ->
|
|
if
|
|
Val < 128 ->
|
|
[1, Val];
|
|
Val < 256 ->
|
|
[<<2,0>>, Val];
|
|
true ->
|
|
case binary:encode_unsigned(Val) of
|
|
<<0:1,_/bitstring>> = Bin ->
|
|
case byte_size(Bin) of
|
|
Sz when Sz < 128 ->
|
|
[Sz, Bin];
|
|
Sz when Sz < 16384 ->
|
|
[<<2:2,Sz:14>>, Bin]
|
|
end;
|
|
<<1:1,_/bitstring>> = Bin ->
|
|
case byte_size(Bin) + 1 of
|
|
Sz when Sz < 128 ->
|
|
[Sz, 0, Bin];
|
|
Sz when Sz < 16384 ->
|
|
[<<2:2,Sz:14,0:8>>, Bin]
|
|
end
|
|
end
|
|
end;
|
|
encode_unconstrained_number(Val) ->
|
|
Oct = enint(Val, []),
|
|
Len = length(Oct),
|
|
if
|
|
Len < 128 ->
|
|
[Len | Oct];
|
|
Len < 16384 ->
|
|
[<<2:2,Len:14>> | Oct]
|
|
end.
|
|
|
|
enint(-1, [B1 | T]) when B1 > 127 ->
|
|
[B1 | T];
|
|
enint(N, Acc) ->
|
|
enint(N bsr 8, [N band 255 | Acc]).
|