summaryrefslogtreecommitdiff
path: root/rose.erl
diff options
context:
space:
mode:
Diffstat (limited to 'rose.erl')
-rw-r--r--rose.erl1098
1 files changed, 0 insertions, 1098 deletions
diff --git a/rose.erl b/rose.erl
deleted file mode 100644
index 98f6a5d..0000000
--- a/rose.erl
+++ /dev/null
@@ -1,1098 +0,0 @@
-%% Generated by the Erlang ASN.1 BER_V2-compiler version, utilizing bit-syntax:4.0
-%% Purpose: encoder and decoder to the types in mod rose
-
--module('rose').
--compile(nowarn_unused_vars).
--include("rose.hrl").
--asn1_info([{vsn,'4.0'},
- {module,'rose'},
- {options,[{i,"/Users/quax/erl"},
- warnings,ber,errors,
- {cwd,"/Users/quax/erl"},
- {outdir,"/Users/quax/erl"},
- {i,"."},
- {i,"/Users/quax/erl/lib"}]}]).
-
--export([encoding_rule/0,bit_string_format/0,
- legacy_erlang_types/0]).
--export(['dialyzer-suppressions'/1]).
--export([
-'enc_Priority'/2,
-'enc_Code'/2,
-'enc_InvokeId'/2,
-'enc_RejectProblem'/2,
-'enc_ReturnErrorProblem'/2,
-'enc_ReturnResultProblem'/2,
-'enc_InvokeProblem'/2,
-'enc_GeneralProblem'/2,
-'enc_Reject'/2,
-'enc_ReturnError'/2,
-'enc_ReturnResult'/2,
-'enc_Invoke'/2,
-'enc_ROS'/2
-]).
-
--export([
-'dec_Priority'/2,
-'dec_Code'/2,
-'dec_InvokeId'/2,
-'dec_RejectProblem'/2,
-'dec_ReturnErrorProblem'/2,
-'dec_ReturnResultProblem'/2,
-'dec_InvokeProblem'/2,
-'dec_GeneralProblem'/2,
-'dec_Reject'/2,
-'dec_ReturnError'/2,
-'dec_ReturnResult'/2,
-'dec_Invoke'/2,
-'dec_ROS'/2
-]).
-
--export([
-'noInvokeId'/0
-]).
-
--export([
-'enc_no-op'/3,
-'enc_refuse'/3,
-'enc_emptyUnbind'/3,
-'enc_emptyBind'/3
-]).
-
--export([
-'dec_no-op'/3,
-'dec_refuse'/3,
-'dec_emptyUnbind'/3,
-'dec_emptyBind'/3
-]).
-
--export([info/0]).
-
-
--export([encode/2,decode/2]).
-
-encoding_rule() -> ber.
-
-bit_string_format() -> bitstring.
-
-legacy_erlang_types() -> false.
-
-encode(Type, Data) ->
-try iolist_to_binary(element(1, encode_disp(Type, Data))) of
- Bytes ->
- {ok,Bytes}
- catch
- Class:Exception when Class =:= error; Class =:= exit ->
- case Exception of
- {error,Reason}=Error ->
- Error;
- Reason ->
- {error,{asn1,Reason}}
- end
-end.
-
-decode(Type,Data) ->
-try decode_disp(Type, element(1, ber_decode_nif(Data))) of
- Result ->
- {ok,Result}
- catch
- Class:Exception when Class =:= error; Class =:= exit ->
- case Exception of
- {error,Reason}=Error ->
- Error;
- Reason ->
- {error,{asn1,Reason}}
- end
-end.
-
-encode_disp('Priority',Data) -> 'enc_Priority'(Data);
-encode_disp('Code',Data) -> 'enc_Code'(Data);
-encode_disp('InvokeId',Data) -> 'enc_InvokeId'(Data);
-encode_disp('RejectProblem',Data) -> 'enc_RejectProblem'(Data);
-encode_disp('ReturnErrorProblem',Data) -> 'enc_ReturnErrorProblem'(Data);
-encode_disp('ReturnResultProblem',Data) -> 'enc_ReturnResultProblem'(Data);
-encode_disp('InvokeProblem',Data) -> 'enc_InvokeProblem'(Data);
-encode_disp('GeneralProblem',Data) -> 'enc_GeneralProblem'(Data);
-encode_disp('Reject',Data) -> 'enc_Reject'(Data);
-encode_disp('ReturnError',Data) -> 'enc_ReturnError'(Data);
-encode_disp('ReturnResult',Data) -> 'enc_ReturnResult'(Data);
-encode_disp('Invoke',Data) -> 'enc_Invoke'(Data);
-encode_disp('ROS',Data) -> 'enc_ROS'(Data);
-encode_disp(Type,_Data) -> exit({error,{asn1,{undefined_type,Type}}}).
-
-
-decode_disp('Priority',Data) -> 'dec_Priority'(Data);
-decode_disp('Code',Data) -> 'dec_Code'(Data);
-decode_disp('InvokeId',Data) -> 'dec_InvokeId'(Data);
-decode_disp('RejectProblem',Data) -> 'dec_RejectProblem'(Data);
-decode_disp('ReturnErrorProblem',Data) -> 'dec_ReturnErrorProblem'(Data);
-decode_disp('ReturnResultProblem',Data) -> 'dec_ReturnResultProblem'(Data);
-decode_disp('InvokeProblem',Data) -> 'dec_InvokeProblem'(Data);
-decode_disp('GeneralProblem',Data) -> 'dec_GeneralProblem'(Data);
-decode_disp('Reject',Data) -> 'dec_Reject'(Data);
-decode_disp('ReturnError',Data) -> 'dec_ReturnError'(Data);
-decode_disp('ReturnResult',Data) -> 'dec_ReturnResult'(Data);
-decode_disp('Invoke',Data) -> 'dec_Invoke'(Data);
-decode_disp('ROS',Data) -> 'dec_ROS'(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.
-
-
-%%================================
-%% Priority
-%%================================
-'enc_Priority'(Val) ->
- 'enc_Priority'(Val, [<<2>>]).
-
-'enc_Priority'(Val, TagIn) ->
-encode_integer(Val, TagIn).
-
-
-'dec_Priority'(Tlv) ->
- 'dec_Priority'(Tlv, [2]).
-
-'dec_Priority'(Tlv, TagIn) ->
-begin
-Val1 = decode_integer(Tlv, TagIn),
-if 0 =< Val1, Val1 =< 'MAX' ->
-Val1;
-true ->
-exit({error,{asn1,bad_range}})
-end
-end.
-
-
-
-%%================================
-%% Code
-%%================================
-'enc_Code'(Val) ->
- 'enc_Code'(Val, []).
-
-'enc_Code'(Val, TagIn) ->
- {EncBytes,EncLen} = case element(1,Val) of
- local ->
- encode_integer(element(2,Val), [<<2>>]);
- global ->
- encode_object_identifier(element(2,Val), [<<6>>]);
- Else ->
- exit({error,{asn1,{invalid_choice_type,Else}}})
- end,
-
-encode_tags(TagIn, EncBytes, EncLen).
-
-
-
-
-'dec_Code'(Tlv) ->
- 'dec_Code'(Tlv, []).
-
-'dec_Code'(Tlv, TagIn) ->
-Tlv1 = match_tags(Tlv, TagIn),
-case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
-
-%% 'local'
- {2, V1} ->
- {local, decode_integer(V1, [])};
-
-
-%% 'global'
- {6, V1} ->
- {global, decode_object_identifier(V1, [])};
-
- Else ->
- exit({error,{asn1,{invalid_choice_tag,Else}}})
- end
-.
-
-
-%%================================
-%% InvokeId
-%%================================
-'enc_InvokeId'(Val) ->
- 'enc_InvokeId'(Val, []).
-
-'enc_InvokeId'(Val, TagIn) ->
- {EncBytes,EncLen} = case element(1,Val) of
- present ->
- encode_integer(element(2,Val), [<<2>>]);
- absent ->
- encode_null(element(2,Val), [<<5>>]);
- Else ->
- exit({error,{asn1,{invalid_choice_type,Else}}})
- end,
-
-encode_tags(TagIn, EncBytes, EncLen).
-
-
-
-
-'dec_InvokeId'(Tlv) ->
- 'dec_InvokeId'(Tlv, []).
-
-'dec_InvokeId'(Tlv, TagIn) ->
-Tlv1 = match_tags(Tlv, TagIn),
-case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
-
-%% 'present'
- {2, V1} ->
- {present, decode_integer(V1, [])};
-
-
-%% 'absent'
- {5, V1} ->
- {absent, decode_null(V1, [])};
-
- Else ->
- exit({error,{asn1,{invalid_choice_tag,Else}}})
- end
-.
-
-
-%%================================
-%% RejectProblem
-%%================================
-'enc_RejectProblem'(Val) ->
- 'enc_RejectProblem'(Val, [<<2>>]).
-
-'enc_RejectProblem'(Val, TagIn) ->
-encode_integer(Val, [{'general-unrecognisedPDU',0},{'general-mistypedPDU',1},{'general-badlyStructuredPDU',2},{'invoke-duplicateInvocation',10},{'invoke-unrecognisedOperation',11},{'invoke-mistypedArgument',12},{'invoke-resourceLimitation',13},{'invoke-releaseInProgress',14},{'invoke-unrecognisedLinkedId',15},{'invoke-linkedResponseUnexpected',16},{'invoke-unexpectedLinkedOperation',17},{'returnResult-unrecognisedInvocation',20},{'returnResult-resultResponseUnexpected',21},{'returnResult-mistypedResult',22},{'returnError-unrecognisedInvocation',30},{'returnError-errorResponseUnexpected',31},{'returnError-unrecognisedError',32},{'returnError-unexpectedError',33},{'returnError-mistypedParameter',34}], TagIn).
-
-
-'dec_RejectProblem'(Tlv) ->
- 'dec_RejectProblem'(Tlv, [2]).
-
-'dec_RejectProblem'(Tlv, TagIn) ->
-begin
-Val1 = decode_integer(Tlv, TagIn),
-number2name(Val1, [{'general-unrecognisedPDU',0},{'general-mistypedPDU',1},{'general-badlyStructuredPDU',2},{'invoke-duplicateInvocation',10},{'invoke-unrecognisedOperation',11},{'invoke-mistypedArgument',12},{'invoke-resourceLimitation',13},{'invoke-releaseInProgress',14},{'invoke-unrecognisedLinkedId',15},{'invoke-linkedResponseUnexpected',16},{'invoke-unexpectedLinkedOperation',17},{'returnResult-unrecognisedInvocation',20},{'returnResult-resultResponseUnexpected',21},{'returnResult-mistypedResult',22},{'returnError-unrecognisedInvocation',30},{'returnError-errorResponseUnexpected',31},{'returnError-unrecognisedError',32},{'returnError-unexpectedError',33},{'returnError-mistypedParameter',34}])
-end
-.
-
-
-
-%%================================
-%% ReturnErrorProblem
-%%================================
-'enc_ReturnErrorProblem'(Val) ->
- 'enc_ReturnErrorProblem'(Val, [<<2>>]).
-
-'enc_ReturnErrorProblem'(Val, TagIn) ->
-encode_integer(Val, [{unrecognisedInvocation,0},{errorResponseUnexpected,1},{unrecognisedError,2},{unexpectedError,3},{mistypedParameter,4}], TagIn).
-
-
-'dec_ReturnErrorProblem'(Tlv) ->
- 'dec_ReturnErrorProblem'(Tlv, [2]).
-
-'dec_ReturnErrorProblem'(Tlv, TagIn) ->
-begin
-Val1 = decode_integer(Tlv, TagIn),
-number2name(Val1, [{unrecognisedInvocation,0},{errorResponseUnexpected,1},{unrecognisedError,2},{unexpectedError,3},{mistypedParameter,4}])
-end
-.
-
-
-
-%%================================
-%% ReturnResultProblem
-%%================================
-'enc_ReturnResultProblem'(Val) ->
- 'enc_ReturnResultProblem'(Val, [<<2>>]).
-
-'enc_ReturnResultProblem'(Val, TagIn) ->
-encode_integer(Val, [{unrecognisedInvocation,0},{resultResponseUnexpected,1},{mistypedResult,2}], TagIn).
-
-
-'dec_ReturnResultProblem'(Tlv) ->
- 'dec_ReturnResultProblem'(Tlv, [2]).
-
-'dec_ReturnResultProblem'(Tlv, TagIn) ->
-begin
-Val1 = decode_integer(Tlv, TagIn),
-number2name(Val1, [{unrecognisedInvocation,0},{resultResponseUnexpected,1},{mistypedResult,2}])
-end
-.
-
-
-
-%%================================
-%% InvokeProblem
-%%================================
-'enc_InvokeProblem'(Val) ->
- 'enc_InvokeProblem'(Val, [<<2>>]).
-
-'enc_InvokeProblem'(Val, TagIn) ->
-encode_integer(Val, [{duplicateInvocation,0},{unrecognisedOperation,1},{mistypedArgument,2},{resourceLimitation,3},{releaseInProgress,4},{unrecognisedLinkedId,5},{linkedResponseUnexpected,6},{unexpectedLinkedOperation,7}], TagIn).
-
-
-'dec_InvokeProblem'(Tlv) ->
- 'dec_InvokeProblem'(Tlv, [2]).
-
-'dec_InvokeProblem'(Tlv, TagIn) ->
-begin
-Val1 = decode_integer(Tlv, TagIn),
-number2name(Val1, [{duplicateInvocation,0},{unrecognisedOperation,1},{mistypedArgument,2},{resourceLimitation,3},{releaseInProgress,4},{unrecognisedLinkedId,5},{linkedResponseUnexpected,6},{unexpectedLinkedOperation,7}])
-end
-.
-
-
-
-%%================================
-%% GeneralProblem
-%%================================
-'enc_GeneralProblem'(Val) ->
- 'enc_GeneralProblem'(Val, [<<2>>]).
-
-'enc_GeneralProblem'(Val, TagIn) ->
-encode_integer(Val, [{unrecognisedPDU,0},{mistypedPDU,1},{badlyStructuredPDU,2}], TagIn).
-
-
-'dec_GeneralProblem'(Tlv) ->
- 'dec_GeneralProblem'(Tlv, [2]).
-
-'dec_GeneralProblem'(Tlv, TagIn) ->
-begin
-Val1 = decode_integer(Tlv, TagIn),
-number2name(Val1, [{unrecognisedPDU,0},{mistypedPDU,1},{badlyStructuredPDU,2}])
-end
-.
-
-
-
-%%================================
-%% Reject
-%%================================
-'enc_Reject'(Val) ->
- 'enc_Reject'(Val, [<<48>>]).
-
-'enc_Reject'(Val, TagIn) ->
-{_,Cindex1, Cindex2} = Val,
-
-%%-------------------------------------------------
-%% attribute invokeId(1) External rose:InvokeId
-%%-------------------------------------------------
- {EncBytes1,EncLen1} = 'enc_InvokeId'(Cindex1, []),
-
-%%-------------------------------------------------
-%% attribute problem(2) with type CHOICE
-%%-------------------------------------------------
- {EncBytes2,EncLen2} = 'enc_Reject_problem'(Cindex2, []),
-
- BytesSoFar = [EncBytes1, EncBytes2],
-LenSoFar = EncLen1 + EncLen2,
-encode_tags(TagIn, BytesSoFar, LenSoFar).
-
-
-
-%%================================
-%% Reject_problem
-%%================================
-'enc_Reject_problem'(Val, TagIn) ->
- {EncBytes,EncLen} = case element(1,Val) of
- general ->
- encode_integer(element(2,Val), [{unrecognisedPDU,0},{mistypedPDU,1},{badlyStructuredPDU,2}], [<<128>>]);
- invoke ->
- encode_integer(element(2,Val), [{duplicateInvocation,0},{unrecognisedOperation,1},{mistypedArgument,2},{resourceLimitation,3},{releaseInProgress,4},{unrecognisedLinkedId,5},{linkedResponseUnexpected,6},{unexpectedLinkedOperation,7}], [<<129>>]);
- returnResult ->
- encode_integer(element(2,Val), [{unrecognisedInvocation,0},{resultResponseUnexpected,1},{mistypedResult,2}], [<<130>>]);
- returnError ->
- encode_integer(element(2,Val), [{unrecognisedInvocation,0},{errorResponseUnexpected,1},{unrecognisedError,2},{unexpectedError,3},{mistypedParameter,4}], [<<131>>]);
- Else ->
- exit({error,{asn1,{invalid_choice_type,Else}}})
- end,
-
-encode_tags(TagIn, EncBytes, EncLen).
-
-
-
-
-'dec_Reject'(Tlv) ->
- 'dec_Reject'(Tlv, [16]).
-
-'dec_Reject'(Tlv, TagIn) ->
- %%-------------------------------------------------
- %% decode tag and length
- %%-------------------------------------------------
-Tlv1 = match_tags(Tlv, TagIn),
-
-%%-------------------------------------------------
-%% attribute invokeId(1) External rose:InvokeId
-%%-------------------------------------------------
-[V1|Tlv2] = Tlv1,
-Term1 = 'dec_InvokeId'(V1, []),
-
-%%-------------------------------------------------
-%% attribute problem(2) with type CHOICE
-%%-------------------------------------------------
-[V2|Tlv3] = Tlv2,
-Term2 = 'dec_Reject_problem'(V2, []),
-
-case Tlv3 of
-[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
-end,
- {'Reject', Term1, Term2}.
-
-'dec_Reject_problem'(Tlv, TagIn) ->
-Tlv1 = match_tags(Tlv, TagIn),
-case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
-
-%% 'general'
- {131072, V1} ->
- {general, begin
-Val1 = decode_integer(V1, []),
-number2name(Val1, [{unrecognisedPDU,0},{mistypedPDU,1},{badlyStructuredPDU,2}])
-end
-};
-
-
-%% 'invoke'
- {131073, V1} ->
- {invoke, begin
-Val2 = decode_integer(V1, []),
-number2name(Val2, [{duplicateInvocation,0},{unrecognisedOperation,1},{mistypedArgument,2},{resourceLimitation,3},{releaseInProgress,4},{unrecognisedLinkedId,5},{linkedResponseUnexpected,6},{unexpectedLinkedOperation,7}])
-end
-};
-
-
-%% 'returnResult'
- {131074, V1} ->
- {returnResult, begin
-Val3 = decode_integer(V1, []),
-number2name(Val3, [{unrecognisedInvocation,0},{resultResponseUnexpected,1},{mistypedResult,2}])
-end
-};
-
-
-%% 'returnError'
- {131075, V1} ->
- {returnError, begin
-Val4 = decode_integer(V1, []),
-number2name(Val4, [{unrecognisedInvocation,0},{errorResponseUnexpected,1},{unrecognisedError,2},{unexpectedError,3},{mistypedParameter,4}])
-end
-};
-
- Else ->
- exit({error,{asn1,{invalid_choice_tag,Else}}})
- end
-.
-
-
-%%================================
-%% ReturnError
-%%================================
-'enc_ReturnError'(Val) ->
- 'enc_ReturnError'(Val, [<<48>>]).
-
-'enc_ReturnError'(Val, TagIn) ->
-{_,Cindex1, Cindex2, Cindex3} = Val,
-
-%%-------------------------------------------------
-%% attribute invokeId(1) External rose:InvokeId
-%%-------------------------------------------------
- {EncBytes1,EncLen1} = 'enc_InvokeId'(Cindex1, []),
-
-%%-------------------------------------------------
-%% attribute errcode(2) External rose:Code
-%%-------------------------------------------------
- {EncBytes2,EncLen2} = 'enc_Code'(Cindex2, []),
-
-%%-------------------------------------------------
-%% attribute parameter(3) with type ASN1_OPEN_TYPE OPTIONAL
-%%-------------------------------------------------
- {EncBytes3,EncLen3} = case Cindex3 of
- asn1_NOVALUE -> {<<>>,0};
- _ ->
- encode_open_type(Cindex3, [])
- end,
-
- BytesSoFar = [EncBytes1, EncBytes2, EncBytes3],
-LenSoFar = EncLen1 + EncLen2 + EncLen3,
-encode_tags(TagIn, BytesSoFar, LenSoFar).
-
-
-'dec_ReturnError'(Tlv) ->
- 'dec_ReturnError'(Tlv, [16]).
-
-'dec_ReturnError'(Tlv, TagIn) ->
- %%-------------------------------------------------
- %% decode tag and length
- %%-------------------------------------------------
-Tlv1 = match_tags(Tlv, TagIn),
-
-%%-------------------------------------------------
-%% attribute invokeId(1) External rose:InvokeId
-%%-------------------------------------------------
-[V1|Tlv2] = Tlv1,
-Term1 = 'dec_InvokeId'(V1, []),
-
-%%-------------------------------------------------
-%% attribute errcode(2) External rose:Code
-%%-------------------------------------------------
-[V2|Tlv3] = Tlv2,
-Term2 = 'dec_Code'(V2, []),
-
-%%-------------------------------------------------
-%% attribute parameter(3) with type ASN1_OPEN_TYPE OPTIONAL
-%%-------------------------------------------------
-{Term3,Tlv4} = case Tlv3 of
-[V3|TempTlv4] ->
- {decode_open_type_as_binary(V3, []), TempTlv4};
- _ ->
- { asn1_NOVALUE, Tlv3}
-end,
-
-case Tlv4 of
-[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv4}}}) % extra fields not allowed
-end,
- {'ReturnError', Term1, Term2, Term3}.
-
-
-
-%%================================
-%% ReturnResult
-%%================================
-'enc_ReturnResult'(Val) ->
- 'enc_ReturnResult'(Val, [<<48>>]).
-
-'enc_ReturnResult'(Val, TagIn) ->
-{_,Cindex1, Cindex2} = Val,
-
-%%-------------------------------------------------
-%% attribute invokeId(1) External rose:InvokeId
-%%-------------------------------------------------
- {EncBytes1,EncLen1} = 'enc_InvokeId'(Cindex1, []),
-
-%%-------------------------------------------------
-%% attribute result(2) with type SEQUENCE OPTIONAL
-%%-------------------------------------------------
- {EncBytes2,EncLen2} = case Cindex2 of
- asn1_NOVALUE -> {<<>>,0};
- _ ->
- 'enc_ReturnResult_result'(Cindex2, [<<48>>])
- end,
-
- BytesSoFar = [EncBytes1, EncBytes2],
-LenSoFar = EncLen1 + EncLen2,
-encode_tags(TagIn, BytesSoFar, LenSoFar).
-
-
-
-%%================================
-%% ReturnResult_result
-%%================================
-'enc_ReturnResult_result'(Val, TagIn) ->
- {_,Cindex1, Cindex2} = Val,
-
-%%-------------------------------------------------
-%% attribute opcode(1) External rose:Code
-%%-------------------------------------------------
- {EncBytes1,EncLen1} = 'enc_Code'(Cindex1, []),
-
-%%-------------------------------------------------
-%% attribute result(2) with type ASN1_OPEN_TYPE
-%%-------------------------------------------------
- {EncBytes2,EncLen2} = encode_open_type(Cindex2, []),
-
- BytesSoFar = [EncBytes1, EncBytes2],
-LenSoFar = EncLen1 + EncLen2,
-encode_tags(TagIn, BytesSoFar, LenSoFar).
-
-
-'dec_ReturnResult'(Tlv) ->
- 'dec_ReturnResult'(Tlv, [16]).
-
-'dec_ReturnResult'(Tlv, TagIn) ->
- %%-------------------------------------------------
- %% decode tag and length
- %%-------------------------------------------------
-Tlv1 = match_tags(Tlv, TagIn),
-
-%%-------------------------------------------------
-%% attribute invokeId(1) External rose:InvokeId
-%%-------------------------------------------------
-[V1|Tlv2] = Tlv1,
-Term1 = 'dec_InvokeId'(V1, []),
-
-%%-------------------------------------------------
-%% attribute result(2) with type SEQUENCE OPTIONAL
-%%-------------------------------------------------
-{Term2,Tlv3} = case Tlv2 of
-[{16,V2}|TempTlv3] ->
- {'dec_ReturnResult_result'(V2, []), TempTlv3};
- _ ->
- { asn1_NOVALUE, Tlv2}
-end,
-
-case Tlv3 of
-[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
-end,
- {'ReturnResult', Term1, Term2}.
-
-'dec_ReturnResult_result'(Tlv, TagIn) ->
- %%-------------------------------------------------
- %% decode tag and length
- %%-------------------------------------------------
-Tlv1 = match_tags(Tlv, TagIn),
-
-%%-------------------------------------------------
-%% attribute opcode(1) External rose:Code
-%%-------------------------------------------------
-[V1|Tlv2] = Tlv1,
-Term1 = 'dec_Code'(V1, []),
-
-%%-------------------------------------------------
-%% attribute result(2) with type ASN1_OPEN_TYPE
-%%-------------------------------------------------
-[V2|Tlv3] = Tlv2,
-Term2 = decode_open_type_as_binary(V2, []),
-
-case Tlv3 of
-[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv3}}}) % extra fields not allowed
-end,
- {'ReturnResult_result', Term1, Term2}.
-
-
-
-%%================================
-%% Invoke
-%%================================
-'enc_Invoke'(Val) ->
- 'enc_Invoke'(Val, [<<48>>]).
-
-'enc_Invoke'(Val, TagIn) ->
-{_,Cindex1, Cindex2, Cindex3, Cindex4} = Val,
-
-%%-------------------------------------------------
-%% attribute invokeId(1) External rose:InvokeId
-%%-------------------------------------------------
- {EncBytes1,EncLen1} = 'enc_InvokeId'(Cindex1, []),
-
-%%-------------------------------------------------
-%% attribute linkedId(2) with type CHOICE OPTIONAL
-%%-------------------------------------------------
- {EncBytes2,EncLen2} = case Cindex2 of
- asn1_NOVALUE -> {<<>>,0};
- _ ->
- 'enc_Invoke_linkedId'(Cindex2, [])
- end,
-
-%%-------------------------------------------------
-%% attribute opcode(3) External rose:Code
-%%-------------------------------------------------
- {EncBytes3,EncLen3} = 'enc_Code'(Cindex3, []),
-
-%%-------------------------------------------------
-%% attribute argument(4) with type ASN1_OPEN_TYPE OPTIONAL
-%%-------------------------------------------------
- {EncBytes4,EncLen4} = case Cindex4 of
- asn1_NOVALUE -> {<<>>,0};
- _ ->
- encode_open_type(Cindex4, [])
- end,
-
- BytesSoFar = [EncBytes1, EncBytes2, EncBytes3, EncBytes4],
-LenSoFar = EncLen1 + EncLen2 + EncLen3 + EncLen4,
-encode_tags(TagIn, BytesSoFar, LenSoFar).
-
-
-
-%%================================
-%% Invoke_linkedId
-%%================================
-'enc_Invoke_linkedId'(Val, TagIn) ->
- {EncBytes,EncLen} = case element(1,Val) of
- present ->
- encode_integer(element(2,Val), [<<128>>]);
- absent ->
- encode_null(element(2,Val), [<<129>>]);
- Else ->
- exit({error,{asn1,{invalid_choice_type,Else}}})
- end,
-
-encode_tags(TagIn, EncBytes, EncLen).
-
-
-
-
-'dec_Invoke'(Tlv) ->
- 'dec_Invoke'(Tlv, [16]).
-
-'dec_Invoke'(Tlv, TagIn) ->
- %%-------------------------------------------------
- %% decode tag and length
- %%-------------------------------------------------
-Tlv1 = match_tags(Tlv, TagIn),
-
-%%-------------------------------------------------
-%% attribute invokeId(1) External rose:InvokeId
-%%-------------------------------------------------
-[V1|Tlv2] = Tlv1,
-Term1 = 'dec_InvokeId'(V1, []),
-
-%%-------------------------------------------------
-%% attribute linkedId(2) with type CHOICE OPTIONAL
-%%-------------------------------------------------
-{Term2,Tlv3} = case Tlv2 of
-[V2 = {131072,_}|TempTlv3] ->
- {'dec_Invoke_linkedId'(V2, []), TempTlv3};
-[V2 = {131073,_}|TempTlv3] ->
- {'dec_Invoke_linkedId'(V2, []), TempTlv3};
- _ ->
- { asn1_NOVALUE, Tlv2}
-end,
-
-%%-------------------------------------------------
-%% attribute opcode(3) External rose:Code
-%%-------------------------------------------------
-[V3|Tlv4] = Tlv3,
-Term3 = 'dec_Code'(V3, []),
-
-%%-------------------------------------------------
-%% attribute argument(4) with type ASN1_OPEN_TYPE OPTIONAL
-%%-------------------------------------------------
-{Term4,Tlv5} = case Tlv4 of
-[V4|TempTlv5] ->
- {decode_open_type_as_binary(V4, []), TempTlv5};
- _ ->
- { asn1_NOVALUE, Tlv4}
-end,
-
-case Tlv5 of
-[] -> true;_ -> exit({error,{asn1, {unexpected,Tlv5}}}) % extra fields not allowed
-end,
- {'Invoke', Term1, Term2, Term3, Term4}.
-
-'dec_Invoke_linkedId'(Tlv, TagIn) ->
-Tlv1 = match_tags(Tlv, TagIn),
-case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
-
-%% 'present'
- {131072, V1} ->
- {present, decode_integer(V1, [])};
-
-
-%% 'absent'
- {131073, V1} ->
- {absent, decode_null(V1, [])};
-
- Else ->
- exit({error,{asn1,{invalid_choice_tag,Else}}})
- end
-.
-
-
-%%================================
-%% ROS
-%%================================
-'enc_ROS'(Val) ->
- 'enc_ROS'(Val, []).
-
-'enc_ROS'(Val, TagIn) ->
- {EncBytes,EncLen} = case element(1,Val) of
- invoke ->
- 'enc_Invoke'(element(2,Val), [<<161>>]);
- returnResult ->
- 'enc_ReturnResult'(element(2,Val), [<<162>>]);
- returnError ->
- 'enc_ReturnError'(element(2,Val), [<<163>>]);
- reject ->
- 'enc_Reject'(element(2,Val), [<<164>>]);
- Else ->
- exit({error,{asn1,{invalid_choice_type,Else}}})
- end,
-
-encode_tags(TagIn, EncBytes, EncLen).
-
-
-
-
-'dec_ROS'(Tlv) ->
- 'dec_ROS'(Tlv, []).
-
-'dec_ROS'(Tlv, TagIn) ->
-Tlv1 = match_tags(Tlv, TagIn),
-case (case Tlv1 of [CtempTlv1] -> CtempTlv1; _ -> Tlv1 end) of
-
-%% 'invoke'
- {131073, V1} ->
- {invoke, 'dec_Invoke'(V1, [])};
-
-
-%% 'returnResult'
- {131074, V1} ->
- {returnResult, 'dec_ReturnResult'(V1, [])};
-
-
-%% 'returnError'
- {131075, V1} ->
- {returnError, 'dec_ReturnError'(V1, [])};
-
-
-%% 'reject'
- {131076, V1} ->
- {reject, 'dec_Reject'(V1, [])};
-
- Else ->
- exit({error,{asn1,{invalid_choice_tag,Else}}})
- end
-.
-'noInvokeId'() ->
-{absent,'NULL'}.
-
-
-
-
-%%================================
-%% no-op
-%%================================
-'enc_no-op'('ArgumentType', Val, _RestPrimFieldName) ->
- {Val,0};
-'enc_no-op'('ResultType', Val, _RestPrimFieldName) ->
- {Val,0}.
-
-
-'dec_no-op'('ArgumentType', Bytes,_) ->
- Bytes;
-'dec_no-op'('ResultType', Bytes,_) ->
- Bytes.
-
-
-
-
-%%================================
-%% refuse
-%%================================
-'enc_refuse'('ParameterType', Val, _RestPrimFieldName) ->
- {Val,0}.
-
-
-'dec_refuse'('ParameterType', Bytes,_) ->
- Bytes.
-
-
-
-
-%%================================
-%% emptyUnbind
-%%================================
-'enc_emptyUnbind'('ArgumentType', Val, _RestPrimFieldName) ->
- {Val,0};
-'enc_emptyUnbind'('ResultType', Val, _RestPrimFieldName) ->
- {Val,0}.
-
-
-'dec_emptyUnbind'('ArgumentType', Bytes,_) ->
- Bytes;
-'dec_emptyUnbind'('ResultType', Bytes,_) ->
- Bytes.
-
-
-
-
-%%================================
-%% emptyBind
-%%================================
-'enc_emptyBind'('ArgumentType', Val, _RestPrimFieldName) ->
- {Val,0};
-'enc_emptyBind'('ResultType', Val, _RestPrimFieldName) ->
- {Val,0}.
-
-
-'dec_emptyBind'('ArgumentType', Bytes,_) ->
- Bytes;
-'dec_emptyBind'('ResultType', Bytes,_) ->
- Bytes.
-
-
-%%%
-%%% Run-time functions.
-%%%
-
-'dialyzer-suppressions'(Arg) ->
- ok.
-
-ber_decode_nif(B) ->
- asn1rt_nif:decode_ber_tlv(B).
-
-ber_encode([Tlv]) ->
- ber_encode(Tlv);
-ber_encode(Tlv) when is_binary(Tlv) ->
- Tlv;
-ber_encode(Tlv) ->
- asn1rt_nif:encode_ber_tlv(Tlv).
-
-dec_subidentifiers(<<>>, _Av, Al) ->
- lists:reverse(Al);
-dec_subidentifiers(<<1:1,H:7,T/binary>>, Av, Al) ->
- dec_subidentifiers(T, Av bsl 7 + H, Al);
-dec_subidentifiers(<<H,T/binary>>, Av, Al) ->
- dec_subidentifiers(T, 0, [Av bsl 7 + H|Al]).
-
-decode_integer(Tlv, TagIn) ->
- Bin = match_tags(Tlv, TagIn),
- Len = byte_size(Bin),
- <<Int:Len/signed-unit:8>> = Bin,
- Int.
-
-decode_null(Tlv, Tags) ->
- Val = match_tags(Tlv, Tags),
- case Val of
- <<>> ->
- 'NULL';
- _ ->
- exit({error,{asn1,{decode_null,Val}}})
- end.
-
-decode_object_identifier(Tlv, Tags) ->
- Val = match_tags(Tlv, Tags),
- [AddedObjVal|ObjVals] = dec_subidentifiers(Val, 0, []),
- {Val1,Val2} =
- if
- AddedObjVal < 40 ->
- {0,AddedObjVal};
- AddedObjVal < 80 ->
- {1,AddedObjVal - 40};
- true ->
- {2,AddedObjVal - 80}
- end,
- list_to_tuple([Val1,Val2|ObjVals]).
-
-decode_open_type_as_binary(Tlv, TagIn) ->
- ber_encode(match_tags(Tlv, TagIn)).
-
-e_object_identifier({'OBJECT IDENTIFIER',V}) ->
- e_object_identifier(V);
-e_object_identifier(V) when is_tuple(V) ->
- e_object_identifier(tuple_to_list(V));
-e_object_identifier([E1,E2|Tail]) ->
- Head = 40 * E1 + E2,
- {H,Lh} = mk_object_val(Head),
- {R,Lr} = lists:mapfoldl(fun enc_obj_id_tail/2, 0, Tail),
- {[H|R],Lh + Lr}.
-
-enc_obj_id_tail(H, Len) ->
- {B,L} = mk_object_val(H),
- {B,Len + L}.
-
-encode_integer(Val) ->
- Bytes =
- if
- Val >= 0 ->
- encode_integer_pos(Val, []);
- true ->
- encode_integer_neg(Val, [])
- end,
- {Bytes,length(Bytes)}.
-
-encode_integer(Val, NamedNumberList, Tag) when is_atom(Val) ->
- case lists:keyfind(Val, 1, NamedNumberList) of
- {_,NewVal} ->
- encode_tags(Tag, encode_integer(NewVal));
- _ ->
- exit({error,{asn1,{encode_integer_namednumber,Val}}})
- end;
-encode_integer(Val, _NamedNumberList, Tag) ->
- encode_tags(Tag, encode_integer(Val)).
-
-encode_integer(Val, Tag) when is_integer(Val) ->
- encode_tags(Tag, encode_integer(Val));
-encode_integer(Val, _Tag) ->
- exit({error,{asn1,{encode_integer,Val}}}).
-
-encode_integer_neg(- 1, [B1|_T] = L) when B1 > 127 ->
- L;
-encode_integer_neg(N, Acc) ->
- encode_integer_neg(N bsr 8, [N band 255|Acc]).
-
-encode_integer_pos(0, [B|_Acc] = L) when B < 128 ->
- L;
-encode_integer_pos(N, Acc) ->
- encode_integer_pos(N bsr 8, [N band 255|Acc]).
-
-encode_length(L) when L =< 127 ->
- {[L],1};
-encode_length(L) ->
- Oct = minimum_octets(L),
- Len = length(Oct),
- if
- Len =< 126 ->
- {[128 bor Len|Oct],Len + 1};
- true ->
- exit({error,{asn1,too_long_length_oct,Len}})
- end.
-
-encode_null(_Val, TagIn) ->
- encode_tags(TagIn, [], 0).
-
-encode_object_identifier(Val, TagIn) ->
- encode_tags(TagIn, e_object_identifier(Val)).
-
-encode_open_type(Val, T) when is_list(Val) ->
- encode_open_type(list_to_binary(Val), T);
-encode_open_type(Val, Tag) ->
- encode_tags(Tag, Val, byte_size(Val)).
-
-encode_tags(TagIn, {BytesSoFar,LenSoFar}) ->
- encode_tags(TagIn, BytesSoFar, LenSoFar).
-
-encode_tags([Tag|Trest], BytesSoFar, LenSoFar) ->
- {Bytes2,L2} = encode_length(LenSoFar),
- encode_tags(Trest,
- [Tag,Bytes2|BytesSoFar],
- LenSoFar + byte_size(Tag) + L2);
-encode_tags([], BytesSoFar, LenSoFar) ->
- {BytesSoFar,LenSoFar}.
-
-match_tags({T,V}, [T]) ->
- V;
-match_tags({T,V}, [T|Tt]) ->
- match_tags(V, Tt);
-match_tags([{T,V}], [T|Tt]) ->
- match_tags(V, Tt);
-match_tags([{T,_V}|_] = Vlist, [T]) ->
- Vlist;
-match_tags(Tlv, []) ->
- Tlv;
-match_tags({Tag,_V} = Tlv, [T|_Tt]) ->
- exit({error,{asn1,{wrong_tag,{{expected,T},{got,Tag,Tlv}}}}}).
-
-minimum_octets(0, Acc) ->
- Acc;
-minimum_octets(Val, Acc) ->
- minimum_octets(Val bsr 8, [Val band 255|Acc]).
-
-minimum_octets(Val) ->
- minimum_octets(Val, []).
-
-mk_object_val(0, Ack, Len) ->
- {Ack,Len};
-mk_object_val(Val, Ack, Len) ->
- mk_object_val(Val bsr 7, [Val band 127 bor 128|Ack], Len + 1).
-
-mk_object_val(Val) when Val =< 127 ->
- {[255 band Val],1};
-mk_object_val(Val) ->
- mk_object_val(Val bsr 7, [Val band 127], 1).
-
-number2name(Int, NamedNumberList) ->
- case lists:keyfind(Int, 2, NamedNumberList) of
- {NamedVal,_} ->
- NamedVal;
- _ ->
- Int
- end.