%%------------------------------------------------------------
%%
%% Implementation stub file
%% 
%% Target: CosFileTransfer_FileTransferSession
%% Source: /work/a/ports/lang/erlang/work/otp_src_R11B-1/lib/cosFileTransfer/src/CosFileTransfer.idl
%% IC vsn: 4.2.11
%% 
%% This file is automatically generated. DO NOT EDIT IT.
%%
%%------------------------------------------------------------

-module('CosFileTransfer_FileTransferSession').
-ic_compiled("4_2_11").


%% Interface functions
-export(['_get_protocols_supported'/1, '_get_protocols_supported'/2, set_directory/2]).
-export([set_directory/3, create_file/2, create_file/3]).
-export([create_directory/2, create_directory/3, get_file/2]).
-export([get_file/3, delete/2, delete/3]).
-export([transfer/3, transfer/4, append/3]).
-export([append/4, insert/4, insert/5]).
-export([logout/1, logout/2, oe_orber_create_directory_current/1]).
-export([oe_orber_create_directory_current/2, oe_orber_get_content/3, oe_orber_get_content/4]).
-export([oe_orber_count_children/2, oe_orber_count_children/3]).

%% Type identification function
-export([typeID/0]).

%% Used to start server
-export([oe_create/0, oe_create_link/0, oe_create/1]).
-export([oe_create_link/1, oe_create/2, oe_create_link/2]).

%% TypeCode Functions and inheritance
-export([oe_tc/1, oe_is_a/1, oe_get_interface/0]).

%% gen server export stuff
-behaviour(gen_server).
-export([init/1, terminate/2, handle_call/3]).
-export([handle_cast/2, handle_info/2, code_change/3]).

-include_lib("orber/include/corba.hrl").


%%------------------------------------------------------------
%%
%% Object interface functions.
%%
%%------------------------------------------------------------



%%%% Operation: '_get_protocols_supported'
%% 
%%   Returns: RetVal
%%
'_get_protocols_supported'(OE_THIS) ->
    corba:call(OE_THIS, '_get_protocols_supported', [], ?MODULE).

'_get_protocols_supported'(OE_THIS, OE_Options) ->
    corba:call(OE_THIS, '_get_protocols_supported', [], ?MODULE, OE_Options).

%%%% Operation: set_directory
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
set_directory(OE_THIS, New_directory) ->
    corba:call(OE_THIS, set_directory, [New_directory], ?MODULE).

set_directory(OE_THIS, OE_Options, New_directory) ->
    corba:call(OE_THIS, set_directory, [New_directory], ?MODULE, OE_Options).

%%%% Operation: create_file
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
create_file(OE_THIS, Name) ->
    corba:call(OE_THIS, create_file, [Name], ?MODULE).

create_file(OE_THIS, OE_Options, Name) ->
    corba:call(OE_THIS, create_file, [Name], ?MODULE, OE_Options).

%%%% Operation: create_directory
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
create_directory(OE_THIS, Name) ->
    corba:call(OE_THIS, create_directory, [Name], ?MODULE).

create_directory(OE_THIS, OE_Options, Name) ->
    corba:call(OE_THIS, create_directory, [Name], ?MODULE, OE_Options).

%%%% Operation: get_file
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
get_file(OE_THIS, Complete_file_name) ->
    corba:call(OE_THIS, get_file, [Complete_file_name], ?MODULE).

get_file(OE_THIS, OE_Options, Complete_file_name) ->
    corba:call(OE_THIS, get_file, [Complete_file_name], ?MODULE, OE_Options).

%%%% Operation: delete
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
delete(OE_THIS, File) ->
    corba:call(OE_THIS, delete, [File], ?MODULE).

delete(OE_THIS, OE_Options, File) ->
    corba:call(OE_THIS, delete, [File], ?MODULE, OE_Options).

%%%% Operation: transfer
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::TransferException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
transfer(OE_THIS, Src, Dest) ->
    corba:call(OE_THIS, transfer, [Src, Dest], ?MODULE).

transfer(OE_THIS, OE_Options, Src, Dest) ->
    corba:call(OE_THIS, transfer, [Src, Dest], ?MODULE, OE_Options).

%%%% Operation: append
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::CommandNotImplementedException, CosFileTransfer::SessionException, CosFileTransfer::TransferException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
append(OE_THIS, Src, Dest) ->
    corba:call(OE_THIS, append, [Src, Dest], ?MODULE).

