The R13B03 release.OTP_R13B03

1 files changed, 133 insertions, 0 deletions

diff --git a/lib/orber/COSS/CosNaming/lname.erl b/lib/orber/COSS/CosNaming/lname.erl
new file mode 100644
index 0000000000..9f060d3296
--- /dev/null
+++ b/lib/orber/COSS/CosNaming/lname.erl
@@ -0,0 +1,133 @@
+%%--------------------------------------------------------------------
+%%
+%% %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%
+%%
+%%
+%%-----------------------------------------------------------------
+%% File: lname.erl
+%%-----------------------------------------------------------------
+-module(lname).
+
+-include_lib("orber/include/corba.hrl").
+-include("CosNaming.hrl").
+-include("lname.hrl").
+
+%%-----------------------------------------------------------------
+%% External exports
+%%-----------------------------------------------------------------
+-export([create/0, insert_component/3, get_component/2, delete_component/2,
+	 num_component/1, equal/2, less_than/2,
+	 to_idl_form/1, from_idl_form/1, check_name/1, new/1]).
+
+%%-----------------------------------------------------------------
+%% Internal exports
+%%-----------------------------------------------------------------
+-export([]).
+
+%% DEBUG INFO
+-define(DEBUG_LEVEL, 5).
+
+%%-----------------------------------------------------------------
+%% External interface functions
+%%-----------------------------------------------------------------
+create() ->
+    [].
+
+insert_component(_, I, _) when I < 1->
+    corba:raise(#'LName_NoComponent'{});
+insert_component([], I, _) when I > 1->
+    corba:raise(#'LName_NoComponent'{});
+insert_component(Name, 1, Component) when is_record(Component,
+						    'CosNaming_NameComponent') ->
+    [Component |Name];
+insert_component([H|T], I, Component) when is_record(Component,
+						     'CosNaming_NameComponent') ->
+    [H |insert_component(T, I-1, Component)];
+insert_component(_, _, Component) -> 
+    orber:dbg("[~p] ~p:insert_component(~p); Not a NameComponent.~n", 
+	      [?LINE, ?MODULE, Component], ?DEBUG_LEVEL),
+    corba:raise(#'BAD_PARAM'{completion_status=?COMPLETED_NO}).
+
+get_component(_, I) when I < 1->
+    corba:raise(#'LName_NoComponent'{});
+get_component([], _) ->
+    corba:raise(#'LName_NoComponent'{});
+get_component([H|_T], 1) ->
+    H;
+get_component([_|T], I) ->
+    get_component(T, I-1).
+
+delete_component(_, I) when I < 1->
+    corba:raise(#'LName_NoComponent'{});
+delete_component([], _) ->
+    corba:raise(#'LName_NoComponent'{});
+delete_component([_|T], 1) ->
+    T;
+delete_component([H|T], I) ->
+    [H | delete_component(T, I-1)].
+
+num_component(Name) ->
+    num_component(Name, 0).
+
+equal(Name, N) ->
+    N == Name.
+
+less_than(Name, N) ->
+    Name < N.
+
+to_idl_form(Name) ->
+    case check_name(Name) of
+	false ->
+	    corba:raise(#'LName_InvalidName'{});
+	true ->
+	    Name
+    end.
+
+from_idl_form(Name) ->
+    Name.
+	
+%%destroy() -> % not needed in erlang
+%%    ok.
+
+%%-----------------------------------------------------------------
+%% External Functions not in the CosNaming standard
+%%-----------------------------------------------------------------
+new([]) ->
+    [];
+new([{Id, Kind} | List]) ->
+    [lname_component:new(Id, Kind) | new(List)];
+new([Id |List]) when is_list(Id) ->
+    [lname_component:new(Id) | new(List)].
+
+%%-----------------------------------------------------------------
+%% Internal Functions
+%%-----------------------------------------------------------------
+num_component([], N) ->
+    N;
+num_component([_|T], N) ->
+    num_component(T, N+1).
+
+check_name([]) ->
+    true;
+check_name([H|T]) ->
+    case catch lname_component:get_id(H) of
+	{'EXCEPTION', _E} ->
+	    false;
+	_ ->
+	    check_name(T)
+    end.