The R13B03 release.OTP_R13B03

1 files changed, 210 insertions, 0 deletions

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:16>> = <<Int1:4,Int2:6,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,
+    <<Res:24>> = <<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,
+    <<Res:32>> = <<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,
+    <<Res:32>> = <<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].