append(OE_THIS, OE_Options, Src, Dest) ->
    corba:call(OE_THIS, append, [Src, Dest], ?MODULE, OE_Options).

%%%% Operation: insert
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::CommandNotImplementedException, CosFileTransfer::SessionException, CosFileTransfer::TransferException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
insert(OE_THIS, Src, Dest, Offset) ->
    corba:call(OE_THIS, insert, [Src, Dest, Offset], ?MODULE).

insert(OE_THIS, OE_Options, Src, Dest, Offset) ->
    corba:call(OE_THIS, insert, [Src, Dest, Offset], ?MODULE, OE_Options).

%%%% Operation: logout
%% 
%%   Returns: RetVal
%%
logout(OE_THIS) ->
    corba:call(OE_THIS, logout, [], ?MODULE).

logout(OE_THIS, OE_Options) ->
    corba:call(OE_THIS, logout, [], ?MODULE, OE_Options).

%%%% Operation: oe_orber_create_directory_current
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::IllegalOperationException
%%
oe_orber_create_directory_current(OE_THIS) ->
    corba:call(OE_THIS, oe_orber_create_directory_current, [], ?MODULE).

oe_orber_create_directory_current(OE_THIS, OE_Options) ->
    corba:call(OE_THIS, oe_orber_create_directory_current, [], ?MODULE, OE_Options).

%%%% Operation: oe_orber_get_content
%% 
%%   Returns: RetVal
%%
oe_orber_get_content(OE_THIS, Complete_file_name, Parent) ->
    corba:call(OE_THIS, oe_orber_get_content, [Complete_file_name, Parent], ?MODULE).

oe_orber_get_content(OE_THIS, OE_Options, Complete_file_name, Parent) ->
    corba:call(OE_THIS, oe_orber_get_content, [Complete_file_name, Parent], ?MODULE, OE_Options).

%%%% Operation: oe_orber_count_children
%% 
%%   Returns: RetVal
%%
oe_orber_count_children(OE_THIS, Complete_file_name) ->
    corba:call(OE_THIS, oe_orber_count_children, [Complete_file_name], ?MODULE).

oe_orber_count_children(OE_THIS, OE_Options, Complete_file_name) ->
    corba:call(OE_THIS, oe_orber_count_children, [Complete_file_name], ?MODULE, OE_Options).

%%------------------------------------------------------------
%%
%% Inherited Interfaces
%%
%%------------------------------------------------------------
oe_is_a("IDL:omg.org/CosFileTransfer/FileTransferSession:1.0") -> true;
oe_is_a(_) -> false.

%%------------------------------------------------------------
%%
%% Interface TypeCode
%%
%%------------------------------------------------------------
oe_tc('_get_protocols_supported') -> 
	{{tk_sequence,{tk_struct,"IDL:omg.org/CosFileTransfer/ProtocolSupport:1.0",
                                 "ProtocolSupport",
                                 [{"protocol_name",{tk_string,0}},
                                  {"addresses",{tk_sequence,{tk_string,0},0}}]},
                      0},
         [],
         []};
oe_tc(set_directory) -> 
	{tk_void,[{tk_objref,"IDL:omg.org/CosFileTransfer/Directory:1.0",
                             "Directory"}],
                 []};
