aboutsummaryrefslogtreecommitdiffstats
path: root/lib/orber/src/orber_diagnostics.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/orber/src/orber_diagnostics.erl')
-rw-r--r--lib/orber/src/orber_diagnostics.erl240
1 files changed, 240 insertions, 0 deletions
diff --git a/lib/orber/src/orber_diagnostics.erl b/lib/orber/src/orber_diagnostics.erl
new file mode 100644
index 0000000000..c12dbfa896
--- /dev/null
+++ b/lib/orber/src/orber_diagnostics.erl
@@ -0,0 +1,240 @@
+%%--------------------------------------------------------------------
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2003-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: orber_diagnostics.erl
+%%
+%% Description:
+%%
+%%-----------------------------------------------------------------
+
+-module(orber_diagnostics).
+
+
+%%-----------------------------------------------------------------
+%% Includes
+%%-----------------------------------------------------------------
+-include_lib("orber/src/orber_iiop.hrl").
+-include_lib("orber/src/ifr_objects.hrl").
+-include_lib("orber/COSS/CosNaming/CosNaming.hrl").
+-include_lib("orber/COSS/CosNaming/CosNaming_NamingContext.hrl").
+-include_lib("orber/COSS/CosNaming/orber_cosnaming.hrl").
+
+
+%%-----------------------------------------------------------------
+%% External exports
+%%-----------------------------------------------------------------
+-export([nameservice/0, nameservice/1,
+ objectkeys/0,
+ missing_modules/0]).
+
+%%-----------------------------------------------------------------
+%% Internal Exports
+%%-----------------------------------------------------------------
+-export([]).
+
+%%-----------------------------------------------------------------
+%% Internal exports
+%%-----------------------------------------------------------------
+
+%%-----------------------------------------------------------------
+%% Macros
+%%-----------------------------------------------------------------
+-define(DEBUG_LEVEL, 5).
+
+-define(DIAGNOSTICS_PING_EXTERNAL, 16#01).
+
+%%-----------------------------------------------------------------
+%% Function : missing_modules
+%% Args : -
+%% Returns :
+%%-----------------------------------------------------------------
+missing_modules() ->
+ List =
+ case orber:light_ifr() of
+ false ->
+ Unions = mnesia:dirty_select(ir_UnionDef,
+ [{#ir_UnionDef{absolute_name='$1',
+ _='_'},
+ [], ['$1']}]),
+ Structs = mnesia:dirty_select(ir_StructDef,
+ [{#ir_StructDef{absolute_name='$1',
+ _='_'},
+ [], ['$1']}]),
+ Exc = mnesia:dirty_select(ir_ExceptionDef,
+ [{#ir_ExceptionDef{absolute_name='$1',
+ _='_'},
+ [], ['$1']}]),
+ Interface = mnesia:dirty_select(ir_InterfaceDef,
+ [{#ir_InterfaceDef{absolute_name='$1',
+ _='_'},
+ [], ['$1']}]),
+ Acc1 = create_module_names(Unions, [], ?IFR_UnionDef),
+ Acc2 = create_module_names(Structs, Acc1, ?IFR_StructDef),
+ Acc3 = create_module_names(Exc, Acc2, ?IFR_ExceptionDef),
+ create_module_names(Interface, Acc3, ?IFR_InterfaceDef);
+ true ->
+ mnesia:dirty_select(orber_light_ifr,
+ [{#orber_light_ifr{module='$1',
+ type='$2', _='_'},
+ [{'=/=', '$2', ?IFR_ModuleDef},
+ {'=/=', '$2', ?IFR_ConstantDef},
+ {'=/=', '$2', ?IFR_AliasDef},
+ {'=/=', '$2', ?IFR_EnumDef}], ['$$']}])
+ end,
+ io:format("Need to check for ~p modules.~n", [length(List)]),
+ Count = missing_modules_helper(List, 0),
+ io:format("Check completed. ~p missing modules.~n", [Count]),
+ Count.
+
+create_module_names([], Acc, _) ->
+ Acc;
+create_module_names([[$:,$:|N]|T], Acc, Type) ->
+ create_module_names(T, [[change_colons_to_underscore(N, []), Type]|Acc], Type).
+
+change_colons_to_underscore([$:, $: | T], Acc) ->
+ change_colons_to_underscore(T, [$_ |Acc]);
+change_colons_to_underscore([H |T], Acc) ->
+ change_colons_to_underscore(T, [H |Acc]);
+change_colons_to_underscore([], Acc) ->
+ list_to_atom(lists:reverse(Acc)).
+
+missing_modules_helper([], ErrorsFound) ->
+ ErrorsFound;
+missing_modules_helper([[Mod, Type]|T], ErrorsFound) when Type == ?IFR_StructDef;
+ Type == ?IFR_UnionDef;
+ Type == ?IFR_ExceptionDef ->
+ case catch Mod:tc() of
+ {'EXIT', _} ->
+ io:format("Missing (~s): ~p~n", [type2str(Type), Mod]),
+ missing_modules_helper(T, ErrorsFound + 1);
+ _ ->
+ missing_modules_helper(T, ErrorsFound)
+ end;
+missing_modules_helper([[Mod, Type]|T], ErrorsFound) when Type == ?IFR_InterfaceDef ->
+ case catch Mod:oe_get_interface() of
+ {'EXIT', {undef,[{Mod, _, _}|_]}} ->
+ io:format("Missing (Interface): ~p~n", [Mod]),
+ missing_modules_helper(T, ErrorsFound + 1);
+ {'EXIT', {undef,[{OtherMod, _, _}|_]}} ->
+ io:format("Missing (Inherited by the ~p Interface): ~p~n",
+ [Mod, OtherMod]),
+ missing_modules_helper(T, ErrorsFound + 1);
+ _ ->
+ missing_modules_helper(T, ErrorsFound)
+ end;
+missing_modules_helper([_|T], ErrorsFound) ->
+ missing_modules_helper(T, ErrorsFound).
+
+type2str(?IFR_StructDef) ->
+ "Struct";
+type2str(?IFR_UnionDef) ->
+ "Union";
+type2str(?IFR_ExceptionDef) ->
+ "Exception".
+
+
+%%-----------------------------------------------------------------
+%% Function : nameservice
+%% Args : - | integer()
+%% Returns :
+%%-----------------------------------------------------------------
+nameservice() ->
+ nameservice(0).
+
+nameservice(Flags) ->
+ case catch ns(?ORB_FLAG_TEST(Flags, ?DIAGNOSTICS_PING_EXTERNAL)) of
+ ok ->
+ ok;
+ {'EXCEPTION', E} ->
+ orber:dbg("[~p] orber_diagnostics:nameservice(~p);~n"
+ "Reason: ~p", [?LINE, Flags, E], ?DEBUG_LEVEL),
+ corba:raise(E);
+ What ->
+ orber:dbg("[~p] orber_diagnostics:nameservice(~p);~n"
+ "Reason: ~p", [?LINE, Flags, What], ?DEBUG_LEVEL),
+ corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO})
+ end.
+
+ns(Ping) ->
+ NS = corba:resolve_initial_references("NameService"),
+ display_names(NS, "", Ping).
+
+
+display_names(NS, Prefix, Ping) ->
+ {ok, [], Iter} = 'CosNaming_NamingContextExt':list(NS, 0),
+ More = not corba_object:is_nil(Iter),
+ iter_names(NS, Prefix, Iter, More, Ping).
+
+iter_names(_NS, _Prefix, Iter, false, _) ->
+ destroy_iter(Iter);
+iter_names(NS, Prefix, Iter, true, Ping) ->
+ {More, #'CosNaming_Binding'{binding_name = Name, binding_type = Type}} =
+ 'CosNaming_BindingIterator':next_one(Iter),
+ Fun = fun(#'CosNaming_NameComponent'{id = Id, kind = Kind}, Acc) ->
+ case Kind of
+ "" -> Acc ++ Id ++ "/";
+ _ -> Acc ++ Id ++ "." ++ Kind ++ "/"
+ end
+ end,
+ Prefix2 = lists:foldl(Fun, Prefix, Name),
+ if
+ More == false ->
+ ignore;
+ Type == nobject ->
+ Object = 'CosNaming_NamingContext':resolve(NS, Name),
+ Status =
+ case corba_object:is_remote(Object) of
+ false ->
+ corba_object:non_existent(Object);
+ _ when Ping == true ->
+ case catch corba_object:non_existent(Object) of
+ Boolean when is_atom(Boolean) ->
+ Boolean;
+ _Other ->
+ undefined
+ end;
+ _ ->
+ external
+ end,
+ io:format("~s [~p] ~s\n",
+ [Prefix2, Status, iop_ior:get_typeID(Object)]);
+ Type == ncontext ->
+ Context = 'CosNaming_NamingContext':resolve(NS, Name),
+ io:format("~s\n", [Prefix2]),
+ display_names(Context, Prefix2, Ping)
+ end,
+ iter_names(NS, Prefix, Iter, More, Ping).
+
+destroy_iter(Iter) ->
+ case corba_object:is_nil(Iter) of
+ false ->
+ 'CosNaming_BindingIterator':destroy(Iter),
+ ok;
+ true ->
+ ok
+ end.
+
+objectkeys() ->
+ ok.
+
+
+
+%%---------------- END OF MODULE ----------------------------------
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-22 18:49:30 +0000