cosfiletransfer_file.erl

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

%%------------------------------------------------------------
oe_tc('_get_name') -> 
	{{tk_string,0},[],[]};
oe_tc('_get_complete_file_name') -> 
	{{tk_sequence,{tk_string,0},0},[],[]};
oe_tc('_get_parent') -> 
	{{tk_objref,"IDL:omg.org/CosFileTransfer/Directory:1.0","Directory"},
         [],
         []};
oe_tc('_get_associated_session') -> 
	{{tk_objref,"IDL:omg.org/CosFileTransfer/FileTransferSession:1.0",
                    "FileTransferSession"},
         [],
         []};
oe_tc(get_allowed_property_types) -> 'CosPropertyService_PropertySetDef':oe_tc(get_allowed_property_types);
oe_tc(get_allowed_properties) -> 'CosPropertyService_PropertySetDef':oe_tc(get_allowed_properties);
oe_tc(define_property_with_mode) -> 'CosPropertyService_PropertySetDef':oe_tc(define_property_with_mode);
oe_tc(define_properties_with_modes) -> 'CosPropertyService_PropertySetDef':oe_tc(define_properties_with_modes);
oe_tc(get_property_mode) -> 'CosPropertyService_PropertySetDef':oe_tc(get_property_mode);
oe_tc(get_property_modes) -> 'CosPropertyService_PropertySetDef':oe_tc(get_property_modes);
oe_tc(set_property_mode) -> 'CosPropertyService_PropertySetDef':oe_tc(set_property_mode);
oe_tc(set_property_modes) -> 'CosPropertyService_PropertySetDef':oe_tc(set_property_modes);
oe_tc(define_property) -> 'CosPropertyService_PropertySet':oe_tc(define_property);
oe_tc(define_properties) -> 'CosPropertyService_PropertySet':oe_tc(define_properties);
oe_tc(get_number_of_properties) -> 'CosPropertyService_PropertySet':oe_tc(get_number_of_properties);
oe_tc(get_all_property_names) -> 'CosPropertyService_PropertySet':oe_tc(get_all_property_names);
oe_tc(get_property_value) -> 'CosPropertyService_PropertySet':oe_tc(get_property_value);
oe_tc(get_properties) -> 'CosPropertyService_PropertySet':oe_tc(get_properties);
oe_tc(get_all_properties) -> 'CosPropertyService_PropertySet':oe_tc(get_all_properties);
oe_tc(delete_property) -> 'CosPropertyService_PropertySet':oe_tc(delete_property);
oe_tc(delete_properties) -> 'CosPropertyService_PropertySet':oe_tc(delete_properties);
oe_tc(delete_all_properties) -> 'CosPropertyService_PropertySet':oe_tc(delete_all_properties);
oe_tc(is_property_defined) -> 'CosPropertyService_PropertySet':oe_tc(is_property_defined);
oe_tc(_) -> undefined.

oe_get_interface() -> 
	[{"is_property_defined", 'CosPropertyService_PropertySet':oe_tc(is_property_defined)},
	{"delete_all_properties", 'CosPropertyService_PropertySet':oe_tc(delete_all_properties)},
	{"delete_properties", 'CosPropertyService_PropertySet':oe_tc(delete_properties)},
	{"delete_property", 'CosPropertyService_PropertySet':oe_tc(delete_property)},
	{"get_all_properties", 'CosPropertyService_PropertySet':oe_tc(get_all_properties)},
	{"get_properties", 'CosPropertyService_PropertySet':oe_tc(get_properties)},
	{"get_property_value", 'CosPropertyService_PropertySet':oe_tc(get_property_value)},
	{"get_all_property_names", 'CosPropertyService_PropertySet':oe_tc(get_all_property_names)},
	{"get_number_of_properties", 'CosPropertyService_PropertySet':oe_tc(get_number_of_properties)},
	{"define_properties", 'CosPropertyService_PropertySet':oe_tc(define_properties)},
	{"define_property", 'CosPropertyService_PropertySet':oe_tc(define_property)},
	{"set_property_modes", 'CosPropertyService_PropertySetDef':oe_tc(set_property_modes)},
	{"set_property_mode", 'CosPropertyService_PropertySetDef':oe_tc(set_property_mode)},
	{"get_property_modes", 'CosPropertyService_PropertySetDef':oe_tc(get_property_modes)},
	{"get_property_mode", 'CosPropertyService_PropertySetDef':oe_tc(get_property_mode)},
	{"define_properties_with_modes", 'CosPropertyService_PropertySetDef':oe_tc(define_properties_with_modes)},
	{"define_property_with_mode", 'CosPropertyService_PropertySetDef':oe_tc(define_property_with_mode)},
	{"get_allowed_properties", 'CosPropertyService_PropertySetDef':oe_tc(get_allowed_properties)},
	{"get_allowed_property_types", 'CosPropertyService_PropertySetDef':oe_tc(get_allowed_property_types)},
	{"_get_associated_session", oe_tc('_get_associated_session')},
	{"_get_parent", oe_tc('_get_parent')},
	{"_get_complete_file_name", oe_tc('_get_complete_file_name')},
	{"_get_name", oe_tc('_get_name')}].




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


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

typeID() ->
    "IDL:omg.org/CosFileTransfer/File:1.0".


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

oe_create() ->
    corba:create(?MODULE, "IDL:omg.org/CosFileTransfer/File:1.0").

oe_create_link() ->
    corba:create_link(?MODULE, "IDL:omg.org/CosFileTransfer/File:1.0").

