mnesia_corba_session.erl

来自「OTP是开放电信平台的简称」· ERL 代码 · 共 1,226 行 · 第 1/3 页

	{"table_info", oe_tc(table_info)},
	{"dump_to_textfile", oe_tc(dump_to_textfile)},
	{"load_textfile", oe_tc(load_textfile)},
	{"backup_checkpoint2", oe_tc(backup_checkpoint2)},
	{"backup_checkpoint1", oe_tc(backup_checkpoint1)},
	{"deactivate_checkpoint", oe_tc(deactivate_checkpoint)},
	{"activate_checkpoint", oe_tc(activate_checkpoint)},
	{"dump_tables", oe_tc(dump_tables)},
	{"dump_log", oe_tc(dump_log)},
	{"uninstall_fallback", oe_tc(uninstall_fallback)},
	{"install_fallback2", oe_tc(install_fallback2)},
	{"install_fallback1", oe_tc(install_fallback1)},
	{"backup2", oe_tc(backup2)},
	{"backup1", oe_tc(backup1)},
	{"set_master_nodes2", oe_tc(set_master_nodes2)},
	{"set_master_nodes1", oe_tc(set_master_nodes1)},
	{"change_table_load_order", oe_tc(change_table_load_order)},
	{"force_load_table", oe_tc(force_load_table)},
	{"wait_for_tables", oe_tc(wait_for_tables)},
	{"change_table_access_mode", oe_tc(change_table_access_mode)},
	{"change_table_copy_type", oe_tc(change_table_copy_type)},
	{"del_table_index", oe_tc(del_table_index)},
	{"add_table_index", oe_tc(add_table_index)},
	{"move_table_copy", oe_tc(move_table_copy)},
	{"del_table_copy", oe_tc(del_table_copy)},
	{"add_table_copy", oe_tc(add_table_copy)},
	{"delete_table", oe_tc(delete_table)},
	{"create_table", oe_tc(create_table)},
	{"dirty_index_read", oe_tc(dirty_index_read)},
	{"dirty_match_all", oe_tc(dirty_match_all)},
	{"dirty_all_keys", oe_tc(dirty_all_keys)},
	{"dirty_next", oe_tc(dirty_next)},
	{"dirty_first", oe_tc(dirty_first)},
	{"dirty_slot", oe_tc(dirty_slot)},
	{"dirty_delete_object", oe_tc(dirty_delete_object)},
	{"dirty_delete", oe_tc(dirty_delete)},
	{"dirty_update_counter", oe_tc(dirty_update_counter)},
	{"dirty_read", oe_tc(dirty_read)},
	{"dirty_write", oe_tc(dirty_write)}].




%%------------------------------------------------------------
%%
%% Object server implementation.
%%
%%------------------------------------------------------------


%%------------------------------------------------------------
%%
%% Function for fetching the interface type ID.
%%
%%------------------------------------------------------------

typeID() ->
    "IDL:mnesia/corba_session:1.0".


%%------------------------------------------------------------
%%
%% Object creation functions.
%%
%%------------------------------------------------------------

oe_create() ->
    corba:create(?MODULE, "IDL:mnesia/corba_session:1.0").

oe_create_link() ->
    corba:create_link(?MODULE, "IDL:mnesia/corba_session:1.0").

oe_create(Env) ->
    corba:create(?MODULE, "IDL:mnesia/corba_session:1.0", Env).

oe_create_link(Env) ->
    corba:create_link(?MODULE, "IDL:mnesia/corba_session:1.0", Env).

oe_create(Env, RegName) ->
    corba:create(?MODULE, "IDL:mnesia/corba_session:1.0", Env, RegName).

oe_create_link(Env, RegName) ->
    corba:create_link(?MODULE, "IDL:mnesia/corba_session:1.0", Env, RegName).

%%------------------------------------------------------------
%%
%% Init & terminate functions.
%%
%%------------------------------------------------------------

init(Env) ->
%% Call to implementation init
    corba:handle_init(mnesia_corba_session_impl, Env).

terminate(Reason, State) ->
    corba:handle_terminate(mnesia_corba_session_impl, Reason, State).


