The R13B03 release.OTP_R13B03

1 files changed, 402 insertions, 0 deletions

diff --git a/lib/compiler/test/inline_SUITE_data/decode1.erl b/lib/compiler/test/inline_SUITE_data/decode1.erl
new file mode 100644
index 0000000000..d51bedcb2e
--- /dev/null
+++ b/lib/compiler/test/inline_SUITE_data/decode1.erl
@@ -0,0 +1,402 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2006-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%
+%%
+%----------------------------------------------------------------------
+% decode1.erl (new version)
+%----------------------------------------------------------------------
+%    -*- Erlang -*- 
+%    File:	decode1.erl  (~jb/decode/decode1.erl)
+%    Author:	Johan Bevemyr
+%    Created:	Tue Jan 14 09:33:49 1997
+%    Purpose:   
+%    Notes:     Rewritten for use in ETOS. (Happi)
+
+-module(decode1).
+
+-export([?MODULE/0,
+	 decode_ie_heads_setup/1,
+	 run_dummy/2,
+	 run_orig/2]).
+
+?MODULE() ->
+  FrameList = [89,128,0,8,132,0,26,133,133,0,38,148,94,
+	       128,0,2,129,128,92,128,0,2,0,0,112,128,0,
+	       10,194,69,0,0,0,0,0,18,52,95],
+  Frame = concat_binary([list_to_binary([89]),list_to_binary([128]),
+			 list_to_binary([0]),list_to_binary([8]),
+			 list_to_binary([132]),list_to_binary([0]),
+			 list_to_binary([26]),list_to_binary([133]),
+			 list_to_binary([133]),list_to_binary([0]),
+			 list_to_binary([38]),list_to_binary([148]),
+			 list_to_binary([94]),list_to_binary([128]),
+			 list_to_binary([0]),list_to_binary([2]),
+			 list_to_binary([129]),list_to_binary([128]),
+			 list_to_binary([92]),list_to_binary([128]),
+			 list_to_binary([0]),list_to_binary([2]),
+			 list_to_binary([0]),list_to_binary([0]),
+			 list_to_binary([112]),list_to_binary([128]),
+			 list_to_binary([0]),list_to_binary([10]),
+			 list_to_binary([194]),list_to_binary([69]),
+			 list_to_binary([0]),list_to_binary([0]),
+			 list_to_binary([0]),list_to_binary([0]),
+			 list_to_binary([0]),list_to_binary([18]),
+			 list_to_binary([52]),list_to_binary([95])]),
+  
+    R = loop(2,0,Frame),
+    {R,R =:= {0,[{ie,112,itu_t_standard,ignore,10,<<194,69,0,0,0,0,0,18,52,95>>},
+		 {ie,92,itu_t_standard,ignore,2,<<0,0>>},
+		 {ie,94,itu_t_standard,ignore,2,<<129,128>>},
+		 {ie,89,itu_t_standard,ignore,8,<<132,0,26,133,133,0,38,148>>}]}}.
+     
+loop(0,R,_) -> R;
+loop(N,R,Frame) -> loop(N-1, decode1:decode_ie_heads_setup(Frame),Frame).
+
+run_dummy(0,Frame) ->
+   done;
+run_dummy(N,Frame) ->
+   parse_dummy(Frame),
+   run_dummy(N-1,Frame).
+
+parse_dummy(Frame) -> true.
+
+run_orig(0,Frame) -> 
+   done;
+run_orig(N,Frame) ->
+   decode1:decode_ie_heads_setup(Frame),
+   run_orig(N-1,Frame).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Macros
+%    
+
+-define(VALID_ACTION(Flag), if ((Flag) band 16#10) == 16#10 -> true;
+			       true -> false
+			    end).
+-define(GET_ACTION(Flag),   ((Flag) band 16#03)).
+
+-define(getint16(X1,X0),    (16#100*X1 + X0)).
+
+-define(IS_EXTENDED(X),     (if ((X) band 16#80) == 16#80 -> false;
+				true -> true
+			     end)).
+
+
+%%% ----------------------------------------------------------
+%%% #           ie
+%%% Description: Used to encapsulate the ie head
+%%% ----------------------------------------------------------
+
+
+-record(ie,{identifier,
+	    coding,
+	    action_ind,
+	    length,
+	    ie_body = binary}).
+
+%%% ----------------------------------------------------------
+%%% #           bbc
+%%% Description: BROADBAND BEARER CAPABILITY
+%%% ----------------------------------------------------------
+
+-record(scct_bbc,
+	{scct_pci,		% parameter compatibility info
+	 scct_bearer_class,
+	 scct_atm_transfer_capability,
+	 scct_user_plane_connection_configuration,
+	 scct_susceptibility_to_clipping}).
+
+
+%%% ----------------------------------------------------------
+%%% #           cause
+%%% Description: CAUSE
+%%% ----------------------------------------------------------
+
+-record(scct_cause,
+	{scct_pci,		% parameter compatibility info
+	 scct_location,
+	 scct_cause_value,
+	 scct_diagnostics_list = []}).
+
+
+%%% ----------------------------------------------------------
+%%% #           release_complete_uni
+%%% Description: 
+%%% ----------------------------------------------------------
+
+-record(release_complete_uni,
+	{scct_cause_list=[],   % Cause IE's in a list where each element
+			       % is a record of scct_cause{}
+         scct_geidt_list=[]}). % Generic Identifier Transport IE's in a list 
+                               % where each element is a record of scct_geidt{}
+
+
+-define(IE_BB_BEARER_CAPABILITY, 		16#5e).
+-define(SCCT_PUB_NETW_SERV_LOCAL_USR,        2).
+-define(SCCT_ERR_INVALID_IE_CONT,		 	100).
+-define(DECRES_THROW_RELCOMP,  		error_throw_relcomp).
+
+-define(SCCT_P_TO_P,                         0).
+-define(SCCT_P_TO_MP,                        1).
+
+-define(IE_ENDPT_REF,   			16#54).
+-define(IE_BB_REPEAT_INDICATOR, 		16#63).
+
+-define(SCCT_ERR_MAND_IE_MISSING,			96).
+
+-define(A_CLEAR_CALL,            			0).
+-define(A_DISCARD_PROCEED,       			1).
+-define(A_DISCARD_PROCEED_STATUS,			2).
+
+-define(SCCT_BCOB_A,                         1).
+-define(SCCT_BCOB_C,                         3).
+-define(SCCT_BCOB_X,                         16).
+-define(SCCT_TRANSP_VP_SERV,                 24).
+
+-define(SCCT_CBR,                            5).
+-define(SCCT_CBR_WITH_CLR_CLP_0_1,           7).
+-define(SCCT_RT_VBR,                         9).
+-define(SCCT_RT_VBR_WITH_CLR_CLP_0_1,        19).
+-define(SCCT_NON_RT_VBR,                     10).
+-define(SCCT_NON_RT_VBR_WITH_CLR_CLP_0_1,    11).
+-define(SCCT_ABR,                            12).
+-define(SCCT_NOT_SUSCEPT_TO_CLIPPING,        0).
+-define(SCCT_SUSCEPT_TO_CLIPPING,            1).
+
+
+
+%%% ----------------------------------------------------------
+%%% -type decode_ie_heads_setup(Bin)-> 	       	    
+%%%                                              
+%%% Input: Binary to body of incoming Message
+%%% Output:  
+%%%                
+%%% Exceptions:  
+%%% Description:decode_ie_heads_setup is used both p-p and p-mp setup
+%%%             Never fails. Needs to be exported to be able to check 
+%%%             if setup is p-p or p-mp. 
+%%%             Note that if broadband rep indicator is present
+%%%             order must be incoming IE's must be preserved, this
+%%%             only applicable in msg setup
+%%% ----------------------------------------------------------
+decode_ie_heads_setup(Bin)->
+   decode_ie_heads_setup(Bin,no_bbc_ie,no_epr,[],no_brep).
+	
+decode_ie_heads_setup(Bin,TypeOfCall,EprFlag,IEList,BrepFlag) when is_binary(Bin),size(Bin) >= 4 ->
+   {Bin1,Bin2} = split_binary(Bin,4),
+   [Id,F,L1,L0]= binary_to_list(Bin1),
+   Action = decode_action(F),
+   Coding = decode_ie_coding(F),
+   case ?getint16(L1,L0) of
+      Len when Len >0 ->
+	 %%catch needed we cannot trust indata
+	 case catch split_binary(Bin2,Len) of 
+	    {'EXIT',_} ->  %%binary unpacked as far as possible
+	       decode_ie_heads_setup(not_a_binary,TypeOfCall,EprFlag,
+				     IEList,BrepFlag);
+	    {Bin3,Bin4} ->
+	       IE= #ie {identifier = Id,
+			coding = Coding,
+			action_ind= Action,
+			length= Len,
+			ie_body= Bin3},
+	       case Id of
+		  ?IE_BB_BEARER_CAPABILITY -> 
+		     BbcRec=#scct_bbc{},
+		     %%catch needed we cannot trust indata
+		     case catch 
+			dec_bearer_capability(BbcRec,
+					      binary_to_list(Bin3)) of
+			{'EXIT',_} -> %mand content error
+			   CauseRec=#scct_cause{scct_location=
+						?SCCT_PUB_NETW_SERV_LOCAL_USR,
+						scct_cause_value=
+					        ?SCCT_ERR_INVALID_IE_CONT,
+						scct_diagnostics_list=
+						[?IE_BB_BEARER_CAPABILITY]},
+			   RelCompUniMsg =
+			      #release_complete_uni{scct_cause_list=
+						    [CauseRec]},
+			   {?DECRES_THROW_RELCOMP,RelCompUniMsg};
+			NewBbcRec ->
+			   case NewBbcRec
+			      #scct_bbc.scct_user_plane_connection_configuration of
+			      ?SCCT_P_TO_P ->
+				 decode_ie_heads_setup(Bin4,
+						       ?SCCT_P_TO_P,
+						       EprFlag,
+						       [IE|IEList],
+						       BrepFlag);
+			      ?SCCT_P_TO_MP ->
+				 decode_ie_heads_setup(Bin4,
+						       ?SCCT_P_TO_MP,
+						       EprFlag,
+						       [IE|IEList],
+						       BrepFlag)
+			   end
+		     end;
+		  ?IE_ENDPT_REF ->  
+		     decode_ie_heads_setup(Bin4,TypeOfCall,yes_epr,
+					   [IE|IEList],BrepFlag);
+		  ?IE_BB_REPEAT_INDICATOR ->
+		     decode_ie_heads_setup(Bin4,TypeOfCall,EprFlag,
+					   [IE|IEList],yes_brep);
+		  _ ->
+		     decode_ie_heads_setup(Bin4,TypeOfCall,EprFlag,
+					   [IE|IEList],BrepFlag)
+	       end
+	 end;
+      Len when Len == 0 ->%ie body empty, treat as if whole ie was missing
+	 decode_ie_heads_setup(Bin2,TypeOfCall,EprFlag,IEList,BrepFlag)
+   end;
+decode_ie_heads_setup(_,?SCCT_P_TO_MP,yes_epr,IEList,no_brep) ->
+   {?SCCT_P_TO_MP,IEList};
+decode_ie_heads_setup(_,?SCCT_P_TO_MP,yes_epr,IEList,yes_brep) ->
+%Order of incoming IEs must be preserved since BroadB Repeat Ind is present
+   {?SCCT_P_TO_MP,reverse(IEList)}; 
+decode_ie_heads_setup(_,?SCCT_P_TO_MP,no_epr,_,no_brep) ->
+   CauseRec=#scct_cause{scct_location=?SCCT_PUB_NETW_SERV_LOCAL_USR,
+			scct_cause_value=?SCCT_ERR_MAND_IE_MISSING,
+			scct_diagnostics_list=[?IE_ENDPT_REF]}, 
+   RelCompUniMsg =#release_complete_uni{scct_cause_list=[CauseRec]},
+   {?DECRES_THROW_RELCOMP,RelCompUniMsg};
+decode_ie_heads_setup(_,?SCCT_P_TO_P,_,IEList,no_brep) ->
+   {?SCCT_P_TO_P,IEList};
+decode_ie_heads_setup(_,?SCCT_P_TO_P,_,IEList,yes_brep) ->
+%Order of incoming IEs must be preserved since BrodB Repeat Ind is present
+   {?SCCT_P_TO_P,reverse(IEList)};
+decode_ie_heads_setup(_,no_bbc_ie,_,_,_) ->
+   CauseRec=#scct_cause{scct_location=?SCCT_PUB_NETW_SERV_LOCAL_USR,
+			scct_cause_value=?SCCT_ERR_MAND_IE_MISSING,
+			scct_diagnostics_list=[?IE_BB_BEARER_CAPABILITY]},
+   RelCompUniMsg =#release_complete_uni{scct_cause_list=[CauseRec]},
+   {?DECRES_THROW_RELCOMP,RelCompUniMsg}.
+
+
+
+%%%
+%%% Decode message type and header
+%%%
+
+decode_action(Flag) ->
+   case ?VALID_ACTION(Flag) of
+      true ->
+	 case ?GET_ACTION(Flag) of
+	    ?A_CLEAR_CALL -> clear_call;
+	    ?A_DISCARD_PROCEED -> discard_proceed;
+	    ?A_DISCARD_PROCEED_STATUS -> discard_proceed_status;
+	    _ -> undefined
+	 end;
+      false ->
+	 ignore
+   end.
+
+
+%%%
+%%% Decode ie coding
+%%%
+
+decode_ie_coding(F) ->
+   case F band 16#60 of 
+      0 -> itu_t_standard;
+      16#60 -> atm_forum_specific;
+      _ -> undefined
+   end.
+
+
+%%% --------------------------------------------------------------------------
+%%%
+%%% Decode of INFORMATION ELEMENT: Broadband Bearer Capability
+%%%
+%%% --------------------------------------------------------------------------
+
+dec_bearer_capability(BbcRec, [Octet5 | Rest]) ->
+   NewBbcRec = 
+      case Octet5 band 16#1f of
+	 16#01 -> 
+	    BbcRec#scct_bbc{scct_bearer_class = ?SCCT_BCOB_A};
+	 16#03 -> 
+	    BbcRec#scct_bbc{scct_bearer_class = ?SCCT_BCOB_C};
+	 16#10 -> 
+	    BbcRec#scct_bbc{scct_bearer_class = ?SCCT_BCOB_X};
+	 16#18 -> 
+	    BbcRec#scct_bbc{scct_bearer_class = ?SCCT_TRANSP_VP_SERV}
+      end,
+   
+   case ?IS_EXTENDED(Octet5) of
+      true ->
+	 dec_bearer_capability_5a(NewBbcRec, Rest);
+      false -> 
+	 dec_bearer_capability_6(NewBbcRec, Rest)
+   end.
+
+dec_bearer_capability_5a(BbcRec,[Octet5a | Rest]) ->    
+   NewBbcRec = 
+      case Octet5a band 16#7f of  
+	 16#05 -> 
+	    BbcRec#scct_bbc{scct_atm_transfer_capability = 
+			    ?SCCT_CBR};
+	 16#07 -> 
+	    BbcRec#scct_bbc{scct_atm_transfer_capability = 
+			    ?SCCT_CBR_WITH_CLR_CLP_0_1};
+	 16#09 -> 
+	    BbcRec#scct_bbc{scct_atm_transfer_capability = 
+			    ?SCCT_RT_VBR};
+	 16#13 -> 
+	    BbcRec#scct_bbc{scct_atm_transfer_capability = 
+			    ?SCCT_RT_VBR_WITH_CLR_CLP_0_1};
+	 16#0a -> 
+	    BbcRec#scct_bbc{scct_atm_transfer_capability = 
+			    ?SCCT_NON_RT_VBR};
+	 16#0b -> 
+	    BbcRec#scct_bbc{scct_atm_transfer_capability = 
+			    ?SCCT_NON_RT_VBR_WITH_CLR_CLP_0_1};
+	 16#0c -> 
+	    BbcRec#scct_bbc{scct_atm_transfer_capability = 
+			    ?SCCT_ABR}
+      end,
+   dec_bearer_capability_6(NewBbcRec,Rest).
+
+
+dec_bearer_capability_6(BbcRec, [Octet6]) ->
+   STC = 
+      case (Octet6 bsr 5) band 16#03 of
+	 16#00 -> 
+	    ?SCCT_NOT_SUSCEPT_TO_CLIPPING;
+	 16#01 -> 
+	    ?SCCT_SUSCEPT_TO_CLIPPING
+      end,
+   
+   UPCC = 
+      case Octet6 band 16#03 of
+	 16#00 ->
+	    ?SCCT_P_TO_P;
+	 16#01 ->
+	    ?SCCT_P_TO_MP
+      end,
+
+   NewBbcRec = BbcRec#scct_bbc{scct_susceptibility_to_clipping = STC,
+			       scct_user_plane_connection_configuration = UPCC}.
+
+
+reverse(L) ->
+  reverse(L,[]).
+
+reverse([E|Rest],Acc) ->
+  reverse(Rest,[E|acc]);
+reverse([],Acc) -> Acc.