oe_create(Env) ->
    corba:create(?MODULE, "IDL:omg.org/CosFileTransfer/File:1.0", Env).

oe_create_link(Env) ->
    corba:create_link(?MODULE, "IDL:omg.org/CosFileTransfer/File:1.0", Env).

oe_create(Env, RegName) ->
    corba:create(?MODULE, "IDL:omg.org/CosFileTransfer/File:1.0", Env, RegName).

oe_create_link(Env, RegName) ->
    corba:create_link(?MODULE, "IDL:omg.org/CosFileTransfer/File:1.0", Env, RegName).

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

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

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


%%%% Operation: '_get_name'
%% 
%%   Returns: RetVal
%%
handle_call({OE_THIS, OE_Context, '_get_name', []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', '_get_name', [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: '_get_complete_file_name'
%% 
%%   Returns: RetVal
%%
handle_call({OE_THIS, OE_Context, '_get_complete_file_name', []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', '_get_complete_file_name', [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: '_get_parent'
%% 
%%   Returns: RetVal
%%
handle_call({OE_THIS, OE_Context, '_get_parent', []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', '_get_parent', [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: '_get_associated_session'
%% 
%%   Returns: RetVal
%%
handle_call({OE_THIS, OE_Context, '_get_associated_session', []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', '_get_associated_session', [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_allowed_property_types
%% 
%%   Returns: RetVal, Property_types
%%
handle_call({OE_THIS, OE_Context, get_allowed_property_types, []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_allowed_property_types, [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_allowed_properties
%% 
%%   Returns: RetVal, Property_defs
%%
handle_call({OE_THIS, OE_Context, get_allowed_properties, []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_allowed_properties, [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: define_property_with_mode
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::InvalidPropertyName, CosPropertyService::ConflictingProperty, CosPropertyService::UnsupportedTypeCode, CosPropertyService::UnsupportedProperty, CosPropertyService::UnsupportedMode, CosPropertyService::ReadOnlyProperty
%%
handle_call({OE_THIS, OE_Context, define_property_with_mode, [Property_name, Property_value, Property_mode]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', define_property_with_mode, [Property_name, Property_value, Property_mode], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: define_properties_with_modes
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::MultipleExceptions
%%
handle_call({OE_THIS, OE_Context, define_properties_with_modes, [Property_defs]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', define_properties_with_modes, [Property_defs], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_property_mode
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::PropertyNotFound, CosPropertyService::InvalidPropertyName
%%
handle_call({OE_THIS, OE_Context, get_property_mode, [Property_name]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_property_mode, [Property_name], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_property_modes
%% 
%%   Returns: RetVal, Property_modes
%%
handle_call({OE_THIS, OE_Context, get_property_modes, [Property_names]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_property_modes, [Property_names], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: set_property_mode
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::InvalidPropertyName, CosPropertyService::PropertyNotFound, CosPropertyService::UnsupportedMode
%%
handle_call({OE_THIS, OE_Context, set_property_mode, [Property_name, Property_mode]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', set_property_mode, [Property_name, Property_mode], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: set_property_modes
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::MultipleExceptions
%%
handle_call({OE_THIS, OE_Context, set_property_modes, [Property_modes]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', set_property_modes, [Property_modes], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: define_property
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::InvalidPropertyName, CosPropertyService::ConflictingProperty, CosPropertyService::UnsupportedTypeCode, CosPropertyService::UnsupportedProperty, CosPropertyService::ReadOnlyProperty
%%
handle_call({OE_THIS, OE_Context, define_property, [Property_name, Property_value]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', define_property, [Property_name, Property_value], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: define_properties
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::MultipleExceptions
%%
handle_call({OE_THIS, OE_Context, define_properties, [Nproperties]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', define_properties, [Nproperties], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_number_of_properties
%% 
%%   Returns: RetVal
%%
handle_call({OE_THIS, OE_Context, get_number_of_properties, []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_number_of_properties, [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_all_property_names
%% 
%%   Returns: RetVal, Property_names, Rest
%%
handle_call({OE_THIS, OE_Context, get_all_property_names, [How_many]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_all_property_names, [How_many], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_property_value
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::PropertyNotFound, CosPropertyService::InvalidPropertyName
%%
handle_call({OE_THIS, OE_Context, get_property_value, [Property_name]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_property_value, [Property_name], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_properties
%% 
%%   Returns: RetVal, Nproperties
%%
handle_call({OE_THIS, OE_Context, get_properties, [Property_names]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_properties, [Property_names], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_all_properties
%% 
%%   Returns: RetVal, Nproperties, Rest
%%
handle_call({OE_THIS, OE_Context, get_all_properties, [How_many]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', get_all_properties, [How_many], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: delete_property
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::PropertyNotFound, CosPropertyService::InvalidPropertyName, CosPropertyService::FixedProperty
%%
handle_call({OE_THIS, OE_Context, delete_property, [Property_name]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', delete_property, [Property_name], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: delete_properties
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::MultipleExceptions
%%
handle_call({OE_THIS, OE_Context, delete_properties, [Property_names]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', delete_properties, [Property_names], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: delete_all_properties
%% 
%%   Returns: RetVal
%%
handle_call({OE_THIS, OE_Context, delete_all_properties, []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', delete_all_properties, [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: is_property_defined
%% 
%%   Returns: RetVal
%%   Raises:  CosPropertyService::InvalidPropertyName
%%
handle_call({OE_THIS, OE_Context, is_property_defined, [Property_name]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_File_impl', is_property_defined, [Property_name], 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(Info, State) ->
    corba:handle_info('CosFileTransfer_File_impl', Info, State).


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