aboutsummaryrefslogtreecommitdiffstats
path: root/lib/cosProperty/src
diff options
context:
space:
mode:
authorNiclas Eklund <[email protected]>2011-02-17 14:20:54 +0100
committerNiclas Eklund <[email protected]>2011-02-17 14:20:54 +0100
commita31efb6b4f9581dcd3f52df68fe4704e052e9f20 (patch)
treef04e2d63eb8648b6210756b16f17d96e62758500 /lib/cosProperty/src
parentcc147b3b7f9cde5a521d42e50bce8464597a4965 (diff)
downloadotp-a31efb6b4f9581dcd3f52df68fe4704e052e9f20.tar.gz
otp-a31efb6b4f9581dcd3f52df68fe4704e052e9f20.tar.bz2
otp-a31efb6b4f9581dcd3f52df68fe4704e052e9f20.zip
More specs removed.
Diffstat (limited to 'lib/cosProperty/src')
-rw-r--r--lib/cosProperty/src/CosPropertyService_PropertySetDefFactory_impl.erl11
-rw-r--r--lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl11
2 files changed, 16 insertions, 6 deletions
diff --git a/lib/cosProperty/src/CosPropertyService_PropertySetDefFactory_impl.erl b/lib/cosProperty/src/CosPropertyService_PropertySetDefFactory_impl.erl
index 82bc00aa7f..202df42b61 100644
--- a/lib/cosProperty/src/CosPropertyService_PropertySetDefFactory_impl.erl
+++ b/lib/cosProperty/src/CosPropertyService_PropertySetDefFactory_impl.erl
@@ -152,13 +152,18 @@ create_initial_propertysetdef(_OE_This, State, PropDefs) ->
%% Internal functions
%%======================================================================
evaluate_propertysetdef(SetDefs) ->
- evaluate_propertysetdef(SetDefs, [], []).
+ case evaluate_propertysetdef(SetDefs, [], []) of
+ {ok, NewProperties} ->
+ NewProperties;
+ {error, Exc} ->
+ corba:raise(#'CosPropertyService_MultipleExceptions'{exceptions = Exc})
+ end.
evaluate_propertysetdef([], NewProperties, []) ->
%% No exceptions found.
- NewProperties;
+ {ok, NewProperties};
evaluate_propertysetdef([], _, Exc) ->
- corba:raise(#'CosPropertyService_MultipleExceptions'{exceptions = Exc});
+ {error, Exc};
evaluate_propertysetdef([#'CosPropertyService_PropertyDef'
{property_name = Name,
property_value = Value,
diff --git a/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl b/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl
index 1a8f83617a..4bc29b99ac 100644
--- a/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl
+++ b/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl
@@ -153,13 +153,18 @@ create_initial_propertyset(_OE_This, State, Properties) ->
%% Internal functions
%%======================================================================
evaluate_propertyset(Sets) ->
- evaluate_propertyset(Sets, [], []).
+ case evaluate_propertyset(Sets, [], []) of
+ {ok, NewProperties} ->
+ NewProperties;
+ {error, Exc} ->
+ corba:raise(#'CosPropertyService_MultipleExceptions'{exceptions = Exc})
+ end.
evaluate_propertyset([], NewProperties, []) ->
%% No exceptions found.
- NewProperties;
+ {ok, NewProperties};
evaluate_propertyset([], _, Exc) ->
- corba:raise(#'CosPropertyService_MultipleExceptions'{exceptions = Exc});
+ {error, Exc};
evaluate_propertyset([#'CosPropertyService_Property'
{property_name = Name,
property_value = Value}|T], X, Exc) ->