From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- lib/asn1/src/asn1rt.erl | 210 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 210 insertions(+) create mode 100644 lib/asn1/src/asn1rt.erl (limited to 'lib/asn1/src/asn1rt.erl') diff --git a/lib/asn1/src/asn1rt.erl b/lib/asn1/src/asn1rt.erl new file mode 100644 index 0000000000..9ef68efab5 --- /dev/null +++ b/lib/asn1/src/asn1rt.erl @@ -0,0 +1,210 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 1997-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(asn1rt). + +%% Runtime functions for ASN.1 (i.e encode, decode) + +-include("asn1_records.hrl"). + +-export([encode/2,encode/3,decode/3,load_driver/0,unload_driver/0,info/1]). + +-export([utf8_binary_to_list/1,utf8_list_to_binary/1]). + +encode(Module,{Type,Term}) -> + encode(Module,Type,Term). + +encode(Module,Type,Term) -> + case catch apply(Module,encode,[Type,Term]) of + {'EXIT',undef} -> + {error,{asn1,{undef,Module,Type}}}; + Result -> + Result + end. + +decode(Module,Type,Bytes) -> + case catch apply(Module,decode,[Type,Bytes]) of + {'EXIT',undef} -> + {error,{asn1,{undef,Module,Type}}}; + Result -> + Result + end. + +%% asn1-1.6.8.1 +%% load_driver() -> +%% asn1rt_driver_handler:load_driver(), +%% receive +%% driver_ready -> +%% ok; +%% Err={error,_Reason} -> +%% Err; +%% Error -> +%% {error,Error} +%% end. + +%% asn1-1.6.9 + load_driver() -> + case catch asn1rt_driver_handler:load_driver() of + ok -> + ok; + {error,{already_started,asn1}} -> + ok; + Err -> + {error,Err} + end. + + +unload_driver() -> + case catch asn1rt_driver_handler:unload_driver() of + ok -> + ok; + Error -> + {error,Error} + end. + + +info(Module) -> + case catch apply(Module,info,[]) of + {'EXIT',{undef,_Reason}} -> + {error,{asn1,{undef,Module,info}}}; + Result -> + {ok,Result} + end. + +%% utf8_binary_to_list/1 transforms a utf8 encoded binary to a list of +%% unicode elements, where each element is the unicode integer value +%% of a utf8 character. +%% Bin is a utf8 encoded value. The return value is either {ok,Val} or +%% {error,Reason}. Val is a list of integers, where each integer is a +%% unicode character value. +utf8_binary_to_list(Bin) when is_binary(Bin) -> + utf8_binary_to_list(Bin,[]). + +utf8_binary_to_list(<<>>,Acc) -> + {ok,lists:reverse(Acc)}; +utf8_binary_to_list(Bin,Acc) -> + Len = utf8_binary_len(Bin), + case catch split_binary(Bin,Len) of + {CharBin,RestBin} -> + case utf8_binary_char(CharBin) of + C when is_integer(C) -> + utf8_binary_to_list(RestBin,[C|Acc]); + Err -> Err + end; + Err -> {error,{asn1,{bad_encoded_utf8string,Err}}} + end. + +utf8_binary_len(<<0:1,_:7,_/binary>>) -> + 1; +utf8_binary_len(<<1:1,1:1,0:1,_:5,_/binary>>) -> + 2; +utf8_binary_len(<<1:1,1:1,1:1,0:1,_:4,_/binary>>) -> + 3; +utf8_binary_len(<<1:1,1:1,1:1,1:1,0:1,_:3,_/binary>>) -> + 4; +utf8_binary_len(<<1:1,1:1,1:1,1:1,1:1,0:1,_:2,_/binary>>) -> + 5; +utf8_binary_len(<<1:1,1:1,1:1,1:1,1:1,1:1,0:1,_:1,_/binary>>) -> + 6; +utf8_binary_len(Bin) -> + {error,{asn1,{bad_utf8_length,Bin}}}. + +utf8_binary_char(<<0:1,Int:7>>) -> + Int; +utf8_binary_char(<<_:2,0:1,Int1:5,1:1,0:1,Int2:6>>) -> + (Int1 bsl 6) bor Int2; +utf8_binary_char(<<_:3,0:1,Int1:4,1:1,0:1,Int2:6,1:1,0:1,Int3:6>>) -> + <> = <>, + Res; +utf8_binary_char(<<_:4,0:1,Int1:3,Rest/binary>>) -> + <<1:1,0:1,Int2:6,1:1,0:1,Int3:6,1:1,0:1,Int4:6>> = Rest, + <> = <<0:3,Int1:3,Int2:6,Int3:6,Int4:6>>, + Res; +utf8_binary_char(<<_:5,0:1,Int1:2,Rest/binary>>) -> + <<1:1,0:1,Int2:6,1:1,0:1,Int3:6,1:1,0:1,Int4:6,1:1,0:1,Int5:6>> = Rest, + <> = <<0:6,Int1:2,Int2:6,Int3:6,Int4:6,Int5:6>>, + Res; +utf8_binary_char(<<_:6,0:1,I:1,Rest/binary>>) -> + <<1:1,0:1,Int2:6,1:1,0:1,Int3:6,1:1,0:1,Int4:6,1:1,0:1, + Int5:6,1:1,0:1,Int6:6>> = Rest, + <> = <<0:1,I:1,Int2:6,Int3:6,Int4:6,Int5:6,Int6:6>>, + Res; +utf8_binary_char(Err) -> + {error,{asn1,{bad_utf8_character_encoding,Err}}}. + + +%% macros used for utf8 encoding +-define(bit1to6_into_utf8byte(I),16#80 bor (I band 16#3f)). +-define(bit7to12_into_utf8byte(I),16#80 bor ((I band 16#fc0) bsr 6)). +-define(bit13to18_into_utf8byte(I),16#80 bor ((I band 16#3f000) bsr 12)). +-define(bit19to24_into_utf8byte(I),16#80 bor ((Int band 16#fc0000) bsr 18)). +-define(bit25to30_into_utf8byte(I),16#80 bor ((Int band 16#3f000000) bsr 24)). + +%% utf8_list_to_binary/1 transforms a list of integers to a +%% binary. Each element in the input list has the unicode (integer) +%% value of an utf8 character. +%% The return value is either {ok,Bin} or {error,Reason}. The +%% resulting binary is utf8 encoded. +utf8_list_to_binary(List) -> + utf8_list_to_binary(List,[]). + +utf8_list_to_binary([],Acc) when is_list(Acc) -> + {ok,list_to_binary(lists:reverse(Acc))}; +utf8_list_to_binary([],Acc) -> + {error,{asn1,Acc}}; +utf8_list_to_binary([H|T],Acc) -> + case catch utf8_encode(H,Acc) of + NewAcc when is_list(NewAcc) -> + utf8_list_to_binary(T,NewAcc); + Err -> Err + end. + + +utf8_encode(Int,Acc) when Int < 128 -> + %% range 16#00000000 - 16#0000007f + %% utf8 encoding: 0xxxxxxx + [Int|Acc]; +utf8_encode(Int,Acc) when Int < 16#800 -> + %% range 16#00000080 - 16#000007ff + %% utf8 encoding: 110xxxxx 10xxxxxx + [?bit1to6_into_utf8byte(Int),16#c0 bor (Int bsr 6)|Acc]; +utf8_encode(Int,Acc) when Int < 16#10000 -> + %% range 16#00000800 - 16#0000ffff + %% utf8 encoding: 1110xxxx 10xxxxxx 10xxxxxx + [?bit1to6_into_utf8byte(Int),?bit7to12_into_utf8byte(Int), + 16#e0 bor ((Int band 16#f000) bsr 12)|Acc]; +utf8_encode(Int,Acc) when Int < 16#200000 -> + %% range 16#00010000 - 16#001fffff + %% utf8 encoding: 11110xxx 10xxxxxx 10xxxxxx 10xxxxxx + [?bit1to6_into_utf8byte(Int),?bit7to12_into_utf8byte(Int), + ?bit13to18_into_utf8byte(Int), + 16#f0 bor ((Int band 16#1c0000) bsr 18)|Acc]; +utf8_encode(Int,Acc) when Int < 16#4000000 -> + %% range 16#00200000 - 16#03ffffff + %% utf8 encoding: 111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx + [?bit1to6_into_utf8byte(Int),?bit7to12_into_utf8byte(Int), + ?bit13to18_into_utf8byte(Int),?bit19to24_into_utf8byte(Int), + 16#f8 bor ((Int band 16#3000000) bsr 24)|Acc]; +utf8_encode(Int,Acc) -> + %% range 16#04000000 - 16#7fffffff + %% utf8 encoding: 1111110x 10xxxxxx ...(total 6 bytes) 10xxxxxx + [?bit1to6_into_utf8byte(Int),?bit7to12_into_utf8byte(Int), + ?bit13to18_into_utf8byte(Int),?bit19to24_into_utf8byte(Int), + ?bit25to30_into_utf8byte(Int), + 16#fc bor ((Int band 16#40000000) bsr 30)|Acc]. -- cgit v1.2.3