From 18bd1239bee04427340a44f57f993ea92c264e41 Mon Sep 17 00:00:00 2001 From: Kenneth Lundin Date: Fri, 19 Feb 2010 14:01:57 +0000 Subject: OTP-8463 Support for EXTENSIBILITY IMPLIED and SET/SEQ OF NamedType is added. --- lib/asn1/test/testTimer.erl | 222 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 222 insertions(+) create mode 100644 lib/asn1/test/testTimer.erl (limited to 'lib/asn1/test/testTimer.erl') diff --git a/lib/asn1/test/testTimer.erl b/lib/asn1/test/testTimer.erl new file mode 100644 index 0000000000..0fade7ebca --- /dev/null +++ b/lib/asn1/test/testTimer.erl @@ -0,0 +1,222 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2001-2009. 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(testTimer). + +-compile(export_all). +%%-export([Function/Arity, ...]). + +-include("test_server.hrl"). + +-define(times, 5000). + +compile(Config,Enc,Options) -> + ?line DataDir = ?config(data_dir,Config), + ?line OutDir = ?config(priv_dir,Config), + ok = asn1ct:compile(DataDir++"H235-SECURITY-MESSAGES",[Enc,{outdir,OutDir}]++Options), + ok = asn1ct:compile(DataDir++"H323-MESSAGES",[Enc,{outdir,OutDir}]++Options). + +val() -> + _Value = {'H323-UserInformation',{'H323-UU-PDU', + {callProceeding, + {'CallProceeding-UUIE', + {0,8,222}, + {'EndpointType', + {'NonStandardParameter', + {object,{0,9,237}}, + "O"}, + {'VendorIdentifier', + {'H221NonStandard',62,63,16282}, + "OC", + "OC"}, + {'GatekeeperInfo', + {'NonStandardParameter', + {object,{0,10,260}}, + "O"}}, + {'GatewayInfo', + [{h320, + {'H320Caps', + {'NonStandardParameter', + {object,{0,11,282}}, + "O"}, + [{'DataRate', + {'NonStandardParameter', + {object, + {0,11,295}}, + "O"}, + 1290470518, + 78}], + [{'SupportedPrefix', + {'NonStandardParameter', + {object, + {0,12,312}}, + "O"}, + {'h323-ID',"BM"}}]}}], + {'NonStandardParameter', + {object,{0,13,326}}, + "O"}}, + {'McuInfo', + {'NonStandardParameter', + {object,{1,13,340,340}}, + "OC"}}, + {'TerminalInfo', + {'NonStandardParameter', + {object,{1,14,353,354}}, + "OC"}}, + true, + true}, + {ipxAddress, + {'TransportAddress_ipxAddress', + "OCTET ", + "OCTE", + "OC"}}, + {'CallIdentifier',"OCTET STRINGOCTE"}, + {noSecurity,'NULL'}, + [{'ClearToken', + 1667517741, + "BM", + {'DHset',[1],[1],[1]}, + "OCTET STR", + -26430296, + {'TypedCertificate', + {1,16,405,406}, + "OC"}, + "BMP", + {'NonStandardParameter', + {1,16,414,415}, + "OC"}}, + {'ClearToken', + 1817656756, + "BMP", + {'DHset',[1],[1],[1]}, + "OCTET STRI", + -16356110, + {'TypedCertificate', + {1,17,442,443}, + "OC"}, + "BMP", + {'NonStandardParameter', + {1,18,452,452}, + "OC"}}], + [{cryptoGKPwdEncr, + {'CryptoH323Token_cryptoGKPwdEncr', + {1,18,467,467}, + {'Params',-7477016,"OCTET ST"}, + "OC"}}, + {cryptoGKPwdEncr, + {'CryptoH323Token_cryptoGKPwdEncr', + {1,19,486,486}, + {'Params',-2404513,"OCTET ST"}, + []}}], + []}}, + {'NonStandardParameter',{object,{0,3,84}},[]}, + [], + true, + [], + []}, + {'H323-UserInformation_user-data',24,"O"}}. + + +go(Config,Enc) -> + ?line true = code:add_patha(?config(priv_dir,Config)), + + Module = 'H323-MESSAGES', + Type = 'H323-UserInformation', + Value = val(), +%% ok = asn1ct:compile(HelpModule,[Enc]), + +%% ok = asn1ct:compile(Module,[Enc]), + ?line {ok,B} = asn1rt:encode(Module,Type,Value), + Bytes = case Enc of + ber_bin -> + list_to_binary(B); + per_bin when list(B) -> + list_to_binary(B); + per_bin -> + B; + uper_bin -> + B; + _ -> + %%lists:flatten(B) + list_to_binary(B) + end, + + CompileOptions = compile_options(), + + ?line {ValWr, done} = timer:tc(?MODULE, encode, [?times, Module, Type, Value]), + ?line io:format("ASN1 encode ~p: ~p micro~n", [CompileOptions, ValWr / ?times]), + + ?line done = decode(2,Module,Type,Bytes,Enc), + + ?line {ValRead, done} = timer:tc(?MODULE, decode, [?times, Module, + Type, Bytes,Enc]), + ?line io:format("ASN1 decode ~p: ~p micro~n", [CompileOptions, ValRead /?times]), + + + ?line Comment = "encode: "++integer_to_list(round(ValWr/?times))++ + " micro, decode: "++integer_to_list(round(ValRead /?times))++ + " micro. " ++ CompileOptions, + {comment,Comment}. + +encode(0, _Module,_Type,_Value) -> + done; +encode(N, Module,Type,Value) -> + ?line {ok,B} = asn1rt:encode(Module,Type,Value), + _B2 = if + list(B) -> list_to_binary(B); + true -> B + end, + encode(N-1, Module,Type,Value). + +decode(0, _Module,_Type,_Value,_Erule) -> + done; +decode(N, Module,Type,Value,Erule) -> + case Erule of + ber -> + ?line {ok,_B} = asn1rt:decode(Module,Type,binary_to_list(Value)); + per -> + ?line {ok,_B} = asn1rt:decode(Module,Type,binary_to_list(Value)); + _ -> + ?line {ok,_B} = asn1rt:decode(Module,Type,Value) + end, + decode(N-1, Module,Type,Value,Erule). + +compile_options() -> + ?line {ok,Info} = asn1rt:info('H323-MESSAGES'), + case lists:keysearch(options,1,Info) of + {_,{_,Opts}} -> + Opts2 = + case lists:member(ber_bin_v2,Opts) of + true -> + [ber_bin,optimize] ++ lists:delete(optimize,Opts); + _ -> + Opts + end, + Opts3 = [X||X <- Opts2, + (X == ber orelse + X == ber_bin orelse + X == per orelse + X == per_bin orelse + X == optimize orelse + X == driver)], + lists:flatten(io_lib:format("~p",[Opts3])); + _ -> + "[]" + end. + -- cgit v1.2.3