The R13B03 release.OTP_R13B03

1 files changed, 384 insertions, 0 deletions

diff --git a/lib/cosFileTransfer/src/CosFileTransfer_File_impl.erl b/lib/cosFileTransfer/src/CosFileTransfer_File_impl.erl
new file mode 100644
index 0000000000..7ee189f05b
--- /dev/null
+++ b/lib/cosFileTransfer/src/CosFileTransfer_File_impl.erl
@@ -0,0 +1,384 @@
+%%----------------------------------------------------------------------
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2001-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    : CosFileTransfer_File_impl.erl
+%% Description : 
+%%
+%% Created :  5 Feb 2001
+%%----------------------------------------------------------------------
+-module('CosFileTransfer_File_impl').
+
+%%----------------------------------------------------------------------
+%% Include files
+%%----------------------------------------------------------------------
+-include_lib("orber/include/corba.hrl").
+-include_lib("orber/src/orber_iiop.hrl").
+
+-include_lib("cosProperty/include/CosPropertyService.hrl").
+
+-include("cosFileTransferApp.hrl").
+
+%%----------------------------------------------------------------------
+%% External exports
+%%----------------------------------------------------------------------
+-export([init/1,
+	 terminate/2]).
+
+%% Interface functions
+-export(['_get_name'/2, 
+	 '_get_complete_file_name'/2, 
+	 '_get_parent'/2,
+	 '_get_associated_session'/2]).
+ 
+%% Inherited CosPropertyService::PropertySetDef
+-export([get_allowed_property_types/2, 
+	 get_allowed_properties/2, 
+	 define_property_with_mode/5,
+	 define_properties_with_modes/3, 
+	 get_property_mode/3, 
+	 get_property_modes/3,
+	 set_property_mode/4, 
+	 set_property_modes/3]).
+ 
+%% Inherited CosPropertyService::PropertySet
+-export([define_property/4, 
+	 define_properties/3, 
+	 get_number_of_properties/2,
+	 get_all_property_names/3, 
+	 get_property_value/3, 
+	 get_properties/3,
+	 get_all_properties/3, 
+	 delete_property/3, 
+	 delete_properties/3,
+	 delete_all_properties/2, 
+	 is_property_defined/3]).
+ 
+%%----------------------------------------------------------------------
+%% Internal exports
+%%----------------------------------------------------------------------
+
+%%----------------------------------------------------------------------
+%% Records
+%%----------------------------------------------------------------------
+-record(state, {property, 
+		name, 
+		completeName, 
+		parent, 
+		assocSession}).
+
+%%----------------------------------------------------------------------
+%% Macros
+%%----------------------------------------------------------------------
+-define(create_InitState(Pr, N, C, Pa, A),
+	#state{property     = Pr,
+	       name         = N,
+	       completeName = C,
+	       parent       = Pa,
+	       assocSession = A}).
+
+-define(get_PropertyRef(S),     S#state.property).
+-define(get_Name(S),            S#state.name).
+-define(get_CompleteName(S),    S#state.completeName).
+-define(get_Parent(S),          S#state.parent).
+-define(get_AssocSession(S),    S#state.assocSession).
+
+%%======================================================================
+%% External functions
+%%======================================================================
+%%----------------------------------------------------------------------
+%% Function   : init/1
+%% Returns    : {ok, State}          |
+%%              {ok, State, Timeout} |
+%%              ignore               |
+%%              {stop, Reason}
+%% Description: Initiates the server
+%%----------------------------------------------------------------------
+init([Name, CompleteName, Parent, AssocSession]) ->
+    PropTypes = [tk_boolean],
+    PropDefs = [#'CosPropertyService_PropertyDef'
+		{property_name  = "is_directory", 
+		 property_value = #any{typecode=tk_boolean, value=false}, 
+		 property_mode  = fixed_readonly}],
+    Prop = cosProperty:create_static_SetDef(PropTypes, PropDefs),
+    {ok, ?create_InitState(Prop, Name, CompleteName, Parent, AssocSession)}.
+
+%%----------------------------------------------------------------------
+%% Function   : terminate/2
+%% Returns    : any (ignored by gen_server)
+%% Description: Shutdown the server
+%%----------------------------------------------------------------------
+terminate(_Reason, _State) ->
+    ok.
+
+%%======================================================================
+%% CosFileTransfer::File
+%%======================================================================
+%%---------------------------------------------------------------------%
+%% Function   : '_get_name'
+%% Arguments  : -
+%% Returns    : CosFileTransfer::FileName - string
+%% Description: 
+%%----------------------------------------------------------------------
+'_get_name'(_OE_This, State) ->
+    {reply, ?get_Name(State), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : '_get_complete_file_name'
+%% Arguments  : -
+%% Returns    : CosFileTransfer::FileNameList - a list of strings's
+%% Description: 
+%%----------------------------------------------------------------------
+'_get_complete_file_name'(_OE_This, State) ->
+    {reply, ?get_CompleteName(State), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : '_get_parent'
+%% Arguments  : -
+%% Returns    : CosFileTransfer::Directory
+%% Description: 
+%%----------------------------------------------------------------------
+'_get_parent'(_OE_This, State) ->
+    {reply, ?get_Parent(State), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : '_get_associated_session'
+%% Arguments  : -
+%% Returns    : CosFileTransfer::FileTransferSession
+%% Description: 
+%%----------------------------------------------------------------------
+'_get_associated_session'(_OE_This, State) ->
+    {reply, ?get_AssocSession(State), State}.
+
+%%======================================================================
+%% CosPropertyService::PropertySetDef
+%%======================================================================
+%%---------------------------------------------------------------------%
+%% Function   : get_allowed_property_types
+%% Arguments  : -
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_allowed_property_types(_OE_This, State) ->
+    {reply, 'CosPropertyService_PropertySetDef':
+      get_allowed_property_types(?get_PropertyRef(State)), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : get_allowed_properties
+%% Arguments  : -
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_allowed_properties(_OE_This, State) ->
+    {reply, 'CosPropertyService_PropertySetDef':
+     get_allowed_properties(?get_PropertyRef(State)), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : define_property_with_mode
+%% Arguments  : Name  - string()
+%%              Value - #any{}
+%%              Mode  - normal | read_only | fixed_normal | fixed_readonly
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+define_property_with_mode(_OE_This, State, Name, Value, Mode) ->
+    {reply, 'CosPropertyService_PropertySetDef':
+     define_property_with_mode(?get_PropertyRef(State), Name, Value, Mode), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : define_properties_with_modes
+%% Arguments  : PropertyDefs - list of #'CosPropertyService_PropertyDef'{}
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+define_properties_with_modes(_OE_This, State, PropertyDefs) ->
+    {reply, 'CosPropertyService_PropertySetDef':
+     define_properties_with_modes(?get_PropertyRef(State), PropertyDefs), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : get_property_mode
+%% Arguments  : Name - string()
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_property_mode(_OE_This, State, Name) ->
+    {reply, 'CosPropertyService_PropertySetDef':
+     get_property_mode(?get_PropertyRef(State), Name), State}.
+
+
+%%---------------------------------------------------------------------%
+%% Function   : get_property_modes
+%% Arguments  : Names - a list of Name (i.e. string()'s).
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_property_modes(_OE_This, State, Names) ->
+    {reply, 'CosPropertyService_PropertySetDef':
+	get_property_modes(?get_PropertyRef(State), Names), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : set_property_mode
+%% Arguments  : Name - string()
+%%              Mode - normal | read_only | fixed_normal | fixed_readonly
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+set_property_mode(_OE_This, State, Name, Mode) ->
+    {reply, 'CosPropertyService_PropertySetDef':
+     set_property_mode(?get_PropertyRef(State), Name, Mode), State}.
+
+
+%%---------------------------------------------------------------------%
+%% Function   : set_property_modes
+%% Arguments  : Modes - a list of #'CosPropertyService_PropertyModes'{}
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+set_property_modes(_OE_This, State, PropertyModes) ->
+    {reply, 'CosPropertyService_PropertySetDef':
+     set_property_modes(?get_PropertyRef(State), PropertyModes), State}.
+
+%%======================================================================
+%% CosPropertyService::PropertySet
+%%======================================================================
+%%---------------------------------------------------------------------%
+%% Function   : define_property
+%% Arguments  : Name  - string()
+%%              Value - #any{}
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+define_property(_OE_This, State, Name, Value) ->
+    {reply, 'CosPropertyService_PropertySet':
+     define_property(?get_PropertyRef(State), Name, Value), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : define_properties
+%% Arguments  : Properties - a list of #'CosPropertyService_Property'{}
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+define_properties(_OE_This, State, Properties) ->
+    {reply, 'CosPropertyService_PropertySet':
+     define_properties(?get_PropertyRef(State), Properties), State}.
+
+
+%%---------------------------------------------------------------------%
+%% Function   : get_number_of_properties
+%% Arguments  : -
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_number_of_properties(_OE_This, State) ->
+    {reply, 'CosPropertyService_PropertySet':
+     get_number_of_properties(?get_PropertyRef(State)), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : get_all_property_names
+%% Arguments  : Max - ulong()
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_all_property_names(_OE_This, State, Max) ->
+    {reply, 'CosPropertyService_PropertySet':
+     get_all_property_names(?get_PropertyRef(State), Max), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : get_property_value
+%% Arguments  : Name - string()
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_property_value(_OE_This, State, Name) ->
+    {reply, 'CosPropertyService_PropertySet':
+     get_property_value(?get_PropertyRef(State), Name), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : get_properties
+%% Arguments  : Names - a list of Name (i.e. string()'s)
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_properties(_OE_This, State, Names) ->
+    {reply, 'CosPropertyService_PropertySet':
+     get_properties(?get_PropertyRef(State), Names), State}.
+
+
+%%---------------------------------------------------------------------%
+%% Function   : get_all_properties
+%% Arguments  : Max - ulong()
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+get_all_properties(_OE_This, State, Max) ->
+    {reply, 'CosPropertyService_PropertySet':
+     get_all_properties(?get_PropertyRef(State), Max), State}.
+
+
+%%---------------------------------------------------------------------%
+%% Function   : delete_property
+%% Arguments  : Name - string()
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+delete_property(_OE_This, State, Name) ->
+    {reply, 'CosPropertyService_PropertySet':
+     delete_property(?get_PropertyRef(State), Name), State}.
+
+
+%%---------------------------------------------------------------------%
+%% Function   : delete_properties
+%% Arguments  : Names - a list of Name (i.e. string()'s)
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+delete_properties(_OE_This, State, Names) ->
+    {reply, 'CosPropertyService_PropertySet':
+     delete_properties(?get_PropertyRef(State), Names), State}.
+
+
+%%---------------------------------------------------------------------%
+%% Function   : delete_all_properties
+%% Arguments  : -
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+delete_all_properties(_OE_This, State) ->
+    {reply, 'CosPropertyService_PropertySet':
+     delete_all_properties(?get_PropertyRef(State)), State}.
+
+%%---------------------------------------------------------------------%
+%% Function   : is_property_defined
+%% Arguments  : Name - string()
+%% Returns    : See cosProperty application.
+%% Description: 
+%%----------------------------------------------------------------------
+is_property_defined(_OE_This, State, Name) ->
+    {reply, 'CosPropertyService_PropertySet':
+     is_property_defined(?get_PropertyRef(State), Name), State}.
+
+%%======================================================================
+%% Internal functions
+%%======================================================================
+
+%%======================================================================
+%% END OF MODULE
+%%======================================================================
+