%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2003-2010. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
%%
-module(test_special_decode_performance).
-export([compile/2,go/1,loop2/4,loop1/5]).
-include_lib("test_server/include/test_server.hrl").
compile(Config,Rule) when Rule==ber_bin_v2 ->
?line DataDir = ?config(data_dir,Config),
?line OutDir = ?config(priv_dir,Config),
?line true = code:add_patha(?config(priv_dir,Config)),
?line asn1ct:compile(DataDir++"MEDIA-GATEWAY-CONTROL",
[ber_bin,optimize,asn1config,{outdir,OutDir},
{i,DataDir}]),
?line asn1ct:compile(DataDir++"PartialDecSeq",
[ber_bin,optimize,asn1config,{outdir,OutDir},
{i,DataDir}]);
compile(_,Rule) ->
{skip,lists:concat(["not implemented yet for version: ",Rule])}.
go(all) ->
{Time_S_s,Time_S_e,Time_S_c}=go(10000,'PartialDecSeq'),
{Time_MGC_s,Time_MGC_e,Time_MGC_c}=go(10000,'MEDIA-GATEWAY-CONTROL'),
?line do_comment({Time_S_s,Time_MGC_s},
{Time_S_e,Time_MGC_e},
{Time_S_c,Time_MGC_c}).
go(N,Mod) ->
?line Val = val(Mod),
?line {ok,B} = Mod:encode(element(1,Val),Val),
?line go(Mod,list_to_binary(B),N).
go(Mod,Bin,N) ->
?line FsS = get_selective_funcs(Mod),
?line FsE = get_exclusive_funcs(Mod),
?line io:format("~nSize of value for module ~p: ~p bytes.~n~n",[Mod,size(Bin)]),
?line Time_s=go1(selective,Mod,FsS,Bin,N,0),
?line Time_e=go1(exclusive,Mod,FsE,Bin,N,0),
?line Time_c=go1(common,Mod,[decode],Bin,N,0),
?line {Time_s/length(FsS),Time_e/length(FsE),Time_c}.
go1(_,_,[],_,_,AccTime) ->
?line AccTime;
%% go1 for common decode
go1(common,Mod,_,Bin,N,_) ->
?line TT=get_top_type(Mod),
?line {Time,Result}=timer:tc(?MODULE,loop1,[Mod,decode,TT,Bin,N]),
case Result of
{ok,_R1} ->
io:format("common Decode ~p:decode, ~p times on time ~p~n",
[Mod,N,Time]);
Err ->
io:format("common Decode ~p:decode failed: ~w~n~n",[Mod,Err])
end,
Time;
go1(Dec,Mod,[F|Fs],Bin,N,AccTime) ->
?line {Time,Result}=timer:tc(?MODULE,loop2,[Mod,F,Bin,N]),
case Result of
{ok,_R1} ->
io:format("~p Decode ~p:~p, ~p times on time ~p~n",[Dec,Mod,F,N,Time]);
Err ->
io:format("~p Decode ~p:~p failed: ~w~n~n",[Dec,Mod,F,Err])
end,
go1(Dec,Mod,Fs,Bin,N,AccTime+Time).
do_comment({Time_S_s,Time_MGC_s},
{Time_S_e,Time_MGC_e},
{Time_S_c,Time_MGC_c}) ->
% io:format("Time_s: ~w, Time_e: ~w, Time_c: ~w~n",[Time_s,Time_e,Time_c]),
Time_sofc1 = Time_S_s/Time_S_c,
Time_sofc2 = Time_MGC_s/Time_MGC_c,
Time_eofc1 = Time_S_e/Time_S_c,
Time_eofc2 = Time_MGC_e/Time_MGC_c,
Av_proc_sofc =
integer_to_list(round(((100*Time_sofc1) + (100*Time_sofc2))/2)),
Av_proc_eofc =
integer_to_list(round(((100*Time_eofc1) + (100*Time_eofc2))/2)),
io:format("Av_proc_sofc = ~w, Av_proc_eofc = ~w~n",
[Av_proc_sofc,Av_proc_eofc]),
Comment = ["selective decode takes "++
Av_proc_sofc ++" % of common decode time",
"exclusive decode takes "++ Av_proc_eofc++
" % of common decode time"],
{comment,Comment}.
val('PartialDecSeq') ->
{'F',{fb,{'E',12,[{'D',13,true},{'D',14,false},{'D',15,true},{'D',16,false},{'D',13,true},{'D',14,false},{'D',15,true},{'D',16,false},{'D',13,true},{'D',14,false},{'D',15,true},{'D',16,false}],true,{da,[{'A',17,{'D',18,false}},{'A',19,{'D',20,true}},{'A',21,{'D',22,false}},{'A',17,{'D',18,false}},{'A',19,{'D',20,true}},{'A',21,{'D',22,false}},{'A',17,{'D',18,false}},{'A',19,{'D',20,true}},{'A',21,{'D',22,false}},{'A',17,{'D',18,false}},{'A',19,{'D',20,true}},{'A',21,{'D',22,false}},{'A',17,{'D',18,false}},{'A',19,{'D',20,true}},{'A',21,{'D',22,false}},{'A',17,{'D',18,false}},{'A',19,{'D',20,true}},{'A',21,{'D',22,false}}]}}}};
val('MEDIA-GATEWAY-CONTROL') ->
{'MegacoMessage',asn1_NOVALUE,{'Message',1,{ip4Address,{'IP4Address',[125,125,125,111],55555}},{transactions,[{transactionReply,{'TransactionReply',50007,asn1_NOVALUE,{actionReplies,[{'ActionReply',0,asn1_NOVALUE,asn1_NOVALUE,[{auditValueReply,{auditResult,{'AuditResult',{'TerminationID',[],[255,255,255]},[{mediaDescriptor,{'MediaDescriptor',asn1_NOVALUE,{multiStream,[{'StreamDescriptor',1,{'StreamParms',{'LocalControlDescriptor',sendRecv,asn1_NOVALUE,asn1_NOVALUE,[{'PropertyParm',[0,11,0,7],[[52,48]],asn1_NOVALUE}]},{'LocalRemoteDescriptor',[[{'PropertyParm',[0,0,176,1],[[48]],asn1_NOVALUE},{'PropertyParm',[0,0,176,8],[[73,78,32,73,80,52,32,49,50,53,46,49,50,53,46,49,50,53,46,49,49,49]],asn1_NOVALUE},{'PropertyParm',[0,0,176,15],[[97,117,100,105,111,32,49,49,49,49,32,82,84,80,47,65,86,80,32,32,52]],asn1_NOVALUE},{'PropertyParm',[0,0,176,12],[[112,116,105,109,101,58,51,48]],asn1_NOVALUE}]]},{'LocalRemoteDescriptor',[[{'PropertyParm',[0,0,176,1],[[48]],asn1_NOVALUE},{'PropertyParm',[0,0,176,8],[[73,78,32,73,80,52,32,49,50,52,46,49,50,52,46,49,50,52,46,50,50,50]],asn1_NOVALUE},{'PropertyParm',[0,0,176,15],[[97,117,100,105,111,32,50,50,50,50,32,82,84,80,47,65,86,80,32,32,52]],asn1_NOVALUE},{'PropertyParm',[0,0,176,12],[[112,116,105,109,101,58,51,48]],asn1_NOVALUE}]]}}}]}}},{packagesDescriptor,[{'PackagesItem',[0,11],1},{'PackagesItem',[0,11],1}]},{statisticsDescriptor,[{'StatisticsParameter',[0,12,0,4],[[49,50,48,48]]},{'StatisticsParameter',[0,11,0,2],[[54,50,51,48,48]]},{'StatisticsParameter',[0,12,0,5],[[55,48,48]]},{'StatisticsParameter',[0,11,0,3],[[52,53,49,48,48]]},{'StatisticsParameter',[0,12,0,6],[[48,46,50]]},{'StatisticsParameter',[0,12,0,7],[[50,48]]},{'StatisticsParameter',[0,12,0,8],[[52,48]]}]}]}}}]}]}}}]}}}.
%% val('PartialDecSeq') ->
%% {'F',{fb,{'E',35,[{'D',3,true},{'D',4,false},{'D',5,true},{'D',6,true},{'D',7,false},{'D',8,true},{'D',9,true},{'D',10,false},{'D',11,true},{'D',12,true},{'D',13,false},{'D',14,true}],false,{dc,{'E_d_dc',15,true,{'E_d_dc_dcc',17,4711}}}}}}.
loop1(Mod,decode,TT,Bin,1) ->
{ok,_Msg}=Mod:decode(TT,Bin);
loop1(Mod,decode,TT,Bin,N) ->
{ok,_Msg}=Mod:decode(TT,Bin),
loop1(Mod,decode,TT,Bin,N-1).
loop2(Mod,FS,Bin,1) ->
{ok,_Msg}=Mod:FS(Bin);
loop2(Mod,FS,Bin,N) ->
{ok,_Msg}=Mod:FS(Bin),
loop2(Mod,FS,Bin,N-1).
%% loop3(Mod,F,Bin,1) ->
%% {ok,Msg}=Mod:F(Bin),
%% decode_parts(Mod,F,Msg);
%% loop3(Mod,F,Bin,N) ->
%% {ok,Msg}=Mod:F(Bin),
%% decode_parts(Mod,F,Msg),
%% loop3(Mod,F,Bin,N-1).
get_selective_funcs('PartialDecSeq') ->
% [selected_decode_F1,selected_decode_F2,selected_decode_F3,selected_decode_F4];
[selected_decode_F1,selected_decode_F3,selected_decode_F4];
get_selective_funcs('MEDIA-GATEWAY-CONTROL') ->
[decode_MegacoMessage_selective].
get_exclusive_funcs('PartialDecSeq') ->
[decode_F_fb_incomplete,decode_F_fb_exclusive2,decode_F_fb_exclusive3];
get_exclusive_funcs('MEDIA-GATEWAY-CONTROL') ->
[decode_MegacoMessage_exclusive].
get_top_type('PartialDecSeq') ->
'F';
get_top_type('MEDIA-GATEWAY-CONTROL') ->
'MegacoMessage'.
%% decode_parts('PartialDecSeq',decode_F_fb_incomplete,Msg) ->
%% {fb,{'E',12,{E_bKey,E_bMsg},true,{E_dKey,E_dMsg}}}=Msg,
%% {ok,_}='Seq':decode_part(E_bKey,E_bMsg),
%% {ok,_}='Seq':decode_part(E_dKey,E_dMsg);
%% decode_parts('PartialDecSeq',decode_F_fb_exclusive2,Msg) ->
%% {fb,{'E',12,{E_bKey,E_bMsg},true,{d,{E_dKey,E_dMsg}}}} = Msg,
%% {ok,_}='Seq':decode_part(E_bKey,E_bMsg),
%% {ok,_}='Seq':decode_part(E_dKey,E_dMsg);
%% decode_parts('MEDIA-GATEWAY-CONTROL',decode_MegacoMessage_exclusive,Msg) ->
%% {'MegacoMessage',asn1_NOVALUE,{'Message',1,{M_MidKey,M_MidMsg},
%% {M_mBKey,M_mBMsg}}} = Msg,
%% {ok,_}='MEDIA-GATEWAY-CONTROL':decode_part(M_MidKey,M_MidMsg),
%% {ok,_}='MEDIA-GATEWAY-CONTROL':decode_part(M_mBKey,M_mBMsg).
