File 4311-megaco-Removed-all-deprecated-prev3-text-codec-s.patch of Package erlang
From b724ce9b297afc6682b2fe1773943016505a0800 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Thu, 19 Mar 2020 17:20:00 +0100
Subject: [PATCH 1/8] [megaco] Removed all (deprecated) prev3 text codec(s)
OTP-16560
---
lib/megaco/src/text/Makefile | 4 +-
lib/megaco/src/text/depend.mk | 81 -
.../src/text/megaco_compact_text_encoder.erl | 210 -
.../megaco_compact_text_encoder_prev3a.erl | 303 --
.../megaco_compact_text_encoder_prev3b.erl | 438 ---
.../megaco_compact_text_encoder_prev3c.erl | 461 ---
.../text/megaco_compact_text_encoder_v1.erl | 4 +-
.../text/megaco_compact_text_encoder_v2.erl | 4 +-
.../text/megaco_compact_text_encoder_v3.erl | 2 +-
.../src/text/megaco_pretty_text_encoder.erl | 226 --
.../megaco_pretty_text_encoder_prev3a.erl | 309 --
.../megaco_pretty_text_encoder_prev3b.erl | 443 ---
.../megaco_pretty_text_encoder_prev3c.erl | 489 ---
.../text/megaco_pretty_text_encoder_v1.erl | 4 +-
.../text/megaco_pretty_text_encoder_v2.erl | 4 +-
.../src/text/megaco_text_gen_prev3a.hrl | 2943 --------------
.../src/text/megaco_text_gen_prev3b.hrl | 2964 --------------
.../src/text/megaco_text_gen_prev3c.hrl | 3441 -----------------
.../src/text/megaco_text_parser_prev3a.hrl | 1678 --------
.../src/text/megaco_text_parser_prev3a.yrl | 1597 --------
.../src/text/megaco_text_parser_prev3b.hrl | 1725 ---------
.../src/text/megaco_text_parser_prev3b.yrl | 1607 --------
.../src/text/megaco_text_parser_prev3c.hrl | 1988 ----------
.../src/text/megaco_text_parser_prev3c.yrl | 1679 --------
lib/megaco/src/text/megaco_text_parser_v1.hrl | 4 +-
lib/megaco/src/text/megaco_text_parser_v2.hrl | 4 +-
lib/megaco/src/text/megaco_text_scanner.erl | 4 +-
lib/megaco/src/text/megaco_text_tokens.hrl | 20 +-
lib/megaco/src/text/modules.mk | 36 +-
29 files changed, 23 insertions(+), 22649 deletions(-)
delete mode 100644 lib/megaco/src/text/megaco_compact_text_encoder_prev3a.erl
delete mode 100644 lib/megaco/src/text/megaco_compact_text_encoder_prev3b.erl
delete mode 100644 lib/megaco/src/text/megaco_compact_text_encoder_prev3c.erl
delete mode 100644 lib/megaco/src/text/megaco_pretty_text_encoder_prev3a.erl
delete mode 100644 lib/megaco/src/text/megaco_pretty_text_encoder_prev3b.erl
delete mode 100644 lib/megaco/src/text/megaco_pretty_text_encoder_prev3c.erl
delete mode 100644 lib/megaco/src/text/megaco_text_gen_prev3a.hrl
delete mode 100644 lib/megaco/src/text/megaco_text_gen_prev3b.hrl
delete mode 100644 lib/megaco/src/text/megaco_text_gen_prev3c.hrl
delete mode 100644 lib/megaco/src/text/megaco_text_parser_prev3a.hrl
delete mode 100644 lib/megaco/src/text/megaco_text_parser_prev3a.yrl
delete mode 100644 lib/megaco/src/text/megaco_text_parser_prev3b.hrl
delete mode 100644 lib/megaco/src/text/megaco_text_parser_prev3b.yrl
delete mode 100644 lib/megaco/src/text/megaco_text_parser_prev3c.hrl
delete mode 100644 lib/megaco/src/text/megaco_text_parser_prev3c.yrl
diff --git a/lib/megaco/src/text/Makefile b/lib/megaco/src/text/Makefile
index 3dd24b1df7..bb5f80403b 100644
--- a/lib/megaco/src/text/Makefile
+++ b/lib/megaco/src/text/Makefile
@@ -113,12 +113,14 @@ info:
# Special Build Targets
# ----------------------------------------------------
-parser: parser_v1 parser_v2
+parser: parser_v1 parser_v2 parser_v3
parser_v1: megaco_text_parser_v1.$(EMULATOR)
parser_v2: megaco_text_parser_v2.$(EMULATOR)
+parser_v3: megaco_text_parser_v3.$(EMULATOR)
+
# ----------------------------------------------------
# Release Target
diff --git a/lib/megaco/src/text/depend.mk b/lib/megaco/src/text/depend.mk
index 39c68fc8a9..3e4ef9fdfd 100644
--- a/lib/megaco/src/text/depend.mk
+++ b/lib/megaco/src/text/depend.mk
@@ -28,18 +28,6 @@ megaco_text_parser_v3.erl: \
megaco_text_parser_v3.yrl \
megaco_text_parser_v3.hrl
-# <DEPRECATED>
-megaco_text_parser_prev3a.erl: \
- megaco_text_parser_prev3a.yrl \
- megaco_text_parser_prev3a.hrl
-megaco_text_parser_prev3b.erl: \
- megaco_text_parser_prev3b.yrl \
- megaco_text_parser_prev3b.hrl
-megaco_text_parser_prev3c.erl: \
- megaco_text_parser_prev3c.yrl \
- megaco_text_parser_prev3c.hrl
-# </DEPRECATED>
-
megaco_text_mini_parser.erl: \
megaco_text_mini_parser.yrl \
megaco_text_mini_parser.hrl
@@ -71,29 +59,6 @@ $(EBIN)/megaco_compact_text_encoder_v3.$(EMULATOR): \
megaco_text_tokens.hrl \
megaco_text_gen_v3.hrl
-# <DEPRECATED>
-$(EBIN)/megaco_compact_text_encoder_prev3a.$(EMULATOR): \
- megaco_compact_text_encoder_prev3a.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3a.hrl \
- megaco_text_tokens.hrl \
- megaco_text_gen_prev3a.hrl
-
-$(EBIN)/megaco_compact_text_encoder_prev3b.$(EMULATOR): \
- megaco_compact_text_encoder_prev3b.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3b.hrl \
- megaco_text_tokens.hrl \
- megaco_text_gen_prev3b.hrl
-
-$(EBIN)/megaco_compact_text_encoder_prev3c.$(EMULATOR): \
- megaco_compact_text_encoder_prev3c.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3c.hrl \
- megaco_text_tokens.hrl \
- megaco_text_gen_prev3c.hrl
-# </DEPRECATED>
-
$(EBIN)/megaco_pretty_text_encoder.$(EMULATOR): \
megaco_pretty_text_encoder.erl
@@ -118,29 +83,6 @@ $(EBIN)/megaco_pretty_text_encoder_v3.$(EMULATOR): \
megaco_text_tokens.hrl \
megaco_text_gen_v3.hrl
-# <DEPRECATED>
-$(EBIN)/megaco_pretty_text_encoder_prev3a.$(EMULATOR): \
- megaco_pretty_text_encoder_prev3a.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3a.hrl \
- megaco_text_tokens.hrl \
- megaco_text_gen_prev3a.hrl
-
-$(EBIN)/megaco_pretty_text_encoder_prev3b.$(EMULATOR): \
- megaco_pretty_text_encoder_prev3b.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3b.hrl \
- megaco_text_tokens.hrl \
- megaco_text_gen_prev3b.hrl
-
-$(EBIN)/megaco_pretty_text_encoder_prev3c.$(EMULATOR): \
- megaco_pretty_text_encoder_prev3c.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3c.hrl \
- megaco_text_tokens.hrl \
- megaco_text_gen_prev3c.hrl
-# </DEPRECATED>
-
$(EBIN)/megaco_text_parser_v1.$(EMULATOR): \
megaco_text_parser_v1.erl \
$(MEGACO_INCLUDEDIR)/megaco.hrl \
@@ -162,29 +104,6 @@ $(EBIN)/megaco_text_parser_v3.$(EMULATOR): \
megaco_text_tokens.hrl \
megaco_text_parser_v3.hrl
-# <DEPRECATED>
-$(EBIN)/megaco_text_parser_prev3a.$(EMULATOR): \
- megaco_text_parser_prev3a.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3a.hrl \
- megaco_text_tokens.hrl \
- megaco_text_parser_prev3a.hrl
-
-$(EBIN)/megaco_text_parser_prev3b.$(EMULATOR): \
- megaco_text_parser_prev3b.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3b.hrl \
- megaco_text_tokens.hrl \
- megaco_text_parser_prev3b.hrl
-
-$(EBIN)/megaco_text_parser_prev3c.$(EMULATOR): \
- megaco_text_parser_prev3c.erl \
- $(MEGACO_INCLUDEDIR)/megaco.hrl \
- $(MEGACO_INCLUDEDIR)/megaco_message_prev3c.hrl \
- megaco_text_tokens.hrl \
- megaco_text_parser_prev3c.hrl
-# </DEPRECATED>
-
$(EBIN)/megaco_text_scanner.$(EMULATOR): megaco_text_scanner.erl \
$(MEGACO_INCLUDEDIR)/megaco.hrl \
../engine/megaco_message_internal.hrl \
diff --git a/lib/megaco/src/text/megaco_compact_text_encoder.erl b/lib/megaco/src/text/megaco_compact_text_encoder.erl
index ca1b9362fb..9abc041416 100644
--- a/lib/megaco/src/text/megaco_compact_text_encoder.erl
+++ b/lib/megaco/src/text/megaco_compact_text_encoder.erl
@@ -49,9 +49,6 @@
-define(V1_PARSE_MOD, megaco_text_parser_v1).
-define(V2_PARSE_MOD, megaco_text_parser_v2).
-define(V3_PARSE_MOD, megaco_text_parser_v3).
--define(PREV3A_PARSE_MOD, megaco_text_parser_prev3a).
--define(PREV3B_PARSE_MOD, megaco_text_parser_prev3b).
--define(PREV3C_PARSE_MOD, megaco_text_parser_prev3c).
%%----------------------------------------------------------------------
@@ -79,15 +76,6 @@ encode_message([{version3,_}|EC], 2, MegaMsg) ->
encode_message(EC, 2, MegaMsg) ->
megaco_compact_text_encoder_v2:encode_message(EC, MegaMsg);
-%% <DEPRECATED>
-encode_message([{version3,prev3c}|EC], 3, MegaMsg) ->
- megaco_compact_text_encoder_prev3c:encode_message(EC, MegaMsg);
-encode_message([{version3,prev3b}|EC], 3, MegaMsg) ->
- megaco_compact_text_encoder_prev3b:encode_message(EC, MegaMsg);
-encode_message([{version3,prev3a}|EC], 3, MegaMsg) ->
- megaco_compact_text_encoder_prev3a:encode_message(EC, MegaMsg);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_message([{version3,v3}|EC], 3, MegaMsg) ->
megaco_compact_text_encoder_v3:encode_message(EC, MegaMsg);
@@ -139,72 +127,6 @@ decode_message([], _, Bin) when is_binary(Bin) ->
scan_error(Reason, Line, Bin) %% OTP-4007
end;
-%% <DEPRECATED>
-decode_message([{version3,prev3c}], _, Bin) when is_binary(Bin) ->
- %% d("decode_message(prev3c) -> entry"),
- case megaco_text_scanner:scan(Bin) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3C_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- {error, Reason, Tokens, Line} ->
- scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-decode_message([{version3,prev3b}], _, Bin) when is_binary(Bin) ->
- %% d("decode_message(prev3b) -> entry"),
- case megaco_text_scanner:scan(Bin) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3B_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- {error, Reason, Tokens, Line} ->
- scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-decode_message([{version3,prev3a}], _, Bin) when is_binary(Bin) ->
- %% d("decode_message(prev3a) -> entry"),
- case megaco_text_scanner:scan(Bin) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3A_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- {error, Reason, Tokens, Line} ->
- scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
decode_message([{version3,v3}], _, Bin) when is_binary(Bin) ->
%% d("decode_message(v3) -> entry"),
@@ -251,72 +173,6 @@ decode_message([{flex, Port}], _, Bin) when is_binary(Bin) ->
scan_error(Reason, Line, Bin) %% OTP-4007
end;
-%% <DEPRECATED>
-decode_message([{version3,prev3c},{flex, Port}], _, Bin) when is_binary(Bin) ->
- %% d("decode_message(prev3c,flex) -> entry"),
- case megaco_flex_scanner:scan(Bin, Port) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3C_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- %% {error, Reason, Tokens, Line} ->
- %% scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} ->
- scan_error(Reason, Line, Bin)
- end;
-decode_message([{version3,prev3b},{flex, Port}], _, Bin) when is_binary(Bin) ->
- %% d("decode_message(prev3b,flex) -> entry"),
- case megaco_flex_scanner:scan(Bin, Port) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3B_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- %% {error, Reason, Tokens, Line} ->
- %% scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-decode_message([{version3,prev3a},{flex, Port}], _, Bin) when is_binary(Bin) ->
- %% d("decode_message(prev3a,flex) -> entry"),
- case megaco_flex_scanner:scan(Bin, Port) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3A_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- %% {error, Reason, Tokens, Line} ->
- %% scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
decode_message([{version3,v3},{flex, Port}], _, Bin) when is_binary(Bin) ->
%% d("decode_message(v3,flex) -> entry"),
@@ -432,15 +288,6 @@ encode_transaction([{version3,_}|EC], 2, Trans) ->
encode_transaction(EC, 2, Trans) ->
megaco_compact_text_encoder_v2:encode_transaction(EC, Trans);
-%% <DEPRECATED>
-encode_transaction([{version3,prev3c}|EC], 3, Trans) ->
- megaco_compact_text_encoder_prev3c:encode_transaction(EC, Trans);
-encode_transaction([{version3,prev3b}|EC], 3, Trans) ->
- megaco_compact_text_encoder_prev3b:encode_transaction(EC, Trans);
-encode_transaction([{version3,prev3a}|EC], 3, Trans) ->
- megaco_compact_text_encoder_prev3a:encode_transaction(EC, Trans);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_transaction([{version3,v3}|EC], 3, Trans) ->
megaco_compact_text_encoder_v3:encode_transaction(EC, Trans);
@@ -475,18 +322,6 @@ encode_action_requests([{version3,_}|EC], 2, ActReqs)
encode_action_requests(EC, 2, ActReqs) when is_list(ActReqs) ->
megaco_compact_text_encoder_v2:encode_action_requests(EC, ActReqs);
-%% <DEPRECATED>
-encode_action_requests([{version3,prev3c}|EC], 3, ActReqs)
- when is_list(ActReqs) ->
- megaco_compact_text_encoder_prev3c:encode_action_requests(EC, ActReqs);
-encode_action_requests([{version3,prev3b}|EC], 3, ActReqs)
- when is_list(ActReqs) ->
- megaco_compact_text_encoder_prev3b:encode_action_requests(EC, ActReqs);
-encode_action_requests([{version3,prev3a}|EC], 3, ActReqs)
- when is_list(ActReqs) ->
- megaco_compact_text_encoder_prev3a:encode_action_requests(EC, ActReqs);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_action_requests([{version3,v3}|EC], 3, ActReqs)
when is_list(ActReqs) ->
@@ -520,15 +355,6 @@ encode_action_request([{version3,_}|EC], 2, ActReq) ->
encode_action_request(EC, 2, ActReq) ->
megaco_compact_text_encoder_v2:encode_action_request(EC, ActReq);
-%% <DEPRECATED>
-encode_action_request([{version3,prev3c}|EC], 3, ActReq) ->
- megaco_compact_text_encoder_prev3c:encode_action_request(EC, ActReq);
-encode_action_request([{version3,prev3b}|EC], 3, ActReq) ->
- megaco_compact_text_encoder_prev3b:encode_action_request(EC, ActReq);
-encode_action_request([{version3,prev3a}|EC], 3, ActReq) ->
- megaco_compact_text_encoder_prev3a:encode_action_request(EC, ActReq);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_action_request([{version3,v3}|EC], 3, ActReq) ->
megaco_compact_text_encoder_v3:encode_action_request(EC, ActReq);
@@ -561,15 +387,6 @@ encode_command_request([{version3,_}|EC], 2, CmdReq) ->
encode_command_request(EC, 2, CmdReq) ->
megaco_compact_text_encoder_v2:encode_command_request(EC, CmdReq);
-%% <DEPRECATED>
-encode_command_request([{version3,prev3c}|EC], 3, CmdReq) ->
- megaco_compact_text_encoder_prev3c:encode_command_request(EC, CmdReq);
-encode_command_request([{version3,prev3b}|EC], 3, CmdReq) ->
- megaco_compact_text_encoder_prev3b:encode_command_request(EC, CmdReq);
-encode_command_request([{version3,prev3a}|EC], 3, CmdReq) ->
- megaco_compact_text_encoder_prev3a:encode_command_request(EC, CmdReq);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_command_request([{version3,v3}|EC], 3, CmdReq) ->
megaco_compact_text_encoder_v3:encode_command_request(EC, CmdReq);
@@ -602,15 +419,6 @@ encode_action_reply([{version3,_}|EC], 2, ActRep) ->
encode_action_reply(EC, 2, ActRep) ->
megaco_compact_text_encoder_v2:encode_action_reply(EC, ActRep);
-%% <DEPRECATED>
-encode_action_reply([{version3,prev3c}|EC], 3, ActRep) ->
- megaco_compact_text_encoder_prev3c:encode_action_reply(EC, ActRep);
-encode_action_reply([{version3,prev3b}|EC], 3, ActRep) ->
- megaco_compact_text_encoder_prev3b:encode_action_reply(EC, ActRep);
-encode_action_reply([{version3,prev3a}|EC], 3, ActRep) ->
- megaco_compact_text_encoder_prev3a:encode_action_reply(EC, ActRep);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_action_reply([{version3,v3}|EC], 3, ActRep) ->
megaco_compact_text_encoder_v3:encode_action_reply(EC, ActRep);
@@ -645,24 +453,6 @@ token_tag2string(Tag, 3) ->
token_tag2string(Tag, v3) ->
megaco_compact_text_encoder_v3:token_tag2string(Tag);
-%% <DEPRECATED>
-token_tag2string(Tag, prev3b) ->
- megaco_compact_text_encoder_prev3b:token_tag2string(Tag);
-token_tag2string(Tag, prev3c) ->
- megaco_compact_text_encoder_prev3c:token_tag2string(Tag);
-%% </DEPRECATED>
-
token_tag2string(Tag, _Vsn) ->
token_tag2string(Tag, ?TT2S_BEST_VERSION).
-
-%% d(F) ->
-%% d(F, []).
-
-%% d(F, A) ->
-%% d(get(dbg), F, A).
-
-%% d(true, F, A) ->
-%% io:format("~p:" ++ F ++ "~n", [?MODULE|A]);
-%% d(_, _, _) ->
-%% ok.
diff --git a/lib/megaco/src/text/megaco_compact_text_encoder_prev3a.erl b/lib/megaco/src/text/megaco_compact_text_encoder_prev3a.erl
deleted file mode 100644
index 50e2a65409..0000000000
--- a/lib/megaco/src/text/megaco_compact_text_encoder_prev3a.erl
+++ /dev/null
@@ -1,303 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2004-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode COMPACT Megaco/H.248 text messages from internal form
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
--module(megaco_compact_text_encoder_prev3a).
-
--export([encode_message/2,
- encode_transaction/2,
- encode_action_requests/2,
- encode_action_request/2,
- encode_command_request/2,
- encode_action_reply/2]).
-
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3a.hrl").
--define(encoder_version_pre_prev3c,true).
--include("megaco_text_tokens.hrl").
-
-
-%%----------------------------------------------------------------------
-%% Convert a 'MegacoMessage' record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-
-encode_message(EC, MegaMsg)
- when is_list(EC) andalso is_record(MegaMsg, 'MegacoMessage') ->
- case (catch enc_MegacoMessage(MegaMsg)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end;
-encode_message(EncodingConfig, MegaMsg)
- when is_record(MegaMsg, 'MegacoMessage') ->
- {error, {bad_encoding_config, EncodingConfig}};
-encode_message(_EncodingConfig, _MegaMsg) ->
- {error, bad_megaco_message}.
-
-
-%%----------------------------------------------------------------------
-%% Convert a transaction record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_transaction(_EC, Trans) ->
- case (catch enc_Transaction(Trans)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% Convert a list of ActionRequest record's into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_requests(_EC, ActReqs) ->
- case (catch enc_ActionRequests(ActReqs)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a ActionRequest record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_request(_EC, ActReq)
- when is_record(ActReq, 'ActionRequest') ->
- case (catch enc_ActionRequest(ActReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% Convert a CommandRequest record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_command_request(_EC, CmdReq)
- when is_record(CmdReq, 'CommandRequest') ->
- case (catch enc_CommandRequest(CmdReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% Convert a action reply into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_reply(_EC, ActRep)
- when is_record(ActRep, 'ActionReply') ->
- case (catch enc_ActionReply(ActRep)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% Define various macros used by the actual generator code
-%%----------------------------------------------------------------------
-
--define(EQUAL, [?EqualToken]).
--define(COLON, [?ColonToken]).
--define(LBRKT, [?LbrktToken]).
--define(RBRKT, [?RbrktToken]).
--define(LSBRKT, [?LsbrktToken]).
--define(RSBRKT, [?RsbrktToken]).
--define(COMMA, [?CommaToken]).
--define(DOT, [?DotToken]).
--define(SLASH, [?SlashToken]).
--define(DQUOTE, [?DoubleQuoteToken]).
--define(SP, [?SpToken]).
--define(HTAB, [?HtabToken]).
--define(CR, [?CrToken]).
--define(LF, [?LfToken]).
--define(LWSP, []).
--define(EOL, ?LF).
--define(WSP, ?SP).
--define(SEP, ?WSP).
-
--define(INIT_INDENT, []).
--define(INC_INDENT(State), State).
--define(INDENT(State), State).
--define(LBRKT_INDENT(_State), [?LbrktToken]).
--define(RBRKT_INDENT(_State), [?RbrktToken]).
--define(LSBRKT_INDENT(_State), [?LsbrktToken]).
--define(RSBRKT_INDENT(_State), [?RsbrktToken]).
--define(COMMA_INDENT(_State), [?CommaToken]).
--define(SEP_INDENT(_State), [?LfToken]).
-
-%%----------------------------------------------------------------------
-%% Define token macros
-%%----------------------------------------------------------------------
-
--define(AddToken , ?CompactAddToken).
--define(AuditToken , ?CompactAuditToken).
--define(AuditCapToken , ?CompactAuditCapToken).
--define(AuditValueToken , ?CompactAuditValueToken).
--define(AuthToken , ?CompactAuthToken).
--define(BothToken , ?CompactBothToken).
--define(BothwayToken , ?CompactBothwayToken).
--define(BriefToken , ?CompactBriefToken).
--define(BufferToken , ?CompactBufferToken).
--define(CtxToken , ?CompactCtxToken).
--define(ContextAuditToken , ?CompactContextAuditToken).
--define(ContextAttrToken , ?CompactContextAttrToken).
--define(DigitMapToken , ?CompactDigitMapToken).
--define(DirectionToken , ?CompactDirectionToken).
--define(DiscardToken , ?CompactDiscardToken).
--define(DisconnectedToken , ?CompactDisconnectedToken).
--define(DelayToken , ?CompactDelayToken).
--define(DeleteToken , ?CompactDeleteToken).
--define(DurationToken , ?CompactDurationToken).
--define(EmbedToken , ?CompactEmbedToken).
--define(EmergencyToken , ?CompactEmergencyToken).
--define(EmergencyOffToken , ?CompactEmergencyOffToken).
--define(ErrorToken , ?CompactErrorToken).
--define(EventBufferToken , ?CompactEventBufferToken).
--define(EventsToken , ?CompactEventsToken).
--define(ExternalToken , ?CompactExternalToken).
--define(FailoverToken , ?CompactFailoverToken).
--define(ForcedToken , ?CompactForcedToken).
--define(GracefulToken , ?CompactGracefulToken).
--define(H221Token , ?CompactH221Token).
--define(H223Token , ?CompactH223Token).
--define(H226Token , ?CompactH226Token).
--define(HandOffToken , ?CompactHandOffToken).
--define(IEPSToken , ?CompactIEPSToken).
--define(ImmAckRequiredToken , ?CompactImmAckRequiredToken).
--define(InactiveToken , ?CompactInactiveToken).
--define(InternalToken , ?CompactInternalToken).
--define(InterruptByEventToken , ?CompactInterruptByEventToken).
--define(InterruptByNewSignalsDescrToken, ?CompactInterruptByNewSignalsDescrToken).
--define(IsolateToken , ?CompactIsolateToken).
--define(InSvcToken , ?CompactInSvcToken).
--define(KeepActiveToken , ?CompactKeepActiveToken).
--define(LocalToken , ?CompactLocalToken).
--define(LocalControlToken , ?CompactLocalControlToken).
--define(LockStepToken , ?CompactLockStepToken).
--define(LoopbackToken , ?CompactLoopbackToken).
--define(MediaToken , ?CompactMediaToken).
--define(MegacopToken , ?CompactMegacopToken).
--define(MethodToken , ?CompactMethodToken).
--define(MgcIdToken , ?CompactMgcIdToken).
--define(ModeToken , ?CompactModeToken).
--define(ModifyToken , ?CompactModifyToken).
--define(ModemToken , ?CompactModemToken).
--define(MoveToken , ?CompactMoveToken).
--define(MtpToken , ?CompactMtpToken).
--define(MuxToken , ?CompactMuxToken).
--define(NotifyToken , ?CompactNotifyToken).
--define(NotifyCompletionToken , ?CompactNotifyCompletionToken).
--define(Nx64kToken , ?CompactNx64kToken).
--define(ObservedEventsToken , ?CompactObservedEventsToken).
--define(OffToken , ?CompactOffToken).
--define(OnewayToken , ?CompactOnewayToken).
--define(OnOffToken , ?CompactOnOffToken).
--define(OnToken , ?CompactOnToken).
--define(OtherReasonToken , ?CompactOtherReasonToken).
--define(OutOfSvcToken , ?CompactOutOfSvcToken).
--define(PackagesToken , ?CompactPackagesToken).
--define(PendingToken , ?CompactPendingToken).
--define(PriorityToken , ?CompactPriorityToken).
--define(ProfileToken , ?CompactProfileToken).
--define(ReasonToken , ?CompactReasonToken).
--define(RecvonlyToken , ?CompactRecvonlyToken).
--define(ReplyToken , ?CompactReplyToken).
--define(ResponseAckToken , ?CompactResponseAckToken).
--define(RestartToken , ?CompactRestartToken).
--define(RemoteToken , ?CompactRemoteToken).
--define(RequestIDToken , ?CompactRequestIDToken).
--define(ReservedGroupToken , ?CompactReservedGroupToken).
--define(ReservedValueToken , ?CompactReservedValueToken).
--define(SendonlyToken , ?CompactSendonlyToken).
--define(SendrecvToken , ?CompactSendrecvToken).
--define(ServicesToken , ?CompactServicesToken).
--define(ServiceStatesToken , ?CompactServiceStatesToken).
--define(ServiceChangeToken , ?CompactServiceChangeToken).
--define(ServiceChangeAddressToken , ?CompactServiceChangeAddressToken).
--define(ServiceChangeIncompleteToken , ?CompactServiceChangeIncompleteToken).
--define(SignalListToken , ?CompactSignalListToken).
--define(SignalsToken , ?CompactSignalsToken).
--define(SignalTypeToken , ?CompactSignalTypeToken).
--define(StatsToken , ?CompactStatsToken).
--define(StreamToken , ?CompactStreamToken).
--define(SubtractToken , ?CompactSubtractToken).
--define(SynchISDNToken , ?CompactSynchISDNToken).
--define(TerminationStateToken , ?CompactTerminationStateToken).
--define(TestToken , ?CompactTestToken).
--define(TimeOutToken , ?CompactTimeOutToken).
--define(TopologyToken , ?CompactTopologyToken).
--define(TransToken , ?CompactTransToken).
--define(V18Token , ?CompactV18Token).
--define(V22Token , ?CompactV22Token).
--define(V22bisToken , ?CompactV22bisToken).
--define(V32Token , ?CompactV32Token).
--define(V32bisToken , ?CompactV32bisToken).
--define(V34Token , ?CompactV34Token).
--define(V76Token , ?CompactV76Token).
--define(V90Token , ?CompactV90Token).
--define(V91Token , ?CompactV91Token).
--define(VersionToken , ?CompactVersionToken).
-
-%%----------------------------------------------------------------------
-%% Include the generator code
-%%----------------------------------------------------------------------
-
--include("megaco_text_gen_prev3a.hrl").
-
diff --git a/lib/megaco/src/text/megaco_compact_text_encoder_prev3b.erl b/lib/megaco/src/text/megaco_compact_text_encoder_prev3b.erl
deleted file mode 100644
index d581d2fb16..0000000000
--- a/lib/megaco/src/text/megaco_compact_text_encoder_prev3b.erl
+++ /dev/null
@@ -1,438 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode COMPACT Megaco/H.248 text messages from internal form
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
--module(megaco_compact_text_encoder_prev3b).
-
--export([encode_message/2,
- encode_transaction/2,
- encode_action_requests/2,
- encode_action_request/2,
- encode_command_request/2,
- encode_action_reply/2]).
-
--export([token_tag2string/1]).
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3b.hrl").
--define(encoder_version_pre_prev3c,true).
--include("megaco_text_tokens.hrl").
-
-
-%%----------------------------------------------------------------------
-%% Convert a 'MegacoMessage' record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-
-encode_message(EC, MegaMsg)
- when is_list(EC) andalso is_record(MegaMsg, 'MegacoMessage') ->
- case (catch enc_MegacoMessage(MegaMsg)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end;
-encode_message(EncodingConfig, MegaMsg)
- when is_record(MegaMsg, 'MegacoMessage') ->
- {error, {bad_encoding_config, EncodingConfig}};
-encode_message(_EncodingConfig, _MegaMsg) ->
- {error, bad_megaco_message}.
-
-
-
-
-%%----------------------------------------------------------------------
-%% Convert a transaction record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_transaction(_EC, Trans) ->
- case (catch enc_Transaction(Trans)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% Convert a list of ActionRequest record's into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_requests(_EC, ActReqs) ->
- case (catch enc_ActionRequests(ActReqs)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a ActionRequest record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_request(_EC, ActReq)
- when is_record(ActReq, 'ActionRequest') ->
- case (catch enc_ActionRequest(ActReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a CommandRequest record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_command_request(_EC, CmdReq)
- when is_record(CmdReq, 'CommandRequest') ->
- case (catch enc_CommandRequest(CmdReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a action reply into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_reply(_EC, ActRep)
- when is_record(ActRep, 'ActionReply') ->
- case (catch enc_ActionReply(ActRep)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% A utility function to pretty print the tags found in a megaco message
-%%----------------------------------------------------------------------
-
-token_tag2string(addReq) -> ?CompactAddToken;
-token_tag2string(addReply) -> ?CompactAddToken;
-token_tag2string(auditDescriptor) -> ?CompactAuditToken;
-token_tag2string(auditCapRequest) -> ?CompactAuditCapToken;
-token_tag2string(auditCapReply) -> ?CompactAuditCapToken;
-token_tag2string(auditValueRequest) -> ?CompactAuditValueToken;
-token_tag2string(auditValueReply) -> ?CompactAuditValueToken;
-%% token_tag2string(X) -> ?CompactAuthToken;
-token_tag2string(both) -> ?CompactBothToken;
-token_tag2string(bothway) -> ?CompactBothwayToken;
-token_tag2string(brief) -> ?CompactBriefToken;
-%% token_tag2string(X) -> ?CompactBufferToken;
-%% token_tag2string(X) -> ?CompactCtxToken;
-%% token_tag2string(X) -> ?CompactContextAttrToken;
-%% token_tag2string(X) -> ?CompactContextAuditToken;
-%% token_tag2string(X) -> ?CompactContextListToken;
-token_tag2string(digitMapDescriptor) -> ?CompactDigitMapToken;
-token_tag2string(digitMapToken) -> ?CompactDigitMapToken;
-%% token_tag2string(X) -> ?CompactDirectionToken;
-%% token_tag2string(X) -> ?CompactDiscardToken;
-%% token_tag2string(X) -> ?CompactDisconnectedToken;
-%% token_tag2string(X) -> ?CompactDelayToken;
-token_tag2string(duration) -> ?CompactDurationToken;
-%% token_tag2string(X) -> ?CompactEmbedToken;
-token_tag2string(emergencyAudit) -> ?CompactEmergencyToken;
-%% token_tag2string(X) -> ?CompactEmergencyOffToken;
-token_tag2string(errorDescriptor) -> ?CompactErrorToken;
-token_tag2string(eventBufferDescriptor) -> ?CompactEventBufferToken;
-token_tag2string(eventBufferToken) -> ?CompactEventBufferToken;
-token_tag2string(eventsDescriptor) -> ?CompactEventsToken;
-token_tag2string(eventsToken) -> ?CompactEventsToken;
-token_tag2string(external) -> ?CompactExternalToken;
-%% token_tag2string(X) -> ?CompactFailoverToken;
-%% token_tag2string(X) -> ?CompactForcedToken;
-%% token_tag2string(X) -> ?CompactGracefulToken;
-%% token_tag2string(X) -> ?CompactH221Token;
-%% token_tag2string(X) -> ?CompactH223Token;
-%% token_tag2string(X) -> ?CompactH226Token;
-%% token_tag2string(X) -> ?CompactHandOffToken;
-token_tag2string(iepsCallind) -> ?CompactIEPSToken;
-%% token_tag2string(X) -> ?CompactImmAckRequiredToken;
-token_tag2string(inactive) -> ?CompactInactiveToken;
-token_tag2string(internal) -> ?CompactInternalToken;
-token_tag2string(onInterruptByEvent) -> ?CompactInterruptByEventToken;
-token_tag2string(onInterruptByNewSignalDescr) -> ?CompactInterruptByNewSignalsDescrToken;
-token_tag2string(isolate) -> ?CompactIsolateToken;
-token_tag2string(inSvc) -> ?CompactInSvcToken;
-token_tag2string(keepActive) -> ?CompactKeepActiveToken;
-token_tag2string(localDescriptor) -> ?CompactLocalToken;
-token_tag2string(localControlDescriptor) -> ?CompactLocalControlToken;
-token_tag2string(lockStep) -> ?CompactLockStepToken;
-token_tag2string(loopBack) -> ?CompactLoopbackToken;
-token_tag2string(mediaDescriptor) -> ?CompactMediaToken;
-token_tag2string(mediaToken) -> ?CompactMediaToken;
-%% token_tag2string(X) -> ?CompactMegacopToken;
-%% token_tag2string(X) -> ?CompactMethodToken;
-%% token_tag2string(X) -> ?CompactMgcIdToken;
-%% token_tag2string(X) -> ?CompactModeToken;
-token_tag2string(modReq) -> ?CompactModifyToken;
-token_tag2string(modReply) -> ?CompactModifyToken;
-token_tag2string(modemDescriptor) -> ?CompactModemToken;
-token_tag2string(modemToken) -> ?CompactModemToken;
-token_tag2string(moveReq) -> ?CompactMoveToken;
-token_tag2string(moveReply) -> ?CompactMoveToken;
-%% token_tag2string(X) -> ?CompactMtpToken;
-token_tag2string(muxDescriptor) -> ?CompactMuxToken;
-token_tag2string(muxToken) -> ?CompactMuxToken;
-token_tag2string(notifyReq) -> ?CompactNotifyToken;
-%% token_tag2string(X) -> ?CompactNotifyCompletionToken;
-%% token_tag2string(X) -> ?CompactNx64kToken;
-token_tag2string(observedEventsDescriptor) -> ?CompactObservedEventsToken;
-token_tag2string(observedEventsToken) -> ?CompactObservedEventsToken;
-token_tag2string(false) -> ?CompactOffToken;
-token_tag2string(off) -> ?CompactOffToken;
-token_tag2string(oneway) -> ?CompactOnewayToken;
-token_tag2string(onOff) -> ?CompactOnOffToken;
-token_tag2string(true) -> ?CompactOnToken;
-token_tag2string(otherReason) -> ?CompactOtherReasonToken;
-token_tag2string(outOfSvc) -> ?CompactOutOfSvcToken;
-token_tag2string(packagesDescriptor) -> ?CompactPackagesToken;
-token_tag2string(packagesToken) -> ?CompactPackagesToken;
-%% token_tag2string(X) -> ?CompactPendingToken;
-token_tag2string(priorityAudit) -> ?CompactPriorityToken;
-%% token_tag2string(X) -> ?CompactProfileToken;
-%% token_tag2string(X) -> ?CompactReasonToken;
-token_tag2string(recvOnly) -> ?CompactRecvonlyToken;
-%% token_tag2string(X) -> ?CompactReplyToken;
-%% token_tag2string(X) -> ?CompactRequestIDToken;
-%% token_tag2string(X) -> ?CompactResponseAckToken;
-%% token_tag2string(X) -> ?CompactRestartToken;
-token_tag2string(remoteDescriptor) -> ?CompactRemoteToken;
-%% token_tag2string(X) -> ?CompactReservedGroupToken;
-%% token_tag2string(X) -> ?CompactReservedValueToken;
-token_tag2string(sendOnly) -> ?CompactSendonlyToken;
-token_tag2string(sendRecv) -> ?CompactSendrecvToken;
-%% token_tag2string(X) -> ?CompactServicesToken;
-%% token_tag2string(X) -> ?CompactServiceStatesToken;
-token_tag2string(serviceChangeReq) -> ?CompactServiceChangeToken;
-%% token_tag2string(X) -> ?CompactServiceChangeAddressToken;
-token_tag2string(incomplete) -> ?CompactServiceChangeIncompleteToken;
-%% token_tag2string(X) -> ?CompactSignalListToken;
-token_tag2string(signalsDescriptor) -> ?CompactSignalsToken;
-token_tag2string(signalsToken) -> ?CompactSignalsToken;
-%% token_tag2string(X) -> ?CompactSignalTypeToken;
-token_tag2string(statisticsDescriptor) -> ?CompactStatsToken;
-token_tag2string(statsToken) -> ?CompactStatsToken;
-%% token_tag2string(X) -> ?CompactStreamToken;
-token_tag2string(subtractReq) -> ?CompactSubtractToken;
-token_tag2string(subtractReply) -> ?CompactSubtractToken;
-%% token_tag2string(X) -> ?CompactSynchISDNToken;
-%% token_tag2string(X) -> ?CompactTerminationStateToken;
-token_tag2string(test) -> ?CompactTestToken;
-token_tag2string(timeOut) -> ?CompactTimeOutToken;
-token_tag2string(onTimeOut) -> ?CompactTimeOutToken;
-token_tag2string(topologyAudit) -> ?CompactTopologyToken;
-%% token_tag2string(X) -> ?CompactTransToken;
-%% token_tag2string(X) -> ?CompactV18Token;
-%% token_tag2string(X) -> ?CompactV22Token;
-%% token_tag2string(X) -> ?CompactV22bisToken;
-%% token_tag2string(X) -> ?CompactV32Token;
-%% token_tag2string(X) -> ?CompactV32bisToken;
-%% token_tag2string(X) -> ?CompactV34Token;
-%% token_tag2string(X) -> ?CompactV76Token;
-%% token_tag2string(X) -> ?CompactV90Token;
-%% token_tag2string(X) -> ?CompactV91Token;
-%% token_tag2string(X) -> ?CompactVersionToken;
-token_tag2string(_) -> [].
-
-
-
-%%----------------------------------------------------------------------
-%% Define various macros used by the actual generator code
-%%----------------------------------------------------------------------
-
--define(EQUAL, [?EqualToken]).
--define(COLON, [?ColonToken]).
--define(LBRKT, [?LbrktToken]).
--define(RBRKT, [?RbrktToken]).
--define(LSBRKT, [?LsbrktToken]).
--define(RSBRKT, [?RsbrktToken]).
--define(COMMA, [?CommaToken]).
--define(DOT, [?DotToken]).
--define(SLASH, [?SlashToken]).
--define(DQUOTE, [?DoubleQuoteToken]).
--define(SP, [?SpToken]).
--define(HTAB, [?HtabToken]).
--define(CR, [?CrToken]).
--define(LF, [?LfToken]).
--define(LWSP, []).
--define(EOL, ?LF).
--define(WSP, ?SP).
--define(SEP, ?WSP).
-
--define(INIT_INDENT, []).
--define(INC_INDENT(State), State).
--define(INDENT(State), State).
--define(LBRKT_INDENT(_State), [?LbrktToken]).
--define(RBRKT_INDENT(_State), [?RbrktToken]).
--define(LSBRKT_INDENT(_State), [?LsbrktToken]).
--define(RSBRKT_INDENT(_State), [?RsbrktToken]).
--define(COMMA_INDENT(_State), [?CommaToken]).
--define(SEP_INDENT(_State), [?LfToken]).
-
-%%----------------------------------------------------------------------
-%% Define token macros
-%%----------------------------------------------------------------------
-
--define(AddToken , ?CompactAddToken).
--define(AuditToken , ?CompactAuditToken).
--define(AuditCapToken , ?CompactAuditCapToken).
--define(AuditValueToken , ?CompactAuditValueToken).
--define(AuthToken , ?CompactAuthToken).
--define(BothToken , ?CompactBothToken).
--define(BothwayToken , ?CompactBothwayToken).
--define(BriefToken , ?CompactBriefToken).
--define(BufferToken , ?CompactBufferToken).
--define(CtxToken , ?CompactCtxToken).
--define(ContextAuditToken , ?CompactContextAuditToken).
--define(ContextAttrToken , ?CompactContextAttrToken).
--define(DigitMapToken , ?CompactDigitMapToken).
--define(DirectionToken , ?CompactDirectionToken).
--define(DiscardToken , ?CompactDiscardToken).
--define(DisconnectedToken , ?CompactDisconnectedToken).
--define(DelayToken , ?CompactDelayToken).
--define(DeleteToken , ?CompactDeleteToken).
--define(DurationToken , ?CompactDurationToken).
--define(EmbedToken , ?CompactEmbedToken).
--define(EmergencyToken , ?CompactEmergencyToken).
--define(EmergencyOffToken , ?CompactEmergencyOffToken).
--define(ErrorToken , ?CompactErrorToken).
--define(EventBufferToken , ?CompactEventBufferToken).
--define(EventsToken , ?CompactEventsToken).
--define(ExternalToken , ?CompactExternalToken).
--define(FailoverToken , ?CompactFailoverToken).
--define(ForcedToken , ?CompactForcedToken).
--define(GracefulToken , ?CompactGracefulToken).
--define(H221Token , ?CompactH221Token).
--define(H223Token , ?CompactH223Token).
--define(H226Token , ?CompactH226Token).
--define(HandOffToken , ?CompactHandOffToken).
--define(IEPSToken , ?CompactIEPSToken).
--define(ImmAckRequiredToken , ?CompactImmAckRequiredToken).
--define(InactiveToken , ?CompactInactiveToken).
--define(InternalToken , ?CompactInternalToken).
--define(InterruptByEventToken , ?CompactInterruptByEventToken).
--define(InterruptByNewSignalsDescrToken, ?CompactInterruptByNewSignalsDescrToken).
--define(IsolateToken , ?CompactIsolateToken).
--define(InSvcToken , ?CompactInSvcToken).
--define(KeepActiveToken , ?CompactKeepActiveToken).
--define(LocalToken , ?CompactLocalToken).
--define(LocalControlToken , ?CompactLocalControlToken).
--define(LockStepToken , ?CompactLockStepToken).
--define(LoopbackToken , ?CompactLoopbackToken).
--define(MediaToken , ?CompactMediaToken).
--define(MegacopToken , ?CompactMegacopToken).
--define(MethodToken , ?CompactMethodToken).
--define(MgcIdToken , ?CompactMgcIdToken).
--define(ModeToken , ?CompactModeToken).
--define(ModifyToken , ?CompactModifyToken).
--define(ModemToken , ?CompactModemToken).
--define(MoveToken , ?CompactMoveToken).
--define(MtpToken , ?CompactMtpToken).
--define(MuxToken , ?CompactMuxToken).
--define(NotifyToken , ?CompactNotifyToken).
--define(NotifyCompletionToken , ?CompactNotifyCompletionToken).
--define(Nx64kToken , ?CompactNx64kToken).
--define(ObservedEventsToken , ?CompactObservedEventsToken).
--define(OffToken , ?CompactOffToken).
--define(OnewayToken , ?CompactOnewayToken).
--define(OnOffToken , ?CompactOnOffToken).
--define(OnToken , ?CompactOnToken).
--define(OtherReasonToken , ?CompactOtherReasonToken).
--define(OutOfSvcToken , ?CompactOutOfSvcToken).
--define(PackagesToken , ?CompactPackagesToken).
--define(PendingToken , ?CompactPendingToken).
--define(PriorityToken , ?CompactPriorityToken).
--define(ProfileToken , ?CompactProfileToken).
--define(ReasonToken , ?CompactReasonToken).
--define(RecvonlyToken , ?CompactRecvonlyToken).
--define(ReplyToken , ?CompactReplyToken).
--define(ResponseAckToken , ?CompactResponseAckToken).
--define(RestartToken , ?CompactRestartToken).
--define(RemoteToken , ?CompactRemoteToken).
--define(RequestIDToken , ?CompactRequestIDToken).
--define(ReservedGroupToken , ?CompactReservedGroupToken).
--define(ReservedValueToken , ?CompactReservedValueToken).
--define(SendonlyToken , ?CompactSendonlyToken).
--define(SendrecvToken , ?CompactSendrecvToken).
--define(ServicesToken , ?CompactServicesToken).
--define(ServiceStatesToken , ?CompactServiceStatesToken).
--define(ServiceChangeToken , ?CompactServiceChangeToken).
--define(ServiceChangeAddressToken , ?CompactServiceChangeAddressToken).
--define(ServiceChangeIncompleteToken , ?CompactServiceChangeIncompleteToken).
--define(SignalListToken , ?CompactSignalListToken).
--define(SignalsToken , ?CompactSignalsToken).
--define(SignalTypeToken , ?CompactSignalTypeToken).
--define(StatsToken , ?CompactStatsToken).
--define(StreamToken , ?CompactStreamToken).
--define(SubtractToken , ?CompactSubtractToken).
--define(SynchISDNToken , ?CompactSynchISDNToken).
--define(TerminationStateToken , ?CompactTerminationStateToken).
--define(TestToken , ?CompactTestToken).
--define(TimeOutToken , ?CompactTimeOutToken).
--define(TopologyToken , ?CompactTopologyToken).
--define(TransToken , ?CompactTransToken).
--define(V18Token , ?CompactV18Token).
--define(V22Token , ?CompactV22Token).
--define(V22bisToken , ?CompactV22bisToken).
--define(V32Token , ?CompactV32Token).
--define(V32bisToken , ?CompactV32bisToken).
--define(V34Token , ?CompactV34Token).
--define(V76Token , ?CompactV76Token).
--define(V90Token , ?CompactV90Token).
--define(V91Token , ?CompactV91Token).
--define(VersionToken , ?CompactVersionToken).
-
-%%----------------------------------------------------------------------
-%% Include the generator code
-%%----------------------------------------------------------------------
-
--include("megaco_text_gen_prev3b.hrl").
-
diff --git a/lib/megaco/src/text/megaco_compact_text_encoder_prev3c.erl b/lib/megaco/src/text/megaco_compact_text_encoder_prev3c.erl
deleted file mode 100644
index 95e244a696..0000000000
--- a/lib/megaco/src/text/megaco_compact_text_encoder_prev3c.erl
+++ /dev/null
@@ -1,461 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode COMPACT Megaco/H.248 text messages from internal form
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
--module(megaco_compact_text_encoder_prev3c).
-
--export([encode_message/2,
- encode_transaction/2,
- encode_action_requests/2,
- encode_action_request/2,
- encode_command_request/2,
- encode_action_reply/2]).
-
--export([token_tag2string/1]).
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3c.hrl").
--include("megaco_text_tokens.hrl").
-
-
-%%----------------------------------------------------------------------
-%% Convert a 'MegacoMessage' record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-
-encode_message(EC, MegaMsg)
- when is_list(EC) andalso is_record(MegaMsg, 'MegacoMessage') ->
- case (catch enc_MegacoMessage(MegaMsg)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end;
-encode_message(EncodingConfig, MegaMsg)
- when is_record(MegaMsg, 'MegacoMessage') ->
- {error, {bad_encoding_config, EncodingConfig}};
-encode_message(_EncodingConfig, _MegaMsg) ->
- {error, bad_megaco_message}.
-
-
-
-
-%%----------------------------------------------------------------------
-%% Convert a transaction record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_transaction(_EC, Trans) ->
- case (catch enc_Transaction(Trans)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% Convert a list of ActionRequest record's into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_requests(_EC, ActReqs) when is_list(ActReqs) ->
- case (catch enc_ActionRequests(ActReqs)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a ActionRequest record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_request(_EC, ActReq)
- when is_record(ActReq, 'ActionRequest') ->
- case (catch enc_ActionRequest(ActReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a CommandRequest record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_command_request(_EC, CmdReq)
- when is_record(CmdReq, 'CommandRequest') ->
- case (catch enc_CommandRequest(CmdReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a action reply into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_reply(_EC, ActRep)
- when is_record(ActRep, 'ActionReply') ->
- case (catch enc_ActionReply(ActRep)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% A utility function to pretty print the tags found in a megaco message
-%%----------------------------------------------------------------------
-
-token_tag2string(addReq) -> ?CompactAddToken;
-token_tag2string(addReply) -> ?CompactAddToken;
-%% token_tag2string(X) -> ?CompactAndAUDITSelectToken;
-token_tag2string(auditDescriptor) -> ?CompactAuditToken;
-token_tag2string(auditCapRequest) -> ?CompactAuditCapToken;
-token_tag2string(auditCapReply) -> ?CompactAuditCapToken;
-token_tag2string(auditValueRequest) -> ?CompactAuditValueToken;
-token_tag2string(auditValueReply) -> ?CompactAuditValueToken;
-%% token_tag2string(X) -> ?CompactAuthToken;
-token_tag2string(both) -> ?CompactBothToken;
-token_tag2string(bothway) -> ?CompactBothwayToken;
-token_tag2string(brief) -> ?CompactBriefToken;
-%% token_tag2string(X) -> ?CompactBufferToken;
-%% token_tag2string(X) -> ?CompactCtxToken;
-%% token_tag2string(X) -> ?CompactContextAuditToken;
-%% token_tag2string(X) -> ?CompactContextAttrToken;
-%% token_tag2string(X) -> ?CompactContextListToken;
-token_tag2string(digitMapDescriptor) -> ?CompactDigitMapToken;
-token_tag2string(digitMapToken) -> ?CompactDigitMapToken;
-%% token_tag2string(X) -> ?CompactDirectionToken;
-%% token_tag2string(X) -> ?CompactDiscardToken;
-%% token_tag2string(X) -> ?CompactDisconnectedToken;
-%% token_tag2string(X) -> ?CompactDelayToken;
-token_tag2string(duration) -> ?CompactDurationToken;
-%% token_tag2string(X) -> ?CompactEmbedToken;
-token_tag2string(emergencyAudit) -> ?CompactEmergencyToken;
-%% token_tag2string(X) -> ?CompactEmergencyOffToken;
-%% token_tag2string(X) -> ?CompactEmergencyValueToken;
-token_tag2string(errorDescriptor) -> ?CompactErrorToken;
-token_tag2string(eventBufferDescriptor) -> ?CompactEventBufferToken;
-token_tag2string(eventBufferToken) -> ?CompactEventBufferToken;
-token_tag2string(eventsDescriptor) -> ?CompactEventsToken;
-token_tag2string(eventsToken) -> ?CompactEventsToken;
-token_tag2string(external) -> ?CompactExternalToken;
-%% token_tag2string(X) -> ?CompactFailoverToken;
-%% token_tag2string(X) -> ?CompactForcedToken;
-%% token_tag2string(X) -> ?CompactGracefulToken;
-%% token_tag2string(X) -> ?CompactH221Token;
-%% token_tag2string(X) -> ?CompactH223Token;
-%% token_tag2string(X) -> ?CompactH226Token;
-%% token_tag2string(X) -> ?CompactHandOffToken;
-token_tag2string(iepsCallind) -> ?CompactIEPSToken;
-%% token_tag2string(X) -> ?CompactImmAckRequiredToken;
-token_tag2string(inactive) -> ?CompactInactiveToken;
-token_tag2string(internal) -> ?CompactInternalToken;
-%% token_tag2string(X) -> ?CompactIntsigDelayToken;
-token_tag2string(onInterruptByEvent) -> ?CompactInterruptByEventToken;
-token_tag2string(onInterruptByNewSignalDescr) -> ?CompactInterruptByNewSignalsDescrToken;
-token_tag2string(isolate) -> ?CompactIsolateToken;
-token_tag2string(inSvc) -> ?CompactInSvcToken;
-token_tag2string(iteration) -> ?CompactIterationToken;
-token_tag2string(keepActive) -> ?CompactKeepActiveToken;
-token_tag2string(localDescriptor) -> ?CompactLocalToken;
-token_tag2string(localControlDescriptor) -> ?CompactLocalControlToken;
-token_tag2string(lockStep) -> ?CompactLockStepToken;
-token_tag2string(loopBack) -> ?CompactLoopbackToken;
-token_tag2string(mediaDescriptor) -> ?CompactMediaToken;
-token_tag2string(mediaToken) -> ?CompactMediaToken;
-%% token_tag2string(X) -> ?CompactMegacopToken;
-%% token_tag2string(X) -> ?CompactMethodToken;
-%% token_tag2string(X) -> ?CompactMgcIdToken;
-%% token_tag2string(X) -> ?CompactModeToken;
-token_tag2string(modReq) -> ?CompactModifyToken;
-token_tag2string(modReply) -> ?CompactModifyToken;
-token_tag2string(modemDescriptor) -> ?CompactModemToken;
-token_tag2string(modemToken) -> ?CompactModemToken;
-token_tag2string(moveReq) -> ?CompactMoveToken;
-token_tag2string(moveReply) -> ?CompactMoveToken;
-%% token_tag2string(X) -> ?CompactMtpToken;
-token_tag2string(muxDescriptor) -> ?CompactMuxToken;
-token_tag2string(muxToken) -> ?CompactMuxToken;
-%% token_tag2string(X) -> ?CompactNeverNotifyToken;
-token_tag2string(notifyReq) -> ?CompactNotifyToken;
-%% token_tag2string(X) -> ?CompactNotifyCompletionToken;
-%% token_tag2string(X) -> ?CompactNotifyImmediateToken;
-%% token_tag2string(X) -> ?CompactNotifyRegulatedToken;
-%% token_tag2string(X) -> ?CompactNx64kToken;
-token_tag2string(observedEventsDescriptor) -> ?CompactObservedEventsToken;
-token_tag2string(observedEventsToken) -> ?CompactObservedEventsToken;
-token_tag2string(false) -> ?CompactOffToken;
-token_tag2string(off) -> ?CompactOffToken;
-token_tag2string(oneway) -> ?CompactOnewayToken;
-token_tag2string(onewayboth) -> ?CompactOnewayBothToken;
-token_tag2string(onewayexternal) -> ?CompactOnewayExternalToken;
-token_tag2string(onOff) -> ?CompactOnOffToken;
-%% token_tag2string(X) -> ?CompactOrAUDITselectToken;
-token_tag2string(true) -> ?CompactOnToken;
-token_tag2string(otherReason) -> ?CompactOtherReasonToken;
-token_tag2string(outOfSvc) -> ?CompactOutOfSvcToken;
-token_tag2string(packagesDescriptor) -> ?CompactPackagesToken;
-token_tag2string(packagesToken) -> ?CompactPackagesToken;
-%% token_tag2string(X) -> ?CompactPendingToken;
-token_tag2string(priorityAudit) -> ?CompactPriorityToken;
-%% token_tag2string(X) -> ?CompactProfileToken;
-%% token_tag2string(X) -> ?CompactReasonToken;
-token_tag2string(recvOnly) -> ?CompactRecvonlyToken;
-%% token_tag2string(X) -> ?CompactReplyToken;
-token_tag2string(resetEventsDescriptor) -> ?CompactResetEventsDescriptorToken;
-%% token_tag2string(X) -> ?CompactRequestIDToken;
-%% token_tag2string(X) -> ?CompactResponseAckToken;
-%% token_tag2string(X) -> ?CompactRestartToken;
-token_tag2string(remoteDescriptor) -> ?CompactRemoteToken;
-%% token_tag2string(X) -> ?CompactReservedGroupToken;
-%% token_tag2string(X) -> ?CompactReservedValueToken;
-token_tag2string(sendOnly) -> ?CompactSendonlyToken;
-token_tag2string(sendRecv) -> ?CompactSendrecvToken;
-%% token_tag2string(X) -> ?CompactServicesToken;
-%% token_tag2string(X) -> ?CompactServiceStatesToken;
-token_tag2string(serviceChangeReq) -> ?CompactServiceChangeToken;
-%% token_tag2string(X) -> ?CompactServiceChangeAddressToken;
-token_tag2string(incomplete) -> ?CompactServiceChangeIncompleteToken;
-%% token_tag2string(X) -> ?CompactSignalListToken;
-token_tag2string(signalsDescriptor) -> ?CompactSignalsToken;
-token_tag2string(signalsToken) -> ?CompactSignalsToken;
-%% token_tag2string(X) -> ?CompactSignalTypeToken;
-token_tag2string(statisticsDescriptor) -> ?CompactStatsToken;
-token_tag2string(statsToken) -> ?CompactStatsToken;
-%% token_tag2string(X) -> ?CompactStreamToken;
-token_tag2string(subtractReq) -> ?CompactSubtractToken;
-token_tag2string(subtractReply) -> ?CompactSubtractToken;
-%% token_tag2string(X) -> ?CompactSynchISDNToken;
-%% token_tag2string(X) -> ?CompactTerminationStateToken;
-token_tag2string(test) -> ?CompactTestToken;
-token_tag2string(timeOut) -> ?CompactTimeOutToken;
-token_tag2string(onTimeOut) -> ?CompactTimeOutToken;
-token_tag2string(topologyAudit) -> ?CompactTopologyToken;
-%% token_tag2string(X) -> ?CompactTransToken;
-%% token_tag2string(X) -> ?CompactV18Token;
-%% token_tag2string(X) -> ?CompactV22Token;
-%% token_tag2string(X) -> ?CompactV22bisToken;
-%% token_tag2string(X) -> ?CompactV32Token;
-%% token_tag2string(X) -> ?CompactV32bisToken;
-%% token_tag2string(X) -> ?CompactV34Token;
-%% token_tag2string(X) -> ?CompactV76Token;
-%% token_tag2string(X) -> ?CompactV90Token;
-%% token_tag2string(X) -> ?CompactV91Token;
-%% token_tag2string(X) -> ?CompactVersionToken;
-token_tag2string(_) -> [].
-
-
-%%----------------------------------------------------------------------
-%% Define various macros used by the actual generator code
-%%----------------------------------------------------------------------
-
--define(EQUAL, [?EqualToken]).
--define(COLON, [?ColonToken]).
--define(LBRKT, [?LbrktToken]).
--define(RBRKT, [?RbrktToken]).
--define(LSBRKT, [?LsbrktToken]).
--define(RSBRKT, [?RsbrktToken]).
--define(COMMA, [?CommaToken]).
--define(DOT, [?DotToken]).
--define(SLASH, [?SlashToken]).
--define(DQUOTE, [?DoubleQuoteToken]).
--define(SP, [?SpToken]).
--define(HTAB, [?HtabToken]).
--define(CR, [?CrToken]).
--define(LF, [?LfToken]).
--define(LWSP, []).
--define(EOL, ?LF).
--define(WSP, ?SP).
--define(SEP, ?WSP).
-
--define(INIT_INDENT, []).
--define(INC_INDENT(State), State).
--define(INDENT(State), State).
--define(LBRKT_INDENT(_State), [?LbrktToken]).
--define(RBRKT_INDENT(_State), [?RbrktToken]).
--define(LSBRKT_INDENT(_State), [?LsbrktToken]).
--define(RSBRKT_INDENT(_State), [?RsbrktToken]).
--define(COMMA_INDENT(_State), [?CommaToken]).
--define(SEP_INDENT(_State), [?LfToken]).
-
-%%----------------------------------------------------------------------
-%% Define token macros
-%%----------------------------------------------------------------------
-
--define(AddToken , ?CompactAddToken).
--define(AndAUDITSelectToken , ?CompactAndAUDITSelectToken).
--define(AuditToken , ?CompactAuditToken).
--define(AuditCapToken , ?CompactAuditCapToken).
--define(AuditValueToken , ?CompactAuditValueToken).
--define(AuthToken , ?CompactAuthToken).
--define(BothToken , ?CompactBothToken).
--define(BothwayToken , ?CompactBothwayToken).
--define(BriefToken , ?CompactBriefToken).
--define(BufferToken , ?CompactBufferToken).
--define(CtxToken , ?CompactCtxToken).
--define(ContextAuditToken , ?CompactContextAuditToken).
--define(ContextAttrToken , ?CompactContextAttrToken).
--define(ContextListToken , ?CompactContextListToken).
--define(DigitMapToken , ?CompactDigitMapToken).
--define(DirectionToken , ?CompactDirectionToken).
--define(DiscardToken , ?CompactDiscardToken).
--define(DisconnectedToken , ?CompactDisconnectedToken).
--define(DelayToken , ?CompactDelayToken).
--define(DeleteToken , ?CompactDeleteToken).
--define(DurationToken , ?CompactDurationToken).
--define(EmbedToken , ?CompactEmbedToken).
--define(EmergencyToken , ?CompactEmergencyToken).
--define(EmergencyOffToken , ?CompactEmergencyOffToken).
--define(EmergencyValueToken , ?CompactEmergencyValueToken).
--define(ErrorToken , ?CompactErrorToken).
--define(EventBufferToken , ?CompactEventBufferToken).
--define(EventsToken , ?CompactEventsToken).
--define(ExternalToken , ?CompactExternalToken).
--define(FailoverToken , ?CompactFailoverToken).
--define(ForcedToken , ?CompactForcedToken).
--define(GracefulToken , ?CompactGracefulToken).
--define(H221Token , ?CompactH221Token).
--define(H223Token , ?CompactH223Token).
--define(H226Token , ?CompactH226Token).
--define(HandOffToken , ?CompactHandOffToken).
--define(IEPSToken , ?CompactIEPSToken).
--define(ImmAckRequiredToken , ?CompactImmAckRequiredToken).
--define(InactiveToken , ?CompactInactiveToken).
--define(InternalToken , ?CompactInternalToken).
--define(IntsigDelayToken , ?CompactIntsigDelayToken).
--define(IsolateToken , ?CompactIsolateToken).
--define(InSvcToken , ?CompactInSvcToken).
--define(InterruptByEventToken , ?CompactInterruptByEventToken).
--define(InterruptByNewSignalsDescrToken, ?CompactInterruptByNewSignalsDescrToken).
--define(IterationToken , ?CompactIterationToken).
--define(KeepActiveToken , ?CompactKeepActiveToken).
--define(LocalToken , ?CompactLocalToken).
--define(LocalControlToken , ?CompactLocalControlToken).
--define(LockStepToken , ?CompactLockStepToken).
--define(LoopbackToken , ?CompactLoopbackToken).
--define(MediaToken , ?CompactMediaToken).
--define(MegacopToken , ?CompactMegacopToken).
-%% -define(MessageSegmentToken , ?CompactMessageSegmentToken).
--define(MethodToken , ?CompactMethodToken).
--define(MgcIdToken , ?CompactMgcIdToken).
--define(ModeToken , ?CompactModeToken).
--define(ModifyToken , ?CompactModifyToken).
--define(ModemToken , ?CompactModemToken).
--define(MoveToken , ?CompactMoveToken).
--define(MtpToken , ?CompactMtpToken).
--define(MuxToken , ?CompactMuxToken).
--define(NeverNotifyToken , ?CompactNeverNotifyToken).
--define(NotifyToken , ?CompactNotifyToken).
--define(NotifyCompletionToken , ?CompactNotifyCompletionToken).
--define(NotifyImmediateToken , ?CompactNotifyImmediateToken).
--define(NotifyRegulatedToken , ?CompactNotifyRegulatedToken).
--define(Nx64kToken , ?CompactNx64kToken).
--define(ObservedEventsToken , ?CompactObservedEventsToken).
--define(OffToken , ?CompactOffToken).
--define(OnewayToken , ?CompactOnewayToken).
--define(OnewayBothToken , ?CompactOnewayBothToken).
--define(OnewayExternalToken , ?CompactOnewayExternalToken).
--define(OnOffToken , ?CompactOnOffToken).
--define(OnToken , ?CompactOnToken).
--define(OrAUDITselectToken , ?CompactOrAUDITselectToken).
--define(OtherReasonToken , ?CompactOtherReasonToken).
--define(OutOfSvcToken , ?CompactOutOfSvcToken).
--define(PackagesToken , ?CompactPackagesToken).
--define(PendingToken , ?CompactPendingToken).
--define(PriorityToken , ?CompactPriorityToken).
--define(ProfileToken , ?CompactProfileToken).
--define(ReasonToken , ?CompactReasonToken).
--define(RecvonlyToken , ?CompactRecvonlyToken).
--define(ReplyToken , ?CompactReplyToken).
--define(ResetEventsDescriptorToken , ?CompactResetEventsDescriptorToken).
--define(ResponseAckToken , ?CompactResponseAckToken).
--define(RestartToken , ?CompactRestartToken).
--define(RemoteToken , ?CompactRemoteToken).
--define(RequestIDToken , ?CompactRequestIDToken).
--define(ReservedGroupToken , ?CompactReservedGroupToken).
--define(ReservedValueToken , ?CompactReservedValueToken).
-%% -define(SegmentationCompleteToken , ?CompactSegmentationCompleteToken).
--define(SendonlyToken , ?CompactSendonlyToken).
--define(SendrecvToken , ?CompactSendrecvToken).
--define(ServicesToken , ?CompactServicesToken).
--define(ServiceStatesToken , ?CompactServiceStatesToken).
--define(ServiceChangeToken , ?CompactServiceChangeToken).
--define(ServiceChangeAddressToken , ?CompactServiceChangeAddressToken).
--define(ServiceChangeIncompleteToken , ?CompactServiceChangeIncompleteToken).
--define(SignalListToken , ?CompactSignalListToken).
--define(SignalsToken , ?CompactSignalsToken).
--define(SignalTypeToken , ?CompactSignalTypeToken).
--define(StatsToken , ?CompactStatsToken).
--define(StreamToken , ?CompactStreamToken).
--define(SubtractToken , ?CompactSubtractToken).
--define(SynchISDNToken , ?CompactSynchISDNToken).
--define(TerminationStateToken , ?CompactTerminationStateToken).
--define(TestToken , ?CompactTestToken).
--define(TimeOutToken , ?CompactTimeOutToken).
--define(TopologyToken , ?CompactTopologyToken).
--define(TransToken , ?CompactTransToken).
--define(V18Token , ?CompactV18Token).
--define(V22Token , ?CompactV22Token).
--define(V22bisToken , ?CompactV22bisToken).
--define(V32Token , ?CompactV32Token).
--define(V32bisToken , ?CompactV32bisToken).
--define(V34Token , ?CompactV34Token).
--define(V76Token , ?CompactV76Token).
--define(V90Token , ?CompactV90Token).
--define(V91Token , ?CompactV91Token).
--define(VersionToken , ?CompactVersionToken).
-
-%%----------------------------------------------------------------------
-%% Include the generator code
-%%----------------------------------------------------------------------
-
--include("megaco_text_gen_prev3c.hrl").
-
diff --git a/lib/megaco/src/text/megaco_compact_text_encoder_v1.erl b/lib/megaco/src/text/megaco_compact_text_encoder_v1.erl
index fb6e9ee513..7b84e5f20a 100644
--- a/lib/megaco/src/text/megaco_compact_text_encoder_v1.erl
+++ b/lib/megaco/src/text/megaco_compact_text_encoder_v1.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2003-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2003-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -36,7 +36,7 @@
-include_lib("megaco/include/megaco.hrl").
-include_lib("megaco/include/megaco_message_v1.hrl").
--define(encoder_version_pre_prev3c,true).
+-define(encoder_pre_version_3,true). % version 1 or 2
-include("megaco_text_tokens.hrl").
diff --git a/lib/megaco/src/text/megaco_compact_text_encoder_v2.erl b/lib/megaco/src/text/megaco_compact_text_encoder_v2.erl
index 459bf07190..169c59909a 100644
--- a/lib/megaco/src/text/megaco_compact_text_encoder_v2.erl
+++ b/lib/megaco/src/text/megaco_compact_text_encoder_v2.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2003-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2003-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -36,7 +36,7 @@
-include_lib("megaco/include/megaco.hrl").
-include_lib("megaco/include/megaco_message_v2.hrl").
--define(encoder_version_pre_prev3c,true).
+-define(encoder_pre_version_3,true). % version 1 or 2
-include("megaco_text_tokens.hrl").
diff --git a/lib/megaco/src/text/megaco_compact_text_encoder_v3.erl b/lib/megaco/src/text/megaco_compact_text_encoder_v3.erl
index 4f6f16d44b..691bd47130 100644
--- a/lib/megaco/src/text/megaco_compact_text_encoder_v3.erl
+++ b/lib/megaco/src/text/megaco_compact_text_encoder_v3.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2005-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
diff --git a/lib/megaco/src/text/megaco_pretty_text_encoder.erl b/lib/megaco/src/text/megaco_pretty_text_encoder.erl
index 56e47a5f24..cf9b1594a3 100644
--- a/lib/megaco/src/text/megaco_pretty_text_encoder.erl
+++ b/lib/megaco/src/text/megaco_pretty_text_encoder.erl
@@ -59,9 +59,6 @@
-define(V1_PARSE_MOD, megaco_text_parser_v1).
-define(V2_PARSE_MOD, megaco_text_parser_v2).
-define(V3_PARSE_MOD, megaco_text_parser_v3).
--define(PREV3A_PARSE_MOD, megaco_text_parser_prev3a).
--define(PREV3B_PARSE_MOD, megaco_text_parser_prev3b).
--define(PREV3C_PARSE_MOD, megaco_text_parser_prev3c).
%%----------------------------------------------------------------------
@@ -90,15 +87,6 @@ encode_message([{version3,_}|EC], 2, MegaMsg) ->
encode_message(EC, 2, MegaMsg) ->
megaco_pretty_text_encoder_v2:encode_message(EC, MegaMsg);
-%% <DEPRECATED>
-encode_message([{version3,prev3c}|EC], 3, MegaMsg) ->
- megaco_pretty_text_encoder_prev3c:encode_message(EC, MegaMsg);
-encode_message([{version3,prev3b}|EC], 3, MegaMsg) ->
- megaco_pretty_text_encoder_prev3b:encode_message(EC, MegaMsg);
-encode_message([{version3,prev3a}|EC], 3, MegaMsg) ->
- megaco_pretty_text_encoder_prev3a:encode_message(EC, MegaMsg);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_message([{version3,v3}|EC], 3, MegaMsg) ->
megaco_pretty_text_encoder_v3:encode_message(EC, MegaMsg);
@@ -148,69 +136,6 @@ decode_message([], _, Bin) when is_binary(Bin) ->
scan_error(Reason, Line, Bin) %% OTP-4007
end;
-%% <DEPRECATED>
-decode_message([{version3,prev3c}], _, Bin) when is_binary(Bin) ->
- case megaco_text_scanner:scan(Bin) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3C_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- {error, Reason, Tokens, Line} ->
- scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} ->
- scan_error(Reason, Line, Bin)
- end;
-decode_message([{version3,prev3b}], _, Bin) when is_binary(Bin) ->
- case megaco_text_scanner:scan(Bin) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3B_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- {error, Reason, Tokens, Line} ->
- scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-decode_message([{version3,prev3a}], _, Bin) when is_binary(Bin) ->
- case megaco_text_scanner:scan(Bin) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3A_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- {error, Reason, Tokens, Line} ->
- scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
decode_message([{version3,v3}], _, Bin) when is_binary(Bin) ->
case megaco_text_scanner:scan(Bin) of
@@ -255,69 +180,6 @@ decode_message([{flex, Port}], _, Bin) when is_binary(Bin) ->
scan_error(Reason, Line, Bin) %% OTP-4007
end;
-%% <DEPRECATED>
-decode_message([{version3,prev3c},{flex, Port}], _, Bin) when is_binary(Bin) ->
- case megaco_flex_scanner:scan(Bin, Port) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3C_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- %% {error, Reason, Tokens, Line} ->
- %% scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-decode_message([{version3,prev3b},{flex, Port}], _, Bin) when is_binary(Bin) ->
- case megaco_flex_scanner:scan(Bin, Port) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3B_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- %% {error, Reason, Tokens, Line} ->
- %% scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-decode_message([{version3,prev3a},{flex, Port}], _, Bin) when is_binary(Bin) ->
- case megaco_flex_scanner:scan(Bin, Port) of
- {ok, Tokens, 1, _LastLine} ->
- do_decode_message(?V1_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 2, _LastLine} ->
- do_decode_message(?V2_PARSE_MOD, Tokens, Bin);
-
- {ok, Tokens, 3, _LastLine} ->
- do_decode_message(?PREV3A_PARSE_MOD, Tokens, Bin);
-
- {ok, _Tokens, V, _LastLine} ->
- {error, {unsupported_version, V}};
-
- %% {error, Reason, Tokens, Line} ->
- %% scan_error(Reason, Line, Tokens, Bin);
-
- {error, Reason, Line} -> %% OTP-4007
- scan_error(Reason, Line, Bin) %% OTP-4007
- end;
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
decode_message([{version3,v3},{flex, Port}], _, Bin) when is_binary(Bin) ->
case megaco_flex_scanner:scan(Bin, Port) of
@@ -430,15 +292,6 @@ encode_transaction([{version3,_}|EC], 2, Trans) ->
encode_transaction(EC, 2, Trans) ->
megaco_pretty_text_encoder_v2:encode_transaction(EC, Trans);
-%% <DEPRECATED>
-encode_transaction([{version3,prev3c}|EC], 3, Trans) ->
- megaco_pretty_text_encoder_prev3c:encode_transaction(EC, Trans);
-encode_transaction([{version3,prev3b}|EC], 3, Trans) ->
- megaco_pretty_text_encoder_prev3b:encode_transaction(EC, Trans);
-encode_transaction([{version3,prev3a}|EC], 3, Trans) ->
- megaco_pretty_text_encoder_prev3a:encode_transaction(EC, Trans);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_transaction([{version3,v3}|EC], 3, Trans) ->
megaco_pretty_text_encoder_v3:encode_transaction(EC, Trans);
@@ -471,18 +324,6 @@ encode_action_requests([{version3,_}|EC], 2, ActReqs) when is_list(ActReqs) ->
encode_action_requests(EC, 2, ActReqs) when is_list(ActReqs) ->
megaco_pretty_text_encoder_v2:encode_action_requests(EC, ActReqs);
-%% <DEPRECATED>
-encode_action_requests([{version3,prev3c}|EC], 3, ActReqs)
- when is_list(ActReqs) ->
- megaco_pretty_text_encoder_prev3c:encode_action_requests(EC, ActReqs);
-encode_action_requests([{version3,prev3b}|EC], 3, ActReqs)
- when is_list(ActReqs) ->
- megaco_pretty_text_encoder_prev3b:encode_action_requests(EC, ActReqs);
-encode_action_requests([{version3,prev3a}|EC], 3, ActReqs)
- when is_list(ActReqs) ->
- megaco_pretty_text_encoder_prev3a:encode_action_requests(EC, ActReqs);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_action_requests([{version3,v3}|EC], 3, ActReqs)
when is_list(ActReqs) ->
@@ -516,15 +357,6 @@ encode_action_request([{version3,_}|EC], 2, ActReq) ->
encode_action_request(EC, 2, ActReq) ->
megaco_pretty_text_encoder_v2:encode_action_request(EC, ActReq);
-%% <DEPRECATED>
-encode_action_request([{version3,prev3c}|EC], 3, ActReq) ->
- megaco_pretty_text_encoder_prev3c:encode_action_request(EC, ActReq);
-encode_action_request([{version3,prev3b}|EC], 3, ActReq) ->
- megaco_pretty_text_encoder_prev3b:encode_action_request(EC, ActReq);
-encode_action_request([{version3,prev3a}|EC], 3, ActReq) ->
- megaco_pretty_text_encoder_prev3a:encode_action_request(EC, ActReq);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_action_request([{version3,v3}|EC], 3, ActReq) ->
megaco_pretty_text_encoder_v3:encode_action_request(EC, ActReq);
@@ -559,15 +391,6 @@ encode_command_request([{version3,_}|EC], 2, CmdReq) ->
encode_command_request(EC, 2, CmdReq) ->
megaco_pretty_text_encoder_v2:encode_command_request(EC, CmdReq);
-%% <DEPRECATED>
-encode_command_request([{version3,prev3c}|EC], 3, CmdReq) ->
- megaco_pretty_text_encoder_prev3c:encode_command_request(EC, CmdReq);
-encode_command_request([{version3,prev3b}|EC], 3, CmdReq) ->
- megaco_pretty_text_encoder_prev3b:encode_command_request(EC, CmdReq);
-encode_command_request([{version3,prev3a}|EC], 3, CmdReq) ->
- megaco_pretty_text_encoder_prev3a:encode_command_request(EC, CmdReq);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_command_request([{version3,v3}|EC], 3, CmdReq) ->
megaco_pretty_text_encoder_v3:encode_command_request(EC, CmdReq);
@@ -605,15 +428,6 @@ encode_action_reply([{version3,_}|EC], 2, ActRep) ->
encode_action_reply(EC, 2, ActRep) ->
megaco_pretty_text_encoder_v2:encode_action_reply(EC, ActRep);
-%% <DEPRECATED>
-encode_action_reply([{version3,prev3c}|EC], 3, ActRep) ->
- megaco_pretty_text_encoder_prev3c:encode_action_reply(EC, ActRep);
-encode_action_reply([{version3,prev3b}|EC], 3, ActRep) ->
- megaco_pretty_text_encoder_prev3b:encode_action_reply(EC, ActRep);
-encode_action_reply([{version3,prev3a}|EC], 3, ActRep) ->
- megaco_pretty_text_encoder_prev3a:encode_action_reply(EC, ActRep);
-%% </DEPRECATED>
-
%% <BACKWARD-COMPAT-CLAUSE>
encode_action_reply([{version3,v3}|EC], 3, ActRep) ->
megaco_pretty_text_encoder_v3:encode_action_reply(EC, ActRep);
@@ -673,46 +487,6 @@ token_tag2string(Tag, 3) ->
token_tag2string(Tag, v3) ->
megaco_pretty_text_encoder_v3:token_tag2string(Tag);
-%% <DEPRECATED>
-token_tag2string(Tag, prev3b) ->
- megaco_pretty_text_encoder_prev3b:token_tag2string(Tag);
-token_tag2string(Tag, prev3c) ->
- megaco_pretty_text_encoder_prev3c:token_tag2string(Tag);
-%% </DEPRECATED>
-
token_tag2string(Tag, _Vsn) ->
token_tag2string(Tag, ?TT2S_BEST_VERSION).
-
-
-%% d(F) ->
-%% d(F, []).
-
-%% d(F, A) ->
-%% %% d(get(dbg), F, A).
-%% d(true, F, A).
-
-%% d(true, F, A) ->
-%% io:format("~p:" ++ F ++ "~n", [?MODULE|A]);
-%% d(_, _, _) ->
-%% ok.
-
-%% p(F, A) ->
-%% io:format("*** [~s] ***"
-%% "~n " ++ F ++ "~n", [formated_timestamp() | A]),
-%% sleep(5000),
-%% ok.
-
-%% sleep(X) -> receive after X -> ok end.
-
-%% formated_timestamp() ->
-%% format_timestamp(now()).
-
-%% format_timestamp({_N1, _N2, N3} = Now) ->
-%% {Date, Time} = calendar:now_to_datetime(Now),
-%% {YYYY,MM,DD} = Date,
-%% {Hour,Min,Sec} = Time,
-%% FormatDate =
-%% io_lib:format("~.4w:~.2.0w:~.2.0w ~.2.0w:~.2.0w:~.2.0w 4~w",
-%% [YYYY,MM,DD,Hour,Min,Sec,round(N3/1000)]),
-%% lists:flatten(FormatDate).
diff --git a/lib/megaco/src/text/megaco_pretty_text_encoder_prev3a.erl b/lib/megaco/src/text/megaco_pretty_text_encoder_prev3a.erl
deleted file mode 100644
index dd9c43c7ea..0000000000
--- a/lib/megaco/src/text/megaco_pretty_text_encoder_prev3a.erl
+++ /dev/null
@@ -1,309 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2004-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode PRETTY Megaco/H.248 text messages from internal form
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
--module(megaco_pretty_text_encoder_prev3a).
-
--export([encode_message/2,
- encode_transaction/2,
- encode_action_requests/2,
- encode_action_request/2,
- encode_command_request/2,
- encode_action_reply/2]).
-
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3a.hrl").
--define(encoder_version_pre_prev3c,true).
--include("megaco_text_tokens.hrl").
-
-
-%%----------------------------------------------------------------------
-%% Convert a 'MegacoMessage' record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-
-encode_message(EC, MegaMsg)
- when is_list(EC) andalso is_record(MegaMsg, 'MegacoMessage') ->
- case (catch enc_MegacoMessage(MegaMsg)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end;
-encode_message(EncodingConfig, MegaMsg)
- when is_record(MegaMsg, 'MegacoMessage') ->
- {error, {bad_encoding_config, EncodingConfig}};
-encode_message(_EncodingConfig, _MegaMsg) ->
- {error, bad_megaco_message}.
-
-
-%%----------------------------------------------------------------------
-%% Convert a binary into a 'MegacoMessage' record
-%% Return {ok, MegacoMessageRecord} | {error, Reason}
-%%
-%% See megaco_pretty_text_encoder:decode_message/2
-%%
-%%----------------------------------------------------------------------
-
-
-%%----------------------------------------------------------------------
-%% Convert a transaction record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_transaction(_EC, Trans) ->
- case (catch enc_Transaction(Trans)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a list of ActionRequest record's into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_requests(_EC, ActReqs) when is_list(ActReqs) ->
- case (catch enc_ActionRequests(ActReqs)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a ActionRequest record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_request(_EC, ActReq)
- when is_record(ActReq, 'ActionRequest') ->
- case (catch enc_ActionRequest(ActReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a CommandRequest record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_command_request(_EC, CmdReq)
- when is_record(CmdReq, 'CommandRequest') ->
- case (catch enc_CommandRequest(CmdReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a action reply into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_reply(_EC, ActRep)
- when is_record(ActRep, 'ActionReply') ->
- case (catch enc_ActionReply(ActRep)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% Define various macros used by the actual generator code
-%%----------------------------------------------------------------------
-
--define(EQUAL, [?SpToken, ?EqualToken, ?SpToken]).
--define(COLON, [?ColonToken]).
--define(LBRKT, [?SpToken, ?LbrktToken, ?SpToken]).
--define(RBRKT, [?SpToken, ?RbrktToken, ?SpToken]).
--define(LSBRKT, [?SpToken, ?LsbrktToken, ?SpToken]).
--define(RSBRKT, [?SpToken, ?RsbrktToken, ?SpToken]).
--define(COMMA, [?CommaToken, ?SpToken]).
--define(DOT, [?DotToken]).
--define(SLASH, [?SlashToken]).
--define(DQUOTE, [?DoubleQuoteToken]).
--define(SP, [?SpToken]).
--define(HTAB, [?HtabToken]).
--define(CR, [?CrToken]).
--define(LF, [?LfToken]).
--define(LWSP, []).
--define(EOL, ?LF).
--define(WSP, ?SP).
--define(SEP, ?WSP).
-
--define(INIT_INDENT, []).
--define(INC_INDENT(State), [?HtabToken | State]).
--define(INDENT(State), [?LfToken | State]).
--define(LBRKT_INDENT(State), [?SpToken, ?LbrktToken, ?INDENT(?INC_INDENT(State))]).
--define(RBRKT_INDENT(State), [?INDENT(State), ?RbrktToken]).
--define(LSBRKT_INDENT(State), [?SpToken, ?LsbrktToken, ?INDENT(?INC_INDENT(State))]).
--define(RSBRKT_INDENT(State), [?INDENT(State), ?RsbrktToken]).
--define(COMMA_INDENT(State), [?CommaToken, ?INDENT(State)]).
--define(SEP_INDENT(_State), [?LfToken]).
-
-%%----------------------------------------------------------------------
-%% Define token macros
-%%----------------------------------------------------------------------
-
--define(AddToken , ?PrettyAddToken).
--define(AuditToken , ?PrettyAuditToken).
--define(AuditCapToken , ?PrettyAuditCapToken).
--define(AuditValueToken , ?PrettyAuditValueToken).
--define(AuthToken , ?PrettyAuthToken).
--define(BothToken , ?PrettyBothToken).
--define(BothwayToken , ?PrettyBothwayToken).
--define(BriefToken , ?PrettyBriefToken).
--define(BufferToken , ?PrettyBufferToken).
--define(CtxToken , ?PrettyCtxToken).
--define(ContextAuditToken , ?PrettyContextAuditToken).
--define(ContextAttrToken , ?PrettyContextAttrToken).
--define(DigitMapToken , ?PrettyDigitMapToken).
--define(DirectionToken , ?PrettyDirectionToken).
--define(DiscardToken , ?PrettyDiscardToken).
--define(DisconnectedToken , ?PrettyDisconnectedToken).
--define(DelayToken , ?PrettyDelayToken).
--define(DeleteToken , ?PrettyDeleteToken).
--define(DurationToken , ?PrettyDurationToken).
--define(EmbedToken , ?PrettyEmbedToken).
--define(EmergencyToken , ?PrettyEmergencyToken).
--define(EmergencyOffToken , ?PrettyEmergencyOffToken).
--define(ErrorToken , ?PrettyErrorToken).
--define(EventBufferToken , ?PrettyEventBufferToken).
--define(EventsToken , ?PrettyEventsToken).
--define(ExternalToken , ?PrettyExternalToken).
--define(FailoverToken , ?PrettyFailoverToken).
--define(ForcedToken , ?PrettyForcedToken).
--define(GracefulToken , ?PrettyGracefulToken).
--define(H221Token , ?PrettyH221Token).
--define(H223Token , ?PrettyH223Token).
--define(H226Token , ?PrettyH226Token).
--define(HandOffToken , ?PrettyHandOffToken).
--define(IEPSToken , ?PrettyIEPSToken).
--define(ImmAckRequiredToken , ?PrettyImmAckRequiredToken).
--define(InactiveToken , ?PrettyInactiveToken).
--define(InternalToken , ?PrettyInternalToken).
--define(IsolateToken , ?PrettyIsolateToken).
--define(InSvcToken , ?PrettyInSvcToken).
--define(InterruptByEventToken , ?PrettyInterruptByEventToken).
--define(InterruptByNewSignalsDescrToken, ?PrettyInterruptByNewSignalsDescrToken).
--define(KeepActiveToken , ?PrettyKeepActiveToken).
--define(LocalToken , ?PrettyLocalToken).
--define(LocalControlToken , ?PrettyLocalControlToken).
--define(LockStepToken , ?PrettyLockStepToken).
--define(LoopbackToken , ?PrettyLoopbackToken).
--define(MediaToken , ?PrettyMediaToken).
--define(MegacopToken , ?PrettyMegacopToken).
--define(MethodToken , ?PrettyMethodToken).
--define(MgcIdToken , ?PrettyMgcIdToken).
--define(ModeToken , ?PrettyModeToken).
--define(ModifyToken , ?PrettyModifyToken).
--define(ModemToken , ?PrettyModemToken).
--define(MoveToken , ?PrettyMoveToken).
--define(MtpToken , ?PrettyMtpToken).
--define(MuxToken , ?PrettyMuxToken).
--define(NotifyToken , ?PrettyNotifyToken).
--define(NotifyCompletionToken , ?PrettyNotifyCompletionToken).
--define(Nx64kToken , ?PrettyNx64kToken).
--define(ObservedEventsToken , ?PrettyObservedEventsToken).
--define(OffToken , ?PrettyOffToken).
--define(OnewayToken , ?PrettyOnewayToken).
--define(OnOffToken , ?PrettyOnOffToken).
--define(OnToken , ?PrettyOnToken).
--define(OtherReasonToken , ?PrettyOtherReasonToken).
--define(OutOfSvcToken , ?PrettyOutOfSvcToken).
--define(PackagesToken , ?PrettyPackagesToken).
--define(PendingToken , ?PrettyPendingToken).
--define(PriorityToken , ?PrettyPriorityToken).
--define(ProfileToken , ?PrettyProfileToken).
--define(ReasonToken , ?PrettyReasonToken).
--define(RecvonlyToken , ?PrettyRecvonlyToken).
--define(ReplyToken , ?PrettyReplyToken).
--define(RequestIDToken , ?PrettyRequestIDToken).
--define(ResponseAckToken , ?PrettyResponseAckToken).
--define(RestartToken , ?PrettyRestartToken).
--define(RemoteToken , ?PrettyRemoteToken).
--define(ReservedGroupToken , ?PrettyReservedGroupToken).
--define(ReservedValueToken , ?PrettyReservedValueToken).
--define(SendonlyToken , ?PrettySendonlyToken).
--define(SendrecvToken , ?PrettySendrecvToken).
--define(ServicesToken , ?PrettyServicesToken).
--define(ServiceStatesToken , ?PrettyServiceStatesToken).
--define(ServiceChangeToken , ?PrettyServiceChangeToken).
--define(ServiceChangeAddressToken , ?PrettyServiceChangeAddressToken).
--define(ServiceChangeIncompleteToken , ?PrettyServiceChangeIncompleteToken).
--define(SignalListToken , ?PrettySignalListToken).
--define(SignalsToken , ?PrettySignalsToken).
--define(SignalTypeToken , ?PrettySignalTypeToken).
--define(StatsToken , ?PrettyStatsToken).
--define(StreamToken , ?PrettyStreamToken).
--define(SubtractToken , ?PrettySubtractToken).
--define(SynchISDNToken , ?PrettySynchISDNToken).
--define(TerminationStateToken , ?PrettyTerminationStateToken).
--define(TestToken , ?PrettyTestToken).
--define(TimeOutToken , ?PrettyTimeOutToken).
--define(TopologyToken , ?PrettyTopologyToken).
--define(TransToken , ?PrettyTransToken).
--define(V18Token , ?PrettyV18Token).
--define(V22Token , ?PrettyV22Token).
--define(V22bisToken , ?PrettyV22bisToken).
--define(V32Token , ?PrettyV32Token).
--define(V32bisToken , ?PrettyV32bisToken).
--define(V34Token , ?PrettyV34Token).
--define(V76Token , ?PrettyV76Token).
--define(V90Token , ?PrettyV90Token).
--define(V91Token , ?PrettyV91Token).
--define(VersionToken , ?PrettyVersionToken).
-
-%%----------------------------------------------------------------------
-%% Include the generator code
-%%----------------------------------------------------------------------
-
--include("megaco_text_gen_prev3a.hrl").
-
diff --git a/lib/megaco/src/text/megaco_pretty_text_encoder_prev3b.erl b/lib/megaco/src/text/megaco_pretty_text_encoder_prev3b.erl
deleted file mode 100644
index 3df83b2160..0000000000
--- a/lib/megaco/src/text/megaco_pretty_text_encoder_prev3b.erl
+++ /dev/null
@@ -1,443 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode PRETTY Megaco/H.248 text messages from internal form
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
--module(megaco_pretty_text_encoder_prev3b).
-
--export([encode_message/2,
- encode_transaction/2,
- encode_action_requests/2,
- encode_action_request/2,
- encode_command_request/2,
- encode_action_reply/2]).
-
--export([token_tag2string/1]).
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3b.hrl").
--define(encoder_version_pre_prev3c,true).
--include("megaco_text_tokens.hrl").
-
-
-%%----------------------------------------------------------------------
-%% Convert a 'MegacoMessage' record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-
-encode_message(EC, MegaMsg)
- when is_list(EC) andalso is_record(MegaMsg, 'MegacoMessage') ->
- case (catch enc_MegacoMessage(MegaMsg)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end;
-encode_message(EncodingConfig, MegaMsg)
- when is_record(MegaMsg, 'MegacoMessage') ->
- {error, {bad_encoding_config, EncodingConfig}};
-encode_message(_EncodingConfig, _MegaMsg) ->
- {error, bad_megaco_message}.
-
-
-%%----------------------------------------------------------------------
-%% Convert a binary into a 'MegacoMessage' record
-%% Return {ok, MegacoMessageRecord} | {error, Reason}
-%%
-%% See megaco_pretty_text_encoder:decode_message/2
-%%
-%%----------------------------------------------------------------------
-
-
-%%----------------------------------------------------------------------
-%% Convert a transaction record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_transaction(_EC, Trans) ->
- case (catch enc_Transaction(Trans)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a list of ActionRequest record's into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_requests(_EC, ActReqs) when is_list(ActReqs) ->
- case (catch enc_ActionRequests(ActReqs)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a ActionRequest record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_request(_EC, ActReq)
- when is_record(ActReq, 'ActionRequest') ->
- case (catch enc_ActionRequest(ActReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a CommandRequest record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_command_request(_EC, CmdReq)
- when is_record(CmdReq, 'CommandRequest') ->
- case (catch enc_CommandRequest(CmdReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a action reply into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_reply(_EC, ActRep)
- when is_record(ActRep, 'ActionReply') ->
- case (catch enc_ActionReply(ActRep)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% A utility function to pretty print the tags found in a megaco message
-%%----------------------------------------------------------------------
-
-token_tag2string(addReq) -> ?PrettyAddToken;
-token_tag2string(addReply) -> ?PrettyAddToken;
-token_tag2string(auditDescriptor) -> ?PrettyAuditToken;
-token_tag2string(auditCapRequest) -> ?PrettyAuditCapToken;
-token_tag2string(auditCapReply) -> ?PrettyAuditCapToken;
-token_tag2string(auditValueRequest) -> ?PrettyAuditValueToken;
-token_tag2string(auditValueReply) -> ?PrettyAuditValueToken;
-%% token_tag2string(X) -> ?PrettyAuthToken;
-token_tag2string(both) -> ?PrettyBothToken;
-token_tag2string(bothway) -> ?PrettyBothwayToken;
-token_tag2string(brief) -> ?PrettyBriefToken;
-%% token_tag2string(X) -> ?PrettyBufferToken;
-%% token_tag2string(X) -> ?PrettyCtxToken;
-%% token_tag2string(X) -> ?PrettyContextAttrToken;
-%% token_tag2string(X) -> ?PrettyContextAuditToken;
-%% token_tag2string(X) -> ?PrettyContextListToken;
-token_tag2string(digitMapDescriptor) -> ?PrettyDigitMapToken;
-token_tag2string(digitMapToken) -> ?PrettyDigitMapToken;
-%% token_tag2string(X) -> ?PrettyDirectionToken;
-%% token_tag2string(X) -> ?PrettyDiscardToken;
-%% token_tag2string(X) -> ?PrettyDisconnectedToken;
-%% token_tag2string(X) -> ?PrettyDelayToken;
-token_tag2string(duration) -> ?PrettyDurationToken;
-%% token_tag2string(X) -> ?PrettyEmbedToken;
-token_tag2string(emergencyAudit) -> ?PrettyEmergencyToken;
-%% token_tag2string(X) -> ?PrettyEmergencyOffToken;
-token_tag2string(errorDescriptor) -> ?PrettyErrorToken;
-token_tag2string(eventBufferDescriptor) -> ?PrettyEventBufferToken;
-token_tag2string(eventBufferToken) -> ?PrettyEventBufferToken;
-token_tag2string(eventsDescriptor) -> ?PrettyEventsToken;
-token_tag2string(eventsToken) -> ?PrettyEventsToken;
-token_tag2string(external) -> ?PrettyExternalToken;
-%% token_tag2string(X) -> ?PrettyFailoverToken;
-%% token_tag2string(X) -> ?PrettyForcedToken;
-%% token_tag2string(X) -> ?PrettyGracefulToken;
-%% token_tag2string(X) -> ?PrettyH221Token;
-%% token_tag2string(X) -> ?PrettyH223Token;
-%% token_tag2string(X) -> ?PrettyH226Token;
-%% token_tag2string(X) -> ?PrettyHandOffToken;
-token_tag2string(iepsCallind) -> ?PrettyIEPSToken;
-%% token_tag2string(X) -> ?PrettyImmAckRequiredToken;
-token_tag2string(inactive) -> ?PrettyInactiveToken;
-token_tag2string(internal) -> ?PrettyInternalToken;
-token_tag2string(onInterruptByEvent) -> ?PrettyInterruptByEventToken;
-token_tag2string(onInterruptByNewSignalDescr) -> ?PrettyInterruptByNewSignalsDescrToken;
-token_tag2string(isolate) -> ?PrettyIsolateToken;
-token_tag2string(inSvc) -> ?PrettyInSvcToken;
-token_tag2string(keepActive) -> ?PrettyKeepActiveToken;
-token_tag2string(localDescriptor) -> ?PrettyLocalToken;
-token_tag2string(localControlDescriptor) -> ?PrettyLocalControlToken;
-token_tag2string(lockStep) -> ?PrettyLockStepToken;
-token_tag2string(loopBack) -> ?PrettyLoopbackToken;
-token_tag2string(mediaDescriptor) -> ?PrettyMediaToken;
-token_tag2string(mediaToken) -> ?PrettyMediaToken;
-%% token_tag2string(X) -> ?PrettyMegacopToken;
-%% token_tag2string(X) -> ?PrettyMethodToken;
-%% token_tag2string(X) -> ?PrettyMgcIdToken;
-%% token_tag2string(X) -> ?PrettyModeToken;
-token_tag2string(modReq) -> ?PrettyModifyToken;
-token_tag2string(modReply) -> ?PrettyModifyToken;
-token_tag2string(modemDescriptor) -> ?PrettyModemToken;
-token_tag2string(modemToken) -> ?PrettyModemToken;
-token_tag2string(moveReq) -> ?PrettyMoveToken;
-token_tag2string(moveReply) -> ?PrettyMoveToken;
-%% token_tag2string(X) -> ?PrettyMtpToken;
-token_tag2string(muxDescriptor) -> ?PrettyMuxToken;
-token_tag2string(muxToken) -> ?PrettyMuxToken;
-token_tag2string(notifyReq) -> ?PrettyNotifyToken;
-%% token_tag2string(X) -> ?PrettyNotifyCompletionToken;
-%% token_tag2string(X) -> ?PrettyNx64kToken;
-token_tag2string(observedEventsDescriptor) -> ?PrettyObservedEventsToken;
-token_tag2string(observedEventsToken) -> ?PrettyObservedEventsToken;
-token_tag2string(false) -> ?PrettyOffToken;
-token_tag2string(off) -> ?PrettyOffToken;
-token_tag2string(oneway) -> ?PrettyOnewayToken;
-token_tag2string(onOff) -> ?PrettyOnOffToken;
-token_tag2string(true) -> ?PrettyOnToken;
-token_tag2string(otherReason) -> ?PrettyOtherReasonToken;
-token_tag2string(outOfSvc) -> ?PrettyOutOfSvcToken;
-token_tag2string(packagesDescriptor) -> ?PrettyPackagesToken;
-token_tag2string(packagesToken) -> ?PrettyPackagesToken;
-%% token_tag2string(X) -> ?PrettyPendingToken;
-token_tag2string(priorityAudit) -> ?PrettyPriorityToken;
-%% token_tag2string(X) -> ?PrettyProfileToken;
-%% token_tag2string(X) -> ?PrettyReasonToken;
-token_tag2string(recvOnly) -> ?PrettyRecvonlyToken;
-%% token_tag2string(X) -> ?PrettyReplyToken;
-%% token_tag2string(X) -> ?PrettyRequestIDToken;
-%% token_tag2string(X) -> ?PrettyResponseAckToken;
-%% token_tag2string(X) -> ?PrettyRestartToken;
-token_tag2string(remoteDescriptor) -> ?PrettyRemoteToken;
-%% token_tag2string(X) -> ?PrettyReservedGroupToken;
-%% token_tag2string(X) -> ?PrettyReservedValueToken;
-token_tag2string(sendOnly) -> ?PrettySendonlyToken;
-token_tag2string(sendRecv) -> ?PrettySendrecvToken;
-%% token_tag2string(X) -> ?PrettyServicesToken;
-%% token_tag2string(X) -> ?PrettyServiceStatesToken;
-token_tag2string(serviceChangeReq) -> ?PrettyServiceChangeToken;
-%% token_tag2string(X) -> ?PrettyServiceChangeAddressToken;
-token_tag2string(incomplete) -> ?PrettyServiceChangeIncompleteToken;
-%% token_tag2string(X) -> ?PrettySignalListToken;
-token_tag2string(signalsDescriptor) -> ?PrettySignalsToken;
-token_tag2string(signalsToken) -> ?PrettySignalsToken;
-%% token_tag2string(X) -> ?PrettySignalTypeToken;
-token_tag2string(statisticsDescriptor) -> ?PrettyStatsToken;
-token_tag2string(statsToken) -> ?PrettyStatsToken;
-%% token_tag2string(X) -> ?PrettyStreamToken;
-token_tag2string(subtractReq) -> ?PrettySubtractToken;
-token_tag2string(subtractReply) -> ?PrettySubtractToken;
-%% token_tag2string(X) -> ?PrettySynchISDNToken;
-%% token_tag2string(X) -> ?PrettyTerminationStateToken;
-token_tag2string(test) -> ?PrettyTestToken;
-token_tag2string(timeOut) -> ?PrettyTimeOutToken;
-token_tag2string(onTimeOut) -> ?PrettyTimeOutToken;
-token_tag2string(topologyAudit) -> ?PrettyTopologyToken;
-%% token_tag2string(X) -> ?PrettyTransToken;
-%% token_tag2string(X) -> ?PrettyV18Token;
-%% token_tag2string(X) -> ?PrettyV22Token;
-%% token_tag2string(X) -> ?PrettyV22bisToken;
-%% token_tag2string(X) -> ?PrettyV32Token;
-%% token_tag2string(X) -> ?PrettyV32bisToken;
-%% token_tag2string(X) -> ?PrettyV34Token;
-%% token_tag2string(X) -> ?PrettyV76Token;
-%% token_tag2string(X) -> ?PrettyV90Token;
-%% token_tag2string(X) -> ?PrettyV91Token;
-%% token_tag2string(X) -> ?PrettyVersionToken;
-token_tag2string(_) -> [].
-
-
-%%----------------------------------------------------------------------
-%% Define various macros used by the actual generator code
-%%----------------------------------------------------------------------
-
--define(EQUAL, [?SpToken, ?EqualToken, ?SpToken]).
--define(COLON, [?ColonToken]).
--define(LBRKT, [?SpToken, ?LbrktToken, ?SpToken]).
--define(RBRKT, [?SpToken, ?RbrktToken, ?SpToken]).
--define(LSBRKT, [?SpToken, ?LsbrktToken, ?SpToken]).
--define(RSBRKT, [?SpToken, ?RsbrktToken, ?SpToken]).
--define(COMMA, [?CommaToken, ?SpToken]).
--define(DOT, [?DotToken]).
--define(SLASH, [?SlashToken]).
--define(DQUOTE, [?DoubleQuoteToken]).
--define(SP, [?SpToken]).
--define(HTAB, [?HtabToken]).
--define(CR, [?CrToken]).
--define(LF, [?LfToken]).
--define(LWSP, []).
--define(EOL, ?LF).
--define(WSP, ?SP).
--define(SEP, ?WSP).
-
--define(INIT_INDENT, []).
--define(INC_INDENT(State), [?HtabToken | State]).
--define(INDENT(State), [?LfToken | State]).
--define(LBRKT_INDENT(State), [?SpToken, ?LbrktToken, ?INDENT(?INC_INDENT(State))]).
--define(RBRKT_INDENT(State), [?INDENT(State), ?RbrktToken]).
--define(LSBRKT_INDENT(State), [?SpToken, ?LsbrktToken, ?INDENT(?INC_INDENT(State))]).
--define(RSBRKT_INDENT(State), [?INDENT(State), ?RsbrktToken]).
--define(COMMA_INDENT(State), [?CommaToken, ?INDENT(State)]).
--define(SEP_INDENT(_State), [?LfToken]).
-
-%%----------------------------------------------------------------------
-%% Define token macros
-%%----------------------------------------------------------------------
-
--define(AddToken , ?PrettyAddToken).
--define(AuditToken , ?PrettyAuditToken).
--define(AuditCapToken , ?PrettyAuditCapToken).
--define(AuditValueToken , ?PrettyAuditValueToken).
--define(AuthToken , ?PrettyAuthToken).
--define(BothToken , ?PrettyBothToken).
--define(BothwayToken , ?PrettyBothwayToken).
--define(BriefToken , ?PrettyBriefToken).
--define(BufferToken , ?PrettyBufferToken).
--define(CtxToken , ?PrettyCtxToken).
--define(ContextAuditToken , ?PrettyContextAuditToken).
--define(ContextAttrToken , ?PrettyContextAttrToken).
--define(DigitMapToken , ?PrettyDigitMapToken).
--define(DirectionToken , ?PrettyDirectionToken).
--define(DiscardToken , ?PrettyDiscardToken).
--define(DisconnectedToken , ?PrettyDisconnectedToken).
--define(DelayToken , ?PrettyDelayToken).
--define(DeleteToken , ?PrettyDeleteToken).
--define(DurationToken , ?PrettyDurationToken).
--define(EmbedToken , ?PrettyEmbedToken).
--define(EmergencyToken , ?PrettyEmergencyToken).
--define(EmergencyOffToken , ?PrettyEmergencyOffToken).
--define(ErrorToken , ?PrettyErrorToken).
--define(EventBufferToken , ?PrettyEventBufferToken).
--define(EventsToken , ?PrettyEventsToken).
--define(ExternalToken , ?PrettyExternalToken).
--define(FailoverToken , ?PrettyFailoverToken).
--define(ForcedToken , ?PrettyForcedToken).
--define(GracefulToken , ?PrettyGracefulToken).
--define(H221Token , ?PrettyH221Token).
--define(H223Token , ?PrettyH223Token).
--define(H226Token , ?PrettyH226Token).
--define(HandOffToken , ?PrettyHandOffToken).
--define(IEPSToken , ?PrettyIEPSToken).
--define(ImmAckRequiredToken , ?PrettyImmAckRequiredToken).
--define(InactiveToken , ?PrettyInactiveToken).
--define(InternalToken , ?PrettyInternalToken).
--define(IsolateToken , ?PrettyIsolateToken).
--define(InSvcToken , ?PrettyInSvcToken).
--define(InterruptByEventToken , ?PrettyInterruptByEventToken).
--define(InterruptByNewSignalsDescrToken, ?PrettyInterruptByNewSignalsDescrToken).
--define(KeepActiveToken , ?PrettyKeepActiveToken).
--define(LocalToken , ?PrettyLocalToken).
--define(LocalControlToken , ?PrettyLocalControlToken).
--define(LockStepToken , ?PrettyLockStepToken).
--define(LoopbackToken , ?PrettyLoopbackToken).
--define(MediaToken , ?PrettyMediaToken).
--define(MegacopToken , ?PrettyMegacopToken).
--define(MethodToken , ?PrettyMethodToken).
--define(MgcIdToken , ?PrettyMgcIdToken).
--define(ModeToken , ?PrettyModeToken).
--define(ModifyToken , ?PrettyModifyToken).
--define(ModemToken , ?PrettyModemToken).
--define(MoveToken , ?PrettyMoveToken).
--define(MtpToken , ?PrettyMtpToken).
--define(MuxToken , ?PrettyMuxToken).
--define(NotifyToken , ?PrettyNotifyToken).
--define(NotifyCompletionToken , ?PrettyNotifyCompletionToken).
--define(Nx64kToken , ?PrettyNx64kToken).
--define(ObservedEventsToken , ?PrettyObservedEventsToken).
--define(OffToken , ?PrettyOffToken).
--define(OnewayToken , ?PrettyOnewayToken).
--define(OnOffToken , ?PrettyOnOffToken).
--define(OnToken , ?PrettyOnToken).
--define(OtherReasonToken , ?PrettyOtherReasonToken).
--define(OutOfSvcToken , ?PrettyOutOfSvcToken).
--define(PackagesToken , ?PrettyPackagesToken).
--define(PendingToken , ?PrettyPendingToken).
--define(PriorityToken , ?PrettyPriorityToken).
--define(ProfileToken , ?PrettyProfileToken).
--define(ReasonToken , ?PrettyReasonToken).
--define(RecvonlyToken , ?PrettyRecvonlyToken).
--define(ReplyToken , ?PrettyReplyToken).
--define(RequestIDToken , ?PrettyRequestIDToken).
--define(ResponseAckToken , ?PrettyResponseAckToken).
--define(RestartToken , ?PrettyRestartToken).
--define(RemoteToken , ?PrettyRemoteToken).
--define(ReservedGroupToken , ?PrettyReservedGroupToken).
--define(ReservedValueToken , ?PrettyReservedValueToken).
--define(SendonlyToken , ?PrettySendonlyToken).
--define(SendrecvToken , ?PrettySendrecvToken).
--define(ServicesToken , ?PrettyServicesToken).
--define(ServiceStatesToken , ?PrettyServiceStatesToken).
--define(ServiceChangeToken , ?PrettyServiceChangeToken).
--define(ServiceChangeAddressToken , ?PrettyServiceChangeAddressToken).
--define(ServiceChangeIncompleteToken , ?PrettyServiceChangeIncompleteToken).
--define(SignalListToken , ?PrettySignalListToken).
--define(SignalsToken , ?PrettySignalsToken).
--define(SignalTypeToken , ?PrettySignalTypeToken).
--define(StatsToken , ?PrettyStatsToken).
--define(StreamToken , ?PrettyStreamToken).
--define(SubtractToken , ?PrettySubtractToken).
--define(SynchISDNToken , ?PrettySynchISDNToken).
--define(TerminationStateToken , ?PrettyTerminationStateToken).
--define(TestToken , ?PrettyTestToken).
--define(TimeOutToken , ?PrettyTimeOutToken).
--define(TopologyToken , ?PrettyTopologyToken).
--define(TransToken , ?PrettyTransToken).
--define(V18Token , ?PrettyV18Token).
--define(V22Token , ?PrettyV22Token).
--define(V22bisToken , ?PrettyV22bisToken).
--define(V32Token , ?PrettyV32Token).
--define(V32bisToken , ?PrettyV32bisToken).
--define(V34Token , ?PrettyV34Token).
--define(V76Token , ?PrettyV76Token).
--define(V90Token , ?PrettyV90Token).
--define(V91Token , ?PrettyV91Token).
--define(VersionToken , ?PrettyVersionToken).
-
-%%----------------------------------------------------------------------
-%% Include the generator code
-%%----------------------------------------------------------------------
-
--include("megaco_text_gen_prev3b.hrl").
-
diff --git a/lib/megaco/src/text/megaco_pretty_text_encoder_prev3c.erl b/lib/megaco/src/text/megaco_pretty_text_encoder_prev3c.erl
deleted file mode 100644
index c0228bef14..0000000000
--- a/lib/megaco/src/text/megaco_pretty_text_encoder_prev3c.erl
+++ /dev/null
@@ -1,489 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode PRETTY Megaco/H.248 text messages from internal form
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
--module(megaco_pretty_text_encoder_prev3c).
-
--export([encode_message/2,
- encode_transaction/2,
- encode_action_requests/2,
- encode_action_request/2,
- encode_command_request/2,
- encode_action_reply/2]).
-
--export([token_tag2string/1]).
-
--export([test/1]).
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3c.hrl").
--include("megaco_text_tokens.hrl").
-
-
-
-%%----------------------------------------------------------------------
-%% Convert a 'MegacoMessage' record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-
-encode_message(EC, MegaMsg)
- when is_list(EC) andalso is_record(MegaMsg, 'MegacoMessage') ->
- case (catch enc_MegacoMessage(MegaMsg)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end;
-encode_message(EncodingConfig, MegaMsg)
- when is_record(MegaMsg, 'MegacoMessage') ->
- {error, {bad_encoding_config, EncodingConfig}};
-encode_message(_EncodingConfig, _MegaMsg) ->
- {error, bad_megaco_message}.
-
-
-%%----------------------------------------------------------------------
-%% Convert a binary into a 'MegacoMessage' record
-%% Return {ok, MegacoMessageRecord} | {error, Reason}
-%%
-%% See megaco_pretty_text_encoder:decode_message/2
-%%
-%%----------------------------------------------------------------------
-
-
-%%----------------------------------------------------------------------
-%% Convert a transaction record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_transaction(_EC, Trans) ->
- case (catch enc_Transaction(Trans)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a list of ActionRequest record's into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_requests(_EC, ActReqs) when is_list(ActReqs) ->
- case (catch enc_ActionRequests(ActReqs)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a ActionRequest record into a binary
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_request(_EC, ActReq)
- when is_record(ActReq, 'ActionRequest') ->
- case (catch enc_ActionRequest(ActReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a CommandRequest record into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_command_request(_EC, CmdReq)
- when is_record(CmdReq, 'CommandRequest') ->
- case (catch enc_CommandRequest(CmdReq)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-%%----------------------------------------------------------------------
-%% Convert a action reply into a deep io list
-%% Return {ok, DeepIoList} | {error, Reason}
-%%----------------------------------------------------------------------
-encode_action_reply(_EC, ActRep)
- when is_record(ActRep, 'ActionReply') ->
- case (catch enc_ActionReply(ActRep)) of
- {'EXIT', Reason} ->
- {error, Reason};
- Bin when is_binary(Bin) ->
- {ok, Bin};
- DeepIoList ->
- Bin = erlang:list_to_binary(DeepIoList),
- {ok, Bin}
- end.
-
-
-%%----------------------------------------------------------------------
-%% A utility function to pretty print the tags found in a megaco message
-%%----------------------------------------------------------------------
-
-token_tag2string(addReq) -> ?PrettyAddToken;
-token_tag2string(addReply) -> ?PrettyAddToken;
-%% token_tag2string(X) -> ?PrettyAndAUDITSelectToken;
-token_tag2string(auditDescriptor) -> ?PrettyAuditToken;
-token_tag2string(auditCapRequest) -> ?PrettyAuditCapToken;
-token_tag2string(auditCapReply) -> ?PrettyAuditCapToken;
-token_tag2string(auditValueRequest) -> ?PrettyAuditValueToken;
-token_tag2string(auditValueReply) -> ?PrettyAuditValueToken;
-%% token_tag2string(X) -> ?PrettyAuthToken;
-token_tag2string(both) -> ?PrettyBothToken;
-token_tag2string(bothway) -> ?PrettyBothwayToken;
-token_tag2string(brief) -> ?PrettyBriefToken;
-%% token_tag2string(X) -> ?PrettyBufferToken;
-%% token_tag2string(X) -> ?PrettyCtxToken;
-%% token_tag2string(X) -> ?PrettyContextAuditToken;
-%% token_tag2string(X) -> ?PrettyContextAttrToken;
-%% token_tag2string(X) -> ?PrettyContextListToken;
-token_tag2string(digitMapDescriptor) -> ?PrettyDigitMapToken;
-token_tag2string(digitMapToken) -> ?PrettyDigitMapToken;
-%% token_tag2string(X) -> ?PrettyDirectionToken;
-%% token_tag2string(X) -> ?PrettyDiscardToken;
-%% token_tag2string(X) -> ?PrettyDisconnectedToken;
-%% token_tag2string(X) -> ?PrettyDelayToken;
-token_tag2string(duration) -> ?PrettyDurationToken;
-%% token_tag2string(X) -> ?PrettyEmbedToken;
-token_tag2string(emergencyAudit) -> ?PrettyEmergencyToken;
-%% token_tag2string(X) -> ?PrettyEmergencyOffToken;
-%% token_tag2string(X) -> ?PrettyEmergencyValueToken;
-token_tag2string(errorDescriptor) -> ?PrettyErrorToken;
-token_tag2string(eventBufferDescriptor) -> ?PrettyEventBufferToken;
-token_tag2string(eventBufferToken) -> ?PrettyEventBufferToken;
-token_tag2string(eventsDescriptor) -> ?PrettyEventsToken;
-token_tag2string(eventsToken) -> ?PrettyEventsToken;
-token_tag2string(external) -> ?PrettyExternalToken;
-%% token_tag2string(X) -> ?PrettyFailoverToken;
-%% token_tag2string(X) -> ?PrettyForcedToken;
-%% token_tag2string(X) -> ?PrettyGracefulToken;
-%% token_tag2string(X) -> ?PrettyH221Token;
-%% token_tag2string(X) -> ?PrettyH223Token;
-%% token_tag2string(X) -> ?PrettyH226Token;
-%% token_tag2string(X) -> ?PrettyHandOffToken;
-token_tag2string(iepsCallind) -> ?PrettyIEPSToken;
-%% token_tag2string(X) -> ?PrettyImmAckRequiredToken;
-token_tag2string(inactive) -> ?PrettyInactiveToken;
-token_tag2string(internal) -> ?PrettyInternalToken;
-%% token_tag2string(X) -> ?PrettyIntsigDelayToken;
-token_tag2string(onInterruptByEvent) -> ?PrettyInterruptByEventToken;
-token_tag2string(onInterruptByNewSignalDescr) -> ?PrettyInterruptByNewSignalsDescrToken;
-token_tag2string(isolate) -> ?PrettyIsolateToken;
-token_tag2string(inSvc) -> ?PrettyInSvcToken;
-token_tag2string(iteration) -> ?PrettyIterationToken;
-token_tag2string(keepActive) -> ?PrettyKeepActiveToken;
-token_tag2string(localDescriptor) -> ?PrettyLocalToken;
-token_tag2string(localControlDescriptor) -> ?PrettyLocalControlToken;
-token_tag2string(lockStep) -> ?PrettyLockStepToken;
-token_tag2string(loopBack) -> ?PrettyLoopbackToken;
-token_tag2string(mediaDescriptor) -> ?PrettyMediaToken;
-token_tag2string(mediaToken) -> ?PrettyMediaToken;
-%% token_tag2string(X) -> ?PrettyMegacopToken;
-%% token_tag2string(X) -> ?PrettyMethodToken;
-%% token_tag2string(X) -> ?PrettyMgcIdToken;
-%% token_tag2string(X) -> ?PrettyModeToken;
-token_tag2string(modReq) -> ?PrettyModifyToken;
-token_tag2string(modReply) -> ?PrettyModifyToken;
-token_tag2string(modemDescriptor) -> ?PrettyModemToken;
-token_tag2string(modemToken) -> ?PrettyModemToken;
-token_tag2string(moveReq) -> ?PrettyMoveToken;
-token_tag2string(moveReply) -> ?PrettyMoveToken;
-%% token_tag2string(X) -> ?PrettyMtpToken;
-token_tag2string(muxDescriptor) -> ?PrettyMuxToken;
-token_tag2string(muxToken) -> ?PrettyMuxToken;
-%% token_tag2string(X) -> ?PrettyNeverNotifyToken;
-token_tag2string(notifyReq) -> ?PrettyNotifyToken;
-%% token_tag2string(X) -> ?PrettyNotifyCompletionToken;
-%% token_tag2string(X) -> ?PrettyNotifyImmediateToken;
-%% token_tag2string(X) -> ?PrettyNotifyRegulatedToken;
-%% token_tag2string(X) -> ?PrettyNx64kToken;
-token_tag2string(observedEventsDescriptor) -> ?PrettyObservedEventsToken;
-token_tag2string(observedEventsToken) -> ?PrettyObservedEventsToken;
-token_tag2string(false) -> ?PrettyOffToken;
-token_tag2string(off) -> ?PrettyOffToken;
-token_tag2string(oneway) -> ?PrettyOnewayToken;
-token_tag2string(onewayboth) -> ?PrettyOnewayBothToken;
-token_tag2string(onewayexternal) -> ?PrettyOnewayExternalToken;
-token_tag2string(onOff) -> ?PrettyOnOffToken;
-%% token_tag2string(X) -> ?PrettyOrAUDITselectToken;
-token_tag2string(true) -> ?PrettyOnToken;
-token_tag2string(otherReason) -> ?PrettyOtherReasonToken;
-token_tag2string(outOfSvc) -> ?PrettyOutOfSvcToken;
-token_tag2string(packagesDescriptor) -> ?PrettyPackagesToken;
-token_tag2string(packagesToken) -> ?PrettyPackagesToken;
-%% token_tag2string(X) -> ?PrettyPendingToken;
-token_tag2string(priorityAudit) -> ?PrettyPriorityToken;
-%% token_tag2string(X) -> ?PrettyProfileToken;
-%% token_tag2string(X) -> ?PrettyReasonToken;
-token_tag2string(recvOnly) -> ?PrettyRecvonlyToken;
-%% token_tag2string(X) -> ?PrettyReplyToken;
-token_tag2string(resetEventsDescriptor) -> ?PrettyResetEventsDescriptorToken;
-%% token_tag2string(X) -> ?PrettyRequestIDToken;
-%% token_tag2string(X) -> ?PrettyResponseAckToken;
-%% token_tag2string(X) -> ?PrettyRestartToken;
-token_tag2string(remoteDescriptor) -> ?PrettyRemoteToken;
-%% token_tag2string(X) -> ?PrettyReservedGroupToken;
-%% token_tag2string(X) -> ?PrettyReservedValueToken;
-token_tag2string(sendOnly) -> ?PrettySendonlyToken;
-token_tag2string(sendRecv) -> ?PrettySendrecvToken;
-%% token_tag2string(X) -> ?PrettyServicesToken;
-%% token_tag2string(X) -> ?PrettyServiceStatesToken;
-token_tag2string(serviceChangeReq) -> ?PrettyServiceChangeToken;
-%% token_tag2string(X) -> ?PrettyServiceChangeAddressToken;
-token_tag2string(incomplete) -> ?PrettyServiceChangeIncompleteToken;
-%% token_tag2string(X) -> ?PrettySignalListToken;
-token_tag2string(signalsDescriptor) -> ?PrettySignalsToken;
-token_tag2string(signalsToken) -> ?PrettySignalsToken;
-%% token_tag2string(X) -> ?PrettySignalTypeToken;
-token_tag2string(statisticsDescriptor) -> ?PrettyStatsToken;
-token_tag2string(statsToken) -> ?PrettyStatsToken;
-%% token_tag2string(X) -> ?PrettyStreamToken;
-token_tag2string(subtractReq) -> ?PrettySubtractToken;
-token_tag2string(subtractReply) -> ?PrettySubtractToken;
-%% token_tag2string(X) -> ?PrettySynchISDNToken;
-%% token_tag2string(X) -> ?PrettyTerminationStateToken;
-token_tag2string(test) -> ?PrettyTestToken;
-token_tag2string(timeOut) -> ?PrettyTimeOutToken;
-token_tag2string(onTimeOut) -> ?PrettyTimeOutToken;
-token_tag2string(topologyAudit) -> ?PrettyTopologyToken;
-%% token_tag2string(X) -> ?PrettyTransToken;
-%% token_tag2string(X) -> ?PrettyV18Token;
-%% token_tag2string(X) -> ?PrettyV22Token;
-%% token_tag2string(X) -> ?PrettyV22bisToken;
-%% token_tag2string(X) -> ?PrettyV32Token;
-%% token_tag2string(X) -> ?PrettyV32bisToken;
-%% token_tag2string(X) -> ?PrettyV34Token;
-%% token_tag2string(X) -> ?PrettyV76Token;
-%% token_tag2string(X) -> ?PrettyV90Token;
-%% token_tag2string(X) -> ?PrettyV91Token;
-%% token_tag2string(X) -> ?PrettyVersionToken;
-token_tag2string(_) -> [].
-
-
-%%----------------------------------------------------------------------
-%% Define various macros used by the actual generator code
-%%----------------------------------------------------------------------
-
--define(EQUAL, [?SpToken, ?EqualToken, ?SpToken]).
--define(COLON, [?ColonToken]).
--define(LBRKT, [?SpToken, ?LbrktToken, ?SpToken]).
--define(RBRKT, [?SpToken, ?RbrktToken, ?SpToken]).
--define(LSBRKT, [?SpToken, ?LsbrktToken, ?SpToken]).
--define(RSBRKT, [?SpToken, ?RsbrktToken, ?SpToken]).
--define(COMMA, [?CommaToken, ?SpToken]).
--define(DOT, [?DotToken]).
--define(SLASH, [?SlashToken]).
--define(DQUOTE, [?DoubleQuoteToken]).
--define(SP, [?SpToken]).
--define(HTAB, [?HtabToken]).
--define(CR, [?CrToken]).
--define(LF, [?LfToken]).
--define(LWSP, []).
--define(EOL, ?LF).
--define(WSP, ?SP).
--define(SEP, ?WSP).
-
--define(INIT_INDENT, []).
--define(INC_INDENT(State), [?HtabToken | State]).
--define(INDENT(State), [?LfToken | State]).
--define(LBRKT_INDENT(State), [?SpToken, ?LbrktToken, ?INDENT(?INC_INDENT(State))]).
--define(RBRKT_INDENT(State), [?INDENT(State), ?RbrktToken]).
--define(LSBRKT_INDENT(State), [?SpToken, ?LsbrktToken, ?INDENT(?INC_INDENT(State))]).
--define(RSBRKT_INDENT(State), [?INDENT(State), ?RsbrktToken]).
--define(COMMA_INDENT(State), [?CommaToken, ?INDENT(State)]).
--define(SEP_INDENT(_State), [?LfToken]).
-
-%%----------------------------------------------------------------------
-%% Define token macros
-%%----------------------------------------------------------------------
-
--define(AddToken , ?PrettyAddToken).
--define(AndAUDITSelectToken , ?PrettytAndAUDITSelectToken).
--define(AuditToken , ?PrettyAuditToken).
--define(AuditCapToken , ?PrettyAuditCapToken).
--define(AuditValueToken , ?PrettyAuditValueToken).
--define(AuthToken , ?PrettyAuthToken).
--define(BothToken , ?PrettyBothToken).
--define(BothwayToken , ?PrettyBothwayToken).
--define(BriefToken , ?PrettyBriefToken).
--define(BufferToken , ?PrettyBufferToken).
--define(CtxToken , ?PrettyCtxToken).
--define(ContextAuditToken , ?PrettyContextAuditToken).
--define(ContextAttrToken , ?PrettyContextAttrToken).
--define(ContextListToken , ?PrettyContextListToken).
--define(DigitMapToken , ?PrettyDigitMapToken).
--define(DirectionToken , ?PrettyDirectionToken).
--define(DiscardToken , ?PrettyDiscardToken).
--define(DisconnectedToken , ?PrettyDisconnectedToken).
--define(DelayToken , ?PrettyDelayToken).
--define(DeleteToken , ?PrettyDeleteToken).
--define(DurationToken , ?PrettyDurationToken).
--define(EmbedToken , ?PrettyEmbedToken).
--define(EmergencyToken , ?PrettyEmergencyToken).
--define(EmergencyOffToken , ?PrettyEmergencyOffToken).
--define(EmergencyValueToken , ?PrettyEmergencyValueToken).
--define(ErrorToken , ?PrettyErrorToken).
--define(EventBufferToken , ?PrettyEventBufferToken).
--define(EventsToken , ?PrettyEventsToken).
--define(ExternalToken , ?PrettyExternalToken).
--define(FailoverToken , ?PrettyFailoverToken).
--define(ForcedToken , ?PrettyForcedToken).
--define(GracefulToken , ?PrettyGracefulToken).
--define(H221Token , ?PrettyH221Token).
--define(H223Token , ?PrettyH223Token).
--define(H226Token , ?PrettyH226Token).
--define(HandOffToken , ?PrettyHandOffToken).
--define(IEPSToken , ?PrettyIEPSToken).
--define(ImmAckRequiredToken , ?PrettyImmAckRequiredToken).
--define(InactiveToken , ?PrettyInactiveToken).
--define(InternalToken , ?PrettyInternalToken).
--define(IntsigDelayToken , ?PrettyIntsigDelayToken).
--define(IsolateToken , ?PrettyIsolateToken).
--define(InSvcToken , ?PrettyInSvcToken).
--define(InterruptByEventToken , ?PrettyInterruptByEventToken).
--define(InterruptByNewSignalsDescrToken, ?PrettyInterruptByNewSignalsDescrToken).
--define(IterationToken , ?PrettyIterationToken).
--define(KeepActiveToken , ?PrettyKeepActiveToken).
--define(LocalToken , ?PrettyLocalToken).
--define(LocalControlToken , ?PrettyLocalControlToken).
--define(LockStepToken , ?PrettyLockStepToken).
--define(LoopbackToken , ?PrettyLoopbackToken).
--define(MediaToken , ?PrettyMediaToken).
--define(MegacopToken , ?PrettyMegacopToken).
-%% -define(MessageSegmentToken , ?PrettyMessageSegmentToken).
--define(MethodToken , ?PrettyMethodToken).
--define(MgcIdToken , ?PrettyMgcIdToken).
--define(ModeToken , ?PrettyModeToken).
--define(ModifyToken , ?PrettyModifyToken).
--define(ModemToken , ?PrettyModemToken).
--define(MoveToken , ?PrettyMoveToken).
--define(MtpToken , ?PrettyMtpToken).
--define(MuxToken , ?PrettyMuxToken).
--define(NeverNotifyToken , ?PrettyNeverNotifyToken).
--define(NotifyToken , ?PrettyNotifyToken).
--define(NotifyCompletionToken , ?PrettyNotifyCompletionToken).
--define(NotifyImmediateToken , ?PrettyNotifyImmediateToken).
--define(NotifyRegulatedToken , ?PrettyNotifyRegulatedToken).
--define(Nx64kToken , ?PrettyNx64kToken).
--define(ObservedEventsToken , ?PrettyObservedEventsToken).
--define(OffToken , ?PrettyOffToken).
--define(OnewayToken , ?PrettyOnewayToken).
--define(OnewayBothToken , ?PrettyOnewayBothToken).
--define(OnewayExternalToken , ?PrettyOnewayExternalToken).
--define(OnOffToken , ?PrettyOnOffToken).
--define(OnToken , ?PrettyOnToken).
--define(OrAUDITselectToken , ?PrettyOrAUDITselectToken).
--define(OtherReasonToken , ?PrettyOtherReasonToken).
--define(OutOfSvcToken , ?PrettyOutOfSvcToken).
--define(PackagesToken , ?PrettyPackagesToken).
--define(PendingToken , ?PrettyPendingToken).
--define(PriorityToken , ?PrettyPriorityToken).
--define(ProfileToken , ?PrettyProfileToken).
--define(ReasonToken , ?PrettyReasonToken).
--define(RecvonlyToken , ?PrettyRecvonlyToken).
--define(ReplyToken , ?PrettyReplyToken).
--define(ResetEventsDescriptorToken , ?PrettyResetEventsDescriptorToken).
--define(ResponseAckToken , ?PrettyResponseAckToken).
--define(RestartToken , ?PrettyRestartToken).
--define(RemoteToken , ?PrettyRemoteToken).
--define(RequestIDToken , ?PrettyRequestIDToken).
--define(ReservedGroupToken , ?PrettyReservedGroupToken).
--define(ReservedValueToken , ?PrettyReservedValueToken).
-%% -define(SegmentationCompleteToken , ?PrettySegmentationCompleteToken).
--define(SendonlyToken , ?PrettySendonlyToken).
--define(SendrecvToken , ?PrettySendrecvToken).
--define(ServicesToken , ?PrettyServicesToken).
--define(ServiceStatesToken , ?PrettyServiceStatesToken).
--define(ServiceChangeToken , ?PrettyServiceChangeToken).
--define(ServiceChangeAddressToken , ?PrettyServiceChangeAddressToken).
--define(ServiceChangeIncompleteToken , ?PrettyServiceChangeIncompleteToken).
--define(SignalListToken , ?PrettySignalListToken).
--define(SignalsToken , ?PrettySignalsToken).
--define(SignalTypeToken , ?PrettySignalTypeToken).
--define(StatsToken , ?PrettyStatsToken).
--define(StreamToken , ?PrettyStreamToken).
--define(SubtractToken , ?PrettySubtractToken).
--define(SynchISDNToken , ?PrettySynchISDNToken).
--define(TerminationStateToken , ?PrettyTerminationStateToken).
--define(TestToken , ?PrettyTestToken).
--define(TimeOutToken , ?PrettyTimeOutToken).
--define(TopologyToken , ?PrettyTopologyToken).
--define(TransToken , ?PrettyTransToken).
--define(V18Token , ?PrettyV18Token).
--define(V22Token , ?PrettyV22Token).
--define(V22bisToken , ?PrettyV22bisToken).
--define(V32Token , ?PrettyV32Token).
--define(V32bisToken , ?PrettyV32bisToken).
--define(V34Token , ?PrettyV34Token).
--define(V76Token , ?PrettyV76Token).
--define(V90Token , ?PrettyV90Token).
--define(V91Token , ?PrettyV91Token).
--define(VersionToken , ?PrettyVersionToken).
-
-%%----------------------------------------------------------------------
-%% Include the generator code
-%%----------------------------------------------------------------------
-
--include("megaco_text_gen_prev3c.hrl").
-
-%% start() ->
-%% Fun = fun() ->
-%% Val = lists:flatten([$", $e, $r, $i, $c, $s, $s, $o, $n, $"]),
-%% %% Val = [$e, $r, $i, $c, $s, $s, $o, $n],
-%% PP = {'PropertyParm',"ipdc/realm",[Val],asn1_NOVALUE},
-%% enc_PropertyParm(PP, [])
-%% end,
-%% test(Fun).
-
-%% start() ->
-%% Fun = fun() ->
-%% PP = {'PropertyParm',"ipdc/realm",["ericsson"],asn1_NOVALUE},
-%% enc_PropertyParm(PP, [])
-%% end,
-%% test(Fun).
-
-test(Fun) when is_function(Fun) ->
- Fun().
-
diff --git a/lib/megaco/src/text/megaco_pretty_text_encoder_v1.erl b/lib/megaco/src/text/megaco_pretty_text_encoder_v1.erl
index 03ffc31b1e..476300a463 100644
--- a/lib/megaco/src/text/megaco_pretty_text_encoder_v1.erl
+++ b/lib/megaco/src/text/megaco_pretty_text_encoder_v1.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2003-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2003-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -37,7 +37,7 @@
-include_lib("megaco/include/megaco.hrl").
-include_lib("megaco/include/megaco_message_v1.hrl").
--define(encoder_version_pre_prev3c,true).
+-define(encoder_pre_version_3,true). % version 1 or 2
-include("megaco_text_tokens.hrl").
diff --git a/lib/megaco/src/text/megaco_pretty_text_encoder_v2.erl b/lib/megaco/src/text/megaco_pretty_text_encoder_v2.erl
index fb260ac31b..abeb58da70 100644
--- a/lib/megaco/src/text/megaco_pretty_text_encoder_v2.erl
+++ b/lib/megaco/src/text/megaco_pretty_text_encoder_v2.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2003-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2003-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -38,7 +38,7 @@
-include_lib("megaco/include/megaco.hrl").
-include_lib("megaco/include/megaco_message_v2.hrl").
--define(encoder_version_pre_prev3c,true).
+-define(encoder_pre_version_3,true). % version 1 or 2
-include("megaco_text_tokens.hrl").
diff --git a/lib/megaco/src/text/megaco_text_gen_prev3a.hrl b/lib/megaco/src/text/megaco_text_gen_prev3a.hrl
deleted file mode 100644
index 4f3c83c6c5..0000000000
--- a/lib/megaco/src/text/megaco_text_gen_prev3a.hrl
+++ /dev/null
@@ -1,2943 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2004-2019. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode V2 Megaco/H.248 text messages from internal form
-%% The following was changed:
-%% - MuxType (Nx64kToken)
-%% - auditItem (terminationAudit)
-%% - serviceChangeParm (auditItem)
-%%
-%% The following was added:
-%% - All IndAud stuff
-%%----------------------------------------------------------------------
-
-%% -define(d(F,A), io:format("~w:" ++ F ++ "~n", [?MODULE|A])).
-
--define(META_ENC(Type, Item), Item) .
-%% -define(META_ENC(Type, Item), megaco_meta_package:encode(text, Type, Item)).
-%% -define(META_DEC(Type, Item), megaco_meta_package:decode(text, Type, Item)).
-
-enc_MegacoMessage(Val) ->
- State = ?INIT_INDENT,
- enc_MegacoMessage(Val, State).
-
-enc_MegacoMessage(#'MegacoMessage'{authHeader = asn1_NOVALUE,
- mess = Mess}, State) ->
- [
- ?LWSP,
- enc_Message(Mess, State)
- ];
-enc_MegacoMessage(#'MegacoMessage'{authHeader = Auth,
- mess = Mess}, State) ->
- [
- ?LWSP,
- enc_AuthenticationHeader(Auth, State),
- enc_Message(Mess, State)
- ].
-
-%% Note that encoding the transaction this way
-%% make the message look a bit strange.
-enc_Transaction(Val) ->
- State = ?INIT_INDENT,
- enc_Transaction(Val, State).
-
-%% Note that encoding the action request's this way
-%% make the message look a bit strange.
-enc_ActionRequests(Val) ->
- State = ?INIT_INDENT,
- enc_TransactionRequest_actions(Val, State).
-
-%% Note that encoding the action request this way
-%% make the message look a bit strange.
-enc_ActionRequest(Val) ->
- State = ?INIT_INDENT,
- enc_ActionRequest(Val, State).
-
-enc_CommandRequest(Val) ->
- State = ?INIT_INDENT,
- enc_CommandRequest(Val, State).
-
-enc_ActionReply(Val) ->
- State = ?INIT_INDENT,
- enc_ActionReply(Val, State).
-
-enc_AuthenticationHeader(asn1_NOVALUE, _State) ->
- [];
-enc_AuthenticationHeader(Val, State)
- when is_record(Val, 'AuthenticationHeader') ->
- [
- ?AuthToken,
- ?EQUAL,
- enc_SecurityParmIndex(Val#'AuthenticationHeader'.secParmIndex, State),
- ?COLON,
- enc_SequenceNum(Val#'AuthenticationHeader'.seqNum, State),
- ?COLON,
- enc_AuthData(Val#'AuthenticationHeader'.ad, State),
- ?SEP_INDENT(State)
- ].
-
-enc_SecurityParmIndex({'SecurityParmIndex',Val}, State) ->
- enc_SecurityParmIndex(Val, State);
-enc_SecurityParmIndex(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 8, 8)
- ].
-
-enc_SequenceNum({'SequenceNum',Val}, State) ->
- enc_SequenceNum(Val, State);
-enc_SequenceNum(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 8, 8)
- ].
-
-enc_AuthData({'AuthData',Val}, State) ->
- enc_AuthData(Val, State);
-enc_AuthData(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 24, 64) %% OTP-4710
- ].
-
-enc_Message(Val, State)
- when is_record(Val, 'Message') ->
- [
- ?MegacopToken,
- ?SLASH,
- enc_version(Val#'Message'.version, State),
- ?SEP,
- enc_MId(Val#'Message'.mId, State),
- ?SEP_INDENT(State),
- enc_Message_messageBody(Val#'Message'.messageBody, State)
- ].
-
-enc_version(Val, State) when is_integer(Val) andalso (Val >= 0) ->
- enc_DIGIT(Val, State, 0, 99).
-
-enc_Message_messageBody({'Message_messageBody',Val}, State) ->
- enc_Message_messageBody(Val, State);
-enc_Message_messageBody({Tag, Val}, State) ->
- case Tag of
- messageError ->
- enc_ErrorDescriptor(Val, State);
- transactions ->
- enc_Message_messageBody_transactions(Val, State);
- _ ->
- error({invalid_messageBody_tag, Tag})
- end.
-
-enc_Message_messageBody_transactions({'Message_messageBody_transactions',Val},
- State) ->
- enc_Message_messageBody_transactions(Val, State);
-enc_Message_messageBody_transactions(Val, State)
- when is_list(Val) andalso (Val =/= []) ->
- [enc_Transaction(T, State) || T <- Val].
-
-enc_MId({'MId',Val}, State) ->
- enc_MId(Val, State);
-enc_MId({Tag, Val}, State) ->
- case Tag of
- ip4Address ->
- enc_IP4Address(Val, State);
- ip6Address ->
- enc_IP6Address(Val, State);
- domainName ->
- enc_DomainName(Val, State);
- deviceName ->
- enc_PathName(Val, State);
- mtpAddress ->
- enc_mtpAddress(Val, State);
- _ ->
- error({invalid_MId_tag, Tag})
- end.
-
-enc_mtpAddress(Val, State) ->
- [
- ?MtpToken,
- ?LBRKT,
- enc_OCTET_STRING(Val, State, 2, 4),
- ?RBRKT
- ].
-
-enc_DomainName(#'DomainName'{portNumber = asn1_NOVALUE,
- name = Name}, State) ->
- [
- $<,
- %% BUGBUG: (ALPHA / DIGIT) *63(ALPHA / DIGIT / "-" / ".")
- enc_STRING(Name, State, 1, 64),
- $>
- ];
-enc_DomainName(#'DomainName'{portNumber = PortNumber,
- name = Name}, State) ->
- [
- $<,
- %% BUGBUG: (ALPHA / DIGIT) *63(ALPHA / DIGIT / "-" / ".")
- enc_STRING(Name, State, 1, 64),
- $>,
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_IP4Address(#'IP4Address'{portNumber = asn1_NOVALUE,
- address = [A1, A2, A3, A4]}, State) ->
- [
- $[,
- enc_V4hex(A1, State),
- ?DOT,
- enc_V4hex(A2, State),
- ?DOT,
- enc_V4hex(A3, State),
- ?DOT,
- enc_V4hex(A4, State),
- $]
- ];
-enc_IP4Address(#'IP4Address'{portNumber = PortNumber,
- address = [A1, A2, A3, A4]}, State) ->
- [
- $[,
- enc_V4hex(A1, State),
- ?DOT,
- enc_V4hex(A2, State),
- ?DOT,
- enc_V4hex(A3, State),
- ?DOT,
- enc_V4hex(A4, State),
- $],
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_V4hex(Val, State) ->
- enc_DIGIT(Val, State, 0, 255).
-
-enc_IP6Address(#'IP6Address'{portNumber = asn1_NOVALUE,
- address = Addr}, State)
- when is_list(Addr) andalso (length(Addr) =:= 16) ->
- [
- $[,
- enc_IP6Address_address(Addr, State),
- $]
- ];
-enc_IP6Address(#'IP6Address'{portNumber = PortNumber,
- address = Addr}, State)
- when is_list(Addr) andalso (length(Addr) =:= 16) ->
- [
- $[,
- enc_IP6Address_address(Addr, State),
- $],
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_IP6Address_address([0, 0|Addr], State) ->
- enc_IP6Address_address2(Addr, 1, false, true, State);
-enc_IP6Address_address(Addr, State) ->
- enc_IP6Address_address2(Addr, 0, false, false, State).
-
-enc_IP6Address_address2([0,0], 0, _Padding, _First, _State) ->
- [$0];
-enc_IP6Address_address2([0,0], PadN, false, true, _State) when PadN > 0 ->
- [$:, $:]; % Padding from the beginning (all zero's)
-enc_IP6Address_address2([0,0], PadN, false, false, _State) when PadN > 0 ->
- [$:]; % Padding in the middle or end
-enc_IP6Address_address2([0,0], _, true, _First, _State) ->
- [$0];
-enc_IP6Address_address2([N1,N2], 0, _Padding, _First, State) ->
- [enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], 1, _Padding, _First, State) ->
- [$0, $:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], PadN, false, true, State) when PadN > 1 ->
- [$:, $:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], PadN, false, false, State) when PadN > 1 ->
- [$:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], _PadN, true, _First, State) ->
- [enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([0, 0|Ns], PadN, false, First, State) ->
- enc_IP6Address_address2(Ns, PadN+1, false, First, State);
-enc_IP6Address_address2([0, 0|Ns], _PadN, true, _First, State) ->
- [
- $0,
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], 0, Padded, _First, State) ->
- [
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, Padded, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], 1, Padded, _First, State) ->
- [
- $0,
- $:,
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, Padded, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], PadN, false, true, State) when PadN > 1 ->
- %% Padding from the beginning
- [
- $:,
- $:,
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], PadN, false, false, State)
- when PadN > 1 ->
- [
- $:, %% The other ':' has already added
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], _PadN, true, _First, State) ->
- [
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ].
-
-
-enc_hex4([0,0], _State) ->
- $0;
-enc_hex4([0,N], _State) ->
- hex(N);
-enc_hex4([N1, N2], _State) when N2 =< 15 ->
- [hex(N1), $0, hex(N2)];
-enc_hex4([N1, N2], _State) ->
- [hex(N1), hex(N2)].
-
-enc_PathName({'PathName',Val}, State) ->
- enc_PathName(Val, State);
-enc_PathName(Val, State) ->
- %% BUGBUG: ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
- %% BUGBUG: ["@" pathDomainName ]
- enc_STRING(Val, State, 1, 64).
-
-enc_Transaction(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_Transaction({'Transaction',Val}, State) ->
- enc_Transaction(Val, State);
-enc_Transaction({Tag, Val}, State) ->
- case Tag of
- transactionRequest ->
- enc_TransactionRequest(Val, State);
- transactionPending ->
- enc_TransactionPending(Val, State);
- transactionReply ->
- enc_TransactionReply(Val, State);
- transactionResponseAck ->
- enc_TransactionResponseAck(Val, State);
- _ ->
- error({invalid_Transaction_tag, Tag})
- end.
-
-enc_TransactionResponseAck([Mand], State) ->
- [
- ?ResponseAckToken,
- ?LBRKT_INDENT(State),
- [enc_TransactionAck(Mand, State)],
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionResponseAck([Mand | Opt], State) ->
- [
- ?ResponseAckToken,
- ?LBRKT_INDENT(State),
- [enc_TransactionAck(Mand, State) |
- [[?COMMA_INDENT(State), enc_TransactionAck(Val, State)] || Val <- Opt]],
- ?RBRKT_INDENT(State)
- ].
-
-enc_TransactionAck(Val, State)
- when is_record(Val, 'TransactionAck') ->
- [
- enc_TransactionId(Val#'TransactionAck'.firstAck, ?INC_INDENT(State)),
- case Val#'TransactionAck'.lastAck of
- asn1_NOVALUE ->
- [];
- LastAck ->
- ["-",enc_TransactionId(LastAck, State)]
- end
- ].
-
-enc_TransactionId({'TransactionId',Val}, State) ->
- enc_TransactionId(Val, State);
-enc_TransactionId(Val, State) ->
- enc_UINT32(Val, State).
-
-enc_TransactionRequest(#'TransactionRequest'{transactionId = Tid,
- actions = Acts}, State) ->
- [
- ?TransToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- enc_TransactionRequest_actions(Acts, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionRequest(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_TransactionRequest_actions(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_TransactionRequest_actions({'TransactionRequest_actions',Val}, State) ->
- enc_TransactionRequest_actions(Val, State);
-enc_TransactionRequest_actions([Mand], State) ->
- [enc_ActionRequest(Mand, State)];
-enc_TransactionRequest_actions([Mand | Opt], State) ->
- [enc_ActionRequest(Mand, State) |
- [[?COMMA_INDENT(State), enc_ActionRequest(Val, State)] || Val <- Opt]].
-
-enc_TransactionPending(#'TransactionPending'{transactionId = Tid}, State) ->
- [?PendingToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionPending(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_TransactionReply(#'TransactionReply'{transactionId = Tid,
- immAckRequired = Req,
- transactionResult = Res,
- %% These fields are actually not
- %% supported in this implementation,
- %% but because the messenger module
- %% cannot see any diff between the
- %% various v3 implementations...
- segmentNumber = asn1_NOVALUE,
- segmentationComplete = asn1_NOVALUE},
- State) ->
- [
- ?ReplyToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- enc_immAckRequired(Req, State),
- enc_TransactionReply_transactionResult(Res, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionReply(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_immAckRequired(Val, _State) ->
- case Val of
- asn1_NOVALUE ->
- [];
- 'NULL' ->
- [?ImmAckRequiredToken, ?COMMA_INDENT(?INC_INDENT(_State))]
- end.
-
-enc_TransactionReply_transactionResult({'TransactionReply_transactionResult',
- Val}, State) ->
- enc_TransactionReply_transactionResult(Val, State);
-enc_TransactionReply_transactionResult({Tag, Val}, State) ->
- case Tag of
- transactionError ->
- enc_ErrorDescriptor(Val, State);
- actionReplies ->
- enc_TransactionReply_transactionResult_actionReplies(Val, State);
- _ ->
- error({invalid_TransactionReply_transactionResult_tag, Tag})
- end.
-
-enc_TransactionReply_transactionResult_actionReplies({'TransactionReply_transactionResult_actionReplies',Val}, State) ->
- enc_TransactionReply_transactionResult_actionReplies(Val, State);
-enc_TransactionReply_transactionResult_actionReplies([Mand], State) ->
- [enc_ActionReply(Mand, State)];
-enc_TransactionReply_transactionResult_actionReplies([Mand | Opt], State) ->
- [enc_ActionReply(Mand, State),
- [[?COMMA_INDENT(State), enc_ActionReply(Val, State)] || Val <- Opt]].
-
-enc_ErrorDescriptor(#'ErrorDescriptor'{errorText = asn1_NOVALUE,
- errorCode = Code}, State) ->
- [
- ?ErrorToken,
- ?EQUAL,
- enc_ErrorCode(Code, State),
- ?LBRKT,
- ?RBRKT
- ];
-enc_ErrorDescriptor(#'ErrorDescriptor'{errorText = Text,
- errorCode = Code}, State) ->
- [
- ?ErrorToken,
- ?EQUAL,
- enc_ErrorCode(Code, State),
- ?LBRKT,
- enc_ErrorText(Text, State),
- ?RBRKT
- ].
-
-enc_ErrorCode({'ErrorCode',Val}, State)->
- enc_ErrorCode(Val, State);
-enc_ErrorCode(Val, State) ->
- enc_DIGIT(Val, State, 0, 999).
-
-enc_ErrorText({'ErrorText',Val}, State) ->
- enc_ErrorText(Val, State);
-enc_ErrorText(Val, State) ->
- enc_QUOTED_STRING(Val, State).
-
-enc_ContextID({'ContextID',Val}, State) ->
- enc_ContextID(Val, State);
-enc_ContextID(Val, State) ->
- case Val of
- ?megaco_all_context_id -> $*;
- ?megaco_null_context_id -> $-;
- ?megaco_choose_context_id -> $$;
- Int when is_integer(Int) -> enc_UINT32(Int, State)
- end.
-
-enc_ActionRequest(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = asn1_NOVALUE,
- contextAttrAuditReq = asn1_NOVALUE,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = CtxReq,
- contextAttrAuditReq = asn1_NOVALUE,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{[CtxReq], fun enc_ContextRequest/2},
- {CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = CtxReq,
- contextAttrAuditReq = CtxAAR,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{[CtxReq], fun enc_ContextRequest/2},
- {[CtxAAR], fun enc_ContextAttrAuditRequest/2},
- {CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% OTP-5085
-enc_ActionReply(#'ActionReply'{contextId = Id,
- errorDescriptor = ED,
- contextReply = CtxRep,
- commandReply = CmdRep},
- State) ->
-% d("enc_ActionReply -> entry with"
-% "~n Id: ~p"
-% "~n ED: ~p"
-% "~n CtxRep: ~p"
-% "~n CmdRep: ~p", [Id, ED, CtxRep, CmdRep]),
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(Id, State),
- ?LBRKT_INDENT(State),
- do_enc_ActionReply(ED, CtxRep, CmdRep, State),
- ?RBRKT_INDENT(State)
- ].
-
-do_enc_ActionReply(asn1_NOVALUE, CtxRep, [], State)
- when CtxRep =/= asn1_NOVALUE ->
-% d("do_enc_ActionReply -> entry with"
-% "~n CtxRep: ~p", [CtxRep]),
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State))
- ];
-do_enc_ActionReply(asn1_NOVALUE, CtxRep, CmdRep, State)
- when CtxRep =/= asn1_NOVALUE, CmdRep =/= [] ->
-% d("do_enc_ActionReply -> entry with"
-% "~n CtxRep: ~p"
-% "~n CmdRep: ~p", [CtxRep, CmdRep]),
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{CmdRep, fun enc_CommandReply/2}],
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(asn1_NOVALUE, asn1_NOVALUE, CmdRep, State)
- when CmdRep =/= [] ->
-% d("do_enc_ActionReply -> entry with"
-% "~n CmdRep: ~p", [CmdRep]),
- [
- enc_list([{CmdRep, fun enc_CommandReply/2}],
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, CtxRep, [], State)
- when (ED =/= asn1_NOVALUE) andalso (CtxRep =/= asn1_NOVALUE) ->
-% d("do_enc_ActionReply -> entry with"
-% "~n ED: ~p"
-% "~n CtxRep: ~p", [ED, CtxRep]),
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, asn1_NOVALUE, CmdRep, State)
- when (ED =/= asn1_NOVALUE) andalso (CmdRep =/= []) ->
-% d("do_enc_ActionReply -> entry with"
-% "~n ED: ~p"
-% "~n CmdRep: ~p", [ED, CmdRep]),
- [
- enc_list([{CmdRep, fun enc_CommandReply/2},
- {[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, CtxRep, CmdRep, State)
- when (ED =/= asn1_NOVALUE) andalso
- (CtxRep =/= asn1_NOVALUE) andalso
- (CmdRep =/= []) ->
-% d("do_enc_ActionReply -> entry with"
-% "~n ED: ~p"
-% "~n CtxRep: ~p"
-% "~n CmdRep: ~p", [ED, CtxRep, CmdRep]),
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{CmdRep, fun enc_CommandReply/2},
- {[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, asn1_NOVALUE, [], State)
- when ED =/= asn1_NOVALUE ->
-% d("do_enc_ActionReply -> entry with"
-% "~n ED: ~p", [ED]),
- [
- enc_ErrorDescriptor(ED, ?INC_INDENT(State))
- ].
-
-
-enc_ContextRequest_priority(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_priority(Val, _State) ->
- {[Val], fun(X,S) -> [?PriorityToken,?EQUAL,enc_UINT16(X, S)] end}.
-
-enc_ContextRequest_emergency(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_emergency(true, _State) ->
- {[?EmergencyToken], fun(Elem, _) -> Elem end};
-enc_ContextRequest_emergency(false, _State) ->
- {[?EmergencyOffToken], fun(Elem, _) -> Elem end}.
-
-enc_ContextRequest_topologyReq(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_topologyReq({'ContextRequest_topologyReq',
- asn1_NOVALUE}, _State) ->
- {[], dummy};
-enc_ContextRequest_topologyReq({'ContextRequest_topologyReq',
- List}, _State) ->
- {List, fun enc_TopologyRequest/2};
-enc_ContextRequest_topologyReq(List, _State) ->
- {[List], fun enc_TopologyRequest/2}.
-
-enc_ContextRequest_iepsCallind(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_iepsCallind(false, _State) ->
- {[], dummy};
-% enc_ContextRequest_iepsCallind(false, _State) ->
-% {[?IEPS_XXXX_Token], fun(Elem, _) -> Elem end};
-enc_ContextRequest_iepsCallind(true, _State) ->
- {[?IEPSToken], fun(Elem, _) -> Elem end}.
-
-enc_ContextRequest_contextProp(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_contextProp([], _State) ->
- {[], dummy};
-enc_ContextRequest_contextProp([PP], _State) ->
- {[PP], fun enc_PropertyParm/2};
-enc_ContextRequest_contextProp(PPs, _State) when is_list(PPs) ->
- error({at_most_one_contextProp, PPs}).
-
-enc_ContextRequest(asn1_NOVALUE, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepsCallind = asn1_NOVALUE,
- contextProp = asn1_NOVALUE}, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = [],
- iepsCallind = asn1_NOVALUE,
- contextProp = []}, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = Prio,
- emergency = Em,
- topologyReq = TR,
- iepsCallind = Ieps,
- contextProp = CP}, State) ->
- [
- ?ContextAttrToken,
- ?LBRKT_INDENT(State),
- enc_list([enc_ContextRequest_priority(Prio, State),
- enc_ContextRequest_emergency(Em, State),
- enc_ContextRequest_topologyReq(TR, State),
- enc_ContextRequest_iepsCallind(Ieps, State),
- enc_ContextRequest_contextProp(CP, State)],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{topology = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- priority = asn1_NOVALUE,
- iepsCallind = asn1_NOVALUE,
- contextPropAud = asn1_NOVALUE}, _State) ->
- [];
-enc_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{topology = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- priority = asn1_NOVALUE,
- iepsCallind = asn1_NOVALUE,
- contextPropAud = []}, _State) ->
- [];
-enc_ContextAttrAuditRequest(CAAR, State) ->
- [
- ?ContextAuditToken,
- ?LBRKT_INDENT(State),
- enc_IndAudContextAttrDescriptor(CAAR, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudContextAttrDescriptor(
- #'ContextAttrAuditRequest'{topology = Top,
- emergency = Em,
- priority = Prio,
- iepsCallind = Ieps,
- contextPropAud = CPA}, State) ->
- [
- ?ContextAttrToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Top], fun('NULL', _) -> ?TopologyToken end},
- {[Em], fun('NULL', _) -> ?EmergencyToken end},
- {[Prio], fun('NULL', _) -> ?PriorityToken end},
- {[Ieps], fun('NULL', _) -> ?IEPSToken end},
- {CPA, fun enc_IndAudPropertyParm/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_CommandRequest(#'CommandRequest'{optional = asn1_NOVALUE,
- wildcardReturn = asn1_NOVALUE,
- command = Cmd}, State) ->
- [
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = 'NULL',
- wildcardReturn = asn1_NOVALUE,
- command = Cmd}, State) ->
- [
- "O-",
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = asn1_NOVALUE,
- wildcardReturn = 'NULL',
- command = Cmd}, State) ->
- [
- "W-",
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = 'NULL',
- wildcardReturn = 'NULL',
- command = Cmd}, State) ->
- [
- "O-",
- "W-",
- enc_Command(Cmd, State)
- ].
-
-enc_Command({'Command',Val}, State) ->
- enc_Command(Val, State);
-enc_Command({Tag, Val}, State) ->
-% d("enc_Command -> entry with"
-% "~n Tag: ~p"
-% "~n Val: ~p", [Tag, Val]),
- case Tag of
- addReq ->
- [?AddToken, enc_AmmRequest(Val, State)];
- moveReq ->
- [?MoveToken, enc_AmmRequest(Val, State)];
- modReq ->
- [?ModifyToken, enc_AmmRequest(Val, State)];
- subtractReq ->
- [?SubtractToken, enc_SubtractRequest(Val, State)];
- auditCapRequest ->
- [?AuditCapToken, enc_AuditRequest(Val, State)];
- auditValueRequest ->
- [?AuditValueToken, enc_AuditRequest(Val, State)];
- notifyReq ->
- [?NotifyToken, enc_NotifyRequest(Val, State)];
- serviceChangeReq ->
- [?ServiceChangeToken, enc_ServiceChangeRequest(Val, State)];
- _ ->
- error({invalid_Command_tag, Tag})
- end.
-
-enc_CommandReply({'CommandReply',Val}, State) ->
- enc_CommandReply(Val, State);
-enc_CommandReply({Tag, Val}, State) ->
-% d("enc_CommandReply -> entry with"
-% "~n Tag: ~p"
-% "~n Val: ~p", [Tag, Val]),
- case Tag of
- addReply ->
- [?AddToken, enc_AmmsReply(Val, State)];
- moveReply ->
- [?MoveToken, enc_AmmsReply(Val, State)];
- modReply ->
- [?ModifyToken, enc_AmmsReply(Val, State)];
- subtractReply ->
- [?SubtractToken, enc_AmmsReply(Val, State)];
- auditCapReply ->
- [?AuditCapToken, enc_AuditReply(Val, State)];
- auditValueReply ->
- [?AuditValueToken, enc_AuditReply(Val, State)];
- notifyReply ->
- [?NotifyToken, enc_NotifyReply(Val, State)];
- serviceChangeReply ->
- [?ServiceChangeToken, enc_ServiceChangeReply(Val, State)];
- _ ->
- error({invalid_CommandReply_tag, Tag})
- end.
-
-enc_TopologyRequest(Val, State)
- when is_list(Val) ->
- [
- ?TopologyToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val, fun enc_TopologyRequest1/2}],?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_TopologyRequest1(#'TopologyRequest'{terminationFrom = From,
- terminationTo = To,
- topologyDirection = Dir}, State) ->
- [
- enc_TerminationID(From, State),
- ?COMMA_INDENT(State),
- enc_TerminationID(To, State),
- ?COMMA_INDENT(State),
- enc_TopologyDirection(Dir, State)
- ].
-
-enc_TopologyDirection(bothway, _State) ->
- ?BothwayToken;
-enc_TopologyDirection(isolate, _State) ->
- ?IsolateToken;
-enc_TopologyDirection(oneway, _State) ->
- ?OnewayToken;
-enc_TopologyDirection(Top, _State) ->
- error({illegal_TopologyDirection, Top}).
-
-enc_AmmRequest(Val, State)
- when is_record(Val, 'AmmRequest') ->
-% d("enc_AmmRequest -> entry with"
-% "~n Val: ~p", [Val]),
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'AmmRequest'.terminationID, State),
- enc_opt_brackets(
- enc_list([{Val#'AmmRequest'.descriptors, fun enc_ammDescriptor/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_ammDescriptor({Tag, Desc}, State) ->
-% d("enc_ammDescriptor -> entry with"
-% "~n Tag: ~p"
-% "~n Desc: ~p", [Tag, Desc]),
- case Tag of
- mediaDescriptor -> enc_MediaDescriptor(Desc, State);
- modemDescriptor -> enc_ModemDescriptor(Desc, State);
- muxDescriptor -> enc_MuxDescriptor(Desc, State);
- eventsDescriptor -> enc_EventsDescriptor(Desc, State);
- eventBufferDescriptor -> enc_EventBufferDescriptor(Desc, State);
- signalsDescriptor -> enc_SignalsDescriptor(Desc, State);
- digitMapDescriptor -> enc_DigitMapDescriptor(Desc, State);
- auditDescriptor -> enc_AuditDescriptor(Desc, State);
- statisticsDescriptor -> enc_StatisticsDescriptor(Desc, State);
- _ ->
- error({invalid_ammDescriptor_tag, Tag})
- end.
-
-enc_AmmsReply(#'AmmsReply'{terminationID = ID,
- terminationAudit = asn1_NOVALUE}, State) ->
-% d("enc_AmmsReply(asn1_NOVALUE) -> entry with"
-% "~n ID: ~p", [ID]),
- [
- ?EQUAL,
- enc_TerminationIDList1(ID, State)
- ];
-enc_AmmsReply(#'AmmsReply'{terminationID = ID,
- terminationAudit = []}, State) ->
-% d("enc_AmmsReply([]) -> entry with"
-% "~n ID: ~p", [ID]),
- [
- ?EQUAL,
- enc_TerminationIDList1(ID, State)
- ];
-enc_AmmsReply(#'AmmsReply'{terminationID = ID,
- terminationAudit = Res}, State) ->
-% d("enc_AmmsReply -> entry with"
-% "~n ID: ~p"
-% "~n Res: ~p", [ID, Res]),
- [
- ?EQUAL,
- enc_TerminationIDList1(ID, State),
- case lists:flatten(enc_TerminationAudit(Res, ?INC_INDENT(State))) of
- [] ->
- [];
- L ->
- [
- ?LBRKT_INDENT(State),
- L,
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-enc_SubtractRequest(Val, State)
- when is_record(Val, 'SubtractRequest') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'SubtractRequest'.terminationID, State),
- case Val#'SubtractRequest'.auditDescriptor of
- asn1_NOVALUE ->
- [];
- AuditDescr ->
- [
- ?LBRKT_INDENT(State) ,
- enc_AuditDescriptor(AuditDescr, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-enc_AuditRequest(Val, State)
- when is_record(Val, 'AuditRequest') ->
-% d("enc_AuditRequest -> entry with"
-% "~n Val: ~p", [Val]),
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1([Val#'AuditRequest'.terminationID], State),
- case Val#'AuditRequest'.auditDescriptor of
- asn1_NOVALUE ->
- [];
- AuditDescr ->
- [
- ?LBRKT_INDENT(State) ,
- enc_AuditDescriptor(AuditDescr, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-%% auditReply = (AuditValueToken / AuditCapToken )
-%% ( contextTerminationAudit / auditOther)
-%% auditOther = EQUAL TerminationID LBRKT
-%% terminationAudit RBRKT
-%% terminationAudit = auditReturnParameter *(COMMA auditReturnParameter)
-%%
-%% contextTerminationAudit = EQUAL CtxToken ( terminationIDList /
-%% LBRKT errorDescriptor RBRKT )
-enc_AuditReply({Tag, Val}, State) ->
- case Tag of
- contextAuditResult ->
- [
- ?EQUAL,
- ?CtxToken,
- enc_TerminationIDListN(Val, State)
- ];
- error ->
- [
- ?EQUAL,
- ?CtxToken,
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
- auditResult when is_record(Val, 'AuditResult') ->
- enc_auditOther(Val, State);
- auditResult ->
- error({invalid_auditResult, Val});
- _ ->
- error({invalid_AuditReply_tag, Tag})
- end.
-
-enc_auditOther(#'AuditResult'{terminationID = ID,
- terminationAuditResult = asn1_NOVALUE}, State) ->
- [
- ?EQUAL,
- enc_TerminationID(ID, State)
- ];
-enc_auditOther(#'AuditResult'{terminationID = ID,
- terminationAuditResult = []}, State) ->
- [
- ?EQUAL,
- enc_TerminationID(ID, State)
- ];
-enc_auditOther(#'AuditResult'{terminationID = ID,
- terminationAuditResult = Res}, State) ->
- [
- ?EQUAL,
- enc_TerminationID(ID, State),
- case lists:flatten(enc_TerminationAudit(Res, ?INC_INDENT(State))) of
- [] ->
- [];
- L ->
- [
- ?LBRKT_INDENT(State),
- L,
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = asn1_NOVALUE,
- auditPropertyToken = asn1_NOVALUE},
- _State) ->
-% d("enc_AuditDescriptor(asn1_NOVALUE) -> entry"),
- [
- ?AuditToken,
- [?LBRKT, ?RBRKT]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = [],
- auditPropertyToken = asn1_NOVALUE},
- _State) ->
-% d("enc_AuditDescriptor([]) -> entry"),
- [
- ?AuditToken,
- [?LBRKT, ?RBRKT]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = List,
- auditPropertyToken = asn1_NOVALUE},
- State) ->
-% d("enc_AuditDescriptor -> entry with",
-% "~n List: ~p", [List]),
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_auditItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- ];
-%% - v2 -
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = asn1_NOVALUE,
- auditPropertyToken = Prop},
- State) ->
-% d("enc_AuditDescriptor -> entry with",
-% "~n Prop: ~p", [Prop]),
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_auditPropertyToken(Prop, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = List,
- auditPropertyToken = Prop},
- State) ->
-% d("enc_AuditDescriptor -> entry with",
-% "~n List: ~p"
-% "~n Prop: ~p", [List, Prop]),
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_auditItem/2}], ?INC_INDENT(State)),
- ?COMMA_INDENT(State),
- enc_auditPropertyToken(Prop, ?INC_INDENT(State)), % v2
- ?RBRKT_INDENT(State)
- ]
- ].
-
-enc_auditItem(signalsToken, _State) ->
- ?SignalsToken;
-enc_auditItem(eventBufferToken, _State) ->
- ?EventBufferToken;
-enc_auditItem(eventsToken, _State) ->
- ?EventsToken;
-enc_auditItem(Val, State) ->
- enc_auditReturnItem(Val, State).
-
-
-enc_auditReturnItem(muxToken, _State) ->
- ?MuxToken;
-enc_auditReturnItem(modemToken, _State) ->
- ?ModemToken;
-enc_auditReturnItem(mediaToken, _State) ->
- ?MediaToken;
-enc_auditReturnItem(digitMapToken, _State) ->
- ?DigitMapToken;
-enc_auditReturnItem(statsToken, _State) ->
- ?StatsToken;
-enc_auditReturnItem(observedEventsToken, _State) ->
- ?ObservedEventsToken;
-enc_auditReturnItem(packagesToken, _State) ->
- ?PackagesToken.
-
-
-%% - v2 begin -
-
-enc_auditPropertyToken([], _State) ->
- [];
-enc_auditPropertyToken([Param | Params], State) ->
-% d("enc_auditPropertyToken -> entry with",
-% "~n Param: ~p", [Param]),
- [enc_IndAudauditReturnParameter(Param, State),
- [[?COMMA_INDENT(State),
- enc_IndAudauditReturnParameter(P, State)] || P <- Params]].
-
-
-enc_IndAudauditReturnParameter({Tag, Val}, State) ->
- case Tag of
- indAudMediaDescriptor ->
- enc_IndAudMediaDescriptor(Val, State);
- indAudEventsDescriptor ->
- enc_IndAudEventsDescriptor(Val, State);
- indAudSignalsDescriptor ->
- enc_IndAudSignalsDescriptor(Val, State);
- indAudDigitMapDescriptor ->
- enc_IndAudDigitMapDescriptor(Val, State);
- indAudEventBufferDescriptor ->
- enc_IndAudEventBufferDescriptor(Val, State);
- indAudStatisticsDescriptor ->
- enc_IndAudStatisticsDescriptor(Val, State);
- indAudPackagesDescriptor ->
- enc_IndAudPackagesDescriptor(Val, State);
- _ ->
- error({invalid_IndAudauditReturnParameter_tag, Tag})
- end.
-
-%% The ASN.1 does not limit to just one of termStateDescr or streams,
-%% but the ABNF seams to do that...
-enc_IndAudMediaDescriptor(
- #'IndAudMediaDescriptor'{termStateDescr = asn1_NOVALUE,
- streams = Streams}, State) ->
-% d("enc_IndAudMediaDescriptor -> entry with",
-% "~n Streams: ~p", [Streams]),
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_IndAudMediaDescriptor_streams(Streams, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudMediaDescriptor(#'IndAudMediaDescriptor'{termStateDescr = TSD,
- streams = asn1_NOVALUE},
- State) ->
-% d("enc_IndAudMediaDescriptor -> entry with",
-% "~n TSD: ~p", [TSD]),
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_IndAudTerminationStateDescriptor(TSD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudMediaDescriptor_streams({Tag, Val}, State) ->
-% d("enc_IndAudMediaDescriptor_streams -> entry with",
-% "~n Tag: ~p"
-% "~n Val: ~p", [Tag, Val]),
- case Tag of
- oneStream ->
- enc_IndAudStreamParms(Val, State);
- multiStream ->
- enc_IndAudMediaDescriptor_multiStream(Val, State);
- _ ->
- error({invalid_IndAudMediaDescriptor_streams_tag, Tag})
- end.
-
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [],
- eventBufferControl = asn1_NOVALUE,
- serviceState = 'NULL'}, _State) ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(_State),
- ?ServiceStatesToken,
- ?RBRKT_INDENT(_State)
- ];
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [],
- eventBufferControl = 'NULL',
- serviceState = asn1_NOVALUE}, _State) ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(_State),
- ?BufferToken,
- ?RBRKT_INDENT(_State)
- ];
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [Parms],
- eventBufferControl = asn1_NOVALUE,
- serviceState = asn1_NOVALUE}, State) ->
- #'IndAudPropertyParm'{name = Name} = Parms,
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-%% In text, localDescriptor and remoteDescriptor are not allowed!!
-enc_IndAudStreamParms(
- #'IndAudStreamParms'{localControlDescriptor = LCD,
- localDescriptor = asn1_NOVALUE,
- remoteDescriptor = asn1_NOVALUE,
- statisticsDescriptor = SD}, State) ->
-% d("enc_IndAudStreamParms -> entry with"
-% "~n LCD: ~p"
-% "~n SD: ~p", [LCD, SD]),
- [
- enc_list([{[LCD], fun enc_IndAudLocalControlDescriptor/2},
- {[SD], fun enc_IndAudStatisticsDescriptor/2}],
- ?INC_INDENT(State))
- ].
-
-enc_IndAudLocalControlDescriptor(Val, State)
- when is_record(Val, 'IndAudLocalControlDescriptor') ->
- [
- ?LocalControlToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Val#'IndAudLocalControlDescriptor'.streamMode],
- fun('NULL', _) -> ?ModeToken end},
- {[Val#'IndAudLocalControlDescriptor'.reserveValue],
- fun('NULL', _) -> ?ReservedValueToken end},
- {[Val#'IndAudLocalControlDescriptor'.reserveGroup],
- fun('NULL', _) -> ?ReservedGroupToken end},
- {Val#'IndAudLocalControlDescriptor'.propertyParms,
- fun enc_IndAudPropertyParm/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudPropertyParm(#'IndAudPropertyParm'{name = PkgdName}, State) ->
- enc_PkgdName(PkgdName, State).
-
-enc_IndAudMediaDescriptor_multiStream([Val], State) ->
-% d("enc_IndAudMediaDescriptor_multiStream -> entry with"
-% "~n Val: ~p", [Val]),
- [
- enc_IndAudStreamDescriptor(Val, ?INC_INDENT(State))
- ];
-enc_IndAudMediaDescriptor_multiStream(Vals, _State) when is_list(Vals) ->
- error({invalid_IndAudMediaDescriptor_multiStream_length, Vals});
-enc_IndAudMediaDescriptor_multiStream(Val, _State) ->
- error({invalid_IndAudMediaDescriptor_multiStream, Val}).
-
-enc_IndAudStreamDescriptor(#'IndAudStreamDescriptor'{streamID = SID,
- streamParms = Parms},
- State) ->
-% d("enc_IndAudStreamDescriptor -> entry with"
-% "~n SID: ~p"
-% "~n Parms: ~p", [SID, Parms]),
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(SID, State),
- ?LBRKT_INDENT(State),
- enc_IndAudStreamParms(Parms, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventBufferDescriptor(Val, State)
- when is_record(Val, 'IndAudEventBufferDescriptor') ->
- #'IndAudEventBufferDescriptor'{eventName = EvName,
- streamID = ID} = Val,
- [
- ?EventBufferToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(EvName, State),
- enc_IndAudEventBufferDescriptor_eventSpec(ID, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventBufferDescriptor_eventSpec(asn1_NOVALUE, _State) ->
- [
- ];
-enc_IndAudEventBufferDescriptor_eventSpec({eventParameterName, ParamName},
- State) ->
- [
- ?LBRKT_INDENT(State),
- enc_Name(ParamName, State),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudEventBufferDescriptor_eventSpec(ID, State) ->
- [
- ?LBRKT_INDENT(State),
- enc_eventStream(ID, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventsDescriptor(Val, State)
- when is_record(Val, 'IndAudEventsDescriptor') ->
- #'IndAudEventsDescriptor'{requestID = ReqID,
- pkgdName = Name,
- streamID = asn1_NOVALUE} = Val,
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(ReqID, State),
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_IndAudSignalsDescriptor(Val, State) ->
- [
- ?SignalsToken,
- ?LBRKT_INDENT(State),
- enc_IndAudSignalsDescriptor_value(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudSignalsDescriptor_value({signal, Val}, State) ->
- enc_IndAudSignal(Val, State);
-enc_IndAudSignalsDescriptor_value({seqSigList, Val}, State) ->
- enc_IndAudSeqSigList(Val, State).
-
-enc_IndAudSignal(#'IndAudSignal'{signalName = SignalName,
- streamID = asn1_NOVALUE}, State) ->
- [
- enc_SignalName(SignalName, State)
- ].
-
-enc_IndAudSeqSigList(#'IndAudSeqSigList'{id = ID,
- signalList = Parm},
- State) ->
- [
- ?SignalListToken,
- ?EQUAL,
- enc_UINT16(ID, State),
- ?LBRKT_INDENT(State),
- enc_IndAudSignal(Parm, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudDigitMapDescriptor(#'IndAudDigitMapDescriptor'{digitMapName = Name},
- State) ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ].
-
-enc_IndAudStatisticsDescriptor(#'IndAudStatisticsDescriptor'{statName = Name},
- State) ->
-% d("enc_IndAudStatisticsDescriptor -> entry with"
-% "~n Name: ~p", [Name]),
- [
- ?StatsToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_IndAudPackagesDescriptor(#'IndAudPackagesDescriptor'{packageName = N,
- packageVersion = V},
- State) ->
- [
- ?PackagesToken,
- ?LBRKT_INDENT(State),
- enc_Name(N, State),
- "-",
- enc_UINT16(V, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-%% - v2 end -
-
-
-enc_TerminationAudit({'TerminationAudit',Val}, State) ->
- enc_TerminationAudit(Val, State);
-enc_TerminationAudit([], _State) ->
- [];
-enc_TerminationAudit([Mand | Opt], State) ->
-% d("enc_TerminationAudit -> entry with"
-% "~n Mand: ~p", [Mand]),
- [enc_AuditReturnParameter(Mand, State),
- [[?COMMA_INDENT(State), enc_AuditReturnParameter(Val, State)] || Val <- Opt]].
-
-enc_AuditReturnParameter({'AuditReturnParameter',Val}, State) ->
- enc_AuditReturnParameter(Val, State);
-enc_AuditReturnParameter({Tag, Val}, State) ->
-% d("enc_AuditReturnParameter -> entry with"
-% "~n Tag: ~p"
-% "~n Val: ~p", [Tag, Val]),
- case Tag of
- mediaDescriptor ->
- enc_MediaDescriptor(Val, State);
- modemDescriptor ->
- enc_ModemDescriptor(Val, State);
- muxDescriptor ->
- enc_MuxDescriptor(Val, State);
- eventsDescriptor ->
- enc_EventsDescriptor(Val, State);
- signalsDescriptor ->
- enc_SignalsDescriptor(Val, State);
- digitMapDescriptor ->
- enc_DigitMapDescriptor(Val, State);
- observedEventsDescriptor ->
- enc_ObservedEventsDescriptor(Val, State);
- eventBufferDescriptor ->
- enc_EventBufferDescriptor(Val, State);
- statisticsDescriptor ->
- enc_StatisticsDescriptor(Val, State);
- packagesDescriptor ->
- enc_PackagesDescriptor(Val, State);
- errorDescriptor ->
- enc_ErrorDescriptor(Val, State);
- emptyDescriptors ->
- enc_EmptyDescriptors(Val, State);
- _ ->
- error({invalid_AuditReturnParameter_tag, Tag})
- end.
-
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = asn1_NOVALUE}, _State) ->
- [];
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = []}, _State) ->
- [];
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = List}, State) ->
- enc_list([{List, fun enc_auditReturnItem/2}], ?INC_INDENT(State)).
-
-
-enc_NotifyRequest(Val, State)
- when is_record(Val, 'NotifyRequest') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'NotifyRequest'.terminationID, State),
- ?LBRKT_INDENT(State),
- %% BUGBUG: Mismatch between ASN.1 and ABNF
- %% BUGBUG: The following ought to be a 'choice'
- case Val#'NotifyRequest'.errorDescriptor of
- asn1_NOVALUE ->
- OED = Val#'NotifyRequest'.observedEventsDescriptor,
- enc_ObservedEventsDescriptor(OED, ?INC_INDENT(State));
- ErrorDescr ->
- enc_ErrorDescriptor(ErrorDescr, ?INC_INDENT(State))
- end,
- ?RBRKT_INDENT(State)
- ].
-
-enc_NotifyReply(Val, State)
- when is_record(Val, 'NotifyReply') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- case Val#'NotifyReply'.terminationID of
- asn1_NOVALUE ->
- error(asn1_not_compliant_with_abnf);
- TermId ->
- enc_TerminationIDList1(TermId, State)
- end,
- case Val#'NotifyReply'.errorDescriptor of
- asn1_NOVALUE ->
- [];
- ErrorDescr ->
- [
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(ErrorDescr, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-enc_ObservedEventsDescriptor(Val, State)
- when is_record(Val, 'ObservedEventsDescriptor') ->
- [
- ?ObservedEventsToken,
- ?EQUAL,
- enc_RequestID(Val#'ObservedEventsDescriptor'.requestId, State),
- ?LBRKT_INDENT(State),
- enc_observedEventsDescriptors(Val#'ObservedEventsDescriptor'.observedEventLst, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_observedEventsDescriptors([Mand | Opt], State) ->
- [enc_ObservedEvent(Mand, State),
- [[?COMMA_INDENT(State), enc_ObservedEvent(Val, State)] || Val <- Opt]].
-
-%% ;time per event, because it might be buffered
-%% observedEvent = [ TimeStamp LWSP COLON] LWSP
-%% pkgdName [ LBRKT observedEventParameter
-%% *(COMMA observedEventParameter) RBRKT ]
-%%
-%% ;at-most-once eventStream, every eventParameterName at most once
-%% observedEventParameter = eventStream / eventOther
-enc_ObservedEvent(Val, State)
- when is_record(Val, 'ObservedEvent') ->
- [
- case Val#'ObservedEvent'.timeNotation of
- asn1_NOVALUE ->
- [];
- TimeStamp ->
- [
- enc_TimeNotation(TimeStamp, State),
- ?LWSP,
- ?COLON
- ]
- end,
- ?LWSP,
- enc_EventName(Val#'ObservedEvent'.eventName, State),
- enc_opt_brackets(
- enc_list([{[Val#'ObservedEvent'.streamID], fun enc_eventStream/2},
- {Val#'ObservedEvent'.eventParList, fun enc_eventOther/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_EventName({'EventName',Val}, State) ->
- enc_EventName(Val, State);
-enc_EventName(Val, State) ->
- PkgdName = ?META_ENC(event, Val),
- enc_PkgdName(PkgdName, State).
-
-enc_eventStream(Val, State) ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val, State)
- ].
-
-%% The value is already encoded
-enc_eventOther(#megaco_event_parameter{name = Name,
- value = Value}, State)
- when is_list(Value) ->
- [
- enc_Name(Name, State),
- ?EqualToken,
- Value
- ];
-%% Special treatment of the ds parameter of the dd/ce event
-enc_eventOther(#'EventParameter'{eventParameterName = "ds" = Name,
- value = [DigitString],
- extraInfo = asn1_NOVALUE}, State) ->
- [
- enc_Name(Name, State),
- ?EqualToken,
- enc_DigitString(DigitString, State)
- ];
-enc_eventOther(#'EventParameter'{eventParameterName = Name,
- value = Value,
- extraInfo = Extra}, State) ->
- [
- enc_Name(Name, State),
- enc_propertyParmValues(Value, Extra, State)
- ].
-
-enc_ServiceChangeRequest(Val, State)
- when is_record(Val, 'ServiceChangeRequest') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'ServiceChangeRequest'.terminationID, State),
- ?LBRKT_INDENT(State),
- enc_ServiceChangeParm(Val#'ServiceChangeRequest'.serviceChangeParms,
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% serviceChangeReply = ServiceChangeToken EQUAL TerminationID
-%% [LBRKT (errorDescriptor /
-%% serviceChangeReplyDescriptor) RBRKT]
-%% serviceChangeReplyDescriptor = ServicesToken LBRKT
-%% servChgReplyParm *(COMMA servChgReplyParm) RBRKT
-%%
-%% ;at-most-once. Version is REQUIRED on first ServiceChange response
-%% servChgReplyParm = (serviceChangeAddress / serviceChangeMgcId /
-%% serviceChangeProfile / serviceChangeVersion )
-enc_ServiceChangeReply(Val, State)
- when is_record(Val, 'ServiceChangeReply') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'ServiceChangeReply'.terminationID, State),
- enc_ServiceChangeResult(Val#'ServiceChangeReply'.serviceChangeResult, State)
- ].
-
-enc_ServiceChangeResult({'ServiceChangeResult',Val}, State) ->
- enc_ServiceChangeResult(Val, State);
-enc_ServiceChangeResult({Tag, Val}, State) ->
- case Tag of
- errorDescriptor ->
- [
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
- serviceChangeResParms ->
- case enc_ServiceChangeResParm(Val, ?INC_INDENT(?INC_INDENT(State))) of
- [] ->
- [];
- ResParms ->
- [
- ?LBRKT_INDENT(State),
- ?ServicesToken,
- fun(_S) ->
- [
- ?LBRKT_INDENT(_S),
- ResParms,
- ?RBRKT_INDENT(_S)
- ]
- end(?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
- _ ->
- error({invalid_ServiceChangeResult_tag, Tag})
- end.
-
-%% Required length of termination ID list is 1
-enc_TerminationIDList1({'TerminationIDList',Val}, State) ->
- enc_TerminationIDList1(Val, State);
-enc_TerminationIDList1([Singleton], State) ->
- enc_TerminationID(Singleton, State).
-
-%% No required length of termination ID list
-enc_TerminationIDListN({'TerminationIDList',Val}, State) ->
- enc_TerminationIDListN(Val, State);
-enc_TerminationIDListN([TID], State) ->
- [
- ?LBRKT_INDENT(State),
- enc_TerminationID(TID, State),
- ?RBRKT_INDENT(State)
- ];
-enc_TerminationIDListN(TIDs, State) ->
- [
- ?LBRKT_INDENT(State),
- enc_list([{TIDs, fun enc_TerminationID/2}], State),
- ?RBRKT_INDENT(State)
- ].
-
-%% TerminationID = "ROOT" / pathNAME / "$" / "*"
-%% ; Total length of pathNAME must not exceed 64 chars.
-%% pathNAME = ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
-%% ["@" pathDomainName ]
-enc_TerminationID(Tid, State)
- when is_record(Tid, megaco_term_id) ->
- List = [{Tid#megaco_term_id.id, fun enc_tid_component/2 }],
- enc_list(List, State, fun(_S) -> ?SLASH end, false).
-
-enc_tid_component(Component, State) when is_list(Component) ->
- [enc_tid_sub_component(Sub, State) || Sub <- Component];
-enc_tid_component(Invalid, _State) ->
- error({invalid_id_list_component, Invalid}).
-
-enc_tid_sub_component(all = _Sub, _State) ->
- ?megaco_all;
-enc_tid_sub_component(choose = _Sub, _State) ->
- ?megaco_choose;
-enc_tid_sub_component(Char, _State) when is_integer(Char) ->
- Char;
-enc_tid_sub_component(Invalid, _State) ->
- error({invalid_id_list_sub_component, Invalid}).
-
-%% enc_tid_sub_component(Sub, _State) ->
-%% case Sub of
-%% all -> ?megaco_all;
-%% choose -> ?megaco_choose;
-%% Char when is_integer(Char) -> Char
-%% end.
-
-%% mediaDescriptor = MediaToken LBRKT mediaParm *(COMMA mediaParm) RBRKT
-%% ; at-most-once per item
-%% ; and either streamParm or streamDescriptor but not both
-%% mediaParm = (streamParm / streamDescriptor /
-%% terminationStateDescriptor)
-%% ; at-most-once
-%% streamParm = ( localDescriptor / remoteDescriptor /
-%% localControlDescriptor )
-%% streamDescriptor = StreamToken EQUAL StreamID LBRKT streamParm
-%% *(COMMA streamParm) RBRKT
-enc_MediaDescriptor(Val, State)
- when is_record(Val, 'MediaDescriptor') ->
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Val#'MediaDescriptor'.termStateDescr],
- fun enc_TerminationStateDescriptor/2} |
- decompose_streams(Val#'MediaDescriptor'.streams)],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-decompose_streams(asn1_NOVALUE) ->
- [];
-decompose_streams({'MediaDescriptor_streams',Val}) ->
- decompose_streams(Val);
-decompose_streams({Tag, Val}) ->
- case Tag of
- oneStream ->
- decompose_StreamParms(Val);
- multiStream ->
- [{Val, fun enc_StreamDescriptor/2}];
- _ ->
- error({invalid_streams_tag, Tag})
- end.
-
-decompose_StreamParms(Val)
- when is_record(Val, 'StreamParms') ->
- [
- {[Val#'StreamParms'.localControlDescriptor],
- fun enc_LocalControlDescriptor/2},
- {[Val#'StreamParms'.localDescriptor],
- fun enc_localDescriptor/2},
- {[Val#'StreamParms'.remoteDescriptor],
- fun enc_remoteDescriptor/2},
- {[Val#'StreamParms'.statisticsDescriptor],
- fun enc_StatisticsDescriptor/2}
- ].
-
-enc_StreamDescriptor(Val, State)
- when is_record(Val, 'StreamDescriptor') ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val#'StreamDescriptor'.streamID, State),
- ?LBRKT_INDENT(State),
- enc_list(decompose_StreamParms(Val#'StreamDescriptor'.streamParms),
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% localControlDescriptor = LocalControlToken LBRKT localParm
-%% *(COMMA localParm) RBRKT
-%%
-%% ; at-most-once per item
-%% localParm = ( streamMode / propertyParm /
-%% reservedValueMode / reservedGroupMode )
-%% reservedValueMode = ReservedValueToken EQUAL ( "ON" / "OFF" )
-%% reservedGroupMode = ReservedGroupToken EQUAL ( "ON" / "OFF" )
-%%
-%% reservedMode = ReservedToken EQUAL ( "ON" / "OFF" )
-%%
-%% streamMode = ModeToken EQUAL streamModes
-enc_LocalControlDescriptor(
- #'LocalControlDescriptor'{streamMode = asn1_NOVALUE,
- reserveValue = asn1_NOVALUE,
- reserveGroup = asn1_NOVALUE,
- propertyParms = []}, _State) ->
- error({invalid_LocalControlDescriptor, empty});
-enc_LocalControlDescriptor(
- #'LocalControlDescriptor'{streamMode = SM,
- reserveValue = RV,
- reserveGroup = RG,
- propertyParms = PPs}, State) ->
- [
- ?LocalControlToken,
- ?LBRKT_INDENT(State),
- enc_list([{[SM], fun enc_StreamMode/2},
- {[RG], fun enc_reservedGroupMode/2},
- {[RV], fun enc_reservedValueMode/2},
- {PPs, fun enc_PropertyParm/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_reservedGroupMode(Val, _State) ->
- [
- ?ReservedGroupToken,
- ?EQUAL,
- case Val of
- false -> ?OffToken;
- true -> ?OnToken
- end
- ].
-
-enc_reservedValueMode(Val, _State) ->
- [
- ?ReservedValueToken,
- ?EQUAL,
- case Val of
- false -> ?OffToken;
- true -> ?OnToken
- end
- ].
-
-enc_StreamMode({'StreamMode',Val}, State) ->
- enc_StreamMode(Val, State);
-enc_StreamMode(Val, _State) ->
- [
- ?ModeToken,
- ?EQUAL,
- case Val of
- sendOnly -> ?SendonlyToken;
- recvOnly -> ?RecvonlyToken;
- sendRecv -> ?SendrecvToken;
- inactive -> ?InactiveToken;
- loopBack -> ?LoopbackToken
- end
- ].
-
-enc_Name({'Name',Val}, State) ->
- enc_Name(Val, State);
-enc_Name(Val, State) ->
- %% BUGBUG: NAME = ALPHA *63(ALPHA / DIGIT / "_" )
- enc_STRING(Val, State, 1, 64).
-
-enc_PkgdName({'PkgdName', Val}, State) ->
- enc_PkgdName(Val, State);
-enc_PkgdName(Val, _State) ->
- %% BUGBUG: pkgdName = (NAME / "*") SLASH (ItemID / "*" )
- %% enc_OCTET_STRING(Val, _State, 1, 64).
- if
- is_list(Val) ->
- Length = length(Val),
- if
- (Length >= 1) ->
- if
- (Length =< 64) ->
- Val;
- true ->
- error({pkgdName_toolong, Length, 64})
- end;
- true ->
- error({pkgdName_tooshort, Length, 1})
- end;
- true ->
- error({invalid_PkgdName, Val})
- end.
-
-enc_localDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- [
- ?LocalToken,
- ?LBRKT,
- enc_LocalRemoteDescriptor(Val, State),
- ?RBRKT_INDENT(State)
- ].
-
-enc_remoteDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- [
- ?RemoteToken,
- ?LBRKT,
- enc_LocalRemoteDescriptor(Val, State),
- ?RBRKT_INDENT(State)
- ].
-
-%% When text encoding the protocol, the descriptors consist of session
-%% descriptions as defined in SDP (RFC2327), except that the "s=", "t="
-%% and "o=" lines are optional. When multiple session descriptions are
-%% provided in one descriptor, the "v=" lines are required as delimiters;
-%% otherwise they are optional. Implementations shall accept session
-%% descriptions that are fully conformant to RFC2327. When binary
-%% encoding the protocol the descriptor consists of groups of properties
-%% (tag-value pairs) as specified in Annex C. Each such group may
-%% contain the parameters of a session description.
-enc_LocalRemoteDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- case Val#'LocalRemoteDescriptor'.propGrps of
- [] ->
- [];
- [OptV | MandV] ->
- [?LfToken,
- enc_PropertyGroup(OptV, opt_v, State) |
- [enc_PropertyGroup(M, mand_v, State) || M <- MandV]]
- end.
-
-enc_PropertyGroup({'PropertyGroup',Val}, RequiresV, State) ->
- enc_PropertyGroup(Val, RequiresV, State);
-enc_PropertyGroup([H | _T] = List, mand_v, State)
- when is_record(H, 'PropertyParm') andalso (H#'PropertyParm'.name == "v") ->
- enc_PropertyGroup(List, opt_v, State);
-enc_PropertyGroup(PG, opt_v, State) ->
- [
- [[enc_PropertyGroupParm(PP, State), ?CrToken, ?LfToken] || PP <- PG]
- ].
-
-enc_PropertyGroupParm(Val, State)
- when is_record(Val, 'PropertyParm') ->
- [OctetString] = Val#'PropertyParm'.value,
- [
- enc_PkgdName(Val#'PropertyParm'.name, State),
- ?EqualToken,
- enc_OCTET_STRING(OctetString, State, 0, infinity)
- ].
-
-%% propertyParm = pkgdName parmValue
-%% parmValue = (EQUAL alternativeValue/ INEQUAL VALUE)
-%% alternativeValue = ( VALUE / LSBRKT VALUE *(COMMA VALUE) RSBRKT /
-%% LSBRKT VALUE DOT DOT VALUE RSBRKT )
-enc_PropertyParm(Val, State)
- when is_record(Val, 'PropertyParm') ->
- PkgdName = ?META_ENC(property, Val#'PropertyParm'.name),
- [
- enc_PkgdName(PkgdName, State),
- enc_propertyParmValues(Val#'PropertyParm'.value,
- Val#'PropertyParm'.extraInfo,
- State)
- ].
-
-enc_propertyParmValues([Single], asn1_NOVALUE, State) ->
- [
- ?EqualToken,
- enc_Value(Single, State)
- ];
-enc_propertyParmValues([Single], {relation, Rel}, State) ->
- case Rel of
- greaterThan -> [$>, enc_Value(Single, State)];
- smallerThan -> [$<, enc_Value(Single, State)];
- unequalTo -> [$#, enc_Value(Single, State)]
- end;
-enc_propertyParmValues([Low, High], {range, true}, State)->
- %% Exact two values
- [
- ?EQUAL,
- ?LSBRKT,
- enc_Value(Low, State),
- ?COLON,
- enc_Value(High, State),
- ?RSBRKT
- ];
-enc_propertyParmValues(Values, {sublist, true}, State)->
- %% sublist (i.e. A AND B AND ...)
- [
- ?EQUAL,
- ?LSBRKT_INDENT(State),
- enc_list([{Values, fun enc_Value/2}], ?INC_INDENT(State)),
- ?RSBRKT_INDENT(State)
- ];
-enc_propertyParmValues(Values, {sublist, false}, State) ->
- %% alternatives (i.e. A OR B OR ...)
- [
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_list([{Values, fun enc_Value/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_propertyParmValues(V, EI, _State) ->
- error({invalid_property_parm_values, V, EI}).
-
-enc_TerminationStateDescriptor(Val, State)
- when is_record(Val, 'TerminationStateDescriptor') ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val#'TerminationStateDescriptor'.propertyParms,
- fun enc_PropertyParm/2},
- {[Val#'TerminationStateDescriptor'.eventBufferControl],
- fun enc_eventBufferControl/2},
- {[Val#'TerminationStateDescriptor'.serviceState],
- fun enc_serviceState/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_eventBufferControl(Val, _State) ->
- [
-
- ?BufferToken,
- ?EQUAL,
- case Val of
- off -> ?OffToken;
- lockStep -> ?LockStepToken
- end
- ].
-
-enc_serviceState({'ServiceState',Val}, State) ->
- enc_serviceState(Val, State);
-enc_serviceState(Val, _State) ->
- [
- ?ServiceStatesToken,
- ?EQUAL,
- case Val of
- test -> ?TestToken;
- outOfSvc -> ?OutOfSvcToken;
- inSvc -> ?InSvcToken
- end
- ].
-
-enc_MuxDescriptor(Val, State)
- when is_record(Val, 'MuxDescriptor') ->
- [
- ?MuxToken,
- ?EQUAL,
- enc_MuxType(Val#'MuxDescriptor'.muxType, State),
- enc_TerminationIDListN(Val#'MuxDescriptor'.termList, State)
- ].
-
-enc_MuxType({'MuxType',Val}, State) ->
- enc_MuxType(Val, State);
-enc_MuxType(Val, _State) ->
- case Val of
- h221 -> ?H221Token;
- h223 -> ?H223Token;
- h226 -> ?H226Token;
- v76 -> ?V76Token;
- %% extensionParameter
- nx64k -> ?Nx64kToken % v2
- end.
-
-enc_StreamID({'StreamID',Val}, State) ->
- enc_StreamID(Val, State);
-enc_StreamID(Val, State) ->
- enc_UINT16(Val, State).
-
-enc_EventsDescriptor(Val, State)
- when is_record(Val, 'EventsDescriptor') ->
- #'EventsDescriptor'{requestID = RequestId,
- eventList = Events} = Val,
- if
- RequestId == asn1_NOVALUE, Events == [] ->
- [
- ?EventsToken
- ];
-
- RequestId /= asn1_NOVALUE, Events /= [] ->
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(RequestId, State),
- ?LBRKT_INDENT(State),
- enc_list([{Events, fun enc_RequestedEvent/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end.
-
-enc_RequestedEvent(Val, State)
- when is_record(Val, 'RequestedEvent') ->
- PkgdName = ?META_ENC(event, Val#'RequestedEvent'.pkgdName),
- [
- enc_PkgdName(PkgdName, State),
- enc_opt_brackets(
- enc_list([{[Val#'RequestedEvent'.streamID], fun enc_eventStream/2},
- {Val#'RequestedEvent'.evParList, fun enc_eventOther/2} |
- decompose_requestedActions(Val#'RequestedEvent'.eventAction)],
- ?INC_INDENT(State)),
- State)
- ].
-
-decompose_requestedActions(asn1_NOVALUE) ->
- [];
-
-%%
-%% This in the ABNF:
-%% at-most-once each of KeepActiveToken , eventDM and eventStream
-%% at most one of either embedWithSig or embedNoSig but not both
-%% KeepActiveToken and embedWithSig must not both be present
-%%
-
-%% embedWithSig
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD})
- when (KA =/= true) andalso
- (SD =/= asn1_NOVALUE) andalso
- (SD =/= []) ->
- [
- {[EDM], fun enc_EventDM/2},
- {[{SE, SD}], fun enc_embedWithSig/2}
- ];
-
-%% embedNoSig
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD})
- when (SD =:= asn1_NOVALUE) orelse (SD =:= []) ->
- [
- {[KA], fun enc_keepActive/2},
- {[EDM], fun enc_EventDM/2},
- {[SE], fun enc_embedNoSig/2}
- ];
-
-%% Fallback, if everything else failes....
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD}) ->
- [
- {[KA], fun enc_keepActive/2},
- {[EDM], fun enc_EventDM/2},
- {[{SE, SD}], fun enc_embedWithSig/2}
- ].
-
-enc_embedNoSig(#'SecondEventsDescriptor'{requestID = RID,
- eventList = Evs}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_embedFirst(RID, Evs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_embedWithSig({asn1_NOVALUE, SD}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(SD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_embedWithSig({#'SecondEventsDescriptor'{requestID = RID,
- eventList = Evs}, SD}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(SD, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_embedFirst(RID, Evs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_keepActive(Val, _State) ->
- case Val of
- true -> [?KeepActiveToken];
- false -> []
- end.
-
-enc_EventDM({'EventDM',Val}, State) ->
- enc_EventDM(Val, State);
-enc_EventDM({Tag, Val}, State) ->
- case Tag of
- digitMapName ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Val, State)
- ];
- digitMapValue ->
- [
- ?DigitMapToken,
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
- _ ->
- error({invalid_EventDM_tag, Tag})
- end.
-
-
-enc_embedFirst(RID, Evs, State)
- when (RID =/= asn1_NOVALUE) andalso is_list(Evs) andalso (Evs =/= []) ->
- %% d("enc_embedFirst -> entry with"
- %% "~n RID: ~p"
- %% "~n Evs: ~p", [RID, Evs]),
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(RID, State),
- ?LBRKT_INDENT(State),
- enc_list([{Evs, fun enc_SecondRequestedEvent/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_embedFirst(_RID, _Evs, _State) ->
- %% d("enc_embedFirst -> entry"),
- [
- ?EventsToken
- ].
-
-
-enc_SecondRequestedEvent(#'SecondRequestedEvent'{pkgdName = N,
- streamID = SID,
- evParList = EPL,
- eventAction = EA}, State) ->
- PkgdName = ?META_ENC(event, N),
- [
- enc_PkgdName(PkgdName, State),
- enc_opt_brackets(
- enc_list(
- [{[SID], fun enc_eventStream/2},
- {EPL, fun enc_eventOther/2} |
- decompose_secondRequestedActions(EA)],
- ?INC_INDENT(State)),
- State)
- ].
-
-decompose_secondRequestedActions(asn1_NOVALUE) ->
- [];
-decompose_secondRequestedActions(Val)
- when is_record(Val, 'SecondRequestedActions') ->
- [
- {[Val#'SecondRequestedActions'.keepActive],
- fun enc_keepActive/2},
- {[Val#'SecondRequestedActions'.eventDM],
- fun enc_EventDM/2},
- {[Val#'SecondRequestedActions'.signalsDescriptor],
- fun enc_embeddedSignalsDescriptor/2}
- ].
-
-enc_embeddedSignalsDescriptor(Val, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_EventBufferDescriptor({'EventBufferDescriptor',Val}, State) ->
- enc_EventBufferDescriptor(Val, State);
-enc_EventBufferDescriptor([], _State) ->
- [
- ?EventBufferToken
- ];
-enc_EventBufferDescriptor(EventSpecs, State)
- when is_list(EventSpecs) andalso (length(EventSpecs) >= 1) ->
- [
- ?EventBufferToken,
- ?LBRKT_INDENT(State),
- enc_eventSpecs(EventSpecs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_EventBufferDescriptor(EventSpecs, _State) ->
- error({bad_eventSpecs, EventSpecs}).
-
-enc_eventSpecs([Mand | Opt], State) ->
- [enc_eventSpec(Mand, State),
- [[?COMMA_INDENT(State), enc_eventSpec(Val, State)] || Val <- Opt]].
-
-enc_eventSpec(#'EventSpec'{eventName = Name,
- streamID = SID,
- eventParList = EPL}, State) ->
- [
- enc_EventName(Name, State),
- enc_opt_brackets(
- enc_list([{[SID], fun enc_eventStream/2},
- {EPL, fun enc_eventOther/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_SignalsDescriptor({'SignalsDescriptor',Val}, State) ->
- enc_SignalsDescriptor(Val, State);
-enc_SignalsDescriptor([], _State) ->
- [
- ?SignalsToken
- ];
-enc_SignalsDescriptor(List, State) when is_list(List) ->
- [
- ?SignalsToken,
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_SignalRequest/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_SignalRequest({'SignalRequest',Val}, State) ->
- enc_SignalRequest(Val, State);
-enc_SignalRequest({Tag, Val}, State) ->
- case Tag of
- signal ->
- enc_Signal(Val, State);
- seqSigList ->
- enc_SeqSigList(Val, State);
- _ ->
- error({invalid_SignalRequest_tag, Tag})
- end.
-
-
-enc_SeqSigList(Val, State)
- when is_record(Val, 'SeqSigList') ->
- [
- ?SignalListToken,
- ?EQUAL,
- enc_UINT16(Val#'SeqSigList'.id, State),
- ?LBRKT_INDENT(State),
- enc_list([{Val#'SeqSigList'.signalList, fun enc_Signal/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_Signal(Val, State)
- when is_record(Val, 'Signal') ->
- [
- enc_SignalName(Val#'Signal'.signalName, State),
- enc_opt_brackets(
- enc_list([{[Val#'Signal'.streamID], fun enc_sigStream/2},
- {[Val#'Signal'.sigType], fun enc_sigSignalType/2},
- {[Val#'Signal'.duration], fun enc_sigDuration/2},
- {[Val#'Signal'.notifyCompletion], fun enc_notifyCompletion/2},
- {[Val#'Signal'.keepActive], fun enc_keepActive/2},
- {Val#'Signal'.sigParList, fun enc_sigOther/2},
- {[Val#'Signal'.direction], fun enc_SignalDirection/2},
- {[Val#'Signal'.requestID], fun enc_sigRequestID/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_sigStream(Val, State) ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val, State)
- ].
-
-enc_sigSignalType(Val, State) ->
- [
- ?SignalTypeToken,
- ?EQUAL,
- enc_SignalType(Val, State)
- ].
-
-enc_sigDuration(Val, State) ->
- [
- ?DurationToken,
- ?EQUAL,
- enc_UINT16(Val, State)
- ].
-
-enc_notifyCompletion(List, State) when is_list(List) ->
- [
- ?NotifyCompletionToken,
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_notifyCompletionItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_notifyCompletionItem(Val, _State) ->
- case Val of
- onTimeOut -> ?TimeOutToken;
- onInterruptByEvent -> ?InterruptByEventToken;
- onInterruptByNewSignalDescr -> ?InterruptByNewSignalsDescrToken;
- otherReason -> ?OtherReasonToken
- end.
-
-enc_SignalType({'SignalType',Val}, State) ->
- enc_SignalType(Val, State);
-enc_SignalType(Val, _State) ->
- case Val of
- brief -> ?BriefToken;
- onOff -> ?OnOffToken;
- timeOut -> ?TimeOutToken
- end.
-
-enc_SignalName({'SignalName',Val}, State)->
- enc_SignalName(Val, State);
-enc_SignalName(Val, State) ->
- PkgdName = ?META_ENC(signal, Val),
- enc_PkgdName(PkgdName, State).
-
-enc_sigOther(Val, State)
- when is_record(Val, 'SigParameter') ->
- [
- enc_Name(Val#'SigParameter'.sigParameterName, State),
- enc_propertyParmValues(Val#'SigParameter'.value,
- Val#'SigParameter'.extraInfo,
- State)
- ].
-
-enc_SignalDirection({'SignalDirection', Val}, State) ->
- enc_SignalDirection(Val, State);
-enc_SignalDirection(Val, _State) ->
- [
- ?DirectionToken,
- ?EQUAL,
- case Val of
- internal -> ?InternalToken;
- external -> ?ExternalToken;
- both -> ?BothToken
- end
- ].
-
-enc_sigRequestID(Val, State) ->
- [
- ?RequestIDToken,
- ?EQUAL,
- enc_RequestID(Val, State)
- ].
-
-enc_RequestID({'RequestID',Val}, State) ->
- enc_RequestID(Val, State);
-enc_RequestID(Val, _State) when (Val =:= ?megaco_all_request_id) ->
- "*";
-enc_RequestID(Val, State) ->
- enc_UINT32(Val, State).
-
-enc_ModemDescriptor(MD, _State) ->
- error({deprecated, MD}).
-
-%% Corr1:
-%% As of corr 1 ModemDescriptor has been deprecated.
-%% 7.1.2: ...shall not be included as part of a transmitted content and,
-%% if received, shall either be ignored or processed at the option
-%% of the implementation. ...
-%% enc_ModemDescriptor(#'ModemDescriptor'{mtl = [Val],
-%% mpl = [],
-%% nonStandardData = asn1_NOVALUE},
-%% State) ->
-%% [
-%% ?ModemToken,
-%% ?EQUAL,
-%% enc_ModemType(Val, State)
-%% ];
-%% enc_ModemDescriptor(Val, State)
-%% when is_record(Val, 'ModemDescriptor') ->
-%% [
-%% ?ModemToken,
-%% ?LSBRKT,
-%% enc_list([{Val#'ModemDescriptor'.mtl, fun enc_ModemType/2}], State),
-%% ?RSBRKT,
-%% enc_opt_brackets(
-%% enc_list([{Val#'ModemDescriptor'.mpl, fun enc_PropertyParm/2}],
-%% ?INC_INDENT(State)),
-%% State)
-%% %% BUGBUG: Is PropertyParm == NAME parmValue?
-%% ].
-
-%% enc_ModemDescriptor(Val, State)
-%% when is_record(Val, 'ModemDescriptor') ->
-%% [
-%% ?ModemToken,
-%% %% BUGBUG: Does never generate: EQUAL modemType
-%% ?LSBRKT,
-%% enc_list([{Val#'ModemDescriptor'.mtl, fun enc_ModemType/2}], State),
-%% ?RSBRKT,
-%% enc_opt_brackets(
-%% enc_list([{Val#'ModemDescriptor'.mpl, fun enc_PropertyParm/2}],
-%% ?INC_INDENT(State)),
-%% State)
-%% %% BUGBUG: Is PropertyParm == NAME parmValue?
-%% ].
-
-%% Corr1: See ModemDescriptor above
-%% enc_ModemType({'ModemType',Val}, State)->
-%% enc_ModemType(Val, State);
-%% enc_ModemType(Val, _State) ->
-%% %% BUGBUG: Does not handle extensionParameter
-%% case Val of
-%% v18 -> ?V18Token;
-%% v22 -> ?V22Token;
-%% v22bis -> ?V22bisToken;
-%% v32 -> ?V32Token;
-%% v32bis -> ?V32bisToken;
-%% v34 -> ?V34Token;
-%% v90 -> ?V90Token;
-%% v91 -> ?V91Token;
-%% synchISDN -> ?SynchISDNToken
-%% end.
-
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = asn1_NOVALUE,
- digitMapValue = Value} = Val,
- State)
- when (Value =/= asn1_NOVALUE) ->
- case is_empty_DigitMapValue(Value) of
- true ->
- error({invalid_DigitMapDescriptor, Val});
- false ->
- [
- ?DigitMapToken,
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Value, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = asn1_NOVALUE},
- State)
- when (Name =/= asn1_NOVALUE) ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ];
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = Value},
- State)
- when (Name =/= asn1_NOVALUE) andalso (Value =/= asn1_NOVALUE) ->
- case is_empty_DigitMapValue(Value) of
- true ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ];
- false ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State),
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Value, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
-enc_DigitMapDescriptor(BadVal, _State) ->
- error({invalid_DigitMapDescriptor, BadVal}).
-
-enc_DigitMapName({'DigitMapName',Val}, State) ->
- enc_DigitMapName(Val, State);
-enc_DigitMapName(Val, State) ->
- enc_Name(Val, State).
-
-is_empty_DigitMapValue(#'DigitMapValue'{startTimer = asn1_NOVALUE,
- shortTimer = asn1_NOVALUE,
- longTimer = asn1_NOVALUE,
- digitMapBody = [],
- durationTimer = asn1_NOVALUE}) ->
- true;
-is_empty_DigitMapValue(#'DigitMapValue'{}) ->
- false.
-
-enc_DigitMapValue(Val, State)
- when is_record(Val, 'DigitMapValue') ->
- [
- enc_timer(Val#'DigitMapValue'.startTimer, $T, State),
- enc_timer(Val#'DigitMapValue'.shortTimer, $S, State),
- enc_timer(Val#'DigitMapValue'.longTimer, $L, State),
- enc_timer(Val#'DigitMapValue'.durationTimer, $Z, State),
- %% BUGBUG: digitMapBody not handled at all
- enc_STRING(Val#'DigitMapValue'.digitMapBody, State, 0, infinity)
- ].
-
-enc_timer(asn1_NOVALUE, _Prefix, _State) ->
- [];
-enc_timer(Timer, Prefix, State) ->
- [
- Prefix,
- ?COLON,
- enc_DIGIT(Timer, State, 0, 99),
- ?COMMA_INDENT(State)
- ].
-
-enc_ServiceChangeParm(Val, State)
- when is_record(Val, 'ServiceChangeParm') ->
- [
- ?ServicesToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Val#'ServiceChangeParm'.serviceChangeMethod],
- fun enc_ServiceChangeMethod/2},
- {[Val#'ServiceChangeParm'.serviceChangeAddress],
- fun enc_ServiceChangeAddress/2},
- {[Val#'ServiceChangeParm'.serviceChangeVersion],
- fun enc_serviceChangeVersion/2},
- {[Val#'ServiceChangeParm'.serviceChangeProfile],
- fun enc_ServiceChangeProfile/2},
- {[{reason, Val#'ServiceChangeParm'.serviceChangeReason}],
- fun enc_serviceChangeReason/2},
- {[Val#'ServiceChangeParm'.serviceChangeDelay],
- fun enc_serviceChangeDelay/2},
- {[Val#'ServiceChangeParm'.serviceChangeMgcId],
- fun enc_serviceChangeMgcId/2},
- {[Val#'ServiceChangeParm'.timeStamp],
- fun enc_TimeNotation/2},
- {Val#'ServiceChangeParm'.serviceChangeInfo,
- fun enc_AuditDescriptor/2},
- {[Val#'ServiceChangeParm'.serviceChangeIncompleteFlag],
- fun('NULL', _) -> ?ServiceChangeIncompleteToken end}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_ServiceChangeMethod({'ServiceChangeMethod',Val}, State) ->
- enc_ServiceChangeMethod(Val, State);
-enc_ServiceChangeMethod(Val, _State) ->
- [
- ?MethodToken,
- ?EQUAL,
- case Val of
- failover -> ?FailoverToken;
- forced -> ?ForcedToken;
- graceful -> ?GracefulToken;
- restart -> ?RestartToken;
- disconnected -> ?DisconnectedToken;
- handOff -> ?HandOffToken
- end
- %% BUGBUG: extension
- ].
-
-enc_ServiceChangeAddress({'ServiceChangeAddress',Val}, State) ->
- enc_ServiceChangeAddress(Val, State);
-enc_ServiceChangeAddress({Tag, Val}, State) ->
- [
- ?ServiceChangeAddressToken,
- ?EQUAL,
- case Tag of
- portNumber ->
- enc_portNumber(Val, State);
- ip4Address ->
- enc_IP4Address(Val, State);
- ip6Address ->
- enc_IP6Address(Val, State);
- domainName ->
- enc_DomainName(Val, State);
- deviceName ->
- enc_PathName(Val, State);
- mtpAddress ->
- enc_mtpAddress(Val, State);
- _ ->
- error({invalid_ServiceChangeAddress_tag, Tag})
- end
- ].
-
-enc_serviceChangeVersion(Val, State) ->
- [
- ?VersionToken,
- ?EQUAL,
- enc_version(Val, State)
- ].
-
-enc_ServiceChangeProfile(#'ServiceChangeProfile'{profileName = Name,
- version = Version},
- State) ->
- [
- ?ProfileToken,
- ?EQUAL,
- enc_Name(Name, State),
- ?SLASH,
- enc_version(Version, State)
- ].
-
-enc_serviceChangeReason({reason, Val}, State) ->
- case Val of
- asn1_NOVALUE ->
- [];
- [List] when is_list(List) ->
- [
- ?ReasonToken,
- ?EQUAL,
- enc_QUOTED_STRING(List,State) % OTP-4632 enc_Value(List, State)
- ]
- end.
-
-enc_serviceChangeDelay(Val, State) ->
- [
- ?DelayToken,
- ?EQUAL,
- enc_UINT32(Val, State)
- ].
-
-enc_serviceChangeMgcId(Val, State) ->
- [
- ?MgcIdToken,
- ?EQUAL,
- enc_MId(Val, State)
- ].
-
-enc_portNumber(Val, State) when is_integer(Val) andalso (Val >= 0) ->
- enc_UINT16(Val, State).
-
-enc_ServiceChangeResParm(Val, State)
- when is_record(Val, 'ServiceChangeResParm') ->
- enc_list([{[Val#'ServiceChangeResParm'.serviceChangeAddress],
- fun enc_ServiceChangeAddress/2},
- {[Val#'ServiceChangeResParm'.serviceChangeVersion],
- fun enc_serviceChangeVersion/2},
- {[Val#'ServiceChangeResParm'.serviceChangeProfile],
- fun enc_ServiceChangeProfile/2},
- {[Val#'ServiceChangeResParm'.serviceChangeMgcId],
- fun enc_serviceChangeMgcId/2},
- {[Val#'ServiceChangeResParm'.timeStamp],
- fun enc_TimeNotation/2}],
- State).
-
-enc_PackagesDescriptor({'PackagesDescriptor',Val}, State) ->
- enc_PackagesDescriptor(Val, State);
-enc_PackagesDescriptor(Val, State) ->
- [
- ?PackagesToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val, fun enc_PackagesItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_PackagesItem(Val, State)
- when is_record(Val, 'PackagesItem') ->
- PkgdName = ?META_ENC(package, Val#'PackagesItem'.packageName),
- [
- enc_Name(PkgdName, State),
- "-",
- enc_UINT16(Val#'PackagesItem'.packageVersion, State)
- ].
-
-enc_StatisticsDescriptor({'StatisticsDescriptor',Val}, State) ->
- enc_StatisticsDescriptor(Val, State);
-enc_StatisticsDescriptor(List, State) when is_list(List) ->
- [
- ?StatsToken,
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_StatisticsParameter/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_StatisticsParameter(Val, State)
- when is_record(Val, 'StatisticsParameter') ->
- PkgdName = ?META_ENC(statistics, Val#'StatisticsParameter'.statName),
- case Val#'StatisticsParameter'.statValue of
- asn1_NOVALUE ->
- [
- enc_PkgdName(PkgdName, State)
- ];
- [StatVal] when is_list(StatVal) ->
- [
- enc_PkgdName(PkgdName, State),
- ?EQUAL,
- enc_Value(StatVal, State)
- ]
- end.
-
-enc_TimeNotation(Val, State)
- when is_record(Val, 'TimeNotation') ->
- [
- enc_STRING(Val#'TimeNotation'.date, State, 8, 8), % "yyyymmdd"
- "T",
- enc_STRING(Val#'TimeNotation'.time, State, 8, 8) % "hhmmssss"
- ].
-
-%% BUGBUG: Does not verify that string must contain at least one char
-%% BUGBUG: This violation of the is required in order to comply with
-%% BUGBUG: the dd/ce ds parameter that may possibly be empty.
-enc_Value({'Value',Val}, State) ->
- enc_Value(Val, State);
-enc_Value(String, _State) ->
- case quoted_string_count(String, 0, true, false) of
- {_, 0, _} ->
- [?DQUOTE, String, ?DQUOTE];
- {false, _, _} ->
- [?DQUOTE, String, ?DQUOTE];
- {true, _, _} ->
- [String]
- end.
-
-quoted_string_count([?DoubleQuoteToken | T], 0 = Count, _IsSafe, _MaybeQuoted) ->
- %% Already a quoted string. Make sure it ends
- quoted_string_count(T, Count + 1, true, true);
-quoted_string_count([?DoubleQuoteToken], Count, IsSafe, true = MaybeQuoted) ->
- %% An explicitly quoted string
- {IsSafe, Count, MaybeQuoted};
-quoted_string_count([H | T], Count, IsSafe, MaybeQuoted) ->
- case ?classify_char(H) of
- safe_char_upper -> quoted_string_count(T, Count + 1, IsSafe, MaybeQuoted);
- safe_char -> quoted_string_count(T, Count + 1, IsSafe, MaybeQuoted);
- rest_char -> quoted_string_count(T, Count + 1, false, MaybeQuoted);
- white_space -> quoted_string_count(T, Count + 1, false, MaybeQuoted);
- _ -> error({illegal_char, H})
- end;
-quoted_string_count([], _Count, _IsSafe, true = _MaybeQuoted) ->
- error({illegal_char, ?DoubleQuoteToken});
-quoted_string_count([], Count, IsSafe, MaybeQuoted) ->
- {IsSafe, Count, MaybeQuoted}.
-
-enc_DigitString(String, _State) when is_list(String) ->
- [?DQUOTE, String, ?DQUOTE].
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%% Encode an octet string, escape } by \ if necessary
-enc_OCTET_STRING(List, State, Min, Max) ->
- do_enc_OCTET_STRING(List, State, Min, Max, 0).
-
-do_enc_OCTET_STRING([H | T], State, Min, Max, Count) ->
- case H of
- $} ->
- [$\\, H | do_enc_OCTET_STRING(T, State, Min, Max, Count + 1)];
- _ ->
- [H | do_enc_OCTET_STRING(T, State, Min, Max, Count + 1)]
- end;
-do_enc_OCTET_STRING([], _State, Min, Max, Count) ->
- verify_count(Count, Min, Max),
- [].
-
-enc_QUOTED_STRING(String, _State) when is_list(String) ->
- case quoted_string_count(String, 0, true, false) of
- {_IsSafe, Count, false = _QuotedString} ->
- verify_count(Count, 1, infinity),
- [?DQUOTE, String, ?DQUOTE];
- {_IsSafe, Count, true = _QuotedString} ->
- verify_count(Count, 3, infinity), % quotes not included in the count
- [String]
- end.
-
-%% The internal format of hex digits is a list of octets
-%% Min and Max means #hexDigits
-%% Leading zeros are prepended in order to fulfill Min
-enc_HEXDIG(Octets, State, Min, Max) when is_list(Octets) ->
- do_enc_HEXDIG(Octets, State, Min, Max, 0, []).
-
-do_enc_HEXDIG([Octet | Rest], State, Min, Max, Count, Acc)
- when (Octet >= 0) andalso (Octet =< 255) ->
- Hex = hex(Octet), % OTP-4921
- if
- Octet =< 15 ->
- Acc2 = [[$0|Hex]|Acc], % OTP-4921
- do_enc_HEXDIG(Rest, State, Min, Max, Count + 2, ["0" | Acc2]);
- true ->
- Acc2 = [Hex|Acc], % OTP-4921
- do_enc_HEXDIG(Rest, State, Min, Max, Count + 2, Acc2)
- end;
-do_enc_HEXDIG([], State, Min, Max, Count, Acc)
- when is_integer(Min) andalso (Count < Min) ->
- do_enc_HEXDIG([0], State, Min, Max, Count, Acc);
-do_enc_HEXDIG([], _State, Min, Max, Count, Acc) -> %% OTP-4710
- verify_count(Count, Min, Max),
- lists:reverse(Acc).
-
-enc_DIGIT(Val, State, Min, Max) ->
- enc_integer(Val, State, Min, Max).
-
-enc_STRING(String, _State, Min, Max) when is_list(String) ->
- verify_count(length(String), Min, Max),
- String.
-
-enc_UINT16(Val, State) ->
- enc_integer(Val, State, 0, 65535).
-
-enc_UINT32(Val, State) ->
- enc_integer(Val, State, 0, 4294967295).
-
-enc_integer(Val, _State, Min, Max) ->
- verify_count(Val, Min, Max),
- integer_to_list(Val).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Encodes a list of elements with separator tokens between
-%% the elements. Optional asn1_NOVALUE values are ignored.
-
-enc_list(List, State) ->
- enc_list(List, State, fun(_S) -> ?COMMA_INDENT(_S) end, false).
-
--dialyzer({nowarn_function, enc_list/4}). % Future compat
-enc_list([], _State, _SepEncoder, _NeedsSep) ->
- [];
-enc_list([{Elems, ElemEncoder} | Tail], State, SepEncoder, NeedsSep) ->
- case do_enc_list(Elems, State, ElemEncoder, SepEncoder, NeedsSep) of
- [] ->
- enc_list(Tail, State, SepEncoder, NeedsSep);
- List ->
- [List,
- enc_list(Tail, State, SepEncoder, true)]
- end;
-enc_list(A, B, C, D) ->
- error({invalid_list, A, B, C, D}).
-
-do_enc_list(asn1_NOVALUE, _State, _ElemEncoder, _SepEncoder, _NeedsSep) ->
- [];
-do_enc_list([], _State, _ElemEncoder, _SepEncoder, _NeedsSep) ->
- [];
-do_enc_list([asn1_NOVALUE | T], State, ElemEncoder, SepEncoder, NeedsSep) ->
- do_enc_list(T, State, ElemEncoder, SepEncoder, NeedsSep);
-do_enc_list([H | T], State, ElemEncoder, SepEncoder, NeedsSep)
- when is_function(ElemEncoder) andalso is_function(SepEncoder) ->
- case ElemEncoder(H, State) of
- [] ->
- do_enc_list(T, State, ElemEncoder, SepEncoder, NeedsSep);
- List when NeedsSep =:= true ->
- [SepEncoder(State),
- List, do_enc_list(T, State, ElemEncoder, SepEncoder, true)];
- List when NeedsSep =:= false ->
- [List,
- do_enc_list(T, State, ElemEncoder, SepEncoder, true)]
- end.
-
-%% Add brackets if list is non-empty
-enc_opt_brackets([], _State) ->
- [];
-enc_opt_brackets(List, _State) when is_list(List) ->
- [?LBRKT_INDENT(_State), List, ?RBRKT_INDENT(_State)].
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%% Int -> list of hex chars
-hex(Int) ->
- hexi(get_lo_bits(Int, 4), []).
-
-hexi({0, Lo}, Ack) ->
- [hex4(Lo) | Ack];
-hexi({Hi, Lo} , Ack) ->
- hexi(get_lo_bits(Hi, 4), [hex4(Lo) | Ack]).
-
-hex4(Int) when Int < 10 ->
- Int + $0;
-hex4(Int) ->
- ($A - 10) + Int.
-
-get_lo_bits(Int, Size) ->
- Lo = Int band ones_mask(Size),
- Hi = Int bsr Size,
- {Hi, Lo}.
-
-ones_mask(Ones) ->
- (1 bsl Ones) - 1.
-
-%% Verify that Count is within the range of Min and Max
-verify_count(Count, Min, Max) ->
- if
- is_integer(Count) ->
- if
- is_integer(Min) andalso (Count >= Min) ->
- if
- is_integer(Max) andalso (Count =< Max) ->
- Count;
- Max =:= infinity ->
- Count;
- true ->
- error({count_too_large, Count, Max})
- end;
- true ->
- error({count_too_small, Count, Min})
- end;
- true ->
- error({count_not_an_integer, Count})
- end.
-
-
-
-
-%% -------------------------------------------------------------------
-
-%% d(F) ->
-%% d(F,[]).
-%% d(F, A) ->
-%% d(get(dbg), F, A).
-
-%% d(true, F, A) ->
-%% io:format("~p:" ++ F ++ "~n", [?MODULE | A]);
-%% d(_, _, _) ->
-%% ok.
-
-
diff --git a/lib/megaco/src/text/megaco_text_gen_prev3b.hrl b/lib/megaco/src/text/megaco_text_gen_prev3b.hrl
deleted file mode 100644
index de64f8bbdf..0000000000
--- a/lib/megaco/src/text/megaco_text_gen_prev3b.hrl
+++ /dev/null
@@ -1,2964 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2019. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode V2 Megaco/H.248 text messages from internal form
-%% The following was changed:
-%% - MuxType (Nx64kToken)
-%% - auditItem (terminationAudit)
-%% - serviceChangeParm (auditItem)
-%%
-%% The following was added:
-%% - All IndAud stuff
-%%----------------------------------------------------------------------
-
-%% -define(d(F,A), io:format("~w:" ++ F ++ "~n", [?MODULE|A])).
-
--define(META_ENC(Type, Item), Item) .
-%% -define(META_ENC(Type, Item), megaco_meta_package:encode(text, Type, Item)).
-%% -define(META_DEC(Type, Item), megaco_meta_package:decode(text, Type, Item)).
-
-enc_MegacoMessage(Val) ->
- State = ?INIT_INDENT,
- enc_MegacoMessage(Val, State).
-
-enc_MegacoMessage(#'MegacoMessage'{authHeader = asn1_NOVALUE,
- mess = Mess}, State) ->
- [
- ?LWSP,
- enc_Message(Mess, State)
- ];
-enc_MegacoMessage(#'MegacoMessage'{authHeader = Auth,
- mess = Mess}, State) ->
- [
- ?LWSP,
- enc_AuthenticationHeader(Auth, State),
- enc_Message(Mess, State)
- ].
-
-%% Note that encoding the transaction this way
-%% make the message look a bit strange.
-enc_Transaction(Val) ->
- State = ?INIT_INDENT,
- enc_Transaction(Val, State).
-
-%% Note that encoding the action request's this way
-%% make the message look a bit strange.
-enc_ActionRequests(Val) ->
- State = ?INIT_INDENT,
- enc_TransactionRequest_actions(Val, State).
-
-%% Note that encoding the action request this way
-%% make the message look a bit strange.
-enc_ActionRequest(Val) ->
- State = ?INIT_INDENT,
- enc_ActionRequest(Val, State).
-
-enc_CommandRequest(Val) ->
- State = ?INIT_INDENT,
- enc_CommandRequest(Val, State).
-
-enc_ActionReply(Val) ->
- State = ?INIT_INDENT,
- enc_ActionReply(Val, State).
-
-enc_AuthenticationHeader(asn1_NOVALUE, _State) ->
- [];
-enc_AuthenticationHeader(Val, State)
- when is_record(Val, 'AuthenticationHeader') ->
- [
- ?AuthToken,
- ?EQUAL,
- enc_SecurityParmIndex(Val#'AuthenticationHeader'.secParmIndex, State),
- ?COLON,
- enc_SequenceNum(Val#'AuthenticationHeader'.seqNum, State),
- ?COLON,
- enc_AuthData(Val#'AuthenticationHeader'.ad, State),
- ?SEP_INDENT(State)
- ].
-
-enc_SecurityParmIndex({'SecurityParmIndex',Val}, State) ->
- enc_SecurityParmIndex(Val, State);
-enc_SecurityParmIndex(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 8, 8)
- ].
-
-enc_SequenceNum({'SequenceNum',Val}, State) ->
- enc_SequenceNum(Val, State);
-enc_SequenceNum(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 8, 8)
- ].
-
-enc_AuthData({'AuthData',Val}, State) ->
- enc_AuthData(Val, State);
-enc_AuthData(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 24, 64) %% OTP-4710
- ].
-
-enc_Message(Val, State)
- when is_record(Val, 'Message') ->
- [
- ?MegacopToken,
- ?SLASH,
- enc_version(Val#'Message'.version, State),
- ?SEP,
- enc_MId(Val#'Message'.mId, State),
- ?SEP_INDENT(State),
- enc_Message_messageBody(Val#'Message'.messageBody, State)
- ].
-
-enc_version(Val, State) when is_integer(Val) andalso (Val >= 0) ->
- enc_DIGIT(Val, State, 0, 99).
-
-enc_Message_messageBody({'Message_messageBody',Val}, State) ->
- enc_Message_messageBody(Val, State);
-enc_Message_messageBody({Tag, Val}, State) ->
- case Tag of
- messageError ->
- enc_ErrorDescriptor(Val, State);
- transactions ->
- enc_Message_messageBody_transactions(Val, State);
- _ ->
- error({invalid_messageBody_tag, Tag})
- end.
-
-enc_Message_messageBody_transactions({'Message_messageBody_transactions',Val},
- State) ->
- enc_Message_messageBody_transactions(Val, State);
-enc_Message_messageBody_transactions(Val, State)
- when is_list(Val) andalso (Val =/= []) ->
- [enc_Transaction(T, State) || T <- Val].
-
-enc_MId({'MId',Val}, State) ->
- enc_MId(Val, State);
-enc_MId({Tag, Val}, State) ->
- case Tag of
- ip4Address ->
- enc_IP4Address(Val, State);
- ip6Address ->
- enc_IP6Address(Val, State);
- domainName ->
- enc_DomainName(Val, State);
- deviceName ->
- enc_PathName(Val, State);
- mtpAddress ->
- enc_mtpAddress(Val, State);
- _ ->
- error({invalid_MId_tag, Tag})
- end.
-
-enc_mtpAddress(Val, State) ->
- [
- ?MtpToken,
- ?LBRKT,
- enc_OCTET_STRING(Val, State, 2, 4),
- ?RBRKT
- ].
-
-enc_DomainName(#'DomainName'{portNumber = asn1_NOVALUE,
- name = Name}, State) ->
- [
- $<,
- %% BUGBUG: (ALPHA / DIGIT) *63(ALPHA / DIGIT / "-" / ".")
- enc_STRING(Name, State, 1, 64),
- $>
- ];
-enc_DomainName(#'DomainName'{portNumber = PortNumber,
- name = Name}, State) ->
- [
- $<,
- %% BUGBUG: (ALPHA / DIGIT) *63(ALPHA / DIGIT / "-" / ".")
- enc_STRING(Name, State, 1, 64),
- $>,
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_IP4Address(#'IP4Address'{portNumber = asn1_NOVALUE,
- address = [A1, A2, A3, A4]}, State) ->
- [
- $[,
- enc_V4hex(A1, State),
- ?DOT,
- enc_V4hex(A2, State),
- ?DOT,
- enc_V4hex(A3, State),
- ?DOT,
- enc_V4hex(A4, State),
- $]
- ];
-enc_IP4Address(#'IP4Address'{portNumber = PortNumber,
- address = [A1, A2, A3, A4]}, State) ->
- [
- $[,
- enc_V4hex(A1, State),
- ?DOT,
- enc_V4hex(A2, State),
- ?DOT,
- enc_V4hex(A3, State),
- ?DOT,
- enc_V4hex(A4, State),
- $],
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_V4hex(Val, State) ->
- enc_DIGIT(Val, State, 0, 255).
-
-enc_IP6Address(#'IP6Address'{portNumber = asn1_NOVALUE,
- address = Addr}, State)
- when is_list(Addr) andalso (length(Addr) =:= 16) ->
- [
- $[,
- enc_IP6Address_address(Addr, State),
- $]
- ];
-enc_IP6Address(#'IP6Address'{portNumber = PortNumber,
- address = Addr}, State)
- when is_list(Addr) andalso (length(Addr) =:= 16) ->
- [
- $[,
- enc_IP6Address_address(Addr, State),
- $],
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_IP6Address_address([0, 0|Addr], State) ->
- enc_IP6Address_address2(Addr, 1, false, true, State);
-enc_IP6Address_address(Addr, State) ->
- enc_IP6Address_address2(Addr, 0, false, false, State).
-
-enc_IP6Address_address2([0,0], 0, _Padding, _First, _State) ->
- [$0];
-enc_IP6Address_address2([0,0], PadN, false, true, _State) when PadN > 0 ->
- [$:, $:]; % Padding from the beginning (all zero's)
-enc_IP6Address_address2([0,0], PadN, false, false, _State) when PadN > 0 ->
- [$:]; % Padding in the middle or end
-enc_IP6Address_address2([0,0], _, true, _First, _State) ->
- [$0];
-enc_IP6Address_address2([N1,N2], 0, _Padding, _First, State) ->
- [enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], 1, _Padding, _First, State) ->
- [$0, $:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], PadN, false, true, State) when PadN > 1 ->
- [$:, $:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], PadN, false, false, State) when PadN > 1 ->
- [$:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], _PadN, true, _First, State) ->
- [enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([0, 0|Ns], PadN, false, First, State) ->
- enc_IP6Address_address2(Ns, PadN+1, false, First, State);
-enc_IP6Address_address2([0, 0|Ns], _PadN, true, _First, State) ->
- [
- $0,
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], 0, Padded, _First, State) ->
- [
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, Padded, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], 1, Padded, _First, State) ->
- [
- $0,
- $:,
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, Padded, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], PadN, false, true, State) when PadN > 1 ->
- %% Padding from the beginning
- [
- $:,
- $:,
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], PadN, false, false, State)
- when PadN > 1 ->
- [
- $:, %% The other ':' has already added
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], _PadN, true, _First, State) ->
- [
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ].
-
-
-enc_hex4([0,0], _State) ->
- $0;
-enc_hex4([0,N], _State) ->
- hex(N);
-enc_hex4([N1, N2], _State) when N2 =< 15 ->
- [hex(N1), $0, hex(N2)];
-enc_hex4([N1, N2], _State) ->
- [hex(N1), hex(N2)].
-
-enc_PathName({'PathName',Val}, State) ->
- enc_PathName(Val, State);
-enc_PathName(Val, State) ->
- %% BUGBUG: ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
- %% BUGBUG: ["@" pathDomainName ]
- enc_STRING(Val, State, 1, 64).
-
-enc_Transaction(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_Transaction({'Transaction',Val}, State) ->
- enc_Transaction(Val, State);
-enc_Transaction({Tag, Val}, State) ->
- case Tag of
- transactionRequest ->
- enc_TransactionRequest(Val, State);
- transactionPending ->
- enc_TransactionPending(Val, State);
- transactionReply ->
- enc_TransactionReply(Val, State);
- transactionResponseAck ->
- enc_TransactionResponseAck(Val, State);
- _ ->
- error({invalid_Transaction_tag, Tag})
- end.
-
-enc_TransactionResponseAck([Mand], State) ->
- [
- ?ResponseAckToken,
- ?LBRKT_INDENT(State),
- [enc_TransactionAck(Mand, State)],
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionResponseAck([Mand | Opt], State) ->
- [
- ?ResponseAckToken,
- ?LBRKT_INDENT(State),
- [enc_TransactionAck(Mand, State) |
- [[?COMMA_INDENT(State), enc_TransactionAck(Val, State)] || Val <- Opt]],
- ?RBRKT_INDENT(State)
- ].
-
-enc_TransactionAck(Val, State)
- when is_record(Val, 'TransactionAck') ->
- [
- enc_TransactionId(Val#'TransactionAck'.firstAck, ?INC_INDENT(State)),
- case Val#'TransactionAck'.lastAck of
- asn1_NOVALUE ->
- [];
- LastAck ->
- ["-",enc_TransactionId(LastAck, State)]
- end
- ].
-
-enc_TransactionId({'TransactionId',Val}, State) ->
- enc_TransactionId(Val, State);
-enc_TransactionId(Val, State) ->
- enc_UINT32(Val, State).
-
-enc_TransactionRequest(#'TransactionRequest'{transactionId = Tid,
- actions = Acts}, State) ->
- [
- ?TransToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- enc_TransactionRequest_actions(Acts, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionRequest(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_TransactionRequest_actions(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_TransactionRequest_actions({'TransactionRequest_actions',Val}, State) ->
- enc_TransactionRequest_actions(Val, State);
-enc_TransactionRequest_actions([Mand], State) ->
- [enc_ActionRequest(Mand, State)];
-enc_TransactionRequest_actions([Mand | Opt], State) ->
- [enc_ActionRequest(Mand, State) |
- [[?COMMA_INDENT(State), enc_ActionRequest(Val, State)] || Val <- Opt]].
-
-enc_TransactionPending(#'TransactionPending'{transactionId = Tid}, State) ->
- [?PendingToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionPending(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_TransactionReply(#'TransactionReply'{transactionId = Tid,
- immAckRequired = Req,
- transactionResult = Res,
- %% These fields are actually not
- %% supported in this implementation,
- %% but because the messenger module
- %% cannot see any diff between the
- %% various v3 implementations...
- segmentNumber = asn1_NOVALUE,
- segmentationComplete = asn1_NOVALUE},
- State) ->
- [
- ?ReplyToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- enc_immAckRequired(Req, State),
- enc_TransactionReply_transactionResult(Res, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionReply(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_immAckRequired(Val, _State) ->
- case Val of
- asn1_NOVALUE ->
- [];
- 'NULL' ->
- [?ImmAckRequiredToken, ?COMMA_INDENT(?INC_INDENT(_State))]
- end.
-
-enc_TransactionReply_transactionResult({'TransactionReply_transactionResult',
- Val}, State) ->
- enc_TransactionReply_transactionResult(Val, State);
-enc_TransactionReply_transactionResult({Tag, Val}, State) ->
- case Tag of
- transactionError ->
- enc_ErrorDescriptor(Val, State);
- actionReplies ->
- enc_TransactionReply_transactionResult_actionReplies(Val, State);
- _ ->
- error({invalid_TransactionReply_transactionResult_tag, Tag})
- end.
-
-enc_TransactionReply_transactionResult_actionReplies({'TransactionReply_transactionResult_actionReplies',Val}, State) ->
- enc_TransactionReply_transactionResult_actionReplies(Val, State);
-enc_TransactionReply_transactionResult_actionReplies([Mand], State) ->
- [enc_ActionReply(Mand, State)];
-enc_TransactionReply_transactionResult_actionReplies([Mand | Opt], State) ->
- [enc_ActionReply(Mand, State),
- [[?COMMA_INDENT(State), enc_ActionReply(Val, State)] || Val <- Opt]].
-
-enc_ErrorDescriptor(#'ErrorDescriptor'{errorText = asn1_NOVALUE,
- errorCode = Code}, State) ->
- [
- ?ErrorToken,
- ?EQUAL,
- enc_ErrorCode(Code, State),
- ?LBRKT,
- ?RBRKT
- ];
-enc_ErrorDescriptor(#'ErrorDescriptor'{errorText = Text,
- errorCode = Code}, State) ->
- [
- ?ErrorToken,
- ?EQUAL,
- enc_ErrorCode(Code, State),
- ?LBRKT,
- enc_ErrorText(Text, State),
- ?RBRKT
- ].
-
-enc_ErrorCode({'ErrorCode',Val}, State)->
- enc_ErrorCode(Val, State);
-enc_ErrorCode(Val, State) ->
- enc_DIGIT(Val, State, 0, 999).
-
-enc_ErrorText({'ErrorText',Val}, State) ->
- enc_ErrorText(Val, State);
-enc_ErrorText(Val, State) ->
- enc_QUOTED_STRING(Val, State).
-
-enc_ContextID({'ContextID',Val}, State) ->
- enc_ContextID(Val, State);
-enc_ContextID(Val, State) ->
- case Val of
- ?megaco_all_context_id -> $*;
- ?megaco_null_context_id -> $-;
- ?megaco_choose_context_id -> $$;
- Int when is_integer(Int) -> enc_UINT32(Int, State)
- end.
-
-enc_ActionRequest(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = asn1_NOVALUE,
- contextAttrAuditReq = asn1_NOVALUE,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = CtxReq,
- contextAttrAuditReq = asn1_NOVALUE,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{[CtxReq], fun enc_ContextRequest/2},
- {CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = CtxReq,
- contextAttrAuditReq = CtxAAR,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{[CtxReq], fun enc_ContextRequest/2},
- {[CtxAAR], fun enc_ContextAttrAuditRequest/2},
- {CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% OTP-5085
-enc_ActionReply(#'ActionReply'{contextId = Id,
- errorDescriptor = ED,
- contextReply = CtxRep,
- commandReply = CmdRep},
- State) ->
-%% d("enc_ActionReply -> entry with"
-%% "~n Id: ~p"
-%% "~n ED: ~p"
-%% "~n CtxRep: ~p"
-%% "~n CmdRep: ~p", [Id, ED, CtxRep, CmdRep]),
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(Id, State),
- ?LBRKT_INDENT(State),
- do_enc_ActionReply(ED, CtxRep, CmdRep, State),
- ?RBRKT_INDENT(State)
- ].
-
-do_enc_ActionReply(asn1_NOVALUE, CtxRep, [], State)
- when (CtxRep =/= asn1_NOVALUE) ->
-%% d("do_enc_ActionReply -> entry with"
-%% "~n CtxRep: ~p", [CtxRep]),
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State))
- ];
-do_enc_ActionReply(asn1_NOVALUE, CtxRep, CmdRep, State)
- when (CtxRep =/= asn1_NOVALUE) andalso (CmdRep =/= []) ->
-%% d("do_enc_ActionReply -> entry with"
-%% "~n CtxRep: ~p"
-%% "~n CmdRep: ~p", [CtxRep, CmdRep]),
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{CmdRep, fun enc_CommandReply/2}],
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(asn1_NOVALUE, asn1_NOVALUE, CmdRep, State)
- when (CmdRep =/= []) ->
-%% d("do_enc_ActionReply -> entry with"
-%% "~n CmdRep: ~p", [CmdRep]),
- [
- enc_list([{CmdRep, fun enc_CommandReply/2}],
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, CtxRep, [], State)
- when (ED =/= asn1_NOVALUE) andalso (CtxRep =/= asn1_NOVALUE) ->
-%% d("do_enc_ActionReply -> entry with"
-%% "~n ED: ~p"
-%% "~n CtxRep: ~p", [ED, CtxRep]),
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, asn1_NOVALUE, CmdRep, State)
- when (ED =/= asn1_NOVALUE) andalso (CmdRep =/= []) ->
-%% d("do_enc_ActionReply -> entry with"
-%% "~n ED: ~p"
-%% "~n CmdRep: ~p", [ED, CmdRep]),
- [
- enc_list([{CmdRep, fun enc_CommandReply/2},
- {[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, CtxRep, CmdRep, State)
- when (ED =/= asn1_NOVALUE) andalso
- (CtxRep =/= asn1_NOVALUE) andalso
- (CmdRep =/= []) ->
-%% d("do_enc_ActionReply -> entry with"
-%% "~n ED: ~p"
-%% "~n CtxRep: ~p"
-%% "~n CmdRep: ~p", [ED, CtxRep, CmdRep]),
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{CmdRep, fun enc_CommandReply/2},
- {[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, asn1_NOVALUE, [], State)
- when ED =/= asn1_NOVALUE ->
-%% d("do_enc_ActionReply -> entry with"
-%% "~n ED: ~p", [ED]),
- [
- enc_ErrorDescriptor(ED, ?INC_INDENT(State))
- ].
-
-
-enc_ContextRequest_priority(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_priority(Val, _State) ->
- {[Val], fun(X,S) -> [?PriorityToken,?EQUAL,enc_UINT16(X, S)] end}.
-
-enc_ContextRequest_emergency(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_emergency(true, _State) ->
- {[?EmergencyToken], fun(Elem, _) -> Elem end};
-enc_ContextRequest_emergency(false, _State) ->
- {[?EmergencyOffToken], fun(Elem, _) -> Elem end}.
-
-enc_ContextRequest_topologyReq(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_topologyReq({'ContextRequest_topologyReq',
- asn1_NOVALUE}, _State) ->
- {[], dummy};
-enc_ContextRequest_topologyReq({'ContextRequest_topologyReq',
- List}, _State) ->
- {List, fun enc_TopologyRequest/2};
-enc_ContextRequest_topologyReq(List, _State) ->
- {[List], fun enc_TopologyRequest/2}.
-
-enc_ContextRequest_iepscallind(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_iepscallind(Bool, _State) ->
- {[Bool], fun enc_iepsValue/2}.
-
-enc_ContextRequest_contextProp(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_contextProp([], _State) ->
- {[], dummy};
-enc_ContextRequest_contextProp(Props, _State) ->
- {[Props], fun(Elem, S) -> enc_contextAttrDescriptor(Elem, contextProps, S) end}.
-
-enc_contextAttrDescriptor([Mand|Opt], contextProps, State) ->
- [
- ?ContextAttrToken,
- ?LBRKT_INDENT(State),
- [enc_PropertyParm(Mand, State) |
- [[?COMMA_INDENT(State), enc_PropertyParm(Val, State)] || Val <- Opt]],
- ?RBRKT_INDENT(State)
- ].
-
-enc_ContextRequest(asn1_NOVALUE, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextProp = asn1_NOVALUE}, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = [],
- iepscallind = asn1_NOVALUE,
- contextProp = []}, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = Prio,
- emergency = Em,
- topologyReq = TR,
- iepscallind = Ieps,
- contextProp = CP}, State) ->
- [
- enc_list([enc_ContextRequest_priority(Prio, State),
- enc_ContextRequest_emergency(Em, State),
- enc_ContextRequest_topologyReq(TR, State),
- enc_ContextRequest_iepscallind(Ieps, State),
- enc_ContextRequest_contextProp(CP, State)],
- State)
- ].
-
-enc_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{topology = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- priority = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextPropAud = asn1_NOVALUE}, _State) ->
- [];
-enc_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{topology = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- priority = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextPropAud = []}, _State) ->
- [];
-enc_ContextAttrAuditRequest(CAAR, State) ->
- [
- ?ContextAuditToken,
- ?LBRKT_INDENT(State),
- enc_IndAudContextAttrDescriptor(CAAR, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudContextAttrDescriptor(
- #'ContextAttrAuditRequest'{topology = Top,
- emergency = Em,
- priority = Prio,
- iepscallind = Ieps,
- contextPropAud = CPA}, State) ->
- [
- ?ContextAttrToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Top], fun('NULL', _) -> ?TopologyToken end},
- {[Em], fun('NULL', _) -> ?EmergencyToken end},
- {[Prio], fun('NULL', _) -> ?PriorityToken end},
- {[Ieps], fun('NULL', _) -> ?IEPSToken end},
- {CPA, fun enc_IndAudPropertyParm/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_CommandRequest(#'CommandRequest'{optional = asn1_NOVALUE,
- wildcardReturn = asn1_NOVALUE,
- command = Cmd}, State) ->
- [
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = 'NULL',
- wildcardReturn = asn1_NOVALUE,
- command = Cmd}, State) ->
- [
- "O-",
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = asn1_NOVALUE,
- wildcardReturn = 'NULL',
- command = Cmd}, State) ->
- [
- "W-",
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = 'NULL',
- wildcardReturn = 'NULL',
- command = Cmd}, State) ->
- [
- "O-",
- "W-",
- enc_Command(Cmd, State)
- ].
-
-enc_Command({'Command',Val}, State) ->
- enc_Command(Val, State);
-enc_Command({Tag, Val}, State) ->
-% d("enc_Command -> entry with"
-% "~n Tag: ~p"
-% "~n Val: ~p", [Tag, Val]),
- case Tag of
- addReq ->
- [?AddToken, enc_AmmRequest(Val, State)];
- moveReq ->
- [?MoveToken, enc_AmmRequest(Val, State)];
- modReq ->
- [?ModifyToken, enc_AmmRequest(Val, State)];
- subtractReq ->
- [?SubtractToken, enc_SubtractRequest(Val, State)];
- auditCapRequest ->
- [?AuditCapToken, enc_AuditRequest(Val, State)];
- auditValueRequest ->
- [?AuditValueToken, enc_AuditRequest(Val, State)];
- notifyReq ->
- [?NotifyToken, enc_NotifyRequest(Val, State)];
- serviceChangeReq ->
- [?ServiceChangeToken, enc_ServiceChangeRequest(Val, State)];
- _ ->
- error({invalid_Command_tag, Tag})
- end.
-
-enc_CommandReply({'CommandReply',Val}, State) ->
- enc_CommandReply(Val, State);
-enc_CommandReply({Tag, Val}, State) ->
-%% d("enc_CommandReply -> entry with"
-%% "~n Tag: ~p"
-%% "~n Val: ~p", [Tag, Val]),
- case Tag of
- addReply ->
- [?AddToken, enc_AmmsReply(Val, State)];
- moveReply ->
- [?MoveToken, enc_AmmsReply(Val, State)];
- modReply ->
- [?ModifyToken, enc_AmmsReply(Val, State)];
- subtractReply ->
- [?SubtractToken, enc_AmmsReply(Val, State)];
- auditCapReply ->
- [?AuditCapToken, enc_AuditReply(Val, State)];
- auditValueReply ->
- [?AuditValueToken, enc_AuditReply(Val, State)];
- notifyReply ->
- [?NotifyToken, enc_NotifyReply(Val, State)];
- serviceChangeReply ->
- [?ServiceChangeToken, enc_ServiceChangeReply(Val, State)];
- _ ->
- error({invalid_CommandReply_tag, Tag})
- end.
-
-enc_TopologyRequest(Val, State)
- when is_list(Val) ->
- [
- ?TopologyToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val, fun enc_TopologyRequest1/2}],?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_TopologyRequest1(#'TopologyRequest'{terminationFrom = From,
- terminationTo = To,
- topologyDirection = Dir}, State) ->
- [
- enc_TerminationID(From, State),
- ?COMMA_INDENT(State),
- enc_TerminationID(To, State),
- ?COMMA_INDENT(State),
- enc_TopologyDirection(Dir, State)
- ].
-
-enc_TopologyDirection(bothway, _State) ->
- ?BothwayToken;
-enc_TopologyDirection(isolate, _State) ->
- ?IsolateToken;
-enc_TopologyDirection(oneway, _State) ->
- ?OnewayToken;
-enc_TopologyDirection(Top, _State) ->
- error({illegal_TopologyDirection, Top}).
-
-enc_iepsValue(Val, _State) ->
- [
- ?IEPSToken,
- ?EQUAL,
- case Val of
- false -> ?OffToken;
- true -> ?OnToken
- end
- ].
-
-
-
-enc_AmmRequest(Val, State)
- when is_record(Val, 'AmmRequest') ->
-% d("enc_AmmRequest -> entry with"
-% "~n Val: ~p", [Val]),
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'AmmRequest'.terminationID, State),
- enc_opt_brackets(
- enc_list([{Val#'AmmRequest'.descriptors, fun enc_ammDescriptor/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_ammDescriptor({Tag, Desc}, State) ->
-% d("enc_ammDescriptor -> entry with"
-% "~n Tag: ~p"
-% "~n Desc: ~p", [Tag, Desc]),
- case Tag of
- mediaDescriptor -> enc_MediaDescriptor(Desc, State);
- modemDescriptor -> enc_ModemDescriptor(Desc, State);
- muxDescriptor -> enc_MuxDescriptor(Desc, State);
- eventsDescriptor -> enc_EventsDescriptor(Desc, State);
- eventBufferDescriptor -> enc_EventBufferDescriptor(Desc, State);
- signalsDescriptor -> enc_SignalsDescriptor(Desc, State);
- digitMapDescriptor -> enc_DigitMapDescriptor(Desc, State);
- auditDescriptor -> enc_AuditDescriptor(Desc, State);
- statisticsDescriptor -> enc_StatisticsDescriptor(Desc, State);
- _ ->
- error({invalid_ammDescriptor_tag, Tag})
- end.
-
-enc_AmmsReply(#'AmmsReply'{terminationID = ID,
- terminationAudit = asn1_NOVALUE}, State) ->
-% d("enc_AmmsReply(asn1_NOVALUE) -> entry with"
-% "~n ID: ~p", [ID]),
- [
- ?EQUAL,
- enc_TerminationIDList1(ID, State)
- ];
-enc_AmmsReply(#'AmmsReply'{terminationID = ID,
- terminationAudit = []}, State) ->
-% d("enc_AmmsReply([]) -> entry with"
-% "~n ID: ~p", [ID]),
- [
- ?EQUAL,
- enc_TerminationIDList1(ID, State)
- ];
-enc_AmmsReply(#'AmmsReply'{terminationID = ID,
- terminationAudit = Res}, State) ->
-% d("enc_AmmsReply -> entry with"
-% "~n ID: ~p"
-% "~n Res: ~p", [ID, Res]),
- [
- ?EQUAL,
- enc_TerminationIDList1(ID, State),
- case lists:flatten(enc_TerminationAudit(Res, ?INC_INDENT(State))) of
- [] ->
- [];
- L ->
- [
- ?LBRKT_INDENT(State),
- L,
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-enc_SubtractRequest(Val, State)
- when is_record(Val, 'SubtractRequest') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'SubtractRequest'.terminationID, State),
- case Val#'SubtractRequest'.auditDescriptor of
- asn1_NOVALUE ->
- [];
- AuditDescr ->
- [
- ?LBRKT_INDENT(State) ,
- enc_AuditDescriptor(AuditDescr, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-enc_AuditRequest(Val, State)
- when is_record(Val, 'AuditRequest') ->
- %% d("enc_AuditRequest -> entry with"
- %% "~n Val: ~p", [Val]),
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1([Val#'AuditRequest'.terminationID], State),
- case Val#'AuditRequest'.auditDescriptor of
- asn1_NOVALUE ->
- [];
- AuditDescr ->
- [
- ?LBRKT_INDENT(State) ,
- enc_AuditDescriptor(AuditDescr, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-%% auditReply = (AuditValueToken / AuditCapToken )
-%% ( contextTerminationAudit / auditOther)
-%% auditOther = EQUAL TerminationID LBRKT
-%% terminationAudit RBRKT
-%% terminationAudit = auditReturnParameter *(COMMA auditReturnParameter)
-%%
-%% contextTerminationAudit = EQUAL CtxToken ( terminationIDList /
-%% LBRKT errorDescriptor RBRKT )
-enc_AuditReply({Tag, Val}, State) ->
-%% d("enc_AuditReply -> entry with"
-%% "~n Tag: ~p"
-%% "~n Val: ~p", [Tag, Val]),
- case Tag of
- contextAuditResult ->
- %% d("enc_AuditReply -> contextAuditResult"),
- [
- ?EQUAL,
- ?CtxToken,
- enc_TerminationIDListN(Val, State)
- ];
- error ->
- %% d("enc_AuditReply -> error"),
- [
- ?EQUAL,
- ?CtxToken,
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
- auditResult when is_record(Val, 'AuditResult') ->
- %% d("enc_AuditReply -> auditResult"),
- enc_auditOther(Val, State);
- auditResult ->
- error({invalid_auditResult, Val});
- _ ->
- error({invalid_AuditReply_tag, Tag})
- end.
-
-enc_auditOther(#'AuditResult'{terminationID = ID,
- terminationAuditResult = asn1_NOVALUE}, State) ->
- [
- ?EQUAL,
- enc_TerminationID(ID, State)
- ];
-enc_auditOther(#'AuditResult'{terminationID = ID,
- terminationAuditResult = []}, State) ->
- [
- ?EQUAL,
- enc_TerminationID(ID, State)
- ];
-enc_auditOther(#'AuditResult'{terminationID = ID,
- terminationAuditResult = Res}, State) ->
- [
- ?EQUAL,
- enc_TerminationID(ID, State),
- case lists:flatten(enc_TerminationAudit(Res, ?INC_INDENT(State))) of
- [] ->
- [];
- L ->
- [
- ?LBRKT_INDENT(State),
- L,
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = asn1_NOVALUE,
- auditPropertyToken = asn1_NOVALUE},
- _State) ->
-% d("enc_AuditDescriptor(asn1_NOVALUE) -> entry"),
- [
- ?AuditToken,
- [?LBRKT, ?RBRKT]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = [],
- auditPropertyToken = asn1_NOVALUE},
- _State) ->
-% d("enc_AuditDescriptor([]) -> entry"),
- [
- ?AuditToken,
- [?LBRKT, ?RBRKT]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = List,
- auditPropertyToken = asn1_NOVALUE},
- State) ->
-% d("enc_AuditDescriptor -> entry with",
-% "~n List: ~p", [List]),
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_auditItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- ];
-%% - v2 -
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = asn1_NOVALUE,
- auditPropertyToken = Prop},
- State) ->
-% d("enc_AuditDescriptor -> entry with",
-% "~n Prop: ~p", [Prop]),
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_auditPropertyToken(Prop, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = List,
- auditPropertyToken = Prop},
- State) ->
-% d("enc_AuditDescriptor -> entry with",
-% "~n List: ~p"
-% "~n Prop: ~p", [List, Prop]),
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_auditItem/2}], ?INC_INDENT(State)),
- ?COMMA_INDENT(State),
- enc_auditPropertyToken(Prop, ?INC_INDENT(State)), % v2
- ?RBRKT_INDENT(State)
- ]
- ].
-
-enc_auditItem(signalsToken, _State) ->
- ?SignalsToken;
-enc_auditItem(eventBufferToken, _State) ->
- ?EventBufferToken;
-enc_auditItem(eventsToken, _State) ->
- ?EventsToken;
-enc_auditItem(Val, State) ->
- enc_auditReturnItem(Val, State).
-
-
-enc_auditReturnItem(muxToken, _State) ->
- ?MuxToken;
-enc_auditReturnItem(modemToken, _State) ->
- ?ModemToken;
-enc_auditReturnItem(mediaToken, _State) ->
- ?MediaToken;
-enc_auditReturnItem(digitMapToken, _State) ->
- ?DigitMapToken;
-enc_auditReturnItem(statsToken, _State) ->
- ?StatsToken;
-enc_auditReturnItem(observedEventsToken, _State) ->
- ?ObservedEventsToken;
-enc_auditReturnItem(packagesToken, _State) ->
- ?PackagesToken.
-
-
-%% - v2 begin -
-
-enc_auditPropertyToken([], _State) ->
- [];
-enc_auditPropertyToken([Param | Params], State) ->
-% d("enc_auditPropertyToken -> entry with",
-% "~n Param: ~p", [Param]),
- [enc_IndAudauditReturnParameter(Param, State),
- [[?COMMA_INDENT(State),
- enc_IndAudauditReturnParameter(P, State)] || P <- Params]].
-
-
-enc_IndAudauditReturnParameter({Tag, Val}, State) ->
- case Tag of
- indAudMediaDescriptor ->
- enc_IndAudMediaDescriptor(Val, State);
- indAudEventsDescriptor ->
- enc_IndAudEventsDescriptor(Val, State);
- indAudSignalsDescriptor ->
- enc_IndAudSignalsDescriptor(Val, State);
- indAudDigitMapDescriptor ->
- enc_IndAudDigitMapDescriptor(Val, State);
- indAudEventBufferDescriptor ->
- enc_IndAudEventBufferDescriptor(Val, State);
- indAudStatisticsDescriptor ->
- enc_IndAudStatisticsDescriptor(Val, State);
- indAudPackagesDescriptor ->
- enc_IndAudPackagesDescriptor(Val, State);
- _ ->
- error({invalid_IndAudauditReturnParameter_tag, Tag})
- end.
-
-%% The ASN.1 does not limit to just one of termStateDescr or streams,
-%% but the ABNF seams to do that...
-enc_IndAudMediaDescriptor(
- #'IndAudMediaDescriptor'{termStateDescr = asn1_NOVALUE,
- streams = Streams}, State) ->
-% d("enc_IndAudMediaDescriptor -> entry with",
-% "~n Streams: ~p", [Streams]),
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_IndAudMediaDescriptor_streams(Streams, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudMediaDescriptor(#'IndAudMediaDescriptor'{termStateDescr = TSD,
- streams = asn1_NOVALUE},
- State) ->
-% d("enc_IndAudMediaDescriptor -> entry with",
-% "~n TSD: ~p", [TSD]),
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_IndAudTerminationStateDescriptor(TSD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudMediaDescriptor_streams({Tag, Val}, State) ->
-% d("enc_IndAudMediaDescriptor_streams -> entry with",
-% "~n Tag: ~p"
-% "~n Val: ~p", [Tag, Val]),
- case Tag of
- oneStream ->
- enc_IndAudStreamParms(Val, State);
- multiStream ->
- enc_IndAudMediaDescriptor_multiStream(Val, State);
- _ ->
- error({invalid_IndAudMediaDescriptor_streams_tag, Tag})
- end.
-
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [],
- eventBufferControl = asn1_NOVALUE,
- serviceState = 'NULL'}, _State) ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(_State),
- ?ServiceStatesToken,
- ?RBRKT_INDENT(_State)
- ];
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [],
- eventBufferControl = 'NULL',
- serviceState = asn1_NOVALUE}, _State) ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(_State),
- ?BufferToken,
- ?RBRKT_INDENT(_State)
- ];
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [Parms],
- eventBufferControl = asn1_NOVALUE,
- serviceState = asn1_NOVALUE}, State) ->
- #'IndAudPropertyParm'{name = Name} = Parms,
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-%% In text, localDescriptor and remoteDescriptor are not allowed!!
-enc_IndAudStreamParms(
- #'IndAudStreamParms'{localControlDescriptor = LCD,
- localDescriptor = asn1_NOVALUE,
- remoteDescriptor = asn1_NOVALUE,
- statisticsDescriptor = SD}, State) ->
-% d("enc_IndAudStreamParms -> entry with"
-% "~n LCD: ~p"
-% "~n SD: ~p", [LCD, SD]),
- [
- enc_list([{[LCD], fun enc_IndAudLocalControlDescriptor/2},
- {[SD], fun enc_IndAudStatisticsDescriptor/2}],
- ?INC_INDENT(State))
- ].
-
-enc_IndAudLocalControlDescriptor(Val, State)
- when is_record(Val, 'IndAudLocalControlDescriptor') ->
- [
- ?LocalControlToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Val#'IndAudLocalControlDescriptor'.streamMode],
- fun('NULL', _) -> ?ModeToken end},
- {[Val#'IndAudLocalControlDescriptor'.reserveValue],
- fun('NULL', _) -> ?ReservedValueToken end},
- {[Val#'IndAudLocalControlDescriptor'.reserveGroup],
- fun('NULL', _) -> ?ReservedGroupToken end},
- {Val#'IndAudLocalControlDescriptor'.propertyParms,
- fun enc_IndAudPropertyParm/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudPropertyParm(#'IndAudPropertyParm'{name = PkgdName}, State) ->
- enc_PkgdName(PkgdName, State).
-
-enc_IndAudMediaDescriptor_multiStream([Val], State) ->
- %% d("enc_IndAudMediaDescriptor_multiStream -> entry with"
- %% "~n Val: ~p", [Val]),
- [
- enc_IndAudStreamDescriptor(Val, ?INC_INDENT(State))
- ];
-enc_IndAudMediaDescriptor_multiStream(Vals, State) when is_list(Vals) ->
-%% d("enc_IndAudMediaDescriptor_multiStream -> entry with"
-%% "~n Vals: ~p", [Vals]),
- [
- enc_list([{Vals, fun enc_IndAudStreamDescriptor/2}], State)
- ];
-enc_IndAudMediaDescriptor_multiStream(Val, _State) ->
- error({invalid_IndAudMediaDescriptor_multiStream, Val}).
-
-enc_IndAudStreamDescriptor(#'IndAudStreamDescriptor'{streamID = SID,
- streamParms = Parms},
- State) ->
-%% d("enc_IndAudStreamDescriptor -> entry with"
-%% "~n SID: ~p"
-%% "~n Parms: ~p", [SID, Parms]),
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(SID, State),
- ?LBRKT_INDENT(State),
- enc_IndAudStreamParms(Parms, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventBufferDescriptor(Val, State)
- when is_record(Val, 'IndAudEventBufferDescriptor') ->
- #'IndAudEventBufferDescriptor'{eventName = EvName,
- streamID = ID} = Val,
- [
- ?EventBufferToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(EvName, State),
- enc_IndAudEventBufferDescriptor_eventSpec(ID, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventBufferDescriptor_eventSpec(asn1_NOVALUE, _State) ->
- [
- ];
-enc_IndAudEventBufferDescriptor_eventSpec({eventParameterName, ParamName},
- State) ->
- [
- ?LBRKT_INDENT(State),
- enc_Name(ParamName, State),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudEventBufferDescriptor_eventSpec(ID, State) ->
- [
- ?LBRKT_INDENT(State),
- enc_eventStream(ID, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventsDescriptor(Val, State)
- when is_record(Val, 'IndAudEventsDescriptor') ->
- #'IndAudEventsDescriptor'{requestID = ReqID,
- pkgdName = Name,
- streamID = asn1_NOVALUE} = Val,
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(ReqID, State),
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_IndAudSignalsDescriptor(Val, State) ->
- [
- ?SignalsToken,
- ?LBRKT_INDENT(State),
- enc_IndAudSignalsDescriptor_value(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudSignalsDescriptor_value({signal, Val}, State) ->
- enc_IndAudSignal(Val, State);
-enc_IndAudSignalsDescriptor_value({seqSigList, Val}, State) ->
- enc_IndAudSeqSigList(Val, State).
-
-enc_IndAudSignal(#'IndAudSignal'{signalName = SignalName,
- streamID = asn1_NOVALUE}, State) ->
- [
- enc_SignalName(SignalName, State)
- ].
-
-enc_IndAudSeqSigList(#'IndAudSeqSigList'{id = ID,
- signalList = Parm},
- State) ->
- [
- ?SignalListToken,
- ?EQUAL,
- enc_UINT16(ID, State),
- ?LBRKT_INDENT(State),
- enc_IndAudSignal(Parm, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudDigitMapDescriptor(#'IndAudDigitMapDescriptor'{digitMapName = Name},
- State) ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ].
-
-enc_IndAudStatisticsDescriptor(#'IndAudStatisticsDescriptor'{statName = Name},
- State) ->
-% d("enc_IndAudStatisticsDescriptor -> entry with"
-% "~n Name: ~p", [Name]),
- [
- ?StatsToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_IndAudPackagesDescriptor(#'IndAudPackagesDescriptor'{packageName = N,
- packageVersion = V},
- State) ->
- [
- ?PackagesToken,
- ?LBRKT_INDENT(State),
- enc_Name(N, State),
- "-",
- enc_UINT16(V, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-%% - v2 end -
-
-
-enc_TerminationAudit({'TerminationAudit',Val}, State) ->
- enc_TerminationAudit(Val, State);
-enc_TerminationAudit([], _State) ->
- [];
-enc_TerminationAudit([Mand | Opt], State) ->
-% d("enc_TerminationAudit -> entry with"
-% "~n Mand: ~p", [Mand]),
- [enc_AuditReturnParameter(Mand, State),
- [[?COMMA_INDENT(State), enc_AuditReturnParameter(Val, State)] || Val <- Opt]].
-
-enc_AuditReturnParameter({'AuditReturnParameter',Val}, State) ->
- enc_AuditReturnParameter(Val, State);
-enc_AuditReturnParameter({Tag, Val}, State) ->
-% d("enc_AuditReturnParameter -> entry with"
-% "~n Tag: ~p"
-% "~n Val: ~p", [Tag, Val]),
- case Tag of
- mediaDescriptor ->
- enc_MediaDescriptor(Val, State);
- modemDescriptor ->
- enc_ModemDescriptor(Val, State);
- muxDescriptor ->
- enc_MuxDescriptor(Val, State);
- eventsDescriptor ->
- enc_EventsDescriptor(Val, State);
- signalsDescriptor ->
- enc_SignalsDescriptor(Val, State);
- digitMapDescriptor ->
- enc_DigitMapDescriptor(Val, State);
- observedEventsDescriptor ->
- enc_ObservedEventsDescriptor(Val, State);
- eventBufferDescriptor ->
- enc_EventBufferDescriptor(Val, State);
- statisticsDescriptor ->
- enc_StatisticsDescriptor(Val, State);
- packagesDescriptor ->
- enc_PackagesDescriptor(Val, State);
- errorDescriptor ->
- enc_ErrorDescriptor(Val, State);
- emptyDescriptors ->
- enc_EmptyDescriptors(Val, State);
- _ ->
- error({invalid_AuditReturnParameter_tag, Tag})
- end.
-
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = asn1_NOVALUE}, _State) ->
- [];
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = []}, _State) ->
- [];
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = List}, State) ->
- enc_list([{List, fun enc_auditReturnItem/2}], ?INC_INDENT(State)).
-
-
-enc_NotifyRequest(Val, State)
- when is_record(Val, 'NotifyRequest') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'NotifyRequest'.terminationID, State),
- ?LBRKT_INDENT(State),
- %% BUGBUG: Mismatch between ASN.1 and ABNF
- %% BUGBUG: The following ought to be a 'choice'
- case Val#'NotifyRequest'.errorDescriptor of
- asn1_NOVALUE ->
- OED = Val#'NotifyRequest'.observedEventsDescriptor,
- enc_ObservedEventsDescriptor(OED, ?INC_INDENT(State));
- ErrorDescr ->
- enc_ErrorDescriptor(ErrorDescr, ?INC_INDENT(State))
- end,
- ?RBRKT_INDENT(State)
- ].
-
-enc_NotifyReply(Val, State)
- when is_record(Val, 'NotifyReply') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- case Val#'NotifyReply'.terminationID of
- asn1_NOVALUE ->
- error(asn1_not_compliant_with_abnf);
- TermId ->
- enc_TerminationIDList1(TermId, State)
- end,
- case Val#'NotifyReply'.errorDescriptor of
- asn1_NOVALUE ->
- [];
- ErrorDescr ->
- [
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(ErrorDescr, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-enc_ObservedEventsDescriptor(Val, State)
- when is_record(Val, 'ObservedEventsDescriptor') ->
- [
- ?ObservedEventsToken,
- ?EQUAL,
- enc_RequestID(Val#'ObservedEventsDescriptor'.requestId, State),
- ?LBRKT_INDENT(State),
- enc_observedEventsDescriptors(Val#'ObservedEventsDescriptor'.observedEventLst, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_observedEventsDescriptors([Mand | Opt], State) ->
- [enc_ObservedEvent(Mand, State),
- [[?COMMA_INDENT(State), enc_ObservedEvent(Val, State)] || Val <- Opt]].
-
-%% ;time per event, because it might be buffered
-%% observedEvent = [ TimeStamp LWSP COLON] LWSP
-%% pkgdName [ LBRKT observedEventParameter
-%% *(COMMA observedEventParameter) RBRKT ]
-%%
-%% ;at-most-once eventStream, every eventParameterName at most once
-%% observedEventParameter = eventStream / eventOther
-enc_ObservedEvent(Val, State)
- when is_record(Val, 'ObservedEvent') ->
- [
- case Val#'ObservedEvent'.timeNotation of
- asn1_NOVALUE ->
- [];
- TimeStamp ->
- [
- enc_TimeNotation(TimeStamp, State),
- ?LWSP,
- ?COLON
- ]
- end,
- ?LWSP,
- enc_EventName(Val#'ObservedEvent'.eventName, State),
- enc_opt_brackets(
- enc_list([{[Val#'ObservedEvent'.streamID], fun enc_eventStream/2},
- {Val#'ObservedEvent'.eventParList, fun enc_eventOther/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_EventName({'EventName',Val}, State) ->
- enc_EventName(Val, State);
-enc_EventName(Val, State) ->
- PkgdName = ?META_ENC(event, Val),
- enc_PkgdName(PkgdName, State).
-
-enc_eventStream(Val, State) ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val, State)
- ].
-
-%% The value is already encoded
-enc_eventOther(#megaco_event_parameter{name = Name,
- value = Value}, State)
- when is_list(Value) ->
- [
- enc_Name(Name, State),
- ?EqualToken,
- Value
- ];
-%% Special treatment of the ds parameter of the dd/ce event
-enc_eventOther(#'EventParameter'{eventParameterName = "ds" = Name,
- value = [DigitString],
- extraInfo = asn1_NOVALUE}, State) ->
- [
- enc_Name(Name, State),
- ?EqualToken,
- enc_DigitString(DigitString, State)
- ];
-enc_eventOther(#'EventParameter'{eventParameterName = Name,
- value = Value,
- extraInfo = Extra}, State) ->
- [
- enc_Name(Name, State),
- enc_propertyParmValues(Value, Extra, State)
- ].
-
-enc_ServiceChangeRequest(Val, State)
- when is_record(Val, 'ServiceChangeRequest') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'ServiceChangeRequest'.terminationID, State),
- ?LBRKT_INDENT(State),
- enc_ServiceChangeParm(Val#'ServiceChangeRequest'.serviceChangeParms,
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% serviceChangeReply = ServiceChangeToken EQUAL TerminationID
-%% [LBRKT (errorDescriptor /
-%% serviceChangeReplyDescriptor) RBRKT]
-%% serviceChangeReplyDescriptor = ServicesToken LBRKT
-%% servChgReplyParm *(COMMA servChgReplyParm) RBRKT
-%%
-%% ;at-most-once. Version is REQUIRED on first ServiceChange response
-%% servChgReplyParm = (serviceChangeAddress / serviceChangeMgcId /
-%% serviceChangeProfile / serviceChangeVersion )
-enc_ServiceChangeReply(Val, State)
- when is_record(Val, 'ServiceChangeReply') ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_TerminationIDList1(Val#'ServiceChangeReply'.terminationID, State),
- enc_ServiceChangeResult(Val#'ServiceChangeReply'.serviceChangeResult, State)
- ].
-
-enc_ServiceChangeResult({'ServiceChangeResult',Val}, State) ->
- enc_ServiceChangeResult(Val, State);
-enc_ServiceChangeResult({Tag, Val}, State) ->
- case Tag of
- errorDescriptor ->
- [
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
- serviceChangeResParms ->
- case enc_ServiceChangeResParm(Val, ?INC_INDENT(?INC_INDENT(State))) of
- [] ->
- [];
- ResParms ->
- [
- ?LBRKT_INDENT(State),
- ?ServicesToken,
- fun(_S) ->
- [
- ?LBRKT_INDENT(_S),
- ResParms,
- ?RBRKT_INDENT(_S)
- ]
- end(?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
- _ ->
- error({invalid_ServiceChangeResult_tag, Tag})
- end.
-
-%% Required length of termination ID list is 1
-enc_TerminationIDList1({'TerminationIDList',Val}, State) ->
- enc_TerminationIDList1(Val, State);
-enc_TerminationIDList1([Singleton], State) ->
- enc_TerminationID(Singleton, State).
-
-%% No required length of termination ID list
-enc_TerminationIDListN({'TerminationIDList',Val}, State) ->
- enc_TerminationIDListN(Val, State);
-enc_TerminationIDListN([TID], State) ->
- [
- ?LBRKT_INDENT(State),
- enc_TerminationID(TID, State),
- ?RBRKT_INDENT(State)
- ];
-enc_TerminationIDListN(TIDs, State) ->
- [
- ?LBRKT_INDENT(State),
- enc_list([{TIDs, fun enc_TerminationID/2}], State),
- ?RBRKT_INDENT(State)
- ].
-
-%% TerminationID = "ROOT" / pathNAME / "$" / "*"
-%% ; Total length of pathNAME must not exceed 64 chars.
-%% pathNAME = ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
-%% ["@" pathDomainName ]
-enc_TerminationID(Tid, State)
- when is_record(Tid, megaco_term_id) ->
- List = [{Tid#megaco_term_id.id, fun enc_tid_component/2 }],
- enc_list(List, State, fun(_S) -> ?SLASH end, false).
-
-enc_tid_component(Component, State) when is_list(Component) ->
- [enc_tid_sub_component(Sub, State) || Sub <- Component];
-enc_tid_component(Invalid, _State) ->
- error({invalid_id_list_component, Invalid}).
-
-enc_tid_sub_component(all = _Sub, _State) ->
- ?megaco_all;
-enc_tid_sub_component(choose = _Sub, _State) ->
- ?megaco_choose;
-enc_tid_sub_component(Char, _State) when is_integer(Char) ->
- Char;
-enc_tid_sub_component(Invalid, _State) ->
- error({invalid_id_list_sub_component, Invalid}).
-
-%% enc_tid_sub_component(Sub, _State) ->
-%% case Sub of
-%% all -> ?megaco_all;
-%% choose -> ?megaco_choose;
-%% Char when is_integer(Char) -> Char
-%% end.
-
-%% mediaDescriptor = MediaToken LBRKT mediaParm *(COMMA mediaParm) RBRKT
-%% ; at-most-once per item
-%% ; and either streamParm or streamDescriptor but not both
-%% mediaParm = (streamParm / streamDescriptor /
-%% terminationStateDescriptor)
-%% ; at-most-once
-%% streamParm = ( localDescriptor / remoteDescriptor /
-%% localControlDescriptor )
-%% streamDescriptor = StreamToken EQUAL StreamID LBRKT streamParm
-%% *(COMMA streamParm) RBRKT
-enc_MediaDescriptor(Val, State)
- when is_record(Val, 'MediaDescriptor') ->
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Val#'MediaDescriptor'.termStateDescr],
- fun enc_TerminationStateDescriptor/2} |
- decompose_streams(Val#'MediaDescriptor'.streams)],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-decompose_streams(asn1_NOVALUE) ->
- [];
-decompose_streams({'MediaDescriptor_streams',Val}) ->
- decompose_streams(Val);
-decompose_streams({Tag, Val}) ->
- case Tag of
- oneStream ->
- decompose_StreamParms(Val);
- multiStream ->
- [{Val, fun enc_StreamDescriptor/2}];
- _ ->
- error({invalid_streams_tag, Tag})
- end.
-
-decompose_StreamParms(Val)
- when is_record(Val, 'StreamParms') ->
- [
- {[Val#'StreamParms'.localControlDescriptor],
- fun enc_LocalControlDescriptor/2},
- {[Val#'StreamParms'.localDescriptor],
- fun enc_localDescriptor/2},
- {[Val#'StreamParms'.remoteDescriptor],
- fun enc_remoteDescriptor/2},
- {[Val#'StreamParms'.statisticsDescriptor],
- fun enc_StatisticsDescriptor/2}
- ].
-
-enc_StreamDescriptor(Val, State)
- when is_record(Val, 'StreamDescriptor') ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val#'StreamDescriptor'.streamID, State),
- ?LBRKT_INDENT(State),
- enc_list(decompose_StreamParms(Val#'StreamDescriptor'.streamParms),
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% localControlDescriptor = LocalControlToken LBRKT localParm
-%% *(COMMA localParm) RBRKT
-%%
-%% ; at-most-once per item
-%% localParm = ( streamMode / propertyParm /
-%% reservedValueMode / reservedGroupMode )
-%% reservedValueMode = ReservedValueToken EQUAL ( "ON" / "OFF" )
-%% reservedGroupMode = ReservedGroupToken EQUAL ( "ON" / "OFF" )
-%%
-%% reservedMode = ReservedToken EQUAL ( "ON" / "OFF" )
-%%
-%% streamMode = ModeToken EQUAL streamModes
-enc_LocalControlDescriptor(
- #'LocalControlDescriptor'{streamMode = asn1_NOVALUE,
- reserveValue = asn1_NOVALUE,
- reserveGroup = asn1_NOVALUE,
- propertyParms = []}, _State) ->
- error({invalid_LocalControlDescriptor, empty});
-enc_LocalControlDescriptor(
- #'LocalControlDescriptor'{streamMode = SM,
- reserveValue = RV,
- reserveGroup = RG,
- propertyParms = PPs}, State) ->
- [
- ?LocalControlToken,
- ?LBRKT_INDENT(State),
- enc_list([{[SM], fun enc_StreamMode/2},
- {[RG], fun enc_reservedGroupMode/2},
- {[RV], fun enc_reservedValueMode/2},
- {PPs, fun enc_PropertyParm/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_reservedGroupMode(Val, _State) ->
- [
- ?ReservedGroupToken,
- ?EQUAL,
- case Val of
- false -> ?OffToken;
- true -> ?OnToken
- end
- ].
-
-enc_reservedValueMode(Val, _State) ->
- [
- ?ReservedValueToken,
- ?EQUAL,
- case Val of
- false -> ?OffToken;
- true -> ?OnToken
- end
- ].
-
-enc_StreamMode({'StreamMode',Val}, State) ->
- enc_StreamMode(Val, State);
-enc_StreamMode(Val, _State) ->
- [
- ?ModeToken,
- ?EQUAL,
- case Val of
- sendOnly -> ?SendonlyToken;
- recvOnly -> ?RecvonlyToken;
- sendRecv -> ?SendrecvToken;
- inactive -> ?InactiveToken;
- loopBack -> ?LoopbackToken
- end
- ].
-
-enc_Name({'Name',Val}, State) ->
- enc_Name(Val, State);
-enc_Name(Val, State) ->
- %% BUGBUG: NAME = ALPHA *63(ALPHA / DIGIT / "_" )
- enc_STRING(Val, State, 1, 64).
-
-enc_PkgdName({'PkgdName', Val}, State) ->
- enc_PkgdName(Val, State);
-enc_PkgdName(Val, _State) ->
- %% BUGBUG: pkgdName = (NAME / "*") SLASH (ItemID / "*" )
- %% enc_OCTET_STRING(Val, _State, 1, 64).
- if
- is_list(Val) ->
- Length = length(Val),
- if
- (Length >= 1) ->
- if
- (Length =< 64) ->
- Val;
- true ->
- error({pkgdName_toolong, Length, 64})
- end;
- true ->
- error({pkgdName_tooshort, Length, 1})
- end;
- true ->
- error({invalid_PkgdName, Val})
- end.
-
-enc_localDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- [
- ?LocalToken,
- ?LBRKT,
- enc_LocalRemoteDescriptor(Val, State),
- ?RBRKT_INDENT(State)
- ].
-
-enc_remoteDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- [
- ?RemoteToken,
- ?LBRKT,
- enc_LocalRemoteDescriptor(Val, State),
- ?RBRKT_INDENT(State)
- ].
-
-%% When text encoding the protocol, the descriptors consist of session
-%% descriptions as defined in SDP (RFC2327), except that the "s=", "t="
-%% and "o=" lines are optional. When multiple session descriptions are
-%% provided in one descriptor, the "v=" lines are required as delimiters;
-%% otherwise they are optional. Implementations shall accept session
-%% descriptions that are fully conformant to RFC2327. When binary
-%% encoding the protocol the descriptor consists of groups of properties
-%% (tag-value pairs) as specified in Annex C. Each such group may
-%% contain the parameters of a session description.
-enc_LocalRemoteDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- case Val#'LocalRemoteDescriptor'.propGrps of
- [] ->
- [];
- [OptV | MandV] ->
- [?LfToken,
- enc_PropertyGroup(OptV, opt_v, State) |
- [enc_PropertyGroup(M, mand_v, State) || M <- MandV]]
- end.
-
-enc_PropertyGroup({'PropertyGroup',Val}, RequiresV, State) ->
- enc_PropertyGroup(Val, RequiresV, State);
-enc_PropertyGroup([H | _T] = List, mand_v, State)
- when is_record(H, 'PropertyParm') andalso (H#'PropertyParm'.name =:= "v") ->
- enc_PropertyGroup(List, opt_v, State);
-enc_PropertyGroup(PG, opt_v, State) ->
- [
- [[enc_PropertyGroupParm(PP, State), ?CrToken, ?LfToken] || PP <- PG]
- ].
-
-enc_PropertyGroupParm(Val, State)
- when is_record(Val, 'PropertyParm') ->
- [OctetString] = Val#'PropertyParm'.value,
- [
- enc_PkgdName(Val#'PropertyParm'.name, State),
- ?EqualToken,
- enc_OCTET_STRING(OctetString, State, 0, infinity)
- ].
-
-%% propertyParm = pkgdName parmValue
-%% parmValue = (EQUAL alternativeValue/ INEQUAL VALUE)
-%% alternativeValue = ( VALUE / LSBRKT VALUE *(COMMA VALUE) RSBRKT /
-%% LSBRKT VALUE DOT DOT VALUE RSBRKT )
-enc_PropertyParm(Val, State)
- when is_record(Val, 'PropertyParm') ->
- PkgdName = ?META_ENC(property, Val#'PropertyParm'.name),
- [
- enc_PkgdName(PkgdName, State),
- enc_propertyParmValues(Val#'PropertyParm'.value,
- Val#'PropertyParm'.extraInfo,
- State)
- ].
-
-enc_propertyParmValues([Single], asn1_NOVALUE, State) ->
- [
- ?EqualToken,
- enc_Value(Single, State)
- ];
-enc_propertyParmValues([Single], {relation, Rel}, State) ->
- case Rel of
- greaterThan -> [$>, enc_Value(Single, State)];
- smallerThan -> [$<, enc_Value(Single, State)];
- unequalTo -> [$#, enc_Value(Single, State)]
- end;
-enc_propertyParmValues([Low, High], {range, true}, State)->
- %% Exact two values
- [
- ?EQUAL,
- ?LSBRKT,
- enc_Value(Low, State),
- ?COLON,
- enc_Value(High, State),
- ?RSBRKT
- ];
-enc_propertyParmValues(Values, {sublist, true}, State)->
- %% sublist (i.e. A AND B AND ...)
- [
- ?EQUAL,
- ?LSBRKT_INDENT(State),
- enc_list([{Values, fun enc_Value/2}], ?INC_INDENT(State)),
- ?RSBRKT_INDENT(State)
- ];
-enc_propertyParmValues(Values, {sublist, false}, State) ->
- %% alternatives (i.e. A OR B OR ...)
- [
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_list([{Values, fun enc_Value/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_propertyParmValues(V, EI, _State) ->
- error({invalid_property_parm_values, V, EI}).
-
-enc_TerminationStateDescriptor(Val, State)
- when is_record(Val, 'TerminationStateDescriptor') ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val#'TerminationStateDescriptor'.propertyParms,
- fun enc_PropertyParm/2},
- {[Val#'TerminationStateDescriptor'.eventBufferControl],
- fun enc_eventBufferControl/2},
- {[Val#'TerminationStateDescriptor'.serviceState],
- fun enc_serviceState/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_eventBufferControl(Val, _State) ->
- [
-
- ?BufferToken,
- ?EQUAL,
- case Val of
- off -> ?OffToken;
- lockStep -> ?LockStepToken
- end
- ].
-
-enc_serviceState({'ServiceState',Val}, State) ->
- enc_serviceState(Val, State);
-enc_serviceState(Val, _State) ->
- [
- ?ServiceStatesToken,
- ?EQUAL,
- case Val of
- test -> ?TestToken;
- outOfSvc -> ?OutOfSvcToken;
- inSvc -> ?InSvcToken
- end
- ].
-
-enc_MuxDescriptor(Val, State)
- when is_record(Val, 'MuxDescriptor') ->
- [
- ?MuxToken,
- ?EQUAL,
- enc_MuxType(Val#'MuxDescriptor'.muxType, State),
- enc_TerminationIDListN(Val#'MuxDescriptor'.termList, State)
- ].
-
-enc_MuxType({'MuxType',Val}, State) ->
- enc_MuxType(Val, State);
-enc_MuxType(Val, _State) ->
- case Val of
- h221 -> ?H221Token;
- h223 -> ?H223Token;
- h226 -> ?H226Token;
- v76 -> ?V76Token;
- %% extensionParameter
- nx64k -> ?Nx64kToken % v2
- end.
-
-enc_StreamID({'StreamID',Val}, State) ->
- enc_StreamID(Val, State);
-enc_StreamID(Val, State) ->
- enc_UINT16(Val, State).
-
-enc_EventsDescriptor(Val, State)
- when is_record(Val, 'EventsDescriptor') ->
- #'EventsDescriptor'{requestID = RequestId,
- eventList = Events} = Val,
- if
- RequestId == asn1_NOVALUE, Events == [] ->
- [
- ?EventsToken
- ];
-
- RequestId /= asn1_NOVALUE, Events /= [] ->
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(RequestId, State),
- ?LBRKT_INDENT(State),
- enc_list([{Events, fun enc_RequestedEvent/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end.
-
-enc_RequestedEvent(Val, State)
- when is_record(Val, 'RequestedEvent') ->
- PkgdName = ?META_ENC(event, Val#'RequestedEvent'.pkgdName),
- [
- enc_PkgdName(PkgdName, State),
- enc_opt_brackets(
- enc_list([{[Val#'RequestedEvent'.streamID], fun enc_eventStream/2},
- {Val#'RequestedEvent'.evParList, fun enc_eventOther/2} |
- decompose_requestedActions(Val#'RequestedEvent'.eventAction)],
- ?INC_INDENT(State)),
- State)
- ].
-
-decompose_requestedActions(asn1_NOVALUE) ->
- [];
-
-%%
-%% This in the ABNF:
-%% at-most-once each of KeepActiveToken , eventDM and eventStream
-%% at most one of either embedWithSig or embedNoSig but not both
-%% KeepActiveToken and embedWithSig must not both be present
-%%
-
-%% embedWithSig
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD})
- when (KA =/= true) andalso
- (SD =/= asn1_NOVALUE) andalso
- (SD =/= []) ->
- [
- {[EDM], fun enc_EventDM/2},
- {[{SE, SD}], fun enc_embedWithSig/2}
- ];
-
-%% embedNoSig
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD})
- when (SD =:= asn1_NOVALUE) orelse (SD =:= []) ->
- [
- {[KA], fun enc_keepActive/2},
- {[EDM], fun enc_EventDM/2},
- {[SE], fun enc_embedNoSig/2}
- ];
-
-%% Fallback, if everything else failes....
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD}) ->
- [
- {[KA], fun enc_keepActive/2},
- {[EDM], fun enc_EventDM/2},
- {[{SE, SD}], fun enc_embedWithSig/2}
- ].
-
-enc_embedNoSig(#'SecondEventsDescriptor'{requestID = RID,
- eventList = Evs}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_embedFirst(RID, Evs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_embedWithSig({asn1_NOVALUE, SD}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(SD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_embedWithSig({#'SecondEventsDescriptor'{requestID = RID,
- eventList = Evs}, SD}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(SD, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_embedFirst(RID, Evs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_keepActive(Val, _State) ->
- case Val of
- true -> [?KeepActiveToken];
- false -> []
- end.
-
-enc_EventDM({'EventDM',Val}, State) ->
- enc_EventDM(Val, State);
-enc_EventDM({Tag, Val}, State) ->
- case Tag of
- digitMapName ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Val, State)
- ];
- digitMapValue ->
- [
- ?DigitMapToken,
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
- _ ->
- error({invalid_EventDM_tag, Tag})
- end.
-
-
-enc_embedFirst(RID, Evs, State)
- when (RID =/= asn1_NOVALUE) andalso is_list(Evs) andalso (Evs =/= []) ->
- %% d("enc_embedFirst -> entry with"
- %% "~n RID: ~p"
- %% "~n Evs: ~p", [RID, Evs]),
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(RID, State),
- ?LBRKT_INDENT(State),
- enc_list([{Evs, fun enc_SecondRequestedEvent/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_embedFirst(_RID, _Evs, _State) ->
- %% d("enc_embedFirst -> entry"),
- [
- ?EventsToken
- ].
-
-
-enc_SecondRequestedEvent(#'SecondRequestedEvent'{pkgdName = N,
- streamID = SID,
- evParList = EPL,
- eventAction = EA}, State) ->
- PkgdName = ?META_ENC(event, N),
- [
- enc_PkgdName(PkgdName, State),
- enc_opt_brackets(
- enc_list(
- [{[SID], fun enc_eventStream/2},
- {EPL, fun enc_eventOther/2} |
- decompose_secondRequestedActions(EA)],
- ?INC_INDENT(State)),
- State)
- ].
-
-decompose_secondRequestedActions(asn1_NOVALUE) ->
- [];
-decompose_secondRequestedActions(Val)
- when is_record(Val, 'SecondRequestedActions') ->
- [
- {[Val#'SecondRequestedActions'.keepActive],
- fun enc_keepActive/2},
- {[Val#'SecondRequestedActions'.eventDM],
- fun enc_EventDM/2},
- {[Val#'SecondRequestedActions'.signalsDescriptor],
- fun enc_embeddedSignalsDescriptor/2}
- ].
-
-enc_embeddedSignalsDescriptor(Val, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_EventBufferDescriptor({'EventBufferDescriptor',Val}, State) ->
- enc_EventBufferDescriptor(Val, State);
-enc_EventBufferDescriptor([], _State) ->
- [
- ?EventBufferToken
- ];
-enc_EventBufferDescriptor(EventSpecs, State)
- when is_list(EventSpecs) andalso (length(EventSpecs) >= 1) ->
- [
- ?EventBufferToken,
- ?LBRKT_INDENT(State),
- enc_eventSpecs(EventSpecs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_eventSpecs([Mand | Opt], State) ->
- [enc_eventSpec(Mand, State),
- [[?COMMA_INDENT(State), enc_eventSpec(Val, State)] || Val <- Opt]].
-
-enc_eventSpec(#'EventSpec'{eventName = Name,
- streamID = SID,
- eventParList = EPL}, State) ->
- [
- enc_EventName(Name, State),
- enc_opt_brackets(
- enc_list([{[SID], fun enc_eventStream/2},
- {EPL, fun enc_eventOther/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_SignalsDescriptor({'SignalsDescriptor',Val}, State) ->
- enc_SignalsDescriptor(Val, State);
-enc_SignalsDescriptor([], _State) ->
- [
- ?SignalsToken
- ];
-enc_SignalsDescriptor(List, State) when is_list(List) ->
- [
- ?SignalsToken,
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_SignalRequest/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_SignalRequest({'SignalRequest',Val}, State) ->
- enc_SignalRequest(Val, State);
-enc_SignalRequest({Tag, Val}, State) ->
- case Tag of
- signal ->
- enc_Signal(Val, State);
- seqSigList ->
- enc_SeqSigList(Val, State);
- _ ->
- error({invalid_SignalRequest_tag, Tag})
- end.
-
-
-enc_SeqSigList(Val, State)
- when is_record(Val, 'SeqSigList') ->
- [
- ?SignalListToken,
- ?EQUAL,
- enc_UINT16(Val#'SeqSigList'.id, State),
- ?LBRKT_INDENT(State),
- enc_list([{Val#'SeqSigList'.signalList, fun enc_Signal/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_Signal(Val, State)
- when is_record(Val, 'Signal') ->
- [
- enc_SignalName(Val#'Signal'.signalName, State),
- enc_opt_brackets(
- enc_list([{[Val#'Signal'.streamID], fun enc_sigStream/2},
- {[Val#'Signal'.sigType], fun enc_sigSignalType/2},
- {[Val#'Signal'.duration], fun enc_sigDuration/2},
- {[Val#'Signal'.notifyCompletion], fun enc_notifyCompletion/2},
- {[Val#'Signal'.keepActive], fun enc_keepActive/2},
- {Val#'Signal'.sigParList, fun enc_sigOther/2},
- {[Val#'Signal'.direction], fun enc_SignalDirection/2},
- {[Val#'Signal'.requestID], fun enc_sigRequestID/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_sigStream(Val, State) ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val, State)
- ].
-
-enc_sigSignalType(Val, State) ->
- [
- ?SignalTypeToken,
- ?EQUAL,
- enc_SignalType(Val, State)
- ].
-
-enc_sigDuration(Val, State) ->
- [
- ?DurationToken,
- ?EQUAL,
- enc_UINT16(Val, State)
- ].
-
-enc_notifyCompletion(List, State) when is_list(List) ->
- [
- ?NotifyCompletionToken,
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_notifyCompletionItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_notifyCompletionItem(Val, _State) ->
- case Val of
- onTimeOut -> ?TimeOutToken;
- onInterruptByEvent -> ?InterruptByEventToken;
- onInterruptByNewSignalDescr -> ?InterruptByNewSignalsDescrToken;
- otherReason -> ?OtherReasonToken
- end.
-
-enc_SignalType({'SignalType',Val}, State) ->
- enc_SignalType(Val, State);
-enc_SignalType(Val, _State) ->
- case Val of
- brief -> ?BriefToken;
- onOff -> ?OnOffToken;
- timeOut -> ?TimeOutToken
- end.
-
-enc_SignalName({'SignalName',Val}, State)->
- enc_SignalName(Val, State);
-enc_SignalName(Val, State) ->
- PkgdName = ?META_ENC(signal, Val),
- enc_PkgdName(PkgdName, State).
-
-enc_sigOther(Val, State)
- when is_record(Val, 'SigParameter') ->
- [
- enc_Name(Val#'SigParameter'.sigParameterName, State),
- enc_propertyParmValues(Val#'SigParameter'.value,
- Val#'SigParameter'.extraInfo,
- State)
- ].
-
-enc_SignalDirection({'SignalDirection', Val}, State) ->
- enc_SignalDirection(Val, State);
-enc_SignalDirection(Val, _State) ->
- [
- ?DirectionToken,
- ?EQUAL,
- case Val of
- internal -> ?InternalToken;
- external -> ?ExternalToken;
- both -> ?BothToken
- end
- ].
-
-enc_sigRequestID(Val, State) ->
- [
- ?RequestIDToken,
- ?EQUAL,
- enc_RequestID(Val, State)
- ].
-
-enc_RequestID({'RequestID',Val}, State) ->
- enc_RequestID(Val, State);
-enc_RequestID(Val, _State) when (Val =:= ?megaco_all_request_id) ->
- "*";
-enc_RequestID(Val, State) ->
- enc_UINT32(Val, State).
-
-enc_ModemDescriptor(MD, _State) ->
- error({deprecated, MD}).
-
-%% Corr1:
-%% As of corr 1 ModemDescriptor has been deprecated.
-%% 7.1.2: ...shall not be included as part of a transmitted content and,
-%% if received, shall either be ignored or processed at the option
-%% of the implementation. ...
-%% enc_ModemDescriptor(#'ModemDescriptor'{mtl = [Val],
-%% mpl = [],
-%% nonStandardData = asn1_NOVALUE},
-%% State) ->
-%% [
-%% ?ModemToken,
-%% ?EQUAL,
-%% enc_ModemType(Val, State)
-%% ];
-%% enc_ModemDescriptor(Val, State)
-%% when is_record(Val, 'ModemDescriptor') ->
-%% [
-%% ?ModemToken,
-%% ?LSBRKT,
-%% enc_list([{Val#'ModemDescriptor'.mtl, fun enc_ModemType/2}], State),
-%% ?RSBRKT,
-%% enc_opt_brackets(
-%% enc_list([{Val#'ModemDescriptor'.mpl, fun enc_PropertyParm/2}],
-%% ?INC_INDENT(State)),
-%% State)
-%% %% BUGBUG: Is PropertyParm == NAME parmValue?
-%% ].
-
-%% enc_ModemDescriptor(Val, State)
-%% when is_record(Val, 'ModemDescriptor') ->
-%% [
-%% ?ModemToken,
-%% %% BUGBUG: Does never generate: EQUAL modemType
-%% ?LSBRKT,
-%% enc_list([{Val#'ModemDescriptor'.mtl, fun enc_ModemType/2}], State),
-%% ?RSBRKT,
-%% enc_opt_brackets(
-%% enc_list([{Val#'ModemDescriptor'.mpl, fun enc_PropertyParm/2}],
-%% ?INC_INDENT(State)),
-%% State)
-%% %% BUGBUG: Is PropertyParm == NAME parmValue?
-%% ].
-
-%% Corr1: See ModemDescriptor above
-%% enc_ModemType({'ModemType',Val}, State)->
-%% enc_ModemType(Val, State);
-%% enc_ModemType(Val, _State) ->
-%% %% BUGBUG: Does not handle extensionParameter
-%% case Val of
-%% v18 -> ?V18Token;
-%% v22 -> ?V22Token;
-%% v22bis -> ?V22bisToken;
-%% v32 -> ?V32Token;
-%% v32bis -> ?V32bisToken;
-%% v34 -> ?V34Token;
-%% v90 -> ?V90Token;
-%% v91 -> ?V91Token;
-%% synchISDN -> ?SynchISDNToken
-%% end.
-
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = asn1_NOVALUE,
- digitMapValue = Value} = Val,
- State)
- when (Value =/= asn1_NOVALUE) ->
- case is_empty_DigitMapValue(Value) of
- true ->
- error({invalid_DigitMapDescriptor, Val});
- false ->
- [
- ?DigitMapToken,
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Value, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = asn1_NOVALUE},
- State)
- when (Name =/= asn1_NOVALUE) ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ];
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = Value},
- State)
- when (Name =/= asn1_NOVALUE) andalso (Value =/= asn1_NOVALUE) ->
- case is_empty_DigitMapValue(Value) of
- true ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ];
- false ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State),
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Value, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
-enc_DigitMapDescriptor(BadVal, _State) ->
- error({invalid_DigitMapDescriptor, BadVal}).
-
-enc_DigitMapName({'DigitMapName',Val}, State) ->
- enc_DigitMapName(Val, State);
-enc_DigitMapName(Val, State) ->
- enc_Name(Val, State).
-
-is_empty_DigitMapValue(#'DigitMapValue'{startTimer = asn1_NOVALUE,
- shortTimer = asn1_NOVALUE,
- longTimer = asn1_NOVALUE,
- digitMapBody = [],
- durationTimer = asn1_NOVALUE}) ->
- true;
-is_empty_DigitMapValue(#'DigitMapValue'{}) ->
- false.
-
-enc_DigitMapValue(Val, State)
- when is_record(Val, 'DigitMapValue') ->
- [
- enc_timer(Val#'DigitMapValue'.startTimer, $T, State),
- enc_timer(Val#'DigitMapValue'.shortTimer, $S, State),
- enc_timer(Val#'DigitMapValue'.longTimer, $L, State),
- enc_timer(Val#'DigitMapValue'.durationTimer, $Z, State),
- %% BUGBUG: digitMapBody not handled at all
- enc_STRING(Val#'DigitMapValue'.digitMapBody, State, 0, infinity)
- ].
-
-enc_timer(asn1_NOVALUE, _Prefix, _State) ->
- [];
-enc_timer(Timer, Prefix, State) ->
- [
- Prefix,
- ?COLON,
- enc_DIGIT(Timer, State, 0, 99),
- ?COMMA_INDENT(State)
- ].
-
-enc_ServiceChangeParm(Val, State)
- when is_record(Val, 'ServiceChangeParm') ->
- [
- ?ServicesToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Val#'ServiceChangeParm'.serviceChangeMethod],
- fun enc_ServiceChangeMethod/2},
- {[Val#'ServiceChangeParm'.serviceChangeAddress],
- fun enc_ServiceChangeAddress/2},
- {[Val#'ServiceChangeParm'.serviceChangeVersion],
- fun enc_serviceChangeVersion/2},
- {[Val#'ServiceChangeParm'.serviceChangeProfile],
- fun enc_ServiceChangeProfile/2},
- {[{reason, Val#'ServiceChangeParm'.serviceChangeReason}],
- fun enc_serviceChangeReason/2},
- {[Val#'ServiceChangeParm'.serviceChangeDelay],
- fun enc_serviceChangeDelay/2},
- {[Val#'ServiceChangeParm'.serviceChangeMgcId],
- fun enc_serviceChangeMgcId/2},
- {[Val#'ServiceChangeParm'.timeStamp],
- fun enc_TimeNotation/2},
- {Val#'ServiceChangeParm'.serviceChangeInfo,
- fun enc_AuditDescriptor/2},
- {[Val#'ServiceChangeParm'.serviceChangeIncompleteFlag],
- fun('NULL', _) -> ?ServiceChangeIncompleteToken end}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_ServiceChangeMethod({'ServiceChangeMethod',Val}, State) ->
- enc_ServiceChangeMethod(Val, State);
-enc_ServiceChangeMethod(Val, _State) ->
- [
- ?MethodToken,
- ?EQUAL,
- case Val of
- failover -> ?FailoverToken;
- forced -> ?ForcedToken;
- graceful -> ?GracefulToken;
- restart -> ?RestartToken;
- disconnected -> ?DisconnectedToken;
- handOff -> ?HandOffToken
- end
- %% BUGBUG: extension
- ].
-
-enc_ServiceChangeAddress({'ServiceChangeAddress',Val}, State) ->
- enc_ServiceChangeAddress(Val, State);
-enc_ServiceChangeAddress({Tag, Val}, State) ->
- [
- ?ServiceChangeAddressToken,
- ?EQUAL,
- case Tag of
- portNumber ->
- enc_portNumber(Val, State);
- ip4Address ->
- enc_IP4Address(Val, State);
- ip6Address ->
- enc_IP6Address(Val, State);
- domainName ->
- enc_DomainName(Val, State);
- deviceName ->
- enc_PathName(Val, State);
- mtpAddress ->
- enc_mtpAddress(Val, State);
- _ ->
- error({invalid_ServiceChangeAddress_tag, Tag})
- end
- ].
-
-enc_serviceChangeVersion(Val, State) ->
- [
- ?VersionToken,
- ?EQUAL,
- enc_version(Val, State)
- ].
-
-enc_ServiceChangeProfile(#'ServiceChangeProfile'{profileName = Name,
- version = Version},
- State) ->
- [
- ?ProfileToken,
- ?EQUAL,
- enc_Name(Name, State),
- ?SLASH,
- enc_version(Version, State)
- ].
-
-enc_serviceChangeReason({reason, Val}, State) ->
- case Val of
- asn1_NOVALUE ->
- [];
- [List] when is_list(List) ->
- [
- ?ReasonToken,
- ?EQUAL,
- enc_QUOTED_STRING(List,State) % OTP-4632 enc_Value(List, State)
- ]
- end.
-
-enc_serviceChangeDelay(Val, State) ->
- [
- ?DelayToken,
- ?EQUAL,
- enc_UINT32(Val, State)
- ].
-
-enc_serviceChangeMgcId(Val, State) ->
- [
- ?MgcIdToken,
- ?EQUAL,
- enc_MId(Val, State)
- ].
-
-enc_portNumber(Val, State) when is_integer(Val) andalso (Val >= 0) ->
- enc_UINT16(Val, State).
-
-enc_ServiceChangeResParm(Val, State)
- when is_record(Val, 'ServiceChangeResParm') ->
- enc_list([{[Val#'ServiceChangeResParm'.serviceChangeAddress],
- fun enc_ServiceChangeAddress/2},
- {[Val#'ServiceChangeResParm'.serviceChangeVersion],
- fun enc_serviceChangeVersion/2},
- {[Val#'ServiceChangeResParm'.serviceChangeProfile],
- fun enc_ServiceChangeProfile/2},
- {[Val#'ServiceChangeResParm'.serviceChangeMgcId],
- fun enc_serviceChangeMgcId/2},
- {[Val#'ServiceChangeResParm'.timeStamp],
- fun enc_TimeNotation/2}],
- State).
-
-enc_PackagesDescriptor({'PackagesDescriptor',Val}, State) ->
- enc_PackagesDescriptor(Val, State);
-enc_PackagesDescriptor(Val, State) ->
- [
- ?PackagesToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val, fun enc_PackagesItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_PackagesItem(Val, State)
- when is_record(Val, 'PackagesItem') ->
- PkgdName = ?META_ENC(package, Val#'PackagesItem'.packageName),
- [
- enc_Name(PkgdName, State),
- "-",
- enc_UINT16(Val#'PackagesItem'.packageVersion, State)
- ].
-
-enc_StatisticsDescriptor({'StatisticsDescriptor',Val}, State) ->
- enc_StatisticsDescriptor(Val, State);
-enc_StatisticsDescriptor(List, State) when is_list(List) ->
- [
- ?StatsToken,
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_StatisticsParameter/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_StatisticsParameter(Val, State)
- when is_record(Val, 'StatisticsParameter') ->
- PkgdName = ?META_ENC(statistics, Val#'StatisticsParameter'.statName),
- case Val#'StatisticsParameter'.statValue of
- asn1_NOVALUE ->
- [
- enc_PkgdName(PkgdName, State)
- ];
- [StatVal] when is_list(StatVal) ->
- [
- enc_PkgdName(PkgdName, State),
- ?EQUAL,
- enc_Value(StatVal, State)
- ]
- end.
-
-enc_TimeNotation(Val, State)
- when is_record(Val, 'TimeNotation') ->
- [
- enc_STRING(Val#'TimeNotation'.date, State, 8, 8), % "yyyymmdd"
- "T",
- enc_STRING(Val#'TimeNotation'.time, State, 8, 8) % "hhmmssss"
- ].
-
-%% BUGBUG: Does not verify that string must contain at least one char
-%% BUGBUG: This violation of the is required in order to comply with
-%% BUGBUG: the dd/ce ds parameter that may possibly be empty.
-enc_Value({'Value',Val}, State) ->
- enc_Value(Val, State);
-enc_Value(String, _State) ->
- case quoted_string_count(String, 0, true, false) of
- {_, 0, _} ->
- [?DQUOTE, String, ?DQUOTE];
- {false, _, _} ->
- [?DQUOTE, String, ?DQUOTE];
- {true, _, _} ->
- [String]
- end.
-
-quoted_string_count([?DoubleQuoteToken | T], 0 = Count, _IsSafe, _MaybeQuoted) ->
- %% Already a quoted string. Make sure it ends
- quoted_string_count(T, Count + 1, true, true);
-quoted_string_count([?DoubleQuoteToken], Count, IsSafe, true = MaybeQuoted) ->
- %% An explicitly quoted string
- {IsSafe, Count, MaybeQuoted};
-quoted_string_count([H | T], Count, IsSafe, MaybeQuoted) ->
- case ?classify_char(H) of
- safe_char_upper -> quoted_string_count(T, Count + 1, IsSafe, MaybeQuoted);
- safe_char -> quoted_string_count(T, Count + 1, IsSafe, MaybeQuoted);
- rest_char -> quoted_string_count(T, Count + 1, false, MaybeQuoted);
- white_space -> quoted_string_count(T, Count + 1, false, MaybeQuoted);
- _ -> error({illegal_char, H})
- end;
-quoted_string_count([], _Count, _IsSafe, true = _MaybeQuoted) ->
- error({illegal_char, ?DoubleQuoteToken});
-quoted_string_count([], Count, IsSafe, MaybeQuoted) ->
- {IsSafe, Count, MaybeQuoted}.
-
-enc_DigitString(String, _State) when is_list(String) ->
- [?DQUOTE, String, ?DQUOTE].
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%% Encode an octet string, escape } by \ if necessary
-enc_OCTET_STRING(List, State, Min, Max) ->
- do_enc_OCTET_STRING(List, State, Min, Max, 0).
-
-do_enc_OCTET_STRING([H | T], State, Min, Max, Count) ->
- case H of
- $} ->
- [$\\, H | do_enc_OCTET_STRING(T, State, Min, Max, Count + 1)];
- _ ->
- [H | do_enc_OCTET_STRING(T, State, Min, Max, Count + 1)]
- end;
-do_enc_OCTET_STRING([], _State, Min, Max, Count) ->
- verify_count(Count, Min, Max),
- [].
-
-enc_QUOTED_STRING(String, _State) when is_list(String) ->
- case quoted_string_count(String, 0, true, false) of
- {_IsSafe, Count, false = _QuotedString} ->
- verify_count(Count, 1, infinity),
- [?DQUOTE, String, ?DQUOTE];
- {_IsSafe, Count, true = _QuotedString} ->
- verify_count(Count, 3, infinity), % quotes not included in the count
- [String]
- end.
-
-%% The internal format of hex digits is a list of octets
-%% Min and Max means #hexDigits
-%% Leading zeros are prepended in order to fulfill Min
-enc_HEXDIG(Octets, State, Min, Max) when is_list(Octets) ->
- do_enc_HEXDIG(Octets, State, Min, Max, 0, []).
-
-do_enc_HEXDIG([Octet | Rest], State, Min, Max, Count, Acc)
- when (Octet >= 0) andalso (Octet =< 255) ->
- Hex = hex(Octet), % OTP-4921
- if
- Octet =< 15 ->
- Acc2 = [[$0|Hex]|Acc], % OTP-4921
- do_enc_HEXDIG(Rest, State, Min, Max, Count + 2, ["0" | Acc2]);
- true ->
- Acc2 = [Hex|Acc], % OTP-4921
- do_enc_HEXDIG(Rest, State, Min, Max, Count + 2, Acc2)
- end;
-do_enc_HEXDIG([], State, Min, Max, Count, Acc)
- when is_integer(Min) andalso (Count < Min) ->
- do_enc_HEXDIG([0], State, Min, Max, Count, Acc);
-do_enc_HEXDIG([], _State, Min, Max, Count, Acc) -> %% OTP-4710
- verify_count(Count, Min, Max),
- lists:reverse(Acc).
-
-enc_DIGIT(Val, State, Min, Max) ->
- enc_integer(Val, State, Min, Max).
-
-enc_STRING(String, _State, Min, Max) when is_list(String) ->
- verify_count(length(String), Min, Max),
- String.
-
-enc_UINT16(Val, State) ->
- enc_integer(Val, State, 0, 65535).
-
-enc_UINT32(Val, State) ->
- enc_integer(Val, State, 0, 4294967295).
-
-enc_integer(Val, _State, Min, Max) ->
- verify_count(Val, Min, Max),
- integer_to_list(Val).
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Encodes a list of elements with separator tokens between
-%% the elements. Optional asn1_NOVALUE values are ignored.
-
-enc_list(List, State) ->
- enc_list(List, State, fun(_S) -> ?COMMA_INDENT(_S) end, false).
-
--dialyzer({nowarn_function, enc_list/4}). % Future compat
-enc_list([], _State, _SepEncoder, _NeedsSep) ->
- [];
-enc_list([{Elems, ElemEncoder} | Tail], State, SepEncoder, NeedsSep) ->
- case do_enc_list(Elems, State, ElemEncoder, SepEncoder, NeedsSep) of
- [] ->
- enc_list(Tail, State, SepEncoder, NeedsSep);
- List ->
- [List,
- enc_list(Tail, State, SepEncoder, true)]
- end;
-enc_list(A, B, C, D) ->
- error({invalid_list, A, B, C, D}).
-
-do_enc_list(asn1_NOVALUE, _State, _ElemEncoder, _SepEncoder, _NeedsSep) ->
- [];
-do_enc_list([], _State, _ElemEncoder, _SepEncoder, _NeedsSep) ->
- [];
-do_enc_list([asn1_NOVALUE | T], State, ElemEncoder, SepEncoder, NeedsSep) ->
- do_enc_list(T, State, ElemEncoder, SepEncoder, NeedsSep);
-do_enc_list([H | T], State, ElemEncoder, SepEncoder, NeedsSep)
- when is_function(ElemEncoder) andalso is_function(SepEncoder) ->
- case ElemEncoder(H, State) of
- [] ->
- do_enc_list(T, State, ElemEncoder, SepEncoder, NeedsSep);
- List when NeedsSep =:= true ->
- [SepEncoder(State),
- List, do_enc_list(T, State, ElemEncoder, SepEncoder, true)];
- List when NeedsSep =:= false ->
- [List,
- do_enc_list(T, State, ElemEncoder, SepEncoder, true)]
- end.
-
-%% Add brackets if list is non-empty
-enc_opt_brackets([], _State) ->
- [];
-enc_opt_brackets(List, _State) when is_list(List) ->
- [?LBRKT_INDENT(_State), List, ?RBRKT_INDENT(_State)].
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%% Int -> list of hex chars
-hex(Int) ->
- hexi(get_lo_bits(Int, 4), []).
-
-hexi({0, Lo}, Ack) ->
- [hex4(Lo) | Ack];
-hexi({Hi, Lo} , Ack) ->
- hexi(get_lo_bits(Hi, 4), [hex4(Lo) | Ack]).
-
-hex4(Int) when Int < 10 ->
- Int + $0;
-hex4(Int) ->
- ($A - 10) + Int.
-
-get_lo_bits(Int, Size) ->
- Lo = Int band ones_mask(Size),
- Hi = Int bsr Size,
- {Hi, Lo}.
-
-ones_mask(Ones) ->
- (1 bsl Ones) - 1.
-
-%% Verify that Count is within the range of Min and Max
-verify_count(Count, Min, Max) ->
- if
- is_integer(Count) ->
- if
- is_integer(Min) andalso (Count >= Min) ->
- if
- is_integer(Max) andalso (Count =< Max) ->
- Count;
- Max =:= infinity ->
- Count;
- true ->
- error({count_too_large, Count, Max})
- end;
- true ->
- error({count_too_small, Count, Min})
- end;
- true ->
- error({count_not_an_integer, Count})
- end.
-
-
-
-
-%% -------------------------------------------------------------------
-
-%% d(F) ->
-%% d(F,[]).
-%% d(F, A) ->
-%% d(get(dbg), F, A).
-%%
-%% d(true, F, A) ->
-%% io:format("~p:" ++ F ++ "~n", [?MODULE | A]);
-%% d(_, _, _) ->
-%% ok.
-%%
-
diff --git a/lib/megaco/src/text/megaco_text_gen_prev3c.hrl b/lib/megaco/src/text/megaco_text_gen_prev3c.hrl
deleted file mode 100644
index f73318161f..0000000000
--- a/lib/megaco/src/text/megaco_text_gen_prev3c.hrl
+++ /dev/null
@@ -1,3441 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2019. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: Encode V3 Megaco/H.248 text messages from internal form
-%%----------------------------------------------------------------------
-
-%% -define(d(F,A), io:format("~w:" ++ F ++ "~n", [?MODULE|A])).
-
--define(META_ENC(Type, Item), Item) .
-%% -define(META_ENC(Type, Item), megaco_meta_package:encode(text, Type, Item)).
-%% -define(META_DEC(Type, Item), megaco_meta_package:decode(text, Type, Item)).
-
-enc_MegacoMessage(Val) ->
- State = ?INIT_INDENT,
- enc_MegacoMessage(Val, State).
-
-enc_MegacoMessage(#'MegacoMessage'{authHeader = asn1_NOVALUE,
- mess = Mess}, State) ->
- [
- ?LWSP,
- enc_Message(Mess, State)
- ];
-enc_MegacoMessage(#'MegacoMessage'{authHeader = Auth,
- mess = Mess}, State) ->
- [
- ?LWSP,
- enc_AuthenticationHeader(Auth, State),
- enc_Message(Mess, State)
- ].
-
-%% Note that encoding the transaction this way
-%% make the message look a bit strange.
-enc_Transaction(Val) ->
- State = ?INIT_INDENT,
- enc_Transaction(Val, State).
-
-%% Note that encoding the action request's this way
-%% make the message look a bit strange.
-enc_ActionRequests(Val) ->
- State = ?INIT_INDENT,
- enc_TransactionRequest_actions(Val, State).
-
-%% Note that encoding the action request this way
-%% make the message look a bit strange.
-enc_ActionRequest(Val) ->
- State = ?INIT_INDENT,
- enc_ActionRequest(Val, State).
-
-enc_CommandRequest(Val) ->
- State = ?INIT_INDENT,
- enc_CommandRequest(Val, State).
-
-enc_ActionReply(Val) ->
- State = ?INIT_INDENT,
- enc_ActionReply(Val, State).
-
-enc_AuthenticationHeader(asn1_NOVALUE, _State) ->
- [];
-enc_AuthenticationHeader(Val, State)
- when is_record(Val, 'AuthenticationHeader') ->
- [
- ?AuthToken,
- ?EQUAL,
- enc_SecurityParmIndex(Val#'AuthenticationHeader'.secParmIndex, State),
- ?COLON,
- enc_SequenceNum(Val#'AuthenticationHeader'.seqNum, State),
- ?COLON,
- enc_AuthData(Val#'AuthenticationHeader'.ad, State),
- ?SEP_INDENT(State)
- ].
-
-enc_SecurityParmIndex({'SecurityParmIndex',Val}, State) ->
- enc_SecurityParmIndex(Val, State);
-enc_SecurityParmIndex(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 8, 8)
- ].
-
-enc_SequenceNum({'SequenceNum',Val}, State) ->
- enc_SequenceNum(Val, State);
-enc_SequenceNum(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 8, 8)
- ].
-
-enc_AuthData({'AuthData',Val}, State) ->
- enc_AuthData(Val, State);
-enc_AuthData(Val, State) ->
- [
- "0x",
- enc_HEXDIG(Val, State, 24, 64) %% OTP-4710
- ].
-
-enc_Message(Val, State)
- when is_record(Val, 'Message') ->
- [
- ?MegacopToken,
- ?SLASH,
- enc_version(Val#'Message'.version, State),
- ?SEP,
- enc_MId(Val#'Message'.mId, State),
- ?SEP_INDENT(State),
- enc_Message_messageBody(Val#'Message'.messageBody, State)
- ].
-
-enc_version(Val, State) when is_integer(Val) andalso (Val >= 0) ->
- enc_DIGIT(Val, State, 0, 99).
-
-enc_Message_messageBody({'Message_messageBody',Val}, State) ->
- enc_Message_messageBody(Val, State);
-enc_Message_messageBody({Tag, Val}, State) ->
- case Tag of
- messageError ->
- enc_ErrorDescriptor(Val, State);
- transactions ->
- enc_Message_messageBody_transactions(Val, State);
- _ ->
- error({invalid_messageBody_tag, Tag})
- end.
-
-enc_Message_messageBody_transactions({'Message_messageBody_transactions',Val},
- State) ->
- enc_Message_messageBody_transactions(Val, State);
-enc_Message_messageBody_transactions(Val, State)
- when is_list(Val) andalso (Val =/= []) ->
- [enc_Transaction(T, State) || T <- Val].
-
-enc_MId({'MId',Val}, State) ->
- enc_MId(Val, State);
-enc_MId({Tag, Val}, State) ->
- case Tag of
- ip4Address ->
- enc_IP4Address(Val, State);
- ip6Address ->
- enc_IP6Address(Val, State);
- domainName ->
- enc_DomainName(Val, State);
- deviceName ->
- enc_PathName(Val, State);
- mtpAddress ->
- enc_mtpAddress(Val, State);
- _ ->
- error({invalid_MId_tag, Tag})
- end.
-
-enc_mtpAddress(Val, State) ->
- [
- ?MtpToken,
- ?LBRKT,
- enc_OCTET_STRING(Val, State, 2, 4),
- ?RBRKT
- ].
-
-enc_DomainName(#'DomainName'{portNumber = asn1_NOVALUE,
- name = Name}, State) ->
- [
- $<,
- %% BUGBUG: (ALPHA / DIGIT) *63(ALPHA / DIGIT / "-" / ".")
- enc_STRING(Name, State, 1, 64),
- $>
- ];
-enc_DomainName(#'DomainName'{portNumber = PortNumber,
- name = Name}, State) ->
- [
- $<,
- %% BUGBUG: (ALPHA / DIGIT) *63(ALPHA / DIGIT / "-" / ".")
- enc_STRING(Name, State, 1, 64),
- $>,
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_IP4Address(#'IP4Address'{portNumber = asn1_NOVALUE,
- address = [A1, A2, A3, A4]}, State) ->
- [
- $[,
- enc_V4hex(A1, State),
- ?DOT,
- enc_V4hex(A2, State),
- ?DOT,
- enc_V4hex(A3, State),
- ?DOT,
- enc_V4hex(A4, State),
- $]
- ];
-enc_IP4Address(#'IP4Address'{portNumber = PortNumber,
- address = [A1, A2, A3, A4]}, State) ->
- [
- $[,
- enc_V4hex(A1, State),
- ?DOT,
- enc_V4hex(A2, State),
- ?DOT,
- enc_V4hex(A3, State),
- ?DOT,
- enc_V4hex(A4, State),
- $],
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_V4hex(Val, State) ->
- enc_DIGIT(Val, State, 0, 255).
-
-enc_IP6Address(#'IP6Address'{portNumber = asn1_NOVALUE,
- address = Addr}, State)
- when is_list(Addr) andalso (length(Addr) =:= 16) ->
- [
- $[,
- enc_IP6Address_address(Addr, State),
- $]
- ];
-enc_IP6Address(#'IP6Address'{portNumber = PortNumber,
- address = Addr}, State)
- when is_list(Addr) andalso (length(Addr) =:= 16) ->
- [
- $[,
- enc_IP6Address_address(Addr, State),
- $],
- $:,
- enc_portNumber(PortNumber, State)
- ].
-
-enc_IP6Address_address([0, 0|Addr], State) ->
- enc_IP6Address_address2(Addr, 1, false, true, State);
-enc_IP6Address_address(Addr, State) ->
- enc_IP6Address_address2(Addr, 0, false, false, State).
-
-enc_IP6Address_address2([0,0], 0, _Padding, _First, _State) ->
- [$0];
-enc_IP6Address_address2([0,0], PadN, false, true, _State) when PadN > 0 ->
- [$:, $:]; % Padding from the beginning (all zero's)
-enc_IP6Address_address2([0,0], PadN, false, false, _State) when PadN > 0 ->
- [$:]; % Padding in the middle or end
-enc_IP6Address_address2([0,0], _, true, _First, _State) ->
- [$0];
-enc_IP6Address_address2([N1,N2], 0, _Padding, _First, State) ->
- [enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], 1, _Padding, _First, State) ->
- [$0, $:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], PadN, false, true, State) when PadN > 1 ->
- [$:, $:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], PadN, false, false, State) when PadN > 1 ->
- [$:, enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([N1,N2], _PadN, true, _First, State) ->
- [enc_hex4([N1, N2], State)];
-enc_IP6Address_address2([0, 0|Ns], PadN, false, First, State) ->
- enc_IP6Address_address2(Ns, PadN+1, false, First, State);
-enc_IP6Address_address2([0, 0|Ns], _PadN, true, _First, State) ->
- [
- $0,
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], 0, Padded, _First, State) ->
- [
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, Padded, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], 1, Padded, _First, State) ->
- [
- $0,
- $:,
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, Padded, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], PadN, false, true, State) when PadN > 1 ->
- %% Padding from the beginning
- [
- $:,
- $:,
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], PadN, false, false, State)
- when PadN > 1 ->
- [
- $:, %% The other ':' has already added
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ];
-enc_IP6Address_address2([N1, N2|Ns], _PadN, true, _First, State) ->
- [
- enc_hex4([N1, N2], State),
- $:,
- enc_IP6Address_address2(Ns, 0, true, false, State)
- ].
-
-
-enc_hex4([0,0], _State) ->
- $0;
-enc_hex4([0,N], _State) ->
- hex(N);
-enc_hex4([N1, N2], _State) when N2 =< 15 ->
- [hex(N1), $0, hex(N2)];
-enc_hex4([N1, N2], _State) ->
- [hex(N1), hex(N2)].
-
-enc_PathName({'PathName',Val}, State) ->
- enc_PathName(Val, State);
-enc_PathName(Val, State) ->
- %% BUGBUG: ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
- %% BUGBUG: ["@" pathDomainName ]
- enc_STRING(Val, State, 1, 64).
-
-enc_Transaction(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_Transaction({'Transaction',Val}, State) ->
- enc_Transaction(Val, State);
-enc_Transaction({Tag, Val}, State) ->
- case Tag of
- transactionRequest ->
- enc_TransactionRequest(Val, State);
- transactionPending ->
- enc_TransactionPending(Val, State);
- transactionReply ->
- enc_TransactionReply(Val, State);
- transactionResponseAck ->
- enc_TransactionResponseAck(Val, State);
-%% segmentReply ->
-%% enc_SegmentReply(Val, State);
- _ ->
- error({invalid_Transaction_tag, Tag})
- end.
-
-enc_TransactionResponseAck([Mand], State) ->
- [
- ?ResponseAckToken,
- ?LBRKT_INDENT(State),
- [enc_TransactionAck(Mand, State)],
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionResponseAck([Mand | Opt], State) ->
- [
- ?ResponseAckToken,
- ?LBRKT_INDENT(State),
- [enc_TransactionAck(Mand, State) |
- [[?COMMA_INDENT(State), enc_TransactionAck(Val, State)] || Val <- Opt]],
- ?RBRKT_INDENT(State)
- ].
-
-enc_TransactionAck(Val, State)
- when is_record(Val, 'TransactionAck') ->
- [
- enc_TransactionId(Val#'TransactionAck'.firstAck, ?INC_INDENT(State)),
- case Val#'TransactionAck'.lastAck of
- asn1_NOVALUE ->
- [];
- LastAck ->
- ["-",enc_TransactionId(LastAck, State)]
- end
- ].
-
-enc_TransactionId({'TransactionId',Val}, State) ->
- enc_TransactionId(Val, State);
-enc_TransactionId(Val, State) ->
- enc_UINT32(Val, State).
-
-enc_TransactionRequest(#'TransactionRequest'{transactionId = Tid,
- actions = Acts}, State) ->
- [
- ?TransToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- enc_TransactionRequest_actions(Acts, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionRequest(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_TransactionRequest_actions(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_TransactionRequest_actions({'TransactionRequest_actions',Val}, State) ->
- enc_TransactionRequest_actions(Val, State);
-enc_TransactionRequest_actions([Mand], State) ->
- [enc_ActionRequest(Mand, State)];
-enc_TransactionRequest_actions([Mand | Opt], State) ->
- [enc_ActionRequest(Mand, State) |
- [[?COMMA_INDENT(State), enc_ActionRequest(Val, State)] || Val <- Opt]].
-
-enc_TransactionPending(#'TransactionPending'{transactionId = Tid}, State) ->
- [?PendingToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionPending(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_TransactionReply(#'TransactionReply'{transactionId = Tid,
- immAckRequired = asn1_NOVALUE,
- transactionResult = Res%% ,
-%% segmentationNumber = SegNo,
-%% segmentationComplete = SegCompl
- },
- State) ->
- [
- ?ReplyToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- enc_TransactionReply_transactionResult(Res, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionReply(#'TransactionReply'{transactionId = Tid,
- immAckRequired = Req,
- transactionResult = Res,
- %% These fields are actually not
- %% supported in this implementation,
- %% but because the messenger module
- %% cannot see any diff between the
- %% various v3 implementations...
- segmentNumber = asn1_NOVALUE,
- segmentationComplete = asn1_NOVALUE
- },
- State) ->
- [
- ?ReplyToken,
- ?EQUAL,
- enc_TransactionId(Tid, State),
- ?LBRKT_INDENT(State),
- enc_immAckRequired(Req, State),
- enc_TransactionReply_transactionResult(Res, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_TransactionReply(Bin, _State) when is_binary(Bin) ->
- [Bin].
-
-enc_immAckRequired(Val, _State) ->
- case Val of
- asn1_NOVALUE ->
- [];
- 'NULL' ->
- [?ImmAckRequiredToken, ?COMMA_INDENT(?INC_INDENT(_State))]
- end.
-
-enc_TransactionReply_transactionResult({'TransactionReply_transactionResult',
- Val}, State) ->
- enc_TransactionReply_transactionResult(Val, State);
-enc_TransactionReply_transactionResult({Tag, Val}, State) ->
- case Tag of
- transactionError ->
- enc_ErrorDescriptor(Val, State);
- actionReplies ->
- enc_TransactionReply_transactionResult_actionReplies(Val, State);
- _ ->
- error({invalid_TransactionReply_transactionResult_tag, Tag})
- end.
-
-enc_TransactionReply_transactionResult_actionReplies({'TransactionReply_transactionResult_actionReplies',Val}, State) ->
- enc_TransactionReply_transactionResult_actionReplies(Val, State);
-enc_TransactionReply_transactionResult_actionReplies([Mand], State) ->
- [enc_ActionReply(Mand, State)];
-enc_TransactionReply_transactionResult_actionReplies([Mand | Opt], State) ->
- [enc_ActionReply(Mand, State),
- [[?COMMA_INDENT(State), enc_ActionReply(Val, State)] || Val <- Opt]].
-
-enc_ErrorDescriptor(#'ErrorDescriptor'{errorText = asn1_NOVALUE,
- errorCode = Code}, State) ->
- [
- ?ErrorToken,
- ?EQUAL,
- enc_ErrorCode(Code, State),
- ?LBRKT,
- ?RBRKT
- ];
-enc_ErrorDescriptor(#'ErrorDescriptor'{errorText = Text,
- errorCode = Code}, State) ->
- [
- ?ErrorToken,
- ?EQUAL,
- enc_ErrorCode(Code, State),
- ?LBRKT,
- enc_ErrorText(Text, State),
- ?RBRKT
- ].
-
-enc_ErrorCode({'ErrorCode',Val}, State)->
- enc_ErrorCode(Val, State);
-enc_ErrorCode(Val, State) ->
- enc_DIGIT(Val, State, 0, 999).
-
-enc_ErrorText({'ErrorText',Val}, State) ->
- enc_ErrorText(Val, State);
-enc_ErrorText(Val, State) ->
- enc_QUOTED_STRING(Val, State).
-
-enc_ContextID({'ContextID',Val}, State) ->
- enc_ContextID(Val, State);
-enc_ContextID(Val, State) ->
- case Val of
- ?megaco_all_context_id -> $*;
- ?megaco_null_context_id -> $-;
- ?megaco_choose_context_id -> $$;
- Int when is_integer(Int) -> enc_UINT32(Int, State)
- end.
-
-enc_ActionRequest(Bin, _State) when is_binary(Bin) ->
- [Bin]; %% Already encoded...
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = asn1_NOVALUE,
- contextAttrAuditReq = asn1_NOVALUE,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = CtxReq,
- contextAttrAuditReq = asn1_NOVALUE,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{[CtxReq], fun enc_ContextRequest/2},
- {CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_ActionRequest(#'ActionRequest'{contextId = CID,
- contextRequest = CtxReq,
- contextAttrAuditReq = CtxAAR,
- commandRequests = CmdReqs}, State) ->
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(CID, State),
- ?LBRKT_INDENT(State),
- enc_list([{[CtxReq], fun enc_ContextRequest/2},
- {[CtxAAR], fun enc_ContextAttrAuditRequest/2},
- {CmdReqs, fun enc_CommandRequest/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% OTP-5085
-enc_ActionReply(#'ActionReply'{contextId = Id,
- errorDescriptor = asn1_NOVALUE,
- contextReply = asn1_NOVALUE,
- commandReply = []},
- State) ->
-%% d("enc_ActionReply -> entry with"
-%% "~n Id: ~p", [Id]),
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(Id, State)
- ];
-enc_ActionReply(#'ActionReply'{contextId = Id,
- errorDescriptor = ED,
- contextReply = CtxRep,
- commandReply = CmdRep},
- State) ->
-%% d("enc_ActionReply -> entry with"
-%% "~n Id: ~p"
-%% "~n ED: ~p"
-%% "~n CtxRep: ~p"
-%% "~n CmdRep: ~p", [Id, ED, CtxRep, CmdRep]),
- [
- ?CtxToken,
- ?EQUAL,
- enc_ContextID(Id, State),
- ?LBRKT_INDENT(State),
- do_enc_ActionReply(ED, CtxRep, CmdRep, State),
- ?RBRKT_INDENT(State)
- ].
-
-do_enc_ActionReply(asn1_NOVALUE, CtxRep, [], State)
- when (CtxRep =/= asn1_NOVALUE) ->
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State))
- ];
-do_enc_ActionReply(asn1_NOVALUE, CtxRep, CmdRep, State)
- when (CtxRep =/= asn1_NOVALUE) andalso (CmdRep =/= []) ->
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{CmdRep, fun enc_CommandReply/2}],
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(asn1_NOVALUE, asn1_NOVALUE, CmdRep, State)
- when (CmdRep =/= []) ->
- [
- enc_list([{CmdRep, fun enc_CommandReply/2}],
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, CtxRep, [], State)
- when (ED =/= asn1_NOVALUE) andalso (CtxRep =/= asn1_NOVALUE) ->
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, asn1_NOVALUE, CmdRep, State)
- when (ED =/= asn1_NOVALUE) andalso (CmdRep =/= []) ->
- [
- enc_list([{CmdRep, fun enc_CommandReply/2},
- {[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, CtxRep, CmdRep, State)
- when (ED =/= asn1_NOVALUE) andalso
- (CtxRep =/= asn1_NOVALUE) andalso
- (CmdRep =/= []) ->
- [
- enc_ContextRequest(CtxRep, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_list([{CmdRep, fun enc_CommandReply/2},
- {[ED], fun enc_ErrorDescriptor/2}], % Indention cosmetics
- ?INC_INDENT(State))
- ];
-do_enc_ActionReply(ED, asn1_NOVALUE, [], State)
- when (ED =/= asn1_NOVALUE) ->
- [
- enc_ErrorDescriptor(ED, ?INC_INDENT(State))
- ].
-
-
-enc_ContextRequest_priority(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_priority(Val, _State) ->
- {[Val], fun(X,S) -> [?PriorityToken,?EQUAL,enc_UINT16(X, S)] end}.
-
-enc_ContextRequest_emergency(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_emergency(true, _State) ->
- {[?EmergencyToken], fun(Elem, _) -> Elem end};
-enc_ContextRequest_emergency(false, _State) ->
- {[?EmergencyOffToken], fun(Elem, _) -> Elem end}.
-
-enc_ContextRequest_topologyReq(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_topologyReq({'ContextRequest_topologyReq',
- asn1_NOVALUE}, _State) ->
- {[], dummy};
-enc_ContextRequest_topologyReq({'ContextRequest_topologyReq',
- List}, _State) ->
- {List, fun enc_TopologyRequest/2};
-enc_ContextRequest_topologyReq(List, _State) ->
- {[List], fun enc_TopologyRequest/2}.
-
-enc_ContextRequest_iepscallind(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_iepscallind(Bool, _State) ->
- {[Bool], fun enc_iepsValue/2}.
-
-enc_ContextRequest_contextProp(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_contextProp([], _State) ->
- {[], dummy};
-enc_ContextRequest_contextProp(Props, _State) ->
- {[Props], fun(Elem, S) -> enc_contextAttrDescriptor(Elem, contextProps, S) end}.
-
-enc_ContextRequest_contextList(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextRequest_contextList([], _State) ->
- {[], dummy};
-enc_ContextRequest_contextList(Props, _State) ->
- {[Props], fun(Elem, S) ->
- enc_contextAttrDescriptor(Elem, contextList, S)
- end}.
-
-enc_contextAttrDescriptor([Mand|Opt], contextProps, State) ->
- [
- ?ContextAttrToken,
- ?LBRKT_INDENT(State),
- [enc_PropertyParm(Mand, State) |
- [[?COMMA_INDENT(State), enc_PropertyParm(Val, State)] || Val <- Opt]],
- ?RBRKT_INDENT(State)
- ];
-enc_contextAttrDescriptor(CtxIdList, contextList, State) ->
- [
- ?ContextAttrToken,
- ?LBRKT_INDENT(State),
- enc_contextIdList(CtxIdList, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_contextIdList([Mand|Opt], State) ->
- State2 = ?INC_INDENT(State),
- [
- ?ContextListToken,
- ?EQUAL,
- ?LBRKT_INDENT(State),
- [enc_ContextID(Mand, State2) |
- [[?COMMA_INDENT(State2), enc_ContextID(Val, State2)] || Val <- Opt]],
- ?RBRKT_INDENT(State)
- ].
-
-enc_ContextRequest(asn1_NOVALUE, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextProp = asn1_NOVALUE,
- contextList = asn1_NOVALUE}, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = [],
- iepscallind = asn1_NOVALUE,
- contextProp = [],
- contextList = []}, _State) ->
- [];
-enc_ContextRequest(#'ContextRequest'{priority = Prio,
- emergency = Em,
- topologyReq = TR,
- iepscallind = Ieps,
- contextProp = CP,
- contextList = CL}, State) ->
- [
- enc_list([enc_ContextRequest_priority(Prio, State),
- enc_ContextRequest_emergency(Em, State),
- enc_ContextRequest_topologyReq(TR, State),
- enc_ContextRequest_iepscallind(Ieps, State),
- enc_ContextRequest_contextProp(CP, State),
- enc_ContextRequest_contextList(CL, State)],
- State)
- ].
-
-
-%% -- contextAudit --
-%% contextAudit = ContextAuditToken LBRKT
-%% (contextAuditProperties *(COMMA contextAuditProperties)) /
-%% indAudcontextAttrDesscriptor
-%% RBRKT
-%% contextAuditProperties =
-%% (TopologyToken / EmergencyToken / PriorityToken /
-%% IEPSToken / pkgdName / contextAuditSelect)
-%% contextAuditSelect =
-%% priority / emergencyValue / iepsValue /
-%% contextAttrDescriptor / auditSelectLogic
-%% indAudcontextAttrDesscriptor =
-%% ContextAttrToken LBRKT
-%% (contextAuditProperties *(COMMA contextAuditProperties))
-%% RBRKT
-%%
-%% This could actually either be
-%% a) a list of contextAuditProperties:
-%% contextAuditProperties *(COMMA contextAuditProperties)
-%% b) a indAudcontextAttrDescriptor
-%% But since b) actually has the same content as a) with
-%% the extra ContextAttrToken, there does not seem to be any
-%% reason for using it.
-enc_ContextAttrAuditRequest(asn1_NOVALUE, _State) ->
- [];
-enc_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{topology = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- priority = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextPropAud = asn1_NOVALUE,
- selectpriority = asn1_NOVALUE,
- selectemergency = asn1_NOVALUE,
- selectiepscallind = asn1_NOVALUE,
- selectLogic = asn1_NOVALUE}, _State) ->
- [];
-enc_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{topology = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- priority = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextPropAud = [],
- selectpriority = asn1_NOVALUE,
- selectemergency = asn1_NOVALUE,
- selectiepscallind = asn1_NOVALUE,
- selectLogic = asn1_NOVALUE}, _State) ->
- [];
-enc_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{topology = Top,
- emergency = Em,
- priority = Prio,
- iepscallind = Ieps,
- contextPropAud = CPA,
- selectpriority = SPrio,
- selectemergency = SEm,
- selectiepscallind = SIeps,
- selectLogic = SL}, State) ->
- [
- ?ContextAuditToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Top], fun('NULL', _) -> ?TopologyToken end},
- {[Em], fun('NULL', _) -> ?EmergencyToken end},
- {[Prio], fun('NULL', _) -> ?PriorityToken end},
- {[Ieps], fun('NULL', _) -> ?IEPSToken end},
- {CPA, fun enc_IndAudPropertyParm/2},
- enc_ContextAttrAuditRequest_selectpriority(SPrio, State),
- enc_ContextAttrAuditRequest_selectemergency(SEm, State),
- enc_ContextAttrAuditRequest_selectiepscallind(SIeps, State),
- enc_ContextAttrAuditRequest_selectLogic(SL, State)],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_ContextAttrAuditRequest_selectpriority(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextAttrAuditRequest_selectpriority(SPrio, _State) ->
- {[SPrio], fun(X,S) -> [?PriorityToken,?EQUAL,enc_UINT16(X, S)] end}.
-
-enc_ContextAttrAuditRequest_selectemergency(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextAttrAuditRequest_selectemergency(SEm, _State) ->
- {[SEm], fun(X,S) -> enc_emergencyValue(X, S) end}.
-
-enc_ContextAttrAuditRequest_selectiepscallind(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextAttrAuditRequest_selectiepscallind(SEm, _State) ->
- {[SEm], fun(X,S) -> enc_iepsValue(X, S) end}.
-
-enc_ContextAttrAuditRequest_selectLogic(asn1_NOVALUE, _State) ->
- {[], dummy};
-enc_ContextAttrAuditRequest_selectLogic({andAUDITSelect, 'NULL'}, _State) ->
- {[], dummy}; % This is default so, there is no reason to add it
-enc_ContextAttrAuditRequest_selectLogic({orAUDITSelect, 'NULL'}, _State) ->
- {[?OrAUDITselectToken], fun(Elem, _) -> Elem end}.
-
-enc_emergencyValue(true, _) ->
- [?EmergencyValueToken,?EQUAL,?EmergencyToken];
-enc_emergencyValue(_, _) ->
- [?EmergencyValueToken,?EQUAL,?EmergencyOffToken].
-
-
-%% enc_IndAudContextAttrDescriptor(
-%% #'ContextAttrAuditRequest'{topology = Top,
-%% emergency = Em,
-%% priority = Prio,
-%% iepscallind = Ieps,
-%% contextPropAud = CPA,
-%% selectpriority = SelPrio,
-%% selectemergency = SelEm,
-%% selectiepscallind = SelIeps,
-%% selectLogic = SelLog}, State) ->
-%% [
-%% ?ContextAttrToken,
-%% ?LBRKT_INDENT(State),
-%% enc_list([{[Top], fun('NULL', _) -> ?TopologyToken end},
-%% {[Em], fun('NULL', _) -> ?EmergencyToken end},
-%% {[Prio], fun('NULL', _) -> ?PriorityToken end},
-%% {[Ieps], fun('NULL', _) -> ?IEPSToken end},
-%% {CPA, fun enc_IndAudPropertyParm/2}],
-%% ?INC_INDENT(State)),
-%% ?RBRKT_INDENT(State)
-%% ].
-
-enc_CommandRequest(#'CommandRequest'{optional = asn1_NOVALUE,
- wildcardReturn = asn1_NOVALUE,
- command = Cmd}, State) ->
- [
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = 'NULL',
- wildcardReturn = asn1_NOVALUE,
- command = Cmd}, State) ->
- [
- "O-",
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = asn1_NOVALUE,
- wildcardReturn = 'NULL',
- command = Cmd}, State) ->
- [
- "W-",
- enc_Command(Cmd, State)
- ];
-enc_CommandRequest(#'CommandRequest'{optional = 'NULL',
- wildcardReturn = 'NULL',
- command = Cmd}, State) ->
- [
- "O-",
- "W-",
- enc_Command(Cmd, State)
- ].
-
-enc_Command({'Command',Val}, State) ->
- enc_Command(Val, State);
-enc_Command({Tag, Val}, State) ->
-%% d("enc_Command -> entry with"
-%% "~n Tag: ~p"
-%% "~n Val: ~p", [Tag, Val]),
- case Tag of
- addReq ->
- [?AddToken, enc_AmmRequest(Val, State)];
- moveReq ->
- [?MoveToken, enc_AmmRequest(Val, State)];
- modReq ->
- [?ModifyToken, enc_AmmRequest(Val, State)];
- subtractReq ->
- [?SubtractToken, enc_SubtractRequest(Val, State)];
- auditCapRequest ->
- [?AuditCapToken, enc_AuditRequest(Val, State)];
- auditValueRequest ->
- [?AuditValueToken, enc_AuditRequest(Val, State)];
- notifyReq ->
- [?NotifyToken, enc_NotifyRequest(Val, State)];
- serviceChangeReq ->
- [?ServiceChangeToken, enc_ServiceChangeRequest(Val, State)];
- _ ->
- error({invalid_Command_tag, Tag})
- end.
-
-enc_CommandReply({'CommandReply',Val}, State) ->
- enc_CommandReply(Val, State);
-enc_CommandReply({Tag, Val}, State) ->
-%% d("enc_CommandReply -> entry with"
-%% "~n Tag: ~p"
-%% "~n Val: ~p", [Tag, Val]),
- case Tag of
- addReply ->
- [?AddToken, enc_AmmsReply(Val, State)];
- moveReply ->
- [?MoveToken, enc_AmmsReply(Val, State)];
- modReply ->
- [?ModifyToken, enc_AmmsReply(Val, State)];
- subtractReply ->
- [?SubtractToken, enc_AmmsReply(Val, State)];
- auditCapReply ->
- [?AuditCapToken, enc_AuditReply(Val, State)];
- auditValueReply ->
- [?AuditValueToken, enc_AuditReply(Val, State)];
- notifyReply ->
- [?NotifyToken, enc_NotifyReply(Val, State)];
- serviceChangeReply ->
- [?ServiceChangeToken, enc_ServiceChangeReply(Val, State)];
- _ ->
- error({invalid_CommandReply_tag, Tag})
- end.
-
-enc_TopologyRequest(Val, State)
- when is_list(Val) ->
- [
- ?TopologyToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val, fun enc_TopologyRequest1/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_TopologyRequest1(
- #'TopologyRequest'{terminationFrom = From,
- terminationTo = To,
- topologyDirection = TD,
- streamID = asn1_NOVALUE, % OPTIONAL
- topologyDirectionExtension = asn1_NOVALUE % OPTIONAL
- }, State) ->
- [
- enc_TerminationID(From, State),
- ?COMMA_INDENT(State),
- enc_TerminationID(To, State),
- ?COMMA_INDENT(State),
- enc_TopologyDirection(TD, State)
- ];
-enc_TopologyRequest1(
- #'TopologyRequest'{terminationFrom = From,
- terminationTo = To,
- topologyDirection = TD,
- streamID = SID, % OPTIONAL
- topologyDirectionExtension = asn1_NOVALUE}, % OPTIONAL
- State) when (SID =/= asn1_NOVALUE) ->
- [
- enc_TerminationID(From, State),
- ?COMMA_INDENT(State),
- enc_TerminationID(To, State),
- ?COMMA_INDENT(State),
- enc_TopologyDirection(TD, State),
- ?COMMA_INDENT(State),
- enc_StreamID(SID, State)
- ];
-enc_TopologyRequest1(
- #'TopologyRequest'{terminationFrom = From,
- terminationTo = To,
- topologyDirection = TD,
- streamID = asn1_NOVALUE, % OPTIONAL
- topologyDirectionExtension = TDE}, % OPTIONAL
- State) when (TDE =/= asn1_NOVALUE) ->
- [
- enc_TerminationID(From, State),
- ?COMMA_INDENT(State),
- enc_TerminationID(To, State),
- ?COMMA_INDENT(State),
- enc_TopologyDirection(TD, State),
- ?COMMA_INDENT(State),
- enc_TopologyDirectionExtension(TDE, State)
- ];
-enc_TopologyRequest1(
- #'TopologyRequest'{terminationFrom = From,
- terminationTo = To,
- topologyDirection = TD,
- streamID = SID, % OPTIONAL
- topologyDirectionExtension = TDE}, % OPTIONAL
- State) when (SID =/= asn1_NOVALUE) andalso (TDE =/= asn1_NOVALUE) ->
- [
- enc_TerminationID(From, State),
- ?COMMA_INDENT(State),
- enc_TerminationID(To, State),
- ?COMMA_INDENT(State),
- enc_TopologyDirection(TD, State),
- ?COMMA_INDENT(State),
- enc_StreamID(SID, State),
- ?COMMA_INDENT(State),
- enc_TopologyDirectionExtension(TDE, State)
- ].
-
-enc_TopologyDirection(bothway, _State) ->
- ?BothwayToken;
-enc_TopologyDirection(isolate, _State) ->
- ?IsolateToken;
-enc_TopologyDirection(oneway, _State) ->
- ?OnewayToken.
-
-enc_TopologyDirectionExtension(onewayexternal, _State) ->
- ?OnewayExternalToken;
-enc_TopologyDirectionExtension(onewayboth, _State) ->
- ?OnewayBothToken.
-
-enc_iepsValue(Val, _State) ->
- [
- ?IEPSToken,
- ?EQUAL,
- case Val of
- false -> ?OffToken;
- true -> ?OnToken
- end
- ].
-
-
-
-enc_AmmRequest(#'AmmRequest'{terminationID = TIDs,
- descriptors = Ds}, State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State),
- enc_opt_brackets(
- enc_list([{Ds, fun enc_ammDescriptor/2}], ?INC_INDENT(State)),
- State)
- ].
-
-enc_ammDescriptor({Tag, Desc}, State) ->
- case Tag of
- mediaDescriptor -> enc_MediaDescriptor(Desc, State);
- modemDescriptor -> enc_ModemDescriptor(Desc, State);
- muxDescriptor -> enc_MuxDescriptor(Desc, State);
- eventsDescriptor -> enc_EventsDescriptor(Desc, State);
- eventBufferDescriptor -> enc_EventBufferDescriptor(Desc, State);
- signalsDescriptor -> enc_SignalsDescriptor(Desc, State);
- digitMapDescriptor -> enc_DigitMapDescriptor(Desc, State);
- auditDescriptor -> enc_AuditDescriptor(Desc, State);
- statisticsDescriptor -> enc_StatisticsDescriptor(Desc, State);
- _ ->
- error({invalid_ammDescriptor_tag, Tag})
- end.
-
-enc_AmmsReply(#'AmmsReply'{terminationID = TIDs,
- terminationAudit = asn1_NOVALUE}, State) ->
- [
- ?EQUAL,
- enc_termIDList(TIDs, State)
- ];
-enc_AmmsReply(#'AmmsReply'{terminationID = TIDs,
- terminationAudit = []}, State) ->
- [
- ?EQUAL,
- enc_termIDList(TIDs, State)
- ];
-enc_AmmsReply(#'AmmsReply'{terminationID = TIDs,
- terminationAudit = Res}, State) ->
- [
- ?EQUAL,
- enc_termIDList(TIDs, State),
- case lists:flatten(enc_TerminationAudit(Res, ?INC_INDENT(State))) of
- [] ->
- [];
- L ->
- [
- ?LBRKT_INDENT(State),
- L,
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-enc_SubtractRequest(#'SubtractRequest'{terminationID = TIDs,
- auditDescriptor = asn1_NOVALUE},
- State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State)
- ];
-enc_SubtractRequest(#'SubtractRequest'{terminationID = TIDs,
- auditDescriptor = AD},
- State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State),
- ?LBRKT_INDENT(State),
- enc_AuditDescriptor(AD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_AuditRequest(#'AuditRequest'{terminationID = TID,
- auditDescriptor = asn1_NOVALUE,
- terminationIDList = asn1_NOVALUE}, State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList([TID], State)
- ];
-enc_AuditRequest(#'AuditRequest'{terminationID = TID,
- auditDescriptor = asn1_NOVALUE,
- terminationIDList = [TID|_] = TIDList},
- State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDList, State)
- ];
-enc_AuditRequest(#'AuditRequest'{terminationID = TID,
- auditDescriptor = asn1_NOVALUE,
- terminationIDList = TIDList},
- _State) ->
- error({invalid_terminationID, TID, TIDList});
-enc_AuditRequest(#'AuditRequest'{terminationID = TID,
- auditDescriptor = AD,
- terminationIDList = asn1_NOVALUE}, State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList([TID], State),
- ?LBRKT_INDENT(State),
- enc_AuditDescriptor(AD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_AuditRequest(#'AuditRequest'{terminationID = TID,
- auditDescriptor = AD,
- terminationIDList = [TID|_] = TIDList},
- State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDList, State),
- ?LBRKT_INDENT(State),
- enc_AuditDescriptor(AD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_AuditRequest(#'AuditRequest'{terminationID = TID,
- auditDescriptor = _AD,
- terminationIDList = TIDList},
- _State) ->
- error({invalid_terminationID, TID, TIDList}).
-
-%% auditReply = (AuditValueToken / AuditCapToken )
-%% ( contextTerminationAudit / auditOther)
-%% auditOther = EQUAL TerminationID LBRKT
-%% terminationAudit RBRKT
-%% terminationAudit = auditReturnParameter *(COMMA auditReturnParameter)
-%%
-%% contextTerminationAudit = EQUAL CtxToken ( terminationIDList /
-%% LBRKT errorDescriptor RBRKT )
-enc_AuditReply({Tag, Val}, State) ->
-%% d("enc_AuditReply -> entry with"
-%% "~n Tag: ~p"
-%% "~n Val: ~p", [Tag, Val]),
- case Tag of
- contextAuditResult ->
- [
- ?EQUAL,
- ?CtxToken,
- enc_TerminationIDList(Val, State)
- ];
- error ->
- [
- ?EQUAL,
- ?CtxToken,
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
- auditResult when is_record(Val, 'AuditResult') ->
- enc_auditOther(Val, State);
- auditResult ->
- error({invalid_auditResult, Val});
- auditResultTermList ->
- enc_TermListAuditResult(Val, State);
- _ ->
- error({invalid_AuditReply_tag, Tag})
- end.
-
-%% This is actually the same as AuditResult with the exception
-%% that instead of terminationID we have terminationIDList.
-enc_TermListAuditResult(
- #'TermListAuditResult'{terminationIDList = TIDList,
- terminationAuditResult = asn1_NOVALUE}, State) ->
-%% d("enc_TermListAuditResult -> entry with"
-%% "~n TIDList: ~p", [TIDList]),
- [
- ?EQUAL,
- enc_termIDList(TIDList, State)
- ];
-enc_TermListAuditResult(
- #'TermListAuditResult'{terminationIDList = TIDList,
- terminationAuditResult = []}, State) ->
-%% d("enc_TermListAuditResult -> entry with"
-%% "~n TIDList: ~p", [TIDList]),
- [
- ?EQUAL,
- enc_termIDList(TIDList, State)
- ];
-enc_TermListAuditResult(
- #'TermListAuditResult'{terminationIDList = TIDList,
- terminationAuditResult = TAR}, State) ->
-%% d("enc_TermListAuditResult -> entry with"
-%% "~n TIDList: ~p"
-%% "~n TAR: ~p", [TIDList, TAR]),
- [
- ?EQUAL,
- enc_termIDList(TIDList, State),
- case lists:flatten(enc_TerminationAudit(TAR, ?INC_INDENT(State))) of
- [] ->
- [];
- L ->
- [
- ?LBRKT_INDENT(State),
- L,
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-enc_auditOther(#'AuditResult'{terminationID = TID,
- terminationAuditResult = asn1_NOVALUE}, State) ->
- [
- ?EQUAL,
- enc_termIDList([TID], State)
- ];
-enc_auditOther(#'AuditResult'{terminationID = TID,
- terminationAuditResult = []}, State) ->
- [
- ?EQUAL,
- enc_termIDList([TID], State)
- ];
-enc_auditOther(#'AuditResult'{terminationID = TID,
- terminationAuditResult = Res}, State) ->
- [
- ?EQUAL,
- enc_termIDList([TID], State),
- case lists:flatten(enc_TerminationAudit(Res, ?INC_INDENT(State))) of
- [] ->
- [];
- L ->
- [
- ?LBRKT_INDENT(State),
- L,
- ?RBRKT_INDENT(State)
- ]
- end
- ].
-
-
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = asn1_NOVALUE,
- auditPropertyToken = asn1_NOVALUE},
- _State) ->
-% d("enc_AuditDescriptor(asn1_NOVALUE) -> entry"),
- [
- ?AuditToken,
- [?LBRKT, ?RBRKT]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = [],
- auditPropertyToken = asn1_NOVALUE},
- _State) ->
-% d("enc_AuditDescriptor([]) -> entry"),
- [
- ?AuditToken,
- [?LBRKT, ?RBRKT]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = List,
- auditPropertyToken = asn1_NOVALUE},
- State) ->
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_auditItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- ];
-%% - v2 -
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = asn1_NOVALUE,
- auditPropertyToken = Prop},
- State) ->
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_auditPropertyToken(Prop, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- ];
-enc_AuditDescriptor(#'AuditDescriptor'{auditToken = List,
- auditPropertyToken = Prop},
- State) ->
- [
- ?AuditToken,
- [
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_auditItem/2}], ?INC_INDENT(State)),
- ?COMMA_INDENT(State),
- enc_auditPropertyToken(Prop, ?INC_INDENT(State)), % v2
- ?RBRKT_INDENT(State)
- ]
- ].
-
-enc_auditItem(signalsToken, _State) ->
- ?SignalsToken;
-enc_auditItem(eventBufferToken, _State) ->
- ?EventBufferToken;
-enc_auditItem(eventsToken, _State) ->
- ?EventsToken;
-enc_auditItem(Val, State) ->
- enc_auditReturnItem(Val, State).
-
-
-enc_auditReturnItem(muxToken, _State) ->
- ?MuxToken;
-enc_auditReturnItem(modemToken, _State) ->
- ?ModemToken;
-enc_auditReturnItem(mediaToken, _State) ->
- ?MediaToken;
-enc_auditReturnItem(digitMapToken, _State) ->
- ?DigitMapToken;
-enc_auditReturnItem(statsToken, _State) ->
- ?StatsToken;
-enc_auditReturnItem(observedEventsToken, _State) ->
- ?ObservedEventsToken;
-enc_auditReturnItem(packagesToken, _State) ->
- ?PackagesToken.
-
-
-%% - v2 begin -
-
-enc_auditPropertyToken([], _State) ->
- [];
-enc_auditPropertyToken([Param | Params], State) ->
- [enc_IndAudauditReturnParameter(Param, State),
- [[?COMMA_INDENT(State),
- enc_IndAudauditReturnParameter(P, State)] || P <- Params]].
-
-
-enc_IndAudauditReturnParameter({Tag, Val}, State) ->
- case Tag of
- indAudMediaDescriptor ->
- enc_IndAudMediaDescriptor(Val, State);
- indAudEventsDescriptor ->
- enc_IndAudEventsDescriptor(Val, State);
- indAudSignalsDescriptor ->
- enc_IndAudSignalsDescriptor(Val, State);
- indAudDigitMapDescriptor ->
- enc_IndAudDigitMapDescriptor(Val, State);
- indAudEventBufferDescriptor ->
- enc_IndAudEventBufferDescriptor(Val, State);
- indAudStatisticsDescriptor ->
- enc_IndAudStatisticsDescriptor(Val, State);
- indAudPackagesDescriptor ->
- enc_IndAudPackagesDescriptor(Val, State);
- _ ->
- error({invalid_IndAudauditReturnParameter_tag, Tag})
- end.
-
-enc_IndAudMediaDescriptor(
- #'IndAudMediaDescriptor'{termStateDescr = asn1_NOVALUE,
- streams = Streams}, State) ->
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_IndAudMediaDescriptor_streams(Streams, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudMediaDescriptor(
- #'IndAudMediaDescriptor'{termStateDescr = TSD,
- streams = asn1_NOVALUE}, State) ->
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_IndAudTerminationStateDescriptor(TSD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudMediaDescriptor(
- #'IndAudMediaDescriptor'{termStateDescr = TSD,
- streams = Streams}, State) ->
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_IndAudTerminationStateDescriptor(TSD, ?INC_INDENT(State)),
- ?COMMA_INDENT(State),
- enc_IndAudMediaDescriptor_streams(Streams, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudMediaDescriptor_streams({oneStream, Val}, State) ->
- enc_IndAudStreamParms(Val, State);
-enc_IndAudMediaDescriptor_streams({multiStream, Val}, State) ->
- enc_IndAudMediaDescriptor_multiStream(Val, State);
-enc_IndAudMediaDescriptor_streams({Tag, _Val}, _State) ->
- error({invalid_IndAudMediaDescriptor_streams_tag, Tag}).
-
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [],
- eventBufferControl = asn1_NOVALUE,
- serviceState = 'NULL',
- serviceStateSel = asn1_NOVALUE},
- _State) ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(_State),
- ?ServiceStatesToken,
- ?RBRKT_INDENT(_State)
- ];
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [],
- eventBufferControl = asn1_NOVALUE,
- serviceState = asn1_NOVALUE,
- serviceStateSel = SSS},
- State) when (SSS =/= asn1_NOVALUE) ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(State),
- enc_serviceState(SSS, State),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [],
- eventBufferControl = 'NULL',
- serviceState = asn1_NOVALUE,
- serviceStateSel = asn1_NOVALUE},
- _State) ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(_State),
- ?BufferToken,
- ?RBRKT_INDENT(_State)
- ];
-enc_IndAudTerminationStateDescriptor(
- #'IndAudTerminationStateDescriptor'{propertyParms = [Parms],
- eventBufferControl = asn1_NOVALUE,
- serviceState = asn1_NOVALUE,
- serviceStateSel = asn1_NOVALUE},
- State) ->
- #'IndAudPropertyParm'{name = Name} = Parms,
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudStreamParms(
- #'IndAudStreamParms'{localControlDescriptor = LCD,
- localDescriptor = LD,
- remoteDescriptor = RD,
- statisticsDescriptor = SD}, State) ->
- [
- enc_list([{[LCD], fun enc_IndAudLocalControlDescriptor/2},
- {[LD], fun enc_remoteDescriptor/2},
- {[RD], fun enc_localDescriptor/2},
- {[SD], fun enc_IndAudStatisticsDescriptor/2}],
- ?INC_INDENT(State))
- ].
-
-enc_IndAudLocalControlDescriptor(
- #'IndAudLocalControlDescriptor'{streamMode = SM,
- reserveValue = RV,
- reserveGroup = RG,
- propertyParms = PP,
- streamModeSel = asn1_NOVALUE}, State) ->
- [
- ?LocalControlToken,
- ?LBRKT_INDENT(State),
- enc_list([{[SM], fun('NULL', _) -> ?ModeToken end},
- {[RV], fun('NULL', _) -> ?ReservedValueToken end},
- {[RG], fun('NULL', _) -> ?ReservedGroupToken end},
- {PP, fun enc_IndAudPropertyParm/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudLocalControlDescriptor(
- #'IndAudLocalControlDescriptor'{streamMode = asn1_NOVALUE,
- reserveValue = RV,
- reserveGroup = RG,
- propertyParms = PP,
- streamModeSel = SMS}, State) ->
- [
- ?LocalControlToken,
- ?LBRKT_INDENT(State),
- enc_list([{[RV], fun('NULL', _) -> ?ReservedValueToken end},
- {[RG], fun('NULL', _) -> ?ReservedGroupToken end},
- { PP, fun enc_IndAudPropertyParm/2},
- {[SMS], fun enc_StreamMode/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudPropertyParm(#'IndAudPropertyParm'{name = Name, propertyParms = PP},
- State) ->
- [
- enc_list([{[Name], fun enc_PkgdName/2},
- {[PP], fun enc_PropertyParm/2}], State)
- ].
-
-enc_IndAudMediaDescriptor_multiStream(Val, State) when is_list(Val) ->
- [
- enc_list([{Val, fun enc_IndAudStreamDescriptor/2}], State)
- ];
-enc_IndAudMediaDescriptor_multiStream(Val, _State) ->
- error({invalid_IndAudMediaDescriptor_multiStream, Val}).
-
-enc_IndAudStreamDescriptor(#'IndAudStreamDescriptor'{streamID = SID,
- streamParms = Parms},
- State) ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(SID, State),
- ?LBRKT_INDENT(State),
- enc_IndAudStreamParms(Parms, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventBufferDescriptor(
- #'IndAudEventBufferDescriptor'{eventName = EvName,
- streamID = ID}, State) ->
- [
- ?EventBufferToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(EvName, State),
- enc_IndAudEventBufferDescriptor_eventSpec(ID, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventBufferDescriptor_eventSpec(asn1_NOVALUE, _State) ->
- [
- ];
-enc_IndAudEventBufferDescriptor_eventSpec({eventParameterName, ParamName},
- State) ->
- [
- ?LBRKT_INDENT(State),
- enc_Name(ParamName, State),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudEventBufferDescriptor_eventSpec({eventStream, ID}, State) ->
- [
- ?LBRKT_INDENT(State),
- enc_eventStream(ID, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudEventBufferDescriptor_eventSpec(ID, State) ->
- [
- ?LBRKT_INDENT(State),
- enc_eventStream(ID, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudEventsDescriptor(
- #'IndAudEventsDescriptor'{requestID = asn1_NOVALUE,
- pkgdName = Name,
- streamID = asn1_NOVALUE}, State) ->
- [
- ?EventsToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ];
-enc_IndAudEventsDescriptor(
- #'IndAudEventsDescriptor'{requestID = RID,
- pkgdName = Name,
- streamID = asn1_NOVALUE}, State) ->
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(RID, State),
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_IndAudSignalsDescriptor(asn1_NOVALUE, _State) ->
- [
- ?SignalsToken,
- ?LBRKT_INDENT(_State),
- ?RBRKT_INDENT(_State)
- ];
-enc_IndAudSignalsDescriptor(Val, State) ->
- [
- ?SignalsToken,
- ?LBRKT_INDENT(State),
- enc_IndAudSignalsDescriptor_value(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudSignalsDescriptor_value({signal, Val}, State) ->
- enc_IndAudSignal(Val, State);
-enc_IndAudSignalsDescriptor_value({seqSigList, Val}, State) ->
- enc_IndAudSeqSigList(Val, State).
-
-enc_IndAudSignal(#'IndAudSignal'{signalName = SignalName,
- streamID = asn1_NOVALUE,
- signalRequestID = asn1_NOVALUE}, State) ->
- [
- enc_SignalName(SignalName, State)
- ];
-enc_IndAudSignal(#'IndAudSignal'{signalName = SignalName,
- streamID = SID,
- signalRequestID = SRID}, State) ->
- [
- enc_SignalName(SignalName, State),
- ?LBRKT_INDENT(State),
- enc_list([{[SID], fun enc_StreamID/2},
- {[SRID], fun enc_sigRequestID/2}],
- State),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudSeqSigList(#'IndAudSeqSigList'{id = ID,
- signalList = asn1_NOVALUE},
- State) ->
- [
- ?SignalListToken,
- ?EQUAL,
- enc_UINT16(ID, State)
- ];
-enc_IndAudSeqSigList(#'IndAudSeqSigList'{id = ID,
- signalList = SL},
- State) ->
- [
- ?SignalListToken,
- ?EQUAL,
- enc_UINT16(ID, State),
- ?LBRKT_INDENT(State),
- enc_IndAudSignal(SL, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_IndAudDigitMapDescriptor(#'IndAudDigitMapDescriptor'{digitMapName = Name},
- State) ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ].
-
-enc_IndAudStatisticsDescriptor(#'IndAudStatisticsDescriptor'{statName = Name},
- State) ->
- [
- ?StatsToken,
- ?LBRKT_INDENT(State),
- enc_PkgdName(Name, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_IndAudPackagesDescriptor(#'IndAudPackagesDescriptor'{packageName = N,
- packageVersion = V},
- State) ->
- [
- ?PackagesToken,
- ?LBRKT_INDENT(State),
- enc_Name(N, State),
- "-",
- enc_UINT16(V, State),
- ?RBRKT_INDENT(State)
- ].
-
-
-%% - v2 end -
-
-
-enc_TerminationAudit({'TerminationAudit', Val}, State) ->
- enc_TerminationAudit(Val, State);
-enc_TerminationAudit([Mand | Opt], State) ->
- [enc_AuditReturnParameter(Mand, State),
- [[?COMMA_INDENT(State), enc_AuditReturnParameter(Val, State)] || Val <- Opt]].
-
-enc_AuditReturnParameter({'AuditReturnParameter',Val}, State) ->
- enc_AuditReturnParameter(Val, State);
-enc_AuditReturnParameter({Tag, Val}, State) ->
-%% d("enc_AuditReturnParameter -> entry with"
-%% "~n Tag: ~p"
-%% "~n Val: ~p", [Tag, Val]),
- case Tag of
- mediaDescriptor ->
- enc_MediaDescriptor(Val, State);
- modemDescriptor ->
- enc_ModemDescriptor(Val, State);
- muxDescriptor ->
- enc_MuxDescriptor(Val, State);
- eventsDescriptor ->
- enc_EventsDescriptor(Val, State);
- signalsDescriptor ->
- enc_SignalsDescriptor(Val, State);
- digitMapDescriptor ->
- enc_DigitMapDescriptor(Val, State);
- observedEventsDescriptor ->
- enc_ObservedEventsDescriptor(Val, State);
- eventBufferDescriptor ->
- enc_EventBufferDescriptor(Val, State);
- statisticsDescriptor ->
- enc_StatisticsDescriptor(Val, State);
- packagesDescriptor ->
- enc_PackagesDescriptor(Val, State);
- errorDescriptor ->
- enc_ErrorDescriptor(Val, State);
- emptyDescriptors ->
- enc_EmptyDescriptors(Val, State);
- _ ->
- error({invalid_AuditReturnParameter_tag, Tag})
- end.
-
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = asn1_NOVALUE}, _State) ->
- [];
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = []}, _State) ->
- [];
-enc_EmptyDescriptors(#'AuditDescriptor'{auditToken = List}, State) ->
-%% d("enc_AuditReturnParameter -> entry with"
-%% "~n List: ~p", [List]),
- enc_list([{List, fun enc_auditReturnItem/2}], State).
-
-
-enc_NotifyRequest(#'NotifyRequest'{terminationID = TIDs,
- observedEventsDescriptor = OED,
- errorDescriptor = asn1_NOVALUE},
- State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State),
- ?LBRKT_INDENT(State),
- enc_ObservedEventsDescriptor(OED, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_NotifyRequest(#'NotifyRequest'{terminationID = TIDs,
- observedEventsDescriptor = OED,
- errorDescriptor = ED}, State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State),
- ?LBRKT_INDENT(State),
- enc_ObservedEventsDescriptor(OED, ?INC_INDENT(State)),
- ?COMMA,
- enc_ErrorDescriptor(ED, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_NotifyReply(#'NotifyReply'{terminationID = TIDs,
- errorDescriptor = asn1_NOVALUE}, State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State)
- ];
-enc_NotifyReply(#'NotifyReply'{terminationID = TIDs,
- errorDescriptor = ED}, State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State),
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(ED, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_ObservedEventsDescriptor(
- #'ObservedEventsDescriptor'{requestId = RID,
- observedEventLst = OEL}, State) ->
- [
- ?ObservedEventsToken,
- ?EQUAL,
- enc_RequestID(RID, State),
- ?LBRKT_INDENT(State),
- enc_observedEvents(OEL, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_observedEvents([Mand | Opt], State) ->
- [enc_ObservedEvent(Mand, State),
- [[?COMMA_INDENT(State), enc_ObservedEvent(Val, State)] || Val <- Opt]].
-
-%% ;time per event, because it might be buffered
-%% observedEvent = [ TimeStamp LWSP COLON] LWSP
-%% pkgdName [ LBRKT observedEventParameter
-%% *(COMMA observedEventParameter) RBRKT ]
-%%
-%% ;at-most-once eventStream, every eventParameterName at most once
-%% observedEventParameter = eventStream / eventOther
-enc_ObservedEvent(#'ObservedEvent'{eventName = EN,
- streamID = SID,
- eventParList = EPL,
- timeNotation = asn1_NOVALUE}, State) ->
- [
- ?LWSP,
- enc_EventName(EN, State),
- enc_opt_brackets(
- enc_list([{[SID], fun enc_eventStream/2},
- { EPL, fun enc_eventOther/2}],
- ?INC_INDENT(State)),
- State)
- ];
-enc_ObservedEvent(#'ObservedEvent'{eventName = EN,
- streamID = SID,
- eventParList = EPL,
- timeNotation = TN}, State) ->
- [
- enc_TimeNotation(TN, State),
- ?LWSP,
- ?COLON,
- ?LWSP,
- enc_EventName(EN, State),
- enc_opt_brackets(
- enc_list([{[SID], fun enc_eventStream/2},
- {EPL, fun enc_eventOther/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_EventName({'EventName', Val}, State) ->
- enc_EventName(Val, State);
-enc_EventName(Val, State) ->
- PkgdName = ?META_ENC(event, Val),
- enc_PkgdName(PkgdName, State).
-
-enc_eventStream(Val, State) ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val, State)
- ].
-
-%% The value is already encoded
-enc_eventOther(#megaco_event_parameter{name = Name,
- value = Value}, State)
- when is_list(Value) ->
- [
- enc_Name(Name, State),
- ?EqualToken,
- Value
- ];
-%% Special treatment of the ds parameter of the dd/ce event
-enc_eventOther(#'EventParameter'{eventParameterName = "ds" = Name,
- value = [DigitString],
- extraInfo = asn1_NOVALUE}, State) ->
- [
- enc_Name(Name, State),
- ?EqualToken,
- enc_DigitString(DigitString, State)
- ];
-enc_eventOther(#'EventParameter'{eventParameterName = Name,
- value = Value,
- extraInfo = Extra}, State) ->
- [
- enc_Name(Name, State),
- enc_propertyParmValues(Value, Extra, State)
- ].
-
-enc_ServiceChangeRequest(
- #'ServiceChangeRequest'{terminationID = TIDs,
- serviceChangeParms = Parms}, State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State),
- ?LBRKT_INDENT(State),
- enc_ServiceChangeParm(Parms, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% serviceChangeReply = ServiceChangeToken EQUAL TerminationID
-%% [LBRKT (errorDescriptor /
-%% serviceChangeReplyDescriptor) RBRKT]
-%% serviceChangeReplyDescriptor = ServicesToken LBRKT
-%% servChgReplyParm *(COMMA servChgReplyParm) RBRKT
-%%
-%% ;at-most-once. Version is REQUIRED on first ServiceChange response
-%% servChgReplyParm = (serviceChangeAddress / serviceChangeMgcId /
-%% serviceChangeProfile / serviceChangeVersion )
-enc_ServiceChangeReply(
- #'ServiceChangeReply'{terminationID = TIDs,
- serviceChangeResult = Res}, State) ->
- [
- %% Assume that Token is added elsewhere
- ?EQUAL,
- enc_termIDList(TIDs, State),
- enc_ServiceChangeResult(Res, State)
- ].
-
-enc_ServiceChangeResult({'ServiceChangeResult', Val}, State) ->
- enc_ServiceChangeResult(Val, State);
-enc_ServiceChangeResult({errorDescriptor, Val}, State) ->
- [
- ?LBRKT_INDENT(State),
- enc_ErrorDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_ServiceChangeResult({serviceChangeResParms, Val}, State) ->
- case enc_ServiceChangeResParm(Val, ?INC_INDENT(?INC_INDENT(State))) of
- [] ->
- [];
- ResParms ->
- [
- ?LBRKT_INDENT(State),
- ?ServicesToken,
- fun(_S) ->
- [
- ?LBRKT_INDENT(_S),
- ResParms,
- ?RBRKT_INDENT(_S)
- ]
- end(?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
-enc_ServiceChangeResult({Tag, _}, _State) ->
- error({invalid_ServiceChangeResult_tag, Tag}).
-
-%% %% Required length of termination ID list is 1
-%% enc_TerminationIDList1({'TerminationIDList',Val}, State) ->
-%% enc_TerminationIDList1(Val, State);
-%% enc_TerminationIDList1([Singleton], State) ->
-%% enc_TerminationID(Singleton, State).
-
-%% No required length of termination ID list
-enc_TerminationIDList({'TerminationIDList',Val}, State) ->
- enc_TerminationIDList(Val, State);
-enc_TerminationIDList([TID], State) ->
- [
- ?LBRKT_INDENT(State),
- enc_TerminationID(TID, State),
- ?RBRKT_INDENT(State)
- ];
-enc_TerminationIDList(TIDs, State) ->
- [
- ?LBRKT_INDENT(State),
- enc_list([{TIDs, fun enc_TerminationID/2}], State),
- ?RBRKT_INDENT(State)
- ].
-
-enc_termIDList({'TerminationIDList',Val}, State) ->
- enc_termIDList(Val, State);
-enc_termIDList([Singleton], State) ->
- enc_TerminationID(Singleton, State);
-enc_termIDList(TidList, State)
- when is_list(TidList) andalso (length(TidList) > 1) ->
-%% d("enc_termIDList -> entry with"
-%% "~n TidList: ~p", [TidList]),
- State2 = ?INC_INDENT(State),
- [
- ?LSBRKT_INDENT(State),
- enc_list([{TidList, fun enc_TerminationID/2}], State2),
- ?RSBRKT_INDENT(State)
- ].
-
-%% TerminationID = "ROOT" / pathNAME / "$" / "*"
-%% ; Total length of pathNAME must not exceed 64 chars.
-%% pathNAME = ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
-%% ["@" pathDomainName ]
-enc_TerminationID(Tid, State)
- when is_record(Tid, megaco_term_id) ->
- List = [{Tid#megaco_term_id.id, fun enc_tid_component/2 }],
- enc_list(List, State, fun(_S) -> ?SLASH end, false).
-
-enc_tid_component(Component, State) when is_list(Component) ->
- [enc_tid_sub_component(Sub, State) || Sub <- Component];
-enc_tid_component(Invalid, _State) ->
- error({invalid_id_list_component, Invalid}).
-
-enc_tid_sub_component(all = _Sub, _State) ->
- ?megaco_all;
-enc_tid_sub_component(choose = _Sub, _State) ->
- ?megaco_choose;
-enc_tid_sub_component(Char, _State) when is_integer(Char) ->
- Char;
-enc_tid_sub_component(Invalid, _State) ->
- error({invalid_id_list_sub_component, Invalid}).
-
-%% enc_tid_sub_component(Sub, _State) ->
-%% case Sub of
-%% all -> ?megaco_all;
-%% choose -> ?megaco_choose;
-%% Char when is_integer(Char) -> Char
-%% end.
-
-%% mediaDescriptor = MediaToken LBRKT mediaParm *(COMMA mediaParm) RBRKT
-%% ; at-most-once per item
-%% ; and either streamParm or streamDescriptor but not both
-%% mediaParm = (streamParm / streamDescriptor /
-%% terminationStateDescriptor)
-%% ; at-most-once
-%% streamParm = ( localDescriptor / remoteDescriptor /
-%% localControlDescriptor )
-%% streamDescriptor = StreamToken EQUAL StreamID LBRKT streamParm
-%% *(COMMA streamParm) RBRKT
-enc_MediaDescriptor(#'MediaDescriptor'{termStateDescr = TSD,
- streams = Streams}, State) ->
- [
- ?MediaToken,
- ?LBRKT_INDENT(State),
- enc_list([{[TSD], fun enc_TerminationStateDescriptor/2} |
- decompose_streams(Streams)],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-decompose_streams(asn1_NOVALUE) ->
- [];
-decompose_streams({'MediaDescriptor_streams',Val}) ->
- decompose_streams(Val);
-decompose_streams({Tag, Val}) ->
- case Tag of
- oneStream ->
- decompose_StreamParms(Val);
- multiStream ->
- [{Val, fun enc_StreamDescriptor/2}];
- _ ->
- error({invalid_streams_tag, Tag})
- end.
-
-decompose_StreamParms(Val)
- when is_record(Val, 'StreamParms') ->
- [
- {[Val#'StreamParms'.localControlDescriptor],
- fun enc_LocalControlDescriptor/2},
- {[Val#'StreamParms'.localDescriptor],
- fun enc_localDescriptor/2},
- {[Val#'StreamParms'.remoteDescriptor],
- fun enc_remoteDescriptor/2},
- {[Val#'StreamParms'.statisticsDescriptor],
- fun enc_StatisticsDescriptor/2}
- ].
-
-enc_StreamDescriptor(Val, State)
- when is_record(Val, 'StreamDescriptor') ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val#'StreamDescriptor'.streamID, State),
- ?LBRKT_INDENT(State),
- enc_list(decompose_StreamParms(Val#'StreamDescriptor'.streamParms),
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%% localControlDescriptor = LocalControlToken LBRKT localParm
-%% *(COMMA localParm) RBRKT
-%%
-%% ; at-most-once per item
-%% localParm = ( streamMode / propertyParm /
-%% reservedValueMode / reservedGroupMode )
-%% reservedValueMode = ReservedValueToken EQUAL ( "ON" / "OFF" )
-%% reservedGroupMode = ReservedGroupToken EQUAL ( "ON" / "OFF" )
-%%
-%% reservedMode = ReservedToken EQUAL ( "ON" / "OFF" )
-%%
-%% streamMode = ModeToken EQUAL streamModes
-enc_LocalControlDescriptor(
- #'LocalControlDescriptor'{streamMode = asn1_NOVALUE,
- reserveValue = asn1_NOVALUE,
- reserveGroup = asn1_NOVALUE,
- propertyParms = []}, _State) ->
- error({invalid_LocalControlDescriptor, empty});
-enc_LocalControlDescriptor(
- #'LocalControlDescriptor'{streamMode = SM,
- reserveValue = RV,
- reserveGroup = RG,
- propertyParms = PPs}, State) ->
- [
- ?LocalControlToken,
- ?LBRKT_INDENT(State),
- enc_list([{[SM], fun enc_StreamMode/2},
- {[RG], fun enc_reservedGroupMode/2},
- {[RV], fun enc_reservedValueMode/2},
- {PPs, fun enc_PropertyParm/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_reservedGroupMode(Val, _State) ->
- [
- ?ReservedGroupToken,
- ?EQUAL,
- case Val of
- false -> ?OffToken;
- true -> ?OnToken
- end
- ].
-
-enc_reservedValueMode(Val, _State) ->
- [
- ?ReservedValueToken,
- ?EQUAL,
- case Val of
- false -> ?OffToken;
- true -> ?OnToken
- end
- ].
-
-enc_StreamMode({'StreamMode',Val}, State) ->
- enc_StreamMode(Val, State);
-enc_StreamMode(Val, _State) ->
- [
- ?ModeToken,
- ?EQUAL,
- case Val of
- sendOnly -> ?SendonlyToken;
- recvOnly -> ?RecvonlyToken;
- sendRecv -> ?SendrecvToken;
- inactive -> ?InactiveToken;
- loopBack -> ?LoopbackToken
- end
- ].
-
-enc_Name({'Name',Val}, State) ->
- enc_Name(Val, State);
-enc_Name(Val, State) ->
- %% BUGBUG: NAME = ALPHA *63(ALPHA / DIGIT / "_" )
- enc_STRING(Val, State, 1, 64).
-
-enc_PkgdName({'PkgdName', Val}, State) ->
- enc_PkgdName(Val, State);
-enc_PkgdName(Val, _State) ->
- %% BUGBUG: pkgdName = (NAME / "*") SLASH (ItemID / "*" )
- %% enc_OCTET_STRING(Val, _State, 1, 64).
- if
- is_list(Val) ->
- Length = length(Val),
- if
- (Length >= 1) ->
- if
- (Length =< 64) ->
- Val;
- true ->
- error({pkgdName_toolong, Length, 64})
- end;
- true ->
- error({pkgdName_tooshort, Length, 1})
- end;
- true ->
- error({invalid_PkgdName, Val})
- end.
-
-enc_localDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- [
- ?LocalToken,
- ?LBRKT,
- enc_LocalRemoteDescriptor(Val, State),
- ?RBRKT_INDENT(State)
- ].
-
-enc_remoteDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- [
- ?RemoteToken,
- ?LBRKT,
- enc_LocalRemoteDescriptor(Val, State),
- ?RBRKT_INDENT(State)
- ].
-
-%% When text encoding the protocol, the descriptors consist of session
-%% descriptions as defined in SDP (RFC2327), except that the "s=", "t="
-%% and "o=" lines are optional. When multiple session descriptions are
-%% provided in one descriptor, the "v=" lines are required as delimiters;
-%% otherwise they are optional. Implementations shall accept session
-%% descriptions that are fully conformant to RFC2327. When binary
-%% encoding the protocol the descriptor consists of groups of properties
-%% (tag-value pairs) as specified in Annex C. Each such group may
-%% contain the parameters of a session description.
-enc_LocalRemoteDescriptor(Val, State)
- when is_record(Val, 'LocalRemoteDescriptor') ->
- case Val#'LocalRemoteDescriptor'.propGrps of
- [] ->
- [];
- [OptV | MandV] ->
- [?LfToken,
- enc_PropertyGroup(OptV, opt_v, State) |
- [enc_PropertyGroup(M, mand_v, State) || M <- MandV]]
- end.
-
-enc_PropertyGroup({'PropertyGroup',Val}, RequiresV, State) ->
- enc_PropertyGroup(Val, RequiresV, State);
-enc_PropertyGroup([H | _T] = List, mand_v, State)
- when is_record(H, 'PropertyParm') andalso (H#'PropertyParm'.name =:= "v") ->
- enc_PropertyGroup(List, opt_v, State);
-enc_PropertyGroup(PG, opt_v, State) ->
- [
- [[enc_PropertyGroupParm(PP, State), ?CrToken, ?LfToken] || PP <- PG]
- ].
-
-enc_PropertyGroupParm(Val, State)
- when is_record(Val, 'PropertyParm') ->
- [OctetString] = Val#'PropertyParm'.value,
- [
- enc_PkgdName(Val#'PropertyParm'.name, State),
- ?EqualToken,
- enc_OCTET_STRING(OctetString, State, 0, infinity)
- ].
-
-%% propertyParm = pkgdName parmValue
-%% parmValue = (EQUAL alternativeValue/ INEQUAL VALUE)
-%% alternativeValue = ( VALUE / LSBRKT VALUE *(COMMA VALUE) RSBRKT /
-%% LSBRKT VALUE DOT DOT VALUE RSBRKT )
-enc_PropertyParm(Val, State)
- when is_record(Val, 'PropertyParm') ->
-%% d("enc_PropertyParm -> entry with"
-%% "~n Val: ~p", [Val]),
- PkgdName = ?META_ENC(property, Val#'PropertyParm'.name),
- [
- enc_PkgdName(PkgdName, State),
- enc_propertyParmValues(Val#'PropertyParm'.value,
- Val#'PropertyParm'.extraInfo,
- State)
- ].
-
-enc_propertyParmValues([Single], asn1_NOVALUE, State) ->
-%% d("enc_PropertyParmValues -> entry with"
-%% "~n Single: ~p", [Single]),
- [
- ?EqualToken,
- enc_Value(Single, State)
- ];
-enc_propertyParmValues([Single], {relation, Rel}, State) ->
-%% d("enc_PropertyParmValues -> entry with"
-%% "~n Single: ~p"
-%% "~n Rel: ~p", [Single, Rel]),
- case Rel of
- greaterThan -> [$>, enc_Value(Single, State)];
- smallerThan -> [$<, enc_Value(Single, State)];
- unequalTo -> [$#, enc_Value(Single, State)]
- end;
-enc_propertyParmValues([Low, High], {range, true}, State)->
- %% Exact two values
- [
- ?EQUAL,
- ?LSBRKT,
- enc_Value(Low, State),
- ?COLON,
- enc_Value(High, State),
- ?RSBRKT
- ];
-enc_propertyParmValues(Values, {sublist, true}, State)->
- %% sublist (i.e. A AND B AND ...)
- [
- ?EQUAL,
- ?LSBRKT_INDENT(State),
- enc_list([{Values, fun enc_Value/2}], ?INC_INDENT(State)),
- ?RSBRKT_INDENT(State)
- ];
-enc_propertyParmValues(Values, {sublist, false}, State) ->
- %% alternatives (i.e. A OR B OR ...)
- [
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_list([{Values, fun enc_Value/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_propertyParmValues(V, EI, _State) ->
- error({invalid_property_parm_values, V, EI}).
-
-enc_TerminationStateDescriptor(Val, State)
- when is_record(Val, 'TerminationStateDescriptor') ->
- [
- ?TerminationStateToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val#'TerminationStateDescriptor'.propertyParms,
- fun enc_PropertyParm/2},
- {[Val#'TerminationStateDescriptor'.eventBufferControl],
- fun enc_eventBufferControl/2},
- {[Val#'TerminationStateDescriptor'.serviceState],
- fun enc_serviceState/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_eventBufferControl(Val, _State) ->
- [
-
- ?BufferToken,
- ?EQUAL,
- case Val of
- off -> ?OffToken;
- lockStep -> ?LockStepToken
- end
- ].
-
-enc_serviceState({'ServiceState',Val}, State) ->
- enc_serviceState(Val, State);
-enc_serviceState(Val, _State) ->
- [
- ?ServiceStatesToken,
- ?EQUAL,
- case Val of
- test -> ?TestToken;
- outOfSvc -> ?OutOfSvcToken;
- inSvc -> ?InSvcToken
- end
- ].
-
-enc_MuxDescriptor(Val, State)
- when is_record(Val, 'MuxDescriptor') ->
- [
- ?MuxToken,
- ?EQUAL,
- enc_MuxType(Val#'MuxDescriptor'.muxType, State),
- enc_TerminationIDList(Val#'MuxDescriptor'.termList, State)
- ].
-
-enc_MuxType({'MuxType',Val}, State) ->
- enc_MuxType(Val, State);
-enc_MuxType(Val, _State) ->
- case Val of
- h221 -> ?H221Token;
- h223 -> ?H223Token;
- h226 -> ?H226Token;
- v76 -> ?V76Token;
- %% extensionParameter
- nx64k -> ?Nx64kToken % v2
- end.
-
-enc_StreamID({'StreamID',Val}, State) ->
- enc_StreamID(Val, State);
-enc_StreamID(Val, State) ->
- enc_UINT16(Val, State).
-
-enc_EventsDescriptor(#'EventsDescriptor'{requestID = asn1_NOVALUE,
- eventList = []}, _State) ->
- [
- ?EventsToken
- ];
-enc_EventsDescriptor(#'EventsDescriptor'{requestID = RID,
- eventList = Evs}, State)
- when (RID =/= asn1_NOVALUE) andalso (Evs =/= []) ->
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(RID, State),
- ?LBRKT_INDENT(State),
- enc_list([{Evs, fun enc_RequestedEvent/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_EventsDescriptor(#'EventsDescriptor'{requestID = RID,
- eventList = Evs}, _State) ->
- error({invalid_EventsDescriptor, RID, Evs}).
-
-enc_RequestedEvent(#'RequestedEvent'{pkgdName = N,
- streamID = asn1_NOVALUE,
- eventAction = asn1_NOVALUE,
- evParList = []}, State) ->
- PkgdName = ?META_ENC(event, N),
- [
- enc_PkgdName(PkgdName, State)
- ];
-enc_RequestedEvent(#'RequestedEvent'{pkgdName = N,
- streamID = SID,
- eventAction = EA,
- evParList = EPL}, State) ->
- PkgdName = ?META_ENC(event, N),
- [
- enc_PkgdName(PkgdName, State),
- ?LBRKT_INDENT(State),
- enc_list([{[SID], fun enc_eventStream/2},
- {EPL, fun enc_eventOther/2} |
- decompose_requestedActions(EA)],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-decompose_requestedActions(asn1_NOVALUE) ->
- [];
-decompose_requestedActions(
- #'RequestedActions'{keepActive = asn1_NOVALUE,
- eventDM = asn1_NOVALUE,
- secondEvent = asn1_NOVALUE,
- signalsDescriptor = asn1_NOVALUE,
- notifyBehaviour = asn1_NOVALUE,
- resetEventsDescriptor = asn1_NOVALUE}) ->
- [];
-
-%%
-%% This in the ABNF:
-%% at-most-once each of
-%% - KeepActiveToken
-%% - notifyBehaviour
-%% - eventDM
-%% - ResetEventsDescriptor
-%% - eventStream
-%% at most one of either embedWithSig or embedNoSig but not both
-%% KeepActiveToken and embedWithSig must not both be present
-%%
-
-%% embedWithSig
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD,
- notifyBehaviour = NB,
- resetEventsDescriptor = RED})
- when (KA =/= true) andalso ((SD =/= asn1_NOVALUE) andalso (SD =/= [])) ->
- [
- {[EDM], fun enc_EventDM/2},
- {[{SE, SD}], fun enc_embedWithSig/2},
- {[NB], fun enc_notifyBehaviour/2},
- {[RED], fun('NULL', _) -> ?ResetEventsDescriptorToken end}
- ];
-
-%% embedNoSig
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD,
- notifyBehaviour = NB,
- resetEventsDescriptor = RED})
- when (SD =:= asn1_NOVALUE) orelse (SD =:= []) ->
- [
- {[KA], fun enc_keepActive/2},
- {[EDM], fun enc_EventDM/2},
- {[SE], fun enc_embedNoSig/2},
- {[NB], fun enc_notifyBehaviour/2},
- {[RED], fun('NULL', _) -> ?ResetEventsDescriptorToken end}
- ];
-
-%% Fallback, if everything else failes....
-decompose_requestedActions(#'RequestedActions'{keepActive = KA,
- eventDM = EDM,
- secondEvent = SE,
- signalsDescriptor = SD,
- notifyBehaviour = NB,
- resetEventsDescriptor = RED}) ->
- [
- {[KA], fun enc_keepActive/2},
- {[EDM], fun enc_EventDM/2},
- {[{SE, SD}], fun enc_embedWithSig/2},
- {[NB], fun enc_notifyBehaviour/2},
- {[RED], fun('NULL', _) -> ?ResetEventsDescriptorToken end}
- ].
-
-
-enc_embedNoSig(#'SecondEventsDescriptor'{requestID = RID,
- eventList = Evs}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_embedFirst(RID, Evs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_embedWithSig({asn1_NOVALUE, SD}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(SD, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_embedWithSig({#'SecondEventsDescriptor'{requestID = RID,
- eventList = Evs}, SD}, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(SD, ?INC_INDENT(State)),
- ?COMMA_INDENT(?INC_INDENT(State)),
- enc_embedFirst(RID, Evs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_keepActive(Val, _State) ->
- case Val of
- true -> [?KeepActiveToken];
- false -> []
- end.
-
-enc_EventDM({'EventDM',Val}, State) ->
- enc_EventDM(Val, State);
-enc_EventDM({Tag, Val}, State) ->
- case Tag of
- digitMapName ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Val, State)
- ];
- digitMapValue ->
- [
- ?DigitMapToken,
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
- _ ->
- error({invalid_EventDM_tag, Tag})
- end.
-
-
-enc_embedFirst(RID, Evs, State)
- when (RID =/= asn1_NOVALUE) andalso (is_list(Evs) andalso (Evs =/= [])) ->
- %% d("enc_embedFirst -> entry with"
- %% "~n RID: ~p"
- %% "~n Evs: ~p", [RID, Evs]),
- [
- ?EventsToken,
- ?EQUAL,
- enc_RequestID(RID, State),
- ?LBRKT_INDENT(State),
- enc_list([{Evs, fun enc_SecondRequestedEvent/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_embedFirst(_RID, _Evs, _State) ->
- %% d("enc_embedFirst -> entry"),
- [
- ?EventsToken
- ].
-
-enc_notifyBehaviour({notifyImmediate, 'NULL'}, _State) ->
- [?NotifyImmediateToken];
-enc_notifyBehaviour({notifyRegulated, Val}, State) ->
- enc_RegulatedEmbeddedDescriptor(Val, State);
-enc_notifyBehaviour({neverNotify, 'NULL'}, _State) ->
- [?NeverNotifyToken];
-enc_notifyBehaviour({Tag, Val}, _State) ->
- error({invalid_notifyBehaviour, Tag, Val}).
-
-enc_RegulatedEmbeddedDescriptor(
- #'RegulatedEmbeddedDescriptor'{secondEvent = asn1_NOVALUE,
- signalsDescriptor = asn1_NOVALUE}, _State) ->
- [
- ?NotifyRegulatedToken
- ];
-enc_RegulatedEmbeddedDescriptor(
- #'RegulatedEmbeddedDescriptor'{secondEvent = SE,
- signalsDescriptor = asn1_NOVALUE}, State) ->
- [
- ?NotifyRegulatedToken,
- ?LBRKT_INDENT(State),
- enc_embedNoSig(SE, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_RegulatedEmbeddedDescriptor(
- #'RegulatedEmbeddedDescriptor'{secondEvent = SE,
- signalsDescriptor = SD}, State) ->
- [
- ?NotifyRegulatedToken,
- ?LBRKT_INDENT(State),
- enc_embedWithSig({SE, SD}, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_RegulatedEmbeddedDescriptor(Val, _State) ->
- error({invalid_RegulatedEmbeddedDescriptor, Val}).
-
-enc_SecondRequestedEvent(#'SecondRequestedEvent'{pkgdName = N,
- streamID = asn1_NOVALUE,
- eventAction = asn1_NOVALUE,
- evParList = []}, State) ->
- PkgdName = ?META_ENC(event, N),
- [
- enc_PkgdName(PkgdName, State)
- ];
-enc_SecondRequestedEvent(#'SecondRequestedEvent'{pkgdName = N,
- streamID = SID,
- eventAction = EA,
- evParList = EPL}, State) ->
- PkgdName = ?META_ENC(event, N),
- [
- enc_PkgdName(PkgdName, State),
- ?LBRKT_INDENT(State),
- enc_list([{[SID], fun enc_eventStream/2},
- {EPL, fun enc_eventOther/2} |
- decompose_secondRequestedActions(EA)],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-%%
-%% This in the ABNF:
-%% at-most-once each of
-%% - KeepActiveToken
-%% - notifyBehaviour
-%% - eventDM
-%% - ResetEventsDescriptor
-%% - eventStream
-%% KeepActiveToken and embedWithSig must not both be present
-%%
-decompose_secondRequestedActions(asn1_NOVALUE) ->
- [];
-decompose_secondRequestedActions(
- #'SecondRequestedActions'{keepActive = asn1_NOVALUE,
- eventDM = asn1_NOVALUE,
- signalsDescriptor = asn1_NOVALUE,
- notifyBehaviour = asn1_NOVALUE,
- resetEventsDescriptor = asn1_NOVALUE}) ->
- [];
-
-decompose_secondRequestedActions(
- #'SecondRequestedActions'{keepActive = KA,
- eventDM = EDM,
- signalsDescriptor = SD,
- notifyBehaviour = NB,
- resetEventsDescriptor = RED})
- when (KA =/= true) andalso ((SD =/= asn1_NOVALUE) andalso (SD =/= [])) ->
- [
- {[EDM], fun enc_EventDM/2},
- {[SD], fun enc_embedSig/2},
- {[NB], fun enc_notifyBehaviour/2},
- {[RED], fun('NULL', _) -> ?ResetEventsDescriptorToken end}
- ];
-decompose_secondRequestedActions(
- #'SecondRequestedActions'{keepActive = KA,
- eventDM = EDM,
- signalsDescriptor = SD,
- notifyBehaviour = NB,
- resetEventsDescriptor = RED})
- when (SD =:= asn1_NOVALUE) orelse (SD =:= []) ->
- [
- {[KA], fun enc_keepActive/2},
- {[EDM], fun enc_EventDM/2},
- {[NB], fun enc_notifyBehaviour/2},
- {[RED], fun('NULL', _) -> ?ResetEventsDescriptorToken end}
- ];
-decompose_secondRequestedActions(SRA) ->
- error({invalid_SecondRequestedActions, SRA}).
-
-enc_embedSig(Val, State) ->
- [
- ?EmbedToken,
- ?LBRKT_INDENT(State),
- enc_SignalsDescriptor(Val, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_EventBufferDescriptor({'EventBufferDescriptor',Val}, State) ->
- enc_EventBufferDescriptor(Val, State);
-enc_EventBufferDescriptor([], _State) ->
- [
- ?EventBufferToken
- ];
-enc_EventBufferDescriptor(EvSpecs, State)
- when is_list(EvSpecs) andalso (length(EvSpecs) >= 1) ->
- [
- ?EventBufferToken,
- ?LBRKT_INDENT(State),
- enc_eventSpecs(EvSpecs, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ];
-enc_EventBufferDescriptor(EvSpecs, _State) ->
- error({bad_eventSpecs, EvSpecs}).
-
-enc_eventSpecs([Mand | Opt], State) ->
- [enc_eventSpec(Mand, State),
- [[?COMMA_INDENT(State), enc_eventSpec(Val, State)] || Val <- Opt]].
-
-enc_eventSpec(#'EventSpec'{eventName = N,
- streamID = asn1_NOVALUE,
- eventParList = []}, State) ->
- [
- enc_EventName(N, State)
- ];
-enc_eventSpec(#'EventSpec'{eventName = N,
- streamID = SID,
- eventParList = EPL}, State) ->
- [
- enc_EventName(N, State),
- ?LBRKT_INDENT(State),
- enc_list([{[SID], fun enc_eventStream/2}, {EPL, fun enc_eventOther/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_SignalsDescriptor({'SignalsDescriptor',Val}, State) ->
- enc_SignalsDescriptor(Val, State);
-enc_SignalsDescriptor([], _State) ->
- [
- ?SignalsToken
- ];
-enc_SignalsDescriptor(SigRequests, State) when is_list(SigRequests) ->
- [
- ?SignalsToken,
- ?LBRKT_INDENT(State),
- enc_list([{SigRequests, fun enc_SignalRequest/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_SignalRequest({'SignalRequest',Val}, State) ->
- enc_SignalRequest(Val, State);
-enc_SignalRequest({Tag, Val}, State) ->
- case Tag of
- signal ->
- enc_Signal(Val, State);
- seqSigList ->
- enc_SeqSigList(Val, State);
- _ ->
- error({invalid_SignalRequest_tag, Tag})
- end.
-
-
-enc_SeqSigList(Val, State)
- when is_record(Val, 'SeqSigList') ->
- [
- ?SignalListToken,
- ?EQUAL,
- enc_UINT16(Val#'SeqSigList'.id, State),
- ?LBRKT_INDENT(State),
- enc_list([{Val#'SeqSigList'.signalList, fun enc_Signal/2}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_Signal(#'Signal'{signalName = SN,
- streamID = SID,
- sigType = ST,
- duration = Du,
- notifyCompletion = NC,
- keepActive = KA,
- sigParList = SPL,
- direction = Di,
- requestID = RID,
- intersigDelay = ISD}, State) ->
- [
- enc_SignalName(SN, State),
- enc_opt_brackets(
- enc_list([{[SID], fun enc_sigStream/2},
- {[ST], fun enc_sigSignalType/2},
- {[Du], fun enc_sigDuration/2},
- {[NC], fun enc_notifyCompletion/2},
- {[KA], fun enc_keepActive/2},
- {SPL, fun enc_sigOther/2},
- {[Di], fun enc_SignalDirection/2},
- {[RID], fun enc_sigRequestID/2},
- {[ISD], fun enc_sigIntsigDelay/2}],
- ?INC_INDENT(State)),
- State)
- ].
-
-enc_sigStream(Val, State) ->
- [
- ?StreamToken,
- ?EQUAL,
- enc_StreamID(Val, State)
- ].
-
-enc_sigSignalType(Val, State) ->
- [
- ?SignalTypeToken,
- ?EQUAL,
- enc_SignalType(Val, State)
- ].
-
-enc_sigDuration(Val, State) ->
- [
- ?DurationToken,
- ?EQUAL,
- enc_UINT16(Val, State)
- ].
-
-enc_notifyCompletion(List, State) when is_list(List) ->
- [
- ?NotifyCompletionToken,
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_notifyCompletionItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_notifyCompletionItem(Val, _State) ->
- case Val of
- onTimeOut -> ?TimeOutToken;
- onInterruptByEvent -> ?InterruptByEventToken;
- onInterruptByNewSignalDescr -> ?InterruptByNewSignalsDescrToken;
- otherReason -> ?OtherReasonToken;
- onIteration -> ?IterationToken
- end.
-
-enc_SignalType({'SignalType',Val}, State) ->
- enc_SignalType(Val, State);
-enc_SignalType(Val, _State) ->
- case Val of
- brief -> ?BriefToken;
- onOff -> ?OnOffToken;
- timeOut -> ?TimeOutToken
- end.
-
-enc_SignalName({'SignalName',Val}, State)->
- enc_SignalName(Val, State);
-enc_SignalName(Val, State) ->
- PkgdName = ?META_ENC(signal, Val),
- enc_PkgdName(PkgdName, State).
-
-enc_sigOther(Val, State)
- when is_record(Val, 'SigParameter') ->
- [
- enc_Name(Val#'SigParameter'.sigParameterName, State),
- enc_propertyParmValues(Val#'SigParameter'.value,
- Val#'SigParameter'.extraInfo,
- State)
- ].
-
-enc_SignalDirection({'SignalDirection', Val}, State) ->
- enc_SignalDirection(Val, State);
-enc_SignalDirection(Val, _State) ->
- [
- ?DirectionToken,
- ?EQUAL,
- case Val of
- internal -> ?InternalToken;
- external -> ?ExternalToken;
- both -> ?BothToken
- end
- ].
-
-enc_sigRequestID(Val, State) ->
- [
- ?RequestIDToken,
- ?EQUAL,
- enc_RequestID(Val, State)
- ].
-
-enc_RequestID({'RequestID',Val}, State) ->
- enc_RequestID(Val, State);
-enc_RequestID(Val, _State) when (Val =:= ?megaco_all_request_id) ->
- "*";
-enc_RequestID(Val, State) ->
- enc_UINT32(Val, State).
-
-enc_sigIntsigDelay(Val, State) ->
- [
- ?IntsigDelayToken,
- ?EQUAL,
- enc_UINT16(Val, State)
- ].
-
-enc_ModemDescriptor(MD, _State) ->
- error({deprecated, MD}).
-
-%% Corr1:
-%% As of corr 1 ModemDescriptor has been deprecated.
-%% 7.1.2: ...shall not be included as part of a transmitted content and,
-%% if received, shall either be ignored or processed at the option
-%% of the implementation. ...
-%% enc_ModemDescriptor(#'ModemDescriptor'{mtl = [Val],
-%% mpl = [],
-%% nonStandardData = asn1_NOVALUE},
-%% State) ->
-%% [
-%% ?ModemToken,
-%% ?EQUAL,
-%% enc_ModemType(Val, State)
-%% ];
-%% enc_ModemDescriptor(Val, State)
-%% when is_record(Val, 'ModemDescriptor') ->
-%% [
-%% ?ModemToken,
-%% ?LSBRKT,
-%% enc_list([{Val#'ModemDescriptor'.mtl, fun enc_ModemType/2}], State),
-%% ?RSBRKT,
-%% enc_opt_brackets(
-%% enc_list([{Val#'ModemDescriptor'.mpl, fun enc_PropertyParm/2}],
-%% ?INC_INDENT(State)),
-%% State)
-%% %% BUGBUG: Is PropertyParm == NAME parmValue?
-%% ].
-
-%% enc_ModemDescriptor(Val, State)
-%% when is_record(Val, 'ModemDescriptor') ->
-%% [
-%% ?ModemToken,
-%% %% BUGBUG: Does never generate: EQUAL modemType
-%% ?LSBRKT,
-%% enc_list([{Val#'ModemDescriptor'.mtl, fun enc_ModemType/2}], State),
-%% ?RSBRKT,
-%% enc_opt_brackets(
-%% enc_list([{Val#'ModemDescriptor'.mpl, fun enc_PropertyParm/2}],
-%% ?INC_INDENT(State)),
-%% State)
-%% %% BUGBUG: Is PropertyParm == NAME parmValue?
-%% ].
-
-%% Corr1: See ModemDescriptor above
-%% enc_ModemType({'ModemType',Val}, State)->
-%% enc_ModemType(Val, State);
-%% enc_ModemType(Val, _State) ->
-%% %% BUGBUG: Does not handle extensionParameter
-%% case Val of
-%% v18 -> ?V18Token;
-%% v22 -> ?V22Token;
-%% v22bis -> ?V22bisToken;
-%% v32 -> ?V32Token;
-%% v32bis -> ?V32bisToken;
-%% v34 -> ?V34Token;
-%% v90 -> ?V90Token;
-%% v91 -> ?V91Token;
-%% synchISDN -> ?SynchISDNToken
-%% end.
-
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = asn1_NOVALUE,
- digitMapValue = Value} = Val,
- State)
- when (Value =/= asn1_NOVALUE) ->
- case is_empty_DigitMapValue(Value) of
- true ->
- error({invalid_DigitMapDescriptor, Val});
- false ->
- [
- ?DigitMapToken,
- ?EQUAL,
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Value, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = asn1_NOVALUE},
- State)
- when (Name =/= asn1_NOVALUE) ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ];
-enc_DigitMapDescriptor(#'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = Value},
- State)
- when (Name =/= asn1_NOVALUE) andalso (Value =/= asn1_NOVALUE) ->
- case is_empty_DigitMapValue(Value) of
- true ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State)
- ];
- false ->
- [
- ?DigitMapToken,
- ?EQUAL,
- enc_DigitMapName(Name, State),
- ?LBRKT_INDENT(State),
- enc_DigitMapValue(Value, ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ]
- end;
-enc_DigitMapDescriptor(BadVal, _State) ->
- error({invalid_DigitMapDescriptor, BadVal}).
-
-enc_DigitMapName({'DigitMapName',Val}, State) ->
- enc_DigitMapName(Val, State);
-enc_DigitMapName(Val, State) ->
- enc_Name(Val, State).
-
-is_empty_DigitMapValue(#'DigitMapValue'{startTimer = asn1_NOVALUE,
- shortTimer = asn1_NOVALUE,
- longTimer = asn1_NOVALUE,
- digitMapBody = [],
- durationTimer = asn1_NOVALUE}) ->
- true;
-is_empty_DigitMapValue(#'DigitMapValue'{}) ->
- false.
-
-enc_DigitMapValue(Val, State)
- when is_record(Val, 'DigitMapValue') ->
- [
- enc_timer(Val#'DigitMapValue'.startTimer, $T, State),
- enc_timer(Val#'DigitMapValue'.shortTimer, $S, State),
- enc_timer(Val#'DigitMapValue'.longTimer, $L, State),
- enc_timer(Val#'DigitMapValue'.durationTimer, $Z, State),
- %% BUGBUG: digitMapBody not handled at all
- enc_STRING(Val#'DigitMapValue'.digitMapBody, State, 0, infinity)
- ].
-
-enc_timer(asn1_NOVALUE, _Prefix, _State) ->
- [];
-enc_timer(Timer, Prefix, State) ->
- [
- Prefix,
- ?COLON,
- enc_DIGIT(Timer, State, 0, 99),
- ?COMMA_INDENT(State)
- ].
-
-enc_ServiceChangeParm(Val, State)
- when is_record(Val, 'ServiceChangeParm') ->
- [
- ?ServicesToken,
- ?LBRKT_INDENT(State),
- enc_list([{[Val#'ServiceChangeParm'.serviceChangeMethod],
- fun enc_ServiceChangeMethod/2},
- {[Val#'ServiceChangeParm'.serviceChangeAddress],
- fun enc_ServiceChangeAddress/2},
- {[Val#'ServiceChangeParm'.serviceChangeVersion],
- fun enc_serviceChangeVersion/2},
- {[Val#'ServiceChangeParm'.serviceChangeProfile],
- fun enc_ServiceChangeProfile/2},
- {[{reason, Val#'ServiceChangeParm'.serviceChangeReason}],
- fun enc_serviceChangeReason/2},
- {[Val#'ServiceChangeParm'.serviceChangeDelay],
- fun enc_serviceChangeDelay/2},
- {[Val#'ServiceChangeParm'.serviceChangeMgcId],
- fun enc_serviceChangeMgcId/2},
- {[Val#'ServiceChangeParm'.timeStamp],
- fun enc_TimeNotation/2},
- {Val#'ServiceChangeParm'.serviceChangeInfo,
- fun enc_AuditDescriptor/2},
- {[Val#'ServiceChangeParm'.serviceChangeIncompleteFlag],
- fun('NULL', _) -> ?ServiceChangeIncompleteToken end}],
- ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-
-enc_ServiceChangeMethod({'ServiceChangeMethod',Val}, State) ->
- enc_ServiceChangeMethod(Val, State);
-enc_ServiceChangeMethod(Val, _State) ->
- [
- ?MethodToken,
- ?EQUAL,
- case Val of
- failover -> ?FailoverToken;
- forced -> ?ForcedToken;
- graceful -> ?GracefulToken;
- restart -> ?RestartToken;
- disconnected -> ?DisconnectedToken;
- handOff -> ?HandOffToken;
- _ ->
- error({invalid_ServiceChangeMethod, Val})
-
- end
- ].
-
-enc_ServiceChangeAddress({'ServiceChangeAddress',Val}, State) ->
- enc_ServiceChangeAddress(Val, State);
-enc_ServiceChangeAddress({Tag, Val}, State) ->
- [
- ?ServiceChangeAddressToken,
- ?EQUAL,
- case Tag of
- portNumber ->
- enc_portNumber(Val, State);
- ip4Address ->
- enc_IP4Address(Val, State);
- ip6Address ->
- enc_IP6Address(Val, State);
- domainName ->
- enc_DomainName(Val, State);
- deviceName ->
- enc_PathName(Val, State);
- mtpAddress ->
- enc_mtpAddress(Val, State);
- _ ->
- error({invalid_ServiceChangeAddress_tag, Tag})
- end
- ].
-
-enc_serviceChangeVersion(Val, State) ->
- [
- ?VersionToken,
- ?EQUAL,
- enc_version(Val, State)
- ].
-
-enc_ServiceChangeProfile(#'ServiceChangeProfile'{profileName = Name,
- version = Version},
- State) ->
- [
- ?ProfileToken,
- ?EQUAL,
- enc_Name(Name, State),
- ?SLASH,
- enc_version(Version, State)
- ].
-
-enc_serviceChangeReason({reason, Val}, State) ->
- case Val of
- asn1_NOVALUE ->
- [];
- [List] when is_list(List) ->
- [
- ?ReasonToken,
- ?EQUAL,
- enc_QUOTED_STRING(List,State) % OTP-4632 enc_Value(List, State)
- ]
- end.
-
-enc_serviceChangeDelay(Val, State) ->
- [
- ?DelayToken,
- ?EQUAL,
- enc_UINT32(Val, State)
- ].
-
-enc_serviceChangeMgcId(Val, State) ->
- [
- ?MgcIdToken,
- ?EQUAL,
- enc_MId(Val, State)
- ].
-
-enc_portNumber(Val, State) when is_integer(Val) andalso (Val >= 0) ->
- enc_UINT16(Val, State).
-
-enc_ServiceChangeResParm(Val, State)
- when is_record(Val, 'ServiceChangeResParm') ->
- enc_list([{[Val#'ServiceChangeResParm'.serviceChangeAddress],
- fun enc_ServiceChangeAddress/2},
- {[Val#'ServiceChangeResParm'.serviceChangeVersion],
- fun enc_serviceChangeVersion/2},
- {[Val#'ServiceChangeResParm'.serviceChangeProfile],
- fun enc_ServiceChangeProfile/2},
- {[Val#'ServiceChangeResParm'.serviceChangeMgcId],
- fun enc_serviceChangeMgcId/2},
- {[Val#'ServiceChangeResParm'.timeStamp],
- fun enc_TimeNotation/2}],
- State).
-
-enc_PackagesDescriptor({'PackagesDescriptor',Val}, State) ->
- enc_PackagesDescriptor(Val, State);
-enc_PackagesDescriptor(Val, State) ->
- [
- ?PackagesToken,
- ?LBRKT_INDENT(State),
- enc_list([{Val, fun enc_PackagesItem/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_PackagesItem(Val, State)
- when is_record(Val, 'PackagesItem') ->
- PkgdName = ?META_ENC(package, Val#'PackagesItem'.packageName),
- [
- enc_Name(PkgdName, State),
- "-",
- enc_UINT16(Val#'PackagesItem'.packageVersion, State)
- ].
-
-enc_StatisticsDescriptor({'StatisticsDescriptor',Val}, State) ->
- enc_StatisticsDescriptor(Val, State);
-enc_StatisticsDescriptor(List, State) when is_list(List) ->
- [
- ?StatsToken,
- ?LBRKT_INDENT(State),
- enc_list([{List, fun enc_StatisticsParameter/2}], ?INC_INDENT(State)),
- ?RBRKT_INDENT(State)
- ].
-
-enc_StatisticsParameter(Val, State)
- when is_record(Val, 'StatisticsParameter') ->
- PkgdName = ?META_ENC(statistics, Val#'StatisticsParameter'.statName),
- case Val#'StatisticsParameter'.statValue of
- asn1_NOVALUE ->
- [
- enc_PkgdName(PkgdName, State)
- ];
- [StatVal] when is_list(StatVal) ->
- [
- enc_PkgdName(PkgdName, State),
- ?EQUAL,
- enc_Value(StatVal, State)
- ]
- end.
-
-enc_TimeNotation(Val, State)
- when is_record(Val, 'TimeNotation') ->
- [
- enc_STRING(Val#'TimeNotation'.date, State, 8, 8), % "yyyymmdd"
- "T",
- enc_STRING(Val#'TimeNotation'.time, State, 8, 8) % "hhmmssss"
- ].
-
-%% BUGBUG: Does not verify that the string must contain at least one
-%% BUGBUG: char. This violation of is required in order to comply with
-%% BUGBUG: the dd/ce ds parameter that may possibly be empty.
-enc_Value({'Value',Val}, State) ->
- enc_Value(Val, State);
-enc_Value(String, _State) ->
-%% d("enc_Value -> entry with"
-%% "~n String: ~p", [String]),
- case quoted_string_count(String, 0, true, false) of
- {_, 0, _} ->
-%% d("enc_Value -> 0"),
- [?DQUOTE, String, ?DQUOTE];
- {false, _, _} ->
-%% d("enc_Value -> false"),
- [?DQUOTE, String, ?DQUOTE];
- {true, _, _} ->
-%% d("enc_Value -> true"),
- [String]
- end.
-
-%% needs_quoting(String) ->
-%% case quoted_string_count(String, 0, true) of
-%% {_, 0} ->
-%% true;
-%% {false, _} ->
-%% true;
-%% {true, _} ->
-%% false
-%% end.
-
-quoted_string_count([?DoubleQuoteToken | T], 0 = Count, _IsSafe, _MaybeQuoted) ->
- %% Already a quoted string. Make sure it ends
- quoted_string_count(T, Count + 1, true, true);
-quoted_string_count([?DoubleQuoteToken], Count, IsSafe, true = MaybeQuoted) ->
- %% An explicitly quoted string
- {IsSafe, Count, MaybeQuoted};
-quoted_string_count([H | T], Count, IsSafe, MaybeQuoted) ->
-%% d("quoted_string_count -> entry with"
-%% "~n H: ~p"
-%% "~n Classified H: ~p"
-%% "~n Count: ~p"
-%% "~n IsSafe: ~p", [H, ?classify_char(H), Count, IsSafe]),
- case ?classify_char(H) of
- safe_char_upper -> quoted_string_count(T, Count + 1, IsSafe, MaybeQuoted);
- safe_char -> quoted_string_count(T, Count + 1, IsSafe, MaybeQuoted);
- rest_char -> quoted_string_count(T, Count + 1, false, MaybeQuoted);
- white_space -> quoted_string_count(T, Count + 1, false, MaybeQuoted);
- _ -> error({illegal_char, H})
- end;
-quoted_string_count([], _Count, _IsSafe, true = _MaybeQuoted) ->
- error({illegal_char, ?DoubleQuoteToken});
-quoted_string_count([], Count, IsSafe, MaybeQuoted) ->
- {IsSafe, Count, MaybeQuoted}.
-
-enc_DigitString(String, _State) when is_list(String) ->
- [?DQUOTE, String, ?DQUOTE].
-
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%% Encode an octet string, escape } by \ if necessary
-enc_OCTET_STRING(List, State, Min, Max) ->
- do_enc_OCTET_STRING(List, State, Min, Max, 0).
-
-do_enc_OCTET_STRING([H | T], State, Min, Max, Count) ->
- case H of
- $} ->
- [$\\, H | do_enc_OCTET_STRING(T, State, Min, Max, Count + 1)];
- _ ->
- [H | do_enc_OCTET_STRING(T, State, Min, Max, Count + 1)]
- end;
-do_enc_OCTET_STRING([], _State, Min, Max, Count) ->
- verify_count(Count, Min, Max),
- [].
-
-enc_QUOTED_STRING(String, _State) when is_list(String) ->
- case quoted_string_count(String, 0, true, false) of
- {_IsSafe, Count, false = _QuotedString} ->
- verify_count(Count, 1, infinity),
- [?DQUOTE, String, ?DQUOTE];
- {_IsSafe, Count, true = _QuotedString} ->
- verify_count(Count, 3, infinity), % quotes not included in the count
- [String]
- end.
-
-%% The internal format of hex digits is a list of octets
-%% Min and Max means #hexDigits
-%% Leading zeros are prepended in order to fulfill Min
-enc_HEXDIG(Octets, State, Min, Max) when is_list(Octets) ->
- do_enc_HEXDIG(Octets, State, Min, Max, 0, []).
-
-do_enc_HEXDIG([Octet | Rest], State, Min, Max, Count, Acc)
- when (Octet >= 0) andalso (Octet =< 255) ->
- Hex = hex(Octet), % OTP-4921
- if
- Octet =< 15 ->
- Acc2 = [[$0|Hex]|Acc], % OTP-4921
- do_enc_HEXDIG(Rest, State, Min, Max, Count + 2, ["0" | Acc2]);
- true ->
- Acc2 = [Hex|Acc], % OTP-4921
- do_enc_HEXDIG(Rest, State, Min, Max, Count + 2, Acc2)
- end;
-do_enc_HEXDIG([], State, Min, Max, Count, Acc)
- when is_integer(Min) andalso (Count < Min) ->
- do_enc_HEXDIG([0], State, Min, Max, Count, Acc);
-do_enc_HEXDIG([], _State, Min, Max, Count, Acc) -> %% OTP-4710
- verify_count(Count, Min, Max),
- lists:reverse(Acc).
-
-enc_DIGIT(Val, State, Min, Max) ->
- enc_integer(Val, State, Min, Max).
-
-enc_STRING(String, _State, Min, Max) when is_list(String) ->
- verify_count(length(String), Min, Max),
- String.
-
-enc_UINT16(Val, State) ->
- enc_integer(Val, State, 0, 65535).
-
-enc_UINT32(Val, State) ->
- enc_integer(Val, State, 0, 4294967295).
-
-enc_integer(Val, _State, Min, Max) ->
- verify_count(Val, Min, Max),
- integer_to_list(Val).
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% Encodes a list of elements with separator tokens between
-%% the elements. Optional asn1_NOVALUE values are ignored.
-
-%% enc_list(asn1_NOVALUE, _State) ->
-%% [];
-%% enc_list([], _State) ->
-%% [];
-enc_list(List, State) ->
- enc_list(List, State, fun(_S) -> ?COMMA_INDENT(_S) end, false).
-
--dialyzer({nowarn_function, enc_list/4}). % Future compat
-enc_list([], _State, _SepEncoder, _NeedsSep) ->
- [];
-enc_list([{Elems, ElemEncoder} | Tail], State, SepEncoder, NeedsSep) ->
- case do_enc_list(Elems, State, ElemEncoder, SepEncoder, NeedsSep) of
- [] ->
- enc_list(Tail, State, SepEncoder, NeedsSep);
- List ->
- [List,
- enc_list(Tail, State, SepEncoder, true)]
- end;
-enc_list(A, B, C, D) ->
- error({invalid_list, A, B, C, D}).
-
-do_enc_list(asn1_NOVALUE, _State, _ElemEncoder, _SepEncoder, _NeedsSep) ->
- [];
-do_enc_list([], _State, _ElemEncoder, _SepEncoder, _NeedsSep) ->
- [];
-do_enc_list([asn1_NOVALUE | T], State, ElemEncoder, SepEncoder, NeedsSep) ->
- do_enc_list(T, State, ElemEncoder, SepEncoder, NeedsSep);
-do_enc_list([H | T], State, ElemEncoder, SepEncoder, NeedsSep)
- when is_function(ElemEncoder) andalso is_function(SepEncoder) ->
- case ElemEncoder(H, State) of
- [] ->
- do_enc_list(T, State, ElemEncoder, SepEncoder, NeedsSep);
- List when NeedsSep =:= true ->
- [SepEncoder(State),
- List, do_enc_list(T, State, ElemEncoder, SepEncoder, true)];
- List when NeedsSep =:= false ->
- [List,
- do_enc_list(T, State, ElemEncoder, SepEncoder, true)]
- end.
-
-%% Add brackets if list is non-empty
-enc_opt_brackets([], _State) ->
- [];
-enc_opt_brackets(List, _State) when is_list(List) ->
- [?LBRKT_INDENT(_State), List, ?RBRKT_INDENT(_State)].
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%% Int -> list of hex chars
-hex(Int) ->
- hexi(get_lo_bits(Int, 4), []).
-
-hexi({0, Lo}, Ack) ->
- [hex4(Lo) | Ack];
-hexi({Hi, Lo} , Ack) ->
- hexi(get_lo_bits(Hi, 4), [hex4(Lo) | Ack]).
-
-hex4(Int) when Int < 10 ->
- Int + $0;
-hex4(Int) ->
- ($A - 10) + Int.
-
-get_lo_bits(Int, Size) ->
- Lo = Int band ones_mask(Size),
- Hi = Int bsr Size,
- {Hi, Lo}.
-
-ones_mask(Ones) ->
- (1 bsl Ones) - 1.
-
-%% Verify that Count is within the range of Min and Max
-verify_count(Count, Min, Max) ->
- if
- is_integer(Count) ->
- if
- is_integer(Min) andalso (Count >= Min) ->
- if
- is_integer(Max) andalso (Count =< Max) ->
- Count;
- Max =:= infinity ->
- Count;
- true ->
- error({count_too_large, Count, Max})
- end;
- true ->
- error({count_too_small, Count, Min})
- end;
- true ->
- error({count_not_an_integer, Count})
- end.
-
-
-
-
-%% -------------------------------------------------------------------
-
-%% d(F) ->
-%% d(F,[]).
-%% d(F, A) ->
-%% %% d(get(dbg), F, A).
-%% d(true, F, A).
-
-%% d(true, F, A) ->
-%% io:format("~p:" ++ F ++ "~n", [?MODULE | A]);
-%% d(_, _, _) ->
-%% ok.
-
-
diff --git a/lib/megaco/src/text/megaco_text_parser_prev3a.hrl b/lib/megaco/src/text/megaco_text_parser_prev3a.hrl
deleted file mode 100644
index 138b4cd728..0000000000
--- a/lib/megaco/src/text/megaco_text_parser_prev3a.hrl
+++ /dev/null
@@ -1,1678 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2004-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose : Define semantic text parser actions
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3a.hrl").
--define(encoder_version_pre_prev3c,true).
--include("megaco_text_tokens.hrl").
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{make_safe_token,1}]}).
--endif.
-make_safe_token(Token) ->
- {_TokenTag, Line, Text} = Token,
- {safeToken, Line, Text}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_value,1}]}).
--endif.
-ensure_value(Token) ->
- case Token of
- {safeToken, _Line, Text} when is_list(Text) ->
- Text; % We really should ensure length
- {'QuotedChars', _Line, Text} when is_list(Text) ->
- Text; % We really should ensure length
- Text when is_list(Text) ->
- Text % We really should ensure length
- end.
-
-%% NAME = ALPHA *63(ALPHA / DIGIT / "_" )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_NAME,1}]}).
--endif.
-ensure_NAME(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text. % We really should ensure length and chars
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_requestID,1}]}).
--endif.
-ensure_requestID(Token) ->
- case Token of
- {safeToken, _Line, "*"} ->
- ?megaco_all_request_id;
- _ ->
- ensure_uint32(Token)
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_streamID,1}]}).
--endif.
-ensure_streamID(StreamId) ->
- ensure_uint16(StreamId).
-
-ensure_auth_header(SpiToken, SnToken, AdToken) ->
- Spi = ensure_hex(SpiToken, 8, 8),
- Sn = ensure_hex(SnToken, 8, 8),
- Ad = ensure_hex(AdToken, 24, 64),
- #'AuthenticationHeader'{secParmIndex = Spi, seqNum = Sn, ad = Ad}.
-
-%% The values 0x0, 0xFFFFFFFE and 0xFFFFFFFF are reserved.
-%% ContextID = (UINT32 / "*" / "-" / "$")
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_contextID,1}]}).
--endif.
-ensure_contextID(Token) ->
- {_TokenTag, Line, Text} = Token,
- case Text of
- "*" -> ?megaco_all_context_id;
- "-" -> ?megaco_null_context_id;
- "\$" -> ?megaco_choose_context_id;
- Int ->
- CID = ensure_uint32(Int),
- if
- (CID =/= 0) andalso
- (CID =/= 16#FFFFFFFE) andalso
- (CID =/= 16#FFFFFFFF) ->
- CID;
- true ->
- return_error(Line, {bad_ContextID, CID})
- end
- end.
-
-ensure_domainAddress([{_T, _L, _A} = Addr0], Port) ->
- Addr = ensure_ip4addr(Addr0),
- {ip4Address, #'IP4Address'{address = Addr, portNumber = Port}};
-ensure_domainAddress([colon,colon], Port) ->
- Addr = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
- {ip6Address, #'IP6Address'{address = Addr, portNumber = Port}};
-ensure_domainAddress(Addr0, Port) ->
- Addr = ensure_ip6addr(Addr0),
- {ip6Address, #'IP6Address'{address = Addr, portNumber = Port}}.
-
-
-ensure_ip4addr(Token) ->
- {_TokenTag, Line, Addr} = Token,
-%% case string:tokens(Addr, [$.]) of
-%% [T1, T2, T3, T4] ->
- case split_ip4addr_text(Addr, []) of
- [T1, T2, T3, T4] ->
- %% We optimize by sending only the text part (Addr) of
- %% the token to the function.
- %% If something is wrong, then we do not get a proper
- %% position and therefor we catch and issue the
- %% the error again (with the proper line number).
- case (catch [
- ensure_uint(T1, 0, 255),
- ensure_uint(T2, 0, 255),
- ensure_uint(T3, 0, 255),
- ensure_uint(T4, 0, 255)
- ]) of
- A when is_list(A) ->
- A;
- _ ->
- return_error(Line, {bad_IP4address, Addr})
- end;
- _ ->
- return_error(Line, {bad_IP4address, Addr})
- end.
-
-split_ip4addr_text([], Acc) ->
- [ lists:reverse(Acc) ];
-split_ip4addr_text([$. | Rest], Acc) ->
- [ lists:reverse(Acc) | split_ip4addr_text(Rest, []) ];
-split_ip4addr_text([H | T], Acc) ->
- split_ip4addr_text(T, [H | Acc]).
-
-
-ensure_ip6addr([colon,colon|T]) ->
- [H1|T1] = lists:reverse(T),
- case do_ensure_ip6addr(T1, true, [ensure_hex4_or_ip4addr(H1)], 1) of
- {true, A} when length(A) == 16 ->
- A;
- {true, B} when length(B) < 16 ->
- lists:duplicate(16 - length(B), 0) ++ B;
- {true, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, C}}})
- end;
-ensure_ip6addr(L) ->
- case lists:reverse(L) of
- [colon, colon| T] ->
- case do_ensure_ip6addr(T, true, [], 1) of
- {true, A} when length(A) == 16 ->
- A;
- {true, B} when length(B) < 16 ->
- B ++ lists:duplicate(16 - length(B), 0);
- {true, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, C}}})
- end;
- [H|L1] -> % A (last element) could be an ip4 address
- case do_ensure_ip6addr(L1,false,[ensure_hex4_or_ip4addr(H)],1) of
- {false, A} when length(A) == 16 ->
- A;
- %% allow a pad even if the address is full (i.e. 16)
- {true, B} when length(B) =< 17 ->
- do_ensure_ip6addr_padding(B, 0);
- {Pad, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, Pad, C}}})
- end
-
- end.
-
-
-do_ensure_ip6addr([], Pad, Acc, _) ->
- {Pad, lists:flatten(Acc)};
-do_ensure_ip6addr([colon,colon|T], false, Acc, Line) ->
- do_ensure_ip6addr(T, true, [pad|Acc], Line);
-do_ensure_ip6addr([colon,colon|T], true, Acc, Line) ->
- return_error(Line, {bad_mid_duplicate_padding, T, Acc});
-do_ensure_ip6addr([colon|T], Pad, Acc, Line) ->
- do_ensure_ip6addr(T, Pad, Acc, Line);
-do_ensure_ip6addr([{_, Line, _} = A|T], Pad, Acc, _) ->
- do_ensure_ip6addr(T, Pad, [ensure_hex4(A)|Acc], Line).
-
-do_ensure_ip6addr_padding([], _) ->
- [];
-do_ensure_ip6addr_padding([pad|T], N) ->
- lists:duplicate(16 - (N + length(T)), 0) ++ T;
-do_ensure_ip6addr_padding([H|T], N) ->
- [H|do_ensure_ip6addr_padding(T, N+1)].
-
-ensure_hex4_or_ip4addr({TokenTag, Line, Addr} = V) ->
- case string:tokens(Addr, [$.]) of
- [T1, T2, T3, T4] ->
- A1 = ensure_uint({TokenTag, Line, T1}, 0, 255),
- A2 = ensure_uint({TokenTag, Line, T2}, 0, 255),
- A3 = ensure_uint({TokenTag, Line, T3}, 0, 255),
- A4 = ensure_uint({TokenTag, Line, T4}, 0, 255),
- [A1, A2, A3, A4];
- _ ->
- ensure_hex4(V)
- %% %% BMK BMK BMK
- %% %% Here we should test for hexseq
- %% return_error(Line, {bad_IP4address, Addr})
- end.
-
-ensure_hex4({_TokenTag, Line, Hex4})
- when length(Hex4) =< 4, length(Hex4) > 0 ->
- case (catch do_ensure_hex4(Hex4)) of
- IL when is_list(IL) andalso (length(IL) =:= 2) ->
- IL;
- Error ->
- return_error(Line, {bad_hex4, Hex4, Error})
- end.
-
-do_ensure_hex4([_H1, _H2, _H3, _H4] = H) ->
- hex_to_int(H, []);
-do_ensure_hex4([H2, H3, H4]) ->
- hex_to_int([$0, H2, H3, H4], []);
-do_ensure_hex4([H3, H4]) ->
- hex_to_int([$0, $0, H3, H4], []);
-do_ensure_hex4([H4]) ->
- hex_to_int([$0, $0, $0, H4], []).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_domainName,2}]}).
--endif.
-ensure_domainName(Token, Port) ->
- {_TokenTag, _Line, Name} = Token,
- %% BUGBUG: validate name
- {domainName, #'DomainName'{name = Name, portNumber = Port}}.
-
-%% extensionParameter= "X" ("-" / "+") 1*6(ALPHA / DIGIT)
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_extensionParameter,1}]}).
--endif.
-ensure_extensionParameter(Token) ->
- {_TokenTag, Line, Text} = Token,
- case Text of
- [X, S | _Chars] ->
- if
- X /= $X, X /= $x,
- S /= $+, S /= $- ->
- return_error(Line, {bad_extension_parameter, Text});
- true ->
- {extension_parameter, Text}
- end;
- _ ->
- return_error(Line, {bad_extension_parameter, Text})
- end.
-
-ensure_message(MegacopToken, MID, Body) ->
-%% #'ServiceChangeProfile'{profileName = Name,
-%% version = Version} =
-%% ensure_profile(MegacopToken),
-%% case Name of
-%% "megaco" ->
-%% #'Message'{version = Version, mId = MID, messageBody = Body};
-%% [$!] ->
-%% #'Message'{version = Version, mId = MID, messageBody = Body}
-%% end.
- {_TokenTag, Line, Text} = MegacopToken,
- case split_Megacop(Text, []) of
- {Name, Version} ->
- Version2 = ensure_version(Version),
- case Name of
- "megaco" ->
- #'Message'{version = Version2,
- mId = MID,
- messageBody = Body};
- [$!] ->
- #'Message'{version = Version2,
- mId = MID,
- messageBody = Body}
- end;
- _ ->
- return_error(Line, {bad_name_or_version, Text})
- end.
-
-split_Megacop([], _) ->
- error;
-split_Megacop([$/ | Version], Acc) ->
- {lists:reverse(Acc), Version};
-split_Megacop([H | T], Acc) ->
- split_Megacop(T, [H | Acc]).
-
-
-%% Corr1:
-%% As of corr 1 ModemDescriptor has been deprecated.
-%% and since this functon is only used when creating
-%% a ModemDescriptor, iit is removed.
-%% modemType = (V32bisToken / V22bisToken / V18Token /
-%% V22Token / V32Token / V34Token / V90Token /
-%% V91Token / SynchISDNToken / extensionParameter)
-%% ensure_modemType({_TokenTag, _Line, Text} = Token) ->
-%% case Text of
-%% "v32b" -> v32bis;
-%% "v22b" -> v22bis;
-%% "v18" -> v18;
-%% "v22" -> v22;
-%% "v32" -> v32;
-%% "v34" -> v34;
-%% "v90" -> v90;
-%% "v91" -> v91;
-%% "synchisdn" -> synchISDN;
-%% "sn" -> synchISDN;
-%% [$x | _] -> ensure_extensionParameter(Token)
-%% end.
-
-%% An mtp address is five octets long
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_mtpAddress,1}]}).
--endif.
-ensure_mtpAddress(Token) ->
- {_TokenTag, _Line, Addr} = Token,
- %% BUGBUG: validate address
- {mtpAddress, Addr}.
-
-%% MuxType = ( H221Token / H223Token / H226Token / V76Token / extensionParameter )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_muxType,1}]}).
--endif.
-ensure_muxType(Token) ->
- {_TokenTag, _Line, Text} = Token,
- case Text of
- "h221" -> h221;
- "h223" -> h223;
- "h226" -> h226;
- "v76" -> v76;
- "nx64k" -> nx64k; % v2
- [$x | _] -> ensure_extensionParameter(Token)
- end.
-
-%% packagesItem = NAME "-" UINT16
-%% NAME = ALPHA *63(ALPHA / DIGIT / "_" )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_packagesItem,1}]}).
--endif.
-ensure_packagesItem(Token) ->
- {_TokenTag, Line, Text} = Token,
- case split_packagesItem(Text, []) of
- {Name, Version} ->
- %% As we don't ensure length of the names, there is no point
- %% in doing the ensure_NAME thing...
- #'PackagesItem'{packageName = Name,
- packageVersion = ensure_uint(Version, 0, 99)};
- _ ->
- return_error(Line, {bad_PackagesItem, Text})
- end.
-
-split_packagesItem([], _) ->
- error;
-split_packagesItem([$- | Version], Acc) ->
- {lists:reverse(Acc), Version};
-split_packagesItem([H|T], Acc) ->
- split_packagesItem(T, [H|Acc]).
-
-
-%% pkgdName = (PackageName / "*") SLASH (ItemID / "*" )
-%% PackageName = NAME
-%% ItemID = NAME
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_pkgdName,1}]}).
--endif.
-ensure_pkgdName(Token) ->
- {_TokenTag, Line, Text} = Token,
- case ensure_pkgdName(Text, []) of
- ok ->
- %% As we don't really do any checks on the strings
- %% (length or content) there is really no point in
- %% "ensuring" the name and item part of the
- %% package name
- %% ensure_name_or_star(Name),
- %% ensure_name_or_star(Item),
- Text;
- _ ->
- return_error(Line, {bad_pkgdName, Text})
- end.
-
-ensure_pkgdName([], _) ->
- error;
-ensure_pkgdName([$/ | T], Acc)
- when ((length(T) > 0) andalso (length(Acc) > 0)) ->
- ok;
-ensure_pkgdName([H | T], Acc) ->
- ensure_pkgdName(T, [H | Acc]).
-
-
-%% -compile({inline,[{ensure_name_or_star,1}]}).
-%% ensure_name_or_star(Val) ->
-%% %% case Token of
-%% %% {_, _, Name} when Name =:= "*" ->
-%% %% Name;
-%% %% _ ->
-%% %% ensure_NAME(Token)
-%% %% end.
-%% if
-%% Val =:= "*" ->
-%% Val;
-%% true ->
-%% %% as we don't really validate the text part of the token(s),
-%% %% we can just return the value assuming it to be correct...
-%% Val
-%% end.
-
-
-%% v2 - start
-
-merge_indAudMediaDescriptor({termStateDescr, Val}) ->
- #'IndAudMediaDescriptor'{termStateDescr = Val};
-merge_indAudMediaDescriptor({streamParm, Val}) ->
- #'IndAudMediaDescriptor'{streams = {oneStream, Val}};
-merge_indAudMediaDescriptor({streamDescr, Val}) ->
- #'IndAudMediaDescriptor'{streams = {multiStream, [Val]}}.
-
--ifdef(megaco_parser_inline).
--compile({inline, [{merge_indAudLocalControlDescriptor,1}]}).
--endif.
-merge_indAudLocalControlDescriptor(Parms) ->
- do_merge_indAudLocalControlDescriptor(Parms,
- #'IndAudLocalControlDescriptor'{}).
-
-do_merge_indAudLocalControlDescriptor([Parm | Parms], Desc) ->
- case Parm of
- modeToken when Desc#'IndAudLocalControlDescriptor'.streamMode =:= asn1_NOVALUE ->
- Desc2 = Desc#'IndAudLocalControlDescriptor'{streamMode = 'NULL'},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2);
- reservedGroupToken when Desc#'IndAudLocalControlDescriptor'.reserveGroup =:= asn1_NOVALUE ->
- Desc2 = Desc#'IndAudLocalControlDescriptor'{reserveGroup = 'NULL'},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2);
- reservedValueToken when Desc#'IndAudLocalControlDescriptor'.reserveValue =:= asn1_NOVALUE ->
- Desc2 = Desc#'IndAudLocalControlDescriptor'{reserveValue = 'NULL'},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2);
- {pkgdName, Val} when Desc#'IndAudLocalControlDescriptor'.propertyParms =:= asn1_NOVALUE ->
- PropParms = [#'IndAudPropertyParm'{name = Val}],
- Desc2 = Desc#'IndAudLocalControlDescriptor'{propertyParms = PropParms},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2);
- {pkgdName, Val} when is_list(Desc#'IndAudLocalControlDescriptor'.propertyParms) ->
- PropParms = Desc#'IndAudLocalControlDescriptor'.propertyParms,
- PropParms2 = [#'IndAudPropertyParm'{name = Val} | PropParms],
- Desc2 = Desc#'IndAudLocalControlDescriptor'{propertyParms = PropParms2},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2)
- end;
-do_merge_indAudLocalControlDescriptor([], Desc) ->
- case Desc#'IndAudLocalControlDescriptor'.propertyParms of
- [_ | _] = PropParms -> % List has more then one element
- PropParms2= lists:reverse(PropParms),
- Desc#'IndAudLocalControlDescriptor'{propertyParms = PropParms2};
- _ ->
- Desc
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_indAudLocalParm,1}]}).
--endif.
-ensure_indAudLocalParm(Token) ->
- case Token of
- {safeToken, _Line, "mode"} -> modeToken;
- {safeToken, _Line, "mo"} -> modeToken;
- {safeToken, _Line, "reservedgroup"} -> reservedGroupToken;
- {safeToken, _Line, "rg"} -> reservedGroupToken;
- {safeToken, _Line, "reservedvalue"} -> reservedValueToken;
- {safeToken, _Line, "rv"} -> reservedValueToken;
- PkgdName -> {pkgdName,
- ensure_pkgdName(PkgdName)}
- end.
-
-merge_indAudTerminationStateDescriptor({pkgdName, Val}) ->
- PropParm = #'IndAudPropertyParm'{name = Val},
- #'IndAudTerminationStateDescriptor'{propertyParms = [PropParm]};
-merge_indAudTerminationStateDescriptor(serviceStatesToken) ->
- #'IndAudTerminationStateDescriptor'{serviceState = 'NULL'};
-merge_indAudTerminationStateDescriptor(bufferToken) ->
- #'IndAudTerminationStateDescriptor'{eventBufferControl = 'NULL'}.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_indAudEventBufferDescriptor,2}]}).
--endif.
-merge_indAudEventBufferDescriptor(EventName, SpecParams) ->
- IAEBD = #'IndAudEventBufferDescriptor'{eventName = EventName},
- do_merge_indAudEventBufferDescriptor(SpecParams, IAEBD).
-
-do_merge_indAudEventBufferDescriptor(asn1_NOVALUE, IAEBD) ->
- IAEBD;
-do_merge_indAudEventBufferDescriptor({streamID, StreamID}, IAEBD) ->
- IAEBD#'IndAudEventBufferDescriptor'{streamID = StreamID};
-do_merge_indAudEventBufferDescriptor({eventParameterName, _Name} = EPN,
- IAEBD) ->
- %% BUGBUG BUGBUG BUGBUG
- %% This is an ugly hack to allow the eventParamName which only
- %% exists in the text encoding...
- IAEBD#'IndAudEventBufferDescriptor'{streamID = EPN}.
-
-
-ensure_indAudSignalListParm(SIG) when is_record(SIG, 'Signal') ->
- ensure_indAudSignal(SIG).
-
-ensure_indAudSignal(#'Signal'{signalName = SignalName,
- streamID = asn1_NOVALUE,
- sigType = asn1_NOVALUE,
- duration = asn1_NOVALUE,
- notifyCompletion = asn1_NOVALUE,
- keepActive = asn1_NOVALUE,
- sigParList = []}) ->
- #'IndAudSignal'{signalName = SignalName}.
-
-
-ensure_IADMD({_TokenTag, _Line,
- #'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = asn1_NOVALUE}}) ->
- #'IndAudDigitMapDescriptor'{digitMapName = Name}.
-
-
-merge_indAudPackagesDescriptor(#'PackagesItem'{packageName = N,
- packageVersion = V}) ->
- #'IndAudPackagesDescriptor'{packageName = N,
- packageVersion = V}.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_indAudTerminationStateParm,1}]}).
--endif.
-ensure_indAudTerminationStateParm(Token) ->
- case Token of
- {safeToken, _Line, "servicestates"} -> serviceStatesToken;
- {safeToken, _Line, "si"} -> serviceStatesToken;
- {safeToken, _Line, "buffer"} -> bufferToken;
- {safeToken, _Line, "bf"} -> bufferToken;
- PkgdName -> {pkgdName,
- ensure_pkgdName(PkgdName)}
- end.
-
-
-%% Types modified by v2:
-
-merge_auditDescriptor([]) ->
- #'AuditDescriptor'{};
-merge_auditDescriptor(Tokens) when is_list(Tokens) ->
- case lists:keysearch(terminationAudit, 1, Tokens) of
- {value, {terminationAudit, TA}} ->
- case lists:keydelete(terminationAudit, 1, Tokens) of
- [] ->
- #'AuditDescriptor'{auditPropertyToken = TA};
- AuditTokens ->
- #'AuditDescriptor'{auditToken = AuditTokens,
- auditPropertyToken = TA}
- end;
- false ->
- #'AuditDescriptor'{auditToken = Tokens}
- end;
-merge_auditDescriptor(_) ->
- #'AuditDescriptor'{}.
-
-
-%% v2 - end
-
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_ServiceChangeParm,1}]}).
--endif.
-merge_ServiceChangeParm(Parms) ->
- Required = [serviceChangeReason, serviceChangeMethod],
- merge_ServiceChangeParm(Parms, #'ServiceChangeParm'{}, Required).
-
-merge_ServiceChangeParm([], SCP, []) ->
- SCP;
-
-merge_ServiceChangeParm([], _SCP, Required) ->
- exit({missing_required_serviceChangeParm, Required});
-
-merge_ServiceChangeParm([{address, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE) andalso
- (SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE) ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeAddress = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{address, Val}|_Parms], SCP0, _Req)
- when SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE ->
- MgcId = SCP0#'ServiceChangeParm'.serviceChangeMgcId,
- exit({not_both_address_mgcid_serviceChangeParm, Val, MgcId});
-
-merge_ServiceChangeParm([{mgc_id, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE) andalso
- (SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE) ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeMgcId = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{mgc_id, Val}|_Parms], SCP0, _Req)
- when SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE ->
- Addr = SCP0#'ServiceChangeParm'.serviceChangeAddress,
- exit({not_both_address_mgcid_serviceChangeParm, Val, Addr});
-
-merge_ServiceChangeParm([{profile, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeProfile == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeProfile = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{version, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeVersion == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeVersion = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-%% REQUIRED (i.e. no default value)
-merge_ServiceChangeParm([{reason, Val}|Parms], SCP0, Req0)
- when SCP0#'ServiceChangeParm'.serviceChangeReason == undefined ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeReason = Val},
- Req = lists:delete(serviceChangeReason, Req0),
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{delay, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeDelay == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeDelay = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-%% REQUIRED (i.e. no default value)
-merge_ServiceChangeParm([{method, Val}|Parms], SCP0, Req0)
- when SCP0#'ServiceChangeParm'.serviceChangeMethod == undefined ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeMethod = Val},
- Req = lists:delete(serviceChangeMethod, Req0),
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{time_stamp, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.timeStamp == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{timeStamp = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{extension, _Val}|Parms], SCP0, Req) ->
- merge_ServiceChangeParm(Parms, SCP0, Req);
-
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeInfo == asn1_NOVALUE) andalso
- is_atom(Val) ->
- SCI = #'AuditDescriptor'{auditToken = [Val]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeInfo == asn1_NOVALUE) andalso
- is_tuple(Val) ->
- SCI = #'AuditDescriptor'{auditPropertyToken = [Val]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when is_record(SCP0#'ServiceChangeParm'.serviceChangeInfo, 'AuditDescriptor') andalso
- is_atom(Val) ->
- SCI0 = SCP0#'ServiceChangeParm'.serviceChangeInfo,
- L = SCI0#'AuditDescriptor'.auditToken,
- SCI = SCI0#'AuditDescriptor'{auditToken = [Val|L]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when is_record(SCP0#'ServiceChangeParm'.serviceChangeInfo, 'AuditDescriptor') andalso
- is_tuple(Val) ->
- SCI0 = SCP0#'ServiceChangeParm'.serviceChangeInfo,
- L = SCI0#'AuditDescriptor'.auditPropertyToken,
- SCI = SCI0#'AuditDescriptor'{auditPropertyToken = [Val|L]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([incomplete|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeIncompleteFlag == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeIncompleteFlag = 'NULL'},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{Tag, Val}|_Parms], SCP, _Req) ->
- Val2 =
- case Tag of
- address ->
- SCP#'ServiceChangeParm'.serviceChangeAddress;
- mgc_id ->
- SCP#'ServiceChangeParm'.serviceChangeMgcId;
- profile ->
- SCP#'ServiceChangeParm'.serviceChangeProfile;
- version ->
- SCP#'ServiceChangeParm'.serviceChangeVersion;
- reason ->
- SCP#'ServiceChangeParm'.serviceChangeReason;
- delay ->
- SCP#'ServiceChangeParm'.serviceChangeDelay;
- method ->
- SCP#'ServiceChangeParm'.serviceChangeMethod;
- time_stamp ->
- SCP#'ServiceChangeParm'.timeStamp;
- audit_item ->
- SCP#'ServiceChangeParm'.serviceChangeInfo
- end,
- exit({at_most_once_serviceChangeParm, {Tag, Val, Val2}});
-merge_ServiceChangeParm([Parm|_Parms], SCP, _Req) ->
- Parm2 =
- case Parm of
- incomplete ->
- SCP#'ServiceChangeParm'.serviceChangeIncompleteFlag
- end,
- exit({at_most_once_serviceChangeParm, {Parm, Parm2}}).
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_ServiceChangeResParm,1}]}).
--endif.
-merge_ServiceChangeResParm(Parms) ->
- merge_ServiceChangeResParm(Parms, #'ServiceChangeResParm'{}).
-
-merge_ServiceChangeResParm([], SCRP) ->
- SCRP;
-merge_ServiceChangeResParm([{address, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE,
- SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeAddress = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-merge_ServiceChangeResParm([{address, Val}|_Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE ->
- MgcId = SCRP0#'ServiceChangeResParm'.serviceChangeMgcId,
- exit({not_both_address_mgcid_servChgReplyParm, Val, MgcId});
-
-merge_ServiceChangeResParm([{mgc_id, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE,
- SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeMgcId = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-merge_ServiceChangeResParm([{mgc_id, Val}|_Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE ->
- Addr = SCRP0#'ServiceChangeResParm'.serviceChangeAddress,
- exit({not_both_address_mgcid_servChgReplyParm, Val, Addr});
-
-merge_ServiceChangeResParm([{profile, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeProfile == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeProfile = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{version, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeVersion == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeVersion = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{time_stamp, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.timeStamp == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{timeStamp = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{Tag, Val}|_Parms], SCRP) ->
- Val2 =
- case Tag of
- address -> SCRP#'ServiceChangeResParm'.serviceChangeAddress;
- mgc_id -> SCRP#'ServiceChangeResParm'.serviceChangeMgcId;
- profile -> SCRP#'ServiceChangeResParm'.serviceChangeProfile;
- version -> SCRP#'ServiceChangeResParm'.serviceChangeVersion;
- time_stamp -> SCRP#'ServiceChangeResParm'.timeStamp
- end,
- exit({at_most_once_servChgReplyParm, {Tag, Val, Val2}}).
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_serviceChangeMethod,1}]}).
--endif.
-ensure_serviceChangeMethod(Token) ->
- case Token of
- {safeToken, _Line, "fl"} ->
- failover;
- {safeToken, _Line, "failover"} ->
- failover;
- {safeToken, _Line, "fo"} ->
- forced;
- {safeToken, _Line, "forced"} ->
- forced;
- {safeToken, _Line, "gr"} ->
- graceful;
- {safeToken, _Line, "graceful"} ->
- graceful;
- {safeToken, _Line, "rs"} ->
- restart;
- {safeToken, _Line, "restart"} ->
- restart;
- {safeToken, _Line, "dc"} ->
- disconnected;
- {safeToken, _Line, "disconnected"} ->
- disconnected;
- {safeToken, _Line, "ho"} ->
- handOff;
- {safeToken, _Line, "handoff"} ->
- handOff;
- {safeToken, Line, Text} ->
- return_error(Line, {bad_serviceChangeMethod, Text})
- end.
-
-
-ensure_profile({_TokenTag, Line, Text}) ->
- case string:tokens(Text, [$/]) of
- [Name, Version] ->
- Version2 = ensure_version(Version),
- #'ServiceChangeProfile'{profileName = Name, version = Version2};
- _ ->
- return_error(Line, {bad_profile, Text})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_version,1}]}).
--endif.
-ensure_version(Version) ->
- ensure_uint(Version, 0, 99).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_signalRequest,2}]}).
--endif.
-merge_signalRequest(SignalName, PropertyParms) ->
- Sig = #'Signal'{signalName = SignalName},
- SPL = [],
- do_merge_signalRequest(Sig, PropertyParms, SPL).
-
-do_merge_signalRequest(Sig, [H | T], SPL) ->
- case H of
- {stream, SID} when Sig#'Signal'.streamID == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{streamID = SID}, T, SPL);
- {signal_type, SigType} when Sig#'Signal'.sigType == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{sigType = SigType}, T, SPL);
- {duration, Duration} when Sig#'Signal'.duration == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{duration = Duration}, T, SPL);
- {notify_completion, NC} when Sig#'Signal'.notifyCompletion == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{notifyCompletion = NC}, T, SPL);
- keepActive when Sig#'Signal'.keepActive == asn1_NOVALUE->
- do_merge_signalRequest(Sig#'Signal'{keepActive = true}, T, SPL);
- {other, Name, PP} ->
- SP = #'SigParameter'{sigParameterName = Name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_signalRequest(Sig, T, [SP | SPL]);
- {direction, Dir} when Sig#'Signal'.direction == asn1_NOVALUE->
- do_merge_signalRequest(Sig#'Signal'{direction = Dir}, T, SPL);
- {requestId, RID} when Sig#'Signal'.requestID == asn1_NOVALUE->
- do_merge_signalRequest(Sig#'Signal'{requestID = RID}, T, SPL);
- _ ->
- return_error(0, {bad_sigParm, H})
- end;
-do_merge_signalRequest(Sig, [], SPL) ->
- Sig#'Signal'{sigParList = lists:reverse(SPL)} .
-
-%% eventStream = StreamToken EQUAL StreamID
-%% eventOther = eventParameterName parmValue
--ifdef(megaco_parser_inline).
--compile({inline,[{select_stream_or_other,2}]}).
--endif.
-select_stream_or_other(EventParameterName, ParmValue) ->
- if
- (EventParameterName =:= "st") orelse
- (EventParameterName =:= "stream") ->
- case ParmValue of
- #'PropertyParm'{value = [Value]} ->
- {stream, ensure_uint16(Value)};
- _ ->
- {stream, ensure_uint16(ParmValue)}
- end;
- true ->
- #'PropertyParm'{value = Value} = ParmValue,
- EP = #'EventParameter'{eventParameterName = EventParameterName,
- value = Value},
- {other, EP}
- end.
-
-%% select_stream_or_other("st", #'PropertyParm'{value = [Value]}) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("st", Value) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("stream", #'PropertyParm'{value = [Value]}) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("stream", Value) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other(Name, #'PropertyParm'{value = Value}) ->
-%% EP = #'EventParameter'{eventParameterName = Name,
-%% value = Value},
-%% {other, EP}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_eventDM,1}]}).
--endif.
-ensure_eventDM(Token) ->
- {_TokenTag, Line, DMD} = Token,
- if
- is_record(DMD, 'DigitMapDescriptor') ->
- Name = DMD#'DigitMapDescriptor'.digitMapName,
- Val = DMD#'DigitMapDescriptor'.digitMapValue,
- if
- (Name =:= asn1_NOVALUE) andalso (Val =/= asn1_NOVALUE) ->
- {'DigitMapValue', Start, Short, Long, Duration, Body} = Val,
- DMV = #'DigitMapValue'{startTimer = Start,
- shortTimer = Short,
- longTimer = Long,
- digitMapBody = Body,
- durationTimer = Duration},
- {eventDM, {digitMapValue, DMV}};
- (Name =/= asn1_NOVALUE) andalso (Val =:= asn1_NOVALUE) ->
- {eventDM, {digitMapName, Name}};
- true ->
- return_error(Line, {bad_eventDM, DMD})
- end;
- true ->
- return_error(Line, {bad_eventDM, DMD})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_DMD,1}]}).
--endif.
-ensure_DMD(Token) ->
- {_TokenTag, Line, DMD} = Token,
- if
- is_record(DMD, 'DigitMapDescriptor') ->
- Val2 =
- case DMD#'DigitMapDescriptor'.digitMapValue of
- %% Note that the values of the digitMapBody and
- %% durationTimers are swapped by the scanner
- %% (this is done because of a problem in the flex scanner).
- #'DigitMapValue'{startTimer = asn1_NOVALUE,
- shortTimer = asn1_NOVALUE,
- longTimer = asn1_NOVALUE,
- durationTimer = [],
- digitMapBody = asn1_NOVALUE} ->
- asn1_NOVALUE;
- #'DigitMapValue'{durationTimer = Body,
- digitMapBody = Duration} = DMV ->
- %% Convert to version 1 DigitMapValue
- DMV#'DigitMapValue'{digitMapBody = Body,
- durationTimer = Duration};
- Other ->
- Other
- end,
- DMD#'DigitMapDescriptor'{digitMapValue = Val2};
- true ->
- return_error(Line, {bad_DigitMapDescriptor, DMD})
- end.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_observed_event,3}]}).
--endif.
-merge_observed_event(ObservedEvents, EventName, TimeStamp) ->
- StreamId = asn1_NOVALUE,
- EPL = [],
- do_merge_observed_event(ObservedEvents, EventName, TimeStamp, StreamId, EPL).
-
-do_merge_observed_event([{stream, StreamID} | T], EventName, TimeStamp, asn1_NOVALUE, EPL) ->
- do_merge_observed_event(T, EventName, TimeStamp, StreamID, EPL);
-do_merge_observed_event([{other, PP} | T], EventName, TimeStamp, StreamID, EPL) ->
- do_merge_observed_event(T, EventName, TimeStamp, StreamID, [PP | EPL]);
-do_merge_observed_event([], EventName, TimeStamp, StreamID, EPL) ->
- #'ObservedEvent'{eventName = EventName,
- timeNotation = TimeStamp,
- streamID = StreamID,
- eventParList = lists:reverse(EPL)}.
-
-merge_eventSpec(OE)
- when is_record(OE, 'ObservedEvent') andalso
- (OE#'ObservedEvent'.timeNotation == asn1_NOVALUE) ->
- #'EventSpec'{eventName = OE#'ObservedEvent'.eventName,
- streamID = OE#'ObservedEvent'.streamID,
- eventParList = OE#'ObservedEvent'.eventParList};
-merge_eventSpec(OE) ->
- return_error(0, {bad_event_spec, OE}).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_eventParameters,1}]}).
--endif.
-merge_eventParameters(Params) ->
- StreamId = asn1_NOVALUE,
- EPL = [],
- RA = #'RequestedActions'{},
- HasA = no,
- do_merge_eventParameters(Params, StreamId, EPL, RA, HasA) .
-
-do_merge_eventParameters([H | T], StreamId, EPL, RA, HasA) ->
- case H of
- keepActive when RA#'RequestedActions'.keepActive == asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{keepActive = true},
- do_merge_eventParameters(T, StreamId, EPL, RA2, yes);
- {embed, SD, SED} when RA#'RequestedActions'.signalsDescriptor == asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{signalsDescriptor = SD,
- secondEvent = SED},
- do_merge_eventParameters(T, StreamId, EPL, RA2, yes);
- {eventDM, DM} when RA#'RequestedActions'.eventDM == asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{eventDM = DM},
- do_merge_eventParameters(T, StreamId, EPL, RA2, yes);
- {stream, NewStreamId} when StreamId == asn1_NOVALUE ->
- do_merge_eventParameters(T, NewStreamId, EPL, RA, HasA);
- {other, PP} when is_record(PP, 'PropertyParm') ->
- EP = #'EventParameter'{eventParameterName = PP#'PropertyParm'.name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_eventParameters(T, StreamId, [EP | EPL], RA, HasA);
- {other, EP} when is_record(EP, 'EventParameter') ->
- do_merge_eventParameters(T, StreamId, [EP | EPL], RA, HasA);
- _ ->
- return_error(0, {bad_eventParameter, H})
- end;
-do_merge_eventParameters([], StreamId, EPL, RA, yes) ->
- #'RequestedEvent'{streamID = StreamId,
- eventAction = RA,
- evParList = lists:reverse(EPL)};
-do_merge_eventParameters([], StreamId, EPL, _RA, no) ->
- #'RequestedEvent'{streamID = StreamId,
- eventAction = asn1_NOVALUE,
- evParList = lists:reverse(EPL)}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_secondEventParameters,1}]}).
--endif.
-merge_secondEventParameters(Params) ->
- StreamId = asn1_NOVALUE,
- EPL = [],
- SRA = #'SecondRequestedActions'{},
- HasA = no,
- do_merge_secondEventParameters(Params, StreamId, EPL, SRA, HasA) .
-
-do_merge_secondEventParameters([H | T], StreamId, EPL, SRA, HasA) ->
- case H of
- keepActive when SRA#'SecondRequestedActions'.keepActive =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{keepActive = true},
- do_merge_secondEventParameters(T, StreamId, EPL, SRA2, yes);
- {second_embed, SD} when SRA#'SecondRequestedActions'.signalsDescriptor =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{signalsDescriptor = SD},
- do_merge_secondEventParameters(T, StreamId, EPL, SRA2, yes);
- {eventDM, DM} when SRA#'SecondRequestedActions'.eventDM =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{eventDM = DM},
- do_merge_secondEventParameters(T, StreamId, EPL, SRA2, yes);
- {stream, NewStreamId} when StreamId =:= asn1_NOVALUE ->
- do_merge_secondEventParameters(T, NewStreamId, EPL, SRA, HasA);
- {other, PP} when is_record(PP, 'PropertyParm') ->
- EP = #'EventParameter'{eventParameterName = PP#'PropertyParm'.name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_secondEventParameters(T, StreamId, [EP | EPL], SRA, HasA);
- {other, EP} when is_record(EP, 'EventParameter') ->
- do_merge_secondEventParameters(T, StreamId, [EP | EPL], SRA, HasA);
- _ ->
- return_error(0, {bad_secondEventParameter, H})
- end;
-do_merge_secondEventParameters([], StreamId, EPL, SRA, yes) ->
- #'SecondRequestedEvent'{streamID = StreamId,
- eventAction = SRA,
- evParList = lists:reverse(EPL)};
-do_merge_secondEventParameters([], StreamId, EPL, _SRA, no) ->
- #'SecondRequestedEvent'{streamID = StreamId,
- eventAction = asn1_NOVALUE,
- evParList = lists:reverse(EPL)}.
-
-%% terminationID = "ROOT" / pathName / "$" / "*"
-%% Total length of pathName must not exceed 64 chars.
-%% pathName = ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
-%% ["@" pathDomainName ]
-%% ABNF allows two or more consecutive "." although it is meaningless
-%% in a path domain name.
-%% pathDomainName = (ALPHA / DIGIT / "*" )
-%% *63(ALPHA / DIGIT / "-" / "*" / ".")
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_terminationID,1}]}).
--endif.
-ensure_terminationID(Token) ->
- {safeToken, _Line, LowerText} = Token,
- %% terminationID = "ROOT" / pathName / "$" / "*"
- decode_term_id(LowerText, false, [], []).
-
-decode_term_id([H | T], Wild, Id, Component) ->
- case H of
- $/ -> decode_term_id(T, Wild, [lists:reverse(Component) | Id], []);
- $* -> decode_term_id(T, true, Id, [?megaco_all | Component]);
- $$ -> decode_term_id(T, true, Id, [?megaco_choose | Component]);
- _ -> decode_term_id(T, Wild, Id, [H | Component])
- end;
-decode_term_id([], Wild, Id, Component) ->
- Id2 = [lists:reverse(Component) | Id],
- #megaco_term_id{contains_wildcards = Wild, id = lists:reverse(Id2)}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_pathName,1}]}).
--endif.
-ensure_pathName(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text. %% BUGBUG: ensure values
-
-%% TimeStamp = Date "T" Time ; per ISO 8601:1988
-%% Date = 8(DIGIT) ; Date = yyyymmdd
-%% Time = 8(DIGIT) ; Time = hhmmssss
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_timeStamp,1}]}).
--endif.
-ensure_timeStamp(Token) ->
- {'TimeStampToken', Line, Text} = Token,
- case string:tokens(Text, [$T, $t]) of
- [Date, Time] ->
- #'TimeNotation'{date = Date, time = Time};
- _ ->
- return_error(Line, {bad_timeStamp, Text})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_transactionID,1}]}).
--endif.
-ensure_transactionID(TransId) ->
- ensure_uint32(TransId).
-
-%% transactionAck = transactionID / (transactionID "-" transactionID)
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_transactionAck,1}]}).
--endif.
-ensure_transactionAck(Tokens) ->
- {safeToken, _Line, Text} = Tokens,
- ensure_transactionAck2(Text, []).
-
-ensure_transactionAck2([], Acc) ->
- Id = lists:reverse(Acc),
- #'TransactionAck'{firstAck = ensure_transactionID(Id)};
-ensure_transactionAck2([$- | Id2], Acc) ->
- Id1 = lists:reverse(Acc),
- #'TransactionAck'{firstAck = ensure_transactionID(Id1),
- lastAck = ensure_transactionID(Id2)};
-ensure_transactionAck2([H|T], Acc) ->
- ensure_transactionAck2(T, [H|Acc]).
-
-
-merge_context_request(CR, []) ->
- CR;
-merge_context_request(CR, [H|T]) ->
- case H of
- {priority, Int} when CR#'ContextRequest'.priority == asn1_NOVALUE ->
- merge_context_request(CR#'ContextRequest'{priority = Int}, T);
-
- {emergency, Bool} when CR#'ContextRequest'.emergency == asn1_NOVALUE ->
- merge_context_request(CR#'ContextRequest'{emergency = Bool}, T);
-
- {topology, Desc} when CR#'ContextRequest'.topologyReq == asn1_NOVALUE ->
- merge_context_request(CR#'ContextRequest'{topologyReq = Desc}, T);
-
- {iepsCallind, Ind} when CR#'ContextRequest'.iepsCallind == asn1_NOVALUE ->
- merge_context_request(CR#'ContextRequest'{iepsCallind = Ind}, T);
-
- {prop, Prop} when CR#'ContextRequest'.contextProp == asn1_NOVALUE ->
- merge_context_request(CR#'ContextRequest'{contextProp = [Prop]}, T);
- {Tag, Val} ->
- Val2 =
- case Tag of
- priority -> CR#'ContextRequest'.priority;
- emergency -> CR#'ContextRequest'.emergency;
- topology -> CR#'ContextRequest'.topologyReq;
- iepsCallind -> CR#'ContextRequest'.iepsCallind;
- prop -> CR#'ContextRequest'.contextProp
- end,
- exit({at_most_once_contextProperty, {Tag, Val, Val2}})
- end.
-
-
-merge_context_attr_audit_request(CAAR, []) ->
- CAAR;
-merge_context_attr_audit_request(CAAR, [H|T]) ->
- case H of
- priorityAudit when CAAR#'ContextAttrAuditRequest'.priority == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{priority = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- emergencyAudit when CAAR#'ContextAttrAuditRequest'.emergency == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{emergency = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- topologyAudit when CAAR#'ContextAttrAuditRequest'.topology == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{topology = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- iepsCallind when CAAR#'ContextAttrAuditRequest'.iepsCallind == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{iepsCallind = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- {prop, Name} when CAAR#'ContextAttrAuditRequest'.contextPropAud == asn1_NOVALUE ->
- CPA = [#'IndAudPropertyParm'{name = Name}],
- CAAR2 = CAAR#'ContextAttrAuditRequest'{contextPropAud = CPA},
- merge_context_attr_audit_request(CAAR2, T);
-
- {prop, Name} ->
- CPA = CAAR#'ContextAttrAuditRequest'.contextPropAud,
- CPA2 = [#'IndAudPropertyParm'{name = Name}|CPA],
- CAAR2 = CAAR#'ContextAttrAuditRequest'{contextPropAud = CPA2},
- merge_context_attr_audit_request(CAAR2, T)
-
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_action_request,2}]}).
--endif.
-merge_action_request(CtxId, Items) ->
- do_merge_action_request(Items, [], asn1_NOVALUE, asn1_NOVALUE, CtxId).
-
-do_merge_action_request([H|T], CmdReqs, CtxReq, CtxAuditReq, CtxId) ->
- case H of
- {commandRequest, CmdReq} ->
- do_merge_action_request(T, [CmdReq|CmdReqs],
- CtxReq, CtxAuditReq, CtxId);
-
- {contextProps, ContextReq} when CtxReq == asn1_NOVALUE ->
- do_merge_action_request(T, CmdReqs,
- ContextReq, CtxAuditReq, CtxId);
-
- {contextAudit, ContextAuditReq} when CtxAuditReq == asn1_NOVALUE ->
- do_merge_action_request(T, CmdReqs,
- CtxReq, ContextAuditReq, CtxId)
- end;
-do_merge_action_request([], CmdReqs, CtxReq, CtxAuditReq, CtxId) ->
- #'ActionRequest'{contextId = CtxId,
- contextRequest = strip_ContextRequest(CtxReq),
- contextAttrAuditReq = strip_ContextAttrAuditRequest(CtxAuditReq),
- commandRequests = lists:reverse(CmdReqs)}.
-
-
-%% OTP-5085:
-%% In order to solve a problem in the parser, the error descriptor
-%% has been put last in the non-empty commandReplyList, if it is not
-%% asn1_NOVALUE
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_action_reply,1}]}).
--endif.
-merge_action_reply(Items) ->
- do_merge_action_reply(Items, asn1_NOVALUE, asn1_NOVALUE, []).
-
-do_merge_action_reply([], Err, Ctx, Cmds) ->
- #'ActionReply'{errorDescriptor = Err,
- contextReply = strip_ContextRequest(Ctx),
- commandReply = lists:reverse(Cmds)};
-do_merge_action_reply([H|T], Err0, Ctx0, Cmds) ->
- case H of
- {error, Err1} when Err0 == asn1_NOVALUE ->
- do_merge_action_reply(T, Err1, Ctx0, Cmds);
- {command, Cmd} ->
- do_merge_action_reply(T, Err0, Ctx0, [Cmd | Cmds]);
- {context, Ctx1} when Ctx0 == asn1_NOVALUE ->
- do_merge_action_reply(T, Err0, Ctx1, Cmds)
- end.
-
-strip_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepsCallind = asn1_NOVALUE,
- contextProp = asn1_NOVALUE}) ->
- asn1_NOVALUE;
-strip_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepsCallind = asn1_NOVALUE,
- contextProp = []}) ->
- asn1_NOVALUE;
-strip_ContextRequest(asn1_NOVALUE) ->
- asn1_NOVALUE;
-strip_ContextRequest(R) ->
- R.
-
-strip_ContextAttrAuditRequest(asn1_NOVALUE) ->
- asn1_NOVALUE;
-strip_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topology = asn1_NOVALUE,
- iepsCallind = asn1_NOVALUE,
- contextPropAud = asn1_NOVALUE}) ->
- asn1_NOVALUE;
-strip_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topology = asn1_NOVALUE,
- iepsCallind = asn1_NOVALUE,
- contextPropAud = []}) ->
- asn1_NOVALUE;
-strip_ContextAttrAuditRequest(R) ->
- R.
-
-merge_AmmRequest_descriptors([], Acc) ->
- lists:reverse(Acc);
-merge_AmmRequest_descriptors([{_, deprecated}|Descs], Acc) ->
- merge_AmmRequest_descriptors(Descs, Acc);
-merge_AmmRequest_descriptors([Desc|Descs], Acc) ->
- merge_AmmRequest_descriptors(Descs, [Desc|Acc]).
-
-make_commandRequest({CmdTag, {_TokenTag, _Line, Text}}, Cmd) ->
- Req = #'CommandRequest'{command = {CmdTag, Cmd}},
- case Text of
- [$w, $- | _] ->
- Req#'CommandRequest'{wildcardReturn = 'NULL'};
- [$o, $-, $w, $- | _] ->
- Req#'CommandRequest'{optional = 'NULL', wildcardReturn = 'NULL'};
- [$o, $- | _] ->
- Req#'CommandRequest'{optional = 'NULL'};
- _ ->
- Req
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_terminationAudit,1}]}).
--endif.
-merge_terminationAudit(AuditReturnParameters) ->
- lists:reverse(do_merge_terminationAudit(AuditReturnParameters, [], [])).
-
-do_merge_terminationAudit([H| T], ARPs, AuditItems) ->
- case H of
- {auditReturnItem, AuditItem} ->
- do_merge_terminationAudit(T, ARPs, [AuditItem | AuditItems]);
- AuditReturnParameter ->
- do_merge_terminationAudit(T, [AuditReturnParameter | ARPs], AuditItems)
- end;
-do_merge_terminationAudit([], AuditReturnParameters, []) ->
- AuditReturnParameters;
-do_merge_terminationAudit([], AuditReturnParameters, AuditItems) ->
- AuditDescriptor = #'AuditDescriptor'{auditToken = AuditItems},
- AuditReturnParameter = {emptyDescriptors, AuditDescriptor},
- [AuditReturnParameter | AuditReturnParameters].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_mediaDescriptor,1}]}).
--endif.
-merge_mediaDescriptor(MediaParms) ->
- do_merge_mediaDescriptor(MediaParms, asn1_NOVALUE, [], []).
-
-do_merge_mediaDescriptor([H | T], TS, One, Multi) ->
- case H of
- {streamParm, Parm} when Multi =:= [] ->
- do_merge_mediaDescriptor(T, TS, [Parm | One], Multi);
- {streamDescriptor, Desc} when One =:= [] ->
- do_merge_mediaDescriptor(T, TS, One, [Desc | Multi]);
- {termState, TS2} when TS =:= asn1_NOVALUE ->
- do_merge_mediaDescriptor(T, TS2, One, Multi);
- _ ->
- return_error(0, {bad_merge_mediaDescriptor, [H, TS, One, Multi]})
- end;
-do_merge_mediaDescriptor([], TS, One, Multi) ->
- if
- (One =:= []) ->
- if (Multi =:= []) ->
- #'MediaDescriptor'{streams = asn1_NOVALUE,
- termStateDescr = TS};
- true -> % (Multi =/= [])
- Streams = {multiStream, lists:reverse(Multi)},
- #'MediaDescriptor'{streams = Streams,
- termStateDescr = TS}
- end;
- true -> % (One =/= [])
- if
- (Multi =:= []) ->
- Streams = {oneStream, merge_streamParms(One)},
- #'MediaDescriptor'{streams = Streams,
- termStateDescr = TS};
- true -> % (Multi =/= [])
- return_error(0,
- {bad_merge_mediaDescriptor, [TS, One, Multi]})
- end
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_streamParms,1}]}).
--endif.
-merge_streamParms(TaggedStreamParms) ->
- SP = #'StreamParms'{},
- do_merge_streamParms(TaggedStreamParms, SP).
-
-do_merge_streamParms([{Tag, D} | T] = All, SP) ->
- case Tag of
- local when SP#'StreamParms'.localDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{localDescriptor = D});
- remote when SP#'StreamParms'.remoteDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{remoteDescriptor = D});
- control ->
- LCD =
- case SP#'StreamParms'.localControlDescriptor of
- asn1_NOVALUE ->
- #'LocalControlDescriptor'{propertyParms = []};
- PrevLCD ->
- PrevLCD
- end,
- LCD2 = do_merge_control_streamParms(D, LCD),
- do_merge_streamParms(T, SP#'StreamParms'{localControlDescriptor = LCD2});
- statistics when SP#'StreamParms'.statisticsDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{statisticsDescriptor = D});
- _ ->
- return_error(0, {do_merge_streamParms, [All, SP]})
- end;
-do_merge_streamParms([], SP)
- when is_record(SP#'StreamParms'.localControlDescriptor,
- 'LocalControlDescriptor') ->
- LCD = SP#'StreamParms'.localControlDescriptor,
- PP = LCD#'LocalControlDescriptor'.propertyParms,
- LCD2 = LCD#'LocalControlDescriptor'{propertyParms = lists:reverse(PP)},
- SP#'StreamParms'{localControlDescriptor = LCD2};
-do_merge_streamParms([], SP) ->
- SP.
-
-
-do_merge_control_streamParms([{SubTag, SD} | T] = All, LCD) ->
- case SubTag of
- group when LCD#'LocalControlDescriptor'.reserveGroup =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{reserveGroup = SD},
- do_merge_control_streamParms(T, LCD2);
- value when LCD#'LocalControlDescriptor'.reserveValue =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{reserveValue = SD},
- do_merge_control_streamParms(T, LCD2);
- mode when LCD#'LocalControlDescriptor'.streamMode =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{streamMode = SD},
- do_merge_control_streamParms(T, LCD2);
- prop ->
- PP = LCD#'LocalControlDescriptor'.propertyParms,
- LCD2 = LCD#'LocalControlDescriptor'{propertyParms = [SD | PP]},
- do_merge_control_streamParms(T, LCD2);
- _ ->
- return_error(0, {do_merge_control_streamParms, [All, LCD]})
- end;
-do_merge_control_streamParms([], LCD) ->
- LCD.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_terminationStateDescriptor,1}]}).
--endif.
-merge_terminationStateDescriptor(Parms) ->
- TSD = #'TerminationStateDescriptor'{propertyParms = []},
- do_merge_terminationStateDescriptor(Parms, TSD).
-
-do_merge_terminationStateDescriptor([{Tag, Val} | T], TSD) ->
- case Tag of
- serviceState when TSD#'TerminationStateDescriptor'.serviceState =:= asn1_NOVALUE ->
- TSD2 = TSD#'TerminationStateDescriptor'{serviceState = Val},
- do_merge_terminationStateDescriptor(T, TSD2);
- eventBufferControl when TSD#'TerminationStateDescriptor'.eventBufferControl =:= asn1_NOVALUE->
- TSD2 = TSD#'TerminationStateDescriptor'{eventBufferControl = Val},
- do_merge_terminationStateDescriptor(T, TSD2);
- propertyParm ->
- PP = TSD#'TerminationStateDescriptor'.propertyParms,
- TSD2 = TSD#'TerminationStateDescriptor'{propertyParms = [Val | PP]},
- do_merge_terminationStateDescriptor(T, TSD2)
- end;
-do_merge_terminationStateDescriptor([], TSD) ->
- PP = TSD#'TerminationStateDescriptor'.propertyParms,
- TSD#'TerminationStateDescriptor'{propertyParms = lists:reverse(PP)}.
-
--ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_prop_groups,1}]}).
--endif.
-ensure_prop_groups(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Group = [],
- parse_prop_name(Text, Group).
-
-parse_prop_name([Char | Rest] = All, Group) ->
- if
- ?white_space(Char) ->
- parse_prop_name(Rest, Group);
- ?end_of_line(Char) ->
- parse_prop_name(Rest, Group);
- true ->
- Name = [],
- do_parse_prop_name(All, Name, Group)
- end;
-parse_prop_name([] = All, Group) ->
- Name = [],
- do_parse_prop_name(All, Name, Group).
-
-do_parse_prop_name([Char | Rest], Name, Group)
- when (Char =:= $=) andalso (Name =/= []) ->
- %% Now we have a complete name
- if
- (Name =:= "v") andalso (Group =/= []) ->
- %% v= is a property group delimiter,
- %% lets create yet another property group.
- NewGroup = [],
- [lists:reverse(Group) | parse_prop_value(Rest, Name, NewGroup)];
- true ->
- %% Use current property group
- parse_prop_value(Rest, Name, Group)
- end;
-do_parse_prop_name([Char | Rest], Name, Group) ->
- case ?classify_char4(Char) of
- safe_char_upper ->
- do_parse_prop_name(Rest, [Char | Name], Group);
- safe_char ->
- do_parse_prop_name(Rest, [Char | Name], Group);
- _ ->
- return_error(0, {bad_prop_name, lists:reverse(Name), Char})
- end;
-do_parse_prop_name([], [], []) ->
- [];
-do_parse_prop_name([], [], Group) ->
- [lists:reverse(Group)];
-do_parse_prop_name([], Name, Group) when Name =/= [] ->
- %% Assume end of line
- Value = [],
- PP = make_prop_parm(Name, Value),
- Group2 = lists:reverse([PP | Group]),
- [Group2].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{parse_prop_value,3}]}).
--endif.
-parse_prop_value(Chars, Name, Group) ->
- Value = [],
- do_parse_prop_value(Chars, Name, Value, Group).
-
-do_parse_prop_value([Char | Rest], Name, Value, Group) ->
- if
- ?end_of_line(Char) ->
- %% Now we have a complete "name=value" pair
- PP = make_prop_parm(Name, Value),
- parse_prop_name(Rest, [PP | Group]);
- true ->
- do_parse_prop_value(Rest, Name, [Char | Value], Group)
- end;
-do_parse_prop_value([], Name, Value, Group) ->
- %% Assume end of line
- PP = make_prop_parm(Name, Value),
- Group2 = lists:reverse([PP | Group]),
- [Group2].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{make_prop_parm,2}]}).
--endif.
-make_prop_parm(Name, Value) ->
- #'PropertyParm'{name = lists:reverse(Name),
- value = [lists:reverse(Value)]}.
-
--else. % -ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_prop_groups,1}]}).
--endif.
-ensure_prop_groups(Token) ->
- {_TokenTag, _Line, Groups} = Token,
- Groups.
-
-%% do_ensure_prop_groups(Groups) when is_list(Groups) ->
-%% [ensure_prop_group(Group) || Group <- Groups];
-%% do_ensure_prop_groups(BadGroups) ->
-%% throw({error, {?MODULE, {bad_property_groups, BadGroups}}}).
-
-%% -ifdef(megaco_parser_inline).
-%% -compile({inline,[{ensure_prop_group,1}]}).
-%% -endif.
-%% ensure_prop_group(Group) when is_list(Group) ->
-%% [ensure_prop_parm(PropParm) || PropParm <- Group];
-%% ensure_prop_group(BadGroup) ->
-%% throw({error, {?MODULE, {bad_property_group, BadGroup}}}).
-
-%% -ifdef(megaco_parser_inline).
-%% -compile({inline,[{ensure_prop_parm,1}]}).
-%% -endif.
-%% ensure_prop_parm(#property_parm{name = Name,
-%% value = Value}) ->
-%% #'PropertyParm'{name = Name,
-%% value = Value};
-%% ensure_prop_parm(PP) when is_record(PP, 'PropertyParm') ->
-%% PP;
-%% ensure_prop_parm(BadPropParm) ->
-%% throw({error, {?MODULE, {bad_property_parm, BadPropParm}}}).
-
--endif. % -ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint,3}]}).
--endif.
-ensure_uint(Token, Min, Max) ->
- case Token of
- {_TokenTag, Line, Val} when is_integer(Val) ->
- ensure_uint(Val, Min, Max, Line);
- {_TokenTag, Line, Text} ->
- case (catch list_to_integer(Text)) of
- {'EXIT', _} ->
- return_error(Line, {not_an_integer, Text});
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, Line)
- end;
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, 0);
- Text ->
- case (catch list_to_integer(Text)) of
- {'EXIT', _} ->
- return_error(0, {not_an_integer, Text});
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, 0)
- end
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint,4}]}).
--endif.
--dialyzer({nowarn_function, ensure_uint/4}). % Future compat
-ensure_uint(Val, Min, Max, Line) ->
- if
- is_integer(Min) andalso (Val >= Min) ->
- if
- is_integer(Max) andalso (Val =< Max) ->
- Val;
- Max =:= infinity ->
- Val;
- true ->
- return_error(Line, {too_large_integer, Val, Max})
- end;
- true ->
- return_error(Line, {too_small_integer, Val, Min})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint16,1}]}).
--endif.
-ensure_uint16(Int) ->
- ensure_uint(Int, 0, 65535).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint32,1}]}).
--endif.
-ensure_uint32(Int) ->
- ensure_uint(Int, 0, 4294967295) .
-
-%% OTP-4710
-ensure_hex({_TokenTag, _Line, [$0, $x |Chars]}, Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex({_TokenTag, _Line, [$0, $X |Chars]}, Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex([$0, $x |Chars], Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex([$0, $X |Chars], Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []).
-
-%% OTP-4710
-hex_to_int([], Acc) ->
- lists:reverse(Acc);
-hex_to_int([Char1,Char2|Tail], Acc) ->
- Int1 = hchar_to_int(Char1),
- Int2 = hchar_to_int(Char2),
- Val = Int2 bor (Int1 bsl 4),
- hex_to_int(Tail, [Val| Acc]);
-hex_to_int([Char], Acc) ->
- Int = hchar_to_int(Char),
- lists:reverse([Int|Acc]).
-
-hchar_to_int(Char) when ($0 =< Char) andalso (Char =< $9) ->
- Char - $0;
-hchar_to_int(Char) when ($A =< Char) andalso (Char =< $F) ->
- Char - $A + 10; % OTP-4710
-hchar_to_int(Char) when ($a =< Char) andalso (Char =< $f) ->
- Char - $a + 10. % OTP-4710
-
--ifdef(megaco_parser_inline).
--compile({inline,[{value_of,1}]}).
--endif.
-value_of(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text.
-
-
-%% -------------------------------------------------------------------
-
-% d(F) ->
-% d(F,[]).
-% d(F, A) ->
-% d(get(dbg), F, A).
-
-% d(true, F, A) ->
-% io:format("DBG:~w:" ++ F ++ "~n", [?MODULE | A]);
-% d(_, _, _) ->
-% ok.
-
diff --git a/lib/megaco/src/text/megaco_text_parser_prev3a.yrl b/lib/megaco/src/text/megaco_text_parser_prev3a.yrl
deleted file mode 100644
index 9100800c3d..0000000000
--- a/lib/megaco/src/text/megaco_text_parser_prev3a.yrl
+++ /dev/null
@@ -1,1597 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2004-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: YECC grammar for text encoding of Megaco/H.248
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
-%%----------------------------------------------------------------------
-%% Annex B TEXT ENCODING OF THE PROTOCOL (NORMATIVE)
-%%
-%% B.1 Coding of wildcards
-%%
-%% In a text encoding of the protocol, while TerminationIDs are
-%% arbitrary, by judicious choice of names, the wildcard character, "*"
-%% may be made more useful. When the wildcard character is encountered,
-%% it will "match" all TerminationIDs having the same previous and
-%% following characters (if appropriate). For example, if there were
-%% TerminationIDs of R13/3/1, R13/3/2 and R13/3/3, the TerminationID
-%% R13/3/* would match all of them. There are some circumstances where
-%% ALL Terminations must be referred to. The TerminationID "*" suffices,
-%% and is referred to as ALL. The CHOOSE TerminationID "$" may be used to
-%% signal to the MG that it has to create an ephemeral Termination or
-%% select an idle physical Termination.
-%%
-%% B.2 ABNF specification
-%%
-%% The protocol syntax is presented in ABNF according to RFC2234. The
-%% protocol is not case sensitive. Identifiers are not case sensitive.
-%%
-%% NOTE 1 - This syntax specification does not enforce all restrictions
-%% on element inclusions and values. Some additional
-%% restrictions are stated in comments and other restrictions
-%% appear in the text of this Recommendation. These additional
-%% restrictions are part of the protocol even though not
-%% enforced by this Recommendation.
-%% NOTE 2 - The syntax is context-dependent. For example, "Add" can be
-%% the AddToken or a NAME depending on the context in which it
-%% occurs.
-%%
-%% Everything in the ABNF and text encoding is case insensitive. This
-%% includes TerminationIDs, digitmap Ids etc. SDP is case sensitive as
-%% per RFC 2327.
-%%
-%%----------------------------------------------------------------------
-
-%%----------------------------------------------------------------------
-%% Number of expected shift/reduce warnings
-%% This is ugly but...
-%%----------------------------------------------------------------------
-
-Expect 118.
-
-
-%%----------------------------------------------------------------------
-%% Non-terminals
-%%----------------------------------------------------------------------
-
-Nonterminals
-
- actionReply
- actionReplyBody
- actionReplyList
- actionRequest
- actionRequestBody
- actionRequestItem
- actionRequestItems
- actionRequestList
- alternativeValue
- ammParameter
- ammParameters
- ammRequest
- ammRequestBody
- ammToken
- ammsReply
- ammsReplyBody
- ammsToken
- auditDescriptor
- auditDescriptorBody
- auditItem
- auditItemList
- auditOther
- auditReply
- auditRequest
- auditReturnItem
- auditReturnParameter
- auditReturnParameterList
- authenticationHeader
- commandReplyList
- commandReplys %% v3
- commandRequest
- contextAttrDescriptor %% v3
- contextAttrDescProp %% v3
- contextAttrDescProps %% v3
- contextAudit
- contextAuditProperties
- contextAuditProperty
- contextID
- contextProperties %% v3
- contextProperty
- contextTerminationAudit
- daddr
- deviceName
- digitMapDescriptor
- direction %% v3
- domainAddress
- domainName
- embedFirst
- embedNoSig
- embedSig
- embedWithSig
- errorCode
- errorDescriptor
- errorText
- eventBufferControl
- eventBufferControlState
- eventBufferDescriptor
- eventDM
- eventParameter
- eventParameterName
- eventParameters
- eventSpec
- eventSpecList
- eventStream
- eventStreamOrOther
- eventsDescriptor
- extension
- extensionParameter
-
- %% v2 - start
- indAudauditReturnParameter
- indAuddigitMapDescriptor
- indAudeventBufferDescriptor
- indAudeventSpec
- indAudeventSpecParameter
- %% indAudeventSpecParameterList
- indAudeventsDescriptor
- indAudlocalControlDescriptor
- indAudlocalParm
- indAudlocalParmList
- indAudmediaDescriptor
- indAudmediaParm
- %% indAudmediaParmList
- indAudpackagesDescriptor
- indAudrequestedEvent
- indAudsignalsDescriptor
- indAudsignalList
- %% indAudsignalListParm
- indAudsignalParm
- %% indAudsignalRequest
- indAudstreamDescriptor
- indAudstreamParm
- indAudstatisticsDescriptor
- indAudterminationAudit
- indAudterminationAuditList
- indAudterminationStateDescriptor
- indAudterminationStateParm
- %% indAudterminationStateParmList
- optIndAudeventSpecParameter
- optIndAudsignalParm
- %% v2 - end
-
- indAudcontextAttrDescriptor %% v3
-
- localControlDescriptor
- localParm
- localParmList
- mId
- mediaDescriptor
- mediaParm
- mediaParmList
- megacoMessage
- message
- messageBody
- modemDescriptor % Deprecated as of Corr 1
- modemType % Deprecated as of Corr 1
- modemTypeList % Deprecated as of Corr 1
- mtpAddress
- muxDescriptor
- muxType
- notificationReason
- notificationReasons
- notifyReply
- notifyReplyBody
- notifyRequest
- notifyRequestBody
- observedEvent
- observedEventBody
- observedEventParameter
- observedEventParameters
- % observedEventTimeStamp
- observedEvents
- observedEventsDescriptor
- onOrOff
- optAuditDescriptor
- optImmAckRequired
- optPropertyParms
- optSep
- packagesDescriptor
- packagesItem
- packagesItems
- %% parmName
- parmValue
- pathName
- pkgdName
- portNumber
- priority
- propertyParm
- propertyParms
- requestID
- requestedEvent
- requestedEventBody
- requestedEvents
- safeToken
- safeToken2
- secondEventParameter
- secondEventParameters
- secondRequestedEvent
- secondRequestedEventBody
- secondRequestedEvents
- servChgReplyParm
- servChgReplyParms
- serviceChangeAddress
- serviceChangeDelay
- serviceChangeDescriptor
- serviceChangeMethod
- serviceChangeMgcId
- serviceChangeParm
- serviceChangeParms
- serviceChangeProfile
- serviceChangeReason
- serviceChangeReply
- serviceChangeReplyBody
- serviceChangeReplyDescriptor
- serviceChangeRequest
- serviceChangeVersion
- serviceState
- serviceStates
- sigParameter
- sigParameters
- signalList
- signalListId
- signalListParm
- signalListParms
- signalName
- signalParm
- signalParms
- signalRequest
- signalsDescriptor
- signalType
- statisticsDescriptor
- statisticsParameter
- statisticsParameters
- streamDescriptor
- streamID
- streamModes
- streamParm
- streamParmList
- subtractRequest
- terminationA
- terminationAudit
- terminationB
- terminationID
- terminationIDList
- terminationIDListRepeat
- terminationStateDescriptor
- terminationStateParm
- terminationStateParms
- timeStamp
- topologyDescriptor
- topologyDirection
- topologyTriple
- topologyTripleList
- transactionAck
- transactionAckList
- transactionID
- transactionItem
- transactionList
- transactionPending
- transactionReply
- transactionReplyBody
- transactionRequest
- transactionResponseAck
- value
- valueList
-
-.
-
-%%----------------------------------------------------------------------
-%% Terminals
-%%----------------------------------------------------------------------
-
-Terminals
-
- 'AddToken'
- 'AuditCapToken'
- 'AuditToken'
- 'AuditValueToken'
- 'AuthToken'
- 'BothToken' %% v3
- 'BothwayToken'
- 'BriefToken'
- 'BufferToken'
- 'COLON'
- 'COMMA'
- 'ContextAttrToken' %% v3
- 'ContextAuditToken'
- 'CtxToken'
- 'DelayToken'
- 'DigitMapToken'
- 'DigitMapDescriptorToken'
- 'DirectionToken' %% v3
- 'DiscardToken'
- 'DisconnectedToken'
- 'DurationToken'
- 'EQUAL'
- 'EmbedToken'
- 'EmergencyToken'
- 'EmergencyOffToken'
- 'ErrorToken'
- 'EventBufferToken'
- 'EventsToken'
- 'ExternalToken' %% v3
- 'FailoverToken'
- 'ForcedToken'
- 'GREATER'
- 'GracefulToken'
- 'H221Token'
- 'H223Token'
- 'H226Token'
- 'HandOffToken'
- 'IEPSToken' %% v3
- 'ImmAckRequiredToken'
- 'InSvcToken'
- 'InactiveToken'
- 'InternalToken' %% v3
- 'InterruptByEventToken'
- 'InterruptByNewSignalsDescrToken'
- 'IsolateToken'
- 'KeepActiveToken'
- 'LBRKT'
- 'LESSER'
- 'LSBRKT'
- 'LocalControlToken'
- 'LocalDescriptorToken'
- 'LockStepToken'
- 'LoopbackToken'
- 'MediaToken'
- %% 'MegacopToken'
- 'MethodToken'
- 'MgcIdToken'
- 'ModeToken'
- 'ModemToken'
- 'ModifyToken'
- 'MoveToken'
- 'MtpAddressToken'
- 'MuxToken'
- 'NEQUAL'
- 'NotifyCompletionToken'
- 'NotifyToken'
- 'Nx64kToken' %% v2
- 'ObservedEventsToken'
- 'OffToken'
- 'OnToken'
- 'OnOffToken'
- 'OnewayToken'
- 'OtherReasonToken'
- 'OutOfSvcToken'
- 'PackagesToken'
- 'PendingToken'
- 'PriorityToken'
- 'ProfileToken'
- 'QuotedChars'
- 'RBRKT'
- 'RSBRKT'
- 'ReasonToken'
- 'RecvonlyToken'
- 'RemoteDescriptorToken'
- 'ReplyToken'
- 'RequestIDToken' %% v3
- 'ReservedGroupToken'
- 'ReservedValueToken'
- 'ResponseAckToken'
- 'RestartToken'
- 'SEP'
- 'SafeChars'
- 'SendonlyToken'
- 'SendrecvToken'
- 'ServiceChangeAddressToken'
- 'ServiceChangeToken'
- 'ServiceChangeIncompleteToken'
- 'ServiceStatesToken'
- 'ServicesToken'
- 'SignalListToken'
- 'SignalTypeToken'
- 'SignalsToken'
- 'StatsToken'
- 'StreamToken'
- 'SubtractToken'
- 'SynchISDNToken'
- 'TerminationStateToken'
- 'TestToken'
- 'TimeOutToken'
- 'TimeStampToken'
- 'TopologyToken'
- 'TransToken'
- 'V18Token'
- 'V22Token'
- 'V22bisToken'
- 'V32Token'
- 'V32bisToken'
- 'V34Token'
- 'V76Token'
- 'V90Token'
- 'V91Token'
- 'VersionToken'
- 'AndAUDITSelectToken' %% OTP-7534: v3-fix
- 'ContextListToken' %% OTP-7534: v3-fix
- 'EmergencyValueToken' %% OTP-7534: v3-fix
- 'IntsigDelayToken' %% OTP-7534: v3-fix
- 'IterationToken' %% OTP-7534: v3-fix
- 'MessageSegmentToken' %% OTP-7534: v3-fix
- 'NeverNotifyToken' %% OTP-7534: v3-fix
- 'NotifyImmediateToken' %% OTP-7534: v3-fix
- 'NotifyRegulatedToken' %% OTP-7534: v3-fix
- 'OnewayBothToken' %% OTP-7534: v3-fix
- 'OnewayExternalToken' %% OTP-7534: v3-fix
- 'OrAUDITselectToken' %% OTP-7534: v3-fix
- 'ResetEventsDescriptorToken' %% OTP-7534: v3-fix
- 'SegmentationCompleteToken' %% OTP-7534: v3-fix
- endOfMessage
-
-.
-
-%%----------------------------------------------------------------------
-%% Root symbol
-%%----------------------------------------------------------------------
-
-Rootsymbol megacoMessage.
-
-%%----------------------------------------------------------------------
-%% The grammar
-%%----------------------------------------------------------------------
-
-%% megacoMessage = LWSP [authenticationHeader SEP ] message
-%% authenticationHeader = AuthToken EQUAL SecurityParmIndex COLON
-%% SequenceNum COLON AuthData
-%%
-%% SecurityParmIndex = "0x" 8(HEXDIG)
-%% SequenceNum = "0x" 8(HEXDIG)
-%% AuthData = "0x" 24*64(HEXDIG)
-%% message = MegacopToken SLASH version SEP mId SEP messageBody
-%% version = 1*2(DIGIT) .
-
-megacoMessage -> optSep authenticationHeader message endOfMessage
- : #'MegacoMessage'{authHeader = '$2', mess = '$3'} .
-
-optSep -> 'SEP' : sep .
-optSep -> '$empty' : no_sep .
-
-authenticationHeader -> 'AuthToken' 'EQUAL' safeToken 'COLON'
- safeToken 'COLON' safeToken optSep
- : ensure_auth_header('$3', '$5', '$7') .
-authenticationHeader -> '$empty' : asn1_NOVALUE .
-
-message -> safeToken mId messageBody : ensure_message('$1', '$2', '$3') .
-
-messageBody -> errorDescriptor : {messageError, '$1'} .
-messageBody -> transactionList : {transactions, '$1'} .
-
-transactionList -> transactionItem : ['$1'] .
-transactionList -> transactionItem transactionList : ['$1' | '$2'] .
-
-transactionItem -> transactionRequest : {transactionRequest, '$1'} .
-transactionItem -> transactionReply : {transactionReply, '$1'}.
-transactionItem -> transactionPending : {transactionPending, '$1'} .
-transactionItem -> transactionResponseAck : {transactionResponseAck, '$1'} .
-
-transactionResponseAck -> 'ResponseAckToken'
- 'LBRKT' transactionAck transactionAckList 'RBRKT' : ['$3' | '$4'] .
-
-transactionAckList -> 'COMMA' transactionAck transactionAckList : ['$2' | '$3'] .
-transactionAckList -> '$empty' : [] .
-
-transactionAck -> safeToken : ensure_transactionAck('$1') .
-
-transactionPending -> 'PendingToken' 'EQUAL' transactionID 'LBRKT' 'RBRKT'
- : #'TransactionPending'{transactionId = ensure_transactionID('$3') } .
-
-transactionRequest -> 'TransToken'
- 'LBRKT' actionRequest actionRequestList 'RBRKT'
- : #'TransactionRequest'{transactionId = asn1_NOVALUE,
- actions = ['$3' | '$4']} .
-transactionRequest -> 'TransToken' 'EQUAL'
- 'LBRKT' actionRequest actionRequestList 'RBRKT'
- : #'TransactionRequest'{transactionId = asn1_NOVALUE,
- actions = ['$4' | '$5']} .
-transactionRequest -> 'TransToken' 'EQUAL' transactionID
- 'LBRKT' actionRequest actionRequestList 'RBRKT'
- : #'TransactionRequest'{transactionId = ensure_transactionID('$3'),
- actions = ['$5' | '$6']} .
-
-actionRequestList -> 'COMMA' actionRequest actionRequestList : ['$2' | '$3'] .
-actionRequestList -> '$empty' : [] .
-
-actionRequest -> 'CtxToken' 'EQUAL' contextID
- 'LBRKT' actionRequestBody 'RBRKT'
- : merge_action_request('$3', '$5') .
-
-actionRequestBody -> actionRequestItem actionRequestItems : ['$1' | '$2'] .
-
-actionRequestItems -> 'COMMA' actionRequestItem actionRequestItems
- : ['$2' | '$3'] .
-actionRequestItems -> '$empty' : [] .
-
-actionRequestItem -> contextProperties : {contextProps, '$1'} .
-actionRequestItem -> contextAudit : {contextAudit, '$1'} .
-actionRequestItem -> commandRequest : {commandRequest, '$1'} .
-
-contextProperties -> contextAttrDescriptor :
- merge_context_request(#'ContextRequest'{}, '$1') .
-
-contextAttrDescriptor -> 'ContextAttrToken'
- 'LBRKT' contextAttrDescProp
- contextAttrDescProps 'RBRKT'
- : ['$3' | '$4'] .
-
-contextAttrDescProp -> contextProperty : '$1' .
-
-contextAttrDescProps -> 'COMMA' contextAttrDescProp contextAttrDescProps
- : ['$2' | '$3'] .
-contextAttrDescProps -> '$empty' : [] .
-
-%% at-most-once
-contextProperty -> topologyDescriptor : {topology, '$1'}.
-contextProperty -> priority : {priority, '$1'}.
-contextProperty -> 'EmergencyToken' : {emergency, true}.
-contextProperty -> 'EmergencyOffToken' : {emergency, false}.
-contextProperty -> 'IEPSToken' : {iepsCallind, true} . % BMK BMK
-contextProperty -> propertyParm : {prop, '$1'} .
-
-contextAudit -> 'ContextAuditToken' 'LBRKT' indAudcontextAttrDescriptor 'RBRKT'
- : merge_context_attr_audit_request(
- #'ContextAttrAuditRequest'{}, '$3') .
-
-indAudcontextAttrDescriptor -> 'ContextAttrToken'
- 'LBRKT' contextAuditProperty
- contextAuditProperties 'RBRKT'
- : ['$3' | '$4'] .
-
-contextAuditProperties -> 'COMMA' contextAuditProperty contextAuditProperties
- : ['$2' | '$3'] .
-contextAuditProperties -> '$empty' : [] .
-
-%% at-most-once .
-contextAuditProperty -> 'TopologyToken' : topologyAudit .
-contextAuditProperty -> 'EmergencyToken' : emergencyAudit .
-contextAuditProperty -> 'PriorityToken' : priorityAudit .
-contextAuditProperty -> 'IEPSToken' : iepsCallind .
-contextAuditProperty -> pkgdName : {prop, '$1'} .
-
-commandRequest -> ammRequest : '$1'.
-commandRequest -> subtractRequest : '$1'.
-commandRequest -> auditRequest : '$1'.
-commandRequest -> notifyRequest : '$1'.
-commandRequest -> serviceChangeRequest : '$1'.
-
-transactionReply -> 'ReplyToken' 'EQUAL' transactionID
- 'LBRKT'
- optImmAckRequired transactionReplyBody
- 'RBRKT'
- : #'TransactionReply'{transactionId = '$3',
- immAckRequired = '$5',
- transactionResult = '$6'} .
-
-optImmAckRequired -> 'ImmAckRequiredToken' 'COMMA' : 'NULL' .
-optImmAckRequired -> '$empty' : asn1_NOVALUE .
-
-transactionReplyBody -> errorDescriptor : {transactionError, '$1'} .
-transactionReplyBody -> actionReply actionReplyList : {actionReplies, ['$1' | '$2']} .
-
-actionReplyList -> 'COMMA' actionReply actionReplyList : ['$2' | '$3'] .
-actionReplyList -> '$empty' : [] .
-
-actionReply -> 'CtxToken' 'EQUAL' contextID
- 'LBRKT' actionReplyBody 'RBRKT' :
- setelement(#'ActionReply'.contextId, '$5', '$3') .
-
-actionReplyBody -> errorDescriptor :
- #'ActionReply'{errorDescriptor = '$1'} .
-actionReplyBody -> commandReplys commandReplyList :
- merge_action_reply(['$1' | '$2']) .
-
-%% OTP-5085
-%% This ugly thing is to fool the parser. The errorDescriptor does not
-%% realy belong here. The merge_action_reply will remove it and put it
-%% in it's right place later.
-commandReplyList -> 'COMMA' errorDescriptor :
- [{error, '$2'}] .
-commandReplyList -> 'COMMA' commandReplys commandReplyList :
- ['$2' | '$3'] .
-commandReplyList -> '$empty' : [] .
-
-commandReplys -> serviceChangeReply : {command, '$1'} .
-commandReplys -> auditReply : {command, '$1'} .
-commandReplys -> ammsReply : {command, '$1'} .
-commandReplys -> notifyReply : {command, '$1'} .
-commandReplys -> contextProperties : {context, '$1'} .
-
-%Add Move and Modify have the same request parameter
-ammRequest -> ammToken 'EQUAL' terminationID ammRequestBody :
- Descs = merge_AmmRequest_descriptors('$4', []),
- make_commandRequest('$1',
- #'AmmRequest'{terminationID = ['$3'],
- descriptors = Descs}) .
-
-ammToken -> 'AddToken' : {addReq, '$1'} .
-ammToken -> 'MoveToken' : {moveReq, '$1'} .
-ammToken -> 'ModifyToken' : {modReq, '$1'} .
-
-ammRequestBody -> 'LBRKT' ammParameter ammParameters 'RBRKT' : ['$2' | '$3'] .
-ammRequestBody -> '$empty' : [] .
-
-ammParameters -> 'COMMA' ammParameter ammParameters : ['$2' | '$3'] .
-ammParameters -> '$empty' : [] .
-
-%at-most-once
-ammParameter -> mediaDescriptor : {mediaDescriptor, '$1'}.
-ammParameter -> modemDescriptor : {modemDescriptor, deprecated}.
-ammParameter -> muxDescriptor : {muxDescriptor, '$1'}.
-ammParameter -> eventsDescriptor : {eventsDescriptor, '$1'}.
-ammParameter -> eventBufferDescriptor : {eventBufferDescriptor, '$1'}.
-ammParameter -> signalsDescriptor : {signalsDescriptor, '$1'}.
-ammParameter -> digitMapDescriptor : {digitMapDescriptor, '$1'}.
-ammParameter -> auditDescriptor : {auditDescriptor, '$1'}.
-ammParameter -> statisticsDescriptor : {statisticsDescriptor, '$1'}.
-
-ammsReply -> ammsToken 'EQUAL' terminationID ammsReplyBody
- : {'$1', #'AmmsReply'{terminationID = ['$3'],
- terminationAudit = '$4'}} .
-
-ammsToken -> 'AddToken' : addReply .
-ammsToken -> 'MoveToken' : moveReply .
-ammsToken -> 'ModifyToken' : modReply .
-ammsToken -> 'SubtractToken' : subtractReply .
-
-ammsReplyBody -> 'LBRKT' terminationAudit 'RBRKT' : '$2' .
-ammsReplyBody -> '$empty' : asn1_NOVALUE .
-
-subtractRequest -> 'SubtractToken' 'EQUAL' terminationID
- optAuditDescriptor
- : make_commandRequest({subtractReq, '$1'},
- #'SubtractRequest'{terminationID = ['$3'],
- auditDescriptor = '$4'}) .
-
-
-optAuditDescriptor -> 'LBRKT' auditDescriptor 'RBRKT' : '$2'.
-optAuditDescriptor -> '$empty' : asn1_NOVALUE .
-
-auditRequest -> 'AuditValueToken' 'EQUAL'
- terminationID optAuditDescriptor :
- make_commandRequest({auditValueRequest, '$1'},
- #'AuditRequest'{terminationID = '$3',
- auditDescriptor = '$4'}) .
-auditRequest -> 'AuditCapToken' 'EQUAL'
- terminationID optAuditDescriptor :
- make_commandRequest({auditCapRequest, '$1'},
- #'AuditRequest'{terminationID = '$3',
- auditDescriptor = '$4'}) .
-
-auditReply -> 'AuditValueToken' 'EQUAL' 'CtxToken' contextTerminationAudit
- : {auditValueReply, '$4'} .
-auditReply -> 'AuditCapToken' 'EQUAL' 'CtxToken' contextTerminationAudit
- : {auditCapReply, '$4'} .
-auditReply -> 'AuditValueToken' 'EQUAL' auditOther
- : {auditValueReply, '$3'} .
-auditReply -> 'AuditCapToken' 'EQUAL' auditOther
- : {auditCapReply, '$3'} .
-
-contextTerminationAudit -> terminationIDList : {contextAuditResult, '$1'} .
-contextTerminationAudit -> 'LBRKT' errorDescriptor 'RBRKT' : {contextAuditResult, '$2'} .
-
-auditOther -> terminationID :
- {auditResult,
- #'AuditResult'{terminationID = '$1',
- terminationAuditResult = []}} .
-auditOther -> terminationID 'LBRKT' terminationAudit 'RBRKT' :
- {auditResult,
- #'AuditResult'{terminationID = '$1',
- terminationAuditResult = '$3'}} .
-
-
-terminationAudit -> auditReturnParameter auditReturnParameterList :
- merge_terminationAudit(['$1' |'$2' ]) .
-
-auditReturnParameterList -> 'COMMA' auditReturnParameter auditReturnParameterList : ['$2' | '$3'] .
-auditReturnParameterList -> '$empty' : [] .
-
-auditReturnParameter -> mediaDescriptor : {mediaDescriptor, '$1'} .
-auditReturnParameter -> modemDescriptor.
-auditReturnParameter -> muxDescriptor : {muxDescriptor, '$1'} .
-auditReturnParameter -> eventsDescriptor : {eventsDescriptor, '$1'} .
-auditReturnParameter -> signalsDescriptor : {signalsDescriptor, '$1'} .
-auditReturnParameter -> digitMapDescriptor : {digitMapDescriptor, '$1'} .
-auditReturnParameter -> observedEventsDescriptor : {observedEventsDescriptor, '$1'} .
-auditReturnParameter -> eventBufferDescriptor : {eventBufferDescriptor, '$1'} .
-auditReturnParameter -> statisticsDescriptor : {statisticsDescriptor, '$1'} .
-auditReturnParameter -> packagesDescriptor : {packagesDescriptor, '$1'} .
-auditReturnParameter -> errorDescriptor : {errorDescriptor, '$1'} .
-auditReturnParameter -> auditReturnItem : {auditReturnItem, '$1'} .
-
-auditDescriptor -> 'AuditToken' 'LBRKT' auditDescriptorBody 'RBRKT' :
- merge_auditDescriptor('$3') .
-
-auditDescriptorBody -> auditItem auditItemList : ['$1' | '$2'].
-auditDescriptorBody -> '$empty' : asn1_NOVALUE .
-
-auditItemList -> 'COMMA' auditItem auditItemList : ['$2' | '$3'] .
-auditItemList -> '$empty' : [] .
-
-%% IGv11 - begin
-%%
-auditReturnItem -> 'MuxToken' : muxToken .
-auditReturnItem -> 'ModemToken' : modemToken .
-auditReturnItem -> 'MediaToken' : mediaToken .
-auditReturnItem -> 'DigitMapToken' : digitMapToken .
-auditReturnItem -> 'StatsToken' : statsToken .
-auditReturnItem -> 'ObservedEventsToken' : observedEventsToken .
-auditReturnItem -> 'PackagesToken' : packagesToken .
-
-%% at-most-once, and DigitMapToken and PackagesToken are not allowed
-%% in AuditCapabilities command
-auditItem -> auditReturnItem : '$1' .
-auditItem -> 'SignalsToken' : signalsToken.
-auditItem -> 'EventBufferToken' : eventBufferToken.
-auditItem -> 'EventsToken' : eventsToken .
-auditItem -> indAudterminationAudit : {terminationAudit, '$1'} . % v2
-%%
-%% IGv11 - end
-
-
-%% v2 - start
-%%
-indAudterminationAudit -> indAudauditReturnParameter
- indAudterminationAuditList
- : ['$1' | '$2'] .
-
-indAudterminationAuditList -> 'COMMA' indAudauditReturnParameter
- indAudterminationAuditList
- : ['$2' | '$3'] .
-indAudterminationAuditList -> '$empty' : [] .
-
-indAudauditReturnParameter -> indAudmediaDescriptor
- : {indAudMediaDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudeventsDescriptor
- : {indAudEventsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudsignalsDescriptor
- : {indAudSignalsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAuddigitMapDescriptor
- : {indAudDigitMapDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudeventBufferDescriptor
- : {indAudEventBufferDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudstatisticsDescriptor
- : {indAudStatisticsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudpackagesDescriptor
- : {indAudPackagesDescriptor, '$1'} .
-
-
-indAudmediaDescriptor -> 'MediaToken' 'LBRKT'
- indAudmediaParm 'RBRKT'
- : merge_indAudMediaDescriptor('$3') .
-
-%% at-most-once per item
-%% and either streamParm or streamDescriptor but not both
-%% <rambling>
-%% This is solved in another way in text than in binary :(
-%% Instead of having a list of indAudmediaParm we put this
-%% stuff in the indAudterminationAuditList with several
-%% indAudmediaDescriptor's.
-%% </rambling>
-%%
-
-indAudmediaParm -> indAudstreamParm : {streamParm, '$1'} .
-indAudmediaParm -> indAudstreamDescriptor : {streamDescr, '$1'} .
-indAudmediaParm -> indAudterminationStateDescriptor : {termStateDescr, '$1'} .
-
-%% at-most-once
-indAudstreamParm -> indAudlocalControlDescriptor
- : #'IndAudStreamParms'{localControlDescriptor = '$1'} .
-indAudstreamParm -> indAudstatisticsDescriptor
- : #'IndAudStreamParms'{statisticsDescriptor = '$1'} .
-
-indAudstreamDescriptor -> 'StreamToken' 'EQUAL' streamID
- 'LBRKT' indAudstreamParm 'RBRKT'
- : #'IndAudStreamDescriptor'{streamID = '$3',
- streamParms = '$5'} .
-
-
-indAudlocalControlDescriptor -> 'LocalControlToken'
- 'LBRKT' indAudlocalParm indAudlocalParmList 'RBRKT' :
- merge_indAudLocalControlDescriptor(['$3'| '$4']) .
-
-indAudlocalParmList -> 'COMMA' indAudlocalParm indAudlocalParmList : ['$2'| '$3'] .
-indAudlocalParmList -> '$empty' : [] .
-
-%% at-most-once per item
-%%
-indAudlocalParm -> safeToken : ensure_indAudLocalParm('$1') .
-
-indAudterminationStateDescriptor -> 'TerminationStateToken'
- 'LBRKT' indAudterminationStateParm 'RBRKT'
- :
- merge_indAudTerminationStateDescriptor('$3') .
-
-%% at-most-once per item
-%%
-
-indAudterminationStateParm -> safeToken :
- ensure_indAudTerminationStateParm('$1') .
-
-indAudeventBufferDescriptor -> 'EventBufferToken'
- 'LBRKT' indAudeventSpec 'RBRKT' : '$3' .
-
-indAudeventSpec -> pkgdName optIndAudeventSpecParameter
- : merge_indAudEventBufferDescriptor('$1','$2') .
-
-optIndAudeventSpecParameter -> 'LBRKT' indAudeventSpecParameter 'RBRKT'
- : '$2' .
-optIndAudeventSpecParameter -> '$empty' : asn1_NOVALUE .
-
-
-indAudeventSpecParameter -> eventStream : {streamID, '$1'} .
-indAudeventSpecParameter -> eventParameterName : {eventParameterName, '$1'} .
-
-indAudeventsDescriptor -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' indAudrequestedEvent 'RBRKT'
- : #'IndAudEventsDescriptor'{requestID = '$3',
- pkgdName = '$5'} .
-
-indAudrequestedEvent -> pkgdName : '$1' .
-
-
-indAudsignalsDescriptor -> 'SignalsToken' optIndAudsignalParm : '$2' .
-
-
-optIndAudsignalParm -> 'LBRKT' 'RBRKT' : asn1_NOVALUE .
-optIndAudsignalParm -> 'LBRKT' indAudsignalParm 'RBRKT' : '$2' .
-
-indAudsignalParm -> indAudsignalList : {seqSigList, '$1'} .
-indAudsignalParm -> signalRequest : {signal, ensure_indAudSignal('$1')} .
-
-indAudsignalList -> 'SignalListToken' 'EQUAL' signalListId
- 'LBRKT' signalListParm 'RBRKT' :
- #'IndAudSeqSigList'{id = ensure_uint16('$3'),
- signalList =
- ensure_indAudSignalListParm('$5')} .
-
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-indAuddigitMapDescriptor -> 'DigitMapDescriptorToken' :
- ensure_IADMD('$1') .
-
-indAudstatisticsDescriptor -> 'StatsToken' 'LBRKT' pkgdName 'RBRKT' :
- #'IndAudStatisticsDescriptor'{statName = '$3'} .
-
-indAudpackagesDescriptor -> 'PackagesToken' 'LBRKT' packagesItem 'RBRKT'
- : merge_indAudPackagesDescriptor('$3') .
-
-eventStream -> 'StreamToken' 'EQUAL' streamID : '$3' .
-
-
-%%
-%% v2 - end
-
-notifyRequest -> 'NotifyToken' 'EQUAL' terminationID
- 'LBRKT' notifyRequestBody 'RBRKT'
- : make_commandRequest({notifyReq, '$1'},
- setelement(#'NotifyRequest'.terminationID, '$5', ['$3'])) .
-
-notifyRequestBody -> observedEventsDescriptor
- : #'NotifyRequest'{observedEventsDescriptor = '$1'}.
-notifyRequestBody -> errorDescriptor
- : #'NotifyRequest'{errorDescriptor = '$1'}.
-
-notifyReply -> 'NotifyToken' 'EQUAL' terminationID notifyReplyBody
- : {notifyReply,
- #'NotifyReply'{terminationID = ['$3'],
- errorDescriptor = '$4'}} .
-
-notifyReplyBody -> 'LBRKT' errorDescriptor 'RBRKT' : '$2'.
-notifyReplyBody -> '$empty' : asn1_NOVALUE .
-
-serviceChangeRequest -> 'ServiceChangeToken' 'EQUAL' terminationID
- 'LBRKT' serviceChangeDescriptor 'RBRKT'
- : make_commandRequest({serviceChangeReq, '$1'},
- #'ServiceChangeRequest'{terminationID = ['$3'],
- serviceChangeParms = '$5'}) .
-
-serviceChangeReply -> 'ServiceChangeToken' 'EQUAL' terminationID serviceChangeReplyBody
- : {serviceChangeReply,
- #'ServiceChangeReply'{terminationID = ['$3'],
- serviceChangeResult = '$4'}} .
-
-serviceChangeReplyBody -> 'LBRKT' errorDescriptor 'RBRKT'
- : {errorDescriptor, '$2'} .
-serviceChangeReplyBody -> 'LBRKT' serviceChangeReplyDescriptor 'RBRKT'
- : {serviceChangeResParms, '$2'} .
-serviceChangeReplyBody -> '$empty' : {serviceChangeResParms, #'ServiceChangeResParm'{}}.
-
-errorDescriptor -> 'ErrorToken' 'EQUAL' errorCode 'LBRKT' errorText 'RBRKT'
- : #'ErrorDescriptor'{errorCode = '$3',
- errorText = '$5'} .
-
-errorCode -> safeToken : ensure_uint('$1', 0, 999) .
-
-errorText -> 'QuotedChars' : value_of('$1') .
-errorText -> '$empty' : asn1_NOVALUE .
-
-transactionID -> safeToken : ensure_uint32('$1') .
-
-mId -> domainName : '$1' .
-mId -> domainAddress : '$1' .
-mId -> optSep mtpAddress optSep : '$2' .
-mId -> optSep deviceName optSep : '$2' .
-
-domainName -> 'LESSER' safeToken 'GREATER' 'COLON' portNumber optSep
- : ensure_domainName('$2', '$5') .
-domainName -> 'LESSER' safeToken 'GREATER'
- : ensure_domainName('$2', asn1_NOVALUE) .
-
-deviceName -> pathName : {deviceName, '$1'} .
-
-%% '-' is used for NULL context
-contextID -> safeToken : ensure_contextID('$1') .
-
-domainAddress -> 'LSBRKT' daddr 'RSBRKT' 'COLON' portNumber optSep
- : ensure_domainAddress('$2', '$5') .
-domainAddress -> 'LSBRKT' daddr 'RSBRKT'
- : ensure_domainAddress('$2', asn1_NOVALUE) .
-
-daddr -> '$empty' : [] .
-daddr -> 'COLON' daddr : [colon| '$2'] .
-daddr -> safeToken daddr : ['$1'| '$2'] .
-
-
-portNumber -> safeToken : ensure_uint16('$1') .
-
-mtpAddress -> 'MtpAddressToken' : ensure_mtpAddress('$1') .
-
-%% terminationIDList -> LBRKT terminationID *(COMMA terminationID) RBRKT .
-
-terminationIDList -> 'LBRKT' terminationID terminationIDListRepeat 'RBRKT'
- : ['$2' | '$3'] .
-
-terminationIDListRepeat -> 'COMMA' terminationID terminationIDListRepeat
- : ['$2'| '$3'] .
-terminationIDListRepeat -> '$empty' : [] .
-
-
-pathName -> safeToken : ensure_pathName('$1') .
-
-terminationID -> safeToken : ensure_terminationID('$1') .
-
-mediaDescriptor -> 'MediaToken' 'LBRKT' mediaParm mediaParmList 'RBRKT'
- : merge_mediaDescriptor(['$3' | '$4']) .
-
-mediaParmList -> 'COMMA' mediaParm mediaParmList : ['$2' | '$3'] .
-mediaParmList -> '$empty' : [] .
-
-
-%% at-most-once per item
-%% using either streamParms or streamDescriptors but not both
-mediaParm -> streamParm
- : {streamParm, '$1'} .
-mediaParm -> streamDescriptor
- : {streamDescriptor, '$1'} .
-mediaParm -> terminationStateDescriptor
- : {termState, '$1'} .
-
-%% at-most-onc .
-%% Specially treated by the scanner.
-streamParm -> 'LocalDescriptorToken' :
- PGs = ensure_prop_groups('$1'),
- {local, #'LocalRemoteDescriptor'{propGrps = PGs} } .
-streamParm -> 'RemoteDescriptorToken' :
- PGs = ensure_prop_groups('$1'),
- {remote, #'LocalRemoteDescriptor'{propGrps = PGs}} .
-streamParm -> localControlDescriptor : {control, '$1'} .
-streamParm -> statisticsDescriptor : {statistics, '$1'} .
-
-streamDescriptor -> 'StreamToken' 'EQUAL' streamID
- 'LBRKT' streamParm streamParmList 'RBRKT'
- : #'StreamDescriptor'{streamID = '$3',
- streamParms = merge_streamParms(['$5' | '$6'])} .
-
-streamParmList -> 'COMMA' streamParm streamParmList : ['$2' | '$3'] .
-streamParmList -> '$empty' : [] .
-
-localControlDescriptor -> 'LocalControlToken' 'LBRKT' localParm localParmList 'RBRKT'
- : ['$3' | '$4'] .
-
-localParmList -> 'COMMA' localParm localParmList : ['$2' | '$3'] .
-localParmList -> '$empty': [] .
-
-terminationStateDescriptor -> 'TerminationStateToken'
- 'LBRKT' terminationStateParm
- terminationStateParms 'RBRKT'
- : merge_terminationStateDescriptor(['$3' | '$4']) .
-
-terminationStateParms -> 'COMMA' terminationStateParm terminationStateParms : ['$2' | '$3'] .
-terminationStateParms -> '$empty' : [] .
-
-%% at-most-once per item except for propertyParm
-localParm -> 'ReservedGroupToken' 'EQUAL' onOrOff : {group, '$3'} .
-localParm -> 'ReservedValueToken' 'EQUAL' onOrOff : {value, '$3'} .
-localParm -> 'ModeToken' 'EQUAL' streamModes : {mode, '$3'} .
-localParm -> propertyParm : {prop, '$1'} .
-
-onOrOff -> 'OnToken' : true .
-onOrOff -> 'OffToken' : false .
-
-%% at-most-once
-streamModes -> 'SendonlyToken' : sendOnly .
-streamModes -> 'RecvonlyToken' : recvOnly .
-streamModes -> 'SendrecvToken' : sendRecv .
-streamModes -> 'InactiveToken' : inactive .
-streamModes -> 'LoopbackToken' : loopBack .
-
-propertyParm -> pkgdName parmValue :
- setelement(#'PropertyParm'.name, '$2', '$1') .
-
-parmValue -> 'EQUAL' alternativeValue :
- '$2' .
-
-parmValue -> 'NEQUAL' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, unequalTo}} .
-parmValue -> 'LESSER' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, smallerThan}} .
-parmValue -> 'GREATER' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, greaterThan}} .
-
-%% OTP-4013
-%% alternativeValue = ( VALUE /
-%% LSBRKT VALUE *(COMMA VALUE) RSBRKT /
-%% LSBRKT VALUE COLON VALUE RSBRKT ) /
-%% LBRKT VALUE *(COMMA VALUE) RBRKT
-alternativeValue -> 'LBRKT' value valueList 'RBRKT'
- : #'PropertyParm'{value = ['$2' | '$3'],
- extraInfo = {sublist, false}}. % OR
-
-alternativeValue -> 'LSBRKT' value 'COLON' value 'RSBRKT'
- : #'PropertyParm'{value = ['$2', '$4'],
- extraInfo = {range, true}}.
-
-alternativeValue -> 'LSBRKT' value valueList 'RSBRKT'
- : #'PropertyParm'{value = ['$2' | '$3'],
- extraInfo = {sublist, true}}. % AND
-
-alternativeValue -> value :
- #'PropertyParm'{value = ['$1']} .
-
-valueList -> 'COMMA' value valueList : ['$2' | '$3'] .
-valueList -> '$empty' : [] .
-
-
-eventBufferDescriptor -> 'EventBufferToken' : [] .
-eventBufferDescriptor -> 'EventBufferToken' 'LBRKT' eventSpec eventSpecList 'RBRKT'
- : ['$3' | '$4'] .
-
-eventSpecList -> 'COMMA' eventSpec eventSpecList : ['$2' | '$3'] .
-eventSpecList -> '$empty' : [] .
-
-eventSpec -> observedEvent : merge_eventSpec('$1') .
-
-%% at-most-once per item except for propertyParm
-terminationStateParm -> serviceStates : {serviceState, '$1'} .
-terminationStateParm -> eventBufferControl : {eventBufferControl, '$1'} .
-terminationStateParm -> propertyParm : {propertyParm, '$1'} .
-
-serviceStates -> 'ServiceStatesToken' 'EQUAL' serviceState : '$3' .
-
-serviceState -> 'TestToken' : test .
-serviceState -> 'OutOfSvcToken' : outOfSvc .
-serviceState -> 'InSvcToken' : inSvc .
-
-eventBufferControl -> 'BufferToken' 'EQUAL' eventBufferControlState : '$3' .
-
-eventBufferControlState -> 'OffToken' : off .
-eventBufferControlState -> 'LockStepToken' : lockStep .
-
-muxDescriptor -> 'MuxToken' 'EQUAL' muxType terminationIDList :
- #'MuxDescriptor'{muxType = '$3',
- termList = '$4'} .
-
-muxType -> safeToken : ensure_muxType('$1') .
-
-streamID -> safeToken : ensure_streamID('$1') .
-
-pkgdName -> safeToken : ensure_pkgdName('$1') .
-
-eventsDescriptor -> 'EventsToken' :
- #'EventsDescriptor'{requestID = asn1_NOVALUE,
- eventList = []} .
-eventsDescriptor -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' requestedEvent requestedEvents 'RBRKT' :
- #'EventsDescriptor'{requestID = '$3',
- eventList = ['$5' | '$6']} .
-
-requestedEvents -> 'COMMA' requestedEvent requestedEvents : ['$2' | '$3'] .
-requestedEvents -> '$empty' : [] .
-
-requestedEvent -> pkgdName requestedEventBody :
- setelement(#'RequestedEvent'.pkgdName, '$2', '$1') .
-
-requestedEventBody -> 'LBRKT' eventParameter eventParameters 'RBRKT' :
- merge_eventParameters(['$2' | '$3']) .
-requestedEventBody -> '$empty' : #'RequestedEvent'{evParList = []} .
-
-eventParameters -> 'COMMA' eventParameter eventParameters :
- ['$2' | '$3'] .
-eventParameters -> '$empty' : [] .
-
-%% at-most-once each of embedOrKeepActive , eventDM or eventStream
-eventParameter -> 'KeepActiveToken' : keepActive .
-eventParameter -> embedWithSig : '$1'.
-eventParameter -> embedNoSig : '$1'.
-eventParameter -> eventDM : '$1'.
-eventParameter -> eventStreamOrOther : '$1'.
-
-embedWithSig -> 'EmbedToken' 'LBRKT' signalsDescriptor
- 'COMMA' embedFirst 'RBRKT'
- : {embed, '$3', '$5'} .
-embedWithSig -> 'EmbedToken' 'LBRKT' signalsDescriptor 'RBRKT'
- : {embed, '$3', asn1_NOVALUE} .
-
-embedNoSig -> 'EmbedToken' 'LBRKT' embedFirst 'RBRKT'
- : {embed, asn1_NOVALUE, '$3'} .
-
-embedFirst -> 'EventsToken' :
- #'SecondEventsDescriptor'{requestID = asn1_NOVALUE,
- eventList = []} .
-embedFirst -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' secondRequestedEvent secondRequestedEvents 'RBRKT' :
- #'SecondEventsDescriptor'{requestID = '$3',
- eventList = ['$5' | '$6']} .
-
-secondRequestedEvents -> 'COMMA' secondRequestedEvent secondRequestedEvents : ['$2' | '$3'] .
-secondRequestedEvents -> '$empty' : [] .
-
-%% at-most-once of each
-secondRequestedEvent -> pkgdName secondRequestedEventBody
- : setelement(#'SecondRequestedEvent'.pkgdName, '$2', '$1') .
-
-secondRequestedEventBody -> 'LBRKT' secondEventParameter secondEventParameters 'RBRKT'
- : merge_secondEventParameters(['$2' | '$3']) .
-secondRequestedEventBody -> '$empty' : #'SecondRequestedEvent'{evParList = []} .
-
-secondEventParameters -> 'COMMA' secondEventParameter secondEventParameters : ['$2' | '$3'] .
-secondEventParameters -> '$empty' : [] .
-
-%% at-most-once each of embedOrKeepActive , eventDM or eventStream
-secondEventParameter -> 'KeepActiveToken' : keepActive .
-secondEventParameter -> embedSig : '$1' .
-secondEventParameter -> eventDM : '$1' .
-secondEventParameter -> eventStreamOrOther : '$1' .
-
-embedSig -> 'EmbedToken' 'LBRKT' signalsDescriptor 'RBRKT'
- : {second_embed, '$3'} .
-
-eventStreamOrOther -> eventParameterName parmValue :
- select_stream_or_other('$1', '$2') .
-
-eventParameterName -> safeToken : ensure_NAME('$1') .
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-eventDM -> 'DigitMapDescriptorToken' :
- ensure_eventDM('$1') .
-
-%% H248S-IG (IGv11)
-signalsDescriptor -> 'SignalsToken' 'LBRKT' signalParm signalParms 'RBRKT' :
- ['$3' | '$4'] .
-signalsDescriptor -> 'SignalsToken' : [] .
-
-signalParms -> 'COMMA' signalParm signalParms : [ '$2' | '$3'] .
-signalParms -> '$empty' : [] .
-
-signalParm -> signalList : {seqSigList, '$1'} .
-signalParm -> signalRequest : {signal, '$1'} .
-
-signalRequest -> signalName 'LBRKT' sigParameter sigParameters 'RBRKT'
- : merge_signalRequest('$1', ['$3' | '$4']).
-signalRequest -> signalName : merge_signalRequest('$1', []).
-
-sigParameters -> 'COMMA' sigParameter sigParameters : ['$2' | '$3'] .
-sigParameters -> '$empty' : [] .
-
-%% sigParameter = sigStream / sigSignalType / sigDuration / sigOther /
-%% notifyCompletion / KeepActiveToken /
-%% direction / sigRequestID
-%% sigStream = StreamToken EQUAL StreamID
-%% sigOther = sigParameterName parmValue
-%% sigParameterName = NAME
-%% sigSignalType = SignalTypeToken EQUAL signalType
-%% signalType = (OnOffToken / TimeOutToken / BriefToken)
-%% sigDuration = DurationToken EQUAL UINT16
-%% notifyCompletion = NotifyCompletionToken EQUAL (LBRKT
-%% notificationReason *(COMMA notificationReason)
-%% RBRKT)
-%%
-%% notificationReason = ( TimeOutToken / InterruptByEventToken /
-%% InterruptByNewSignalsDescrToken /
-%% OtherReasonToken )
-%% sigDirection = DirectionToken EQUAL direction
-%% sigRequestID = RequestIDToken EQUAL RequestID
-
-sigParameter -> 'StreamToken' 'EQUAL' streamID :
- {stream, '$3'}.
-sigParameter -> 'SignalTypeToken' 'EQUAL' signalType :
- {signal_type, '$3'} .
-sigParameter -> 'DurationToken' 'EQUAL' safeToken :
- {duration, ensure_uint16('$3')} .
-sigParameter -> 'NotifyCompletionToken' 'EQUAL'
- 'LBRKT' notificationReason notificationReasons 'RBRKT' :
- {notify_completion, ['$4' | '$5']} .
-sigParameter -> 'KeepActiveToken' : keepActive .
-sigParameter -> 'DirectionToken' 'EQUAL' direction : {direction, '$3'} .
-sigParameter -> 'RequestIDToken' 'EQUAL' requestID : {requestId, '$3'} .
-sigParameter -> safeToken parmValue :
- {other, ensure_NAME('$1'), '$2'}.
-
-signalType -> 'OnOffToken' : onOff.
-signalType -> 'TimeOutToken' : timeOut.
-signalType -> 'BriefToken' : brief.
-
-direction -> 'ExternalToken' : external .
-direction -> 'InternalToken' : internal .
-direction -> 'BothToken' : both .
-
-notificationReasons -> 'COMMA' notificationReason notificationReasons : ['$2' | '$3'] .
-notificationReasons -> '$empty' : [] .
-
-notificationReason -> 'TimeOutToken' : onTimeOut .
-notificationReason -> 'InterruptByEventToken' : onInterruptByEvent .
-notificationReason -> 'InterruptByNewSignalsDescrToken' : onInterruptByNewSignalDescr .
-notificationReason -> 'OtherReasonToken' : otherReason .
-
-signalList -> 'SignalListToken' 'EQUAL' signalListId
- 'LBRKT' signalListParm signalListParms 'RBRKT'
- : #'SeqSigList'{id = ensure_uint16('$3'),
- signalList = ['$5' | '$6']} .
-
-signalListParms -> 'COMMA' signalListParm signalListParms :
- ['$2' | '$3'] .
-signalListParms -> '$empty' : [] .
-
-signalListId -> safeToken : ensure_uint16('$1') .
-
-%% exactly once signalType,
-%% at most once duration and every signal parameter
-signalListParm -> signalRequest : '$1'.
-
-signalName -> pkgdName : '$1'.
-
-observedEventsDescriptor -> 'ObservedEventsToken' 'EQUAL' requestID
- 'LBRKT' observedEvent observedEvents 'RBRKT'
- : #'ObservedEventsDescriptor'{requestId = '$3',
- observedEventLst = ['$5' | '$6']} .
-
-observedEvents -> 'COMMA' observedEvent observedEvents : ['$2' | '$3'] .
-observedEvents -> '$empty' : [] .
-
-%%time per event, because it might be buffered
-
-observedEvent -> timeStamp optSep 'COLON' optSep pkgdName observedEventBody :
- merge_observed_event('$6', '$5', '$1') .
-observedEvent -> optSep pkgdName observedEventBody :
- merge_observed_event('$3', '$2', asn1_NOVALUE) .
-
-observedEventBody -> 'LBRKT' observedEventParameter
- observedEventParameters 'RBRKT'
- : ['$2' | '$3'] .
-observedEventBody -> '$empty' : [] .
-
-observedEventParameters -> 'COMMA' observedEventParameter observedEventParameters : ['$2' | '$3'] .
-observedEventParameters -> '$empty' : [] .
-
-%%at-most-once eventStream, every eventParameterName at most once
-observedEventParameter -> eventStreamOrOther : '$1' .
-
-requestID -> safeToken : ensure_requestID('$1') .
-
-%% Deprecated as of Corr 1
-modemDescriptor -> 'ModemToken' 'EQUAL' modemType optPropertyParms .
-modemDescriptor -> 'ModemToken' 'LSBRKT' modemType modemTypeList 'RSBRKT'
- optPropertyParms.
-modemTypeList -> 'COMMA' modemType modemTypeList.
-modemTypeList -> '$empty'.
-modemType -> safeToken.
-
-optPropertyParms -> 'LBRKT' propertyParm propertyParms 'RBRKT' :
- ['$2' | '$3'] .
-optPropertyParms -> '$empty' : [] .
-
-propertyParms -> 'COMMA' propertyParm propertyParms : ['$2' | '$3'] .
-propertyParms -> '$empty' : [] .
-
-% parmName -> safeToken : ensure_NAME('$1') .
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-digitMapDescriptor -> 'DigitMapDescriptorToken' :
- ensure_DMD('$1') .
-
-%% each parameter at-most-once, except auditItem
-%% at most one of either serviceChangeAddress or serviceChangeMgcId but
-%% not both. serviceChangeMethod and serviceChangeReason are REQUIRED
-serviceChangeDescriptor -> 'ServicesToken'
- 'LBRKT' serviceChangeParm
- serviceChangeParms 'RBRKT' :
- merge_ServiceChangeParm(['$3' | '$4']) .
-
-serviceChangeParms -> 'COMMA' serviceChangeParm serviceChangeParms :
- ['$2' | '$3'] .
-serviceChangeParms -> '$empty' : [] .
-
-serviceChangeParm -> serviceChangeMethod : {method, '$1'} .
-serviceChangeParm -> serviceChangeReason : {reason, '$1'} .
-serviceChangeParm -> serviceChangeDelay : {delay, '$1'} .
-serviceChangeParm -> serviceChangeAddress : {address, '$1'} .
-serviceChangeParm -> serviceChangeProfile : {profile, '$1'} .
-serviceChangeParm -> extension : {extension, '$1'} .
-serviceChangeParm -> timeStamp : {time_stamp, '$1'} .
-serviceChangeParm -> serviceChangeMgcId : {mgc_id, '$1'} .
-serviceChangeParm -> serviceChangeVersion : {version, '$1'} .
-serviceChangeParm -> 'ServiceChangeIncompleteToken' : incomplete . % v3
-serviceChangeParm -> auditItem : {audit_item, '$1'} . % v2
-
-serviceChangeMethod -> 'MethodToken' 'EQUAL' safeToken :
- ensure_serviceChangeMethod('$3') .
-
-serviceChangeReason -> 'ReasonToken' 'EQUAL' value : ['$3'] .
-
-serviceChangeDelay -> 'DelayToken' 'EQUAL' safeToken : ensure_uint32('$3').
-
-serviceChangeAddress -> 'ServiceChangeAddressToken' 'EQUAL' mId : '$3' .
-serviceChangeAddress -> 'ServiceChangeAddressToken' 'EQUAL' portNumber :
- {portNumber, '$3'} .
-
-serviceChangeMgcId -> 'MgcIdToken' 'EQUAL' mId : '$3' .
-
-serviceChangeProfile -> 'ProfileToken' 'EQUAL' safeToken : ensure_profile('$3').
-
-serviceChangeVersion -> 'VersionToken' 'EQUAL' safeToken : ensure_version('$3') .
-
-extension -> extensionParameter parmValue
- : setelement(#'PropertyParm'.name, '$2', '$1') .
-
-%% at most once. Version is REQUIRED on first ServiceChange response
-%% at most of either serviceChangeAddress or serviceChangeMgcId but not both
-serviceChangeReplyDescriptor -> 'ServicesToken'
- 'LBRKT' servChgReplyParm
- servChgReplyParms 'RBRKT' :
- merge_ServiceChangeResParm(['$3' | '$4']) .
-
-servChgReplyParms -> 'COMMA' servChgReplyParm servChgReplyParms :
- ['$2' | '$3'] .
-servChgReplyParms -> '$empty' : [] .
-
-servChgReplyParm -> serviceChangeAddress : {address, '$1'} .
-servChgReplyParm -> serviceChangeMgcId : {mgc_id, '$1'} .
-servChgReplyParm -> serviceChangeProfile : {profile, '$1'} .
-servChgReplyParm -> serviceChangeVersion : {version, '$1'} .
-servChgReplyParm -> timeStamp : {time_stamp,'$1'} .
-
-packagesDescriptor -> 'PackagesToken' 'LBRKT' packagesItem
- packagesItems 'RBRKT'
- : ['$3' | '$4'] .
-
-packagesItems -> 'COMMA' packagesItem packagesItems : ['$2' | '$3'] .
-packagesItems -> '$empty' : [] .
-
-packagesItem -> safeToken : ensure_packagesItem('$1') .
-
-timeStamp -> TimeStampToken : ensure_timeStamp('$1') .
-
-statisticsDescriptor -> 'StatsToken'
- 'LBRKT' statisticsParameter
- statisticsParameters 'RBRKT'
- : ['$3' | '$4'] .
-
-statisticsParameters -> 'COMMA' statisticsParameter statisticsParameters : ['$2' | '$3'] .
-statisticsParameters -> '$empty' : [] .
-
-%%at-most-once per item
-statisticsParameter -> pkgdName
- : #'StatisticsParameter'{statName = '$1',
- statValue = asn1_NOVALUE} .
-statisticsParameter -> pkgdName 'EQUAL' value
- : #'StatisticsParameter'{statName = '$1',
- statValue = ['$3']} .
-
-topologyDescriptor -> 'TopologyToken' 'LBRKT' topologyTriple
- topologyTripleList 'RBRKT' : ['$3' | '$4'] .
-
-terminationA -> terminationID : '$1' .
-
-terminationB -> terminationID : '$1' .
-
-topologyTriple -> terminationA 'COMMA'
- terminationB 'COMMA'
- topologyDirection :
- #'TopologyRequest'{terminationFrom = '$1',
- terminationTo = '$3',
- topologyDirection = '$5'} .
-
-topologyTripleList -> '$empty' : [] .
-topologyTripleList -> 'COMMA' topologyTriple topologyTripleList :
- ['$2' | '$3'] .
-
-topologyDirection -> 'BothwayToken' : bothway .
-topologyDirection -> 'IsolateToken' : isolate .
-topologyDirection -> 'OnewayToken' : oneway .
-
-priority -> 'PriorityToken' 'EQUAL' safeToken : ensure_uint16('$3') .
-
-extensionParameter -> safeToken : ensure_extensionParameter('$1') .
-
-value -> 'QuotedChars' : ensure_value('$1') .
-value -> safeToken : ensure_value('$1').
-
-safeToken -> safeToken2 : make_safe_token('$1') .
-
-safeToken2 -> 'SafeChars' : '$1' .
-%% BMK BMK safeToken2 -> 'AddToken' : '$1' .
-safeToken2 -> 'AuditToken' : '$1' .
-safeToken2 -> 'AuditCapToken' : '$1' .
-safeToken2 -> 'AuditValueToken' : '$1' .
-safeToken2 -> 'AuthToken' : '$1' .
-safeToken2 -> 'BothToken' : '$1' . % v3
-safeToken2 -> 'BothwayToken' : '$1' .
-safeToken2 -> 'BriefToken' : '$1' .
-safeToken2 -> 'BufferToken' : '$1' .
-safeToken2 -> 'CtxToken' : '$1' .
-%% v3-safeToken2 -> 'ContextAttrToken' : '$1' . % v3
-safeToken2 -> 'ContextAuditToken' : '$1' .
-%% v2-safeToken2 -> 'DigitMapToken' : '$1' .
-%% safeToken2 -> 'DigitMapDescriptorToken' : '$1' .
-%% v3-
-safeToken2 -> 'DirectionToken' : '$1' . % v3
-safeToken2 -> 'DiscardToken' : '$1' .
-safeToken2 -> 'DisconnectedToken' : '$1' .
-safeToken2 -> 'DelayToken' : '$1' .
-safeToken2 -> 'DurationToken' : '$1' .
-safeToken2 -> 'EmbedToken' : '$1' .
-%% BMK BMK safeToken2 -> 'EmergencyToken' : '$1' .
-%% BMK BMK safeToken2 -> 'EmergencyOffToken' : '$1' .
-safeToken2 -> 'ErrorToken' : '$1' .
-%% v2-safeToken2 -> 'EventBufferToken' : '$1' .
-%% v2-safeToken2 -> 'EventsToken' : '$1' .
-%% v3-safeToken2 -> 'ExternalToken' : '$1' . % v3
-safeToken2 -> 'FailoverToken' : '$1' .
-safeToken2 -> 'ForcedToken' : '$1' .
-safeToken2 -> 'GracefulToken' : '$1' .
-safeToken2 -> 'H221Token' : '$1' .
-safeToken2 -> 'H223Token' : '$1' .
-safeToken2 -> 'H226Token' : '$1' .
-safeToken2 -> 'HandOffToken' : '$1' .
-%% v3-safeToken2 -> 'IEPSToken' : '$1' . % v3
-safeToken2 -> 'ImmAckRequiredToken' : '$1' .
-safeToken2 -> 'InactiveToken' : '$1' .
-%% v3-safeToken2 -> 'InternalToken' : '$1' . % v3
-safeToken2 -> 'InterruptByEventToken' : '$1' .
-safeToken2 -> 'InterruptByNewSignalsDescrToken' : '$1' .
-safeToken2 -> 'IsolateToken' : '$1' .
-safeToken2 -> 'InSvcToken' : '$1' .
-safeToken2 -> 'KeepActiveToken' : '$1' .
-%% safeToken2 -> 'LocalToken' : '$1' .
-%% safeToken2 -> 'LocalDescriptorToken' : '$1' .
-safeToken2 -> 'LocalControlToken' : '$1' .
-safeToken2 -> 'LoopbackToken' : '$1' .
-safeToken2 -> 'LockStepToken' : '$1' .
-%% v2-safeToken2 -> 'MediaToken' : '$1' .
-%% safeToken2 -> 'MegacopToken' : '$1' .
-safeToken2 -> 'MethodToken' : '$1' .
-safeToken2 -> 'MgcIdToken' : '$1' .
-safeToken2 -> 'ModeToken' : '$1' .
-%% BMK BMK safeToken2 -> 'ModifyToken' : '$1' .
-%% v2-safeToken2 -> 'ModemToken' : '$1' .
-%% BMK BMK safeToken2 -> 'MoveToken' : '$1' .
-%% safeToken2 -> 'MtpToken' : '$1' .
-%% safeToken2 -> 'MtpAddressToken' : '$1' .
-%% v2-safeToken2 -> 'MuxToken' : '$1' .
-safeToken2 -> 'NotifyToken' : '$1' .
-safeToken2 -> 'NotifyCompletionToken' : '$1' .
-safeToken2 -> 'Nx64kToken' : '$1' .
-%% v2-safeToken2 -> 'ObservedEventsToken' : '$1' .
-safeToken2 -> 'OnewayToken' : '$1' .
-safeToken2 -> 'OffToken' : '$1' .
-safeToken2 -> 'OnToken' : '$1' .
-safeToken2 -> 'OnOffToken' : '$1' .
-safeToken2 -> 'OutOfSvcToken' : '$1' .
-safeToken2 -> 'OtherReasonToken' : '$1' .
-%% v2-safeToken2 -> 'PackagesToken' : '$1' .
-safeToken2 -> 'PendingToken' : '$1' .
-%% BMK BMK safeToken2 -> 'PriorityToken' : '$1' .
-safeToken2 -> 'ProfileToken' : '$1' .
-safeToken2 -> 'ReasonToken' : '$1' .
-safeToken2 -> 'RecvonlyToken' : '$1' .
-safeToken2 -> 'ReplyToken' : '$1' .
-%% v3-
-safeToken2 -> 'RequestIDToken' : '$1' . % v3
-safeToken2 -> 'ResponseAckToken' : '$1' .
-safeToken2 -> 'RestartToken' : '$1' .
-%% safeToken2 -> 'RemoteToken' : '$1' .
-%% safeToken2 -> 'RemoteDescriptorToken' : '$1' .
-safeToken2 -> 'ReservedGroupToken' : '$1' .
-safeToken2 -> 'ReservedValueToken' : '$1' .
-safeToken2 -> 'SendonlyToken' : '$1' .
-safeToken2 -> 'SendrecvToken' : '$1' .
-safeToken2 -> 'ServicesToken' : '$1' .
-safeToken2 -> 'ServiceStatesToken' : '$1' .
-safeToken2 -> 'ServiceChangeToken' : '$1' .
-%% v3-safeToken2 -> 'ServiceChangeIncompleteToken' : '$1' . % v3
-safeToken2 -> 'ServiceChangeAddressToken' : '$1' .
-safeToken2 -> 'SignalListToken' : '$1' .
-%% v2-safeToken2 -> 'SignalsToken' : '$1' .
-safeToken2 -> 'SignalTypeToken' : '$1' .
-%% v2-safeToken2 -> 'StatsToken' : '$1' .
-safeToken2 -> 'StreamToken' : '$1' .
-%% BMK BMK safeToken2 -> 'SubtractToken' : '$1' .
-safeToken2 -> 'SynchISDNToken' : '$1' .
-safeToken2 -> 'TerminationStateToken' : '$1' .
-safeToken2 -> 'TestToken' : '$1' .
-safeToken2 -> 'TimeOutToken' : '$1' .
-%% BMK BMK safeToken2 -> 'TopologyToken' : '$1' .
-safeToken2 -> 'TransToken' : '$1' .
-safeToken2 -> 'V18Token' : '$1' .
-safeToken2 -> 'V22Token' : '$1' .
-safeToken2 -> 'V22bisToken' : '$1' .
-safeToken2 -> 'V32Token' : '$1' .
-safeToken2 -> 'V32bisToken' : '$1' .
-safeToken2 -> 'V34Token' : '$1' .
-safeToken2 -> 'V76Token' : '$1' .
-safeToken2 -> 'V90Token' : '$1' .
-safeToken2 -> 'V91Token' : '$1' .
-safeToken2 -> 'VersionToken' : '$1' .
-%% <OTP-7534>
-safeToken2 -> 'AndAUDITSelectToken' : '$1' . % v3
-safeToken2 -> 'ContextListToken' : '$1' . % v3
-safeToken2 -> 'EmergencyValueToken' : '$1' . % v3
-safeToken2 -> 'IntsigDelayToken' : '$1' . % v3
-safeToken2 -> 'IterationToken' : '$1' . % v3
-safeToken2 -> 'MessageSegmentToken' : '$1' . % v3
-safeToken2 -> 'NeverNotifyToken' : '$1' . % v3
-safeToken2 -> 'NotifyImmediateToken' : '$1' . % v3
-safeToken2 -> 'NotifyRegulatedToken' : '$1' . % v3
-safeToken2 -> 'OnewayBothToken' : '$1' . % v3
-safeToken2 -> 'OnewayExternalToken' : '$1' . % v3
-safeToken2 -> 'OrAUDITselectToken' : '$1' . % v3
-safeToken2 -> 'ResetEventsDescriptorToken' : '$1' . % v3
-safeToken2 -> 'SegmentationCompleteToken' : '$1' . % v3
-%% </OTP-7534>
-
-
-Erlang code.
-
-%% The following directive is needed for (significantly) faster compilation
-%% of the generated .erl file by the HiPE compiler. Please do not remove.
--compile([{hipe,[{regalloc,linear_scan}]}]).
-
--include("megaco_text_parser_prev3a.hrl").
-
-
diff --git a/lib/megaco/src/text/megaco_text_parser_prev3b.hrl b/lib/megaco/src/text/megaco_text_parser_prev3b.hrl
deleted file mode 100644
index c38aaa1140..0000000000
--- a/lib/megaco/src/text/megaco_text_parser_prev3b.hrl
+++ /dev/null
@@ -1,1725 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose : Define semantic text parser actions
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3b.hrl").
--define(encoder_version_pre_prev3c,true).
--include("megaco_text_tokens.hrl").
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{make_safe_token,1}]}).
--endif.
-make_safe_token(Token) ->
- {_TokenTag, Line, Text} = Token,
- {safeToken, Line, Text}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_value,1}]}).
--endif.
-ensure_value(Token) ->
- case Token of
- {safeToken, _Line, Text} when is_list(Text) ->
- Text; % We really should ensure length
- {'QuotedChars', _Line, Text} when is_list(Text) ->
- Text; % We really should ensure length
- Text when is_list(Text) ->
- Text % We really should ensure length
- end.
-
-%% NAME = ALPHA *63(ALPHA / DIGIT / "_" )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_NAME,1}]}).
--endif.
-ensure_NAME(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text. %% BUGBUG: ensure length and chars
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_requestID,1}]}).
--endif.
-ensure_requestID(Token) ->
- case Token of
- {safeToken, _Line, "*"} ->
- ?megaco_all_request_id;
- _ ->
- ensure_uint32(Token)
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_streamID,1}]}).
--endif.
-ensure_streamID(StreamId) ->
- ensure_uint16(StreamId).
-
-ensure_auth_header(SpiToken, SnToken, AdToken) ->
- Spi = ensure_hex(SpiToken, 8, 8),
- Sn = ensure_hex(SnToken, 8, 8),
- Ad = ensure_hex(AdToken, 24, 64),
- #'AuthenticationHeader'{secParmIndex = Spi, seqNum = Sn, ad = Ad}.
-
-%% The values 0x0, 0xFFFFFFFE and 0xFFFFFFFF are reserved.
-%% ContextID = (UINT32 / "*" / "-" / "$")
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_contextID,1}]}).
--endif.
-ensure_contextID(Token) ->
- {_TokenTag, Line, Text} = Token,
- case Text of
- "*" -> ?megaco_all_context_id;
- "-" -> ?megaco_null_context_id;
- "\$" -> ?megaco_choose_context_id;
- Int ->
- CID = ensure_uint32(Int),
- if
- (CID =/= 0) andalso
- (CID =/= 16#FFFFFFFE) andalso
- (CID =/= 16#FFFFFFFF) ->
- CID;
- true ->
- return_error(Line, {bad_ContextID, CID})
- end
- end.
-
-ensure_domainAddress([{_T, _L, _A} = Addr0], Port) ->
- Addr = ensure_ip4addr(Addr0),
- {ip4Address, #'IP4Address'{address = Addr, portNumber = Port}};
-ensure_domainAddress([colon,colon], Port) ->
- Addr = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
- {ip6Address, #'IP6Address'{address = Addr, portNumber = Port}};
-ensure_domainAddress(Addr0, Port) ->
- Addr = ensure_ip6addr(Addr0),
- {ip6Address, #'IP6Address'{address = Addr, portNumber = Port}}.
-
-
-ensure_ip4addr(Token) ->
- {_TokenTag, Line, Addr} = Token,
-%% case string:tokens(Addr, [$.]) of
-%% [T1, T2, T3, T4] ->
- case split_ip4addr_text(Addr, []) of
- [T1, T2, T3, T4] ->
- %% We optimize by sending only the text part (Addr) of
- %% the token to the function.
- %% If something is wrong, then we do not get a proper
- %% position and therefor we catch and issue the
- %% the error again (with the proper line number).
- case (catch [
- ensure_uint(T1, 0, 255),
- ensure_uint(T2, 0, 255),
- ensure_uint(T3, 0, 255),
- ensure_uint(T4, 0, 255)
- ]) of
- A when is_list(A) ->
- A;
- _ ->
- return_error(Line, {bad_IP4address, Addr})
- end;
- _ ->
- return_error(Line, {bad_IP4address, Addr})
- end.
-
-split_ip4addr_text([], Acc) ->
- [ lists:reverse(Acc) ];
-split_ip4addr_text([$. | Rest], Acc) ->
- [ lists:reverse(Acc) | split_ip4addr_text(Rest, []) ];
-split_ip4addr_text([H | T], Acc) ->
- split_ip4addr_text(T, [H | Acc]).
-
-
-ensure_ip6addr([colon,colon|T]) ->
- [H1|T1] = lists:reverse(T),
- case do_ensure_ip6addr(T1, true, [ensure_hex4_or_ip4addr(H1)], 1) of
- {true, A} when length(A) == 16 ->
- A;
- {true, B} when length(B) < 16 ->
- lists:duplicate(16 - length(B), 0) ++ B;
- {true, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, C}}})
- end;
-ensure_ip6addr(L) ->
- case lists:reverse(L) of
- [colon, colon| T] ->
- case do_ensure_ip6addr(T, true, [], 1) of
- {true, A} when length(A) == 16 ->
- A;
- {true, B} when length(B) < 16 ->
- B ++ lists:duplicate(16 - length(B), 0);
- {true, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, C}}})
- end;
- [H|L1] -> % A (last element) could be an ip4 address
- case do_ensure_ip6addr(L1,false,[ensure_hex4_or_ip4addr(H)],1) of
- {false, A} when length(A) == 16 ->
- A;
- %% allow a pad even if the address is full (i.e. 16)
- {true, B} when length(B) =< 17 ->
- do_ensure_ip6addr_padding(B, 0);
- {Pad, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, Pad, C}}})
- end
-
- end.
-
-
-do_ensure_ip6addr([], Pad, Acc, _) ->
- {Pad, lists:flatten(Acc)};
-do_ensure_ip6addr([colon,colon|T], false, Acc, Line) ->
- do_ensure_ip6addr(T, true, [pad|Acc], Line);
-do_ensure_ip6addr([colon,colon|T], true, Acc, Line) ->
- return_error(Line, {bad_mid_duplicate_padding, T, Acc});
-do_ensure_ip6addr([colon|T], Pad, Acc, Line) ->
- do_ensure_ip6addr(T, Pad, Acc, Line);
-do_ensure_ip6addr([{_, Line, _} = A|T], Pad, Acc, _) ->
- do_ensure_ip6addr(T, Pad, [ensure_hex4(A)|Acc], Line).
-
-do_ensure_ip6addr_padding([], _) ->
- [];
-do_ensure_ip6addr_padding([pad|T], N) ->
- lists:duplicate(16 - (N + length(T)), 0) ++ T;
-do_ensure_ip6addr_padding([H|T], N) ->
- [H|do_ensure_ip6addr_padding(T, N+1)].
-
-ensure_hex4_or_ip4addr({TokenTag, Line, Addr} = V) ->
- case string:tokens(Addr, [$.]) of
- [T1, T2, T3, T4] ->
- A1 = ensure_uint({TokenTag, Line, T1}, 0, 255),
- A2 = ensure_uint({TokenTag, Line, T2}, 0, 255),
- A3 = ensure_uint({TokenTag, Line, T3}, 0, 255),
- A4 = ensure_uint({TokenTag, Line, T4}, 0, 255),
- [A1, A2, A3, A4];
- _ ->
- ensure_hex4(V)
- %% %% BMK BMK BMK
- %% %% Here we should test for hexseq
- %% return_error(Line, {bad_IP4address, Addr})
- end.
-
-ensure_hex4({_TokenTag, Line, Hex4})
- when length(Hex4) =< 4, length(Hex4) > 0 ->
- case (catch do_ensure_hex4(Hex4)) of
- IL when is_list(IL) andalso (length(IL) =:= 2) ->
- IL;
- Error ->
- return_error(Line, {bad_hex4, Hex4, Error})
- end.
-
-do_ensure_hex4([_H1, _H2, _H3, _H4] = H) ->
- hex_to_int(H, []);
-do_ensure_hex4([H2, H3, H4]) ->
- hex_to_int([$0, H2, H3, H4], []);
-do_ensure_hex4([H3, H4]) ->
- hex_to_int([$0, $0, H3, H4], []);
-do_ensure_hex4([H4]) ->
- hex_to_int([$0, $0, $0, H4], []).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_domainName,2}]}).
--endif.
-ensure_domainName(Token, Port) ->
- {_TokenTag, _Line, Name} = Token,
- %% BUGBUG: validate name
- {domainName, #'DomainName'{name = Name, portNumber = Port}}.
-
-%% extensionParameter= "X" ("-" / "+") 1*6(ALPHA / DIGIT)
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_extensionParameter,1}]}).
--endif.
-ensure_extensionParameter(Token) ->
- {_TokenTag, Line, Text} = Token,
- case Text of
- [X, S | _Chars] ->
- if
- X /= $X, X /= $x,
- S /= $+, S /= $- ->
- return_error(Line, {bad_extension_parameter, Text});
- true ->
- {extension_parameter, Text}
- end;
- _ ->
- return_error(Line, {bad_extension_parameter, Text})
- end.
-
-ensure_message(MegacopToken, MID, Body) ->
-%% #'ServiceChangeProfile'{profileName = Name,
-%% version = Version} =
-%% ensure_profile(MegacopToken),
-%% case Name of
-%% "megaco" ->
-%% #'Message'{version = Version, mId = MID, messageBody = Body};
-%% [$!] ->
-%% #'Message'{version = Version, mId = MID, messageBody = Body}
-%% end.
- {_TokenTag, Line, Text} = MegacopToken,
- case split_Megacop(Text, []) of
- {Name, Version} ->
- Version2 = ensure_version(Version),
- case Name of
- "megaco" ->
- #'Message'{version = Version2,
- mId = MID,
- messageBody = Body};
- [$!] ->
- #'Message'{version = Version2,
- mId = MID,
- messageBody = Body}
- end;
- _ ->
- return_error(Line, {bad_name_or_version, Text})
- end.
-
-split_Megacop([], _) ->
- error;
-split_Megacop([$/ | Version], Acc) ->
- {lists:reverse(Acc), Version};
-split_Megacop([H | T], Acc) ->
- split_Megacop(T, [H | Acc]).
-
-
-%% Corr1:
-%% As of corr 1 ModemDescriptor has been deprecated.
-%% and since this functon is only used when creating
-%% a ModemDescriptor, iit is removed.
-%% modemType = (V32bisToken / V22bisToken / V18Token /
-%% V22Token / V32Token / V34Token / V90Token /
-%% V91Token / SynchISDNToken / extensionParameter)
-%% ensure_modemType({_TokenTag, _Line, Text} = Token) ->
-%% case Text of
-%% "v32b" -> v32bis;
-%% "v22b" -> v22bis;
-%% "v18" -> v18;
-%% "v22" -> v22;
-%% "v32" -> v32;
-%% "v34" -> v34;
-%% "v90" -> v90;
-%% "v91" -> v91;
-%% "synchisdn" -> synchISDN;
-%% "sn" -> synchISDN;
-%% [$x | _] -> ensure_extensionParameter(Token)
-%% end.
-
-%% An mtp address is five octets long
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_mtpAddress,1}]}).
--endif.
-ensure_mtpAddress(Token) ->
- {_TokenTag, _Line, Addr} = Token,
- %% BUGBUG: validate address
- {mtpAddress, Addr}.
-
-%% MuxType = ( H221Token / H223Token / H226Token / V76Token / extensionParameter )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_muxType,1}]}).
--endif.
-ensure_muxType(Token) ->
- {_TokenTag, _Line, Text} = Token,
- case Text of
- "h221" -> h221;
- "h223" -> h223;
- "h226" -> h226;
- "v76" -> v76;
- "nx64k" -> nx64k; % v2
- [$x | _] -> ensure_extensionParameter(Token)
- end.
-
-%% packagesItem = NAME "-" UINT16
-%% NAME = ALPHA *63(ALPHA / DIGIT / "_" )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_packagesItem,1}]}).
--endif.
-ensure_packagesItem(Token) ->
- {_TokenTag, Line, Text} = Token,
- case split_packagesItem(Text, []) of
- {Name, Version} ->
- %% As we don't ensure length of the names, there is no point
- %% in doing the ensure_NAME thing...
- #'PackagesItem'{packageName = Name,
- packageVersion = ensure_uint(Version, 0, 99)};
- _ ->
- return_error(Line, {bad_PackagesItem, Text})
- end.
-
-split_packagesItem([], _) ->
- error;
-split_packagesItem([$- | Version], Acc) ->
- {lists:reverse(Acc), Version};
-split_packagesItem([H|T], Acc) ->
- split_packagesItem(T, [H|Acc]).
-
-
-%% pkgdName = (PackageName / "*") SLASH (ItemID / "*" )
-%% PackageName = NAME
-%% ItemID = NAME
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_pkgdName,1}]}).
--endif.
-ensure_pkgdName(Token) ->
- {_TokenTag, Line, Text} = Token,
- case ensure_pkgdName(Text, []) of
- ok ->
- %% As we don't really do any checks on the strings
- %% (length or content) there is really no point in
- %% "ensuring" the name and item part of the
- %% package name
- %% ensure_name_or_star(Name),
- %% ensure_name_or_star(Item),
- Text;
- _ ->
- return_error(Line, {bad_pkgdName, Text})
- end.
-
-ensure_pkgdName([], _) ->
- error;
-ensure_pkgdName([$/ | T], Acc)
- when ((length(T) > 0) andalso (length(Acc) > 0)) ->
- ok;
-ensure_pkgdName([H | T], Acc) ->
- ensure_pkgdName(T, [H | Acc]).
-
-
-%% -compile({inline,[{ensure_name_or_star,1}]}).
-%% ensure_name_or_star(Val) ->
-%% %% case Token of
-%% %% {_, _, Name} when Name =:= "*" ->
-%% %% Name;
-%% %% _ ->
-%% %% ensure_NAME(Token)
-%% %% end.
-%% if
-%% Val =:= "*" ->
-%% Val;
-%% true ->
-%% %% as we don't really validate the text part of the token(s),
-%% %% we can just return the value assuming it to be correct...
-%% Val
-%% end.
-
-
-%% v2 - start
-
-merge_indAudMediaDescriptor_streams(asn1_NOVALUE, []) ->
- asn1_NOVALUE;
-merge_indAudMediaDescriptor_streams(Stream, [])
- when is_record(Stream, 'IndAudStreamParms') ->
- {oneStream, Stream};
-merge_indAudMediaDescriptor_streams(asn1_NOVALUE, MStreams) ->
- {multiStream, lists:reverse(MStreams)};
-merge_indAudMediaDescriptor_streams(Stream, MStreams) ->
- return_error(0,
- {invalid_indAudMediaDescriptor_streams, {Stream, MStreams}}).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_indAudMediaDescriptor,1}]}).
--endif.
-merge_indAudMediaDescriptor(Vals) ->
- merge_indAudMediaDescriptor(Vals, asn1_NOVALUE, asn1_NOVALUE, []).
-
-merge_indAudMediaDescriptor([], TSD, OneStream, MultiStreams) ->
- Streams = merge_indAudMediaDescriptor_streams(OneStream, MultiStreams),
- #'IndAudMediaDescriptor'{termStateDescr = TSD,
- streams = Streams};
-
-merge_indAudMediaDescriptor([{termStateDescr, H}|T], asn1_NOVALUE, OS, MS) ->
- merge_indAudMediaDescriptor(T, H, OS, MS);
-merge_indAudMediaDescriptor([{streamDescr, Val}|T], TSD, asn1_NOVALUE, MS) ->
- merge_indAudMediaDescriptor(T, TSD, asn1_NOVALUE, [Val|MS]);
-merge_indAudMediaDescriptor([{streamParm, Val}|T], TSD, asn1_NOVALUE, []) ->
- merge_indAudMediaDescriptor(T, TSD, Val, []);
-merge_indAudMediaDescriptor(Vals, TSD, OneStream, MultiStream) ->
- return_error(0, {invalid_indAudMediaDescriptor,
- {Vals, TSD, OneStream, MultiStream}}).
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_indAudLocalControlDescriptor,1}]}).
--endif.
-merge_indAudLocalControlDescriptor(Parms) ->
- do_merge_indAudLocalControlDescriptor(Parms,
- #'IndAudLocalControlDescriptor'{}).
-
-do_merge_indAudLocalControlDescriptor([Parm | Parms], Desc) ->
- case Parm of
- modeToken when Desc#'IndAudLocalControlDescriptor'.streamMode =:= asn1_NOVALUE ->
- Desc2 = Desc#'IndAudLocalControlDescriptor'{streamMode = 'NULL'},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2);
- reservedGroupToken when Desc#'IndAudLocalControlDescriptor'.reserveGroup =:= asn1_NOVALUE ->
- Desc2 = Desc#'IndAudLocalControlDescriptor'{reserveGroup = 'NULL'},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2);
- reservedValueToken when Desc#'IndAudLocalControlDescriptor'.reserveValue =:= asn1_NOVALUE ->
- Desc2 = Desc#'IndAudLocalControlDescriptor'{reserveValue = 'NULL'},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2);
- {pkgdName, Val} when Desc#'IndAudLocalControlDescriptor'.propertyParms =:= asn1_NOVALUE ->
- PropParms = [#'IndAudPropertyParm'{name = Val}],
- Desc2 = Desc#'IndAudLocalControlDescriptor'{propertyParms = PropParms},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2);
- {pkgdName, Val} when is_list(Desc#'IndAudLocalControlDescriptor'.propertyParms) ->
- PropParms = Desc#'IndAudLocalControlDescriptor'.propertyParms,
- PropParms2 = [#'IndAudPropertyParm'{name = Val} | PropParms],
- Desc2 = Desc#'IndAudLocalControlDescriptor'{propertyParms = PropParms2},
- do_merge_indAudLocalControlDescriptor(Parms, Desc2)
- end;
-do_merge_indAudLocalControlDescriptor([], Desc) ->
- case Desc#'IndAudLocalControlDescriptor'.propertyParms of
- [_ | _] = PropParms -> % List has more then one element
- PropParms2= lists:reverse(PropParms),
- Desc#'IndAudLocalControlDescriptor'{propertyParms = PropParms2};
- _ ->
- Desc
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_indAudLocalParm,1}]}).
--endif.
-ensure_indAudLocalParm(Token) ->
- case Token of
- {safeToken, _Line, "mode"} -> modeToken;
- {safeToken, _Line, "mo"} -> modeToken;
- {safeToken, _Line, "reservedgroup"} -> reservedGroupToken;
- {safeToken, _Line, "rg"} -> reservedGroupToken;
- {safeToken, _Line, "reservedvalue"} -> reservedValueToken;
- {safeToken, _Line, "rv"} -> reservedValueToken;
- PkgdName -> {pkgdName,
- ensure_pkgdName(PkgdName)}
- end.
-
-merge_indAudTerminationStateDescriptor({pkgdName, Val}) ->
- PropParm = #'IndAudPropertyParm'{name = Val},
- #'IndAudTerminationStateDescriptor'{propertyParms = [PropParm]};
-merge_indAudTerminationStateDescriptor(serviceStatesToken) ->
- #'IndAudTerminationStateDescriptor'{serviceState = 'NULL'};
-merge_indAudTerminationStateDescriptor(bufferToken) ->
- #'IndAudTerminationStateDescriptor'{eventBufferControl = 'NULL'}.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_indAudEventBufferDescriptor,2}]}).
--endif.
-merge_indAudEventBufferDescriptor(EventName, SpecParams) ->
- IAEBD = #'IndAudEventBufferDescriptor'{eventName = EventName},
- do_merge_indAudEventBufferDescriptor(SpecParams, IAEBD).
-
-do_merge_indAudEventBufferDescriptor(asn1_NOVALUE, IAEBD) ->
- IAEBD;
-do_merge_indAudEventBufferDescriptor({streamID, StreamID}, IAEBD) ->
- IAEBD#'IndAudEventBufferDescriptor'{streamID = StreamID};
-do_merge_indAudEventBufferDescriptor({eventParameterName, _Name} = EPN,
- IAEBD) ->
- %% BUGBUG BUGBUG BUGBUG
- %% This is an ugly hack to allow the eventParamName which only
- %% exists in the text encoding...
- IAEBD#'IndAudEventBufferDescriptor'{streamID = EPN}.
-
-
-ensure_indAudSignalListParm(SIG) when is_record(SIG, 'Signal') ->
- ensure_indAudSignal(SIG).
-
-ensure_indAudSignal(#'Signal'{signalName = SignalName,
- streamID = asn1_NOVALUE,
- sigType = asn1_NOVALUE,
- duration = asn1_NOVALUE,
- notifyCompletion = asn1_NOVALUE,
- keepActive = asn1_NOVALUE,
- sigParList = []}) ->
- #'IndAudSignal'{signalName = SignalName}.
-
-
-ensure_IADMD({_TokenTag, _Line,
- #'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = asn1_NOVALUE}}) ->
- #'IndAudDigitMapDescriptor'{digitMapName = Name}.
-
-
-merge_indAudPackagesDescriptor(#'PackagesItem'{packageName = N,
- packageVersion = V}) ->
- #'IndAudPackagesDescriptor'{packageName = N,
- packageVersion = V}.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_indAudTerminationStateParm,1}]}).
--endif.
-ensure_indAudTerminationStateParm(Token) ->
- case Token of
- {safeToken, _Line, "servicestates"} -> serviceStatesToken;
- {safeToken, _Line, "si"} -> serviceStatesToken;
- {safeToken, _Line, "buffer"} -> bufferToken;
- {safeToken, _Line, "bf"} -> bufferToken;
- PkgdName -> {pkgdName,
- ensure_pkgdName(PkgdName)}
- end.
-
-
-%% Types modified by v2:
-
-merge_auditDescriptor([]) ->
- #'AuditDescriptor'{};
-merge_auditDescriptor(Tokens) when is_list(Tokens) ->
- case lists:keysearch(terminationAudit, 1, Tokens) of
- {value, {terminationAudit, TA}} ->
- case lists:keydelete(terminationAudit, 1, Tokens) of
- [] ->
- #'AuditDescriptor'{auditPropertyToken = TA};
- AuditTokens ->
- #'AuditDescriptor'{auditToken = AuditTokens,
- auditPropertyToken = TA}
- end;
- false ->
- #'AuditDescriptor'{auditToken = Tokens}
- end;
-merge_auditDescriptor(_) ->
- #'AuditDescriptor'{}.
-
-
-%% v2 - end
-
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_ServiceChangeParm,1}]}).
--endif.
-merge_ServiceChangeParm(Parms) ->
- Required = [serviceChangeReason, serviceChangeMethod],
- merge_ServiceChangeParm(Parms, #'ServiceChangeParm'{}, Required).
-
-merge_ServiceChangeParm([], SCP, []) ->
- SCP;
-
-merge_ServiceChangeParm([], _SCP, Required) ->
- exit({missing_required_serviceChangeParm, Required});
-
-merge_ServiceChangeParm([{address, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE) andalso
- (SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE) ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeAddress = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{address, Val}|_Parms], SCP0, _Req)
- when SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE ->
- MgcId = SCP0#'ServiceChangeParm'.serviceChangeMgcId,
- exit({not_both_address_mgcid_serviceChangeParm, Val, MgcId});
-
-merge_ServiceChangeParm([{mgc_id, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE) andalso
- (SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE) ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeMgcId = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{mgc_id, Val}|_Parms], SCP0, _Req)
- when SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE ->
- Addr = SCP0#'ServiceChangeParm'.serviceChangeAddress,
- exit({not_both_address_mgcid_serviceChangeParm, Val, Addr});
-
-merge_ServiceChangeParm([{profile, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeProfile == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeProfile = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{version, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeVersion == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeVersion = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-%% REQUIRED (i.e. no default value)
-merge_ServiceChangeParm([{reason, Val}|Parms], SCP0, Req0)
- when SCP0#'ServiceChangeParm'.serviceChangeReason == undefined ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeReason = Val},
- Req = lists:delete(serviceChangeReason, Req0),
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{delay, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeDelay == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeDelay = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-%% REQUIRED (i.e. no default value)
-merge_ServiceChangeParm([{method, Val}|Parms], SCP0, Req0)
- when SCP0#'ServiceChangeParm'.serviceChangeMethod == undefined ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeMethod = Val},
- Req = lists:delete(serviceChangeMethod, Req0),
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{time_stamp, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.timeStamp == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{timeStamp = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{extension, _Val}|Parms], SCP0, Req) ->
- merge_ServiceChangeParm(Parms, SCP0, Req);
-
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeInfo == asn1_NOVALUE) andalso
- is_atom(Val) ->
- SCI = #'AuditDescriptor'{auditToken = [Val]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeInfo == asn1_NOVALUE) andalso
- is_tuple(Val) ->
- SCI = #'AuditDescriptor'{auditPropertyToken = [Val]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when is_record(SCP0#'ServiceChangeParm'.serviceChangeInfo, 'AuditDescriptor') andalso
- is_atom(Val) ->
- SCI0 = SCP0#'ServiceChangeParm'.serviceChangeInfo,
- L = SCI0#'AuditDescriptor'.auditToken,
- SCI = SCI0#'AuditDescriptor'{auditToken = [Val|L]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when is_record(SCP0#'ServiceChangeParm'.serviceChangeInfo, 'AuditDescriptor') andalso
- is_tuple(Val) ->
- SCI0 = SCP0#'ServiceChangeParm'.serviceChangeInfo,
- L = SCI0#'AuditDescriptor'.auditPropertyToken,
- SCI = SCI0#'AuditDescriptor'{auditPropertyToken = [Val|L]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([incomplete|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeIncompleteFlag == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeIncompleteFlag = 'NULL'},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{Tag, Val}|_Parms], SCP, _Req) ->
- Val2 =
- case Tag of
- address ->
- SCP#'ServiceChangeParm'.serviceChangeAddress;
- mgc_id ->
- SCP#'ServiceChangeParm'.serviceChangeMgcId;
- profile ->
- SCP#'ServiceChangeParm'.serviceChangeProfile;
- version ->
- SCP#'ServiceChangeParm'.serviceChangeVersion;
- reason ->
- SCP#'ServiceChangeParm'.serviceChangeReason;
- delay ->
- SCP#'ServiceChangeParm'.serviceChangeDelay;
- method ->
- SCP#'ServiceChangeParm'.serviceChangeMethod;
- time_stamp ->
- SCP#'ServiceChangeParm'.timeStamp;
- audit_item ->
- SCP#'ServiceChangeParm'.serviceChangeInfo
- end,
- exit({at_most_once_serviceChangeParm, {Tag, Val, Val2}});
-merge_ServiceChangeParm([Parm|_Parms], SCP, _Req) ->
- Parm2 =
- case Parm of
- incomplete ->
- SCP#'ServiceChangeParm'.serviceChangeIncompleteFlag
- end,
- exit({at_most_once_serviceChangeParm, {Parm, Parm2}}).
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_ServiceChangeResParm,1}]}).
--endif.
-merge_ServiceChangeResParm(Parms) ->
- merge_ServiceChangeResParm(Parms, #'ServiceChangeResParm'{}).
-
-merge_ServiceChangeResParm([], SCRP) ->
- SCRP;
-merge_ServiceChangeResParm([{address, Val}|Parms], SCRP0)
- when (SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE) andalso
- (SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE) ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeAddress = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-merge_ServiceChangeResParm([{address, Val}|_Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE ->
- MgcId = SCRP0#'ServiceChangeResParm'.serviceChangeMgcId,
- exit({not_both_address_mgcid_servChgReplyParm, Val, MgcId});
-
-merge_ServiceChangeResParm([{mgc_id, Val}|Parms], SCRP0)
- when (SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE) andalso
- (SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE) ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeMgcId = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-merge_ServiceChangeResParm([{mgc_id, Val}|_Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE ->
- Addr = SCRP0#'ServiceChangeResParm'.serviceChangeAddress,
- exit({not_both_address_mgcid_servChgReplyParm, Val, Addr});
-
-merge_ServiceChangeResParm([{profile, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeProfile == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeProfile = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{version, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeVersion == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeVersion = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{time_stamp, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.timeStamp == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{timeStamp = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{Tag, Val}|_Parms], SCRP) ->
- Val2 =
- case Tag of
- address -> SCRP#'ServiceChangeResParm'.serviceChangeAddress;
- mgc_id -> SCRP#'ServiceChangeResParm'.serviceChangeMgcId;
- profile -> SCRP#'ServiceChangeResParm'.serviceChangeProfile;
- version -> SCRP#'ServiceChangeResParm'.serviceChangeVersion;
- time_stamp -> SCRP#'ServiceChangeResParm'.timeStamp
- end,
- exit({at_most_once_servChgReplyParm, {Tag, Val, Val2}}).
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_serviceChangeMethod,1}]}).
--endif.
-ensure_serviceChangeMethod(Token) ->
- case Token of
- {safeToken, _Line, "fl"} ->
- failover;
- {safeToken, _Line, "failover"} ->
- failover;
- {safeToken, _Line, "fo"} ->
- forced;
- {safeToken, _Line, "forced"} ->
- forced;
- {safeToken, _Line, "gr"} ->
- graceful;
- {safeToken, _Line, "graceful"} ->
- graceful;
- {safeToken, _Line, "rs"} ->
- restart;
- {safeToken, _Line, "restart"} ->
- restart;
- {safeToken, _Line, "dc"} ->
- disconnected;
- {safeToken, _Line, "disconnected"} ->
- disconnected;
- {safeToken, _Line, "ho"} ->
- handOff;
- {safeToken, _Line, "handoff"} ->
- handOff;
- {safeToken, Line, Text} ->
- return_error(Line, {bad_serviceChangeMethod, Text})
- end.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_profile,1}]}).
--endif.
-ensure_profile(Token) ->
- {_TokenTag, Line, Text} = Token,
- case string:tokens(Text, [$/]) of
- [Name, Version] ->
- Version2 = ensure_version(Version),
- #'ServiceChangeProfile'{profileName = Name, version = Version2};
- _ ->
- return_error(Line, {bad_profile, Text})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_version,1}]}).
--endif.
-ensure_version(Version) ->
- ensure_uint(Version, 0, 99).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_signalRequest,2}]}).
--endif.
-merge_signalRequest(SignalName, PropertyParms) ->
- Sig = #'Signal'{signalName = SignalName},
- SPL = [],
- do_merge_signalRequest(Sig, PropertyParms, SPL).
-
-do_merge_signalRequest(Sig, [H | T], SPL) ->
- case H of
- {stream, SID} when Sig#'Signal'.streamID == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{streamID = SID}, T, SPL);
- {signal_type, SigType} when Sig#'Signal'.sigType == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{sigType = SigType}, T, SPL);
- {duration, Duration} when Sig#'Signal'.duration == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{duration = Duration}, T, SPL);
- {notify_completion, NC} when Sig#'Signal'.notifyCompletion == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{notifyCompletion = NC}, T, SPL);
- keepActive when Sig#'Signal'.keepActive == asn1_NOVALUE->
- do_merge_signalRequest(Sig#'Signal'{keepActive = true}, T, SPL);
- {other, Name, PP} ->
- SP = #'SigParameter'{sigParameterName = Name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_signalRequest(Sig, T, [SP | SPL]);
- {direction, Dir} when Sig#'Signal'.direction == asn1_NOVALUE->
- do_merge_signalRequest(Sig#'Signal'{direction = Dir}, T, SPL);
- {requestId, RID} when Sig#'Signal'.requestID == asn1_NOVALUE->
- do_merge_signalRequest(Sig#'Signal'{requestID = RID}, T, SPL);
- _ ->
- return_error(0, {bad_sigParm, H})
- end;
-do_merge_signalRequest(Sig, [], SPL) ->
- Sig#'Signal'{sigParList = lists:reverse(SPL)} .
-
-
-%% eventStream = StreamToken EQUAL StreamID
-%% eventOther = eventParameterName parmValue
--ifdef(megaco_parser_inline).
--compile({inline,[{select_stream_or_other,2}]}).
--endif.
-select_stream_or_other(EventParameterName, ParmValue) ->
- if
- (EventParameterName =:= "st") orelse
- (EventParameterName =:= "stream") ->
- case ParmValue of
- #'PropertyParm'{value = [Value]} ->
- {stream, ensure_uint16(Value)};
- _ ->
- {stream, ensure_uint16(ParmValue)}
- end;
- true ->
- #'PropertyParm'{value = Value} = ParmValue,
- EP = #'EventParameter'{eventParameterName = EventParameterName,
- value = Value},
- {other, EP}
- end.
-
-%% select_stream_or_other("st", #'PropertyParm'{value = [Value]}) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("st", Value) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("stream", #'PropertyParm'{value = [Value]}) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("stream", Value) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other(Name, #'PropertyParm'{value = Value}) ->
-%% EP = #'EventParameter'{eventParameterName = Name,
-%% value = Value},
-%% {other, EP}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_eventDM,1}]}).
--endif.
-ensure_eventDM(Token) ->
- {_TokenTag, Line, DMD} = Token,
- if
- is_record(DMD, 'DigitMapDescriptor') ->
- Name = DMD#'DigitMapDescriptor'.digitMapName,
- Val = DMD#'DigitMapDescriptor'.digitMapValue,
- if
- (Name =:= asn1_NOVALUE) andalso (Val =/= asn1_NOVALUE) ->
- {'DigitMapValue', Start, Short, Long, Duration, Body} = Val,
- DMV = #'DigitMapValue'{startTimer = Start,
- shortTimer = Short,
- longTimer = Long,
- digitMapBody = Body,
- durationTimer = Duration},
- {eventDM, {digitMapValue, DMV}};
- (Name =/= asn1_NOVALUE) andalso (Val =:= asn1_NOVALUE) ->
- {eventDM, {digitMapName, Name}};
- true ->
- return_error(Line, {bad_eventDM, DMD})
- end;
- true ->
- return_error(Line, {bad_eventDM, DMD})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_DMD,1}]}).
--endif.
-ensure_DMD(Token) ->
- {_TokenTag, Line, DMD} = Token,
- if
- is_record(DMD, 'DigitMapDescriptor') ->
- Val2 =
- case DMD#'DigitMapDescriptor'.digitMapValue of
- %% Note that the values of the digitMapBody and
- %% durationTimers are swapped by the scanner
- %% (this is done because of a problem in the flex scanner).
- #'DigitMapValue'{startTimer = asn1_NOVALUE,
- shortTimer = asn1_NOVALUE,
- longTimer = asn1_NOVALUE,
- durationTimer = [],
- digitMapBody = asn1_NOVALUE} ->
- asn1_NOVALUE;
- #'DigitMapValue'{durationTimer = Body,
- digitMapBody = Duration} = DMV ->
- %% Convert to version 1 DigitMapValue
- DMV#'DigitMapValue'{digitMapBody = Body,
- durationTimer = Duration};
- Other ->
- Other
- end,
- DMD#'DigitMapDescriptor'{digitMapValue = Val2};
- true ->
- return_error(Line, {bad_DigitMapDescriptor, DMD})
- end.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_observed_event,3}]}).
--endif.
-merge_observed_event(ObservedEvents, EventName, TimeStamp) ->
- StreamId = asn1_NOVALUE,
- EPL = [],
- do_merge_observed_event(ObservedEvents, EventName, TimeStamp, StreamId, EPL).
-
-do_merge_observed_event([{stream, StreamID} | T], EventName, TimeStamp, asn1_NOVALUE, EPL) ->
- do_merge_observed_event(T, EventName, TimeStamp, StreamID, EPL);
-do_merge_observed_event([{other, PP} | T], EventName, TimeStamp, StreamID, EPL) ->
- do_merge_observed_event(T, EventName, TimeStamp, StreamID, [PP | EPL]);
-do_merge_observed_event([], EventName, TimeStamp, StreamID, EPL) ->
- #'ObservedEvent'{eventName = EventName,
- timeNotation = TimeStamp,
- streamID = StreamID,
- eventParList = lists:reverse(EPL)}.
-
-merge_eventSpec(OE)
- when is_record(OE, 'ObservedEvent') andalso
- (OE#'ObservedEvent'.timeNotation == asn1_NOVALUE) ->
- #'EventSpec'{eventName = OE#'ObservedEvent'.eventName,
- streamID = OE#'ObservedEvent'.streamID,
- eventParList = OE#'ObservedEvent'.eventParList};
-merge_eventSpec(OE) ->
- return_error(0, {bad_event_spec, OE}).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_eventParameters,1}]}).
--endif.
-merge_eventParameters(Params) ->
- StreamId = asn1_NOVALUE,
- EPL = [],
- RA = #'RequestedActions'{},
- HasA = no,
- do_merge_eventParameters(Params, StreamId, EPL, RA, HasA) .
-
-do_merge_eventParameters([H | T], StreamId, EPL, RA, HasA) ->
- case H of
- keepActive when RA#'RequestedActions'.keepActive =:= asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{keepActive = true},
- do_merge_eventParameters(T, StreamId, EPL, RA2, yes);
- {embed, SD, SED} when RA#'RequestedActions'.signalsDescriptor =:= asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{signalsDescriptor = SD,
- secondEvent = SED},
- do_merge_eventParameters(T, StreamId, EPL, RA2, yes);
- {eventDM, DM} when RA#'RequestedActions'.eventDM =:= asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{eventDM = DM},
- do_merge_eventParameters(T, StreamId, EPL, RA2, yes);
- {stream, NewStreamId} when StreamId =:= asn1_NOVALUE ->
- do_merge_eventParameters(T, NewStreamId, EPL, RA, HasA);
- {other, PP} when is_record(PP, 'PropertyParm') ->
- EP = #'EventParameter'{eventParameterName = PP#'PropertyParm'.name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_eventParameters(T, StreamId, [EP | EPL], RA, HasA);
- {other, EP} when is_record(EP, 'EventParameter') ->
- do_merge_eventParameters(T, StreamId, [EP | EPL], RA, HasA);
- _ ->
- return_error(0, {bad_eventParameter, H})
- end;
-do_merge_eventParameters([], StreamId, EPL, RA, yes) ->
- #'RequestedEvent'{streamID = StreamId,
- eventAction = RA,
- evParList = lists:reverse(EPL)};
-do_merge_eventParameters([], StreamId, EPL, _RA, no) ->
- #'RequestedEvent'{streamID = StreamId,
- eventAction = asn1_NOVALUE,
- evParList = lists:reverse(EPL)}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_secondEventParameters,1}]}).
--endif.
-merge_secondEventParameters(Params) ->
- StreamId = asn1_NOVALUE,
- EPL = [],
- SRA = #'SecondRequestedActions'{},
- HasA = no,
- do_merge_secondEventParameters(Params, StreamId, EPL, SRA, HasA) .
-
-do_merge_secondEventParameters([H | T], StreamId, EPL, SRA, HasA) ->
- case H of
- keepActive when SRA#'SecondRequestedActions'.keepActive =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{keepActive = true},
- do_merge_secondEventParameters(T, StreamId, EPL, SRA2, yes);
- {second_embed, SD} when SRA#'SecondRequestedActions'.signalsDescriptor =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{signalsDescriptor = SD},
- do_merge_secondEventParameters(T, StreamId, EPL, SRA2, yes);
- {eventDM, DM} when SRA#'SecondRequestedActions'.eventDM =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{eventDM = DM},
- do_merge_secondEventParameters(T, StreamId, EPL, SRA2, yes);
- {stream, NewStreamId} when StreamId =:= asn1_NOVALUE ->
- do_merge_secondEventParameters(T, NewStreamId, EPL, SRA, HasA);
- {other, PP} when is_record(PP, 'PropertyParm') ->
- EP = #'EventParameter'{eventParameterName = PP#'PropertyParm'.name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_secondEventParameters(T, StreamId, [EP | EPL], SRA, HasA);
- {other, EP} when is_record(EP, 'EventParameter') ->
- do_merge_secondEventParameters(T, StreamId, [EP | EPL], SRA, HasA);
- _ ->
- return_error(0, {bad_secondEventParameter, H})
- end;
-do_merge_secondEventParameters([], StreamId, EPL, SRA, yes) ->
- #'SecondRequestedEvent'{streamID = StreamId,
- eventAction = SRA,
- evParList = lists:reverse(EPL)};
-do_merge_secondEventParameters([], StreamId, EPL, _SRA, no) ->
- #'SecondRequestedEvent'{streamID = StreamId,
- eventAction = asn1_NOVALUE,
- evParList = lists:reverse(EPL)}.
-
-%% terminationID = "ROOT" / pathName / "$" / "*"
-%% Total length of pathName must not exceed 64 chars.
-%% pathName = ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
-%% ["@" pathDomainName ]
-%% ABNF allows two or more consecutive "." although it is meaningless
-%% in a path domain name.
-%% pathDomainName = (ALPHA / DIGIT / "*" )
-%% *63(ALPHA / DIGIT / "-" / "*" / ".")
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_terminationID,1}]}).
--endif.
-ensure_terminationID(Token) ->
- {safeToken, _Line, LowerText} = Token,
- %% terminationID = "ROOT" / pathName / "$" / "*"
- decode_term_id(LowerText, false, [], []).
-
-decode_term_id([H | T], Wild, Id, Component) ->
- case H of
- $/ -> decode_term_id(T, Wild, [lists:reverse(Component) | Id], []);
- $* -> decode_term_id(T, true, Id, [?megaco_all | Component]);
- $$ -> decode_term_id(T, true, Id, [?megaco_choose | Component]);
- _ -> decode_term_id(T, Wild, Id, [H | Component])
- end;
-decode_term_id([], Wild, Id, Component) ->
- Id2 = [lists:reverse(Component) | Id],
- #megaco_term_id{contains_wildcards = Wild, id = lists:reverse(Id2)}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_pathName,1}]}).
--endif.
-ensure_pathName(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text. %% BUGBUG: ensure values
-
-%% TimeStamp = Date "T" Time ; per ISO 8601:1988
-%% Date = 8(DIGIT) ; Date = yyyymmdd
-%% Time = 8(DIGIT) ; Time = hhmmssss
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_timeStamp,1}]}).
--endif.
-ensure_timeStamp(Token) ->
- {'TimeStampToken', Line, Text} = Token,
- case string:tokens(Text, [$T, $t]) of
- [Date, Time] ->
- #'TimeNotation'{date = Date, time = Time};
- _ ->
- return_error(Line, {bad_timeStamp, Text})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_transactionID,1}]}).
--endif.
-ensure_transactionID(TransId) ->
- ensure_uint32(TransId).
-
-%% transactionAck = transactionID / (transactionID "-" transactionID)
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_transactionAck,1}]}).
--endif.
-ensure_transactionAck(Tokens) ->
- {safeToken, _Line, Text} = Tokens,
- ensure_transactionAck2(Text, []).
-
-ensure_transactionAck2([], Acc) ->
- Id = lists:reverse(Acc),
- #'TransactionAck'{firstAck = ensure_transactionID(Id)};
-ensure_transactionAck2([$- | Id2], Acc) ->
- Id1 = lists:reverse(Acc),
- #'TransactionAck'{firstAck = ensure_transactionID(Id1),
- lastAck = ensure_transactionID(Id2)};
-ensure_transactionAck2([H|T], Acc) ->
- ensure_transactionAck2(T, [H|Acc]).
-
-
-merge_context_request(asn1_NOVALUE, Prop) ->
- merge_context_request(#'ContextRequest'{}, Prop);
-
-merge_context_request(#'ContextRequest'{priority = asn1_NOVALUE} = CR,
- {priority, Int}) ->
- CR#'ContextRequest'{priority = Int};
-
-merge_context_request(#'ContextRequest'{emergency = asn1_NOVALUE} = CR,
- {emergency, Bool}) ->
- CR#'ContextRequest'{emergency = Bool};
-
-merge_context_request(#'ContextRequest'{topologyReq = asn1_NOVALUE} = CR,
- {topology, Desc}) ->
- CR#'ContextRequest'{topologyReq = Desc};
-
-merge_context_request(#'ContextRequest'{iepscallind = asn1_NOVALUE} = CR,
- {iepsCallind, Ind}) ->
- CR#'ContextRequest'{iepscallind = Ind};
-
-merge_context_request(#'ContextRequest'{contextProp = asn1_NOVALUE} = CR,
- {contextProp, Props}) ->
- CR#'ContextRequest'{contextProp = Props};
-
-%% The parser handles this, but we drop it in this version
-%% merge_context_request(#'ContextRequest'{contextList = asn1_NOVALUE} = CR,
-%% {contextList, _IDs}) ->
-%% CR#'ContextRequest'{contextList = IDs};
-merge_context_request(CR, {contextList, _IDs}) ->
- CR;
-
-merge_context_request(CR, {Tag, Val}) ->
- Val2 =
- case Tag of
- priority -> CR#'ContextRequest'.priority;
- emergency -> CR#'ContextRequest'.emergency;
- topology -> CR#'ContextRequest'.topologyReq;
- iepsCallind -> CR#'ContextRequest'.iepscallind;
- contextProp -> CR#'ContextRequest'.contextProp%% ;
- %% contextList -> CR#'ContextRequest'.contextList
- end,
- exit({at_most_once_contextProperty, {Tag, Val, Val2}}).
-
-
-merge_context_attr_audit_request(CAAR, []) ->
- CAAR;
-merge_context_attr_audit_request(CAAR, [H|T]) ->
- case H of
- priorityAudit when CAAR#'ContextAttrAuditRequest'.priority == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{priority = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- emergencyAudit when CAAR#'ContextAttrAuditRequest'.emergency == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{emergency = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- topologyAudit when CAAR#'ContextAttrAuditRequest'.topology == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{topology = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- iepsCallind when CAAR#'ContextAttrAuditRequest'.iepscallind == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{iepscallind = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- {prop, Name} when CAAR#'ContextAttrAuditRequest'.contextPropAud == asn1_NOVALUE ->
- CPA = [#'IndAudPropertyParm'{name = Name}],
- CAAR2 = CAAR#'ContextAttrAuditRequest'{contextPropAud = CPA},
- merge_context_attr_audit_request(CAAR2, T);
-
- {prop, Name} ->
- CPA = CAAR#'ContextAttrAuditRequest'.contextPropAud,
- CPA2 = [#'IndAudPropertyParm'{name = Name}|CPA],
- CAAR2 = CAAR#'ContextAttrAuditRequest'{contextPropAud = CPA2},
- merge_context_attr_audit_request(CAAR2, T)
-
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_action_request,2}]}).
--endif.
-merge_action_request(CtxId, Items) ->
- do_merge_action_request(Items, [], asn1_NOVALUE, asn1_NOVALUE, CtxId).
-
-do_merge_action_request([H|T], CmdReqs, CtxReq, CtxAuditReq, CtxId) ->
- case H of
- {commandRequest, CmdReq} ->
- do_merge_action_request(T, [CmdReq|CmdReqs],
- CtxReq, CtxAuditReq, CtxId);
-
- {contextProp, ContextProp} ->
- do_merge_action_request(T, CmdReqs,
- merge_context_request(CtxReq, ContextProp),
- CtxAuditReq, CtxId);
-
- {contextAudit, ContextAuditReq} when CtxAuditReq == asn1_NOVALUE ->
- do_merge_action_request(T, CmdReqs,
- CtxReq, ContextAuditReq, CtxId)
- end;
-do_merge_action_request([], CmdReqs, CtxReq, CtxAuditReq, CtxId) ->
- #'ActionRequest'{contextId = CtxId,
- contextRequest = strip_ContextRequest(CtxReq),
- contextAttrAuditReq = strip_ContextAttrAuditRequest(CtxAuditReq),
- commandRequests = lists:reverse(CmdReqs)}.
-
-
-%% OTP-5085:
-%% In order to solve a problem in the parser, the error descriptor
-%% has been put last in the non-empty commandReplyList, if it is not
-%% asn1_NOVALUE
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_action_reply,1}]}).
--endif.
-merge_action_reply(Items) ->
- do_merge_action_reply(Items, asn1_NOVALUE, asn1_NOVALUE, []).
-
-do_merge_action_reply([], Err, Ctx, Cmds) ->
- #'ActionReply'{errorDescriptor = Err,
- contextReply = strip_ContextRequest(Ctx),
- commandReply = lists:reverse(Cmds)};
-do_merge_action_reply([H|T], Err0, CR, Cmds) ->
- case H of
- {error, Err1} when Err0 == asn1_NOVALUE ->
- do_merge_action_reply(T, Err1, CR, Cmds);
- {command, Cmd} ->
- do_merge_action_reply(T, Err0, CR, [Cmd | Cmds]);
- {context, CtxProp} ->
- do_merge_action_reply(T, Err0,
- merge_context_request(CR, CtxProp), Cmds)
- end.
-
-strip_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextProp = asn1_NOVALUE}) ->
- asn1_NOVALUE;
-strip_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextProp = []}) ->
- asn1_NOVALUE;
-strip_ContextRequest(asn1_NOVALUE) ->
- asn1_NOVALUE;
-strip_ContextRequest(R) ->
- R.
-
-strip_ContextAttrAuditRequest(asn1_NOVALUE) ->
- asn1_NOVALUE;
-strip_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topology = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextPropAud = asn1_NOVALUE}) ->
- asn1_NOVALUE;
-strip_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topology = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextPropAud = []}) ->
- asn1_NOVALUE;
-strip_ContextAttrAuditRequest(R) ->
- R.
-
-merge_AmmRequest_descriptors([], Acc) ->
- lists:reverse(Acc);
-merge_AmmRequest_descriptors([{_, deprecated}|Descs], Acc) ->
- merge_AmmRequest_descriptors(Descs, Acc);
-merge_AmmRequest_descriptors([Desc|Descs], Acc) ->
- merge_AmmRequest_descriptors(Descs, [Desc|Acc]).
-
-make_commandRequest({CmdTag, {_TokenTag, _Line, Text}}, Cmd) ->
- Req = #'CommandRequest'{command = {CmdTag, Cmd}},
- case Text of
- [$w, $- | _] ->
- Req#'CommandRequest'{wildcardReturn = 'NULL'};
- [$o, $-, $w, $- | _] ->
- Req#'CommandRequest'{optional = 'NULL', wildcardReturn = 'NULL'};
- [$o, $- | _] ->
- Req#'CommandRequest'{optional = 'NULL'};
- _ ->
- Req
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_terminationAudit,1}]}).
--endif.
-merge_terminationAudit(AuditReturnParameters) ->
- lists:reverse(do_merge_terminationAudit(AuditReturnParameters, [], [])).
-
-do_merge_terminationAudit([H| T], ARPs, AuditItems) ->
- case H of
- {auditReturnItem, AuditItem} ->
- do_merge_terminationAudit(T, ARPs, [AuditItem | AuditItems]);
- AuditReturnParameter ->
- do_merge_terminationAudit(T, [AuditReturnParameter | ARPs], AuditItems)
- end;
-do_merge_terminationAudit([], AuditReturnParameters, []) ->
- AuditReturnParameters;
-do_merge_terminationAudit([], AuditReturnParameters, AuditItems) ->
- AuditDescriptor = #'AuditDescriptor'{auditToken = AuditItems},
- AuditReturnParameter = {emptyDescriptors, AuditDescriptor},
- [AuditReturnParameter | AuditReturnParameters].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_mediaDescriptor,1}]}).
--endif.
-merge_mediaDescriptor(MediaParms) ->
- do_merge_mediaDescriptor(MediaParms, asn1_NOVALUE, [], []).
-
-do_merge_mediaDescriptor([H | T], TS, One, Multi) ->
- case H of
- {streamParm, Parm} when Multi =:= [] ->
- do_merge_mediaDescriptor(T, TS, [Parm | One], Multi);
- {streamDescriptor, Desc} when One =:= [] ->
- do_merge_mediaDescriptor(T, TS, One, [Desc | Multi]);
- {termState, TS2} when TS =:= asn1_NOVALUE ->
- do_merge_mediaDescriptor(T, TS2, One, Multi);
- _ ->
- return_error(0, {bad_merge_mediaDescriptor, [H, TS, One, Multi]})
- end;
-do_merge_mediaDescriptor([], TS, One, Multi) ->
- if
- (One =:= []) ->
- if (Multi =:= []) ->
- #'MediaDescriptor'{streams = asn1_NOVALUE,
- termStateDescr = TS};
- true -> % (Multi =/= [])
- Streams = {multiStream, lists:reverse(Multi)},
- #'MediaDescriptor'{streams = Streams,
- termStateDescr = TS}
- end;
- true -> % (One =/= [])
- if
- (Multi =:= []) ->
- Streams = {oneStream, merge_streamParms(One)},
- #'MediaDescriptor'{streams = Streams,
- termStateDescr = TS};
- true -> % (Multi =/= [])
- return_error(0,
- {bad_merge_mediaDescriptor, [TS, One, Multi]})
- end
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_streamParms,1}]}).
--endif.
-merge_streamParms(TaggedStreamParms) ->
- SP = #'StreamParms'{},
- do_merge_streamParms(TaggedStreamParms, SP).
-
-do_merge_streamParms([{Tag, D} | T] = All, SP) ->
- case Tag of
- local when SP#'StreamParms'.localDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{localDescriptor = D});
- remote when SP#'StreamParms'.remoteDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{remoteDescriptor = D});
- control ->
- LCD =
- case SP#'StreamParms'.localControlDescriptor of
- asn1_NOVALUE ->
- #'LocalControlDescriptor'{propertyParms = []};
- PrevLCD ->
- PrevLCD
- end,
- LCD2 = do_merge_control_streamParms(D, LCD),
- do_merge_streamParms(T, SP#'StreamParms'{localControlDescriptor = LCD2});
- statistics when SP#'StreamParms'.statisticsDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{statisticsDescriptor = D});
- _ ->
- return_error(0, {do_merge_streamParms, [All, SP]})
- end;
-do_merge_streamParms([], SP)
- when is_record(SP#'StreamParms'.localControlDescriptor,
- 'LocalControlDescriptor') ->
- LCD = SP#'StreamParms'.localControlDescriptor,
- PP = LCD#'LocalControlDescriptor'.propertyParms,
- LCD2 = LCD#'LocalControlDescriptor'{propertyParms = lists:reverse(PP)},
- SP#'StreamParms'{localControlDescriptor = LCD2};
-do_merge_streamParms([], SP) ->
- SP.
-
-
-do_merge_control_streamParms([{SubTag, SD} | T] = All, LCD) ->
- case SubTag of
- group when LCD#'LocalControlDescriptor'.reserveGroup =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{reserveGroup = SD},
- do_merge_control_streamParms(T, LCD2);
- value when LCD#'LocalControlDescriptor'.reserveValue =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{reserveValue = SD},
- do_merge_control_streamParms(T, LCD2);
- mode when LCD#'LocalControlDescriptor'.streamMode =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{streamMode = SD},
- do_merge_control_streamParms(T, LCD2);
- prop ->
- PP = LCD#'LocalControlDescriptor'.propertyParms,
- LCD2 = LCD#'LocalControlDescriptor'{propertyParms = [SD | PP]},
- do_merge_control_streamParms(T, LCD2);
- _ ->
- return_error(0, {do_merge_control_streamParms, [All, LCD]})
- end;
-do_merge_control_streamParms([], LCD) ->
- LCD.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_terminationStateDescriptor,1}]}).
--endif.
-merge_terminationStateDescriptor(Parms) ->
- TSD = #'TerminationStateDescriptor'{propertyParms = []},
- do_merge_terminationStateDescriptor(Parms, TSD).
-
-do_merge_terminationStateDescriptor([{Tag, Val} | T], TSD) ->
- case Tag of
- serviceState when TSD#'TerminationStateDescriptor'.serviceState =:= asn1_NOVALUE ->
- TSD2 = TSD#'TerminationStateDescriptor'{serviceState = Val},
- do_merge_terminationStateDescriptor(T, TSD2);
- eventBufferControl when TSD#'TerminationStateDescriptor'.eventBufferControl =:= asn1_NOVALUE->
- TSD2 = TSD#'TerminationStateDescriptor'{eventBufferControl = Val},
- do_merge_terminationStateDescriptor(T, TSD2);
- propertyParm ->
- PP = TSD#'TerminationStateDescriptor'.propertyParms,
- TSD2 = TSD#'TerminationStateDescriptor'{propertyParms = [Val | PP]},
- do_merge_terminationStateDescriptor(T, TSD2)
- end;
-do_merge_terminationStateDescriptor([], TSD) ->
- PP = TSD#'TerminationStateDescriptor'.propertyParms,
- TSD#'TerminationStateDescriptor'{propertyParms = lists:reverse(PP)}.
-
-
--ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_prop_groups,1}]}).
--endif.
-ensure_prop_groups(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Group = [],
- parse_prop_name(Text, Group).
-
-parse_prop_name([Char | Rest] = All, Group) ->
- if
- ?white_space(Char) ->
- parse_prop_name(Rest, Group);
- ?end_of_line(Char) ->
- parse_prop_name(Rest, Group);
- true ->
- Name = [],
- do_parse_prop_name(All, Name, Group)
- end;
-parse_prop_name([] = All, Group) ->
- Name = [],
- do_parse_prop_name(All, Name, Group).
-
-do_parse_prop_name([Char | Rest], Name, Group)
- when (Char =:= $=) andalso (Name =/= []) ->
- %% Now we have a complete name
- if
- (Name =:= "v") andalso (Group =/= []) ->
- %% v= is a property group delimiter,
- %% lets create yet another property group.
- NewGroup = [],
- [lists:reverse(Group) | parse_prop_value(Rest, Name, NewGroup)];
- true ->
- %% Use current property group
- parse_prop_value(Rest, Name, Group)
- end;
-do_parse_prop_name([Char | Rest], Name, Group) ->
- case ?classify_char4(Char) of
- safe_char_upper ->
- do_parse_prop_name(Rest, [Char | Name], Group);
- safe_char ->
- do_parse_prop_name(Rest, [Char | Name], Group);
- _ ->
- return_error(0, {bad_prop_name, lists:reverse(Name), Char})
- end;
-do_parse_prop_name([], [], []) ->
- [];
-do_parse_prop_name([], [], Group) ->
- [lists:reverse(Group)];
-do_parse_prop_name([], Name, Group) when Name =/= [] ->
- %% Assume end of line
- Value = [],
- PP = make_prop_parm(Name, Value),
- Group2 = lists:reverse([PP | Group]),
- [Group2].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{parse_prop_value,3}]}).
--endif.
-parse_prop_value(Chars, Name, Group) ->
- Value = [],
- do_parse_prop_value(Chars, Name, Value, Group).
-
-do_parse_prop_value([Char | Rest], Name, Value, Group) ->
- if
- ?end_of_line(Char) ->
- %% Now we have a complete "name=value" pair
- PP = make_prop_parm(Name, Value),
- parse_prop_name(Rest, [PP | Group]);
- true ->
- do_parse_prop_value(Rest, Name, [Char | Value], Group)
- end;
-do_parse_prop_value([], Name, Value, Group) ->
- %% Assume end of line
- PP = make_prop_parm(Name, Value),
- Group2 = lists:reverse([PP | Group]),
- [Group2].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{make_prop_parm,2}]}).
--endif.
-make_prop_parm(Name, Value) ->
- #'PropertyParm'{name = lists:reverse(Name),
- value = [lists:reverse(Value)]}.
-
--else. % -ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_prop_groups,1}]}).
--endif.
-ensure_prop_groups(Token) ->
- {_TokenTag, _Line, Groups} = Token,
- Groups.
-
-%% do_ensure_prop_groups(Groups) when is_list(Groups) ->
-%% [ensure_prop_group(Group) || Group <- Groups];
-%% do_ensure_prop_groups(BadGroups) ->
-%% throw({error, {?MODULE, {bad_property_groups, BadGroups}}}).
-
-%% -ifdef(megaco_parser_inline).
-%% -compile({inline,[{ensure_prop_group,1}]}).
-%% -endif.
-%% ensure_prop_group(Group) when is_list(Group) ->
-%% [ensure_prop_parm(PropParm) || PropParm <- Group];
-%% ensure_prop_group(BadGroup) ->
-%% throw({error, {?MODULE, {bad_property_group, BadGroup}}}).
-
-%% -ifdef(megaco_parser_inline).
-%% -compile({inline,[{ensure_prop_parm,1}]}).
-%% -endif.
-%% ensure_prop_parm(#property_parm{name = Name,
-%% value = Value}) ->
-%% #'PropertyParm'{name = Name,
-%% value = Value};
-%% ensure_prop_parm(PP) when is_record(PP, 'PropertyParm') ->
-%% PP;
-%% ensure_prop_parm(BadPropParm) ->
-%% throw({error, {?MODULE, {bad_property_parm, BadPropParm}}}).
-
--endif. % -ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint,3}]}).
--endif.
-ensure_uint(Token, Min, Max) ->
- case Token of
- {_TokenTag, Line, Val} when is_integer(Val) ->
- ensure_uint(Val, Min, Max, Line);
- {_TokenTag, Line, Text} ->
- case (catch list_to_integer(Text)) of
- {'EXIT', _} ->
- return_error(Line, {not_an_integer, Text});
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, Line)
- end;
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, 0);
- Text ->
- case (catch list_to_integer(Text)) of
- {'EXIT', _} ->
- return_error(0, {not_an_integer, Text});
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, 0)
- end
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint,4}]}).
--endif.
--dialyzer({nowarn_function, ensure_uint/4}). % Future compat
-ensure_uint(Val, Min, Max, Line) ->
- if
- is_integer(Min) andalso (Val >= Min) ->
- if
- is_integer(Max) andalso (Val =< Max) ->
- Val;
- Max =:= infinity ->
- Val;
- true ->
- return_error(Line, {too_large_integer, Val, Max})
- end;
- true ->
- return_error(Line, {too_small_integer, Val, Min})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint16,1}]}).
--endif.
-ensure_uint16(Int) ->
- ensure_uint(Int, 0, 65535).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint32,1}]}).
--endif.
-ensure_uint32(Int) ->
- ensure_uint(Int, 0, 4294967295) .
-
-%% OTP-4710
-ensure_hex({_TokenTag, _Line, [$0, $x |Chars]}, Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex({_TokenTag, _Line, [$0, $X |Chars]}, Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex([$0, $x |Chars], Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex([$0, $X |Chars], Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []).
-
-%% OTP-4710
-hex_to_int([], Acc) ->
- lists:reverse(Acc);
-hex_to_int([Char1,Char2|Tail], Acc) ->
- Int1 = hchar_to_int(Char1),
- Int2 = hchar_to_int(Char2),
- Val = Int2 bor (Int1 bsl 4),
- hex_to_int(Tail, [Val| Acc]);
-hex_to_int([Char], Acc) ->
- Int = hchar_to_int(Char),
- lists:reverse([Int|Acc]).
-
-hchar_to_int(Char) when ($0 =< Char) andalso (Char =< $9) ->
- Char - $0;
-hchar_to_int(Char) when ($A =< Char) andalso (Char =< $F) ->
- Char - $A + 10; % OTP-4710
-hchar_to_int(Char) when ($a =< Char) andalso (Char =< $f) ->
- Char - $a + 10. % OTP-4710
-
--ifdef(megaco_parser_inline).
--compile({inline,[{value_of,1}]}).
--endif.
-value_of(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text.
-
-
-%% -------------------------------------------------------------------
-
-%% d(F) ->
-%% d(F,[]).
-%% d(F, A) ->
-%% %% d(true, F, A).
-%% d(get(dbg), F, A).
-
-%% d(true, F, A) ->
-%% io:format("DBG:~w:" ++ F ++ "~n", [?MODULE | A]);
-%% d(_, _, _) ->
-%% ok.
-
diff --git a/lib/megaco/src/text/megaco_text_parser_prev3b.yrl b/lib/megaco/src/text/megaco_text_parser_prev3b.yrl
deleted file mode 100644
index eed984cdc3..0000000000
--- a/lib/megaco/src/text/megaco_text_parser_prev3b.yrl
+++ /dev/null
@@ -1,1607 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: YECC grammar for text encoding of Megaco/H.248
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
-%%----------------------------------------------------------------------
-%% Annex B TEXT ENCODING OF THE PROTOCOL (NORMATIVE)
-%%
-%% B.1 Coding of wildcards
-%%
-%% In a text encoding of the protocol, while TerminationIDs are
-%% arbitrary, by judicious choice of names, the wildcard character, "*"
-%% may be made more useful. When the wildcard character is encountered,
-%% it will "match" all TerminationIDs having the same previous and
-%% following characters (if appropriate). For example, if there were
-%% TerminationIDs of R13/3/1, R13/3/2 and R13/3/3, the TerminationID
-%% R13/3/* would match all of them. There are some circumstances where
-%% ALL Terminations must be referred to. The TerminationID "*" suffices,
-%% and is referred to as ALL. The CHOOSE TerminationID "$" may be used to
-%% signal to the MG that it has to create an ephemeral Termination or
-%% select an idle physical Termination.
-%%
-%% B.2 ABNF specification
-%%
-%% The protocol syntax is presented in ABNF according to RFC2234. The
-%% protocol is not case sensitive. Identifiers are not case sensitive.
-%%
-%% NOTE 1 - This syntax specification does not enforce all restrictions
-%% on element inclusions and values. Some additional
-%% restrictions are stated in comments and other restrictions
-%% appear in the text of this Recommendation. These additional
-%% restrictions are part of the protocol even though not
-%% enforced by this Recommendation.
-%% NOTE 2 - The syntax is context-dependent. For example, "Add" can be
-%% the AddToken or a NAME depending on the context in which it
-%% occurs.
-%%
-%% Everything in the ABNF and text encoding is case insensitive. This
-%% includes TerminationIDs, digitmap Ids etc. SDP is case sensitive as
-%% per RFC 2327.
-%%
-%%----------------------------------------------------------------------
-
-%%----------------------------------------------------------------------
-%% Number of expected shift/reduce warnings
-%% This is ugly but...
-%%----------------------------------------------------------------------
-
-Expect 117.
-
-
-%%----------------------------------------------------------------------
-%% Non-terminals
-%%----------------------------------------------------------------------
-
-Nonterminals
-
- actionReply
- actionReplyBody
- actionReplyList
- actionRequest
- actionRequestBody
- actionRequestItem
- actionRequestItems
- actionRequestList
- alternativeValue
- ammParameter
- ammParameters
- ammRequest
- ammRequestBody
- ammToken
- ammsReply
- ammsReplyBody
- ammsToken
- auditDescriptor
- auditDescriptorBody
- auditItem
- auditItemList
- auditOther
- auditReply
- auditRequest
- auditReturnItem
- auditReturnParameter
- auditReturnParameterList
- authenticationHeader
- commandReplyList
- commandReplys %% v3
- commandRequest
- contextAttrDescriptor %% v3
- contextAudit
- contextAuditProperties
- contextAuditProperty
- contextID
- contextIdList %% v3
- contextIDs %% v3
-%% contextProperties %% v3
- contextProperty
-%% contextPropertyList
- contextTerminationAudit
- daddr
- deviceName
- digitMapDescriptor
- direction %% v3
- domainAddress
- domainName
- embedFirst
- embedNoSig
- embedSig
- embedWithSig
- errorCode
- errorDescriptor
- errorText
- eventBufferControl
- eventBufferControlState
- eventBufferDescriptor
- eventDM
- eventParameter
- eventParameterName
- eventParameters
- eventSpec
- eventSpecList
- eventStream
- eventStreamOrOther
- eventsDescriptor
- extension
- extensionParameter
-
- iepsValue
-
- %% v2 - start
- indAudauditReturnParameter
- indAuddigitMapDescriptor
- indAudeventBufferDescriptor
- indAudeventSpec
- indAudeventSpecParameter
- %% indAudeventSpecParameterList
- indAudeventsDescriptor
- indAudlocalControlDescriptor
- indAudlocalParm
- indAudlocalParmList
- indAudmediaDescriptor
- indAudmediaParm
- indAudmediaParms %% v3
- %% indAudmediaParmList
- indAudpackagesDescriptor
- indAudrequestedEvent
- indAudsignalsDescriptor
- indAudsignalList
- %% indAudsignalListParm
- indAudsignalParm
- %% indAudsignalRequest
- indAudstreamDescriptor
- indAudstreamParm
- indAudstatisticsDescriptor
- indAudterminationAudit
- indAudterminationAuditList
- indAudterminationStateDescriptor
- indAudterminationStateParm
- %% indAudterminationStateParmList
- optIndAudeventSpecParameter
- optIndAudsignalParm
- %% v2 - end
-
- indAudcontextAttrDescriptor %% v3
-
- localControlDescriptor
- localParm
- localParmList
- mId
- mediaDescriptor
- mediaParm
- mediaParmList
- megacoMessage
- message
- messageBody
- modemDescriptor % Deprecated as of Corr 1
- modemType % Deprecated as of Corr 1
- modemTypeList % Deprecated as of Corr 1
- mtpAddress
- muxDescriptor
- muxType
- notificationReason
- notificationReasons
- notifyReply
- notifyReplyBody
- notifyRequest
- notifyRequestBody
- observedEvent
- observedEventBody
- observedEventParameter
- observedEventParameters
- % observedEventTimeStamp
- observedEvents
- observedEventsDescriptor
- onOrOff
- optAuditDescriptor
- optImmAckRequired
- optPropertyParms
- optSep
- packagesDescriptor
- packagesItem
- packagesItems
- %% parmName
- parmValue
- pathName
- pkgdName
- portNumber
- priority
- propertyParm
- propertyParms
- propertyParmList
- requestID
- requestedEvent
- requestedEventBody
- requestedEvents
- safeToken
- safeToken2
- secondEventParameter
- secondEventParameters
- secondRequestedEvent
- secondRequestedEventBody
- secondRequestedEvents
- servChgReplyParm
- servChgReplyParms
- serviceChangeAddress
- serviceChangeDelay
- serviceChangeDescriptor
- serviceChangeMethod
- serviceChangeMgcId
- serviceChangeParm
- serviceChangeParms
- serviceChangeProfile
- serviceChangeReason
- serviceChangeReply
- serviceChangeReplyBody
- serviceChangeReplyDescriptor
- serviceChangeRequest
- serviceChangeVersion
- serviceState
- serviceStates
- sigParameter
- sigParameters
- signalList
- signalListId
- signalListParm
- signalListParms
- signalName
- signalParm
- signalParms
- signalRequest
- signalsDescriptor
- signalType
- statisticsDescriptor
- statisticsParameter
- statisticsParameters
- streamDescriptor
- streamID
- streamModes
- streamParm
- streamParmList
- subtractRequest
- terminationA
- terminationAudit
- terminationB
- terminationID
- terminationIDList
- terminationIDListRepeat
- terminationStateDescriptor
- terminationStateParm
- terminationStateParms
- timeStamp
- topologyDescriptor
- topologyDirection
- topologyTriple
- topologyTripleList
- transactionAck
- transactionAckList
- transactionID
- transactionItem
- transactionList
- transactionPending
- transactionReply
- transactionReplyBody
- transactionRequest
- transactionResponseAck
- value
- valueList
-
-.
-
-%%----------------------------------------------------------------------
-%% Terminals
-%%----------------------------------------------------------------------
-
-Terminals
-
- 'AddToken'
- 'AuditCapToken'
- 'AuditToken'
- 'AuditValueToken'
- 'AuthToken'
- 'BothToken' %% v3
- 'BothwayToken'
- 'BriefToken'
- 'BufferToken'
- 'COLON'
- 'COMMA'
- 'ContextAttrToken' %% v3
- 'ContextAuditToken'
- 'ContextListToken' %% v3
- 'CtxToken'
- 'DelayToken'
- 'DigitMapToken'
- 'DigitMapDescriptorToken'
- 'DirectionToken' %% v3
- 'DiscardToken'
- 'DisconnectedToken'
- 'DurationToken'
- 'EQUAL'
- 'EmbedToken'
- 'EmergencyToken'
- 'EmergencyOffToken'
- 'ErrorToken'
- 'EventBufferToken'
- 'EventsToken'
- 'ExternalToken' %% v3
- 'FailoverToken'
- 'ForcedToken'
- 'GREATER'
- 'GracefulToken'
- 'H221Token'
- 'H223Token'
- 'H226Token'
- 'HandOffToken'
- 'IEPSToken' %% v3
- 'ImmAckRequiredToken'
- 'InSvcToken'
- 'InactiveToken'
- 'InternalToken' %% v3
- 'InterruptByEventToken'
- 'InterruptByNewSignalsDescrToken'
- 'IsolateToken'
- 'KeepActiveToken'
- 'LBRKT'
- 'LESSER'
- 'LSBRKT'
- 'LocalControlToken'
- 'LocalDescriptorToken'
- 'LockStepToken'
- 'LoopbackToken'
- 'MediaToken'
- %% 'MegacopToken'
- 'MethodToken'
- 'MgcIdToken'
- 'ModeToken'
- 'ModemToken'
- 'ModifyToken'
- 'MoveToken'
- 'MtpAddressToken'
- 'MuxToken'
- 'NEQUAL'
- 'NotifyCompletionToken'
- 'NotifyToken'
- 'Nx64Token' %% v2
- 'ObservedEventsToken'
- 'OffToken'
- 'OnToken'
- 'OnOffToken'
- 'OnewayToken'
- 'OtherReasonToken'
- 'OutOfSvcToken'
- 'PackagesToken'
- 'PendingToken'
- 'PriorityToken'
- 'ProfileToken'
- 'QuotedChars'
- 'RBRKT'
- 'RSBRKT'
- 'ReasonToken'
- 'RecvonlyToken'
- 'RemoteDescriptorToken'
- 'ReplyToken'
- 'RequestIDToken' %% v3
- 'ReservedGroupToken'
- 'ReservedValueToken'
- 'ResponseAckToken'
- 'RestartToken'
- 'SEP'
- 'SafeChars'
- 'SendonlyToken'
- 'SendrecvToken'
- 'ServiceChangeAddressToken'
- 'ServiceChangeToken'
- 'ServiceChangeIncompleteToken'
- 'ServiceStatesToken'
- 'ServicesToken'
- 'SignalListToken'
- 'SignalTypeToken'
- 'SignalsToken'
- 'StatsToken'
- 'StreamToken'
- 'SubtractToken'
- 'SynchISDNToken'
- 'TerminationStateToken'
- 'TestToken'
- 'TimeOutToken'
- 'TimeStampToken'
- 'TopologyToken'
- 'TransToken'
- 'V18Token'
- 'V22Token'
- 'V22bisToken'
- 'V32Token'
- 'V32bisToken'
- 'V34Token'
- 'V76Token'
- 'V90Token'
- 'V91Token'
- 'VersionToken'
- 'AndAUDITSelectToken' %% OTP-7534: v3-fix
- 'EmergencyValueToken' %% OTP-7534: v3-fix
- 'IntsigDelayToken' %% OTP-7534: v3-fix
- 'IterationToken' %% OTP-7534: v3-fix
- 'MessageSegmentToken' %% OTP-7534: v3-fix
- 'NeverNotifyToken' %% OTP-7534: v3-fix
- 'NotifyImmediateToken' %% OTP-7534: v3-fix
- 'NotifyRegulatedToken' %% OTP-7534: v3-fix
- 'OnewayBothToken' %% OTP-7534: v3-fix
- 'OnewayExternalToken' %% OTP-7534: v3-fix
- 'OrAUDITselectToken' %% OTP-7534: v3-fix
- 'ResetEventsDescriptorToken' %% OTP-7534: v3-fix
- 'SegmentationCompleteToken' %% OTP-7534: v3-fix
- endOfMessage
-
-.
-
-%%----------------------------------------------------------------------
-%% Root symbol
-%%----------------------------------------------------------------------
-
-Rootsymbol megacoMessage.
-
-%%----------------------------------------------------------------------
-%% The grammar
-%%----------------------------------------------------------------------
-
-%% megacoMessage = LWSP [authenticationHeader SEP ] message
-%% authenticationHeader = AuthToken EQUAL SecurityParmIndex COLON
-%% SequenceNum COLON AuthData
-%%
-%% SecurityParmIndex = "0x" 8(HEXDIG)
-%% SequenceNum = "0x" 8(HEXDIG)
-%% AuthData = "0x" 24*64(HEXDIG)
-%% message = MegacopToken SLASH version SEP mId SEP messageBody
-%% version = 1*2(DIGIT) .
-
-megacoMessage -> optSep authenticationHeader message endOfMessage
- : #'MegacoMessage'{authHeader = '$2', mess = '$3'} .
-
-optSep -> 'SEP' : sep .
-optSep -> '$empty' : no_sep .
-
-authenticationHeader -> 'AuthToken' 'EQUAL' safeToken 'COLON'
- safeToken 'COLON' safeToken optSep
- : ensure_auth_header('$3', '$5', '$7') .
-authenticationHeader -> '$empty' : asn1_NOVALUE .
-
-message -> safeToken mId messageBody : ensure_message('$1', '$2', '$3') .
-
-messageBody -> errorDescriptor : {messageError, '$1'} .
-messageBody -> transactionList : {transactions, '$1'} .
-
-transactionList -> transactionItem : ['$1'] .
-transactionList -> transactionItem transactionList : ['$1' | '$2'] .
-
-transactionItem -> transactionRequest : {transactionRequest, '$1'} .
-transactionItem -> transactionReply : {transactionReply, '$1'}.
-transactionItem -> transactionPending : {transactionPending, '$1'} .
-transactionItem -> transactionResponseAck : {transactionResponseAck, '$1'} .
-
-transactionResponseAck -> 'ResponseAckToken'
- 'LBRKT' transactionAck transactionAckList 'RBRKT' : ['$3' | '$4'] .
-
-transactionAckList -> 'COMMA' transactionAck transactionAckList : ['$2' | '$3'] .
-transactionAckList -> '$empty' : [] .
-
-transactionAck -> safeToken : ensure_transactionAck('$1') .
-
-transactionPending -> 'PendingToken' 'EQUAL' transactionID 'LBRKT' 'RBRKT'
- : #'TransactionPending'{transactionId = ensure_transactionID('$3') } .
-
-transactionRequest -> 'TransToken'
- 'LBRKT' actionRequest actionRequestList 'RBRKT'
- : #'TransactionRequest'{transactionId = asn1_NOVALUE,
- actions = ['$3' | '$4']} .
-transactionRequest -> 'TransToken' 'EQUAL'
- 'LBRKT' actionRequest actionRequestList 'RBRKT'
- : #'TransactionRequest'{transactionId = asn1_NOVALUE,
- actions = ['$4' | '$5']} .
-transactionRequest -> 'TransToken' 'EQUAL' transactionID
- 'LBRKT' actionRequest actionRequestList 'RBRKT'
- : #'TransactionRequest'{transactionId = ensure_transactionID('$3'),
- actions = ['$5' | '$6']} .
-
-actionRequestList -> 'COMMA' actionRequest actionRequestList : ['$2' | '$3'] .
-actionRequestList -> '$empty' : [] .
-
-actionRequest -> 'CtxToken' 'EQUAL' contextID
- 'LBRKT' actionRequestBody 'RBRKT'
- : merge_action_request('$3', '$5') .
-
-actionRequestBody -> actionRequestItem actionRequestItems : ['$1' | '$2'] .
-
-actionRequestItems -> 'COMMA' actionRequestItem actionRequestItems
- : ['$2' | '$3'] .
-actionRequestItems -> '$empty' : [] .
-
-%% actionRequestItem -> contextProperties : '$1' .
-actionRequestItem -> contextProperty : {contextProp, '$1'} .
-actionRequestItem -> contextAudit : {contextAudit, '$1'} .
-actionRequestItem -> commandRequest : {commandRequest, '$1'} .
-
-%% contextProperties -> contextProperty contextPropertyList :
-%% merge_context_request(#'ContextRequest'{}, ['$1' | '$2']) .
-
-%% contextPropertyList -> 'COMMA' contextProperty contextPropertyList : ['$2' | '$3' ] .
-%% contextPropertyList -> '$empty' : [] .
-
-%% at-most-once
-contextProperty -> topologyDescriptor : {topology, '$1'}.
-contextProperty -> priority : {priority, '$1'}.
-contextProperty -> 'EmergencyToken' : {emergency, true}.
-contextProperty -> 'EmergencyOffToken' : {emergency, false}.
-contextProperty -> iepsValue : {iepsCallind, '$1'} .
-contextProperty -> contextAttrDescriptor : '$1' .
-
-contextAttrDescriptor -> 'ContextAttrToken' 'LBRKT' propertyParms 'RBRKT' :
- {contextProp, '$3'}.
-contextAttrDescriptor -> 'ContextAttrToken' 'LBRKT' contextIdList 'RBRKT' :
- {contextList, '$3'}.
-
-contextIdList -> 'ContextListToken' 'EQUAL'
- 'LBRKT' contextID contextIDs 'RBRKT' : ['$4' | '$5'] .
-
-contextIDs -> 'COMMA' contextID contextIDs : ['$2' | '$3'] .
-contextIDs -> '$empty' : [] .
-
-contextAudit -> 'ContextAuditToken' 'LBRKT' indAudcontextAttrDescriptor 'RBRKT'
- : merge_context_attr_audit_request(
- #'ContextAttrAuditRequest'{}, '$3') .
-
-indAudcontextAttrDescriptor -> 'ContextAttrToken'
- 'LBRKT' contextAuditProperty
- contextAuditProperties 'RBRKT'
- : ['$3' | '$4'] .
-
-contextAuditProperties -> 'COMMA' contextAuditProperty contextAuditProperties
- : ['$2' | '$3'] .
-contextAuditProperties -> '$empty' : [] .
-
-%% at-most-once .
-contextAuditProperty -> 'TopologyToken' : topologyAudit .
-contextAuditProperty -> 'EmergencyToken' : emergencyAudit .
-contextAuditProperty -> 'PriorityToken' : priorityAudit .
-contextAuditProperty -> 'IEPSToken' : iepsCallind .
-contextAuditProperty -> pkgdName : {prop, '$1'} .
-
-commandRequest -> ammRequest : '$1'.
-commandRequest -> subtractRequest : '$1'.
-commandRequest -> auditRequest : '$1'.
-commandRequest -> notifyRequest : '$1'.
-commandRequest -> serviceChangeRequest : '$1'.
-
-transactionReply -> 'ReplyToken' 'EQUAL' transactionID
- 'LBRKT'
- optImmAckRequired transactionReplyBody
- 'RBRKT'
- : #'TransactionReply'{transactionId = '$3',
- immAckRequired = '$5',
- transactionResult = '$6'} .
-
-optImmAckRequired -> 'ImmAckRequiredToken' 'COMMA' : 'NULL' .
-optImmAckRequired -> '$empty' : asn1_NOVALUE .
-
-transactionReplyBody -> errorDescriptor : {transactionError, '$1'} .
-transactionReplyBody -> actionReply actionReplyList : {actionReplies, ['$1' | '$2']} .
-
-actionReplyList -> 'COMMA' actionReply actionReplyList : ['$2' | '$3'] .
-actionReplyList -> '$empty' : [] .
-
-actionReply -> 'CtxToken' 'EQUAL' contextID
- 'LBRKT' actionReplyBody 'RBRKT' :
- setelement(#'ActionReply'.contextId, '$5', '$3') .
-
-actionReplyBody -> errorDescriptor :
- #'ActionReply'{errorDescriptor = '$1'} .
-actionReplyBody -> commandReplys commandReplyList :
- merge_action_reply(['$1' | '$2']) .
-
-%% OTP-5085
-%% This ugly thing is to fool the parser. The errorDescriptor does not
-%% realy belong here. The merge_action_reply will remove it and put it
-%% in it's right place later.
-commandReplyList -> 'COMMA' errorDescriptor :
- [{error, '$2'}] .
-commandReplyList -> 'COMMA' commandReplys commandReplyList :
- ['$2' | '$3'] .
-commandReplyList -> '$empty' : [] .
-
-commandReplys -> serviceChangeReply : {command, '$1'} .
-commandReplys -> auditReply : {command, '$1'} .
-commandReplys -> ammsReply : {command, '$1'} .
-commandReplys -> notifyReply : {command, '$1'} .
-commandReplys -> contextProperty : {context, '$1'} .
-
-%Add Move and Modify have the same request parameter
-ammRequest -> ammToken 'EQUAL' terminationID ammRequestBody :
- Descs = merge_AmmRequest_descriptors('$4', []),
- make_commandRequest('$1',
- #'AmmRequest'{terminationID = ['$3'],
- descriptors = Descs}) .
-
-ammToken -> 'AddToken' : {addReq, '$1'} .
-ammToken -> 'MoveToken' : {moveReq, '$1'} .
-ammToken -> 'ModifyToken' : {modReq, '$1'} .
-
-ammRequestBody -> 'LBRKT' ammParameter ammParameters 'RBRKT' : ['$2' | '$3'] .
-ammRequestBody -> '$empty' : [] .
-
-ammParameters -> 'COMMA' ammParameter ammParameters : ['$2' | '$3'] .
-ammParameters -> '$empty' : [] .
-
-%at-most-once
-ammParameter -> mediaDescriptor : {mediaDescriptor, '$1'}.
-ammParameter -> modemDescriptor : {modemDescriptor, deprecated}.
-ammParameter -> muxDescriptor : {muxDescriptor, '$1'}.
-ammParameter -> eventsDescriptor : {eventsDescriptor, '$1'}.
-ammParameter -> eventBufferDescriptor : {eventBufferDescriptor, '$1'}.
-ammParameter -> signalsDescriptor : {signalsDescriptor, '$1'}.
-ammParameter -> digitMapDescriptor : {digitMapDescriptor, '$1'}.
-ammParameter -> auditDescriptor : {auditDescriptor, '$1'}.
-ammParameter -> statisticsDescriptor : {statisticsDescriptor, '$1'}.
-
-ammsReply -> ammsToken 'EQUAL' terminationID ammsReplyBody
- : {'$1', #'AmmsReply'{terminationID = ['$3'],
- terminationAudit = '$4'}} .
-
-ammsToken -> 'AddToken' : addReply .
-ammsToken -> 'MoveToken' : moveReply .
-ammsToken -> 'ModifyToken' : modReply .
-ammsToken -> 'SubtractToken' : subtractReply .
-
-ammsReplyBody -> 'LBRKT' terminationAudit 'RBRKT' : '$2' .
-ammsReplyBody -> '$empty' : asn1_NOVALUE .
-
-subtractRequest -> 'SubtractToken' 'EQUAL' terminationID
- optAuditDescriptor
- : make_commandRequest({subtractReq, '$1'},
- #'SubtractRequest'{terminationID = ['$3'],
- auditDescriptor = '$4'}) .
-
-
-optAuditDescriptor -> 'LBRKT' auditDescriptor 'RBRKT' : '$2'.
-optAuditDescriptor -> '$empty' : asn1_NOVALUE .
-
-auditRequest -> 'AuditValueToken' 'EQUAL'
- terminationID optAuditDescriptor :
- make_commandRequest({auditValueRequest, '$1'},
- #'AuditRequest'{terminationID = '$3',
- auditDescriptor = '$4'}) .
-auditRequest -> 'AuditCapToken' 'EQUAL'
- terminationID optAuditDescriptor :
- make_commandRequest({auditCapRequest, '$1'},
- #'AuditRequest'{terminationID = '$3',
- auditDescriptor = '$4'}) .
-
-auditReply -> 'AuditValueToken' 'EQUAL' 'CtxToken' contextTerminationAudit
- : {auditValueReply, '$4'} .
-auditReply -> 'AuditCapToken' 'EQUAL' 'CtxToken' contextTerminationAudit
- : {auditCapReply, '$4'} .
-auditReply -> 'AuditValueToken' 'EQUAL' auditOther
- : {auditValueReply, '$3'} .
-auditReply -> 'AuditCapToken' 'EQUAL' auditOther
- : {auditCapReply, '$3'} .
-
-contextTerminationAudit -> terminationIDList :
- {contextAuditResult, '$1'} .
-contextTerminationAudit -> 'LBRKT' errorDescriptor 'RBRKT' :
- {error, '$2'} .
-
-auditOther -> terminationID :
- {auditResult,
- #'AuditResult'{terminationID = '$1',
- terminationAuditResult = []}} .
-auditOther -> terminationID 'LBRKT' terminationAudit 'RBRKT' :
- {auditResult,
- #'AuditResult'{terminationID = '$1',
- terminationAuditResult = '$3'}} .
-
-
-terminationAudit -> auditReturnParameter auditReturnParameterList :
- merge_terminationAudit(['$1' |'$2' ]) .
-
-auditReturnParameterList -> 'COMMA' auditReturnParameter auditReturnParameterList : ['$2' | '$3'] .
-auditReturnParameterList -> '$empty' : [] .
-
-auditReturnParameter -> mediaDescriptor : {mediaDescriptor, '$1'} .
-auditReturnParameter -> modemDescriptor.
-auditReturnParameter -> muxDescriptor : {muxDescriptor, '$1'} .
-auditReturnParameter -> eventsDescriptor : {eventsDescriptor, '$1'} .
-auditReturnParameter -> signalsDescriptor : {signalsDescriptor, '$1'} .
-auditReturnParameter -> digitMapDescriptor : {digitMapDescriptor, '$1'} .
-auditReturnParameter -> observedEventsDescriptor : {observedEventsDescriptor, '$1'} .
-auditReturnParameter -> eventBufferDescriptor : {eventBufferDescriptor, '$1'} .
-auditReturnParameter -> statisticsDescriptor : {statisticsDescriptor, '$1'} .
-auditReturnParameter -> packagesDescriptor : {packagesDescriptor, '$1'} .
-auditReturnParameter -> errorDescriptor : {errorDescriptor, '$1'} .
-auditReturnParameter -> auditReturnItem : {auditReturnItem, '$1'} .
-
-auditDescriptor -> 'AuditToken' 'LBRKT' auditDescriptorBody 'RBRKT' :
- merge_auditDescriptor('$3') .
-
-auditDescriptorBody -> auditItem auditItemList : ['$1' | '$2'].
-auditDescriptorBody -> '$empty' : asn1_NOVALUE .
-
-auditItemList -> 'COMMA' auditItem auditItemList : ['$2' | '$3'] .
-auditItemList -> '$empty' : [] .
-
-%% IGv11 - begin
-%%
-auditReturnItem -> 'MuxToken' : muxToken .
-auditReturnItem -> 'ModemToken' : modemToken .
-auditReturnItem -> 'MediaToken' : mediaToken .
-auditReturnItem -> 'DigitMapToken' : digitMapToken .
-auditReturnItem -> 'StatsToken' : statsToken .
-auditReturnItem -> 'ObservedEventsToken' : observedEventsToken .
-auditReturnItem -> 'PackagesToken' : packagesToken .
-
-%% at-most-once, and DigitMapToken and PackagesToken are not allowed
-%% in AuditCapabilities command
-auditItem -> auditReturnItem : '$1' .
-auditItem -> 'SignalsToken' : signalsToken.
-auditItem -> 'EventBufferToken' : eventBufferToken.
-auditItem -> 'EventsToken' : eventsToken .
-auditItem -> indAudterminationAudit : {terminationAudit, '$1'} . % v2
-%%
-%% IGv11 - end
-
-
-%% v2 - start
-%%
-indAudterminationAudit -> indAudauditReturnParameter
- indAudterminationAuditList
- : ['$1' | '$2'] .
-
-indAudterminationAuditList -> 'COMMA' indAudauditReturnParameter
- indAudterminationAuditList
- : ['$2' | '$3'] .
-indAudterminationAuditList -> '$empty' : [] .
-
-indAudauditReturnParameter -> indAudmediaDescriptor
- : {indAudMediaDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudeventsDescriptor
- : {indAudEventsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudsignalsDescriptor
- : {indAudSignalsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAuddigitMapDescriptor
- : {indAudDigitMapDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudeventBufferDescriptor
- : {indAudEventBufferDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudstatisticsDescriptor
- : {indAudStatisticsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudpackagesDescriptor
- : {indAudPackagesDescriptor, '$1'} .
-
-
-indAudmediaDescriptor -> 'MediaToken' 'LBRKT'
- indAudmediaParm indAudmediaParms 'RBRKT'
- : merge_indAudMediaDescriptor(['$3'|'$4']) .
-
-%% at-most-once per item
-%% and either streamParm or streamDescriptor but not both
-%%
-
-indAudmediaParm -> indAudstreamParm : {streamParm, '$1'} .
-indAudmediaParm -> indAudstreamDescriptor : {streamDescr, '$1'} .
-indAudmediaParm -> indAudterminationStateDescriptor : {termStateDescr, '$1'} .
-
-indAudmediaParms -> 'COMMA' indAudmediaParm indAudmediaParms : ['$2' | '$3'] .
-indAudmediaParms -> '$empty' : [] .
-
-%% at-most-once
-indAudstreamParm -> indAudlocalControlDescriptor
- : #'IndAudStreamParms'{localControlDescriptor = '$1'} .
-indAudstreamParm -> indAudstatisticsDescriptor
- : #'IndAudStreamParms'{statisticsDescriptor = '$1'} .
-
-indAudstreamDescriptor -> 'StreamToken' 'EQUAL' streamID
- 'LBRKT' indAudstreamParm 'RBRKT'
- : #'IndAudStreamDescriptor'{streamID = '$3',
- streamParms = '$5'} .
-
-
-indAudlocalControlDescriptor -> 'LocalControlToken'
- 'LBRKT' indAudlocalParm indAudlocalParmList 'RBRKT' :
- merge_indAudLocalControlDescriptor(['$3' | '$4']) .
-
-indAudlocalParmList -> 'COMMA' indAudlocalParm indAudlocalParmList : ['$2' | '$3'] .
-indAudlocalParmList -> '$empty' : [] .
-
-%% at-most-once per item
-%%
-indAudlocalParm -> safeToken : ensure_indAudLocalParm('$1') .
-
-indAudterminationStateDescriptor -> 'TerminationStateToken'
- 'LBRKT' indAudterminationStateParm 'RBRKT'
- :
- merge_indAudTerminationStateDescriptor('$3') .
-
-%% at-most-once per item
-%%
-
-indAudterminationStateParm -> safeToken :
- ensure_indAudTerminationStateParm('$1') .
-
-indAudeventBufferDescriptor -> 'EventBufferToken'
- 'LBRKT' indAudeventSpec 'RBRKT' : '$3' .
-
-indAudeventSpec -> pkgdName optIndAudeventSpecParameter
- : merge_indAudEventBufferDescriptor('$1','$2') .
-
-optIndAudeventSpecParameter -> 'LBRKT' indAudeventSpecParameter 'RBRKT'
- : '$2' .
-optIndAudeventSpecParameter -> '$empty' : asn1_NOVALUE .
-
-
-indAudeventSpecParameter -> eventStream : {streamID, '$1'} .
-indAudeventSpecParameter -> eventParameterName : {eventParameterName, '$1'} .
-
-indAudeventsDescriptor -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' indAudrequestedEvent 'RBRKT'
- : #'IndAudEventsDescriptor'{requestID = '$3',
- pkgdName = '$5'} .
-
-indAudrequestedEvent -> pkgdName : '$1' .
-
-
-indAudsignalsDescriptor -> 'SignalsToken' optIndAudsignalParm : '$2' .
-
-
-optIndAudsignalParm -> 'LBRKT' 'RBRKT' : asn1_NOVALUE .
-optIndAudsignalParm -> 'LBRKT' indAudsignalParm 'RBRKT' : '$2' .
-
-indAudsignalParm -> indAudsignalList : {seqSigList, '$1'} .
-indAudsignalParm -> signalRequest : {signal, ensure_indAudSignal('$1')} .
-
-indAudsignalList -> 'SignalListToken' 'EQUAL' signalListId
- 'LBRKT' signalListParm 'RBRKT' :
- #'IndAudSeqSigList'{id = ensure_uint16('$3'),
- signalList =
- ensure_indAudSignalListParm('$5')} .
-
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-indAuddigitMapDescriptor -> 'DigitMapDescriptorToken' :
- ensure_IADMD('$1') .
-
-indAudstatisticsDescriptor -> 'StatsToken' 'LBRKT' pkgdName 'RBRKT' :
- #'IndAudStatisticsDescriptor'{statName = '$3'} .
-
-indAudpackagesDescriptor -> 'PackagesToken' 'LBRKT' packagesItem 'RBRKT'
- : merge_indAudPackagesDescriptor('$3') .
-
-eventStream -> 'StreamToken' 'EQUAL' streamID : '$3' .
-
-
-%%
-%% v2 - end
-
-notifyRequest -> 'NotifyToken' 'EQUAL' terminationID
- 'LBRKT' notifyRequestBody 'RBRKT'
- : make_commandRequest({notifyReq, '$1'},
- setelement(#'NotifyRequest'.terminationID, '$5', ['$3'])) .
-
-notifyRequestBody -> observedEventsDescriptor
- : #'NotifyRequest'{observedEventsDescriptor = '$1'}.
-notifyRequestBody -> errorDescriptor
- : #'NotifyRequest'{errorDescriptor = '$1'}.
-
-notifyReply -> 'NotifyToken' 'EQUAL' terminationID notifyReplyBody
- : {notifyReply,
- #'NotifyReply'{terminationID = ['$3'],
- errorDescriptor = '$4'}} .
-
-notifyReplyBody -> 'LBRKT' errorDescriptor 'RBRKT' : '$2'.
-notifyReplyBody -> '$empty' : asn1_NOVALUE .
-
-serviceChangeRequest -> 'ServiceChangeToken' 'EQUAL' terminationID
- 'LBRKT' serviceChangeDescriptor 'RBRKT'
- : make_commandRequest({serviceChangeReq, '$1'},
- #'ServiceChangeRequest'{terminationID = ['$3'],
- serviceChangeParms = '$5'}) .
-
-serviceChangeReply -> 'ServiceChangeToken' 'EQUAL' terminationID serviceChangeReplyBody
- : {serviceChangeReply,
- #'ServiceChangeReply'{terminationID = ['$3'],
- serviceChangeResult = '$4'}} .
-
-serviceChangeReplyBody -> 'LBRKT' errorDescriptor 'RBRKT'
- : {errorDescriptor, '$2'} .
-serviceChangeReplyBody -> 'LBRKT' serviceChangeReplyDescriptor 'RBRKT'
- : {serviceChangeResParms, '$2'} .
-serviceChangeReplyBody -> '$empty' : {serviceChangeResParms, #'ServiceChangeResParm'{}}.
-
-errorDescriptor -> 'ErrorToken' 'EQUAL' errorCode 'LBRKT' errorText 'RBRKT'
- : #'ErrorDescriptor'{errorCode = '$3',
- errorText = '$5'} .
-
-errorCode -> safeToken : ensure_uint('$1', 0, 999) .
-
-errorText -> 'QuotedChars' : value_of('$1') .
-errorText -> '$empty' : asn1_NOVALUE .
-
-transactionID -> safeToken : ensure_uint32('$1') .
-
-mId -> domainName : '$1' .
-mId -> domainAddress : '$1' .
-mId -> optSep mtpAddress optSep : '$2' .
-mId -> optSep deviceName optSep : '$2' .
-
-domainName -> 'LESSER' safeToken 'GREATER' 'COLON' portNumber optSep
- : ensure_domainName('$2', '$5') .
-domainName -> 'LESSER' safeToken 'GREATER'
- : ensure_domainName('$2', asn1_NOVALUE) .
-
-deviceName -> pathName : {deviceName, '$1'} .
-
-%% '-' is used for NULL context
-contextID -> safeToken : ensure_contextID('$1') .
-
-domainAddress -> 'LSBRKT' daddr 'RSBRKT' 'COLON' portNumber optSep
- : ensure_domainAddress('$2', '$5') .
-domainAddress -> 'LSBRKT' daddr 'RSBRKT'
- : ensure_domainAddress('$2', asn1_NOVALUE) .
-
-daddr -> '$empty' : [] .
-daddr -> 'COLON' daddr : [colon| '$2'] .
-daddr -> safeToken daddr : ['$1'| '$2'] .
-
-
-portNumber -> safeToken : ensure_uint16('$1') .
-
-mtpAddress -> 'MtpAddressToken' : ensure_mtpAddress('$1') .
-
-%% terminationIDList -> LBRKT terminationID *(COMMA terminationID) RBRKT .
-
-terminationIDList -> 'LBRKT' terminationID terminationIDListRepeat 'RBRKT'
- : ['$2' | '$3'] .
-
-terminationIDListRepeat -> 'COMMA' terminationID terminationIDListRepeat
- : ['$2'| '$3'] .
-terminationIDListRepeat -> '$empty' : [] .
-
-
-pathName -> safeToken : ensure_pathName('$1') .
-
-terminationID -> safeToken : ensure_terminationID('$1') .
-
-mediaDescriptor -> 'MediaToken' 'LBRKT' mediaParm mediaParmList 'RBRKT'
- : merge_mediaDescriptor(['$3' | '$4']) .
-
-mediaParmList -> 'COMMA' mediaParm mediaParmList : ['$2' | '$3'] .
-mediaParmList -> '$empty' : [] .
-
-
-%% at-most-once per item
-%% using either streamParms or streamDescriptors but not both
-mediaParm -> streamParm
- : {streamParm, '$1'} .
-mediaParm -> streamDescriptor
- : {streamDescriptor, '$1'} .
-mediaParm -> terminationStateDescriptor
- : {termState, '$1'} .
-
-%% at-most-onc .
-%% Specially treated by the scanner.
-streamParm -> 'LocalDescriptorToken' :
- PGs = ensure_prop_groups('$1'),
- {local, #'LocalRemoteDescriptor'{propGrps = PGs}} .
-streamParm -> 'RemoteDescriptorToken' :
- PGs = ensure_prop_groups('$1'),
- {remote, #'LocalRemoteDescriptor'{propGrps = PGs}} .
-streamParm -> localControlDescriptor : {control, '$1'} .
-streamParm -> statisticsDescriptor : {statistics, '$1'} .
-
-streamDescriptor -> 'StreamToken' 'EQUAL' streamID
- 'LBRKT' streamParm streamParmList 'RBRKT'
- : #'StreamDescriptor'{streamID = '$3',
- streamParms = merge_streamParms(['$5' | '$6'])} .
-
-streamParmList -> 'COMMA' streamParm streamParmList : ['$2' | '$3'] .
-streamParmList -> '$empty' : [] .
-
-localControlDescriptor -> 'LocalControlToken' 'LBRKT' localParm localParmList 'RBRKT'
- : ['$3' | '$4'] .
-
-localParmList -> 'COMMA' localParm localParmList : ['$2' | '$3'] .
-localParmList -> '$empty': [] .
-
-terminationStateDescriptor -> 'TerminationStateToken'
- 'LBRKT' terminationStateParm
- terminationStateParms 'RBRKT'
- : merge_terminationStateDescriptor(['$3' | '$4']) .
-
-terminationStateParms -> 'COMMA' terminationStateParm terminationStateParms : ['$2' | '$3'] .
-terminationStateParms -> '$empty' : [] .
-
-%% at-most-once per item except for propertyParm
-localParm -> 'ReservedGroupToken' 'EQUAL' onOrOff : {group, '$3'} .
-localParm -> 'ReservedValueToken' 'EQUAL' onOrOff : {value, '$3'} .
-localParm -> 'ModeToken' 'EQUAL' streamModes : {mode, '$3'} .
-localParm -> propertyParm : {prop, '$1'} .
-
-onOrOff -> 'OnToken' : true .
-onOrOff -> 'OffToken' : false .
-
-%% at-most-once
-streamModes -> 'SendonlyToken' : sendOnly .
-streamModes -> 'RecvonlyToken' : recvOnly .
-streamModes -> 'SendrecvToken' : sendRecv .
-streamModes -> 'InactiveToken' : inactive .
-streamModes -> 'LoopbackToken' : loopBack .
-
-propertyParm -> pkgdName parmValue :
- setelement(#'PropertyParm'.name, '$2', '$1') .
-
-parmValue -> 'EQUAL' alternativeValue :
- '$2' .
-
-parmValue -> 'NEQUAL' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, unequalTo}} .
-parmValue -> 'LESSER' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, smallerThan}} .
-parmValue -> 'GREATER' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, greaterThan}} .
-
-%% OTP-4013
-%% alternativeValue = ( VALUE /
-%% LSBRKT VALUE *(COMMA VALUE) RSBRKT /
-%% LSBRKT VALUE COLON VALUE RSBRKT ) /
-%% LBRKT VALUE *(COMMA VALUE) RBRKT
-alternativeValue -> 'LBRKT' value valueList 'RBRKT'
- : #'PropertyParm'{value = ['$2' | '$3'],
- extraInfo = {sublist, false}}. % OR
-
-alternativeValue -> 'LSBRKT' value 'COLON' value 'RSBRKT'
- : #'PropertyParm'{value = ['$2', '$4'],
- extraInfo = {range, true}}.
-
-alternativeValue -> 'LSBRKT' value valueList 'RSBRKT'
- : #'PropertyParm'{value = ['$2' | '$3'],
- extraInfo = {sublist, true}}. % AND
-
-alternativeValue -> value :
- #'PropertyParm'{value = ['$1']} .
-
-valueList -> 'COMMA' value valueList : ['$2' | '$3'] .
-valueList -> '$empty' : [] .
-
-
-eventBufferDescriptor -> 'EventBufferToken' : [] .
-eventBufferDescriptor -> 'EventBufferToken' 'LBRKT' eventSpec eventSpecList 'RBRKT'
- : ['$3' | '$4'] .
-
-eventSpecList -> 'COMMA' eventSpec eventSpecList : ['$2' | '$3'] .
-eventSpecList -> '$empty' : [] .
-
-eventSpec -> observedEvent : merge_eventSpec('$1') .
-
-%% at-most-once per item except for propertyParm
-terminationStateParm -> serviceStates : {serviceState, '$1'} .
-terminationStateParm -> eventBufferControl : {eventBufferControl, '$1'} .
-terminationStateParm -> propertyParm : {propertyParm, '$1'} .
-
-serviceStates -> 'ServiceStatesToken' 'EQUAL' serviceState : '$3' .
-
-serviceState -> 'TestToken' : test .
-serviceState -> 'OutOfSvcToken' : outOfSvc .
-serviceState -> 'InSvcToken' : inSvc .
-
-eventBufferControl -> 'BufferToken' 'EQUAL' eventBufferControlState : '$3' .
-
-eventBufferControlState -> 'OffToken' : off .
-eventBufferControlState -> 'LockStepToken' : lockStep .
-
-muxDescriptor -> 'MuxToken' 'EQUAL' muxType terminationIDList :
- #'MuxDescriptor'{muxType = '$3',
- termList = '$4'} .
-
-muxType -> safeToken : ensure_muxType('$1') .
-
-streamID -> safeToken : ensure_streamID('$1') .
-
-pkgdName -> safeToken : ensure_pkgdName('$1') .
-
-eventsDescriptor -> 'EventsToken' :
- #'EventsDescriptor'{requestID = asn1_NOVALUE,
- eventList = []} .
-eventsDescriptor -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' requestedEvent requestedEvents 'RBRKT' :
- #'EventsDescriptor'{requestID = '$3',
- eventList = ['$5' | '$6']} .
-
-requestedEvents -> 'COMMA' requestedEvent requestedEvents : ['$2' | '$3'] .
-requestedEvents -> '$empty' : [] .
-
-requestedEvent -> pkgdName requestedEventBody :
- setelement(#'RequestedEvent'.pkgdName, '$2', '$1') .
-
-requestedEventBody -> 'LBRKT' eventParameter eventParameters 'RBRKT' :
- merge_eventParameters(['$2' | '$3']) .
-requestedEventBody -> '$empty' : #'RequestedEvent'{evParList = []} .
-
-eventParameters -> 'COMMA' eventParameter eventParameters :
- ['$2' | '$3'] .
-eventParameters -> '$empty' : [] .
-
-%% at-most-once each of embedOrKeepActive , eventDM or eventStream
-eventParameter -> 'KeepActiveToken' : keepActive .
-eventParameter -> embedWithSig : '$1'.
-eventParameter -> embedNoSig : '$1'.
-eventParameter -> eventDM : '$1'.
-eventParameter -> eventStreamOrOther : '$1'.
-
-embedWithSig -> 'EmbedToken' 'LBRKT' signalsDescriptor
- 'COMMA' embedFirst 'RBRKT'
- : {embed, '$3', '$5'} .
-embedWithSig -> 'EmbedToken' 'LBRKT' signalsDescriptor 'RBRKT'
- : {embed, '$3', asn1_NOVALUE} .
-
-embedNoSig -> 'EmbedToken' 'LBRKT' embedFirst 'RBRKT'
- : {embed, asn1_NOVALUE, '$3'} .
-
-embedFirst -> 'EventsToken' :
- #'SecondEventsDescriptor'{requestID = asn1_NOVALUE,
- eventList = []} .
-embedFirst -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' secondRequestedEvent secondRequestedEvents 'RBRKT' :
- #'SecondEventsDescriptor'{requestID = '$3',
- eventList = ['$5' | '$6']} .
-
-secondRequestedEvents -> 'COMMA' secondRequestedEvent secondRequestedEvents : ['$2' | '$3'] .
-secondRequestedEvents -> '$empty' : [] .
-
-%% at-most-once of each
-secondRequestedEvent -> pkgdName secondRequestedEventBody
- : setelement(#'SecondRequestedEvent'.pkgdName, '$2', '$1') .
-
-secondRequestedEventBody -> 'LBRKT' secondEventParameter secondEventParameters 'RBRKT'
- : merge_secondEventParameters(['$2' | '$3']) .
-secondRequestedEventBody -> '$empty' : #'SecondRequestedEvent'{evParList = []} .
-
-secondEventParameters -> 'COMMA' secondEventParameter secondEventParameters : ['$2' | '$3'] .
-secondEventParameters -> '$empty' : [] .
-
-%% at-most-once each of embedOrKeepActive , eventDM or eventStream
-secondEventParameter -> 'KeepActiveToken' : keepActive .
-secondEventParameter -> embedSig : '$1' .
-secondEventParameter -> eventDM : '$1' .
-secondEventParameter -> eventStreamOrOther : '$1' .
-
-embedSig -> 'EmbedToken' 'LBRKT' signalsDescriptor 'RBRKT'
- : {second_embed, '$3'} .
-
-eventStreamOrOther -> eventParameterName parmValue :
- select_stream_or_other('$1', '$2') .
-
-eventParameterName -> safeToken : ensure_NAME('$1') .
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-eventDM -> 'DigitMapDescriptorToken' :
- ensure_eventDM('$1') .
-
-%% H248S-IG (IGv11)
-signalsDescriptor -> 'SignalsToken' 'LBRKT' signalParm signalParms 'RBRKT' :
- ['$3' | '$4'] .
-signalsDescriptor -> 'SignalsToken' : [] .
-
-signalParms -> 'COMMA' signalParm signalParms : [ '$2' | '$3'] .
-signalParms -> '$empty' : [] .
-
-signalParm -> signalList : {seqSigList, '$1'} .
-signalParm -> signalRequest : {signal, '$1'} .
-
-signalRequest -> signalName 'LBRKT' sigParameter sigParameters 'RBRKT'
- : merge_signalRequest('$1', ['$3' | '$4']).
-signalRequest -> signalName : merge_signalRequest('$1', []).
-
-sigParameters -> 'COMMA' sigParameter sigParameters : ['$2' | '$3'] .
-sigParameters -> '$empty' : [] .
-
-%% sigParameter = sigStream / sigSignalType / sigDuration / sigOther /
-%% notifyCompletion / KeepActiveToken /
-%% direction / sigRequestID
-%% sigStream = StreamToken EQUAL StreamID
-%% sigOther = sigParameterName parmValue
-%% sigParameterName = NAME
-%% sigSignalType = SignalTypeToken EQUAL signalType
-%% signalType = (OnOffToken / TimeOutToken / BriefToken)
-%% sigDuration = DurationToken EQUAL UINT16
-%% notifyCompletion = NotifyCompletionToken EQUAL (LBRKT
-%% notificationReason *(COMMA notificationReason)
-%% RBRKT)
-%%
-%% notificationReason = ( TimeOutToken / InterruptByEventToken /
-%% InterruptByNewSignalsDescrToken /
-%% OtherReasonToken )
-%% sigDirection = DirectionToken EQUAL direction
-%% sigRequestID = RequestIDToken EQUAL RequestID
-
-sigParameter -> 'StreamToken' 'EQUAL' streamID :
- {stream, '$3'}.
-sigParameter -> 'SignalTypeToken' 'EQUAL' signalType :
- {signal_type, '$3'} .
-sigParameter -> 'DurationToken' 'EQUAL' safeToken :
- {duration, ensure_uint16('$3')} .
-sigParameter -> 'NotifyCompletionToken' 'EQUAL'
- 'LBRKT' notificationReason notificationReasons 'RBRKT' :
- {notify_completion, ['$4' | '$5']} .
-sigParameter -> 'KeepActiveToken' : keepActive .
-sigParameter -> 'DirectionToken' 'EQUAL' direction : {direction, '$3'} .
-sigParameter -> 'RequestIDToken' 'EQUAL' requestID : {requestId, '$3'} .
-sigParameter -> safeToken parmValue :
- {other, ensure_NAME('$1'), '$2'}.
-
-signalType -> 'OnOffToken' : onOff.
-signalType -> 'TimeOutToken' : timeOut.
-signalType -> 'BriefToken' : brief.
-
-direction -> 'ExternalToken' : external .
-direction -> 'InternalToken' : internal .
-direction -> 'BothToken' : both .
-
-notificationReasons -> 'COMMA' notificationReason notificationReasons : ['$2' | '$3'] .
-notificationReasons -> '$empty' : [] .
-
-notificationReason -> 'TimeOutToken' : onTimeOut .
-notificationReason -> 'InterruptByEventToken' : onInterruptByEvent .
-notificationReason -> 'InterruptByNewSignalsDescrToken' : onInterruptByNewSignalDescr .
-notificationReason -> 'OtherReasonToken' : otherReason .
-
-signalList -> 'SignalListToken' 'EQUAL' signalListId
- 'LBRKT' signalListParm signalListParms 'RBRKT'
- : #'SeqSigList'{id = ensure_uint16('$3'),
- signalList = ['$5' | '$6']} .
-
-signalListParms -> 'COMMA' signalListParm signalListParms :
- ['$2' | '$3'] .
-signalListParms -> '$empty' : [] .
-
-signalListId -> safeToken : ensure_uint16('$1') .
-
-%% exactly once signalType,
-%% at most once duration and every signal parameter
-signalListParm -> signalRequest : '$1'.
-
-signalName -> pkgdName : '$1'.
-
-observedEventsDescriptor -> 'ObservedEventsToken' 'EQUAL' requestID
- 'LBRKT' observedEvent observedEvents 'RBRKT'
- : #'ObservedEventsDescriptor'{requestId = '$3',
- observedEventLst = ['$5' | '$6']} .
-
-observedEvents -> 'COMMA' observedEvent observedEvents : ['$2' | '$3'] .
-observedEvents -> '$empty' : [] .
-
-%%time per event, because it might be buffered
-
-observedEvent -> timeStamp optSep 'COLON' optSep pkgdName observedEventBody :
- merge_observed_event('$6', '$5', '$1') .
-observedEvent -> optSep pkgdName observedEventBody :
- merge_observed_event('$3', '$2', asn1_NOVALUE) .
-
-observedEventBody -> 'LBRKT' observedEventParameter
- observedEventParameters 'RBRKT'
- : ['$2' | '$3'] .
-observedEventBody -> '$empty' : [] .
-
-observedEventParameters -> 'COMMA' observedEventParameter observedEventParameters : ['$2' | '$3'] .
-observedEventParameters -> '$empty' : [] .
-
-%%at-most-once eventStream, every eventParameterName at most once
-observedEventParameter -> eventStreamOrOther : '$1' .
-
-requestID -> safeToken : ensure_requestID('$1') .
-
-%% Deprecated as of Corr 1
-modemDescriptor -> 'ModemToken' 'EQUAL' modemType optPropertyParms .
-modemDescriptor -> 'ModemToken' 'LSBRKT' modemType modemTypeList 'RSBRKT'
- optPropertyParms.
-modemTypeList -> 'COMMA' modemType modemTypeList.
-modemTypeList -> '$empty'.
-modemType -> safeToken.
-
-optPropertyParms -> 'LBRKT' propertyParm propertyParmList 'RBRKT' :
- ['$2' | '$3'] .
-optPropertyParms -> '$empty' : [] .
-
-propertyParms -> propertyParm propertyParmList : ['$1' | '$2'] .
-propertyParmList -> 'COMMA' propertyParm propertyParmList : ['$2' | '$3'] .
-propertyParmList -> '$empty' : [] .
-
-% parmName -> safeToken : ensure_NAME('$1') .
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-digitMapDescriptor -> 'DigitMapDescriptorToken' :
- ensure_DMD('$1') .
-
-%% each parameter at-most-once, except auditItem
-%% at most one of either serviceChangeAddress or serviceChangeMgcId but
-%% not both. serviceChangeMethod and serviceChangeReason are REQUIRED
-serviceChangeDescriptor -> 'ServicesToken'
- 'LBRKT' serviceChangeParm
- serviceChangeParms 'RBRKT' :
- merge_ServiceChangeParm(['$3' | '$4']) .
-
-serviceChangeParms -> 'COMMA' serviceChangeParm serviceChangeParms :
- ['$2' | '$3'] .
-serviceChangeParms -> '$empty' : [] .
-
-serviceChangeParm -> serviceChangeMethod : {method, '$1'} .
-serviceChangeParm -> serviceChangeReason : {reason, '$1'} .
-serviceChangeParm -> serviceChangeDelay : {delay, '$1'} .
-serviceChangeParm -> serviceChangeAddress : {address, '$1'} .
-serviceChangeParm -> serviceChangeProfile : {profile, '$1'} .
-serviceChangeParm -> extension : {extension, '$1'} .
-serviceChangeParm -> timeStamp : {time_stamp, '$1'} .
-serviceChangeParm -> serviceChangeMgcId : {mgc_id, '$1'} .
-serviceChangeParm -> serviceChangeVersion : {version, '$1'} .
-serviceChangeParm -> 'ServiceChangeIncompleteToken' : incomplete . % v3
-serviceChangeParm -> auditItem : {audit_item, '$1'} . % v2
-
-serviceChangeMethod -> 'MethodToken' 'EQUAL' safeToken :
- ensure_serviceChangeMethod('$3') .
-
-serviceChangeReason -> 'ReasonToken' 'EQUAL' value : ['$3'] .
-
-serviceChangeDelay -> 'DelayToken' 'EQUAL' safeToken : ensure_uint32('$3').
-
-serviceChangeAddress -> 'ServiceChangeAddressToken' 'EQUAL' mId : '$3' .
-serviceChangeAddress -> 'ServiceChangeAddressToken' 'EQUAL' portNumber :
- {portNumber, '$3'} .
-
-serviceChangeMgcId -> 'MgcIdToken' 'EQUAL' mId : '$3' .
-
-serviceChangeProfile -> 'ProfileToken' 'EQUAL' safeToken : ensure_profile('$3').
-
-serviceChangeVersion -> 'VersionToken' 'EQUAL' safeToken : ensure_version('$3') .
-
-extension -> extensionParameter parmValue
- : setelement(#'PropertyParm'.name, '$2', '$1') .
-
-%% at most once. Version is REQUIRED on first ServiceChange response
-%% at most of either serviceChangeAddress or serviceChangeMgcId but not both
-serviceChangeReplyDescriptor -> 'ServicesToken'
- 'LBRKT' servChgReplyParm
- servChgReplyParms 'RBRKT' :
- merge_ServiceChangeResParm(['$3' | '$4']) .
-
-servChgReplyParms -> 'COMMA' servChgReplyParm servChgReplyParms :
- ['$2' | '$3'] .
-servChgReplyParms -> '$empty' : [] .
-
-servChgReplyParm -> serviceChangeAddress : {address, '$1'} .
-servChgReplyParm -> serviceChangeMgcId : {mgc_id, '$1'} .
-servChgReplyParm -> serviceChangeProfile : {profile, '$1'} .
-servChgReplyParm -> serviceChangeVersion : {version, '$1'} .
-servChgReplyParm -> timeStamp : {time_stamp,'$1'} .
-
-packagesDescriptor -> 'PackagesToken' 'LBRKT' packagesItem
- packagesItems 'RBRKT'
- : ['$3' | '$4'] .
-
-packagesItems -> 'COMMA' packagesItem packagesItems : ['$2' | '$3'] .
-packagesItems -> '$empty' : [] .
-
-packagesItem -> safeToken : ensure_packagesItem('$1') .
-
-timeStamp -> TimeStampToken : ensure_timeStamp('$1') .
-
-statisticsDescriptor -> 'StatsToken'
- 'LBRKT' statisticsParameter
- statisticsParameters 'RBRKT'
- : ['$3' | '$4'] .
-
-statisticsParameters -> 'COMMA' statisticsParameter statisticsParameters : ['$2' | '$3'] .
-statisticsParameters -> '$empty' : [] .
-
-%%at-most-once per item
-statisticsParameter -> pkgdName
- : #'StatisticsParameter'{statName = '$1',
- statValue = asn1_NOVALUE} .
-statisticsParameter -> pkgdName 'EQUAL' value
- : #'StatisticsParameter'{statName = '$1',
- statValue = ['$3']} .
-
-topologyDescriptor -> 'TopologyToken' 'LBRKT' topologyTriple
- topologyTripleList 'RBRKT' : ['$3' | '$4'] .
-
-terminationA -> terminationID : '$1' .
-
-terminationB -> terminationID : '$1' .
-
-topologyTriple -> terminationA 'COMMA'
- terminationB 'COMMA'
- topologyDirection :
- #'TopologyRequest'{terminationFrom = '$1',
- terminationTo = '$3',
- topologyDirection = '$5'} .
-
-topologyTripleList -> '$empty' : [] .
-topologyTripleList -> 'COMMA' topologyTriple topologyTripleList :
- ['$2' | '$3'] .
-
-topologyDirection -> 'BothwayToken' : bothway .
-topologyDirection -> 'IsolateToken' : isolate .
-topologyDirection -> 'OnewayToken' : oneway .
-
-iepsValue -> 'IEPSToken' 'EQUAL' onOrOff : '$3' .
-
-priority -> 'PriorityToken' 'EQUAL' safeToken : ensure_uint16('$3') .
-
-extensionParameter -> safeToken : ensure_extensionParameter('$1') .
-
-value -> 'QuotedChars' : ensure_value('$1') .
-value -> safeToken : ensure_value('$1').
-
-safeToken -> safeToken2 : make_safe_token('$1') .
-
-safeToken2 -> 'SafeChars' : '$1' .
-%% BMK BMK safeToken2 -> 'AddToken' : '$1' .
-safeToken2 -> 'AuditToken' : '$1' .
-safeToken2 -> 'AuditCapToken' : '$1' .
-safeToken2 -> 'AuditValueToken' : '$1' .
-safeToken2 -> 'AuthToken' : '$1' .
-safeToken2 -> 'BothToken' : '$1' . % v3
-safeToken2 -> 'BothwayToken' : '$1' .
-safeToken2 -> 'BriefToken' : '$1' .
-safeToken2 -> 'BufferToken' : '$1' .
-safeToken2 -> 'CtxToken' : '$1' .
-%% v3-safeToken2 -> 'ContextAttrToken' : '$1' . % v3
-safeToken2 -> 'ContextAuditToken' : '$1' .
-%% v3-safeToken2 -> 'ContextListToken' : '$1' . % v3
-%% v2-safeToken2 -> 'DigitMapToken' : '$1' .
-%% safeToken2 -> 'DigitMapDescriptorToken' : '$1' .
-%% v3-
-safeToken2 -> 'DirectionToken' : '$1' . % v3
-safeToken2 -> 'DiscardToken' : '$1' .
-safeToken2 -> 'DisconnectedToken' : '$1' .
-safeToken2 -> 'DelayToken' : '$1' .
-safeToken2 -> 'DurationToken' : '$1' .
-safeToken2 -> 'EmbedToken' : '$1' .
-%% BMK BMK safeToken2 -> 'EmergencyToken' : '$1' .
-%% BMK BMK safeToken2 -> 'EmergencyOffToken' : '$1' .
-safeToken2 -> 'ErrorToken' : '$1' .
-%% v2-safeToken2 -> 'EventBufferToken' : '$1' .
-%% v2-safeToken2 -> 'EventsToken' : '$1' .
-%% v3-safeToken2 -> 'ExternalToken' : '$1' . % v3
-safeToken2 -> 'FailoverToken' : '$1' .
-safeToken2 -> 'ForcedToken' : '$1' .
-safeToken2 -> 'GracefulToken' : '$1' .
-safeToken2 -> 'H221Token' : '$1' .
-safeToken2 -> 'H223Token' : '$1' .
-safeToken2 -> 'H226Token' : '$1' .
-safeToken2 -> 'HandOffToken' : '$1' .
-%% v3-safeToken2 -> 'IEPSToken' : '$1' . % v3
-safeToken2 -> 'ImmAckRequiredToken' : '$1' .
-safeToken2 -> 'InactiveToken' : '$1' .
-%% v3-safeToken2 -> 'InternalToken' : '$1' . % v3
-safeToken2 -> 'InterruptByEventToken' : '$1' .
-safeToken2 -> 'InterruptByNewSignalsDescrToken' : '$1' .
-safeToken2 -> 'IsolateToken' : '$1' .
-safeToken2 -> 'InSvcToken' : '$1' .
-safeToken2 -> 'KeepActiveToken' : '$1' .
-%% safeToken2 -> 'LocalToken' : '$1' .
-%% safeToken2 -> 'LocalDescriptorToken' : '$1' .
-safeToken2 -> 'LocalControlToken' : '$1' .
-safeToken2 -> 'LoopbackToken' : '$1' .
-safeToken2 -> 'LockStepToken' : '$1' .
-%% v2-safeToken2 -> 'MediaToken' : '$1' .
-%% safeToken2 -> 'MegacopToken' : '$1' .
-safeToken2 -> 'MethodToken' : '$1' .
-safeToken2 -> 'MgcIdToken' : '$1' .
-safeToken2 -> 'ModeToken' : '$1' .
-%% BMK BMK safeToken2 -> 'ModifyToken' : '$1' .
-%% v2-safeToken2 -> 'ModemToken' : '$1' .
-%% BMK BMK safeToken2 -> 'MoveToken' : '$1' .
-%% safeToken2 -> 'MtpToken' : '$1' .
-%% safeToken2 -> 'MtpAddressToken' : '$1' .
-%% v2-safeToken2 -> 'MuxToken' : '$1' .
-safeToken2 -> 'NotifyToken' : '$1' .
-safeToken2 -> 'NotifyCompletionToken' : '$1' .
-safeToken2 -> 'Nx64Token' : '$1' .
-%% v2-safeToken2 -> 'ObservedEventsToken' : '$1' .
-safeToken2 -> 'OnewayToken' : '$1' .
-safeToken2 -> 'OffToken' : '$1' .
-safeToken2 -> 'OnToken' : '$1' .
-safeToken2 -> 'OnOffToken' : '$1' .
-safeToken2 -> 'OutOfSvcToken' : '$1' .
-safeToken2 -> 'OtherReasonToken' : '$1' .
-%% v2-safeToken2 -> 'PackagesToken' : '$1' .
-safeToken2 -> 'PendingToken' : '$1' .
-%% BMK BMK safeToken2 -> 'PriorityToken' : '$1' .
-safeToken2 -> 'ProfileToken' : '$1' .
-safeToken2 -> 'ReasonToken' : '$1' .
-safeToken2 -> 'RecvonlyToken' : '$1' .
-safeToken2 -> 'ReplyToken' : '$1' .
-%% v3-
-safeToken2 -> 'RequestIDToken' : '$1' . % v3
-safeToken2 -> 'ResponseAckToken' : '$1' .
-safeToken2 -> 'RestartToken' : '$1' .
-%% safeToken2 -> 'RemoteToken' : '$1' .
-%% safeToken2 -> 'RemoteDescriptorToken' : '$1' .
-safeToken2 -> 'ReservedGroupToken' : '$1' .
-safeToken2 -> 'ReservedValueToken' : '$1' .
-safeToken2 -> 'SendonlyToken' : '$1' .
-safeToken2 -> 'SendrecvToken' : '$1' .
-safeToken2 -> 'ServicesToken' : '$1' .
-safeToken2 -> 'ServiceStatesToken' : '$1' .
-safeToken2 -> 'ServiceChangeToken' : '$1' .
-%% v3-safeToken2 -> 'ServiceChangeIncompleteToken' : '$1' . % v3
-safeToken2 -> 'ServiceChangeAddressToken' : '$1' .
-safeToken2 -> 'SignalListToken' : '$1' .
-%% v2-safeToken2 -> 'SignalsToken' : '$1' .
-safeToken2 -> 'SignalTypeToken' : '$1' .
-%% v2-safeToken2 -> 'StatsToken' : '$1' .
-safeToken2 -> 'StreamToken' : '$1' .
-%% BMK safeToken2 -> 'SubtractToken' : '$1' .
-safeToken2 -> 'SynchISDNToken' : '$1' .
-safeToken2 -> 'TerminationStateToken' : '$1' .
-safeToken2 -> 'TestToken' : '$1' .
-safeToken2 -> 'TimeOutToken' : '$1' .
-%% BMK safeToken2 -> 'TopologyToken' : '$1' .
-safeToken2 -> 'TransToken' : '$1' .
-safeToken2 -> 'V18Token' : '$1' .
-safeToken2 -> 'V22Token' : '$1' .
-safeToken2 -> 'V22bisToken' : '$1' .
-safeToken2 -> 'V32Token' : '$1' .
-safeToken2 -> 'V32bisToken' : '$1' .
-safeToken2 -> 'V34Token' : '$1' .
-safeToken2 -> 'V76Token' : '$1' .
-safeToken2 -> 'V90Token' : '$1' .
-safeToken2 -> 'V91Token' : '$1' .
-safeToken2 -> 'VersionToken' : '$1' .
-%% <OTP-7534>
-safeToken2 -> 'AndAUDITSelectToken' : '$1' . % v3
-safeToken2 -> 'EmergencyValueToken' : '$1' . % v3
-safeToken2 -> 'IntsigDelayToken' : '$1' . % v3
-safeToken2 -> 'IterationToken' : '$1' . % v3
-safeToken2 -> 'MessageSegmentToken' : '$1' . % v3
-safeToken2 -> 'NeverNotifyToken' : '$1' . % v3
-safeToken2 -> 'NotifyImmediateToken' : '$1' . % v3
-safeToken2 -> 'NotifyRegulatedToken' : '$1' . % v3
-safeToken2 -> 'OnewayBothToken' : '$1' . % v3
-safeToken2 -> 'OnewayExternalToken' : '$1' . % v3
-safeToken2 -> 'OrAUDITselectToken' : '$1' . % v3
-safeToken2 -> 'ResetEventsDescriptorToken' : '$1' . % v3
-safeToken2 -> 'SegmentationCompleteToken' : '$1' . % v3
-%% </OTP-7534>
-
-Erlang code.
-
-%% The following directive is needed for (significantly) faster compilation
-%% of the generated .erl file by the HiPE compiler. Please do not remove.
--compile([{hipe,[{regalloc,linear_scan}]}]).
-
--include("megaco_text_parser_prev3b.hrl").
-
-
diff --git a/lib/megaco/src/text/megaco_text_parser_prev3c.hrl b/lib/megaco/src/text/megaco_text_parser_prev3c.hrl
deleted file mode 100644
index 2a215d739d..0000000000
--- a/lib/megaco/src/text/megaco_text_parser_prev3c.hrl
+++ /dev/null
@@ -1,1988 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose : Define semantic text parser actions
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
-
--include_lib("megaco/include/megaco.hrl").
--include_lib("megaco/include/megaco_message_prev3c.hrl").
--include("megaco_text_tokens.hrl").
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{make_safe_token,1}]}).
--endif.
-make_safe_token(Token) ->
- {_TokenTag, Line, Text} = Token,
- {safeToken, Line, Text}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_value,1}]}).
--endif.
-ensure_value(Token) ->
- case Token of
- {safeToken, _Line, Text} when is_list(Text) ->
- Text; % We really should ensure length
- {'QuotedChars', _Line, Text} when is_list(Text) ->
- Text; % We really should ensure length
- Text when is_list(Text) ->
- Text % We really should ensure length
- end.
-
-%% NAME = ALPHA *63(ALPHA / DIGIT / "_" )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_NAME,1}]}).
--endif.
-ensure_NAME(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text. %% BUGBUG: ensure length and chars
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_requestID,1}]}).
--endif.
-ensure_requestID(Token) ->
- case Token of
- {safeToken, _Line, "*"} ->
- ?megaco_all_request_id;
- _ ->
- ensure_uint32(Token)
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_streamID,1}]}).
--endif.
-ensure_streamID(StreamId) ->
- ensure_uint16(StreamId).
-
-ensure_auth_header(SpiToken, SnToken, AdToken) ->
- Spi = ensure_hex(SpiToken, 8, 8),
- Sn = ensure_hex(SnToken, 8, 8),
- Ad = ensure_hex(AdToken, 24, 64),
- #'AuthenticationHeader'{secParmIndex = Spi, seqNum = Sn, ad = Ad}.
-
-%% The values 0x0, 0xFFFFFFFE and 0xFFFFFFFF are reserved.
-%% ContextID = (UINT32 / "*" / "-" / "$")
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_contextID,1}]}).
--endif.
-ensure_contextID(Token) ->
- {_TokenTag, Line, Text} = Token,
- case Text of
- "*" -> ?megaco_all_context_id;
- "-" -> ?megaco_null_context_id;
- "\$" -> ?megaco_choose_context_id;
- Int ->
- CID = ensure_uint32(Int),
- if
- (CID =/= 0) andalso
- (CID =/= 16#FFFFFFFE) andalso
- (CID =/= 16#FFFFFFFF) ->
- CID;
- true ->
- return_error(Line, {bad_ContextID, CID})
- end
- end.
-
-ensure_domainAddress([{_T, _L, _A} = Addr0], Port) ->
- Addr = ensure_ip4addr(Addr0),
- {ip4Address, #'IP4Address'{address = Addr, portNumber = Port}};
-ensure_domainAddress([colon,colon], Port) ->
- Addr = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0],
- {ip6Address, #'IP6Address'{address = Addr, portNumber = Port}};
-ensure_domainAddress(Addr0, Port) ->
- Addr = ensure_ip6addr(Addr0),
- {ip6Address, #'IP6Address'{address = Addr, portNumber = Port}}.
-
-split_ip4addr_text([], Acc) ->
- [ lists:reverse(Acc) ];
-split_ip4addr_text([$. | Rest], Acc) ->
- [ lists:reverse(Acc) | split_ip4addr_text(Rest, []) ];
-split_ip4addr_text([H | T], Acc) ->
- split_ip4addr_text(T, [H | Acc]).
-
-
-ensure_ip4addr(Token) ->
- {_TokenTag, Line, Addr} = Token,
- case split_ip4addr_text(Addr, []) of
- [T1, T2, T3, T4] ->
- %% We optimize by sending only the text part (Addr) of
- %% the token to the function.
- %% If something is wrong, then we do not get a proper
- %% position and therefor we catch and issue the
- %% the error again (with the proper line number).
- case (catch [
- ensure_uint(T1, 0, 255),
- ensure_uint(T2, 0, 255),
- ensure_uint(T3, 0, 255),
- ensure_uint(T4, 0, 255)
- ]) of
- A when is_list(A) ->
- A;
- _ ->
- return_error(Line, {bad_IP4address, Addr})
- end;
- _ ->
- return_error(Line, {bad_IP4address, Addr})
- end.
-
-
-ensure_ip6addr([colon,colon|T]) ->
- [H1|T1] = lists:reverse(T),
- case do_ensure_ip6addr(T1, true, [ensure_hex4_or_ip4addr(H1)], 1) of
- {true, A} when length(A) == 16 ->
- A;
- {true, B} when length(B) < 16 ->
- lists:duplicate(16 - length(B), 0) ++ B;
- {true, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, C}}})
- end;
-ensure_ip6addr(L) ->
- case lists:reverse(L) of
- [colon, colon| T] ->
- case do_ensure_ip6addr(T, true, [], 1) of
- {true, A} when length(A) == 16 ->
- A;
- {true, B} when length(B) < 16 ->
- B ++ lists:duplicate(16 - length(B), 0);
- {true, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, C}}})
- end;
- [H|L1] -> % A (last element) could be an ip4 address
- case do_ensure_ip6addr(L1,false,[ensure_hex4_or_ip4addr(H)],1) of
- {false, A} when length(A) == 16 ->
- A;
- %% allow a pad even if the address is full (i.e. 16)
- {true, B} when length(B) =< 17 ->
- do_ensure_ip6addr_padding(B, 0);
- {Pad, C} ->
- throw({error, {?MODULE, {bad_mid_ip6addr_length, Pad, C}}})
- end
-
- end.
-
-
-do_ensure_ip6addr([], Pad, Acc, _) ->
- {Pad, lists:flatten(Acc)};
-do_ensure_ip6addr([colon,colon|T], false, Acc, Line) ->
- do_ensure_ip6addr(T, true, [pad|Acc], Line);
-do_ensure_ip6addr([colon,colon|T], true, Acc, Line) ->
- return_error(Line, {bad_mid_duplicate_padding, T, Acc});
-do_ensure_ip6addr([colon|T], Pad, Acc, Line) ->
- do_ensure_ip6addr(T, Pad, Acc, Line);
-do_ensure_ip6addr([{_, Line, _} = A|T], Pad, Acc, _) ->
- do_ensure_ip6addr(T, Pad, [ensure_hex4(A)|Acc], Line).
-
-do_ensure_ip6addr_padding([], _) ->
- [];
-do_ensure_ip6addr_padding([pad|T], N) ->
- lists:duplicate(16 - (N + length(T)), 0) ++ T;
-do_ensure_ip6addr_padding([H|T], N) ->
- [H|do_ensure_ip6addr_padding(T, N+1)].
-
-ensure_hex4_or_ip4addr({TokenTag, Line, Addr} = V) ->
- case string:tokens(Addr, [$.]) of
- [T1, T2, T3, T4] ->
- A1 = ensure_uint({TokenTag, Line, T1}, 0, 255),
- A2 = ensure_uint({TokenTag, Line, T2}, 0, 255),
- A3 = ensure_uint({TokenTag, Line, T3}, 0, 255),
- A4 = ensure_uint({TokenTag, Line, T4}, 0, 255),
- [A1, A2, A3, A4];
- _ ->
- ensure_hex4(V)
- %% %% BMK BMK BMK
- %% %% Here we should test for hexseq
- %% return_error(Line, {bad_IP4address, Addr})
- end.
-
-ensure_hex4({_TokenTag, Line, Hex4})
- when length(Hex4) =< 4, length(Hex4) > 0 ->
- case (catch do_ensure_hex4(Hex4)) of
- IL when is_list(IL) andalso (length(IL) =:= 2) ->
- IL;
- Error ->
- return_error(Line, {bad_hex4, Hex4, Error})
- end.
-
-do_ensure_hex4([_H1, _H2, _H3, _H4] = H) ->
- hex_to_int(H, []);
-do_ensure_hex4([H2, H3, H4]) ->
- hex_to_int([$0, H2, H3, H4], []);
-do_ensure_hex4([H3, H4]) ->
- hex_to_int([$0, $0, H3, H4], []);
-do_ensure_hex4([H4]) ->
- hex_to_int([$0, $0, $0, H4], []).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_domainName,2}]}).
--endif.
-ensure_domainName(Token, Port) ->
- {_TokenTag, _Line, Name} = Token,
- %% BUGBUG: validate name
- {domainName, #'DomainName'{name = Name, portNumber = Port}}.
-
-%% extensionParameter= "X" ("-" / "+") 1*6(ALPHA / DIGIT)
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_extensionParameter,1}]}).
--endif.
-ensure_extensionParameter(Token) ->
- {_TokenTag, Line, Text} = Token,
- case Text of
- [X, S | _Chars] ->
- if
- X /= $X, X /= $x,
- S /= $+, S /= $- ->
- return_error(Line, {bad_extension_parameter, Text});
- true ->
- {extension_parameter, Text}
- end;
- _ ->
- return_error(Line, {bad_extension_parameter, Text})
- end.
-
-ensure_message(MegacopToken, MID, Body) ->
-%% #'ServiceChangeProfile'{profileName = Name,
-%% version = Version} =
-%% ensure_profile(MegacopToken),
-%% case Name of
-%% "megaco" ->
-%% #'Message'{version = Version, mId = MID, messageBody = Body};
-%% [$!] ->
-%% #'Message'{version = Version, mId = MID, messageBody = Body}
-%% end.
- {_TokenTag, Line, Text} = MegacopToken,
- case split_Megacop(Text, []) of
- {Name, Version} ->
- Version2 = ensure_version(Version),
- case Name of
- "megaco" ->
- #'Message'{version = Version2,
- mId = MID,
- messageBody = Body};
- [$!] ->
- #'Message'{version = Version2,
- mId = MID,
- messageBody = Body}
- end;
- _ ->
- return_error(Line, {bad_name_or_version, Text})
- end.
-
-split_Megacop([], _) ->
- error;
-split_Megacop([$/ | Version], Acc) ->
- {lists:reverse(Acc), Version};
-split_Megacop([H | T], Acc) ->
- split_Megacop(T, [H | Acc]).
-
-
-%% Corr1:
-%% As of corr 1 ModemDescriptor has been deprecated.
-%% and since this functon is only used when creating
-%% a ModemDescriptor, iit is removed.
-%% modemType = (V32bisToken / V22bisToken / V18Token /
-%% V22Token / V32Token / V34Token / V90Token /
-%% V91Token / SynchISDNToken / extensionParameter)
-%% ensure_modemType({_TokenTag, _Line, Text} = Token) ->
-%% case Text of
-%% "v32b" -> v32bis;
-%% "v22b" -> v22bis;
-%% "v18" -> v18;
-%% "v22" -> v22;
-%% "v32" -> v32;
-%% "v34" -> v34;
-%% "v90" -> v90;
-%% "v91" -> v91;
-%% "synchisdn" -> synchISDN;
-%% "sn" -> synchISDN;
-%% [$x | _] -> ensure_extensionParameter(Token)
-%% end.
-
-%% An mtp address is five octets long
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_mtpAddress,1}]}).
--endif.
-ensure_mtpAddress(Token) ->
- {_TokenTag, _Line, Addr} = Token,
- %% BUGBUG: validate address
- {mtpAddress, Addr}.
-
-%% MuxType = ( H221Token / H223Token / H226Token / V76Token / extensionParameter )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_muxType,1}]}).
--endif.
-ensure_muxType(Token) ->
- {_TokenTag, _Line, Text} = Token,
- case Text of
- "h221" -> h221;
- "h223" -> h223;
- "h226" -> h226;
- "v76" -> v76;
- "nx64k" -> nx64k; % v2
- [$x | _] -> ensure_extensionParameter(Token)
- end.
-
-%% packagesItem = NAME "-" UINT16
-%% NAME = ALPHA *63(ALPHA / DIGIT / "_" )
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_packagesItem,1}]}).
--endif.
-ensure_packagesItem(Token) ->
- {_TokenTag, Line, Text} = Token,
- case split_packagesItem(Text, []) of
- {Name, Version} ->
- %% As we don't ensure length of the names, there is no point
- %% in doing the ensure_NAME thing...
- #'PackagesItem'{packageName = Name,
- packageVersion = ensure_uint(Version, 0, 99)};
- _ ->
- return_error(Line, {bad_PackagesItem, Text})
- end.
-
-split_packagesItem([], _) ->
- error;
-split_packagesItem([$- | Version], Acc) ->
- {lists:reverse(Acc), Version};
-split_packagesItem([H|T], Acc) ->
- split_packagesItem(T, [H|Acc]).
-
-
-%% pkgdName = (PackageName / "*") SLASH (ItemID / "*" )
-%% PackageName = NAME
-%% ItemID = NAME
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_pkgdName,1}]}).
--endif.
-ensure_pkgdName(Token) ->
- {_TokenTag, Line, Text} = Token,
- case ensure_pkgdName(Text, []) of
- ok ->
- %% As we don't really do any checks on the strings
- %% (length or content) there is really no point in
- %% "ensuring" the name and item part of the
- %% package name
- %% ensure_name_or_star(Name),
- %% ensure_name_or_star(Item),
- Text;
- _ ->
- return_error(Line, {bad_pkgdName, Text})
- end.
-
-ensure_pkgdName([], _) ->
- error;
-ensure_pkgdName([$/ | T], Acc)
- when ((length(T) > 0) andalso (length(Acc) > 0)) ->
- ok;
-ensure_pkgdName([H | T], Acc) ->
- ensure_pkgdName(T, [H | Acc]).
-
-
-%% -compile({inline,[{ensure_name_or_star,1}]}).
-%% ensure_name_or_star(Val) ->
-%% %% case Token of
-%% %% {_, _, Name} when Name =:= "*" ->
-%% %% Name;
-%% %% _ ->
-%% %% ensure_NAME(Token)
-%% %% end.
-%% if
-%% Val =:= "*" ->
-%% Val;
-%% true ->
-%% %% as we don't really validate the text part of the token(s),
-%% %% we can just return the value assuming it to be correct...
-%% Val
-%% end.
-
-
-
-%% v2 - start
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_indAudMediaDescriptor,1}]}).
--endif.
-merge_indAudMediaDescriptor(Vals) ->
- merge_indAudMediaDescriptor(Vals, #'IndAudMediaDescriptor'{}).
-
-merge_indAudMediaDescriptor(
- [], #'IndAudMediaDescriptor'{streams = Streams1} = D) ->
- Streams2 =
- case Streams1 of
- {multiStream, Descs} ->
- {multiStream, lists:reverse(Descs)};
- _ ->
- Streams1
- end,
- D#'IndAudMediaDescriptor'{streams = Streams2};
-merge_indAudMediaDescriptor([{termStateDescr, Val}|Vals], D)
- when D#'IndAudMediaDescriptor'.termStateDescr == asn1_NOVALUE ->
- D2 = #'IndAudMediaDescriptor'{termStateDescr = Val},
- merge_indAudMediaDescriptor(Vals, D2);
-merge_indAudMediaDescriptor([{streamParm, Val}|Vals], D)
- when D#'IndAudMediaDescriptor'.streams == asn1_NOVALUE ->
- D2 = #'IndAudMediaDescriptor'{streams = {oneStream, Val}},
- merge_indAudMediaDescriptor(Vals, D2);
-merge_indAudMediaDescriptor([{streamDescr, Val}|Vals], D)
- when D#'IndAudMediaDescriptor'.streams == asn1_NOVALUE ->
- D2 = #'IndAudMediaDescriptor'{streams = {multiStream, [Val]}},
- merge_indAudMediaDescriptor(Vals, D2);
-merge_indAudMediaDescriptor([{streamDescr, Val}|Vals],
- #'IndAudMediaDescriptor'{streams = Streams1} = D1) ->
- Streams2 =
- case Streams1 of
- {multiStream, Descs} ->
- {multiStream, [Val|Descs]};
- _ ->
- return_error(0, {bad_IndAudMediaDescriptor_streamDescr,
- Val, Streams1})
- end,
- D2 = D1#'IndAudMediaDescriptor'{streams = Streams2},
- merge_indAudMediaDescriptor(Vals, D2);
-merge_indAudMediaDescriptor([{Tag, Val}|_], D) ->
- case Tag of
- termStateDescr ->
- return_error(0, {bad_IndAudMediaDescriptor_termStateDescr,
- Val, D#'IndAudMediaDescriptor'.termStateDescr});
- streamParm ->
- return_error(0, {bad_IndAudMediaDescriptor_streamParm,
- Val, D#'IndAudMediaDescriptor'.streams});
- streamDescr ->
- return_error(0, {bad_IndAudMediaDescriptor_streamDescr,
- Val, D#'IndAudMediaDescriptor'.streams});
- _ ->
- return_error(0, {bad_IndAudMediaDescriptor_tag, Tag, Val})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_indAudLocalControlDescriptor,1}]}).
--endif.
-merge_indAudLocalControlDescriptor(Parms) ->
- merge_indAudLocalControlDescriptor(Parms,
- #'IndAudLocalControlDescriptor'{},
- asn1_NOVALUE).
-
-merge_indAudLocalControlDescriptor([modeToken | Parms], D, PP)
- when (D#'IndAudLocalControlDescriptor'.streamMode == asn1_NOVALUE) andalso
- (D#'IndAudLocalControlDescriptor'.streamModeSel == asn1_NOVALUE) ->
- D2 = D#'IndAudLocalControlDescriptor'{streamMode = 'NULL'},
- merge_indAudLocalControlDescriptor(Parms, D2, PP);
-
-merge_indAudLocalControlDescriptor([modeToken | Parms], D, PP)
- when (D#'IndAudLocalControlDescriptor'.streamMode == asn1_NOVALUE) ->
- merge_indAudLocalControlDescriptor(Parms, D, PP);
-
-merge_indAudLocalControlDescriptor([{mode, Val} | Parms], D, PP)
- when (D#'IndAudLocalControlDescriptor'.streamMode == asn1_NOVALUE) andalso
- (D#'IndAudLocalControlDescriptor'.streamModeSel == asn1_NOVALUE) ->
- D2 =
- case Val of
- {equal, Val2} ->
- D#'IndAudLocalControlDescriptor'{streamModeSel = Val2};
- {inequal, Val2} ->
- D#'IndAudLocalControlDescriptor'{streamModeSel = Val2}
- end,
- merge_indAudLocalControlDescriptor(Parms, D2, PP);
-
-merge_indAudLocalControlDescriptor([{mode, Val} | Parms], D, PP)
- when (D#'IndAudLocalControlDescriptor'.streamModeSel == asn1_NOVALUE) ->
- D2 =
- case Val of
- {equal, Val2} ->
- D#'IndAudLocalControlDescriptor'{streamMode = asn1_NOVALUE,
- streamModeSel = Val2};
- {inequal, Val2} ->
- D#'IndAudLocalControlDescriptor'{streamMode = asn1_NOVALUE,
- streamModeSel = Val2}
- end,
- merge_indAudLocalControlDescriptor(Parms, D2, PP);
-
-merge_indAudLocalControlDescriptor([reservedGroupToken | Parms], D, PP)
- when D#'IndAudLocalControlDescriptor'.reserveGroup == asn1_NOVALUE ->
- D2 = D#'IndAudLocalControlDescriptor'{reserveGroup = 'NULL'},
- merge_indAudLocalControlDescriptor(Parms, D2, PP);
-
-merge_indAudLocalControlDescriptor([reservedValueToken | Parms], D, PP)
- when D#'IndAudLocalControlDescriptor'.reserveValue == asn1_NOVALUE ->
- D2 = D#'IndAudLocalControlDescriptor'{reserveValue = 'NULL'},
- merge_indAudLocalControlDescriptor(Parms, D2, PP);
-
-%% This is really wierd in the standard, so at this point this is the
-%% best I can do... BUGBUG BUGBUG BUGBUG
-%%
-merge_indAudLocalControlDescriptor([{name, Val} | Parms], D, asn1_NOVALUE) ->
- PP = #'IndAudPropertyParm'{name = Val},
- merge_indAudLocalControlDescriptor(Parms, D, PP);
-
-merge_indAudLocalControlDescriptor([{name, Val} | Parms], D, PP)
- when D#'IndAudLocalControlDescriptor'.propertyParms == asn1_NOVALUE ->
- D2 = D#'IndAudLocalControlDescriptor'{propertyParms = [PP]},
- PP2 = #'IndAudPropertyParm'{name = Val},
- merge_indAudLocalControlDescriptor(Parms, D2, PP2);
-
-merge_indAudLocalControlDescriptor([{name, Val} | Parms], D, PP) ->
- PPs = D#'IndAudLocalControlDescriptor'.propertyParms,
- D2 = D#'IndAudLocalControlDescriptor'{propertyParms = [PP|PPs]},
- PP2 = #'IndAudPropertyParm'{name = Val},
- merge_indAudLocalControlDescriptor(Parms, D2, PP2);
-
-%% BUGBUG BUGBUG I cannot construct a proper IndAudPropertyParm with
-%% just the prop (the mandatory name part is missing), so for now I
-%% assume that it this has been used, then the name part
-%% (pkgdName) must precide it?
-merge_indAudLocalControlDescriptor([{prop, Val} | Parms], D, PP)
- when (PP =/= asn1_NOVALUE) andalso
- (D#'IndAudLocalControlDescriptor'.propertyParms == asn1_NOVALUE) ->
- PP2 = PP#'IndAudPropertyParm'{propertyParms = Val},
- D2 = D#'IndAudLocalControlDescriptor'{propertyParms = [PP2]},
- merge_indAudLocalControlDescriptor(Parms, D2, asn1_NOVALUE);
-
-merge_indAudLocalControlDescriptor([{prop, Val} | Parms], D, PP)
- when (PP =/= asn1_NOVALUE) andalso
- is_list(D#'IndAudLocalControlDescriptor'.propertyParms) ->
- PPs = D#'IndAudLocalControlDescriptor'.propertyParms,
- PP2 = PP#'IndAudPropertyParm'{propertyParms = Val},
- D2 = D#'IndAudLocalControlDescriptor'{propertyParms = [PP2|PPs]},
- merge_indAudLocalControlDescriptor(Parms, D2, asn1_NOVALUE);
-
-merge_indAudLocalControlDescriptor([H | _T], _D, _PP) ->
- return_error(0, {bad_indAudLocalControlDescriptor_parm, H});
-
-merge_indAudLocalControlDescriptor([], D, asn1_NOVALUE)
- when D#'IndAudLocalControlDescriptor'.propertyParms == asn1_NOVALUE ->
- D;
-merge_indAudLocalControlDescriptor([], D, asn1_NOVALUE) ->
- PPs = D#'IndAudLocalControlDescriptor'.propertyParms,
- PropParms2 = lists:reverse(PPs),
- D#'IndAudLocalControlDescriptor'{propertyParms = PropParms2};
-merge_indAudLocalControlDescriptor([], D, PP)
- when D#'IndAudLocalControlDescriptor'.propertyParms == asn1_NOVALUE ->
- D#'IndAudLocalControlDescriptor'{propertyParms = [PP]};
-merge_indAudLocalControlDescriptor([], D, PP) ->
- PPs = D#'IndAudLocalControlDescriptor'.propertyParms,
- PPs2 = lists:reverse([PP|PPs]),
- D#'IndAudLocalControlDescriptor'{propertyParms = PPs2}.
-
-
-merge_indAudTerminationStateDescriptor({name, Val}) ->
- PropParm = #'IndAudPropertyParm'{name = Val},
- #'IndAudTerminationStateDescriptor'{propertyParms = [PropParm]};
-%% BUGBUG BUGBUG BUGBUG
-merge_indAudTerminationStateDescriptor({prop, Val}) ->
- exit({incomplete_propertyParm_in_indAudTerminationStateDescriptor, Val});
-merge_indAudTerminationStateDescriptor(serviceStatesToken) ->
- #'IndAudTerminationStateDescriptor'{serviceState = 'NULL'};
-merge_indAudTerminationStateDescriptor({serviceStates, {equal, Val}}) ->
- #'IndAudTerminationStateDescriptor'{serviceStateSel = Val};
-merge_indAudTerminationStateDescriptor({serviceStates, {inequal, Val}}) ->
- #'IndAudTerminationStateDescriptor'{serviceStateSel = Val};
-merge_indAudTerminationStateDescriptor(bufferToken) ->
- #'IndAudTerminationStateDescriptor'{eventBufferControl = 'NULL'}.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_indAudEventBufferDescriptor,2}]}).
--endif.
-merge_indAudEventBufferDescriptor(EventName, SpecParams) ->
- IAEBD = #'IndAudEventBufferDescriptor'{eventName = EventName},
- do_merge_indAudEventBufferDescriptor(SpecParams, IAEBD).
-
-do_merge_indAudEventBufferDescriptor(asn1_NOVALUE, IAEBD) ->
- IAEBD;
-do_merge_indAudEventBufferDescriptor({streamID, StreamID}, IAEBD) ->
- IAEBD#'IndAudEventBufferDescriptor'{streamID = StreamID};
-do_merge_indAudEventBufferDescriptor({eventParameterName, _Name} = EPN,
- IAEBD) ->
- %% BUGBUG BUGBUG BUGBUG
- %% This is an ugly hack to allow the eventParamName which only
- %% exists in the text encoding...
- IAEBD#'IndAudEventBufferDescriptor'{streamID = EPN}.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_indAudSignalListParm,1}]}).
--endif.
-ensure_indAudSignalListParm(SIG) ->
- if
- is_record(SIG, 'Signal') ->
- ensure_indAudSignal(SIG);
- true ->
- return_error(0, {bad_Signal, SIG})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_indAudSignal,1}]}).
--endif.
-ensure_indAudSignal(Sig) ->
- #'Signal'{signalName = SignalName,
- streamID = SID,
- sigType = asn1_NOVALUE,
- duration = asn1_NOVALUE,
- notifyCompletion = asn1_NOVALUE,
- keepActive = asn1_NOVALUE,
- sigParList = [],
- requestID = RID} = Sig,
- #'IndAudSignal'{signalName = SignalName,
- streamID = SID,
- signalRequestID = RID}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_IADMD,1}]}).
--endif.
-ensure_IADMD(Token) ->
- {_TokenTag, _Line, DMD} = Token,
- #'DigitMapDescriptor'{digitMapName = Name,
- digitMapValue = asn1_NOVALUE} = DMD,
- #'IndAudDigitMapDescriptor'{digitMapName = Name}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_indAudPackagesDescriptor,1}]}).
--endif.
-merge_indAudPackagesDescriptor(Pkgs) ->
- #'PackagesItem'{packageName = N,
- packageVersion = V} = Pkgs,
- #'IndAudPackagesDescriptor'{packageName = N,
- packageVersion = V}.
-
-
-%% ensure_indAudTerminationStateParm(Token) ->
-%% case Token of
-%% {safeToken, _Line, "servicestates"} -> serviceStatesToken;
-%% {safeToken, _Line, "si"} -> serviceStatesToken;
-%% {safeToken, _Line, "buffer"} -> bufferToken;
-%% {safeToken, _Line, "bf"} -> bufferToken;
-%% PkgdName -> {pkgdName,
-%% ensure_pkgdName(PkgdName)}
-%% end.
-
-
-%% Types modified by v2:
-
-merge_auditDescriptor([]) ->
- #'AuditDescriptor'{};
-merge_auditDescriptor(Tokens) when is_list(Tokens) ->
- case lists:keysearch(terminationAudit, 1, Tokens) of
- {value, {terminationAudit, TA}} ->
- case lists:keydelete(terminationAudit, 1, Tokens) of
- [] ->
- #'AuditDescriptor'{auditPropertyToken = TA};
- AuditTokens ->
- #'AuditDescriptor'{auditToken = AuditTokens,
- auditPropertyToken = TA}
- end;
- false ->
- #'AuditDescriptor'{auditToken = Tokens}
- end;
-merge_auditDescriptor(_) ->
- #'AuditDescriptor'{}.
-
-
-%% v2 - end
-
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_ServiceChangeParm,1}]}).
--endif.
-merge_ServiceChangeParm(Parms) ->
- Required = [serviceChangeReason, serviceChangeMethod],
- merge_ServiceChangeParm(Parms, #'ServiceChangeParm'{}, Required).
-
-merge_ServiceChangeParm([], SCP, []) ->
- SCP;
-
-merge_ServiceChangeParm([], _SCP, Required) ->
- exit({missing_required_serviceChangeParm, Required});
-
-merge_ServiceChangeParm([{address, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE,
- SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeAddress = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{address, Val}|_Parms], SCP0, _Req)
- when SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE ->
- MgcId = SCP0#'ServiceChangeParm'.serviceChangeMgcId,
- exit({not_both_address_mgcid_serviceChangeParm, Val, MgcId});
-
-merge_ServiceChangeParm([{mgc_id, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE,
- SCP0#'ServiceChangeParm'.serviceChangeAddress == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeMgcId = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{mgc_id, Val}|_Parms], SCP0, _Req)
- when SCP0#'ServiceChangeParm'.serviceChangeMgcId == asn1_NOVALUE ->
- Addr = SCP0#'ServiceChangeParm'.serviceChangeAddress,
- exit({not_both_address_mgcid_serviceChangeParm, Val, Addr});
-
-merge_ServiceChangeParm([{profile, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeProfile == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeProfile = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{version, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeVersion == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeVersion = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-%% REQUIRED (i.e. no default value)
-merge_ServiceChangeParm([{reason, Val}|Parms], SCP0, Req0)
- when SCP0#'ServiceChangeParm'.serviceChangeReason == undefined ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeReason = Val},
- Req = lists:delete(serviceChangeReason, Req0),
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{delay, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeDelay == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeDelay = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-%% REQUIRED (i.e. no default value)
-merge_ServiceChangeParm([{method, Val}|Parms], SCP0, Req0)
- when SCP0#'ServiceChangeParm'.serviceChangeMethod == undefined ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeMethod = Val},
- Req = lists:delete(serviceChangeMethod, Req0),
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{time_stamp, Val}|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.timeStamp == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{timeStamp = Val},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{extension, _Val}|Parms], SCP0, Req) ->
- merge_ServiceChangeParm(Parms, SCP0, Req);
-
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeInfo == asn1_NOVALUE) andalso
- is_atom(Val) ->
- SCI = #'AuditDescriptor'{auditToken = [Val]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when (SCP0#'ServiceChangeParm'.serviceChangeInfo == asn1_NOVALUE) andalso
- is_tuple(Val) ->
- SCI = #'AuditDescriptor'{auditPropertyToken = [Val]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when is_record(SCP0#'ServiceChangeParm'.serviceChangeInfo, 'AuditDescriptor') andalso
- is_atom(Val) ->
- SCI0 = SCP0#'ServiceChangeParm'.serviceChangeInfo,
- L = SCI0#'AuditDescriptor'.auditToken,
- SCI = SCI0#'AuditDescriptor'{auditToken = [Val|L]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-merge_ServiceChangeParm([{audit_item, Val}|Parms], SCP0, Req)
- when is_record(SCP0#'ServiceChangeParm'.serviceChangeInfo, 'AuditDescriptor') andalso
- is_tuple(Val) ->
- SCI0 = SCP0#'ServiceChangeParm'.serviceChangeInfo,
- L = SCI0#'AuditDescriptor'.auditPropertyToken,
- SCI = SCI0#'AuditDescriptor'{auditPropertyToken = [Val|L]},
- SCP = SCP0#'ServiceChangeParm'{serviceChangeInfo = SCI},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([incomplete|Parms], SCP0, Req)
- when SCP0#'ServiceChangeParm'.serviceChangeIncompleteFlag == asn1_NOVALUE ->
- SCP = SCP0#'ServiceChangeParm'{serviceChangeIncompleteFlag = 'NULL'},
- merge_ServiceChangeParm(Parms, SCP, Req);
-
-merge_ServiceChangeParm([{Tag, Val}|_Parms], SCP, _Req) ->
- Val2 =
- case Tag of
- address ->
- SCP#'ServiceChangeParm'.serviceChangeAddress;
- mgc_id ->
- SCP#'ServiceChangeParm'.serviceChangeMgcId;
- profile ->
- SCP#'ServiceChangeParm'.serviceChangeProfile;
- version ->
- SCP#'ServiceChangeParm'.serviceChangeVersion;
- reason ->
- SCP#'ServiceChangeParm'.serviceChangeReason;
- delay ->
- SCP#'ServiceChangeParm'.serviceChangeDelay;
- method ->
- SCP#'ServiceChangeParm'.serviceChangeMethod;
- time_stamp ->
- SCP#'ServiceChangeParm'.timeStamp;
- audit_item ->
- SCP#'ServiceChangeParm'.serviceChangeInfo
- end,
- exit({at_most_once_serviceChangeParm, {Tag, Val, Val2}});
-merge_ServiceChangeParm([Parm|_Parms], SCP, _Req) ->
- Parm2 =
- case Parm of
- incomplete ->
- SCP#'ServiceChangeParm'.serviceChangeIncompleteFlag
- end,
- exit({at_most_once_serviceChangeParm, {Parm, Parm2}}).
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_ServiceChangeResParm,1}]}).
--endif.
-merge_ServiceChangeResParm(Parms) ->
- merge_ServiceChangeResParm(Parms, #'ServiceChangeResParm'{}).
-
-merge_ServiceChangeResParm([], SCRP) ->
- SCRP;
-merge_ServiceChangeResParm([{address, Val}|Parms], SCRP0)
- when (SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE) andalso
- (SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE) ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeAddress = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-merge_ServiceChangeResParm([{address, Val}|_Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE ->
- MgcId = SCRP0#'ServiceChangeResParm'.serviceChangeMgcId,
- exit({not_both_address_mgcid_servChgReplyParm, Val, MgcId});
-
-merge_ServiceChangeResParm([{mgc_id, Val}|Parms], SCRP0)
- when (SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE) andalso
- (SCRP0#'ServiceChangeResParm'.serviceChangeAddress == asn1_NOVALUE) ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeMgcId = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-merge_ServiceChangeResParm([{mgc_id, Val}|_Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeMgcId == asn1_NOVALUE ->
- Addr = SCRP0#'ServiceChangeResParm'.serviceChangeAddress,
- exit({not_both_address_mgcid_servChgReplyParm, Val, Addr});
-
-merge_ServiceChangeResParm([{profile, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeProfile == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeProfile = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{version, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.serviceChangeVersion == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{serviceChangeVersion = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{time_stamp, Val}|Parms], SCRP0)
- when SCRP0#'ServiceChangeResParm'.timeStamp == asn1_NOVALUE ->
- SCRP = SCRP0#'ServiceChangeResParm'{timeStamp = Val},
- merge_ServiceChangeResParm(Parms, SCRP);
-
-merge_ServiceChangeResParm([{Tag, Val}|_Parms], SCRP) ->
- Val2 =
- case Tag of
- address -> SCRP#'ServiceChangeResParm'.serviceChangeAddress;
- mgc_id -> SCRP#'ServiceChangeResParm'.serviceChangeMgcId;
- profile -> SCRP#'ServiceChangeResParm'.serviceChangeProfile;
- version -> SCRP#'ServiceChangeResParm'.serviceChangeVersion;
- time_stamp -> SCRP#'ServiceChangeResParm'.timeStamp
- end,
- exit({at_most_once_servChgReplyParm, {Tag, Val, Val2}}).
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_serviceChangeMethod,1}]}).
--endif.
-ensure_serviceChangeMethod(Token) ->
- case Token of
- {safeToken, _Line, "fl"} ->
- failover;
- {safeToken, _Line, "failover"} ->
- failover;
- {safeToken, _Line, "fo"} ->
- forced;
- {safeToken, _Line, "forced"} ->
- forced;
- {safeToken, _Line, "gr"} ->
- graceful;
- {safeToken, _Line, "graceful"} ->
- graceful;
- {safeToken, _Line, "rs"} ->
- restart;
- {safeToken, _Line, "restart"} ->
- restart;
- {safeToken, _Line, "dc"} ->
- disconnected;
- {safeToken, _Line, "disconnected"} ->
- disconnected;
- {safeToken, _Line, "ho"} ->
- handOff;
- {safeToken, _Line, "handoff"} ->
- handOff;
- {safeToken, Line, Text} ->
- return_error(Line, {bad_serviceChangeMethod, Text})
- end.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_topologyDescriptor,1}]}).
--endif.
-merge_topologyDescriptor(Components) ->
- merge_topologyDescriptor(Components, #'TopologyRequest'{}, []).
-
-merge_topologyDescriptor([], TR, TRs) ->
- lists:reverse([ensure_TopologyRequest(TR)|TRs]);
-merge_topologyDescriptor(
- [{tid, From}|Comps],
- #'TopologyRequest'{terminationFrom = undefined} = TR1, TRs) ->
- TR2 = TR1#'TopologyRequest'{terminationFrom = From},
- merge_topologyDescriptor(Comps, TR2, TRs);
-merge_topologyDescriptor(
- [{tid, To}|Comps],
- #'TopologyRequest'{terminationTo = undefined} = TR1,
- TRs) ->
- TR2 = TR1#'TopologyRequest'{terminationTo = To},
- merge_topologyDescriptor(Comps, TR2, TRs);
-merge_topologyDescriptor([{tid, From}|Comps], TR1, TRs) ->
- TR2 = #'TopologyRequest'{terminationFrom = From},
- merge_topologyDescriptor(Comps, TR2, [TR1 | TRs]);
-merge_topologyDescriptor([{direction, Dir}|Comps], TR1, TRs) ->
- TR2 = TR1#'TopologyRequest'{topologyDirection = Dir},
- merge_topologyDescriptor(Comps, TR2, TRs);
-merge_topologyDescriptor([{sid, SID}|Comps], TR1, TRs) ->
- TR2 = TR1#'TopologyRequest'{streamID = SID},
- merge_topologyDescriptor(Comps, TR2, TRs);
-merge_topologyDescriptor(
- [{direction_ext, EDir}|Comps],
- #'TopologyRequest'{topologyDirection = asn1_NOVALUE} = TR1, TRs) ->
- TR2 = TR1#'TopologyRequest'{topologyDirection = oneway,
- topologyDirectionExtension = EDir},
- merge_topologyDescriptor(Comps, TR2, TRs);
-merge_topologyDescriptor([{direction_ext, EDir}|Comps], TR1, TRs) ->
- TR2 = TR1#'TopologyRequest'{topologyDirectionExtension = EDir},
- merge_topologyDescriptor(Comps, TR2, TRs);
-merge_topologyDescriptor(Comps, TR, TRs) ->
- return_error(0, {bad_topologyDescriptor, Comps, TR, TRs}).
-
-
-ensure_TopologyRequest(#'TopologyRequest'{terminationFrom = From,
- terminationTo = To,
- topologyDirection = Dir} = R)
- when (From =/= asn1_NOVALUE) andalso
- (To =/= asn1_NOVALUE) andalso
- (Dir =/= asn1_NOVALUE) ->
- R;
-ensure_TopologyRequest(R) ->
- return_error(0, {bad_TopologyRequest, R}).
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_profile,1}]}).
--endif.
-ensure_profile(Token) ->
- {_TokenTag, Line, Text} = Token,
- case string:tokens(Text, [$/]) of
- [Name, Version] ->
- Version2 = ensure_version(Version),
- #'ServiceChangeProfile'{profileName = Name, version = Version2};
- _ ->
- return_error(Line, {bad_profile, Text})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_version,1}]}).
--endif.
-ensure_version(Version) ->
- ensure_uint(Version, 0, 99).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_signalRequest,2}]}).
--endif.
-merge_signalRequest(SignalName, PropertyParms) ->
- Sig = #'Signal'{signalName = SignalName},
- SPL = [],
- do_merge_signalRequest(Sig, PropertyParms, SPL).
-
-do_merge_signalRequest(Sig, [H | T], SPL) ->
- case H of
- {stream, SID} when Sig#'Signal'.streamID == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{streamID = SID}, T, SPL);
- {signal_type, SigType} when Sig#'Signal'.sigType == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{sigType = SigType}, T, SPL);
- {duration, Duration} when Sig#'Signal'.duration == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{duration = Duration}, T, SPL);
- {notify_completion, NC} when Sig#'Signal'.notifyCompletion == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{notifyCompletion = NC}, T, SPL);
- keepActive when Sig#'Signal'.keepActive == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{keepActive = true}, T, SPL);
- {other, Name, PP} ->
- SP = #'SigParameter'{sigParameterName = Name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_signalRequest(Sig, T, [SP | SPL]);
- {direction, Dir} when Sig#'Signal'.direction == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{direction = Dir}, T, SPL);
- {requestId, RID} when Sig#'Signal'.requestID == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{requestID = RID}, T, SPL);
- {intersigDelay, ISD} when Sig#'Signal'.intersigDelay == asn1_NOVALUE ->
- do_merge_signalRequest(Sig#'Signal'{intersigDelay = ISD}, T, SPL);
- _ ->
- return_error(0, {bad_sigParm, H})
- end;
-do_merge_signalRequest(Sig, [], SPL) ->
- Sig#'Signal'{sigParList = lists:reverse(SPL)} .
-
-%% eventStream = StreamToken EQUAL StreamID
-%% eventOther = eventParameterName parmValue
--ifdef(megaco_parser_inline).
--compile({inline,[{select_stream_or_other,2}]}).
--endif.
-select_stream_or_other(EventParameterName, ParmValue) ->
-%% io:format("select_stream_or_other -> entry with"
-%% "~n EventParameterName: ~p"
-%% "~n ParmValue: ~p"
-%% "~n", [EventParameterName, ParmValue]),
- if
- (EventParameterName =:= "st") orelse
- (EventParameterName =:= "stream") ->
- case ParmValue of
- #'PropertyParm'{value = [Value]} ->
- {stream, ensure_uint16(Value)};
- _ ->
- {stream, ensure_uint16(ParmValue)}
- end;
- true ->
- #'PropertyParm'{value = Value} = ParmValue,
- EP = #'EventParameter'{eventParameterName = EventParameterName,
- value = Value},
- {other, EP}
- end.
-
-%% select_stream_or_other("st", #'PropertyParm'{value = [Value]}) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("st", Value) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("stream", #'PropertyParm'{value = [Value]}) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other("stream", Value) ->
-%% {stream, ensure_uint16(Value)};
-%% select_stream_or_other(Name, #'PropertyParm'{value = Value}) ->
-%% EP = #'EventParameter'{eventParameterName = Name,
-%% value = Value},
-%% {other, EP}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_eventDM,1}]}).
--endif.
-ensure_eventDM(Token) ->
- {_TokenTag, Line, DMD} = Token,
- if
- is_record(DMD, 'DigitMapDescriptor') ->
- Name = DMD#'DigitMapDescriptor'.digitMapName,
- Val = DMD#'DigitMapDescriptor'.digitMapValue,
- if
- (Name =:= asn1_NOVALUE) andalso (Val =/= asn1_NOVALUE) ->
- {'DigitMapValue', Start, Short, Long, Duration, Body} = Val,
- DMV = #'DigitMapValue'{startTimer = Start,
- shortTimer = Short,
- longTimer = Long,
- digitMapBody = Body,
- durationTimer = Duration},
- {eventDM, {digitMapValue, DMV}};
- (Name =/= asn1_NOVALUE) andalso (Val =:= asn1_NOVALUE) ->
- {eventDM, {digitMapName, Name}};
- true ->
- return_error(Line, {bad_eventDM, DMD})
- end;
- true ->
- return_error(Line, {bad_eventDM, DMD})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_DMD,1}]}).
--endif.
-ensure_DMD(Token) ->
- {_TokenTag, Line, DMD} = Token,
- if
- is_record(DMD, 'DigitMapDescriptor') ->
- Val2 =
- case DMD#'DigitMapDescriptor'.digitMapValue of
- %% Note that the values of the digitMapBody and
- %% durationTimers are swapped by the scanner
- %% (this is done because of a problem in the flex scanner).
- #'DigitMapValue'{startTimer = asn1_NOVALUE,
- shortTimer = asn1_NOVALUE,
- longTimer = asn1_NOVALUE,
- durationTimer = [],
- digitMapBody = asn1_NOVALUE} ->
- asn1_NOVALUE;
- #'DigitMapValue'{durationTimer = Body,
- digitMapBody = Duration} = DMV ->
- %% Convert to version 1 DigitMapValue
- DMV#'DigitMapValue'{digitMapBody = Body,
- durationTimer = Duration};
- Other ->
- Other
- end,
- DMD#'DigitMapDescriptor'{digitMapValue = Val2};
- true ->
- return_error(Line, {bad_DigitMapDescriptor, DMD})
- end.
-
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_observed_event,3}]}).
--endif.
-merge_observed_event(ObservedEvents, EventName, TimeStamp) ->
- StreamId = asn1_NOVALUE,
- EPL = [],
- do_merge_observed_event(ObservedEvents, EventName, TimeStamp, StreamId, EPL).
-
-do_merge_observed_event([{stream, StreamID} | T], EventName, TimeStamp, asn1_NOVALUE, EPL) ->
- do_merge_observed_event(T, EventName, TimeStamp, StreamID, EPL);
-do_merge_observed_event([{other, PP} | T], EventName, TimeStamp, StreamID, EPL) ->
- do_merge_observed_event(T, EventName, TimeStamp, StreamID, [PP | EPL]);
-do_merge_observed_event([], EventName, TimeStamp, StreamID, EPL) ->
- #'ObservedEvent'{eventName = EventName,
- timeNotation = TimeStamp,
- streamID = StreamID,
- eventParList = lists:reverse(EPL)}.
-
-merge_eventSpec(OE)
- when is_record(OE, 'ObservedEvent') andalso
- (OE#'ObservedEvent'.timeNotation == asn1_NOVALUE) ->
- #'EventSpec'{eventName = OE#'ObservedEvent'.eventName,
- streamID = OE#'ObservedEvent'.streamID,
- eventParList = OE#'ObservedEvent'.eventParList};
-merge_eventSpec(OE) ->
- return_error(0, {bad_event_spec, OE}).
-
-make_RegulatedEmbeddedDescriptor({embed, SD, SED}) ->
- #'RegulatedEmbeddedDescriptor'{secondEvent = SED,
- signalsDescriptor = SD}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_eventParameters,1}]}).
--endif.
-merge_eventParameters(Params) ->
-%% io:format("merge_eventParameters -> entry"
-%% "~n", []),
- SID = asn1_NOVALUE,
- EPL = [],
- RA = #'RequestedActions'{},
- HasA = no,
- do_merge_eventParameters(Params, SID, EPL, RA, HasA) .
-
-do_merge_eventParameters([H | T], SID, EPL, RA, HasA) ->
-%% io:format("do_merge_eventParameters -> entry with"
-%% "~n H: ~p"
-%% "~n SID: ~p"
-%% "~n EPL: ~p"
-%% "~n RA: ~p"
-%% "~n HasA: ~p"
-%% "~n", [H, SID, EPL, RA, HasA]),
- case H of
- keepActive when RA#'RequestedActions'.keepActive =:= asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{keepActive = true},
- do_merge_eventParameters(T, SID, EPL, RA2, yes);
- resetEventsDescriptor when RA#'RequestedActions'.resetEventsDescriptor =:= asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{resetEventsDescriptor = 'NULL'},
- do_merge_eventParameters(T, SID, EPL, RA2, yes);
- {embed, SD, SED} when RA#'RequestedActions'.signalsDescriptor =:= asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{signalsDescriptor = SD,
- secondEvent = SED},
- do_merge_eventParameters(T, SID, EPL, RA2, yes);
- {eventDM, DM} when RA#'RequestedActions'.eventDM =:= asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{eventDM = DM},
- do_merge_eventParameters(T, SID, EPL, RA2, yes);
- {stream, NewSID} when SID =:= asn1_NOVALUE ->
- do_merge_eventParameters(T, NewSID, EPL, RA, HasA);
- {other, PP} when is_record(PP, 'PropertyParm') ->
- EP = #'EventParameter'{eventParameterName = PP#'PropertyParm'.name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_eventParameters(T, SID, [EP | EPL], RA, HasA);
- {other, EP} when is_record(EP, 'EventParameter') ->
- do_merge_eventParameters(T, SID, [EP | EPL], RA, HasA);
- {notifyBehaviour, NB} when RA#'RequestedActions'.notifyBehaviour =:= asn1_NOVALUE ->
- RA2 = RA#'RequestedActions'{notifyBehaviour = NB},
- do_merge_eventParameters(T, SID, EPL, RA2, yes);
- _ ->
- return_error(0, {bad_eventParameter, H})
- end;
-do_merge_eventParameters([], SID, EPL, RA, yes) ->
-%% io:format("do_merge_eventParameters(yes) -> entry with"
-%% "~n SID: ~p"
-%% "~n EPL: ~p"
-%% "~n RA: ~p"
-%% "~n", [SID, EPL, RA]),
- #'RequestedEvent'{streamID = SID,
- eventAction = RA,
- evParList = lists:reverse(EPL)};
-do_merge_eventParameters([], SID, EPL, _RA, no) ->
-%% io:format("do_merge_eventParameters(no) -> entry with"
-%% "~n SID: ~p"
-%% "~n EPL: ~p"
-%% "~n", [SID, EPL]),
- #'RequestedEvent'{streamID = SID,
- eventAction = asn1_NOVALUE,
- evParList = lists:reverse(EPL)}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_secondEventParameters,1}]}).
--endif.
-merge_secondEventParameters(Params) ->
- SID = asn1_NOVALUE,
- EPL = [],
- SRA = #'SecondRequestedActions'{},
- HasA = no,
- do_merge_secondEventParameters(Params, SID, EPL, SRA, HasA) .
-
-do_merge_secondEventParameters([H | T], SID, EPL, SRA, HasA) ->
- case H of
- keepActive when SRA#'SecondRequestedActions'.keepActive =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{keepActive = true},
- do_merge_secondEventParameters(T, SID, EPL, SRA2, yes);
-
- resetEventsDescriptor when SRA#'SecondRequestedActions'.resetEventsDescriptor =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{resetEventsDescriptor = 'NULL'},
- do_merge_secondEventParameters(T, SID, EPL, SRA2, yes);
-
- {second_embed, SD} when SRA#'SecondRequestedActions'.signalsDescriptor =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{signalsDescriptor = SD},
- do_merge_secondEventParameters(T, SID, EPL, SRA2, yes);
-
- {eventDM, DM} when SRA#'SecondRequestedActions'.eventDM =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{eventDM = DM},
- do_merge_secondEventParameters(T, SID, EPL, SRA2, yes);
-
- {stream, NewSID} when SID =:= asn1_NOVALUE ->
- do_merge_secondEventParameters(T, NewSID, EPL, SRA, HasA);
-
- {other, PP} when is_record(PP, 'PropertyParm') ->
- EP = #'EventParameter'{eventParameterName = PP#'PropertyParm'.name,
- value = PP#'PropertyParm'.value,
- extraInfo = PP#'PropertyParm'.extraInfo},
- do_merge_secondEventParameters(T, SID, [EP | EPL], SRA, HasA);
-
- {other, EP} when is_record(EP, 'EventParameter') ->
- do_merge_secondEventParameters(T, SID, [EP | EPL], SRA, HasA);
-
- {notifyBehaviour, NB} when SRA#'SecondRequestedActions'.notifyBehaviour =:= asn1_NOVALUE ->
- SRA2 = SRA#'SecondRequestedActions'{notifyBehaviour = NB},
- do_merge_secondEventParameters(T, SID, EPL, SRA2, yes);
-
- _ ->
- return_error(0, {bad_secondEventParameter, H})
- end;
-do_merge_secondEventParameters([], SID, EPL, SRA, yes) ->
- #'SecondRequestedEvent'{streamID = SID,
- eventAction = SRA,
- evParList = lists:reverse(EPL)};
-do_merge_secondEventParameters([], SID, EPL, _SRA, no) ->
- #'SecondRequestedEvent'{streamID = SID,
- eventAction = asn1_NOVALUE,
- evParList = lists:reverse(EPL)}.
-
-%% terminationID = "ROOT" / pathName / "$" / "*"
-%% Total length of pathName must not exceed 64 chars.
-%% pathName = ["*"] NAME *("/" / "*"/ ALPHA / DIGIT /"_" / "$" )
-%% ["@" pathDomainName ]
-%% ABNF allows two or more consecutive "." although it is meaningless
-%% in a path domain name.
-%% pathDomainName = (ALPHA / DIGIT / "*" )
-%% *63(ALPHA / DIGIT / "-" / "*" / ".")
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_terminationID,1}]}).
--endif.
-ensure_terminationID(Token) ->
- {safeToken, _Line, LowerText} = Token,
- %% terminationID = "ROOT" / pathName / "$" / "*"
- decode_term_id(LowerText, false, [], []).
-
-decode_term_id([H | T], Wild, Id, Component) ->
- case H of
- $/ -> decode_term_id(T, Wild, [lists:reverse(Component) | Id], []);
- $* -> decode_term_id(T, true, Id, [?megaco_all | Component]);
- $$ -> decode_term_id(T, true, Id, [?megaco_choose | Component]);
- _ -> decode_term_id(T, Wild, Id, [H | Component])
- end;
-decode_term_id([], Wild, Id, Component) ->
- Id2 = [lists:reverse(Component) | Id],
- #megaco_term_id{contains_wildcards = Wild, id = lists:reverse(Id2)}.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_pathName,1}]}).
--endif.
-ensure_pathName(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text. %% BUGBUG: ensure values
-
-%% TimeStamp = Date "T" Time ; per ISO 8601:1988
-%% Date = 8(DIGIT) ; Date = yyyymmdd
-%% Time = 8(DIGIT) ; Time = hhmmssss
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_timeStamp,1}]}).
--endif.
-ensure_timeStamp(Token) ->
- {'TimeStampToken', Line, Text} = Token,
- case string:tokens(Text, [$T, $t]) of
- [Date, Time] ->
- #'TimeNotation'{date = Date, time = Time};
- _ ->
- return_error(Line, {bad_timeStamp, Text})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_transactionID,1}]}).
--endif.
-ensure_transactionID(TransId) ->
- ensure_uint32(TransId).
-
-%% transactionAck = transactionID / (transactionID "-" transactionID)
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_transactionAck,1}]}).
--endif.
-ensure_transactionAck(Tokens) ->
- {safeToken, _Line, Text} = Tokens,
- ensure_transactionAck2(Text, []).
-
-ensure_transactionAck2([], Acc) ->
- Id = lists:reverse(Acc),
- #'TransactionAck'{firstAck = ensure_transactionID(Id)};
-ensure_transactionAck2([$- | Id2], Acc) ->
- Id1 = lists:reverse(Acc),
- #'TransactionAck'{firstAck = ensure_transactionID(Id1),
- lastAck = ensure_transactionID(Id2)};
-ensure_transactionAck2([H|T], Acc) ->
- ensure_transactionAck2(T, [H|Acc]).
-
-
-merge_context_request(asn1_NOVALUE, Prop) ->
- merge_context_request(#'ContextRequest'{}, Prop);
-
-merge_context_request(#'ContextRequest'{priority = asn1_NOVALUE} = CR,
- {priority, Int}) ->
- CR#'ContextRequest'{priority = Int};
-
-merge_context_request(#'ContextRequest'{emergency = asn1_NOVALUE} = CR,
- {emergency, Bool}) ->
- CR#'ContextRequest'{emergency = Bool};
-
-merge_context_request(#'ContextRequest'{topologyReq = asn1_NOVALUE} = CR,
- {topology, Desc}) ->
- CR#'ContextRequest'{topologyReq = Desc};
-
-merge_context_request(#'ContextRequest'{iepscallind = asn1_NOVALUE} = CR,
- {iepsCallind, Ind}) ->
- CR#'ContextRequest'{iepscallind = Ind};
-
-merge_context_request(#'ContextRequest'{contextProp = asn1_NOVALUE} = CR,
- {contextProp, Props}) ->
- CR#'ContextRequest'{contextProp = Props};
-
-merge_context_request(#'ContextRequest'{contextList = asn1_NOVALUE} = CR,
- {contextList, IDs}) ->
- CR#'ContextRequest'{contextList = IDs};
-
-merge_context_request(CR, {Tag, Val}) ->
- Val2 =
- case Tag of
- priority -> CR#'ContextRequest'.priority;
- emergency -> CR#'ContextRequest'.emergency;
- topology -> CR#'ContextRequest'.topologyReq;
- iepsCallind -> CR#'ContextRequest'.iepscallind;
- contextProp -> CR#'ContextRequest'.contextProp;
- contextList -> CR#'ContextRequest'.contextList
- end,
- exit({at_most_once_contextProperty, {Tag, Val, Val2}}).
-
-
-merge_context_attr_audit_request(
- #'ContextAttrAuditRequest'{contextPropAud = asn1_NOVALUE} = CAAR, []) ->
-
- CAAR;
-merge_context_attr_audit_request(
- #'ContextAttrAuditRequest'{contextPropAud = CPA} = CAAR, []) ->
-
- CAAR#'ContextAttrAuditRequest'{contextPropAud = lists:reverse(CPA)};
-merge_context_attr_audit_request(CAAR, [H|T]) ->
- case H of
- priorityAudit when CAAR#'ContextAttrAuditRequest'.priority == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{priority = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- emergencyAudit when CAAR#'ContextAttrAuditRequest'.emergency == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{emergency = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- topologyAudit when CAAR#'ContextAttrAuditRequest'.topology == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{topology = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- iepsCallind when CAAR#'ContextAttrAuditRequest'.iepscallind == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{iepscallind = 'NULL'},
- merge_context_attr_audit_request(CAAR2, T);
-
- {prop, Name} when CAAR#'ContextAttrAuditRequest'.contextPropAud == asn1_NOVALUE ->
- CPA = [#'IndAudPropertyParm'{name = Name}],
- CAAR2 = CAAR#'ContextAttrAuditRequest'{contextPropAud = CPA},
- merge_context_attr_audit_request(CAAR2, T);
-
- {prop, Name} ->
- CPA = CAAR#'ContextAttrAuditRequest'.contextPropAud,
- CPA2 = [#'IndAudPropertyParm'{name = Name}|CPA],
- CAAR2 = CAAR#'ContextAttrAuditRequest'{contextPropAud = CPA2},
- merge_context_attr_audit_request(CAAR2, T);
-
- {select_prio, Prio} when CAAR#'ContextAttrAuditRequest'.selectpriority == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{selectpriority = Prio},
- merge_context_attr_audit_request(CAAR2, T);
-
- {select_emergency, EV} when CAAR#'ContextAttrAuditRequest'.selectemergency == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{selectemergency = EV},
- merge_context_attr_audit_request(CAAR2, T);
-
- {select_ieps, IV} when CAAR#'ContextAttrAuditRequest'.selectiepscallind == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{selectiepscallind = IV},
- merge_context_attr_audit_request(CAAR2, T);
-
- {select_logic, SL} when CAAR#'ContextAttrAuditRequest'.selectLogic == asn1_NOVALUE ->
- CAAR2 = CAAR#'ContextAttrAuditRequest'{selectLogic = SL},
- merge_context_attr_audit_request(CAAR2, T);
-
- %% BUGBUG BUGBUG BUGBUG BUGBUG BUGBUG BUGBUG BUGBUG BUGBUG BUGBUG
- %%
- %% For some strange reason, contextAttrDescriptor was added
- %% to contextAuditSelector. But there is no place for this
- %% info in the ContextAttrAuditRequest. Since contextAttrDescriptor
- %% can also be found in contextProperty (which correspond to
- %% ContextRequest), the question is if this info should go there
- %% or if we shall just drop it. For now we drop it.
- %%
- {contextProp, _PPs} ->
- merge_context_attr_audit_request(CAAR, T);
-
- {contextList, _IDs} ->
- merge_context_attr_audit_request(CAAR, T);
-
- _ ->
- exit({unexpected_contextAttrAudit_item, H})
-
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_action_request,2}]}).
--endif.
-merge_action_request(CtxId, Items) ->
- do_merge_action_request(Items, [], asn1_NOVALUE, asn1_NOVALUE, CtxId).
-
-do_merge_action_request([H|T], CmdReqs, CtxReq, CtxAuditReq, CtxId) ->
- case H of
- {commandRequest, CmdReq} ->
- do_merge_action_request(T, [CmdReq|CmdReqs],
- CtxReq, CtxAuditReq, CtxId);
-
- {contextProp, ContextProp} ->
- do_merge_action_request(T, CmdReqs,
- merge_context_request(CtxReq, ContextProp),
- CtxAuditReq, CtxId);
-
- {contextAudit, ContextAuditReq} when CtxAuditReq == asn1_NOVALUE ->
- do_merge_action_request(T, CmdReqs,
- CtxReq, ContextAuditReq, CtxId)
- end;
-do_merge_action_request([], CmdReqs, CtxReq, CtxAuditReq, CtxId) ->
- #'ActionRequest'{contextId = CtxId,
- contextRequest = strip_ContextRequest(CtxReq),
- contextAttrAuditReq = strip_ContextAttrAuditRequest(CtxAuditReq),
- commandRequests = lists:reverse(CmdReqs)}.
-
-
-%% OTP-5085:
-%% In order to solve a problem in the parser, the error descriptor
-%% has been put last in the non-empty commandReplyList, if it is not
-%% asn1_NOVALUE
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_action_reply,1}]}).
--endif.
-merge_action_reply(Items) ->
- do_merge_action_reply(Items, asn1_NOVALUE, asn1_NOVALUE, []).
-
-do_merge_action_reply([], Err, Ctx, Cmds) ->
- #'ActionReply'{errorDescriptor = Err,
- contextReply = strip_ContextRequest(Ctx),
- commandReply = lists:reverse(Cmds)};
-do_merge_action_reply([H|T], Err0, CR, Cmds) ->
- case H of
- {error, Err1} when Err0 == asn1_NOVALUE ->
- do_merge_action_reply(T, Err1, CR, Cmds);
- {command, Cmd} ->
- do_merge_action_reply(T, Err0, CR, [Cmd | Cmds]);
- {context, CtxProp} ->
- do_merge_action_reply(T, Err0,
- merge_context_request(CR, CtxProp), Cmds)
- end.
-
-merge_auditOther([TID], TAR) ->
- {auditResult,
- #'AuditResult'{terminationID = TID,
- terminationAuditResult = TAR}};
-merge_auditOther(TIDs, TAR) ->
- {auditResultTermList,
- #'TermListAuditResult'{terminationIDList = TIDs,
- terminationAuditResult = TAR}}.
-
-strip_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextProp = asn1_NOVALUE,
- contextList = asn1_NOVALUE}) ->
- asn1_NOVALUE;
-strip_ContextRequest(#'ContextRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topologyReq = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextProp = [],
- contextList = asn1_NOVALUE}) ->
- asn1_NOVALUE;
-%% strip_ContextRequest(asn1_NOVALUE) ->
-%% asn1_NOVALUE;
-strip_ContextRequest(R) ->
- R.
-
-strip_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topology = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextPropAud = asn1_NOVALUE,
- selectpriority = asn1_NOVALUE,
- selectemergency = asn1_NOVALUE,
- selectiepscallind = asn1_NOVALUE,
- selectLogic = asn1_NOVALUE}) ->
- asn1_NOVALUE;
-strip_ContextAttrAuditRequest(
- #'ContextAttrAuditRequest'{priority = asn1_NOVALUE,
- emergency = asn1_NOVALUE,
- topology = asn1_NOVALUE,
- iepscallind = asn1_NOVALUE,
- contextPropAud = [],
- selectpriority = asn1_NOVALUE,
- selectemergency = asn1_NOVALUE,
- selectiepscallind = asn1_NOVALUE,
- selectLogic = asn1_NOVALUE}) ->
- asn1_NOVALUE;
-strip_ContextAttrAuditRequest(R) ->
- R.
-
-merge_AmmRequest_descriptors([], Acc) ->
- lists:reverse(Acc);
-merge_AmmRequest_descriptors([{_, deprecated}|Descs], Acc) ->
- merge_AmmRequest_descriptors(Descs, Acc);
-merge_AmmRequest_descriptors([Desc|Descs], Acc) ->
- merge_AmmRequest_descriptors(Descs, [Desc|Acc]).
-
-make_auditRequest([TID], AD) ->
- #'AuditRequest'{terminationID = TID,
- auditDescriptor = AD};
-make_auditRequest([TID|_] = TIDList, AD) ->
- #'AuditRequest'{terminationID = TID,
- auditDescriptor = AD,
- terminationIDList = TIDList}.
-
-make_commandRequest({CmdTag, {_TokenTag, _Line, Text}}, Cmd) ->
- Req = #'CommandRequest'{command = {CmdTag, Cmd}},
- case Text of
- [$w, $- | _] ->
- Req#'CommandRequest'{wildcardReturn = 'NULL'};
- [$o, $-, $w, $- | _] ->
- Req#'CommandRequest'{optional = 'NULL', wildcardReturn = 'NULL'};
- [$o, $- | _] ->
- Req#'CommandRequest'{optional = 'NULL'};
- _ ->
- Req
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_terminationAudit,1}]}).
--endif.
-merge_terminationAudit(AuditReturnParameters) ->
- lists:reverse(do_merge_terminationAudit(AuditReturnParameters, [], [])).
-
-do_merge_terminationAudit([H| T], ARPs, AuditItems) ->
- case H of
- {auditReturnItem, AuditItem} ->
- do_merge_terminationAudit(T, ARPs, [AuditItem | AuditItems]);
- AuditReturnParameter ->
- do_merge_terminationAudit(T, [AuditReturnParameter | ARPs], AuditItems)
- end;
-do_merge_terminationAudit([], AuditReturnParameters, []) ->
- AuditReturnParameters;
-do_merge_terminationAudit([], AuditReturnParameters, AuditItems) ->
- AuditDescriptor = #'AuditDescriptor'{auditToken = AuditItems},
- AuditReturnParameter = {emptyDescriptors, AuditDescriptor},
- [AuditReturnParameter | AuditReturnParameters].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_mediaDescriptor,1}]}).
--endif.
-merge_mediaDescriptor(MediaParms) ->
- do_merge_mediaDescriptor(MediaParms, asn1_NOVALUE, [], []).
-
-do_merge_mediaDescriptor([H | T], TS, One, Multi) ->
- case H of
- {streamParm, Parm} when Multi =:= [] ->
- do_merge_mediaDescriptor(T, TS, [Parm | One], Multi);
- {streamDescriptor, Desc} when One =:= [] ->
- do_merge_mediaDescriptor(T, TS, One, [Desc | Multi]);
- {termState, TS2} when TS =:= asn1_NOVALUE ->
- do_merge_mediaDescriptor(T, TS2, One, Multi);
- _ ->
- return_error(0, {bad_merge_mediaDescriptor, [H, TS, One, Multi]})
- end;
-do_merge_mediaDescriptor([], TS, One, Multi) ->
- if
- (One =:= []) ->
- if (Multi =:= []) ->
- #'MediaDescriptor'{streams = asn1_NOVALUE,
- termStateDescr = TS};
- true -> % (Multi =/= [])
- Streams = {multiStream, lists:reverse(Multi)},
- #'MediaDescriptor'{streams = Streams,
- termStateDescr = TS}
- end;
- true -> % (One =/= [])
- if
- (Multi =:= []) ->
- Streams = {oneStream, merge_streamParms(One)},
- #'MediaDescriptor'{streams = Streams,
- termStateDescr = TS};
- true -> % (Multi =/= [])
- return_error(0,
- {bad_merge_mediaDescriptor, [TS, One, Multi]})
- end
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_streamParms,1}]}).
--endif.
-merge_streamParms(TaggedStreamParms) ->
- SP = #'StreamParms'{},
- do_merge_streamParms(TaggedStreamParms, SP).
-
-do_merge_streamParms([{Tag, D} | T] = All, SP) ->
- case Tag of
- local when SP#'StreamParms'.localDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{localDescriptor = D});
- remote when SP#'StreamParms'.remoteDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{remoteDescriptor = D});
- control ->
- LCD =
- case SP#'StreamParms'.localControlDescriptor of
- asn1_NOVALUE ->
- #'LocalControlDescriptor'{propertyParms = []};
- PrevLCD ->
- PrevLCD
- end,
- LCD2 = do_merge_control_streamParms(D, LCD),
- do_merge_streamParms(T, SP#'StreamParms'{localControlDescriptor = LCD2});
- statistics when SP#'StreamParms'.statisticsDescriptor =:= asn1_NOVALUE ->
- do_merge_streamParms(T, SP#'StreamParms'{statisticsDescriptor = D});
- _ ->
- return_error(0, {do_merge_streamParms, [All, SP]})
- end;
-do_merge_streamParms([], SP)
- when is_record(SP#'StreamParms'.localControlDescriptor,
- 'LocalControlDescriptor') ->
- LCD = SP#'StreamParms'.localControlDescriptor,
- PP = LCD#'LocalControlDescriptor'.propertyParms,
- LCD2 = LCD#'LocalControlDescriptor'{propertyParms = lists:reverse(PP)},
- SP#'StreamParms'{localControlDescriptor = LCD2};
-do_merge_streamParms([], SP) ->
- SP.
-
-
-do_merge_control_streamParms([{SubTag, SD} | T] = All, LCD) ->
- case SubTag of
- group when LCD#'LocalControlDescriptor'.reserveGroup =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{reserveGroup = SD},
- do_merge_control_streamParms(T, LCD2);
- value when LCD#'LocalControlDescriptor'.reserveValue =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{reserveValue = SD},
- do_merge_control_streamParms(T, LCD2);
- mode when LCD#'LocalControlDescriptor'.streamMode =:= asn1_NOVALUE ->
- LCD2 = LCD#'LocalControlDescriptor'{streamMode = SD},
- do_merge_control_streamParms(T, LCD2);
- prop ->
- PP = LCD#'LocalControlDescriptor'.propertyParms,
- LCD2 = LCD#'LocalControlDescriptor'{propertyParms = [SD | PP]},
- do_merge_control_streamParms(T, LCD2);
- _ ->
- return_error(0, {do_merge_control_streamParms, [All, LCD]})
- end;
-do_merge_control_streamParms([], LCD) ->
- LCD.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{merge_terminationStateDescriptor,1}]}).
--endif.
-merge_terminationStateDescriptor(Parms) ->
- TSD = #'TerminationStateDescriptor'{propertyParms = []},
- do_merge_terminationStateDescriptor(Parms, TSD).
-
-do_merge_terminationStateDescriptor([{Tag, Val} | T], TSD) ->
- case Tag of
- serviceState when TSD#'TerminationStateDescriptor'.serviceState =:= asn1_NOVALUE ->
- TSD2 = TSD#'TerminationStateDescriptor'{serviceState = Val},
- do_merge_terminationStateDescriptor(T, TSD2);
- eventBufferControl when TSD#'TerminationStateDescriptor'.eventBufferControl =:= asn1_NOVALUE->
- TSD2 = TSD#'TerminationStateDescriptor'{eventBufferControl = Val},
- do_merge_terminationStateDescriptor(T, TSD2);
- propertyParm ->
- PP = TSD#'TerminationStateDescriptor'.propertyParms,
- TSD2 = TSD#'TerminationStateDescriptor'{propertyParms = [Val | PP]},
- do_merge_terminationStateDescriptor(T, TSD2)
- end;
-do_merge_terminationStateDescriptor([], TSD) ->
- PP = TSD#'TerminationStateDescriptor'.propertyParms,
- TSD#'TerminationStateDescriptor'{propertyParms = lists:reverse(PP)}.
-
--ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_prop_groups,1}]}).
--endif.
-ensure_prop_groups(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Group = [],
- parse_prop_name(Text, Group).
-
-parse_prop_name([Char | Rest] = All, Group) ->
- if
- ?white_space(Char) ->
- parse_prop_name(Rest, Group);
- ?end_of_line(Char) ->
- parse_prop_name(Rest, Group);
- true ->
- Name = [],
- do_parse_prop_name(All, Name, Group)
- end;
-parse_prop_name([] = All, Group) ->
- Name = [],
- do_parse_prop_name(All, Name, Group).
-
-do_parse_prop_name([Char | Rest], Name, Group)
- when (Char =:= $=) andalso (Name =/= []) ->
- %% Now we have a complete name
- if
- (Name =:= "v") andalso (Group =/= []) ->
- %% v= is a property group delimiter,
- %% lets create yet another property group.
- NewGroup = [],
- [lists:reverse(Group) | parse_prop_value(Rest, Name, NewGroup)];
- true ->
- %% Use current property group
- parse_prop_value(Rest, Name, Group)
- end;
-do_parse_prop_name([Char | Rest], Name, Group) ->
- case ?classify_char4(Char) of
- safe_char_upper ->
- do_parse_prop_name(Rest, [Char | Name], Group);
- safe_char ->
- do_parse_prop_name(Rest, [Char | Name], Group);
- _ ->
- return_error(0, {bad_prop_name, lists:reverse(Name), Char})
- end;
-do_parse_prop_name([], [], []) ->
- [];
-do_parse_prop_name([], [], Group) ->
- [lists:reverse(Group)];
-do_parse_prop_name([], Name, Group) when Name =/= [] ->
- %% Assume end of line
- Value = [],
- PP = make_prop_parm(Name, Value),
- Group2 = lists:reverse([PP | Group]),
- [Group2].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{parse_prop_value,3}]}).
--endif.
-parse_prop_value(Chars, Name, Group) ->
- Value = [],
- do_parse_prop_value(Chars, Name, Value, Group).
-
-do_parse_prop_value([Char | Rest], Name, Value, Group) ->
- if
- ?end_of_line(Char) ->
- %% Now we have a complete "name=value" pair
- PP = make_prop_parm(Name, Value),
- parse_prop_name(Rest, [PP | Group]);
- true ->
- do_parse_prop_value(Rest, Name, [Char | Value], Group)
- end;
-do_parse_prop_value([], Name, Value, Group) ->
- %% Assume end of line
- PP = make_prop_parm(Name, Value),
- Group2 = lists:reverse([PP | Group]),
- [Group2].
-
--ifdef(megaco_parser_inline).
--compile({inline,[{make_prop_parm,2}]}).
--endif.
-make_prop_parm(Name, Value) ->
- #'PropertyParm'{name = lists:reverse(Name),
- value = [lists:reverse(Value)]}.
-
--else. % -ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_prop_groups,1}]}).
--endif.
-ensure_prop_groups(Token) ->
- {_TokenTag, _Line, Groups} = Token,
- Groups.
-
-%% do_ensure_prop_groups(Groups) when is_list(Groups) ->
-%% [ensure_prop_group(Group) || Group <- Groups];
-%% do_ensure_prop_groups(BadGroups) ->
-%% throw({error, {?MODULE, {bad_property_groups, BadGroups}}}).
-
-%% -ifdef(megaco_parser_inline).
-%% -compile({inline,[{ensure_prop_group,1}]}).
-%% -endif.
-%% ensure_prop_group(Group) when is_list(Group) ->
-%% [ensure_prop_parm(PropParm) || PropParm <- Group];
-%% ensure_prop_group(BadGroup) ->
-%% throw({error, {?MODULE, {bad_property_group, BadGroup}}}).
-
-%% -ifdef(megaco_parser_inline).
-%% -compile({inline,[{ensure_prop_parm,1}]}).
-%% -endif.
-%% ensure_prop_parm(#property_parm{name = Name,
-%% value = Value}) ->
-%% #'PropertyParm'{name = Name,
-%% value = Value};
-%% ensure_prop_parm(PP) when is_record(PP, 'PropertyParm') ->
-%% PP;
-%% ensure_prop_parm(BadPropParm) ->
-%% throw({error, {?MODULE, {bad_property_parm, BadPropParm}}}).
-
--endif. % -ifdef(megaco_nscanner_props).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint,3}]}).
--endif.
-ensure_uint(Token, Min, Max) ->
- case Token of
- {_TokenTag, Line, Val} when is_integer(Val) ->
- ensure_uint(Val, Min, Max, Line);
- {_TokenTag, Line, Text} ->
- case (catch list_to_integer(Text)) of
- {'EXIT', _} ->
- return_error(Line, {not_an_integer, Text});
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, Line)
- end;
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, 0);
- Text ->
- case (catch list_to_integer(Text)) of
- {'EXIT', _} ->
- return_error(0, {not_an_integer, Text});
- Val when is_integer(Val) ->
- ensure_uint(Val, Min, Max, 0)
- end
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint,4}]}).
--endif.
--dialyzer({nowarn_function, ensure_uint/4}). % Future compat
-ensure_uint(Val, Min, Max, Line) ->
- if
- is_integer(Min) andalso (Val >= Min) ->
- if
- is_integer(Max) andalso (Val =< Max) ->
- Val;
- Max == infinity ->
- Val;
- true ->
- return_error(Line, {too_large_integer, Val, Max})
- end;
- true ->
- return_error(Line, {too_small_integer, Val, Min})
- end.
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint16,1}]}).
--endif.
-ensure_uint16(Int) ->
- ensure_uint(Int, 0, 65535).
-
--ifdef(megaco_parser_inline).
--compile({inline,[{ensure_uint32,1}]}).
--endif.
-ensure_uint32(Int) ->
- ensure_uint(Int, 0, 4294967295) .
-
-%% OTP-4710
-ensure_hex({_TokenTag, _Line, [$0, $x |Chars]}, Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex({_TokenTag, _Line, [$0, $X |Chars]}, Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex([$0, $x |Chars], Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []);
-ensure_hex([$0, $X |Chars], Min, Max) ->
- ensure_uint(length(Chars), Min, Max),
- hex_to_int(Chars, []).
-
-%% OTP-4710
-hex_to_int([], Acc) ->
- lists:reverse(Acc);
-hex_to_int([Char1,Char2|Tail], Acc) ->
- Int1 = hchar_to_int(Char1),
- Int2 = hchar_to_int(Char2),
- Val = Int2 bor (Int1 bsl 4),
- hex_to_int(Tail, [Val| Acc]);
-hex_to_int([Char], Acc) ->
- Int = hchar_to_int(Char),
- lists:reverse([Int|Acc]).
-
-hchar_to_int(Char) when ($0 =< Char) andalso (Char =< $9) ->
- Char - $0;
-hchar_to_int(Char) when ($A =< Char) andalso (Char =< $F) ->
- Char - $A + 10; % OTP-4710
-hchar_to_int(Char) when ($a =< Char) andalso (Char =< $f) ->
- Char - $a + 10. % OTP-4710
-
--ifdef(megaco_parser_inline).
--compile({inline,[{value_of,1}]}).
--endif.
-value_of(Token) ->
- {_TokenTag, _Line, Text} = Token,
- Text.
-
-
-%% -------------------------------------------------------------------
-
-%% d(F) ->
-%% d(F,[]).
-%% d(F, A) ->
-%% %% d(true, F, A).
-%% d(get(dbg), F, A).
-
-%% d(true, F, A) ->
-%% io:format("DBG:~w:" ++ F ++ "~n", [?MODULE | A]);
-%% d(_, _, _) ->
-%% ok.
-
diff --git a/lib/megaco/src/text/megaco_text_parser_prev3c.yrl b/lib/megaco/src/text/megaco_text_parser_prev3c.yrl
deleted file mode 100644
index 42188923a0..0000000000
--- a/lib/megaco/src/text/megaco_text_parser_prev3c.yrl
+++ /dev/null
@@ -1,1679 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2005-2020. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
-%%
-%%----------------------------------------------------------------------
-%% Purpose: YECC grammar for text encoding of Megaco/H.248
-%%
-%% DEPRECATED
-%% DEPRECATED
-%% DEPRECATED
-%%
-%%----------------------------------------------------------------------
-
-%%----------------------------------------------------------------------
-%% Annex B TEXT ENCODING OF THE PROTOCOL (NORMATIVE)
-%%
-%% B.1 Coding of wildcards
-%%
-%% In a text encoding of the protocol, while TerminationIDs are
-%% arbitrary, by judicious choice of names, the wildcard character, "*"
-%% may be made more useful. When the wildcard character is encountered,
-%% it will "match" all TerminationIDs having the same previous and
-%% following characters (if appropriate). For example, if there were
-%% TerminationIDs of R13/3/1, R13/3/2 and R13/3/3, the TerminationID
-%% R13/3/* would match all of them. There are some circumstances where
-%% ALL Terminations must be referred to. The TerminationID "*" suffices,
-%% and is referred to as ALL. The CHOOSE TerminationID "$" may be used to
-%% signal to the MG that it has to create an ephemeral Termination or
-%% select an idle physical Termination.
-%%
-%% B.2 ABNF specification
-%%
-%% The protocol syntax is presented in ABNF according to RFC2234. The
-%% protocol is not case sensitive. Identifiers are not case sensitive.
-%%
-%% NOTE 1 - This syntax specification does not enforce all restrictions
-%% on element inclusions and values. Some additional
-%% restrictions are stated in comments and other restrictions
-%% appear in the text of this Recommendation. These additional
-%% restrictions are part of the protocol even though not
-%% enforced by this Recommendation.
-%% NOTE 2 - The syntax is context-dependent. For example, "Add" can be
-%% the AddToken or a NAME depending on the context in which it
-%% occurs.
-%%
-%% Everything in the ABNF and text encoding is case insensitive. This
-%% includes TerminationIDs, digitmap Ids etc. SDP is case sensitive as
-%% per RFC 2327.
-%%
-%%----------------------------------------------------------------------
-
-%%----------------------------------------------------------------------
-%% Number of expected shift/reduce warnings
-%% This is ugly but...
-%%----------------------------------------------------------------------
-
-Expect 93.
-
-
-%%----------------------------------------------------------------------
-%% Non-terminals
-%%----------------------------------------------------------------------
-
-Nonterminals
-
- actionReply
- actionReplyBody
- actionReplyList
- actionRequest
- actionRequestBody
- actionRequestItem
- actionRequestItems
- actionRequestList
- alternativeValue
- ammParameter
- ammParameters
- ammRequest
- ammRequestBody
- ammToken
- ammsReply
- ammsReplyBody
- ammsToken
- auditDescriptor
- auditDescriptorBody
- auditItem
- auditItemList
- auditOther
- auditReply
- auditRequest
- auditReturnItem
- auditReturnParameter
- auditReturnParameterList
- auditSelectLogic %% v3
- authenticationHeader
- commandReplyList
- commandReplys %% v3
- commandRequest
- contextAttrDescriptor %% v3
- contextAudit
- contextAuditProperties
- contextAuditProperty
- contextAuditSelector %% v3
- contextID
- contextIdList %% v3
- contextIDs %% v3
-%% contextProperties %% v3
- contextProperty
-%% contextPropertyList
- contextTerminationAudit
- daddr
- deviceName
- digitMapDescriptor
- direction %% v3
- domainAddress
- domainName
- embedFirst
- embedNoSig
- embedSig
- embedWithSig
- emergencyValue %% v3
- errorCode
- errorDescriptor
- errorText
- eventBufferControl
- eventBufferControlValue %% v3
- eventBufferDescriptor
- eventDM
- eventParameter
- eventParameterName
- eventParameters
- eventSpec
- eventSpecList
- eventStream
- eventStreamOrOther
- eventsDescriptor
- extension
- extensionParameter
-
- iaServiceStates %% v3
- iepsValue
-
- %% v2 - start
- indAudauditReturnParameter
- indAuddigitMapDescriptor
- indAudeventBufferDescriptor
- indAudeventSpec
- indAudeventSpecParameter
- %% indAudeventSpecParameterList
- indAudeventsDescriptor
- indAudlocalControlDescriptor
- indAudlocalParm
- indAudlocalParmList
- indAudmediaDescriptor
- indAudmediaParm
- indAudmediaParms %% v3
- %% indAudmediaParmList
- indAudpackagesDescriptor
- indAudrequestedEvent
- indAudsignalsDescriptor
- indAudsignalList
- %% indAudsignalListParm
- indAudsignalParm
- %% indAudsignalRequest
- indAudstreamDescriptor
- indAudstreamParm
- indAudstatisticsDescriptor
- indAudterminationAudit
- indAudterminationAuditList
- indAudterminationStateDescriptor
- indAudterminationStateParm
- %% indAudterminationStateParmList
- optIndAudeventSpecParameter
- optIndAudsignalParm
- %% v2 - end
-
- indAudcontextAttrDescriptor %% v3
-
- localControlDescriptor
- localParm
- localParmList
- mId
- mediaDescriptor
- mediaParm
- mediaParmList
- megacoMessage
- message
- messageBody
- modemDescriptor % Deprecated as of Corr 1
- modemType % Deprecated as of Corr 1
- modemTypeList % Deprecated as of Corr 1
- mtpAddress
- muxDescriptor
- muxType
- notificationReason
- notificationReasons
- notifyBehaviour %% v3
- notifyRegulated %% v3
- notifyReply
- notifyReplyBody
- notifyRequest
- notifyRequestBody
- observedEvent
- observedEventBody
- observedEventParameter
- observedEventParameters
- % observedEventTimeStamp
- observedEvents
- observedEventsDescriptor
- onOrOff
- optAuditDescriptor
- optImmAckRequired
- optPropertyParms
- optSep
- packagesDescriptor
- packagesItem
- packagesItems
- %% parmName
- parmValue
- pathName
- pkgdName
- portNumber
- priority
- propertyParm
- propertyParms
- propertyParmList
- requestID
- requestedEvent
- requestedEventBody
- requestedEvents
- safeToken
- safeToken2
- secondEventParameter
- secondEventParameters
- secondRequestedEvent
- secondRequestedEventBody
- secondRequestedEvents
- servChgReplyParm
- servChgReplyParms
- serviceChangeAddress
- serviceChangeDelay
- serviceChangeDescriptor
- serviceChangeMethod
- serviceChangeMgcId
- serviceChangeParm
- serviceChangeParms
- serviceChangeProfile
- serviceChangeReason
- serviceChangeReply
- serviceChangeReplyBody
- serviceChangeReplyDescriptor
- serviceChangeRequest
- serviceChangeVersion
- serviceStates
- serviceStatesValue %% v3
- sigParameter
- sigParameters
- signalList
- signalListId
- signalListParm
- signalListParms
- signalName
- signalParm
- signalParms
- signalRequest
- signalsDescriptor
- signalType
- statisticsDescriptor
- statisticsParameter
- statisticsParameters
- streamDescriptor
- streamID
- streamModes
- streamParm
- streamParmList
- subtractRequest
- termIDList %% v3
- terminationAudit
- terminationID
- terminationIDList
- terminationIDListRepeat
- terminationStateDescriptor
- terminationStateParm
- terminationStateParms
- timeStamp
- topologyDescriptor
- topologyDirection
- topologyDescComp
- topologyDescCompList
- transactionAck
- transactionAckList
- transactionID
- transactionItem
- transactionList
- transactionPending
- transactionReply
- transactionReplyBody
- transactionRequest
- transactionResponseAck
- value
- valueList
-
-.
-
-%%----------------------------------------------------------------------
-%% Terminals
-%%----------------------------------------------------------------------
-
-Terminals
-
- 'AddToken'
- 'AndAUDITselectToken' %% v3
- 'AuditCapToken'
- 'AuditToken'
- 'AuditValueToken'
- 'AuthToken'
- 'BothToken' %% v3
- 'BothwayToken'
- 'BriefToken'
- 'BufferToken'
- 'COLON'
- 'COMMA'
- 'ContextAttrToken' %% v3
- 'ContextAuditToken'
- 'ContextListToken' %% v3
- 'CtxToken'
- 'DelayToken'
- 'DigitMapToken'
- 'DigitMapDescriptorToken'
- 'DirectionToken' %% v3
- 'DiscardToken'
- 'DisconnectedToken'
- 'DurationToken'
- 'EQUAL'
- 'EmbedToken'
- 'EmergencyToken'
- 'EmergencyOffToken'
- 'EmergencyValueToken' %% v3
- 'ErrorToken'
- 'EventBufferToken'
- 'EventsToken'
- 'ExternalToken' %% v3
- 'FailoverToken'
- 'ForcedToken'
- 'GREATER'
- 'GracefulToken'
- 'H221Token'
- 'H223Token'
- 'H226Token'
- 'HandOffToken'
- 'IEPSToken' %% v3
- 'ImmAckRequiredToken'
- 'INEQUAL' %% v3
- 'InSvcToken'
- 'InactiveToken'
- 'InternalToken' %% v3
- 'InterruptByEventToken'
- 'InterruptByNewSignalsDescrToken'
- 'IntsigDelayToken' %% v3
- 'IsolateToken'
- 'IterationToken' %% v3
- 'KeepActiveToken'
- 'LBRKT'
- 'LESSER'
- 'LSBRKT'
- 'LocalControlToken'
- 'LocalDescriptorToken'
- 'LockStepToken'
- 'LoopbackToken'
- 'MediaToken'
- %% 'MegacopToken'
- 'MethodToken'
- 'MgcIdToken'
- 'ModeToken'
- 'ModemToken'
- 'ModifyToken'
- 'MoveToken'
- 'MtpAddressToken'
- 'MuxToken'
- 'NEQUAL'
- 'NeverNotifyToken' %% v3
- 'NotifyCompletionToken'
- 'NotifyImmediateToken' %% v3
- 'NotifyRegulatedToken' %% v3
- 'NotifyToken'
- 'Nx64Token' %% v2
- 'ObservedEventsToken'
- 'OffToken'
- 'OnToken'
- 'OnOffToken'
- 'OnewayToken'
- 'OnewayExternalToken' %% v3
- 'OnewayBothToken' %% v3
- 'OrAUDITselectToken' %% v3
- 'OtherReasonToken'
- 'OutOfSvcToken'
- 'PackagesToken'
- 'PendingToken'
- 'PriorityToken'
- 'ProfileToken'
- 'QuotedChars'
- 'RBRKT'
- 'RSBRKT'
- 'ReasonToken'
- 'RecvonlyToken'
- 'RemoteDescriptorToken'
- 'ReplyToken'
- 'RequestIDToken' %% v3
- 'ReservedGroupToken'
- 'ReservedValueToken'
- 'ResetEventsDescriptorToken' %% v3
- 'ResponseAckToken'
- 'RestartToken'
- 'SEP'
- 'SafeChars'
- 'SendonlyToken'
- 'SendrecvToken'
- 'ServiceChangeAddressToken'
- 'ServiceChangeToken'
- 'ServiceChangeIncompleteToken'
- 'ServiceStatesToken'
- 'ServicesToken'
- 'SignalListToken'
- 'SignalTypeToken'
- 'SignalsToken'
- 'StatsToken'
- 'StreamToken'
- 'SubtractToken'
- 'SynchISDNToken'
- 'TerminationStateToken'
- 'TestToken'
- 'TimeOutToken'
- 'TimeStampToken'
- 'TopologyToken'
- 'TransToken'
- 'V18Token'
- 'V22Token'
- 'V22bisToken'
- 'V32Token'
- 'V32bisToken'
- 'V34Token'
- 'V76Token'
- 'V90Token'
- 'V91Token'
- 'VersionToken'
- 'MessageSegmentToken' %% OTP-7534: v3-fix
- 'SegmentationCompleteToken' %% OTP-7534: v3-fix
- endOfMessage
-
-.
-
-%%----------------------------------------------------------------------
-%% Root symbol
-%%----------------------------------------------------------------------
-
-Rootsymbol megacoMessage.
-
-%%----------------------------------------------------------------------
-%% The grammar
-%%----------------------------------------------------------------------
-
-%% megacoMessage = LWSP [authenticationHeader SEP ] message
-%% authenticationHeader = AuthToken EQUAL SecurityParmIndex COLON
-%% SequenceNum COLON AuthData
-%%
-%% SecurityParmIndex = "0x" 8(HEXDIG)
-%% SequenceNum = "0x" 8(HEXDIG)
-%% AuthData = "0x" 24*64(HEXDIG)
-%% message = MegacopToken SLASH version SEP mId SEP messageBody
-%% version = 1*2(DIGIT) .
-
-megacoMessage -> optSep authenticationHeader message endOfMessage
- : #'MegacoMessage'{authHeader = '$2', mess = '$3'} .
-
-optSep -> 'SEP' : sep .
-optSep -> '$empty' : no_sep .
-
-authenticationHeader -> 'AuthToken' 'EQUAL' safeToken 'COLON'
- safeToken 'COLON' safeToken optSep
- : ensure_auth_header('$3', '$5', '$7') .
-authenticationHeader -> '$empty' : asn1_NOVALUE .
-
-message -> safeToken mId messageBody :
- ensure_message('$1', '$2', '$3') .
-
-messageBody -> errorDescriptor : {messageError, '$1'} .
-messageBody -> transactionList : {transactions, '$1'} .
-
-transactionList -> transactionItem : ['$1'] .
-transactionList -> transactionItem transactionList : ['$1' | '$2'] .
-
-transactionItem -> transactionRequest : {transactionRequest, '$1'} .
-transactionItem -> transactionReply : {transactionReply, '$1'}.
-transactionItem -> transactionPending : {transactionPending, '$1'} .
-transactionItem -> transactionResponseAck : {transactionResponseAck, '$1'} .
-
-transactionResponseAck -> 'ResponseAckToken'
- 'LBRKT' transactionAck
- transactionAckList 'RBRKT' : ['$3' | '$4'] .
-
-transactionAckList -> 'COMMA' transactionAck
- transactionAckList : ['$2' | '$3'] .
-transactionAckList -> '$empty' : [] .
-
-transactionAck -> safeToken : ensure_transactionAck('$1') .
-
-transactionPending -> 'PendingToken' 'EQUAL' transactionID 'LBRKT' 'RBRKT' :
- #'TransactionPending'{transactionId = ensure_transactionID('$3') } .
-
-transactionRequest -> 'TransToken' 'LBRKT' actionRequest
- actionRequestList 'RBRKT' :
- #'TransactionRequest'{transactionId = asn1_NOVALUE,
- actions = ['$3' | '$4']} .
-transactionRequest -> 'TransToken' 'EQUAL' 'LBRKT' actionRequest
- actionRequestList 'RBRKT' :
- #'TransactionRequest'{transactionId = asn1_NOVALUE,
- actions = ['$4' | '$5']} .
-transactionRequest -> 'TransToken' 'EQUAL' transactionID
- 'LBRKT' actionRequest actionRequestList 'RBRKT' :
- #'TransactionRequest'{transactionId = ensure_transactionID('$3'),
- actions = ['$5' | '$6']} .
-
-actionRequestList -> 'COMMA' actionRequest actionRequestList : ['$2' | '$3'] .
-actionRequestList -> '$empty' : [] .
-
-%% actionRequest = CtxToken EQUAL ContextID LBRKT ((contextRequest
-%% [COMMA commandRequestList]) /
-%% commandRequestList) RBRKT
-%% contextRequest = ((contextProperties [COMMA contextAudit]) /
-%% contextAudit)
-%% contextProperties = contextProperty *(COMMA contextProperty)
-
-actionRequest -> 'CtxToken' 'EQUAL' contextID
- 'LBRKT' actionRequestBody 'RBRKT' :
- merge_action_request('$3', '$5') .
-
-actionRequestBody -> actionRequestItem actionRequestItems : ['$1' | '$2'] .
-
-actionRequestItems -> 'COMMA' actionRequestItem
- actionRequestItems : ['$2' | '$3'] .
-actionRequestItems -> '$empty' : [] .
-
-actionRequestItem -> contextProperty : {contextProp, '$1'} .
-actionRequestItem -> contextAudit : {contextAudit, '$1'} .
-actionRequestItem -> commandRequest : {commandRequest, '$1'} .
-
-
-%% at-most-once (presumebly in contextProperties)
-contextProperty -> topologyDescriptor : {topology, '$1'}.
-contextProperty -> priority : {priority, '$1'}.
-contextProperty -> 'EmergencyToken' : {emergency, true}.
-contextProperty -> 'EmergencyOffToken' : {emergency, false}.
-contextProperty -> iepsValue : {iepsCallind, '$1'} .
-contextProperty -> contextAttrDescriptor : '$1' .
-
-contextAttrDescriptor -> 'ContextAttrToken' 'LBRKT' propertyParms 'RBRKT' :
- {contextProp, '$3'}.
-contextAttrDescriptor -> 'ContextAttrToken' 'LBRKT' contextIdList 'RBRKT' :
- {contextList, '$3'}.
-
-contextIdList -> 'ContextListToken' 'EQUAL'
- 'LBRKT' contextID contextIDs 'RBRKT' : ['$4' | '$5'] .
-
-contextIDs -> 'COMMA' contextID contextIDs : ['$2' | '$3'] .
-contextIDs -> '$empty' : [] .
-
-contextAudit -> 'ContextAuditToken' 'LBRKT'
- indAudcontextAttrDescriptor 'RBRKT' :
- merge_context_attr_audit_request(
- #'ContextAttrAuditRequest'{}, '$3') .
-contextAudit -> 'ContextAuditToken' 'LBRKT'
- contextAuditProperty contextAuditProperties 'RBRKT' :
- merge_context_attr_audit_request(
- #'ContextAttrAuditRequest'{}, ['$3' | '$4']) .
-
-indAudcontextAttrDescriptor -> 'ContextAttrToken'
- 'LBRKT' contextAuditProperty
- contextAuditProperties 'RBRKT'
- : ['$3' | '$4'] .
-
-contextAuditProperties -> 'COMMA' contextAuditProperty contextAuditProperties
- : ['$2' | '$3'] .
-contextAuditProperties -> '$empty' : [] .
-
-%% at-most-once except contextAuditSelector.
-contextAuditProperty -> 'TopologyToken' : topologyAudit .
-contextAuditProperty -> 'EmergencyToken' : emergencyAudit .
-contextAuditProperty -> 'PriorityToken' : priorityAudit .
-contextAuditProperty -> 'IEPSToken' : iepsCallind .
-contextAuditProperty -> pkgdName : {prop, '$1'} .
-contextAuditProperty -> contextAuditSelector : '$1' .
-
-%% at-most-once
-contextAuditSelector -> priority : {select_prio, '$1'} .
-contextAuditSelector -> emergencyValue : {select_emergency, '$1'} .
-contextAuditSelector -> iepsValue : {select_ieps, '$1'} .
-contextAuditSelector -> auditSelectLogic : {select_logic, '$1'} .
-contextAuditSelector -> contextAttrDescriptor : '$1' .
-
-auditSelectLogic -> 'AndAUDITselectToken' : {andAUDITSelect, 'NULL'} .
-auditSelectLogic -> 'OrAUDITselectToken' : {orAUDITSelect, 'NULL'} .
-
-commandRequest -> ammRequest : '$1'.
-commandRequest -> subtractRequest : '$1'.
-commandRequest -> auditRequest : '$1'.
-commandRequest -> notifyRequest : '$1'.
-commandRequest -> serviceChangeRequest : '$1'.
-
-transactionReply -> 'ReplyToken' 'EQUAL' transactionID
- 'LBRKT'
- optImmAckRequired transactionReplyBody
- 'RBRKT'
- : #'TransactionReply'{transactionId = '$3',
- immAckRequired = '$5',
- transactionResult = '$6'} .
-
-optImmAckRequired -> 'ImmAckRequiredToken' 'COMMA' : 'NULL' .
-optImmAckRequired -> '$empty' : asn1_NOVALUE .
-
-transactionReplyBody -> errorDescriptor : {transactionError, '$1'} .
-transactionReplyBody -> actionReply actionReplyList : {actionReplies, ['$1' | '$2']} .
-
-actionReplyList -> 'COMMA' actionReply actionReplyList : ['$2' | '$3'] .
-actionReplyList -> '$empty' : [] .
-
-actionReply -> 'CtxToken' 'EQUAL' contextID
- 'LBRKT' actionReplyBody 'RBRKT' :
- setelement(#'ActionReply'.contextId, '$5', '$3') .
-actionReply -> 'CtxToken' 'EQUAL' contextID :
- #'ActionReply'{contextId = '$3'} .
-
-actionReplyBody -> errorDescriptor :
- #'ActionReply'{errorDescriptor = '$1'} .
-actionReplyBody -> commandReplys commandReplyList :
- merge_action_reply(['$1' | '$2']) .
-
-%% OTP-5085
-%% This ugly thing is to fool the parser. The errorDescriptor does not
-%% realy belong here. The merge_action_reply will remove it and put it
-%% in it's right place later.
-commandReplyList -> 'COMMA' errorDescriptor :
- [{error, '$2'}] .
-commandReplyList -> 'COMMA' commandReplys commandReplyList :
- ['$2' | '$3'] .
-commandReplyList -> '$empty' : [] .
-
-commandReplys -> serviceChangeReply : {command, '$1'} .
-commandReplys -> auditReply : {command, '$1'} .
-commandReplys -> ammsReply : {command, '$1'} .
-commandReplys -> notifyReply : {command, '$1'} .
-commandReplys -> contextProperty : {context, '$1'} .
-
-%Add Move and Modify have the same request parameter
-ammRequest -> ammToken 'EQUAL' termIDList ammRequestBody :
- Descs = merge_AmmRequest_descriptors('$4', []),
- make_commandRequest('$1',
- #'AmmRequest'{terminationID = '$3',
- descriptors = Descs}) .
-
-ammToken -> 'AddToken' : {addReq, '$1'} .
-ammToken -> 'MoveToken' : {moveReq, '$1'} .
-ammToken -> 'ModifyToken' : {modReq, '$1'} .
-
-ammRequestBody -> 'LBRKT' ammParameter ammParameters 'RBRKT' : ['$2' | '$3'] .
-ammRequestBody -> '$empty' : [] .
-
-ammParameters -> 'COMMA' ammParameter ammParameters : ['$2' | '$3'] .
-ammParameters -> '$empty' : [] .
-
-%at-most-once
-ammParameter -> mediaDescriptor : {mediaDescriptor, '$1'}.
-ammParameter -> modemDescriptor : {modemDescriptor, deprecated}.
-ammParameter -> muxDescriptor : {muxDescriptor, '$1'}.
-ammParameter -> eventsDescriptor : {eventsDescriptor, '$1'}.
-ammParameter -> eventBufferDescriptor : {eventBufferDescriptor, '$1'}.
-ammParameter -> signalsDescriptor : {signalsDescriptor, '$1'}.
-ammParameter -> digitMapDescriptor : {digitMapDescriptor, '$1'}.
-ammParameter -> auditDescriptor : {auditDescriptor, '$1'}.
-ammParameter -> statisticsDescriptor : {statisticsDescriptor, '$1'}.
-
-ammsReply -> ammsToken 'EQUAL' termIDList ammsReplyBody
- : {'$1', #'AmmsReply'{terminationID = '$3',
- terminationAudit = '$4'}} .
-
-ammsToken -> 'AddToken' : addReply .
-ammsToken -> 'MoveToken' : moveReply .
-ammsToken -> 'ModifyToken' : modReply .
-ammsToken -> 'SubtractToken' : subtractReply .
-
-ammsReplyBody -> 'LBRKT' terminationAudit 'RBRKT' : '$2' .
-ammsReplyBody -> '$empty' : asn1_NOVALUE .
-
-subtractRequest -> 'SubtractToken' 'EQUAL' termIDList optAuditDescriptor :
- SR = #'SubtractRequest'{terminationID = '$3',
- auditDescriptor = '$4'},
- make_commandRequest({subtractReq, '$1'}, SR) .
-
-
-optAuditDescriptor -> 'LBRKT' auditDescriptor 'RBRKT' : '$2'.
-optAuditDescriptor -> '$empty' : asn1_NOVALUE .
-
-auditRequest -> 'AuditValueToken' 'EQUAL' termIDList optAuditDescriptor :
- make_commandRequest({auditValueRequest, '$1'},
- make_auditRequest('$3', '$4')) .
-auditRequest -> 'AuditCapToken' 'EQUAL' termIDList optAuditDescriptor :
- make_commandRequest({auditCapRequest, '$1'},
- make_auditRequest('$3', '$4')) .
-
-auditReply -> 'AuditValueToken' 'EQUAL' 'CtxToken' contextTerminationAudit :
- {auditValueReply, '$4'} .
-auditReply -> 'AuditCapToken' 'EQUAL' 'CtxToken' contextTerminationAudit :
- {auditCapReply, '$4'} .
-auditReply -> 'AuditValueToken' 'EQUAL' auditOther :
- {auditValueReply, '$3'} .
-auditReply -> 'AuditCapToken' 'EQUAL' auditOther :
- {auditCapReply, '$3'} .
-
-contextTerminationAudit -> terminationIDList :
- {contextAuditResult, '$1'} .
-contextTerminationAudit -> 'LBRKT' errorDescriptor 'RBRKT' :
- {error, '$2'} .
-
-auditOther -> termIDList :
- merge_auditOther('$1', []) .
-auditOther -> termIDList 'LBRKT' terminationAudit 'RBRKT' :
- merge_auditOther('$1', '$3') .
-
-
-terminationAudit -> auditReturnParameter auditReturnParameterList :
- merge_terminationAudit(['$1' |'$2' ]) .
-
-auditReturnParameterList -> 'COMMA' auditReturnParameter auditReturnParameterList : ['$2' | '$3'] .
-auditReturnParameterList -> '$empty' : [] .
-
-auditReturnParameter -> mediaDescriptor : {mediaDescriptor, '$1'} .
-auditReturnParameter -> modemDescriptor.
-auditReturnParameter -> muxDescriptor : {muxDescriptor, '$1'} .
-auditReturnParameter -> eventsDescriptor : {eventsDescriptor, '$1'} .
-auditReturnParameter -> signalsDescriptor : {signalsDescriptor, '$1'} .
-auditReturnParameter -> digitMapDescriptor : {digitMapDescriptor, '$1'} .
-auditReturnParameter -> observedEventsDescriptor : {observedEventsDescriptor, '$1'} .
-auditReturnParameter -> eventBufferDescriptor : {eventBufferDescriptor, '$1'} .
-auditReturnParameter -> statisticsDescriptor : {statisticsDescriptor, '$1'} .
-auditReturnParameter -> packagesDescriptor : {packagesDescriptor, '$1'} .
-auditReturnParameter -> errorDescriptor : {errorDescriptor, '$1'} .
-auditReturnParameter -> auditReturnItem : {auditReturnItem, '$1'} .
-
-auditDescriptor -> 'AuditToken' 'LBRKT' auditDescriptorBody 'RBRKT' :
- merge_auditDescriptor('$3') .
-
-auditDescriptorBody -> auditItem auditItemList : ['$1' | '$2'].
-auditDescriptorBody -> '$empty' : asn1_NOVALUE .
-
-auditItemList -> 'COMMA' auditItem auditItemList : ['$2' | '$3'] .
-auditItemList -> '$empty' : [] .
-
-%% IGv11 - begin
-%%
-auditReturnItem -> 'MuxToken' : muxToken .
-auditReturnItem -> 'ModemToken' : modemToken .
-auditReturnItem -> 'MediaToken' : mediaToken .
-auditReturnItem -> 'DigitMapToken' : digitMapToken .
-auditReturnItem -> 'StatsToken' : statsToken .
-auditReturnItem -> 'ObservedEventsToken' : observedEventsToken .
-auditReturnItem -> 'PackagesToken' : packagesToken .
-
-%% at-most-once, and DigitMapToken and PackagesToken are not allowed
-%% in AuditCapabilities command
-auditItem -> auditReturnItem : '$1' .
-auditItem -> 'SignalsToken' : signalsToken.
-auditItem -> 'EventBufferToken' : eventBufferToken.
-auditItem -> 'EventsToken' : eventsToken .
-auditItem -> indAudterminationAudit : {terminationAudit, '$1'} . % v2
-%%
-%% IGv11 - end
-
-
-%% v2 - start
-%%
-indAudterminationAudit -> indAudauditReturnParameter
- indAudterminationAuditList
- : ['$1' | '$2'] .
-
-indAudterminationAuditList -> 'COMMA' indAudauditReturnParameter
- indAudterminationAuditList
- : ['$2' | '$3'] .
-indAudterminationAuditList -> '$empty' : [] .
-
-indAudauditReturnParameter -> indAudmediaDescriptor
- : {indAudMediaDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudeventsDescriptor
- : {indAudEventsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudsignalsDescriptor
- : {indAudSignalsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAuddigitMapDescriptor
- : {indAudDigitMapDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudeventBufferDescriptor
- : {indAudEventBufferDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudstatisticsDescriptor
- : {indAudStatisticsDescriptor, '$1'} .
-indAudauditReturnParameter -> indAudpackagesDescriptor
- : {indAudPackagesDescriptor, '$1'} .
-
-
-indAudmediaDescriptor -> 'MediaToken' 'LBRKT'
- indAudmediaParm indAudmediaParms 'RBRKT'
- : merge_indAudMediaDescriptor(['$3'|'$4']) .
-
-%% at-most-once per item
-%% and either streamParm or streamDescriptor but not both
-%%
-
-indAudmediaParm -> indAudstreamParm : {streamParm, '$1'} .
-indAudmediaParm -> indAudstreamDescriptor : {streamDescr, '$1'} .
-indAudmediaParm -> indAudterminationStateDescriptor : {termStateDescr, '$1'} .
-
-indAudmediaParms -> 'COMMA' indAudmediaParm indAudmediaParms : ['$2' | '$3'] .
-indAudmediaParms -> '$empty' : [] .
-
-%% at-most-once
-indAudstreamParm -> 'RemoteDescriptorToken' :
- RD = ensure_prop_groups('$1'),
- #'IndAudStreamParms'{remoteDescriptor = RD} .
-indAudstreamParm -> 'LocalDescriptorToken' :
- LD = ensure_prop_groups('$1'),
- #'IndAudStreamParms'{localDescriptor = LD} .
-indAudstreamParm -> indAudlocalControlDescriptor :
- #'IndAudStreamParms'{localControlDescriptor = '$1'} .
-indAudstreamParm -> indAudstatisticsDescriptor :
- #'IndAudStreamParms'{statisticsDescriptor = '$1'} .
-
-indAudstreamDescriptor -> 'StreamToken' 'EQUAL' streamID
- 'LBRKT' indAudstreamParm 'RBRKT'
- : #'IndAudStreamDescriptor'{streamID = '$3',
- streamParms = '$5'} .
-
-
-indAudlocalControlDescriptor -> 'LocalControlToken'
- 'LBRKT' indAudlocalParm
- indAudlocalParmList 'RBRKT' :
- merge_indAudLocalControlDescriptor(['$3' | '$4']) .
-
-indAudlocalParmList -> 'COMMA' indAudlocalParm
- indAudlocalParmList : ['$2' | '$3'] .
-indAudlocalParmList -> '$empty' : [] .
-
-%% at-most-once per item
-%%
-%% propertyparm and streamModes are used only to specify audit selection
-%% criteria. AND/OR selection logic is specified at context level.
-%%
-indAudlocalParm -> 'ReservedGroupToken' : reservedGroupToken .
-indAudlocalParm -> 'ReservedValueToken' : reservedValueToken .
-indAudlocalParm -> 'ModeToken' : modeToken .
-indAudlocalParm -> 'ModeToken' 'EQUAL' streamModes : {mode, {equal, '$3'}} .
-indAudlocalParm -> 'ModeToken' 'INEQUAL' streamModes : {mode, {inequal,'$3'}} .
-indAudlocalParm -> propertyParm : {prop, '$1'} .
-indAudlocalParm -> pkgdName : {name, '$1'} .
-
-indAudterminationStateDescriptor -> 'TerminationStateToken'
- 'LBRKT' indAudterminationStateParm 'RBRKT'
- :
- merge_indAudTerminationStateDescriptor('$3') .
-
-%% at-most-once per item
-%%
-
-%% at-most-once per item except for propertyParm
-indAudterminationStateParm -> iaServiceStates : '$1' .
-indAudterminationStateParm -> 'BufferToken' : bufferToken .
-indAudterminationStateParm -> propertyParm : {prop, '$1'} .
-indAudterminationStateParm -> pkgdName : {name, '$1'} .
-
-iaServiceStates -> 'ServiceStatesToken' :
- serviceStatesToken .
-iaServiceStates -> 'ServiceStatesToken' 'EQUAL' serviceStatesValue :
- {serviceStates, {equal, '$3'}} .
-iaServiceStates -> 'ServiceStatesToken' 'INEQUAL' serviceStatesValue :
- {serviceStates, {inequal, '$3'}} .
-
-indAudeventBufferDescriptor -> 'EventBufferToken'
- 'LBRKT' indAudeventSpec 'RBRKT' : '$3' .
-
-indAudeventSpec -> pkgdName optIndAudeventSpecParameter
- : merge_indAudEventBufferDescriptor('$1','$2') .
-
-optIndAudeventSpecParameter -> 'LBRKT' indAudeventSpecParameter 'RBRKT'
- : '$2' .
-optIndAudeventSpecParameter -> '$empty' : asn1_NOVALUE .
-
-
-indAudeventSpecParameter -> eventStream : {streamID, '$1'} .
-indAudeventSpecParameter -> eventParameterName : {eventParameterName, '$1'} .
-
-indAudeventsDescriptor -> 'EventsToken' 'LBRKT' indAudrequestedEvent 'RBRKT' :
- #'IndAudEventsDescriptor'{pkgdName = '$3'} .
-indAudeventsDescriptor -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' indAudrequestedEvent 'RBRKT' :
- #'IndAudEventsDescriptor'{requestID = '$3',
- pkgdName = '$5'} .
-
-indAudrequestedEvent -> pkgdName : '$1' .
-
-
-indAudsignalsDescriptor -> 'SignalsToken' optIndAudsignalParm : '$2' .
-
-
-optIndAudsignalParm -> 'LBRKT' 'RBRKT' : asn1_NOVALUE .
-optIndAudsignalParm -> 'LBRKT' indAudsignalParm 'RBRKT' : '$2' .
-
-indAudsignalParm -> indAudsignalList : {seqSigList, '$1'} .
-indAudsignalParm -> signalRequest : {signal, ensure_indAudSignal('$1')} .
-
-indAudsignalList -> 'SignalListToken' 'EQUAL' signalListId :
- #'IndAudSeqSigList'{id = ensure_uint16('$3')} .
-indAudsignalList -> 'SignalListToken' 'EQUAL' signalListId
- 'LBRKT' signalListParm 'RBRKT' :
- #'IndAudSeqSigList'{id = ensure_uint16('$3'),
- signalList =
- ensure_indAudSignalListParm('$5')} .
-
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-indAuddigitMapDescriptor -> 'DigitMapDescriptorToken' :
- ensure_IADMD('$1') .
-
-indAudstatisticsDescriptor -> 'StatsToken' 'LBRKT' pkgdName 'RBRKT' :
- #'IndAudStatisticsDescriptor'{statName = '$3'} .
-
-indAudpackagesDescriptor -> 'PackagesToken' 'LBRKT' packagesItem 'RBRKT'
- : merge_indAudPackagesDescriptor('$3') .
-
-eventStream -> 'StreamToken' 'EQUAL' streamID : '$3' .
-
-
-%%
-%% v2 - end
-
-notifyRequest -> 'NotifyToken' 'EQUAL' termIDList
- 'LBRKT' notifyRequestBody 'RBRKT' :
- NR = setelement(#'NotifyRequest'.terminationID,
- '$5', '$3'),
- make_commandRequest({notifyReq, '$1'}, NR) .
-
-notifyRequestBody -> observedEventsDescriptor :
- #'NotifyRequest'{observedEventsDescriptor = '$1'}.
-notifyRequestBody -> errorDescriptor :
- #'NotifyRequest'{errorDescriptor = '$1'}.
-
-notifyReply -> 'NotifyToken' 'EQUAL' termIDList notifyReplyBody :
- {notifyReply, #'NotifyReply'{terminationID = '$3',
- errorDescriptor = '$4'}} .
-
-notifyReplyBody -> 'LBRKT' errorDescriptor 'RBRKT' : '$2'.
-notifyReplyBody -> '$empty' : asn1_NOVALUE .
-
-serviceChangeRequest -> 'ServiceChangeToken' 'EQUAL' termIDList
- 'LBRKT' serviceChangeDescriptor 'RBRKT' :
- make_commandRequest({serviceChangeReq, '$1'},
- #'ServiceChangeRequest'{terminationID = '$3',
- serviceChangeParms = '$5'}) .
-
-serviceChangeReply -> 'ServiceChangeToken' 'EQUAL' termIDList
- serviceChangeReplyBody :
- {serviceChangeReply,
- #'ServiceChangeReply'{terminationID = '$3',
- serviceChangeResult = '$4'}} .
-
-serviceChangeReplyBody -> 'LBRKT' errorDescriptor 'RBRKT' :
- {errorDescriptor, '$2'} .
-serviceChangeReplyBody -> 'LBRKT' serviceChangeReplyDescriptor 'RBRKT' :
- {serviceChangeResParms, '$2'} .
-serviceChangeReplyBody -> '$empty' :
- {serviceChangeResParms, #'ServiceChangeResParm'{}}.
-
-errorDescriptor -> 'ErrorToken' 'EQUAL' errorCode 'LBRKT'
- errorText 'RBRKT' :
- #'ErrorDescriptor'{errorCode = '$3',
- errorText = '$5'} .
-
-errorCode -> safeToken : ensure_uint('$1', 0, 999) .
-
-errorText -> 'QuotedChars' : value_of('$1') .
-errorText -> '$empty' : asn1_NOVALUE .
-
-transactionID -> safeToken : ensure_uint32('$1') .
-
-mId -> domainName : '$1' .
-mId -> domainAddress : '$1' .
-mId -> optSep mtpAddress optSep : '$2' .
-mId -> optSep deviceName optSep : '$2' .
-
-domainName -> 'LESSER' safeToken 'GREATER' 'COLON' portNumber optSep
- : ensure_domainName('$2', '$5') .
-domainName -> 'LESSER' safeToken 'GREATER'
- : ensure_domainName('$2', asn1_NOVALUE) .
-
-deviceName -> pathName : {deviceName, '$1'} .
-
-%% '-' is used for NULL context
-contextID -> safeToken : ensure_contextID('$1') .
-
-domainAddress -> 'LSBRKT' daddr 'RSBRKT' 'COLON' portNumber optSep
- : ensure_domainAddress('$2', '$5') .
-domainAddress -> 'LSBRKT' daddr 'RSBRKT'
- : ensure_domainAddress('$2', asn1_NOVALUE) .
-
-daddr -> '$empty' : [] .
-daddr -> 'COLON' daddr : [colon| '$2'] .
-daddr -> safeToken daddr : ['$1'| '$2'] .
-
-
-portNumber -> safeToken : ensure_uint16('$1') .
-
-mtpAddress -> 'MtpAddressToken' : ensure_mtpAddress('$1') .
-
-termIDList -> terminationID : ['$1'] .
-termIDList -> LSBRKT terminationID terminationIDListRepeat RSBRKT :
- ['$2' | '$3'] .
-
-terminationIDList -> 'LBRKT' terminationID terminationIDListRepeat 'RBRKT' :
- ['$2' | '$3'] .
-
-terminationIDListRepeat -> 'COMMA' terminationID terminationIDListRepeat :
- ['$2'| '$3'] .
-terminationIDListRepeat -> '$empty' : [] .
-
-
-pathName -> safeToken : ensure_pathName('$1') .
-
-terminationID -> safeToken : ensure_terminationID('$1') .
-
-mediaDescriptor -> 'MediaToken' 'LBRKT' mediaParm mediaParmList 'RBRKT'
- : merge_mediaDescriptor(['$3' | '$4']) .
-
-mediaParmList -> 'COMMA' mediaParm mediaParmList : ['$2' | '$3'] .
-mediaParmList -> '$empty' : [] .
-
-
-%% at-most-once per item
-%% using either streamParms or streamDescriptors but not both
-mediaParm -> streamParm
- : {streamParm, '$1'} .
-mediaParm -> streamDescriptor
- : {streamDescriptor, '$1'} .
-mediaParm -> terminationStateDescriptor
- : {termState, '$1'} .
-
-%% at-most-once .
-%% Specially treated by the scanner.
-streamParm -> 'LocalDescriptorToken' :
- PGs = ensure_prop_groups('$1'),
- {local, #'LocalRemoteDescriptor'{propGrps = PGs} } .
-streamParm -> 'RemoteDescriptorToken' :
- PGs = ensure_prop_groups('$1'),
- {remote, #'LocalRemoteDescriptor'{propGrps = PGs}} .
-streamParm -> localControlDescriptor : {control, '$1'} .
-streamParm -> statisticsDescriptor : {statistics, '$1'} .
-
-streamDescriptor -> 'StreamToken' 'EQUAL' streamID
- 'LBRKT' streamParm streamParmList 'RBRKT'
- : #'StreamDescriptor'{streamID = '$3',
- streamParms = merge_streamParms(['$5' | '$6'])} .
-
-streamParmList -> 'COMMA' streamParm streamParmList : ['$2' | '$3'] .
-streamParmList -> '$empty' : [] .
-
-localControlDescriptor -> 'LocalControlToken' 'LBRKT' localParm localParmList 'RBRKT'
- : ['$3' | '$4'] .
-
-localParmList -> 'COMMA' localParm localParmList : ['$2' | '$3'] .
-localParmList -> '$empty': [] .
-
-terminationStateDescriptor -> 'TerminationStateToken'
- 'LBRKT' terminationStateParm
- terminationStateParms 'RBRKT'
- : merge_terminationStateDescriptor(['$3' | '$4']) .
-
-terminationStateParms -> 'COMMA' terminationStateParm terminationStateParms : ['$2' | '$3'] .
-terminationStateParms -> '$empty' : [] .
-
-%% at-most-once per item except for propertyParm
-localParm -> 'ReservedGroupToken' 'EQUAL' onOrOff : {group, '$3'} .
-localParm -> 'ReservedValueToken' 'EQUAL' onOrOff : {value, '$3'} .
-localParm -> 'ModeToken' 'EQUAL' streamModes : {mode, '$3'} .
-localParm -> propertyParm : {prop, '$1'} .
-
-onOrOff -> 'OnToken' : true .
-onOrOff -> 'OffToken' : false .
-
-%% at-most-once
-streamModes -> 'SendonlyToken' : sendOnly .
-streamModes -> 'RecvonlyToken' : recvOnly .
-streamModes -> 'SendrecvToken' : sendRecv .
-streamModes -> 'InactiveToken' : inactive .
-streamModes -> 'LoopbackToken' : loopBack .
-
-propertyParm -> pkgdName parmValue :
- setelement(#'PropertyParm'.name, '$2', '$1') .
-
-parmValue -> 'EQUAL' alternativeValue :
- '$2' .
-
-parmValue -> 'NEQUAL' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, unequalTo}} .
-parmValue -> 'LESSER' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, smallerThan}} .
-parmValue -> 'GREATER' value :
- #'PropertyParm'{value = ['$2'],
- extraInfo = {relation, greaterThan}} .
-
-%% OTP-4013
-%% alternativeValue = ( VALUE /
-%% LSBRKT VALUE *(COMMA VALUE) RSBRKT /
-%% LSBRKT VALUE COLON VALUE RSBRKT ) /
-%% LBRKT VALUE *(COMMA VALUE) RBRKT
-alternativeValue -> 'LBRKT' value valueList 'RBRKT' :
- #'PropertyParm'{value = ['$2' | '$3'],
- extraInfo = {sublist, false}}. % OR
-
-alternativeValue -> 'LSBRKT' value 'COLON' value 'RSBRKT' :
- #'PropertyParm'{value = ['$2', '$4'],
- extraInfo = {range, true}}.
-
-alternativeValue -> 'LSBRKT' value valueList 'RSBRKT' :
- #'PropertyParm'{value = ['$2' | '$3'],
- extraInfo = {sublist, true}}. % AND
-
-alternativeValue -> value :
- #'PropertyParm'{value = ['$1']} .
-
-valueList -> 'COMMA' value valueList : ['$2' | '$3'] .
-valueList -> '$empty' : [] .
-
-
-eventBufferDescriptor -> 'EventBufferToken' : [] .
-eventBufferDescriptor -> 'EventBufferToken' 'LBRKT' eventSpec
- eventSpecList 'RBRKT' :
- ['$3' | '$4'] .
-
-eventSpecList -> 'COMMA' eventSpec eventSpecList : ['$2' | '$3'] .
-eventSpecList -> '$empty' : [] .
-
-eventSpec -> observedEvent : merge_eventSpec('$1') .
-
-%% at-most-once per item except for propertyParm
-terminationStateParm -> serviceStates : {serviceState, '$1'} .
-terminationStateParm -> eventBufferControl : {eventBufferControl, '$1'} .
-terminationStateParm -> propertyParm : {propertyParm, '$1'} .
-
-serviceStates -> 'ServiceStatesToken' 'EQUAL' serviceStatesValue : '$3'.
-
-serviceStatesValue -> 'TestToken' : test .
-serviceStatesValue -> 'OutOfSvcToken' : outOfSvc .
-serviceStatesValue -> 'InSvcToken' : inSvc .
-
-eventBufferControl -> 'BufferToken' 'EQUAL' eventBufferControlValue : '$3' .
-
-eventBufferControlValue -> 'OffToken' : off .
-eventBufferControlValue -> 'LockStepToken' : lockStep .
-
-muxDescriptor -> 'MuxToken' 'EQUAL' muxType terminationIDList :
- #'MuxDescriptor'{muxType = '$3',
- termList = '$4'} .
-
-muxType -> safeToken : ensure_muxType('$1') .
-
-streamID -> safeToken : ensure_streamID('$1') .
-
-pkgdName -> safeToken : ensure_pkgdName('$1') .
-
-eventsDescriptor -> 'EventsToken' :
- #'EventsDescriptor'{requestID = asn1_NOVALUE,
- eventList = []} .
-eventsDescriptor -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' requestedEvent requestedEvents 'RBRKT' :
- #'EventsDescriptor'{requestID = '$3',
- eventList = ['$5' | '$6']} .
-
-requestedEvents -> 'COMMA' requestedEvent requestedEvents : ['$2' | '$3'] .
-requestedEvents -> '$empty' : [] .
-
-requestedEvent -> pkgdName requestedEventBody :
- setelement(#'RequestedEvent'.pkgdName, '$2', '$1') .
-
-requestedEventBody -> 'LBRKT' eventParameter eventParameters 'RBRKT' :
- merge_eventParameters(['$2' | '$3']) .
-requestedEventBody -> '$empty' : #'RequestedEvent'{evParList = []} .
-
-
-notifyRegulated -> 'NotifyRegulatedToken' :
- #'RegulatedEmbeddedDescriptor'{} .
-notifyRegulated -> 'NotifyRegulatedToken' 'LBRKT' embedWithSig 'RBRKT' :
- make_RegulatedEmbeddedDescriptor('$3') .
-notifyRegulated -> 'NotifyRegulatedToken' 'LBRKT' embedNoSig 'RBRKT' :
- make_RegulatedEmbeddedDescriptor('$3') .
-
-notifyBehaviour -> 'NotifyImmediateToken' : {notifyImmediate, 'NULL'} .
-notifyBehaviour -> 'NeverNotifyToken' : {neverNotify, 'NULL'} .
-notifyBehaviour -> notifyRegulated : {notifyRegulated, '$1'} .
-
-eventParameters -> 'COMMA' eventParameter eventParameters :
- ['$2' | '$3'] .
-eventParameters -> '$empty' : [] .
-
-%% at-most-once each of embedOrKeepActive , eventDM or eventStream
-eventParameter -> 'KeepActiveToken' : keepActive .
-eventParameter -> embedWithSig : '$1'.
-eventParameter -> embedNoSig : '$1'.
-eventParameter -> eventDM : '$1'.
-eventParameter -> eventStreamOrOther : '$1'.
-eventParameter -> notifyBehaviour : {notifyBehaviour, '$1'}.
-eventParameter -> 'ResetEventsDescriptorToken' : resetEventsDescriptor .
-
-embedWithSig -> 'EmbedToken' 'LBRKT' signalsDescriptor
- 'COMMA' embedFirst 'RBRKT'
- : {embed, '$3', '$5'} .
-embedWithSig -> 'EmbedToken' 'LBRKT' signalsDescriptor 'RBRKT'
- : {embed, '$3', asn1_NOVALUE} .
-
-embedNoSig -> 'EmbedToken' 'LBRKT' embedFirst 'RBRKT'
- : {embed, asn1_NOVALUE, '$3'} .
-
-embedFirst -> 'EventsToken' :
- #'SecondEventsDescriptor'{requestID = asn1_NOVALUE,
- eventList = []} .
-embedFirst -> 'EventsToken' 'EQUAL' requestID
- 'LBRKT' secondRequestedEvent secondRequestedEvents 'RBRKT' :
- #'SecondEventsDescriptor'{requestID = '$3',
- eventList = ['$5' | '$6']} .
-
-secondRequestedEvents -> 'COMMA' secondRequestedEvent secondRequestedEvents : ['$2' | '$3'] .
-secondRequestedEvents -> '$empty' : [] .
-
-%% at-most-once of each
-secondRequestedEvent -> pkgdName secondRequestedEventBody
- : setelement(#'SecondRequestedEvent'.pkgdName, '$2', '$1') .
-
-secondRequestedEventBody -> 'LBRKT' secondEventParameter secondEventParameters 'RBRKT'
- : merge_secondEventParameters(['$2' | '$3']) .
-secondRequestedEventBody -> '$empty' : #'SecondRequestedEvent'{evParList = []} .
-
-secondEventParameters -> 'COMMA' secondEventParameter secondEventParameters : ['$2' | '$3'] .
-secondEventParameters -> '$empty' : [] .
-
-%% at-most-once each of embedOrKeepActive , eventDM or eventStream
-secondEventParameter -> 'KeepActiveToken' : keepActive .
-secondEventParameter -> embedSig : '$1' .
-secondEventParameter -> eventDM : '$1' .
-secondEventParameter -> eventStreamOrOther : '$1' .
-secondEventParameter -> notifyBehaviour : {notifyBehaviour, '$1'}.
-secondEventParameter -> 'ResetEventsDescriptorToken' : resetEventsDescriptor .
-
-embedSig -> 'EmbedToken' 'LBRKT' signalsDescriptor 'RBRKT'
- : {second_embed, '$3'} .
-
-eventStreamOrOther -> eventParameterName parmValue :
- select_stream_or_other('$1', '$2') .
-
-eventParameterName -> safeToken : ensure_NAME('$1') .
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-eventDM -> 'DigitMapDescriptorToken' :
- ensure_eventDM('$1') .
-
-%% H248S-IG (IGv11)
-signalsDescriptor -> 'SignalsToken' 'LBRKT' signalParm signalParms 'RBRKT' :
- ['$3' | '$4'] .
-signalsDescriptor -> 'SignalsToken' : [] .
-
-signalParms -> 'COMMA' signalParm signalParms : [ '$2' | '$3'] .
-signalParms -> '$empty' : [] .
-
-signalParm -> signalList : {seqSigList, '$1'} .
-signalParm -> signalRequest : {signal, '$1'} .
-
-signalRequest -> signalName 'LBRKT' sigParameter sigParameters 'RBRKT'
- : merge_signalRequest('$1', ['$3' | '$4']).
-signalRequest -> signalName : merge_signalRequest('$1', []).
-
-sigParameters -> 'COMMA' sigParameter sigParameters : ['$2' | '$3'] .
-sigParameters -> '$empty' : [] .
-
-%% sigParameter = sigStream / sigSignalType / sigDuration / sigOther /
-%% notifyCompletion / KeepActiveToken /
-%% direction / sigRequestID
-%% sigStream = StreamToken EQUAL StreamID
-%% sigOther = sigParameterName parmValue
-%% sigParameterName = NAME
-%% sigSignalType = SignalTypeToken EQUAL signalType
-%% signalType = (OnOffToken / TimeOutToken / BriefToken)
-%% sigDuration = DurationToken EQUAL UINT16
-%% notifyCompletion = NotifyCompletionToken EQUAL (LBRKT
-%% notificationReason *(COMMA notificationReason)
-%% RBRKT)
-%%
-%% notificationReason = ( TimeOutToken / InterruptByEventToken /
-%% InterruptByNewSignalsDescrToken /
-%% OtherReasonToken )
-%% sigDirection = DirectionToken EQUAL direction
-%% sigRequestID = RequestIDToken EQUAL RequestID
-%% sigIntsigDelay = IntsigDelayToken EQUAL UINT16
-
-sigParameter -> 'StreamToken' 'EQUAL' streamID :
- {stream, '$3'}.
-sigParameter -> 'SignalTypeToken' 'EQUAL' signalType :
- {signal_type, '$3'} .
-sigParameter -> 'DurationToken' 'EQUAL' safeToken :
- {duration, ensure_uint16('$3')} .
-sigParameter -> 'NotifyCompletionToken' 'EQUAL'
- 'LBRKT' notificationReason notificationReasons 'RBRKT' :
- {notify_completion, ['$4' | '$5']} .
-sigParameter -> 'KeepActiveToken' : keepActive .
-sigParameter -> 'DirectionToken' 'EQUAL' direction :
- {direction, '$3'} .
-sigParameter -> 'RequestIDToken' 'EQUAL' requestID :
- {requestId, '$3'} .
-sigParameter -> 'IntsigDelayToken' 'EQUAL' safeToken :
- {intersigDelay, ensure_uint16('$3')} .
-sigParameter -> safeToken parmValue :
- {other, ensure_NAME('$1'), '$2'}.
-
-signalType -> 'OnOffToken' : onOff.
-signalType -> 'TimeOutToken' : timeOut.
-signalType -> 'BriefToken' : brief.
-
-direction -> 'ExternalToken' : external .
-direction -> 'InternalToken' : internal .
-direction -> 'BothToken' : both .
-
-notificationReasons -> 'COMMA' notificationReason notificationReasons : ['$2' | '$3'] .
-notificationReasons -> '$empty' : [] .
-
-notificationReason -> 'TimeOutToken' : onTimeOut .
-notificationReason -> 'InterruptByEventToken' : onInterruptByEvent .
-notificationReason -> 'InterruptByNewSignalsDescrToken' : onInterruptByNewSignalDescr .
-notificationReason -> 'OtherReasonToken' : otherReason .
-notificationReason -> 'IterationToken' : iteration .
-
-signalList -> 'SignalListToken' 'EQUAL' signalListId
- 'LBRKT' signalListParm signalListParms 'RBRKT'
- : #'SeqSigList'{id = ensure_uint16('$3'),
- signalList = ['$5' | '$6']} .
-
-signalListParms -> 'COMMA' signalListParm signalListParms :
- ['$2' | '$3'] .
-signalListParms -> '$empty' : [] .
-
-signalListId -> safeToken : ensure_uint16('$1') .
-
-%% exactly once signalType,
-%% at most once duration and every signal parameter
-signalListParm -> signalRequest : '$1'.
-
-signalName -> pkgdName : '$1'.
-
-observedEventsDescriptor -> 'ObservedEventsToken' 'EQUAL' requestID
- 'LBRKT' observedEvent observedEvents 'RBRKT'
- : #'ObservedEventsDescriptor'{requestId = '$3',
- observedEventLst = ['$5' | '$6']} .
-
-observedEvents -> 'COMMA' observedEvent observedEvents : ['$2' | '$3'] .
-observedEvents -> '$empty' : [] .
-
-%%time per event, because it might be buffered
-
-observedEvent -> timeStamp optSep 'COLON' optSep pkgdName observedEventBody :
- merge_observed_event('$6', '$5', '$1') .
-observedEvent -> optSep pkgdName observedEventBody :
- merge_observed_event('$3', '$2', asn1_NOVALUE) .
-
-observedEventBody -> 'LBRKT' observedEventParameter
- observedEventParameters 'RBRKT'
- : ['$2' | '$3'] .
-observedEventBody -> '$empty' : [] .
-
-observedEventParameters -> 'COMMA' observedEventParameter observedEventParameters : ['$2' | '$3'] .
-observedEventParameters -> '$empty' : [] .
-
-%%at-most-once eventStream, every eventParameterName at most once
-observedEventParameter -> eventStreamOrOther : '$1' .
-
-requestID -> safeToken : ensure_requestID('$1') .
-
-%% Deprecated as of Corr 1
-modemDescriptor -> 'ModemToken' 'EQUAL' modemType optPropertyParms .
-modemDescriptor -> 'ModemToken' 'LSBRKT' modemType modemTypeList 'RSBRKT'
- optPropertyParms.
-modemTypeList -> 'COMMA' modemType modemTypeList.
-modemTypeList -> '$empty'.
-modemType -> safeToken.
-
-optPropertyParms -> 'LBRKT' propertyParm propertyParmList 'RBRKT' :
- ['$2' | '$3'] .
-optPropertyParms -> '$empty' : [] .
-
-propertyParms -> propertyParm propertyParmList : ['$1' | '$2'] .
-propertyParmList -> 'COMMA' propertyParm propertyParmList : ['$2' | '$3'] .
-propertyParmList -> '$empty' : [] .
-
-% parmName -> safeToken : ensure_NAME('$1') .
-
-%% The DigitMapDescriptorToken is specially treated by the scanner
-digitMapDescriptor -> 'DigitMapDescriptorToken' :
- ensure_DMD('$1') .
-
-%% each parameter at-most-once, except auditItem
-%% at most one of either serviceChangeAddress or serviceChangeMgcId but
-%% not both. serviceChangeMethod and serviceChangeReason are REQUIRED
-serviceChangeDescriptor -> 'ServicesToken'
- 'LBRKT' serviceChangeParm
- serviceChangeParms 'RBRKT' :
- merge_ServiceChangeParm(['$3' | '$4']) .
-
-serviceChangeParms -> 'COMMA' serviceChangeParm serviceChangeParms :
- ['$2' | '$3'] .
-serviceChangeParms -> '$empty' : [] .
-
-serviceChangeParm -> serviceChangeMethod : {method, '$1'} .
-serviceChangeParm -> serviceChangeReason : {reason, '$1'} .
-serviceChangeParm -> serviceChangeDelay : {delay, '$1'} .
-serviceChangeParm -> serviceChangeAddress : {address, '$1'} .
-serviceChangeParm -> serviceChangeProfile : {profile, '$1'} .
-serviceChangeParm -> extension : {extension, '$1'} .
-serviceChangeParm -> timeStamp : {time_stamp, '$1'} .
-serviceChangeParm -> serviceChangeMgcId : {mgc_id, '$1'} .
-serviceChangeParm -> serviceChangeVersion : {version, '$1'} .
-serviceChangeParm -> 'ServiceChangeIncompleteToken' : incomplete . % v3
-serviceChangeParm -> auditItem : {audit_item, '$1'} . % v2
-
-serviceChangeMethod -> 'MethodToken' 'EQUAL' safeToken :
- ensure_serviceChangeMethod('$3') .
-
-serviceChangeReason -> 'ReasonToken' 'EQUAL' value : ['$3'] .
-
-serviceChangeDelay -> 'DelayToken' 'EQUAL' safeToken : ensure_uint32('$3').
-
-serviceChangeAddress -> 'ServiceChangeAddressToken' 'EQUAL' mId : '$3' .
-serviceChangeAddress -> 'ServiceChangeAddressToken' 'EQUAL' portNumber :
- {portNumber, '$3'} .
-
-serviceChangeMgcId -> 'MgcIdToken' 'EQUAL' mId : '$3' .
-
-serviceChangeProfile -> 'ProfileToken' 'EQUAL' safeToken : ensure_profile('$3').
-
-serviceChangeVersion -> 'VersionToken' 'EQUAL' safeToken : ensure_version('$3') .
-
-extension -> extensionParameter parmValue
- : setelement(#'PropertyParm'.name, '$2', '$1') .
-
-%% at most once. Version is REQUIRED on first ServiceChange response
-%% at most of either serviceChangeAddress or serviceChangeMgcId but not both
-serviceChangeReplyDescriptor -> 'ServicesToken'
- 'LBRKT' servChgReplyParm
- servChgReplyParms 'RBRKT' :
- merge_ServiceChangeResParm(['$3' | '$4']) .
-
-servChgReplyParms -> 'COMMA' servChgReplyParm servChgReplyParms :
- ['$2' | '$3'] .
-servChgReplyParms -> '$empty' : [] .
-
-servChgReplyParm -> serviceChangeAddress : {address, '$1'} .
-servChgReplyParm -> serviceChangeMgcId : {mgc_id, '$1'} .
-servChgReplyParm -> serviceChangeProfile : {profile, '$1'} .
-servChgReplyParm -> serviceChangeVersion : {version, '$1'} .
-servChgReplyParm -> timeStamp : {time_stamp,'$1'} .
-
-packagesDescriptor -> 'PackagesToken' 'LBRKT' packagesItem
- packagesItems 'RBRKT'
- : ['$3' | '$4'] .
-
-packagesItems -> 'COMMA' packagesItem packagesItems : ['$2' | '$3'] .
-packagesItems -> '$empty' : [] .
-
-packagesItem -> safeToken : ensure_packagesItem('$1') .
-
-timeStamp -> TimeStampToken : ensure_timeStamp('$1') .
-
-statisticsDescriptor -> 'StatsToken'
- 'LBRKT' statisticsParameter
- statisticsParameters 'RBRKT'
- : ['$3' | '$4'] .
-
-statisticsParameters -> 'COMMA' statisticsParameter statisticsParameters : ['$2' | '$3'] .
-statisticsParameters -> '$empty' : [] .
-
-%%at-most-once per item
-statisticsParameter -> pkgdName :
- #'StatisticsParameter'{statName = '$1',
- statValue = asn1_NOVALUE} .
-statisticsParameter -> pkgdName 'EQUAL' value :
- #'StatisticsParameter'{statName = '$1',
- statValue = ['$3']} .
-statisticsParameter -> pkgdName 'EQUAL' 'LSBRKT' value valueList 'RSBRKT' :
- #'StatisticsParameter'{statName = '$1',
- statValue = ['$4' | '$5']} .
-
-
-topologyDescriptor -> 'TopologyToken' 'LBRKT'
- topologyDescComp topologyDescCompList 'RBRKT' :
- merge_topologyDescriptor(['$3' | '$4']) .
-
-topologyDescComp -> terminationID : {tid, '$1'} .
-topologyDescComp -> eventStream : {sid, '$1'} .
-topologyDescComp -> topologyDirection : '$1' .
-
-topologyDescCompList -> '$empty' : [] .
-topologyDescCompList -> 'COMMA' topologyDescComp topologyDescCompList :
- ['$2' | '$3'] .
-
-topologyDirection -> 'BothwayToken' : {direction, bothway} .
-topologyDirection -> 'IsolateToken' : {direction, isolate} .
-topologyDirection -> 'OnewayToken' : {direction, oneway} .
-topologyDirection -> 'OnewayExternalToken' : {direction_ext, onewayexternal} .
-topologyDirection -> 'OnewayBothToken' : {direction_ext, onewayboth} .
-
-iepsValue -> 'IEPSToken' 'EQUAL' onOrOff : '$3' .
-
-emergencyValue -> 'EmergencyValueToken' 'EQUAL' 'EmergencyToken' : true .
-emergencyValue -> 'EmergencyValueToken' 'EQUAL' 'EmergencyOffToken' : false .
-
-priority -> 'PriorityToken' 'EQUAL' safeToken : ensure_uint16('$3') .
-
-extensionParameter -> safeToken : ensure_extensionParameter('$1') .
-
-value -> 'QuotedChars' : ensure_value('$1') .
-value -> safeToken : ensure_value('$1').
-
-safeToken -> safeToken2 : make_safe_token('$1') .
-
-safeToken2 -> 'SafeChars' : '$1' .
-%% BMK BMK safeToken2 -> 'AddToken' : '$1' .
-safeToken2 -> 'AuditToken' : '$1' .
-safeToken2 -> 'AuditCapToken' : '$1' .
-safeToken2 -> 'AuditValueToken' : '$1' .
-safeToken2 -> 'AuthToken' : '$1' .
-safeToken2 -> 'BothToken' : '$1' . % v3
-%% v3-safeToken2 -> 'BothwayToken' : '$1' .
-safeToken2 -> 'BriefToken' : '$1' .
-%% v3-safeToken2 -> 'BufferToken' : '$1' .
-safeToken2 -> 'CtxToken' : '$1' .
-%% v3-safeToken2 -> 'ContextAttrToken' : '$1' . % v3
-safeToken2 -> 'ContextAuditToken' : '$1' .
-%% v3-safeToken2 -> 'ContextListToken' : '$1' . % v3
-%% v2-safeToken2 -> 'DigitMapToken' : '$1' .
-%% safeToken2 -> 'DigitMapDescriptorToken' : '$1' .
-%% v3-
-safeToken2 -> 'DirectionToken' : '$1' . % v3
-safeToken2 -> 'DiscardToken' : '$1' .
-safeToken2 -> 'DisconnectedToken' : '$1' .
-safeToken2 -> 'DelayToken' : '$1' .
-safeToken2 -> 'DurationToken' : '$1' .
-safeToken2 -> 'EmbedToken' : '$1' .
-%% BMK BMK safeToken2 -> 'EmergencyToken' : '$1' .
-%% BMK BMK safeToken2 -> 'EmergencyOffToken' : '$1' .
-safeToken2 -> 'ErrorToken' : '$1' .
-%% v2-safeToken2 -> 'EventBufferToken' : '$1' .
-%% v2-safeToken2 -> 'EventsToken' : '$1' .
-%% v3-safeToken2 -> 'ExternalToken' : '$1' . % v3
-safeToken2 -> 'FailoverToken' : '$1' .
-safeToken2 -> 'ForcedToken' : '$1' .
-safeToken2 -> 'GracefulToken' : '$1' .
-safeToken2 -> 'H221Token' : '$1' .
-safeToken2 -> 'H223Token' : '$1' .
-safeToken2 -> 'H226Token' : '$1' .
-safeToken2 -> 'HandOffToken' : '$1' .
-%% v3-safeToken2 -> 'IEPSToken' : '$1' . % v3
-safeToken2 -> 'ImmAckRequiredToken' : '$1' .
-safeToken2 -> 'InactiveToken' : '$1' .
-%% v3-safeToken2 -> 'InternalToken' : '$1' . % v3
-safeToken2 -> 'InterruptByEventToken' : '$1' .
-safeToken2 -> 'InterruptByNewSignalsDescrToken' : '$1' .
-%% v3-safeToken2 -> 'IsolateToken' : '$1' .
-safeToken2 -> 'InSvcToken' : '$1' .
-safeToken2 -> 'KeepActiveToken' : '$1' .
-%% safeToken2 -> 'LocalToken' : '$1' .
-%% safeToken2 -> 'LocalDescriptorToken' : '$1' .
-safeToken2 -> 'LocalControlToken' : '$1' .
-safeToken2 -> 'LoopbackToken' : '$1' .
-safeToken2 -> 'LockStepToken' : '$1' .
-%% v2-safeToken2 -> 'MediaToken' : '$1' .
-%% safeToken2 -> 'MegacopToken' : '$1' .
-safeToken2 -> 'MethodToken' : '$1' .
-safeToken2 -> 'MgcIdToken' : '$1' .
-%% v3-safeToken2 -> 'ModeToken' : '$1' .
-%% BMK BMK safeToken2 -> 'ModifyToken' : '$1' .
-%% v2-safeToken2 -> 'ModemToken' : '$1' .
-%% BMK BMK safeToken2 -> 'MoveToken' : '$1' .
-%% safeToken2 -> 'MtpToken' : '$1' .
-%% safeToken2 -> 'MtpAddressToken' : '$1' .
-%% v2-safeToken2 -> 'MuxToken' : '$1' .
-safeToken2 -> 'NotifyToken' : '$1' .
-safeToken2 -> 'NotifyCompletionToken' : '$1' .
-safeToken2 -> 'Nx64Token' : '$1' .
-%% v2-safeToken2 -> 'ObservedEventsToken' : '$1' .
-%% v3-safeToken2 -> 'OnewayToken' : '$1' .
-%% v3-safeToken2 -> 'OnewayExternalToken' : '$1' .
-%% v3-safeToken2 -> 'OnewayBothToken' : '$1' .
-safeToken2 -> 'OffToken' : '$1' .
-safeToken2 -> 'OnToken' : '$1' .
-safeToken2 -> 'OnOffToken' : '$1' .
-safeToken2 -> 'OutOfSvcToken' : '$1' .
-safeToken2 -> 'OtherReasonToken' : '$1' .
-%% v2-safeToken2 -> 'PackagesToken' : '$1' .
-safeToken2 -> 'PendingToken' : '$1' .
-%% BMK BMK safeToken2 -> 'PriorityToken' : '$1' .
-safeToken2 -> 'ProfileToken' : '$1' .
-safeToken2 -> 'ReasonToken' : '$1' .
-safeToken2 -> 'RecvonlyToken' : '$1' .
-safeToken2 -> 'ReplyToken' : '$1' .
-%% v3-
-safeToken2 -> 'RequestIDToken' : '$1' . % v3
-safeToken2 -> 'ResponseAckToken' : '$1' .
-safeToken2 -> 'RestartToken' : '$1' .
-%% safeToken2 -> 'RemoteToken' : '$1' .
-%% safeToken2 -> 'RemoteDescriptorToken' : '$1' .
-%% v3-safeToken2 -> 'ReservedGroupToken' : '$1' .
-%% v3-safeToken2 -> 'ReservedValueToken' : '$1' .
-safeToken2 -> 'SendonlyToken' : '$1' .
-safeToken2 -> 'SendrecvToken' : '$1' .
-safeToken2 -> 'ServicesToken' : '$1' .
-%% v3-safeToken2 -> 'ServiceStatesToken' : '$1' .
-safeToken2 -> 'ServiceChangeToken' : '$1' .
-%% v3-safeToken2 -> 'ServiceChangeIncompleteToken' : '$1' . % v3
-safeToken2 -> 'ServiceChangeAddressToken' : '$1' .
-safeToken2 -> 'SignalListToken' : '$1' .
-%% v2-safeToken2 -> 'SignalsToken' : '$1' .
-safeToken2 -> 'SignalTypeToken' : '$1' .
-%% v2-safeToken2 -> 'StatsToken' : '$1' .
-safeToken2 -> 'StreamToken' : '$1' .
-%% BMK BMK safeToken2 -> 'SubtractToken' : '$1' .
-safeToken2 -> 'SynchISDNToken' : '$1' .
-safeToken2 -> 'TerminationStateToken' : '$1' .
-safeToken2 -> 'TestToken' : '$1' .
-safeToken2 -> 'TimeOutToken' : '$1' .
-%% BMK BMK safeToken2 -> 'TopologyToken' : '$1' .
-safeToken2 -> 'TransToken' : '$1' .
-safeToken2 -> 'V18Token' : '$1' .
-safeToken2 -> 'V22Token' : '$1' .
-safeToken2 -> 'V22bisToken' : '$1' .
-safeToken2 -> 'V32Token' : '$1' .
-safeToken2 -> 'V32bisToken' : '$1' .
-safeToken2 -> 'V34Token' : '$1' .
-safeToken2 -> 'V76Token' : '$1' .
-safeToken2 -> 'V90Token' : '$1' .
-safeToken2 -> 'V91Token' : '$1' .
-safeToken2 -> 'VersionToken' : '$1' .
-%% <OTP-7534>
-safeToken2 -> 'MessageSegmentToken' : '$1' . % v3
-safeToken2 -> 'SegmentationCompleteToken' : '$1' . % v3
-%% </OTP-7534>
-
-Erlang code.
-
-%% The following directive is needed for (significantly) faster compilation
-%% of the generated .erl file by the HiPE compiler. Please do not remove.
--compile([{hipe,[{regalloc,linear_scan}]}]).
-
--include("megaco_text_parser_prev3c.hrl").
-
-
diff --git a/lib/megaco/src/text/megaco_text_parser_v1.hrl b/lib/megaco/src/text/megaco_text_parser_v1.hrl
index 3a19debba0..6331f32ecc 100644
--- a/lib/megaco/src/text/megaco_text_parser_v1.hrl
+++ b/lib/megaco/src/text/megaco_text_parser_v1.hrl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2000-2019. All Rights Reserved.
+%% Copyright Ericsson AB 2000-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -26,7 +26,7 @@
-include_lib("megaco/include/megaco.hrl").
-include_lib("megaco/include/megaco_message_v1.hrl").
--define(encoder_version_pre_prev3c,true).
+-define(encoder_pre_version_3,true). % version 1 or 2
-include("megaco_text_tokens.hrl").
-ifdef(megaco_parser_inline).
diff --git a/lib/megaco/src/text/megaco_text_parser_v2.hrl b/lib/megaco/src/text/megaco_text_parser_v2.hrl
index 270541d111..8a96db6fc6 100644
--- a/lib/megaco/src/text/megaco_text_parser_v2.hrl
+++ b/lib/megaco/src/text/megaco_text_parser_v2.hrl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2003-2019. All Rights Reserved.
+%% Copyright Ericsson AB 2003-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -26,7 +26,7 @@
-include_lib("megaco/include/megaco.hrl").
-include_lib("megaco/include/megaco_message_v2.hrl").
--define(encoder_version_pre_prev3c,true).
+-define(encoder_pre_version_3,true). % version 1 or 2
-include("megaco_text_tokens.hrl").
-define(d(F,A), io:format("DBG:"++F++"~n",A)).
diff --git a/lib/megaco/src/text/megaco_text_scanner.erl b/lib/megaco/src/text/megaco_text_scanner.erl
index 88194b8083..69687f187c 100644
--- a/lib/megaco/src/text/megaco_text_scanner.erl
+++ b/lib/megaco/src/text/megaco_text_scanner.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2000-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2000-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -643,7 +643,7 @@ select_token(LowerText, Version) ->
"emergency" -> 'EmergencyToken';
"eg" -> 'EmergencyToken';
"emergencyofftoken" -> 'EmergencyOffToken';
- "emergencyoff" when (Version >= 3) -> 'EmergencyOffToken'; % v3 (as of prev3c)
+ "emergencyoff" when (Version >= 3) -> 'EmergencyOffToken'; % v3
"ego" -> 'EmergencyOffToken';
"emergencyvalue" when (Version >= 3) -> 'EmergencyValueToken'; % v3
"egv" when (Version >= 3) -> 'EmergencyValueToken'; % v3
diff --git a/lib/megaco/src/text/megaco_text_tokens.hrl b/lib/megaco/src/text/megaco_text_tokens.hrl
index dc9fadcbe5..2b1c21258e 100644
--- a/lib/megaco/src/text/megaco_text_tokens.hrl
+++ b/lib/megaco/src/text/megaco_text_tokens.hrl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2000-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2000-2020. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
@@ -97,18 +97,14 @@
-define(PrettyContextAttrToken , "ContextAttr" ). % v3
-define(PrettyContextListToken , "ContextList" ). % v3
-define(PrettyDigitMapToken , "DigitMap" ).
--ifdef(encoder_version_pre_prev3c).
--define(PrettyDirectionToken , "Direction" ). % v3
--else.
-define(PrettyDirectionToken , "SPADirection" ). % v3
--endif.
-define(PrettyDiscardToken , "Discard" ).
-define(PrettyDisconnectedToken , "Disconnected" ).
-define(PrettyDelayToken , "Delay" ).
-define(PrettyDurationToken , "Duration" ).
-define(PrettyEmbedToken , "Embed" ).
-define(PrettyEmergencyToken , "Emergency" ).
--ifdef(encoder_version_pre_prev3c).
+-ifdef(encoder_pre_version_3).
-define(PrettyEmergencyOffToken , "EmergencyOffToken" ). % v2
-else.
-define(PrettyEmergencyOffToken , "EmergencyOff" ). % v3
@@ -177,11 +173,7 @@
-define(PrettyResetEventsDescriptorToken , "ResetEventsDescriptor" ). % v3
-define(PrettyRestartToken , "Restart" ).
-define(PrettyRemoteToken , "Remote" ).
--ifdef(encoder_version_pre_prev3c).
--define(PrettyRequestIDToken , "RequestID" ). % v3
--else.
-define(PrettyRequestIDToken , "SPARequestID" ). % v3
--endif.
-define(PrettyReservedGroupToken , "ReservedGroup" ).
-define(PrettyReservedValueToken , "ReservedValue" ).
-define(PrettySegmentationCompleteToken , "END" ). % v3
@@ -235,11 +227,7 @@
-define(CompactContextAttrToken , "CT" ). % v3
-define(CompactContextListToken , "CLT" ). % v3
-define(CompactDigitMapToken , "DM" ).
--ifdef(encoder_version_pre_prev3c).
--define(CompactDirectionToken , "DI" ). % v3
--else.
-define(CompactDirectionToken , "SPADI" ). % v3
--endif.
-define(CompactDiscardToken , "DS" ).
-define(CompactDisconnectedToken , "DC" ).
-define(CompactDelayToken , "DL" ).
@@ -311,11 +299,7 @@
-define(CompactResetEventsDescriptorToken , "RSE" ). % v3
-define(CompactRestartToken , "RS" ).
-define(CompactRemoteToken , "R" ).
--ifdef(encoder_version_pre_prev3c).
--define(CompactRequestIDToken , "RQ" ). % v3
--else.
-define(CompactRequestIDToken , "SPARQ" ). % v3
--endif.
-define(CompactReservedGroupToken , "RG" ).
-define(CompactReservedValueToken , "RV" ).
-define(CompactSegmentationCompleteToken , "&" ). % v3
diff --git a/lib/megaco/src/text/modules.mk b/lib/megaco/src/text/modules.mk
index c0436755cc..5b7d24b29b 100644
--- a/lib/megaco/src/text/modules.mk
+++ b/lib/megaco/src/text/modules.mk
@@ -18,16 +18,6 @@
#
# %CopyrightEnd%
-# <DEPRECATED>
-PREV3_MODULES = \
- megaco_compact_text_encoder_prev3a \
- megaco_compact_text_encoder_prev3b \
- megaco_compact_text_encoder_prev3c \
- megaco_pretty_text_encoder_prev3a \
- megaco_pretty_text_encoder_prev3b \
- megaco_pretty_text_encoder_prev3c
-# </DEPRECATED>
-
MODULES = \
megaco_compact_text_encoder \
megaco_compact_text_encoder_v1 \
@@ -38,19 +28,8 @@ MODULES = \
megaco_pretty_text_encoder_v2 \
megaco_pretty_text_encoder_v3 \
megaco_text_mini_decoder \
- megaco_text_scanner \
- $(PREV3_MODULES)
-
+ megaco_text_scanner
-# <DEPRECATED>
-PREV3_INTERNAL_HRL_FILES = \
- megaco_text_gen_prev3a.hrl \
- megaco_text_gen_prev3b.hrl \
- megaco_text_gen_prev3c.hrl \
- megaco_text_parser_prev3a.hrl \
- megaco_text_parser_prev3b.hrl \
- megaco_text_parser_prev3c.hrl
-# </DEPRECATED>
INTERNAL_HRL_FILES = \
megaco_text_gen_v1.hrl \
@@ -60,20 +39,11 @@ INTERNAL_HRL_FILES = \
megaco_text_parser_v2.hrl \
megaco_text_parser_v3.hrl \
megaco_text_mini_parser.hrl \
- megaco_text_tokens.hrl \
- $(PREV3_INTERNAL_HRL_FILES)
-
+ megaco_text_tokens.hrl
-# <DEPRECATED>
-PREV3_INTERNAL_YRL_FILES = \
- megaco_text_parser_prev3a.yrl \
- megaco_text_parser_prev3b.yrl \
- megaco_text_parser_prev3c.yrl
-# </DEPRECATED>
INTERNAL_YRL_FILES = \
megaco_text_parser_v1.yrl \
megaco_text_parser_v2.yrl \
megaco_text_parser_v3.yrl \
- megaco_text_mini_parser.yrl \
- $(PREV3_INTERNAL_YRL_FILES)
+ megaco_text_mini_parser.yrl
--
2.26.2