%%%% Operation: dirty_write
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_write, [Tab, Object]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_write, [Tab, Object], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_read
%% 
%%   Returns: RetVal, Result, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_read, [Tab, Key]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_read, [Tab, Key], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_update_counter
%% 
%%   Returns: RetVal, Newval, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_update_counter, [Tab, Key, Val]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_update_counter, [Tab, Key, Val], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_delete
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_delete, [Tab, Key]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_delete, [Tab, Key], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_delete_object
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_delete_object, [Tab, Object]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_delete_object, [Tab, Object], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_slot
%% 
%%   Returns: RetVal, Result, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_slot, [Tab, Slot]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_slot, [Tab, Slot], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_first
%% 
%%   Returns: RetVal, Next_key, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_first, [Tab]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_first, [Tab], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_next
%% 
%%   Returns: RetVal, Next_key, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_next, [Tab, Key]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_next, [Tab, Key], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_all_keys
%% 
%%   Returns: RetVal, Keys, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_all_keys, [Tab]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_all_keys, [Tab], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_match_all
%% 
%%   Returns: RetVal, Result, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_match_all, [Tab]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_match_all, [Tab], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dirty_index_read
%% 
%%   Returns: RetVal, Result, Reason
%%
handle_call({OE_THIS, OE_Context, dirty_index_read, [Tab, Key, Pos]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dirty_index_read, [Tab, Key, Pos], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: create_table
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, create_table, [Tab, TabDefs]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, create_table, [Tab, TabDefs], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: delete_table
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, delete_table, [Tab]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, delete_table, [Tab], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: add_table_copy
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, add_table_copy, [Tab, Node, Type]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, add_table_copy, [Tab, Node, Type], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: del_table_copy
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, del_table_copy, [Tab, Node]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, del_table_copy, [Tab, Node], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: move_table_copy
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, move_table_copy, [Tab, From, To]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, move_table_copy, [Tab, From, To], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: add_table_index
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, add_table_index, [Tab, Attrname]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, add_table_index, [Tab, Attrname], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: del_table_index
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, del_table_index, [Tab, Attrname]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, del_table_index, [Tab, Attrname], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: change_table_copy_type
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, change_table_copy_type, [Tab, Node, Type]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, change_table_copy_type, [Tab, Node, Type], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: change_table_access_mode
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, change_table_access_mode, [Tab, Mode]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, change_table_access_mode, [Tab, Mode], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: wait_for_tables
%% 
%%   Returns: RetVal, Failed_tabs, Reason
%%
handle_call({OE_THIS, OE_Context, wait_for_tables, [Tabs, Timeout]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, wait_for_tables, [Tabs, Timeout], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: force_load_table
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, force_load_table, [Tab]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, force_load_table, [Tab], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: change_table_load_order
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, change_table_load_order, [Tab, Load_order]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, change_table_load_order, [Tab, Load_order], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: set_master_nodes1
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, set_master_nodes1, [Nodes]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, set_master_nodes1, [Nodes], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: set_master_nodes2
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, set_master_nodes2, [Tab, Nodes]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, set_master_nodes2, [Tab, Nodes], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: backup1
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, backup1, [Filename]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, backup1, [Filename], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: backup2
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, backup2, [Opaque, Modulename]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, backup2, [Opaque, Modulename], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: install_fallback1
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, install_fallback1, [Filename]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, install_fallback1, [Filename], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: install_fallback2
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, install_fallback2, [Opaque, Modulename]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, install_fallback2, [Opaque, Modulename], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: uninstall_fallback
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, uninstall_fallback, []}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, uninstall_fallback, [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dump_log
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, dump_log, []}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dump_log, [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dump_tables
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, dump_tables, [List]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dump_tables, [List], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: activate_checkpoint
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, activate_checkpoint, [Cpdef]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, activate_checkpoint, [Cpdef], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: deactivate_checkpoint
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, deactivate_checkpoint, [CpName]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, deactivate_checkpoint, [CpName], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: backup_checkpoint1
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, backup_checkpoint1, [CpName, Filename]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, backup_checkpoint1, [CpName, Filename], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: backup_checkpoint2
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, backup_checkpoint2, [CpName, Opaque, Modulename]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, backup_checkpoint2, [CpName, Opaque, Modulename], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: load_textfile
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, load_textfile, [Filename]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, load_textfile, [Filename], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: dump_to_textfile
%% 
%%   Returns: RetVal, Reason
%%
handle_call({OE_THIS, OE_Context, dump_to_textfile, [Filename]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, dump_to_textfile, [Filename], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: table_info
%% 
%%   Returns: RetVal, Info, Reason
%%
handle_call({OE_THIS, OE_Context, table_info, [Tab]}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, table_info, [Tab], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: system_info
%% 
%%   Returns: RetVal, Info, Reason
%%
handle_call({OE_THIS, OE_Context, system_info, []}, _, OE_State) ->
  corba:handle_call(mnesia_corba_session_impl, system_info, [], OE_State, OE_Context, OE_THIS, false);



%%%% Standard gen_server call handle
%%
handle_call(stop, _, State) ->
    {stop, normal, ok, State};

handle_call(_, _, State) ->
    {reply, catch corba:raise(#'BAD_OPERATION'{minor=1163001857, completion_status='COMPLETED_NO'}), State}.


%%%% Standard gen_server cast handle
%%
handle_cast(stop, State) ->
    {stop, normal, State};

handle_cast(_, State) ->
    {noreply, State}.


%%%% Standard gen_server handles
%%
handle_info(_, State) ->
    {noreply, State}.


code_change(OldVsn, State, Extra) ->
    corba:handle_code_change(mnesia_corba_session_impl, OldVsn, State, Extra).