oe_tc(create_file) -> 
	{{tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0","File"},
         [{tk_sequence,{tk_string,0},0}],
         []};
oe_tc(create_directory) -> 
	{{tk_objref,"IDL:omg.org/CosFileTransfer/Directory:1.0","Directory"},
         [{tk_sequence,{tk_string,0},0}],
         []};
oe_tc(get_file) -> 
	{{tk_struct,"IDL:omg.org/CosFileTransfer/FileWrapper:1.0",
                    "FileWrapper",
                    [{"the_file",
                      {tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0",
                                 "File"}},
                     {"file_type",
                      {tk_enum,"IDL:omg.org/CosFileTransfer/FileType:1.0",
                               "FileType",
                               ["nfile","ndirectory"]}}]},
         [{tk_sequence,{tk_string,0},0}],
         []};
oe_tc(delete) -> 
	{tk_void,[{tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0","File"}],
                 []};
oe_tc(transfer) -> 
	{tk_void,[{tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0","File"},
                  {tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0","File"}],
                 []};
oe_tc(append) -> 
	{tk_void,[{tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0","File"},
                  {tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0","File"}],
                 []};
oe_tc(insert) -> 
	{tk_void,[{tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0","File"},
                  {tk_objref,"IDL:omg.org/CosFileTransfer/File:1.0","File"},
                  tk_long],
                 []};
oe_tc(logout) -> 
	{tk_void,[],[]};
oe_tc(oe_orber_create_directory_current) -> 
	{{tk_objref,"IDL:omg.org/CosFileTransfer/Directory:1.0","Directory"},
         [],
         []};
oe_tc(oe_orber_get_content) -> 
	{{tk_sequence,{tk_struct,"IDL:omg.org/CosFileTransfer/FileWrapper:1.0",
                                 "FileWrapper",
                                 [{"the_file",
                                   {tk_objref,
                                       "IDL:omg.org/CosFileTransfer/File:1.0",
                                       "File"}},
                                  {"file_type",
                                   {tk_enum,
                                       "IDL:omg.org/CosFileTransfer/FileType:1.0",
                                       "FileType",
                                       ["nfile","ndirectory"]}}]},
                      0},
         [{tk_sequence,{tk_string,0},0},
          {tk_objref,"IDL:omg.org/CosFileTransfer/Directory:1.0","Directory"}],
         []};
oe_tc(oe_orber_count_children) -> 
	{tk_long,[{tk_sequence,{tk_string,0},0}],[]};
oe_tc(_) -> undefined.

oe_get_interface() -> 
	[{"oe_orber_count_children", oe_tc(oe_orber_count_children)},
	{"oe_orber_get_content", oe_tc(oe_orber_get_content)},
	{"oe_orber_create_directory_current", oe_tc(oe_orber_create_directory_current)},
	{"logout", oe_tc(logout)},
	{"insert", oe_tc(insert)},
	{"append", oe_tc(append)},
	{"transfer", oe_tc(transfer)},
	{"delete", oe_tc(delete)},
	{"get_file", oe_tc(get_file)},
	{"create_directory", oe_tc(create_directory)},
	{"create_file", oe_tc(create_file)},
	{"set_directory", oe_tc(set_directory)},
	{"_get_protocols_supported", oe_tc('_get_protocols_supported')}].




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


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

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


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

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

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

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

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

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

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

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

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

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


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

%%%% Operation: set_directory
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, set_directory, [New_directory]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', set_directory, [New_directory], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: create_file
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, create_file, [Name]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', create_file, [Name], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: create_directory
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, create_directory, [Name]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', create_directory, [Name], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: get_file
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, get_file, [Complete_file_name]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', get_file, [Complete_file_name], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: delete
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, delete, [File]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', delete, [File], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: transfer
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::TransferException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, transfer, [Src, Dest]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', transfer, [Src, Dest], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: append
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::CommandNotImplementedException, CosFileTransfer::SessionException, CosFileTransfer::TransferException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, append, [Src, Dest]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', append, [Src, Dest], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: insert
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::CommandNotImplementedException, CosFileTransfer::SessionException, CosFileTransfer::TransferException, CosFileTransfer::FileNotFoundException, CosFileTransfer::RequestFailureException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, insert, [Src, Dest, Offset]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', insert, [Src, Dest, Offset], OE_State, OE_Context, OE_THIS, false);

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

%%%% Operation: oe_orber_create_directory_current
%% 
%%   Returns: RetVal
%%   Raises:  CosFileTransfer::SessionException, CosFileTransfer::FileNotFoundException, CosFileTransfer::IllegalOperationException
%%
handle_call({OE_THIS, OE_Context, oe_orber_create_directory_current, []}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', oe_orber_create_directory_current, [], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: oe_orber_get_content
%% 
%%   Returns: RetVal
%%
handle_call({OE_THIS, OE_Context, oe_orber_get_content, [Complete_file_name, Parent]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', oe_orber_get_content, [Complete_file_name, Parent], OE_State, OE_Context, OE_THIS, false);

%%%% Operation: oe_orber_count_children
%% 
%%   Returns: RetVal
%%
handle_call({OE_THIS, OE_Context, oe_orber_count_children, [Complete_file_name]}, _, OE_State) ->
  corba:handle_call('CosFileTransfer_FileTransferSession_impl', oe_orber_count_children, [Complete_file_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_FileTransferSession_impl', Info, State).


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

