diff options
Diffstat (limited to 'lib/cosProperty')
45 files changed, 0 insertions, 5950 deletions
diff --git a/lib/cosProperty/AUTHORS b/lib/cosProperty/AUTHORS deleted file mode 100644 index 55d8059989..0000000000 --- a/lib/cosProperty/AUTHORS +++ /dev/null @@ -1,4 +0,0 @@ -Original Authors: -Niclas Eklund - -Contributors: diff --git a/lib/cosProperty/Makefile b/lib/cosProperty/Makefile deleted file mode 100644 index 44d1aafade..0000000000 --- a/lib/cosProperty/Makefile +++ /dev/null @@ -1,42 +0,0 @@ -# -# %CopyrightBegin% -# -# Copyright Ericsson AB 2000-2016. All Rights Reserved. -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. -# -# %CopyrightEnd% -# -# -include $(ERL_TOP)/make/target.mk -include $(ERL_TOP)/make/$(TARGET)/otp.mk - -# ---------------------------------------------------- -# Application version -# ---------------------------------------------------- -include vsn.mk -VSN=$(COSPROPERTY_VSN) - -# ---------------------------------------------------- -# Common Macros -# ---------------------------------------------------- -# SUB_DIRECTORIES = src test examples doc/src -# At the moment we don't have any example programs. -SUB_DIRECTORIES = src doc/src - -SPECIAL_TARGETS = - -# ---------------------------------------------------- -# Default Subdir Targets -# ---------------------------------------------------- -include $(ERL_TOP)/make/otp_subdir.mk diff --git a/lib/cosProperty/doc/html/.gitignore b/lib/cosProperty/doc/html/.gitignore deleted file mode 100644 index e69de29bb2..0000000000 --- a/lib/cosProperty/doc/html/.gitignore +++ /dev/null diff --git a/lib/cosProperty/doc/man3/.gitignore b/lib/cosProperty/doc/man3/.gitignore deleted file mode 100644 index e69de29bb2..0000000000 --- a/lib/cosProperty/doc/man3/.gitignore +++ /dev/null diff --git a/lib/cosProperty/doc/man6/.gitignore b/lib/cosProperty/doc/man6/.gitignore deleted file mode 100644 index e69de29bb2..0000000000 --- a/lib/cosProperty/doc/man6/.gitignore +++ /dev/null diff --git a/lib/cosProperty/doc/pdf/.gitignore b/lib/cosProperty/doc/pdf/.gitignore deleted file mode 100644 index e69de29bb2..0000000000 --- a/lib/cosProperty/doc/pdf/.gitignore +++ /dev/null diff --git a/lib/cosProperty/doc/src/CosPropertyService_PropertiesIterator.xml b/lib/cosProperty/doc/src/CosPropertyService_PropertiesIterator.xml deleted file mode 100644 index 62a1732e99..0000000000 --- a/lib/cosProperty/doc/src/CosPropertyService_PropertiesIterator.xml +++ /dev/null @@ -1,95 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE erlref SYSTEM "erlref.dtd"> - -<erlref> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>CosPropertyService_PropertiesIterator</title> - <prepared></prepared> - <docno></docno> - <checked></checked> - <date>2000-07-25</date> - <rev>1.0</rev> - </header> - <module>CosPropertyService_PropertiesIterator</module> - <modulesummary>This module implements the OMG CosPropertyService::PropertiesIterator interface.</modulesummary> - <description> - <p>To get access to the record definitions for the structures use: <br></br> -<c>-include_lib("cosProperty/include/CosPropertyService.hrl").</c></p> - </description> - <funcs> - <func> - <name>reset(Iterator) -> ok</name> - <fsummary>Reset the position to the first property</fsummary> - <type> - <v>Iterator = #objref</v> - </type> - <desc> - <p>This operation resets the position to the first property. </p> - </desc> - </func> - <func> - <name>next_one(Iterator) -> Reply</name> - <fsummary>Return true if a Property exists at the current position and the out parameter is a valid Property. Otherwise false and a non-valid property</fsummary> - <type> - <v>Iterator = #objref</v> - <v>Reply = {boolean(), #'CosPropertyService_Property'{property_name = Name, property_value = Value}}</v> - <v>Name = string()</v> - <v>Value = #any</v> - </type> - <desc> - <p>This operation returns true . If false is returned the out - parameter is a non-valid Property.</p> - </desc> - </func> - <func> - <name>next_n(Iterator, HowMany) -> Reply</name> - <fsummary>Return true if the requested number of properties can be delivered and there are additional properties. Otherwise false is returned and a sequence of max <c>HowMany</c>properties</fsummary> - <type> - <v>Iterator = #objref</v> - <v>HowMany = long()</v> - <v>Reply = {boolean(), Properties}</v> - <v>Properties = [#'CosPropertyService_Property'{property_name = Name, property_value = Value}]</v> - <v>Name = string()</v> - <v>Value = #any</v> - </type> - <desc> - <p>This operation returns true if the requested number of properties can be - delivered and there are additional properties. If false is returned and a - sequence of max <c>HowMany</c> properties will be returned and no more - properties can be delivered. </p> - </desc> - </func> - <func> - <name>destroy(Iterator) -> ok</name> - <fsummary>Terminate the target object</fsummary> - <type> - <v>Iterator = #objref</v> - </type> - <desc> - <p>This operation will terminate the Iterator and all subsequent calls - will fail. </p> - </desc> - </func> - </funcs> - -</erlref> - diff --git a/lib/cosProperty/doc/src/CosPropertyService_PropertyNamesIterator.xml b/lib/cosProperty/doc/src/CosPropertyService_PropertyNamesIterator.xml deleted file mode 100644 index 5948490547..0000000000 --- a/lib/cosProperty/doc/src/CosPropertyService_PropertyNamesIterator.xml +++ /dev/null @@ -1,97 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE erlref SYSTEM "erlref.dtd"> - -<erlref> - <header> - <copyright> - <year>2000</year> - <year>2016</year> - <holder>Ericsson AB, All Rights Reserved</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - The Initial Developer of the Original Code is Ericsson AB. - </legalnotice> - - <title>CosPropertyService_PropertyNamesIterator</title> - <prepared></prepared> - <responsible></responsible> - <docno></docno> - <approved></approved> - <checked></checked> - <date>2000-07-25</date> - <rev>1.0</rev> - </header> - <module>CosPropertyService_PropertyNamesIterator</module> - <modulesummary>This module implements the OMG CosPropertyService::PropertyNamesIterator interface.</modulesummary> - <description> - <p>To get access to the record definitions for the structures use: <br></br> -<c>-include_lib("cosProperty/include/CosPropertyService.hrl").</c></p> - </description> - <funcs> - <func> - <name>reset(Iterator) -> ok</name> - <fsummary>Reset the position to the first property name</fsummary> - <type> - <v>Iterator = #objref</v> - </type> - <desc> - <p>This operation resets the position to the first property name. </p> - </desc> - </func> - <func> - <name>next_one(Iterator) -> Reply</name> - <fsummary>Return true if a Property Name exists at the current position and the out parameter is a valid Property Name. Otherwise false and a non-valid Property Name</fsummary> - <type> - <v>Iterator = #objref</v> - <v>Reply = {boolean(), Name}</v> - <v>Name = string()</v> - </type> - <desc> - <p>This operation returns true if a Property Name exists at the current - position and the out parameter is a valid Property Name. - If false is returned the out parameter is a non-valid Property Name.</p> - </desc> - </func> - <func> - <name>next_n(Iterator, HowMany) -> Reply</name> - <fsummary>Return <c>HowMany</c>Property Names and a boolean which is true if additional Property Names exists</fsummary> - <type> - <v>Iterator = #objref</v> - <v>HowMany = long()</v> - <v>Reply = {boolean(), [Name]}</v> - <v>Name = string()</v> - </type> - <desc> - <p>This operation returns true if the requested number of Property Names can be - delivered and there are additional property names. If false is returned a - sequence of max <c>HowMany</c> property names will be returned and no - more Property Names can be delivered. </p> - </desc> - </func> - <func> - <name>destroy(Iterator) -> ok</name> - <fsummary>Terminate the target object</fsummary> - <type> - <v>Iterator = #objref</v> - </type> - <desc> - <p>This operation will terminate the Iterator and all subsequent calls - will fail. </p> - </desc> - </func> - </funcs> - -</erlref> - diff --git a/lib/cosProperty/doc/src/CosPropertyService_PropertySet.xml b/lib/cosProperty/doc/src/CosPropertyService_PropertySet.xml deleted file mode 100644 index 8e7fbbd80a..0000000000 --- a/lib/cosProperty/doc/src/CosPropertyService_PropertySet.xml +++ /dev/null @@ -1,201 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE erlref SYSTEM "erlref.dtd"> - -<erlref> - <header> - <copyright> - <year>2000</year> - <year>2016</year> - <holder>Ericsson AB, All Rights Reserved</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - The Initial Developer of the Original Code is Ericsson AB. - </legalnotice> - - <title>CosPropertyService_PropertySet</title> - <prepared></prepared> - <responsible></responsible> - <docno></docno> - <approved></approved> - <checked></checked> - <date>2000-07-25</date> - <rev>1.0</rev> - </header> - <module>CosPropertyService_PropertySet</module> - <modulesummary>This module implements the OMG CosPropertyService::PropertySet interface.</modulesummary> - <description> - <p>To get access to the record definitions for the structures use: <br></br> -<c>-include_lib("cosProperty/include/CosPropertyService.hrl").</c></p> - </description> - <funcs> - <func> - <name>define_property(PropertySet, Name, Value) -> Reply</name> - <fsummary>Add a new property to the target object</fsummary> - <type> - <v>PropertySet = #objref</v> - <v>Name = non-empty string()</v> - <v>Value = #any</v> - <v>Reply = ok | {'EXCEPTION', #CosPropertyService_InvalidPropertyName{}} | {'EXCEPTION', #CosPropertyService_ConflictingProperty{}} | {'EXCEPTION', #CosPropertyService_UnsupportedTypeCode{}} | {'EXCEPTION', #CosPropertyService_UnsupportedProperty{}} | {'EXCEPTION', #CosPropertyService_ReadOnlyProperty{}}</v> - </type> - <desc> - <p>This operation adds a new property to the given object. Depending on - which initial arguments was supplied when starting the object several - exceptions may be raised.</p> - </desc> - </func> - <func> - <name>define_properties(PropertySet, Properties) -> Reply</name> - <fsummary>Add new properties to the target object</fsummary> - <type> - <v>PropertySet = #objref</v> - <v>Properties = [#'CosPropertyService_Property'{property_name = Name, property_value = Value}]</v> - <v>Name = string()</v> - <v>Value = #any</v> - <v>Reply = ok | {'EXCEPTION', #CosPropertyService_MultipleExceptions{exceptions = Excs}}</v> - <v>Excs = [#'CosPropertyService_PropertyException{reason = Reason, failing_property_name = Name}]</v> - <v>Reason = invalid_property_name | conflicting_property | property_not_found | unsupported_type_code | unsupported_property | unsupported_mode | fixed_property | read_only_property</v> - </type> - <desc> - <p>This operation adds several new properties to the given object. Depending on - which initial arguments was supplied when starting the object an - exceptions may be raised listing the properties failing.</p> - </desc> - </func> - <func> - <name>get_number_of_properties(PropertySet) -> ulong()</name> - <fsummary>Get the number of properties associated with the target object</fsummary> - <type> - <v>PropertySet = #objref</v> - </type> - <desc> - <p>This operation returns the number of properties associated with the target - object.</p> - </desc> - </func> - <func> - <name>get_all_property_names(PropertySet, Max) -> Reply</name> - <fsummary>Get <c>Max</c>property names. If the target object have additional associated properties they will be put in the returned Iterator</fsummary> - <type> - <v>PropertySet = NamesIterator = #objref</v> - <v>Max = ulong()</v> - <v>Reply = {ok, Names, NamesIterator}</v> - <v>Names = [string()]</v> - </type> - <desc> - <p>This operation returns up to <c>Max</c> property names. If the target - object have additional associated properties they will be put in the - returned Iterator, otherwise the Iterator will be a <c>NIL</c> object.</p> - </desc> - </func> - <func> - <name>get_property_value(PropertySet, Name) -> Reply</name> - <fsummary>Return the property value associated with given name</fsummary> - <type> - <v>PropertySet = #objref</v> - <v>Name = string()</v> - <v>Reply = #any | {'EXCEPTION', #CosPropertyService_PropertyNotFound{}} | {'EXCEPTION', #CosPropertyService_InvalidPropertyName{}}</v> - </type> - <desc> - <p>This operation returns the property value associated with given name. If no such property - exists or the given name is an empty string an exception will be raised.</p> - </desc> - </func> - <func> - <name>get_properties(PropertySet, Names) -> Reply</name> - <fsummary>Return all properties associated with given names</fsummary> - <type> - <v>PropertySet = #objref</v> - <v>Names = [string()]</v> - <v>Reply = {boolean(), Properties}</v> - <v>Properties = [#'CosPropertyService_Property'{property_name = Name, property_value = Value}]</v> - </type> - <desc> - <p>This operation returns all properties associated with given names. If the - boolean flag is true all properties where retrieved correctly, otherwise, - all properties with the type <c>tk_void</c> was not found.</p> - </desc> - </func> - <func> - <name>get_all_properties(PropertySet, Max) -> Reply</name> - <fsummary>Return a list <c>Max</c>properties or less. If more properties are associated with the target object they will be put in the<c>PropertiesIterator</c>.</fsummary> - <type> - <v>PropertySet = PropertiesIterator = #objref</v> - <v>Reply = {ok, Properties, PropertiesIterator}</v> - <v>Properties = [#'CosPropertyService_Property'{property_name = Name, property_value = Value}]</v> - </type> - <desc> - <p>This operation return a list <c>Max</c> properties or less. If more - properties are associated with the target object they will be put in the - <c>PropertiesIterator</c>. If the object had less than <c>Max</c> - associated properties the Iterator will be a <c>NIL</c> object.</p> - </desc> - </func> - <func> - <name>delete_property(PropertySet, Name) -> Reply</name> - <fsummary>Delete the property with given Name</fsummary> - <type> - <v>PropertySet = #objref</v> - <v>Name = string()</v> - <v>Reply = ok | {'EXCEPTION', #CosPropertyService_FixedProperty{}} | {'EXCEPTION', #CosPropertyService_PropertyNotFound{}} | {'EXCEPTION', #CosPropertyService_InvalidPropertyName{}}</v> - </type> - <desc> - <p>This operation tries to delete the property with given Name. An exception - which indicates why it failed is raised if so needed.</p> - </desc> - </func> - <func> - <name>delete_properties(PropertySet, Names) -> Reply</name> - <fsummary>Delete all properties with given Names</fsummary> - <type> - <v>PropertySet = #objref</v> - <v>Names = [string()]</v> - <v>Reply = ok | {'EXCEPTION', #CosPropertyService_MultipleExceptions{exceptions = Excs}}</v> - <v>Excs = [#'CosPropertyService_PropertyException{reason = Reason, failing_property_name = Name}]</v> - <v>Reason = invalid_property_name | conflicting_property | property_not_found | unsupported_type_code | unsupported_property | unsupported_mode | fixed_property | read_only_property</v> - </type> - <desc> - <p>This operation tries to delete all given Properties. If one or more removal - fails an exception is raised which describe why.</p> - </desc> - </func> - <func> - <name>delete_all_properties(PropertySet) -> boolean()</name> - <fsummary>Delete all properties</fsummary> - <type> - <v>PropertySet = #objref</v> - </type> - <desc> - <p>This operation deletes all properties. The boolean flag, if set to false, - indicates that it was not possible to remove one or more properties, e.g., - may be read only.</p> - </desc> - </func> - <func> - <name>is_property_defined(PropertySet, Name) -> Reply</name> - <fsummary>Return true if the target have an associated property with given name</fsummary> - <type> - <v>PropertySet = #objref</v> - <v>Name = non-empty string()</v> - <v>Reply = boolean() | {'EXCEPTION', #CosPropertyService_InvalidPropertyName{}}</v> - </type> - <desc> - <p>This operation returns true if the target have an associated property with - given name.</p> - </desc> - </func> - </funcs> - -</erlref> - diff --git a/lib/cosProperty/doc/src/CosPropertyService_PropertySetDef.xml b/lib/cosProperty/doc/src/CosPropertyService_PropertySetDef.xml deleted file mode 100644 index 2cbf2fc4f9..0000000000 --- a/lib/cosProperty/doc/src/CosPropertyService_PropertySetDef.xml +++ /dev/null @@ -1,168 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE erlref SYSTEM "erlref.dtd"> - -<erlref> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>CosPropertyService_PropertySetDef</title> - <prepared></prepared> - <docno></docno> - <checked></checked> - <date>2000-07-25</date> - <rev>1.0</rev> - </header> - <module>CosPropertyService_PropertySetDef</module> - <modulesummary>This module implements the OMG CosPropertyService::PropertySetDef interface.</modulesummary> - <description> - <p>To get access to the record definitions for the structures use: <br></br> -<c>-include_lib("cosProperty/include/CosPropertyService.hrl").</c></p> - <p>This module also exports the functions described in</p> - <p><seealso marker="CosPropertyService_PropertySet">CosPropertyService_PropertySet</seealso></p> - </description> - <funcs> - <func> - <name>get_allowed_property_types(PropertySetDef) -> Reply</name> - <fsummary>Return allowed TypeCodes for the target object</fsummary> - <type> - <v>PropertySetDef = #objref</v> - <v>Reply = {ok, PropertyTypes}</v> - <v>PropertyTypes = [CORBA::TypeCode]</v> - </type> - <desc> - <p>This operation return the TypeCodes which we are allowed to use when adding - new properties.</p> - </desc> - </func> - <func> - <name>get_allowed_properties(PropertySetDef) -> Reply</name> - <fsummary>Return a sequence of the allowed properties</fsummary> - <type> - <v>PropertySetDef = #objref</v> - <v>Reply = {ok, PropertyDefs}</v> - <v>PropertyDefs = [#'CosPropertyService_PropertyDef'{property_name = Name, property_value = Value, property_mode = Mode}]</v> - <v>Name = string()</v> - <v>Value = #any</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - </type> - <desc> - <p>This operation a sequence of the allowed properties we may alter; depends on - which mode associated with a certain property.</p> - </desc> - </func> - <func> - <name>define_property_with_mode(PropertySetDef, Name, Value, Mode) -> Reply</name> - <fsummary>Associate a new property with the target object</fsummary> - <type> - <v>PropertySetDef = #objref</v> - <v>Name = non-empty string()</v> - <v>Value = #any</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - <v>Reply = ok | {'EXCEPTION', #CosPropertyService_InvalidPropertyName{}} | {'EXCEPTION', #CosPropertyService_ConflictingProperty{}} | {'EXCEPTION', #CosPropertyService_UnsupportedTypeCode{}} | {'EXCEPTION', #CosPropertyService_UnsupportedProperty{}} | {'EXCEPTION', #CosPropertyService_UnsupportedMode{}} | {'EXCEPTION', #CosPropertyService_ReadOnlyProperty{}}</v> - </type> - <desc> - <p>This operation attempts to associate a new property with the target object. - If we fail to do so the appropriate exception is raised.</p> - </desc> - </func> - <func> - <name>define_properties_with_modes(PropertySetDef, PropertyDefs) -> Reply</name> - <fsummary>Associate the given Property Definitions with the target object</fsummary> - <type> - <v>PropertySetDef = #objref</v> - <v>PropertyDefs = [#'CosPropertyService_PropertyDef'{property_name = Name, property_value = Value, property_mode = Mode}]</v> - <v>Name = string()</v> - <v>Value = #any</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - <v>Reply = ok | {'EXCEPTION', #CosPropertyService_MultipleExceptions{exceptions = Excs}}</v> - <v>Excs = [#'CosPropertyService_PropertyException{reason = Reason, failing_property_name = Name}]</v> - <v>Reason = invalid_property_name | conflicting_property | property_not_found | unsupported_type_code | unsupported_property | unsupported_mode | fixed_property | read_only_property</v> - </type> - <desc> - <p>This operation attempts to associate the given Property Definitions with the - target object. If one or more attempts fail an exception is raised - describing which properties we where not able to create.</p> - </desc> - </func> - <func> - <name>get_property_mode(PropertySetDef, Name) -> Reply</name> - <fsummary>Return the mode of the given property</fsummary> - <type> - <v>PropertySetDef = #objref</v> - <v>Name = string()</v> - <v>Reply = Mode | {'EXCEPTION', #CosPropertyService_InvalidPropertyName{}} | {'EXCEPTION', #CosPropertyService_PropertyNotFound{}}</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - </type> - <desc> - <p>This operation returns the type of the given property.</p> - </desc> - </func> - <func> - <name>get_property_modes(PropertySetDef, Names) -> Reply</name> - <fsummary>Return the modes of the given properties</fsummary> - <type> - <v>PropertySetDef = #objref</v> - <v>Names = [string()]</v> - <v>Reply = {boolean(), PropertyModes}</v> - <v>PropertyModes = [#'CosPropertyService_PropertyMode'{property_name = Name, property_mode = Mode}]</v> - <v>Name = string()</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - </type> - <desc> - <p>This operation returns the modes of the listed properties. If the boolean - flag is false, all properties with mode <c>undefined</c> this operation - failed to comply.</p> - </desc> - </func> - <func> - <name>set_property_mode(PropertySetDef, Name, Mode) -> Reply</name> - <fsummary>Change the given property's mode</fsummary> - <type> - <v>PropertySetDef = #objref</v> - <v>Name = string()</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - <v>Reply = ok | {'EXCEPTION', #CosPropertyService_InvalidPropertyName{}} | {'EXCEPTION', #CosPropertyService_UnsupportedMode{}} | {'EXCEPTION', #CosPropertyService_PropertyNotFound{}}</v> - </type> - <desc> - <p>This operation changes the given property's mode. Return the appropriate - exception if not able to fulfill the request.</p> - </desc> - </func> - <func> - <name>set_property_modes(PropertySetDef, PropertyModes) -> Reply</name> - <fsummary>Change the listed properties mode's</fsummary> - <type> - <v>PropertySetDef = #objref</v> - <v>PropertyModes = [#'CosPropertyService_PropertyMode'{property_name = Name, property_mode = Mode}]</v> - <v>Name = string()</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - <v>Reply = ok | {'EXCEPTION', #CosPropertyService_MultipleExceptions{exceptions = Excs}}</v> - <v>Excs = [#'CosPropertyService_PropertyException{reason = Reason, failing_property_name = Name}]</v> - <v>Reason = invalid_property_name | conflicting_property | property_not_found | unsupported_type_code | unsupported_property | unsupported_mode | fixed_property | read_only_property</v> - </type> - <desc> - <p>This operation attempts to update the listed properties mode's. Raises an - exception which describe which and why an operation failed.</p> - </desc> - </func> - </funcs> - -</erlref> - diff --git a/lib/cosProperty/doc/src/CosPropertyService_PropertySetDefFactory.xml b/lib/cosProperty/doc/src/CosPropertyService_PropertySetDefFactory.xml deleted file mode 100644 index d6425db9cf..0000000000 --- a/lib/cosProperty/doc/src/CosPropertyService_PropertySetDefFactory.xml +++ /dev/null @@ -1,95 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE erlref SYSTEM "erlref.dtd"> - -<erlref> - <header> - <copyright> - <year>2000</year> - <year>2016</year> - <holder>Ericsson AB, All Rights Reserved</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - The Initial Developer of the Original Code is Ericsson AB. - </legalnotice> - - <title>CosPropertyService_PropertySetDefFactory</title> - <prepared></prepared> - <responsible></responsible> - <docno></docno> - <approved>Niclas Eklund</approved> - <checked></checked> - <date>2000-07-25</date> - <rev>1.0</rev> - </header> - <module>CosPropertyService_PropertySetDefFactory</module> - <modulesummary>This module implements the OMG CosPropertyService::PropertySetDefFactory interface.</modulesummary> - <description> - <p>To get access to the record definitions for the structures use: <br></br> -<c>-include_lib("cosProperty/include/CosPropertyService.hrl").</c></p> - </description> - <funcs> - <func> - <name>create_propertysetdef(Factory) -> </name> - <fsummary>Create a new <c>PropertySetDef</c>with no predefined settings</fsummary> - <type> - <v>Factory = PropertySetDef = #objref</v> - </type> - <desc> - <p>This operation creates a new <c>PropertySetDef</c> with no predefined - settings.</p> - </desc> - </func> - <func> - <name>create_constrained_propertysetdef(Factory, PropertyTypes, PropertyDefs) -> Reply</name> - <fsummary>Create a new <c>PropertySetDef</c>with specified constraints</fsummary> - <type> - <v>Factory = PropertySetDef = #objref</v> - <v>PropertyTypes = [CORBA::TypeCode]</v> - <v>PropertyDefs = [#'CosPropertyService_PropertyDef'{property_name = Name, property_value = Value, property_mode = Mode}]</v> - <v>Name = string()</v> - <v>Value = #any</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - <v>Reply = {'EXCEPTION', #CosPropertyService_ConstraintNotSupported{}} | PropertySetDef</v> - <v>PropertySetDef = #objref</v> - </type> - <desc> - <p>This operation creates a new <c>PropertySetDef</c> with specific - constraints. PropertyTypes states allowed TypeCode's and PropertyDefs valid - <c>CosPropertyService::PropertyDef</c> data.</p> - </desc> - </func> - <func> - <name>create_initial_propertysetdef(Factory, PropertyDefs) -> Reply</name> - <fsummary>Create a new <c>PropertySetDef</c>with specified initial properties</fsummary> - <type> - <v>Factory = PropertySetDef = #objref</v> - <v>PropertyDefs = [#'CosPropertyService_PropertyDef'{property_name = Name, property_value = Value, property_mode = Mode}]</v> - <v>Name = string()</v> - <v>Value = #any</v> - <v>Mode = normal | read_only | fixed_normal | fixed_readonly | undefined</v> - <v>Reply = {'EXCEPTION', #CosPropertyService_MultipleExceptions{exceptions = Excs}} | PropertySetDef</v> - <v>Excs = [#'CosPropertyService_PropertyException{reason = Reason, failing_property_name = Name}]</v> - <v>Reason = invalid_property_name | conflicting_property | property_not_found | unsupported_type_code | unsupported_property | unsupported_mode | fixed_property | read_only_property</v> - <v>PropertySetDef = #objref</v> - </type> - <desc> - <p>This operation creates a new <c>PropertySetDef</c> with specific - initial properties.</p> - </desc> - </func> - </funcs> - -</erlref> - diff --git a/lib/cosProperty/doc/src/CosPropertyService_PropertySetFactory.xml b/lib/cosProperty/doc/src/CosPropertyService_PropertySetFactory.xml deleted file mode 100644 index 0aa22dd716..0000000000 --- a/lib/cosProperty/doc/src/CosPropertyService_PropertySetFactory.xml +++ /dev/null @@ -1,93 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE erlref SYSTEM "erlref.dtd"> - -<erlref> - <header> - <copyright> - <year>2000</year> - <year>2016</year> - <holder>Ericsson AB, All Rights Reserved</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - The Initial Developer of the Original Code is Ericsson AB. - </legalnotice> - - <title>CosPropertyService_PropertySetFactory</title> - <prepared></prepared> - <responsible></responsible> - <docno></docno> - <approved></approved> - <checked></checked> - <date>2000-07-25</date> - <rev>1.0</rev> - </header> - <module>CosPropertyService_PropertySetFactory</module> - <modulesummary>This module implements the OMG CosPropertyService::PropertySetFactory interface.</modulesummary> - <description> - <p>To get access to the record definitions for the structures use: <br></br> -<c>-include_lib("cosProperty/include/CosPropertyService.hrl").</c></p> - </description> - <funcs> - <func> - <name>create_propertyset(Factory) -> PropertySet</name> - <fsummary>Create a new <c>PropertySe</c>t with no predefined properties</fsummary> - <type> - <v>Factory = PropertySet = #objref</v> - </type> - <desc> - <p>This operation creates a new <c>PropertySe</c>t with no predefined - properties.</p> - </desc> - </func> - <func> - <name>create_constrained_propertyset(Factory, PropertyTypes, Properties) -> Reply</name> - <fsummary>Create a new <c>PropertySet</c>with specified constraints</fsummary> - <type> - <v>Factory = #objref</v> - <v>PropertyTypes = [CORBA::TypeCode]</v> - <v>Properties = [#'CosPropertyService_Property'{property_name = Name, property_value = Value}]</v> - <v>Name = string()</v> - <v>Value = #any</v> - <v>Reply = {'EXCEPTION', #CosPropertyService_ConstraintNotSupported{}} | PropertySet</v> - <v>PropertySet = #objref</v> - </type> - <desc> - <p>This operation creates a new <c>PropertySet</c> with specific constraints. - PropertyTypes states allowed TypeCode's and Properties valid - <c>CosPropertyService::Property</c> data.</p> - </desc> - </func> - <func> - <name>create_initial_propertyset(Factory, Properties) -> Reply</name> - <fsummary>Create a new <c>PropertySet</c>with specified initial properties</fsummary> - <type> - <v>Factory = #objref</v> - <v>Properties = [#'CosPropertyService_Property'{property_name = Name, property_value = Value}]</v> - <v>Name = string()</v> - <v>Value = #any</v> - <v>Reply = {'EXCEPTION', #CosPropertyService_MultipleExceptions{exceptions = Excs}} | PropertySet</v> - <v>Excs = [#'CosPropertyService_PropertyException{reason = Reason, failing_property_name = Name}]</v> - <v>Reason = invalid_property_name | conflicting_property | property_not_found | unsupported_type_code | unsupported_property | unsupported_mode | fixed_property | read_only_property</v> - <v>PropertySet = #objref</v> - </type> - <desc> - <p>This operation creates a new <c>PropertySet</c> with specific - initial properties.</p> - </desc> - </func> - </funcs> - -</erlref> - diff --git a/lib/cosProperty/doc/src/Makefile b/lib/cosProperty/doc/src/Makefile deleted file mode 100644 index ec11ca1735..0000000000 --- a/lib/cosProperty/doc/src/Makefile +++ /dev/null @@ -1,144 +0,0 @@ -# -# %CopyrightBegin% -# -# Copyright Ericsson AB 2000-2017. All Rights Reserved. -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. -# -# %CopyrightEnd% -# -# -include $(ERL_TOP)/make/target.mk -include $(ERL_TOP)/make/$(TARGET)/otp.mk - -# ---------------------------------------------------- -# Application version -# ---------------------------------------------------- -include ../../vsn.mk -VSN=$(COSPROPERTY_VSN) -APPLICATION=cosProperty - -# ---------------------------------------------------- -# Release directory specification -# ---------------------------------------------------- -RELSYSDIR = $(RELEASE_PATH)/lib/$(APPLICATION)-$(VSN) - -# ---------------------------------------------------- -# Target Specs -# ---------------------------------------------------- -XML_APPLICATION_FILES = ref_man.xml -XML_REF3_FILES = \ - cosProperty.xml \ - CosPropertyService_PropertySetFactory.xml \ - CosPropertyService_PropertySetDefFactory.xml \ - CosPropertyService_PropertySet.xml \ - CosPropertyService_PropertySetDef.xml \ - CosPropertyService_PropertiesIterator.xml \ - CosPropertyService_PropertyNamesIterator.xml - -XML_REF6_FILES = - -XML_PART_FILES = \ - part.xml -XML_CHAPTER_FILES = \ - ch_contents.xml \ - ch_introduction.xml \ - ch_install.xml \ - ch_example.xml \ - notes.xml - -BOOK_FILES = book.xml - -XML_FILES = $(BOOK_FILES) $(XML_APPLICATION_FILES) $(XML_REF3_FILES) \ - $(XML_PART_FILES) $(XML_CHAPTER_FILES) - -TECHNICAL_DESCR_FILES = - -GIF_FILES = - -PS_FILES = - -# ---------------------------------------------------- - -INTERNAL_HTML_FILES = $(TECHNICAL_DESCR_FILES:%.xml=$(HTMLDIR)/%.html) - -HTML_FILES = $(XML_APPLICATION_FILES:%.xml=$(HTMLDIR)/%.html) \ - $(XML_PART_FILES:%.xml=$(HTMLDIR)/%.html) - -INFO_FILE = ../../info - -EXTRA_FILES = \ - $(DEFAULT_GIF_FILES) \ - $(DEFAULT_HTML_FILES) \ - $(XML_REF3_FILES:%.xml=$(HTMLDIR)/%.html) \ - $(XML_REF6_FILES:%.xml=$(HTMLDIR)/%.html) \ - $(XML_CHAPTER_FILES:%.xml=$(HTMLDIR)/%.html) - -MAN3_FILES = $(XML_REF3_FILES:%.xml=$(MAN3DIR)/%.3) -MAN6_FILES = $(XML_REF6_FILES:%.xml=$(MAN6DIR)/%.6) - -HTML_REF_MAN_FILE = $(HTMLDIR)/index.html - -TOP_PDF_FILE = $(PDFDIR)/$(APPLICATION)-$(VSN).pdf - -# ---------------------------------------------------- -# FLAGS -# ---------------------------------------------------- -XML_FLAGS += -DVIPS_FLAGS += - -# ---------------------------------------------------- -# Targets -# ---------------------------------------------------- -$(HTMLDIR)/%.gif: %.gif - $(INSTALL_DATA) $< $@ - -docs: pdf html man - -$(TOP_PDF_FILE): $(XML_FILES) - -pdf: $(TOP_PDF_FILE) - -html: gifs $(HTML_REF_MAN_FILE) - -clean clean_docs: - rm -rf $(HTMLDIR)/* - rm -f $(MAN3DIR)/* - rm -f $(TOP_PDF_FILE) $(TOP_PDF_FILE:%.pdf=%.fo) - rm -f errs core *~ - -man: $(MAN3_FILES) $(MAN6_FILES) - -gifs: $(GIF_FILES:%=$(HTMLDIR)/%) - -$(INDEX_TARGET): $(INDEX_SRC) - sed -e 's;%VSN%;$(VSN);' $(INDEX_SRC) > $(INDEX_TARGET) - -debug opt: - -# ---------------------------------------------------- -# Release Target -# ---------------------------------------------------- -include $(ERL_TOP)/make/otp_release_targets.mk - -release_docs_spec: docs - $(INSTALL_DIR) "$(RELSYSDIR)/doc/pdf" - $(INSTALL_DATA) $(TOP_PDF_FILE) "$(RELSYSDIR)/doc/pdf" - $(INSTALL_DIR) "$(RELSYSDIR)/doc/html" - $(INSTALL_DATA) $(HTMLDIR)/* \ - "$(RELSYSDIR)/doc/html" - $(INSTALL_DATA) $(INFO_FILE) "$(RELSYSDIR)" - $(INSTALL_DIR) "$(RELEASE_PATH)/man/man3" - $(INSTALL_DATA) $(MAN3DIR)/* "$(RELEASE_PATH)/man/man3" - -release_spec: diff --git a/lib/cosProperty/doc/src/book.xml b/lib/cosProperty/doc/src/book.xml deleted file mode 100644 index 9ee681b057..0000000000 --- a/lib/cosProperty/doc/src/book.xml +++ /dev/null @@ -1,49 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE book SYSTEM "book.dtd"> - -<book xmlns:xi="http://www.w3.org/2001/XInclude"> - <header titlestyle="normal"> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>cosProperty</title> - <prepared>Niclas Eklund</prepared> - <docno></docno> - <date>2000-06-07</date> - <rev>1.0</rev> - </header> - <insidecover> - </insidecover> - <pagetext>cosProperty</pagetext> - <preamble> - <contents level="2"></contents> - </preamble> - <parts lift="no"> - <xi:include href="part.xml"/> - </parts> - <applications> - <xi:include href="ref_man.xml"/> - </applications> - <releasenotes> - <xi:include href="notes.xml"/> - </releasenotes> - <listofterms></listofterms> - <index></index> -</book> - diff --git a/lib/cosProperty/doc/src/ch_contents.xml b/lib/cosProperty/doc/src/ch_contents.xml deleted file mode 100644 index 5c3112a644..0000000000 --- a/lib/cosProperty/doc/src/ch_contents.xml +++ /dev/null @@ -1,75 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE chapter SYSTEM "chapter.dtd"> - -<chapter> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>The cosProperty Application</title> - <prepared>Niclas Eklund</prepared> - <docno></docno> - <date>2000-06-07</date> - <rev>1.0</rev> - <file>ch_contents.xml</file> - </header> - - <section> - <title>Content Overview</title> - <p>The cosProperty documentation is divided into three sections: - </p> - <list type="bulleted"> - <item> - <p>PART ONE - The User's Guide - <br></br> -Description of the cosProperty Application including - services and a small tutorial demonstrating - the development of a simple service.</p> - </item> - <item> - <p>PART TWO - Release Notes - <br></br> -A concise history of cosProperty.</p> - </item> - <item> - <p>PART THREE - The Reference Manual - <br></br> - A quick reference guide, including a - brief description, to all the functions available in cosProperty.</p> - </item> - </list> - </section> - - <section> - <title>Brief description of the User's Guide</title> - <p>The User's Guide contains the following parts:</p> - <list type="bulleted"> - <item> - <p>cosProperty overview</p> - </item> - <item> - <p>cosProperty installation</p> - </item> - <item> - <p>A tutorial example</p> - </item> - </list> - </section> -</chapter> - diff --git a/lib/cosProperty/doc/src/ch_example.xml b/lib/cosProperty/doc/src/ch_example.xml deleted file mode 100644 index da13af2312..0000000000 --- a/lib/cosProperty/doc/src/ch_example.xml +++ /dev/null @@ -1,76 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE chapter SYSTEM "chapter.dtd"> - -<chapter> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>cosProperty Examples</title> - <prepared>Niclas Eklund</prepared> - <docno></docno> - <date>2000-06-07</date> - <rev>A</rev> - <file>ch_example.xml</file> - </header> - - <section> - <title>A tutorial on how to create a simple service</title> - - <section> - <title>Initiate the application</title> - <p>To use the cosProperty application Orber must be running.</p> - </section> - - <section> - <title>How to run everything</title> - <p>Below is a short transcript on how to run cosProperty. </p> - <code type="none"> - -%% Start Mnesia and Orber -mnesia:delete_schema([node()]), -mnesia:create_schema([node()]), -orber:install([node()]), -mnesia:start(), -orber:start(), - -%% Install Property Service in the IFR. -cosProperty:install(), - -%% Install Property Service in mnesia. -cosProperty:install_db(), - -%% Now start the application. -cosProperty:start(), - -%% To be able to create Property objects we must first a Factory -%% of our preferred type. -Fac = cosProperty:start_SetDefFactory(), - -%% Now we can create a Property object. -'CosPropertyService_PropertySetDefFactory': - create_propertysetdef(Fac), - -%% Now we can create any allowed properties. There are many -%% options which are all described further in the documentation. - </code> - </section> - </section> -</chapter> - diff --git a/lib/cosProperty/doc/src/ch_install.xml b/lib/cosProperty/doc/src/ch_install.xml deleted file mode 100644 index a1aa2914b4..0000000000 --- a/lib/cosProperty/doc/src/ch_install.xml +++ /dev/null @@ -1,56 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE chapter SYSTEM "chapter.dtd"> - -<chapter> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>Installing cosProperty</title> - <prepared>Niclas Eklund</prepared> - <docno></docno> - <date>2000-06-07</date> - <rev></rev> - <file>ch-install.xml</file> - </header> - - <section> - <title>Installation Process</title> - <p>This chapter describes how to install - <seealso marker="cosProperty">cosProperty</seealso> in an Erlang Environment. - </p> - - <section> - <title>Preparation</title> - <p>Before starting the installation process for cosProperty, - the application Orber must be running.</p> - </section> - - <section> - <title>Configuration</title> - <p>First the cosProperty application must be installed by using - <c>cosProperty:install()</c> and, if requested, <c>cosProperty:install_db()</c>, - followed by <c>cosProperty:start()</c>. - Now we can start the desired Factory type by using either - <c>cosProperty:start_SetFactory()</c> or - <c>cosProperty:start_SetDefFactory()</c>.</p> - </section> - </section> -</chapter> - diff --git a/lib/cosProperty/doc/src/ch_introduction.xml b/lib/cosProperty/doc/src/ch_introduction.xml deleted file mode 100644 index 03ef6f619c..0000000000 --- a/lib/cosProperty/doc/src/ch_introduction.xml +++ /dev/null @@ -1,54 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE chapter SYSTEM "chapter.dtd"> - -<chapter> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>Introduction to cosProperty</title> - <prepared>Niclas Eklund</prepared> - <docno></docno> - <date>2000-06-07</date> - <rev></rev> - <file>ch_introduction.xml</file> - </header> - - <section> - <title>Overview</title> - <p>The cosProperty application is compliant with the <url href="http://www.omg.org">OMG</url> - Service CosProperty Service. - </p> - - <section> - <title>Purpose and Dependencies</title> - <p><em>cosProperty</em> is dependent on <em>Orber</em>, which provides CORBA functionality in an Erlang environment.</p> - </section> - - <section> - <title>Prerequisites</title> - <p>To fully understand the concepts presented in the - documentation, it is recommended that the user is familiar - with distributed programming, CORBA and the Orber application. - </p> - <p>Recommended reading includes <em>CORBA, Fundamentals and Programming - Jon Siegel</em> and <em>Open Telecom Platform Documentation Set</em>. It is also helpful to have read <em>Concurrent Programming in Erlang</em>.</p> - </section> - </section> -</chapter> - diff --git a/lib/cosProperty/doc/src/cosProperty.xml b/lib/cosProperty/doc/src/cosProperty.xml deleted file mode 100644 index d9310b3113..0000000000 --- a/lib/cosProperty/doc/src/cosProperty.xml +++ /dev/null @@ -1,150 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE erlref SYSTEM "erlref.dtd"> - -<erlref> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>cosProperty</title> - <prepared></prepared> - <docno></docno> - <checked></checked> - <date>2000-06-07</date> - <rev>PA1</rev> - </header> - <module>cosProperty</module> - <modulesummary>The main module of the cosProperty application</modulesummary> - <description> - <p>To get access to the record definitions for the structures use: <br></br> -<c>-include_lib("cosProperty/include/*.hrl").</c></p> - <p>This module contains the functions for starting and stopping the application.</p> - </description> - <funcs> - <func> - <name>install() -> Return</name> - <fsummary>Install the cosProperty application in the IFR</fsummary> - <type> - <v>Return = ok | {'EXIT', Reason}</v> - </type> - <desc> - <p>This operation installs the cosProperty application in the IFR.</p> - </desc> - </func> - <func> - <name>install_db() -> Return</name> - <fsummary>Install data in mnesia necessary for running the cosProperty application</fsummary> - <type> - <v>Return = ok | {'EXIT', Reason}</v> - </type> - <desc> - <p>This operation installs data in mnesia necessary for running the - cosProperty application.</p> - </desc> - </func> - <func> - <name>uninstall() -> Return</name> - <fsummary>Remove all data in the IFR related to the cosProperty application</fsummary> - <type> - <v>Return = ok | {'EXIT', Reason}</v> - </type> - <desc> - <p>This operation removes all data in the IFR related to the cosProperty - application.</p> - </desc> - </func> - <func> - <name>uninstall_db() -> Return</name> - <fsummary>Remove all data from mnesia related to the cosProperty application</fsummary> - <type> - <v>Return = ok | {'EXIT', Reason}</v> - </type> - <desc> - <p>This operation removes all data from mnesia related to the cosProperty - application.</p> - </desc> - </func> - <func> - <name>start() -> Return</name> - <fsummary>Start the cosProperty application</fsummary> - <type> - <v>Return = ok | {error, Reason}</v> - </type> - <desc> - <p>This operation starts the cosProperty application.</p> - </desc> - </func> - <func> - <name>start_SetDefFactory() -> Return</name> - <fsummary>Start a PropertySetDef Factory</fsummary> - <type> - <v>Return = Factory | {'EXCEPTION', E}</v> - <v>Factory = CosPropertyService::PropertySetDefFactory reference.</v> - </type> - <desc> - <p>This operation starts a PropertySetDef Factory.</p> - </desc> - </func> - <func> - <name>start_SetFactory() -> Return</name> - <fsummary>Start a PropertySet Factory</fsummary> - <type> - <v>Return = Factory | {'EXCEPTION', E}</v> - <v>Factory = CosPropertyService::PropertySetDefFactory reference.</v> - </type> - <desc> - <p>This operation starts a PropertySet Factory.</p> - </desc> - </func> - <func> - <name>stop_SetDefFactory(Factory) -> Return</name> - <fsummary>Stop the given PropertySetDef Factory</fsummary> - <type> - <v>Factory = CosPropertyService::PropertySetDefFactory reference.</v> - <v>Return = ok | {'EXCEPTION', E}</v> - </type> - <desc> - <p>This operation stops the supplied PropertySetDef Factory.</p> - </desc> - </func> - <func> - <name>stop_SetFactory(Factory) -> Return</name> - <fsummary>Stop the given PropertySet Factory</fsummary> - <type> - <v>Factory = CosPropertyService::PropertySetFactory reference.</v> - <v>Return = ok | {'EXCEPTION', E}</v> - </type> - <desc> - <p>This operation stops the supplied PropertySet Factory.</p> - </desc> - </func> - <func> - <name>stop() -> Return</name> - <fsummary>Stop the cosProperty application</fsummary> - <type> - <v>Return = ok | {error, Reason}</v> - </type> - <desc> - <p>This operation stops the cosProperty application.</p> - </desc> - </func> - </funcs> - -</erlref> - diff --git a/lib/cosProperty/doc/src/notes.xml b/lib/cosProperty/doc/src/notes.xml deleted file mode 100644 index 4de246de67..0000000000 --- a/lib/cosProperty/doc/src/notes.xml +++ /dev/null @@ -1,377 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE chapter SYSTEM "chapter.dtd"> - -<chapter> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>cosProperty Release Notes</title> - <prepared></prepared> - <docno></docno> - <approved></approved> - <checked></checked> - <date>2000-06-07</date> - <rev>A</rev> - <file>notes.xml</file> - </header> - - - <section><title>cosProperty 1.2.3</title> - - <section><title>Fixed Bugs and Malfunctions</title> - <list> - <item> - <p> Removed all old unused files in the documentation. - </p> - <p> - Own Id: OTP-14475 Aux Id: ERL-409, PR-1493 </p> - </item> - </list> - </section> - -</section> - -<section><title>cosProperty 1.2.2</title> - - <section><title>Improvements and New Features</title> - <list> - <item> - <p> - Fix dialyzer warnings.</p> - <p> - Own Id: OTP-14006</p> - </item> - </list> - </section> - - </section> - - <section><title>cosProperty 1.2.1</title> - - <section><title>Improvements and New Features</title> - <list> - <item> - <p> - Internal changes</p> - <p> - Own Id: OTP-13551</p> - </item> - </list> - </section> - -</section> - -<section><title>cosProperty 1.2</title> - - <section><title>Improvements and New Features</title> - <list> - <item> - <p> Remove the usage of erlang:now() from all Corba - applications and use the new rand module instead of - random. </p> - <p> - Own Id: OTP-12687</p> - </item> - </list> - </section> - -</section> - -<section><title>cosProperty 1.1.17</title> - - <section><title>Improvements and New Features</title> - <list> - <item> - <p> The default encoding of Erlang files has been changed - from ISO-8859-1 to UTF-8. </p> <p> The encoding of XML - files has also been changed to UTF-8. </p> - <p> - Own Id: OTP-10907</p> - </item> - </list> - </section> - -</section> - -<section><title>cosProperty 1.1.16</title> - - <section><title>Improvements and New Features</title> - <list> - <item> - <p> - Misc build updates</p> - <p> - Own Id: OTP-10784</p> - </item> - </list> - </section> - -</section> - -<section><title>cosProperty 1.1.15</title> - - <section><title>Improvements and New Features</title> - <list> - <item> - <p>Erlang/OTP can now be built using parallel make if you - limit the number of jobs, for instance using '<c>make - -j6</c>' or '<c>make -j10</c>'. '<c>make -j</c>' does not - work at the moment because of some missing - dependencies.</p> - <p> - Own Id: OTP-9451</p> - </item> - </list> - </section> - -</section> - -<section> - <title>cosProperty 1.1.14</title> - - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p> - Removed superfluous usage of shy in the documentation since it can cause problem if - a buggy tool is used.</p> - <p> - Own Id: OTP-9319 Aux Id:</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.13</title> - - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>Eliminated Dialyzer warnings when using exit or throw.</p> - <p>Own id: OTP-9050 Aux Id:</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.12</title> - - <section> - <title>Fixed Bugs and Malfunctions</title> - <list type="bulleted"> - <item> - <p>Test suites published.</p> - <p>Own id: OTP-8543 Aux Id:</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.11</title> - - <section> - <title>Fixed Bugs and Malfunctions</title> - <list type="bulleted"> - <item> - <p>The documentation EIX file was not generated.</p> - <p>Own id: OTP-8355 Aux Id:</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.10</title> - - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p> - The documentation is now built with open source tools (xsltproc and fop) - that exists on most platforms. One visible change is that the frames are removed.</p> - <p> - Own Id: OTP-8201 Aux Id:</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.9</title> - - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>Obsolete guards, e.g. record vs is_record, has been changed - to avoid compiler warnings.</p> - <p>Own id: OTP-7987</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.8</title> - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>Updated file headers.</p> - <p>Own id: OTP-7837</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.7</title> - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>Documentation source included in open source releases.</p> - <p>Own id: OTP-7595</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.6</title> - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>Updated file headers.</p> - <p>Own id: OTP-7011</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.5</title> - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>The documentation source has been converted from SGML to XML.</p> - <p>Own Id: OTP-6754 Aux Id: </p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.4</title> - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>Minor Makefile changes.</p> - <p>Own Id: OTP-6701 Aux Id: </p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.3</title> - - <section> - <title>Fixed Bugs and Malfunctions</title> - <list type="bulleted"> - <item> - <p>The appup source file was missing a trailing newline.</p> - <p>Own id: OTP-6626</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.2</title> - - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>Removed some unused code.</p> - <p>Own Id: OTP-6527 Aux Id: </p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1.1</title> - - <section> - <title>Fixed Bugs and Malfunctions</title> - <list type="bulleted"> - <item> - <p>The app-file contained duplicated modules.</p> - <p>Own id: OTP-4976</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.1</title> - - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>The stub/skeleton-files generated by IC have been improved, - i.e., depending on the IDL-files, reduced the size of the - erl- and beam-files and decreased dependencies off Orber's - Interface Repository. It is necessary to re-compile all IDL-files - and use COS-applications, including Orber, compiled with - IC-4.2.</p> - <p>Own id: OTP-4576</p> - </item> - </list> - </section> - </section> - - <section> - <title>cosProperty 1.0.1</title> - - <section> - <title>Improvements and New Features</title> - <list type="bulleted"> - <item> - <p>First release of the cosProperty application.</p> - <p>Own Id: -</p> - </item> - </list> - </section> - </section> -</chapter> - diff --git a/lib/cosProperty/doc/src/part.xml b/lib/cosProperty/doc/src/part.xml deleted file mode 100644 index 9d28c6dda4..0000000000 --- a/lib/cosProperty/doc/src/part.xml +++ /dev/null @@ -1,40 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE part SYSTEM "part.dtd"> - -<part xmlns:xi="http://www.w3.org/2001/XInclude"> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>cosProperty User's Guide</title> - <prepared>Niclas Eklund</prepared> - <docno></docno> - <date>2000-06-07</date> - <rev>1.0</rev> - </header> - <description> - <p>The cosProperty Application is an Erlang implementation of the OMG - CORBA Property Service.</p> - </description> - <xi:include href="ch_contents.xml"/> - <xi:include href="ch_introduction.xml"/> - <xi:include href="ch_install.xml"/> - <xi:include href="ch_example.xml"/> -</part> - diff --git a/lib/cosProperty/doc/src/ref_man.xml b/lib/cosProperty/doc/src/ref_man.xml deleted file mode 100644 index a315c0285f..0000000000 --- a/lib/cosProperty/doc/src/ref_man.xml +++ /dev/null @@ -1,43 +0,0 @@ -<?xml version="1.0" encoding="utf-8" ?> -<!DOCTYPE application SYSTEM "application.dtd"> - -<application xmlns:xi="http://www.w3.org/2001/XInclude"> - <header> - <copyright> - <year>2000</year><year>2016</year> - <holder>Ericsson AB. All Rights Reserved.</holder> - </copyright> - <legalnotice> - Licensed under the Apache License, Version 2.0 (the "License"); - you may not use this file except in compliance with the License. - You may obtain a copy of the License at - - http://www.apache.org/licenses/LICENSE-2.0 - - Unless required by applicable law or agreed to in writing, software - distributed under the License is distributed on an "AS IS" BASIS, - WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. - See the License for the specific language governing permissions and - limitations under the License. - - </legalnotice> - - <title>cosProperty Reference Manual</title> - <prepared>Niclas Eklund</prepared> - <docno></docno> - <date>2000-06-07</date> - <rev>1.0</rev> - </header> - <description> - <p>The cosProperty Application is an Erlang implementation of the OMG - CORBA Property Service.</p> - </description> - <xi:include href="cosProperty.xml"/> - <xi:include href="CosPropertyService_PropertySetFactory.xml"/> - <xi:include href="CosPropertyService_PropertySetDefFactory.xml"/> - <xi:include href="CosPropertyService_PropertySet.xml"/> - <xi:include href="CosPropertyService_PropertySetDef.xml"/> - <xi:include href="CosPropertyService_PropertiesIterator.xml"/> - <xi:include href="CosPropertyService_PropertyNamesIterator.xml"/> -</application> - diff --git a/lib/cosProperty/ebin/.gitignore b/lib/cosProperty/ebin/.gitignore deleted file mode 100644 index e69de29bb2..0000000000 --- a/lib/cosProperty/ebin/.gitignore +++ /dev/null diff --git a/lib/cosProperty/examples/.gitignore b/lib/cosProperty/examples/.gitignore deleted file mode 100644 index e69de29bb2..0000000000 --- a/lib/cosProperty/examples/.gitignore +++ /dev/null diff --git a/lib/cosProperty/include/.gitignore b/lib/cosProperty/include/.gitignore deleted file mode 100644 index e69de29bb2..0000000000 --- a/lib/cosProperty/include/.gitignore +++ /dev/null diff --git a/lib/cosProperty/info b/lib/cosProperty/info deleted file mode 100644 index 67c56e92ed..0000000000 --- a/lib/cosProperty/info +++ /dev/null @@ -1,2 +0,0 @@ -group: orb -short: Orber OMG Property Service diff --git a/lib/cosProperty/priv/.gitignore b/lib/cosProperty/priv/.gitignore deleted file mode 100644 index e69de29bb2..0000000000 --- a/lib/cosProperty/priv/.gitignore +++ /dev/null diff --git a/lib/cosProperty/src/CosProperty.cfg b/lib/cosProperty/src/CosProperty.cfg deleted file mode 100644 index f10bf843d6..0000000000 --- a/lib/cosProperty/src/CosProperty.cfg +++ /dev/null @@ -1,5 +0,0 @@ -{this, "CosPropertyService::PropertySet"}. -{this, "CosPropertyService::PropertySetDef"}. -{this, "CosPropertyService::PropertySetDefFactory"}. -{this, "CosPropertyService::PropertySetFactory"}. - diff --git a/lib/cosProperty/src/CosProperty.idl b/lib/cosProperty/src/CosProperty.idl deleted file mode 100644 index 156fb37ccc..0000000000 --- a/lib/cosProperty/src/CosProperty.idl +++ /dev/null @@ -1,192 +0,0 @@ -#ifndef _COSPROPERTY_IDL -#define _COSPROPERTY_IDL - -#pragma prefix "omg.org" - -module CosPropertyService { - /*****************************************************/ - /* Data Types */ - /*****************************************************/ - typedef string PropertyName; - - struct Property { - PropertyName property_name; - any property_value; - }; - - enum PropertyModeType { - normal, read_only, fixed_normal, fixed_readonly, undefined }; - - struct PropertyDef { - PropertyName property_name; - any property_value; - PropertyModeType property_mode; - }; - - struct PropertyMode { - PropertyName property_name; - PropertyModeType property_mode; - }; - - typedef sequence<PropertyName> PropertyNames; - typedef sequence<Property> Properties; - typedef sequence<PropertyDef> PropertyDefs; - typedef sequence<PropertyMode> PropertyModes; - typedef sequence<CORBA::TypeCode> PropertyTypes; - - interface PropertyNamesIterator; - interface PropertiesIterator; - interface PropertySetFactory; - interface PropertySetDef; - interface PropertySet; - - /*****************************************************/ - /* Exceptions */ - /*****************************************************/ - exception ConstraintNotSupported{}; - exception InvalidPropertyName {}; - exception ConflictingProperty {}; - exception PropertyNotFound {}; - exception UnsupportedTypeCode {}; - exception UnsupportedProperty {}; - exception UnsupportedMode {}; - exception FixedProperty {}; - exception ReadOnlyProperty {}; - - enum ExceptionReason { invalid_property_name, conflicting_property, - property_not_found, unsupported_type_code, - unsupported_property, unsupported_mode, - fixed_property, read_only_property }; - - struct PropertyException { - ExceptionReason reason; - PropertyName failing_property_name; - }; - - typedef sequence<PropertyException> PropertyExceptions; - exception MultipleExceptions { PropertyExceptions exceptions; }; - - /*****************************************************/ - /* Interface Definitions */ - /*****************************************************/ - interface PropertySetFactory { - PropertySet create_propertyset(); - - PropertySet create_constrained_propertyset( in PropertyTypes allowed_property_types, - in Properties allowed_properties) - raises(ConstraintNotSupported); - - PropertySet create_initial_propertyset( in Properties initial_properties) - raises(MultipleExceptions); }; - - /*---------------------------------------------------*/ - interface PropertySetDefFactory { - PropertySetDef create_propertysetdef(); - - PropertySetDef create_constrained_propertysetdef( in PropertyTypes allowed_property_types, - in PropertyDefs allowed_property_defs) - raises(ConstraintNotSupported); - - PropertySetDef create_initial_propertysetdef( in PropertyDefs initial_property_defs) - raises(MultipleExceptions); - }; - - /*---------------------------------------------------*/ - interface PropertySet { - /* Support for defining and modifying properties */ - void define_property( in PropertyName property_name, in any property_value) - raises(InvalidPropertyName, ConflictingProperty, UnsupportedTypeCode, - UnsupportedProperty, ReadOnlyProperty); - - void define_properties( in Properties nproperties) - raises(MultipleExceptions); - - /* Support for Getting Properties and their Names */ - unsigned long get_number_of_properties(); - - void get_all_property_names( in unsigned long how_many, - out PropertyNames property_names, - out PropertyNamesIterator rest); - - any get_property_value( in PropertyName property_name) - raises(PropertyNotFound, InvalidPropertyName); - - boolean get_properties( in PropertyNames property_names, - out Properties nproperties); - - void get_all_properties( in unsigned long how_many, - out Properties nproperties, - out PropertiesIterator rest); - - /* Support for Deleting Properties */ - void delete_property( in PropertyName property_name) - raises(PropertyNotFound, InvalidPropertyName, FixedProperty); - - void delete_properties( in PropertyNames property_names) - raises(MultipleExceptions); - - boolean delete_all_properties(); - - /* Support for Existence Check */ - boolean is_property_defined( in PropertyName property_name) - raises(InvalidPropertyName); - }; - - /*---------------------------------------------------*/ - interface PropertySetDef:PropertySet { - /* Support for retrieval of PropertySet constraints*/ - void get_allowed_property_types( out PropertyTypes property_types); - - void get_allowed_properties( out PropertyDefs property_defs); - - /* Support for defining and modifying properties */ - void define_property_with_mode( in PropertyName property_name, - in any property_value, - in PropertyModeType property_mode) - raises(InvalidPropertyName, ConflictingProperty, UnsupportedTypeCode, - UnsupportedProperty, UnsupportedMode, ReadOnlyProperty); - - void define_properties_with_modes( in PropertyDefs property_defs) - raises(MultipleExceptions); - - /* Support for Getting and Setting Property Modes */ - PropertyModeType get_property_mode( in PropertyName property_name) - raises(PropertyNotFound, InvalidPropertyName); - - boolean get_property_modes( in PropertyNames property_names, - out PropertyModes property_modes); - - void set_property_mode( in PropertyName property_name, - in PropertyModeType property_mode) - raises(InvalidPropertyName, PropertyNotFound, UnsupportedMode); - - void set_property_modes( in PropertyModes property_modes) - raises(MultipleExceptions); - }; - - /*---------------------------------------------------*/ - interface PropertyNamesIterator{ - void reset(); - - boolean next_one( out PropertyName property_name); - - boolean next_n ( in unsigned long how_many, - out PropertyNames property_names); - - void destroy(); - }; - - /*---------------------------------------------------*/ - interface PropertiesIterator { - void reset(); - - boolean next_one( out Property aproperty); - - boolean next_n( in unsigned long how_many, - out Properties nproperties); - - void destroy(); - }; -}; - -#endif diff --git a/lib/cosProperty/src/CosPropertyService_PropertiesIterator_impl.erl b/lib/cosProperty/src/CosPropertyService_PropertiesIterator_impl.erl deleted file mode 100644 index 5972e8f4d2..0000000000 --- a/lib/cosProperty/src/CosPropertyService_PropertiesIterator_impl.erl +++ /dev/null @@ -1,167 +0,0 @@ -%%-------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2000-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%---------------------------------------------------------------------- -%% File : CosPropertyService_PropertiesIterator_impl.erl -%% Description : -%% -%%---------------------------------------------------------------------- --module('CosPropertyService_PropertiesIterator_impl'). - -%%---------------------------------------------------------------------- -%% Include files -%%---------------------------------------------------------------------- --include_lib("orber/include/corba.hrl"). --include_lib("orber/src/orber_iiop.hrl"). --include("CosPropertyService.hrl"). --include("cosProperty.hrl"). - - -%%---------------------------------------------------------------------- -%% External exports -%%---------------------------------------------------------------------- -%% Mandatory server functions --export([init/1, - terminate/2, - code_change/3]). - --export([reset/1, - next_one/1, - next_n/2, - destroy/1]). - -%%---------------------------------------------------------------------- -%% Internal exports -%%---------------------------------------------------------------------- --export([ - ]). - -%%---------------------------------------------------------------------- -%% Records -%%---------------------------------------------------------------------- --record(state, {properties, counter=1, length}). - -%%---------------------------------------------------------------------- -%% Macros -%%---------------------------------------------------------------------- --define(CreateInitState(L), #state{properties = L, length = length(L)}). --define(get_Properties(S), S#state.properties). --define(get_Counter(S), S#state.counter). --define(get_Length(S), S#state.length). - --define(set_Properties(S, P), S#state{properties = P}). --define(set_Counter(S, C), S#state{counter = C}). --define(set_Length(S, L), S#state{length = L}). - --define(increment_Counter(S), S#state{counter = S#state.counter+1}). --define(decrement_Counter(S), S#state{counter = S#state.counter-1}). --define(addto_Counter(S, N), S#state{counter = S#state.counter+N}). --define(subfrom_Counter(S, N), S#state{counter = S#state.counter-N}). - - -%%====================================================================== -%% External functions -%%====================================================================== -%%---------------------------------------------------------------------- -%% Function : init/1 -%% Description: Initiates the server -%% Returns : {ok, State} | -%% {ok, State, Timeout} | -%% ignore | -%% {stop, Reason} -%%---------------------------------------------------------------------- -init(Properties) -> - {ok, ?CreateInitState(Properties)}. - -%%---------------------------------------------------------------------- -%% Function : terminate/2 -%% Description: Shutdown the server -%% Returns : any (ignored by gen_server) -%%---------------------------------------------------------------------- -terminate(_Reason, _State) -> - ok. - -%%---------------------------------------------------------------------- -%% Function : code_change/3 -%% Description: Convert process state when code is changed -%% Returns : {ok, NewState} -%%---------------------------------------------------------------------- -code_change(_OldVsn, State, _Extra) -> - {ok, State}. - -%%---------------------------------------------------------------------% -%% Function : reset -%% Arguments : - -%% Description: -%% Returns : {ok, NewState} -%%---------------------------------------------------------------------- -reset(State) -> - {reply, ok, ?set_Counter(State, 1)}. - -%%---------------------------------------------------------------------- -%% Function : next_one -%% Arguments : - -%% Description: -%% Returns : {ok, {bool(), PropertyList}, NewState} -%%---------------------------------------------------------------------- -next_one(State) when ?get_Counter(State) > ?get_Length(State) -> - {reply, {false, - #'CosPropertyService_Property' - {property_name = "", - property_value = any:create(orber_tc:null(), null)}}, - State}; -next_one(State) -> - {reply, {true, lists:nth(?get_Counter(State), ?get_Properties(State))}, - ?set_Counter(State, 1+?get_Counter(State))}. - -%%---------------------------------------------------------------------- -%% Function : next_n -%% Arguments : N - how many properties we should return. -%% Description: -%% Returns : {ok, {bool(), PropertyList}, NewState} -%%---------------------------------------------------------------------- -next_n(State, N) -> - case lists:sublist(?get_Properties(State), - ?get_Counter(State), - N) of - Properties when N+?get_Counter(State) < ?get_Length(State) -> - {reply, {true, Properties}, ?set_Counter(State, N+?get_Counter(State))}; - Properties -> - {reply, {false, Properties}, ?set_Counter(State, ?get_Length(State))} - end. - -%%---------------------------------------------------------------------% -%% Function : destroy -%% Arguments : - -%% Description: Terminate the object -%% Returns : {ok, NewState} -%%---------------------------------------------------------------------- -destroy(State) -> - {stop, normal, ok, State}. - -%%====================================================================== -%% Internal functions -%%===================================================================== - -%%====================================================================== -%% END OF MODULE -%%====================================================================== - diff --git a/lib/cosProperty/src/CosPropertyService_PropertyNamesIterator_impl.erl b/lib/cosProperty/src/CosPropertyService_PropertyNamesIterator_impl.erl deleted file mode 100644 index 7ce4f6b303..0000000000 --- a/lib/cosProperty/src/CosPropertyService_PropertyNamesIterator_impl.erl +++ /dev/null @@ -1,159 +0,0 @@ -%%-------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2000-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%---------------------------------------------------------------------- -%% File : CosPropertyService_PropertyNamesIterator_impl.erl -%% Description : -%% -%%---------------------------------------------------------------------- --module('CosPropertyService_PropertyNamesIterator_impl'). - -%%---------------------------------------------------------------------- -%% Include files -%%---------------------------------------------------------------------- --include_lib("orber/include/corba.hrl"). --include_lib("orber/src/orber_iiop.hrl"). --include("CosPropertyService.hrl"). --include("cosProperty.hrl"). - -%%---------------------------------------------------------------------- -%% External exports -%%---------------------------------------------------------------------- -%% Mandatory server functions --export([init/1, - terminate/2, - code_change/3]). - --export([reset/1, - next_one/1, - next_n/2, - destroy/1]). - -%%---------------------------------------------------------------------- -%% Internal exports -%%---------------------------------------------------------------------- --export([ - ]). - -%%---------------------------------------------------------------------- -%% Records -%%---------------------------------------------------------------------- --record(state, {properties, counter=1, length}). - -%%---------------------------------------------------------------------- -%% Macros -%%---------------------------------------------------------------------- --define(CreateInitState(L), #state{properties = L, length = length(L)}). --define(get_Properties(S), S#state.properties). --define(get_Counter(S), S#state.counter). --define(get_Length(S), S#state.length). - --define(set_Properties(S, P), S#state{properties = P}). --define(set_Counter(S, C), S#state{counter = C}). --define(set_Length(S, L), S#state{length = L}). - --define(increment_Counter(S), S#state{counter = S#state.counter+1}). --define(decrement_Counter(S), S#state{counter = S#state.counter-1}). --define(addto_Counter(S, N), S#state{counter = S#state.counter+N}). --define(subfrom_Counter(S, N), S#state{counter = S#state.counter-N}). - - -%%====================================================================== -%% External functions -%%====================================================================== -%%---------------------------------------------------------------------- -%% Function : init/1 -%% Description: Initiates the server -%% Returns : {ok, State} | -%% {ok, State, Timeout} | -%% ignore | -%% {stop, Reason} -%%---------------------------------------------------------------------- -init(Properties) -> - {ok, ?CreateInitState(Properties)}. - -%%---------------------------------------------------------------------- -%% Function : terminate/2 -%% Description: Shutdown the server -%% Returns : any (ignored by gen_server) -%%---------------------------------------------------------------------- -terminate(_Reason, _State) -> - ok. - -%%---------------------------------------------------------------------- -%% Function : code_change/3 -%% Description: Convert process state when code is changed -%% Returns : {ok, NewState} -%%---------------------------------------------------------------------- -code_change(_OldVsn, State, _Extra) -> - {ok, State}. - -%%---------------------------------------------------------------------% -%% Function : reset -%% Arguments : - -%% Description: -%% Returns : {ok, NewState} -%%---------------------------------------------------------------------- -reset(State) -> - {reply, ok, ?set_Counter(State, 1)}. - -%%---------------------------------------------------------------------% -%% Function : next_one -%% Arguments : - -%% Description: -%% Returns : {ok, {bool(), PropertyName}, NewState} -%%---------------------------------------------------------------------- -next_one(State) when ?get_Counter(State) > ?get_Length(State) -> - {reply, {false, ""}, State}; -next_one(State) -> - {reply, {true, lists:nth(?get_Counter(State), ?get_Properties(State))}, - ?set_Counter(State, 1+?get_Counter(State))}. - -%%---------------------------------------------------------------------% -%% Function : next_n -%% Arguments : N - how many properties we should return. -%% Description: -%% Returns : {ok, {bool(), PropertyNameList}, NewState} -%%---------------------------------------------------------------------- -next_n(State, N) -> - case lists:sublist(?get_Properties(State), ?get_Counter(State), N) of - Properties when N+?get_Counter(State) < ?get_Length(State) -> - {reply, {true, Properties}, ?set_Counter(State, N+?get_Counter(State))}; - Properties -> - {reply, {false, Properties}, ?set_Counter(State, ?get_Length(State))} - end. - -%%---------------------------------------------------------------------% -%% Function : destroy -%% Arguments : - -%% Description: Terminate the object -%% Returns : {ok, NewState} -%%---------------------------------------------------------------------- -destroy(State) -> - {stop, normal, ok, State}. - -%%====================================================================== -%% Internal functions -%%====================================================================== - -%%====================================================================== -%% END OF MODULE -%%====================================================================== diff --git a/lib/cosProperty/src/CosPropertyService_PropertySetDefFactory_impl.erl b/lib/cosProperty/src/CosPropertyService_PropertySetDefFactory_impl.erl deleted file mode 100644 index 722bb45eb7..0000000000 --- a/lib/cosProperty/src/CosPropertyService_PropertySetDefFactory_impl.erl +++ /dev/null @@ -1,186 +0,0 @@ -%%---------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2000-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%---------------------------------------------------------------------- -%% File : CosPropertyService_PropertySetDefFactory_impl.erl -%% Description : -%% -%%---------------------------------------------------------------------- --module('CosPropertyService_PropertySetDefFactory_impl'). - -%%---------------------------------------------------------------------- -%% Include files -%%---------------------------------------------------------------------- --include_lib("orber/include/corba.hrl"). --include_lib("orber/src/orber_iiop.hrl"). --include("CosPropertyService.hrl"). --include("cosProperty.hrl"). - -%%---------------------------------------------------------------------- -%% External exports -%%---------------------------------------------------------------------- --export([init/1, - terminate/2, - code_change/3]). - --export([create_propertysetdef/2, - create_constrained_propertysetdef/4, - create_initial_propertysetdef/3]). - -%%---------------------------------------------------------------------- -%% Internal exports -%%---------------------------------------------------------------------- --export([]). - -%%---------------------------------------------------------------------- -%% Records -%%---------------------------------------------------------------------- --record(state, {}). - -%%---------------------------------------------------------------------- -%% Macros -%%---------------------------------------------------------------------- --define(checkTCfun, fun(TC) -> orber_tc:check_tc(TC) end). - -%%====================================================================== -%% External functions -%%====================================================================== -%%---------------------------------------------------------------------- -%% Function : init/1 -%% Returns : {ok, State} | -%% {ok, State, Timeout} | -%% ignore | -%% {stop, Reason} -%% Description: Initiates the server -%%---------------------------------------------------------------------- -init([]) -> - {ok, #state{}}. - -%%---------------------------------------------------------------------- -%% Function : terminate/2 -%% Returns : any (ignored by gen_server) -%% Description: Shutdown the server -%%---------------------------------------------------------------------- -terminate(_Reason, _State) -> - ok. - -%%---------------------------------------------------------------------- -%% Function : code_change/3 -%% Returns : {ok, NewState} -%% Description: Convert process state when code is changed -%%---------------------------------------------------------------------- -code_change(_OldVsn, State, _Extra) -> - {ok, State}. - -%%---------------------------------------------------------------------% -%% Function : create_propertysetdef -%% Arguments : -%% Returns : CosPropertyService::PropertySetDef reference. -%% Description: -%%---------------------------------------------------------------------- -create_propertysetdef(_OE_This, State) -> - {reply, - 'CosPropertyService_PropertySetDef': - oe_create({normal, [], [], [], ?PropertySetDef}, [{pseudo, true}]), - State}. - -%%---------------------------------------------------------------------% -%% Function : create_constrained_propertysetdef -%% Arguments : PropTypes - list of property types. -%% PropDefs - list of property defs. -%% Returns : CosPropertyService::PropertySetDef | -%% {'EXCEPTION', CosPropertyService::ConstraintNotSupported} -%% Description: -%%---------------------------------------------------------------------- -create_constrained_propertysetdef(_OE_This, State, PropTypes, PropDefs) -> - case lists:all(?checkTCfun, PropTypes) of - true -> - crosscheckTC(PropDefs, PropTypes), - {reply, - 'CosPropertyService_PropertySetDef': - oe_create({normal, PropTypes, PropDefs, [], ?PropertySetDef}, [{pseudo, true}]), - State}; - false -> - corba:raise(#'CosPropertyService_ConstraintNotSupported'{}) - end. - -crosscheckTC([], _) -> - ok; -crosscheckTC([#'CosPropertyService_PropertyDef' - {property_name = Name, - property_value = Value, - property_mode = _Mode}|T], TCs) -> - case lists:member(any:get_typecode(Value), TCs) of - true when Name =/= "" -> - crosscheckTC(T, TCs); - _ -> - corba:raise(#'CosPropertyService_ConstraintNotSupported'{}) - end. - -%%---------------------------------------------------------------------% -%% Function : create_initial_propertysetdef -%% Arguments : -%% Returns : CosPropertyService::PropertySetDef | -%% {'EXCEPTION', CosPropertyService::MultipleExceptions} -%% Description: -%%---------------------------------------------------------------------- -create_initial_propertysetdef(_OE_This, State, PropDefs) -> - InitProps = evaluate_propertysetdef(PropDefs), - {reply, - 'CosPropertyService_PropertySetDef': - oe_create({normal, [], [], InitProps, ?PropertySetDef}, [{pseudo, true}]), - State}. - -%%====================================================================== -%% Internal functions -%%====================================================================== -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. - {ok, NewProperties}; -evaluate_propertysetdef([], _, Exc) -> - {error, Exc}; -evaluate_propertysetdef([#'CosPropertyService_PropertyDef' - {property_name = Name, - property_value = Value, - property_mode = Mode}|T], X, Exc) -> - case orber_tc:check_tc(any:get_typecode(Value)) of - true -> - evaluate_propertysetdef(T, [{Name, Value, Mode}|X], Exc); - false -> - evaluate_propertysetdef(T, X, [#'CosPropertyService_PropertyException' - {reason = unsupported_type_code, - failing_property_name = Name}|Exc]) - end. - - - -%%====================================================================== -%% END OF MODULE -%%====================================================================== - diff --git a/lib/cosProperty/src/CosPropertyService_PropertySetDef_impl.erl b/lib/cosProperty/src/CosPropertyService_PropertySetDef_impl.erl deleted file mode 100644 index cc67daa9e0..0000000000 --- a/lib/cosProperty/src/CosPropertyService_PropertySetDef_impl.erl +++ /dev/null @@ -1,1042 +0,0 @@ -%%-------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2000-2017. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%----------------------------------------------------------------- -%% File: CosPropertyService_PropertySetDef_impl.erl -%% Modified: -%% -%%----------------------------------------------------------------- -%% README: -%% (1) The OMG specification states that a property name may not -%% be an empty string (""). We may restrict this further -%% but there is no reason for that. -%%----------------------------------------------------------------- --module('CosPropertyService_PropertySetDef_impl'). - -%%---------------------------------------------------------------------- -%% Include files -%%---------------------------------------------------------------------- --include_lib("orber/include/corba.hrl"). --include_lib("orber/src/orber_iiop.hrl"). --include_lib("cosProperty/include/CosPropertyService.hrl"). --include("cosProperty.hrl"). - -%%---------------------------------------------------------------------- -%% External exports -%%---------------------------------------------------------------------- -%% Mandatory callbacks --export([init/1, - terminate/2, - code_change/3]). - -%% Inherrit from 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]). - -%% 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]). - -%%---------------------------------------------------------------------- -%% Internal exports -%%---------------------------------------------------------------------- --export([dump/0]). - -%%---------------------------------------------------------------------- -%% Records -%%---------------------------------------------------------------------- --record(state, {dbKey, defaultMode, okTypes, okProperties, myType}). - -%%---------------------------------------------------------------------- -%% Macros -%%---------------------------------------------------------------------- - --define(create_InitState(K, D, AT, AP, MT), #state{dbKey = K, defaultMode = D, - okTypes = AT, okProperties = AP, - myType = MT}). -%% Selectors --define(get_DBKey(S), S#state.dbKey). --define(get_DefaultMode(S), S#state.defaultMode). --define(get_okTypes(S), S#state.okTypes). --define(get_okProperties(S), S#state.okProperties). -%% MISC --define(is_NotSetDef(S), S#state.myType =/= ?PropertySetDef). --define(no_PropertyLimits(S), S#state.okProperties == []). --define(no_TypeLimits(S), S#state.okTypes == []). --define(is_NotStatic(S), is_binary(S#state.dbKey)). - -%% Fun:s --define(Local2Property, fun({N,V,_M}) -> - #'CosPropertyService_Property'{property_name = N, - property_value = V} - end). --define(Local2Names, fun({N,_V,_M}) -> - N - end). --define(MemberName(N), fun(R) -> - case R of - Property when is_record(R, 'CosPropertyService_Property') -> - Property#'CosPropertyService_Property'.property_name == N; - PropertyDef when is_record(R, 'CosPropertyService_PropertyDef') -> - PropertyDef#'CosPropertyService_PropertyDef'.property_name == N; - _-> - false - end - end). - -%%====================================================================== -%% External functions -%%====================================================================== -%%---------------------------------------------------------------------- -%% Function : init/1 -%% Description: Initiates the server -%% Returns : {ok, State} | -%% {ok, State, Timeout} | -%% ignore | -%% {stop, Reason} -%%---------------------------------------------------------------------- -init({DefMode, AllowedTypes, AllowedProperties, InitProperties, MyType}) -> - Key = term_to_binary({{erlang:system_time(), - erlang:unique_integer()}, - node()}), - _F = ?write_function(#oe_CosPropertyService{key=Key, - properties=InitProperties}), - write_result(mnesia:transaction(_F)), - {ok, ?create_InitState(Key, DefMode, AllowedTypes, AllowedProperties, MyType)}; -init({static, DefMode, AllowedTypes, AllowedProperties, InitProperties, MyType}) -> - {ok, ?create_InitState(InitProperties, DefMode, AllowedTypes, - AllowedProperties, MyType)}. - -%%---------------------------------------------------------------------% -%% Function : terminate -%% Description: Shutdown the server -%% Returns : any (ignored by gen_server) -%%---------------------------------------------------------------------- -terminate(_Reason, State) when ?is_NotStatic(State) -> - _DF = ?delete_function({oe_CosPropertyService, ?get_DBKey(State)}), - catch write_result(mnesia:transaction(_DF)), - ok; -terminate(_Reason, _State) -> - ok. - -%%---------------------------------------------------------------------% -%% Function : code_change -%% Description: Convert process state when code is changed -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -code_change(_OldVsn, State, _Extra) -> - {ok, State}. - - -%%---------------------------------------------------------------------- -%% Interface CosPropertyService::PropertySet -%%---------------------------------------------------------------------- -%%---------------------------------------------------------------------% -%% Function : define_property -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -define_property(_, _, "", _) -> - corba:raise(#'CosPropertyService_InvalidPropertyName'{}); -define_property(_OE_This, State, Name, Value) when ?is_NotStatic(State) -> - evaluate_property_data(State, Value, Name), - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch update_property(X, Name, value, Value, - ?get_DefaultMode(State)) of - {'EXCEPTION', E} when - is_record(E, 'CosPropertyService_PropertyNotFound') -> - mnesia_write(State, [{Name, Value, ?get_DefaultMode(State)}|X]); - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - NewProperties -> - mnesia_write(State, NewProperties) - end - end - end, - {reply, mnesia_transaction(_DF), State}; -define_property(_OE_This, State, Name, Value) -> - evaluate_property_data(State, Value, Name), - X = ?get_DBKey(State), - case catch update_property(X, Name, value, Value, ?get_DefaultMode(State)) of - {'EXCEPTION', E} when is_record(E, 'CosPropertyService_PropertyNotFound') -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}); - {'EXCEPTION', E} -> - corba:raise(E); - _NewProperties -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - - -%%---------------------------------------------------------------------% -%% Function : get_property_value -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -get_property_value(_, _, "") -> - corba:raise(#'CosPropertyService_InvalidPropertyName'{}); -get_property_value(_OE_THIS, State, Name) -> - X = lookup_table(?get_DBKey(State)), - {reply, find_property(X, Name, value), State}. - -%%---------------------------------------------------------------------% -%% Function : delete_property -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -delete_property(_, _, "") -> - corba:raise(#'CosPropertyService_InvalidPropertyName'{}); -delete_property(_OE_THIS, State, Name) when ?is_NotStatic(State) -> - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch remove_property(X, Name) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - NewProperties -> - mnesia_write(State, NewProperties) - end - end - end, - {reply, mnesia_transaction(_DF), State}; -delete_property(_OE_THIS, State, Name) -> - X = lookup_table(?get_DBKey(State)), - %% Check the properties; must raise an exception. - remove_property(X, Name), - %% Something is not correct. - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}). - - -%%---------------------------------------------------------------------% -%% Function : define_properties -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -define_properties(_OE_THIS, State, PropertySeq) when ?is_NotStatic(State) -> - {OKProperties, Exc} = evaluate_properties_data(State, PropertySeq), - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch define_properties_helper(State, - OKProperties, X, Exc) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - NewProperties -> - mnesia_write(State, NewProperties) - end - end - end, - {reply, mnesia_transaction(_DF), State}; -define_properties(_OE_THIS, State, PropertySeq) -> - {OKProperties, Exc} = evaluate_properties_data(State, PropertySeq), - X = lookup_table(?get_DBKey(State)), - case define_properties_helper(State, OKProperties, X, Exc) of - {'EXCEPTION', E} -> - corba:raise(E); - _ -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - -define_properties_helper(_State, [], NewProperties, []) -> - %% No exceptions, insert the properties. - NewProperties; -define_properties_helper(_State, [], _, MultipleExceptions) -> - {'EXCEPTION', #'CosPropertyService_MultipleExceptions'{exceptions = MultipleExceptions}}; -define_properties_helper(State, [#'CosPropertyService_Property' - {property_name = Name, - property_value = Value}|T], Properties, Exc) -> - case catch update_property(Properties, Name, value, Value, ?get_DefaultMode(State)) of - {'EXCEPTION', E} when is_record(E, 'CosPropertyService_PropertyNotFound') -> - define_properties_helper(State, T, [{Name, Value, ?get_DefaultMode(State)}|Properties], Exc); - {'EXCEPTION', E} -> - define_properties_helper(State, T, Properties, - [#'CosPropertyService_PropertyException' - {reason = remap_exception(E), - failing_property_name = Name}|Exc]); - NewProperties -> - define_properties_helper(State, T, NewProperties, Exc) - end. - -%%---------------------------------------------------------------------% -%% Function : get_number_of_properties -%% Arguments : - -%% Description: Returns the number of properties currently associated -%% with this object. -%% Returns : {ok, ulong(), State} -%%---------------------------------------------------------------------- -get_number_of_properties(_OE_THIS, State) -> - X = lookup_table(?get_DBKey(State)), - {reply, length(X), State}. - -%%---------------------------------------------------------------------% -%% Function : get_all_property_names -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -get_all_property_names(_OE_THIS, State, Max) -> - X = lookup_table(?get_DBKey(State)), - {reply, get_all_property_names_helper(X, [], Max), State}. - -get_all_property_names_helper([], Acc, _) -> - %% There are no more properties; return a nil-object refernce. - {ok, Acc, corba:create_nil_objref()}; -get_all_property_names_helper(Left, Acc, 0) -> - %% There are more properties; create Name Iterartor. - PropertyNames = lists:map(?Local2Names, Left), - {ok, Acc, cosProperty:start_PropertyNamesIterator(PropertyNames)}; -get_all_property_names_helper([{Name, _, _}|T], Acc, No) -> - get_all_property_names_helper(T, [Name|Acc], No-1). - - -%%---------------------------------------------------------------------% -%% Function : get_properties -%% Arguments : A list of property names, i.e., string() -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -get_properties(_OE_THIS, State, PropertyNames) -> - X = lookup_table(?get_DBKey(State)), - {reply, locate_names(PropertyNames, X, true, []), State}. - -locate_names([], _, AllOK, Acc) -> - {AllOK, Acc}; -locate_names([""|T], X, _AllOK, Acc) -> - locate_names(T, X, false, [#'CosPropertyService_Property' - {property_name = "", - property_value = - any:create(tk_void, ok)}|Acc]); -locate_names([H|T], X, AllOK, Acc) -> - case catch find_property(X, H, value) of - {'EXCEPTION', _} -> - locate_names(T, X, false, [#'CosPropertyService_Property' - {property_name = H, - property_value = - any:create(tk_void, ok)}|Acc]); - Val -> - locate_names(T, X, AllOK, [#'CosPropertyService_Property' - {property_name = H, - property_value = Val}|Acc]) - end. - -%%---------------------------------------------------------------------% -%% Function : get_all_properties -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -get_all_properties(_OE_THIS, State, Max) -> - X = lookup_table(?get_DBKey(State)), - {reply, get_all_properties_helper(X, [], Max), State}. - -get_all_properties_helper([], Acc, _) -> -%% There are no more properties; return a nil-object refernce. - {ok, Acc, corba:create_nil_objref()}; -get_all_properties_helper(Left, Acc, 0) -> - %% There are more properties; create Iterartor. - Properties = lists:map(?Local2Property, Left), - {ok, Acc, cosProperty:start_PropertiesIterator(Properties)}; -get_all_properties_helper([{Name, Val, _}|T], Acc, No) -> - get_all_properties_helper(T, [#'CosPropertyService_Property' - {property_name = Name, - property_value = Val}|Acc], No-1). - -%%---------------------------------------------------------------------% -%% Function : delete_properties -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -delete_properties(_OE_THIS, State, []) -> - {reply, ok, State}; -delete_properties(_OE_THIS, State, PropertyNames) when ?is_NotStatic(State) -> - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch delete_properties_helper(X, [], [], - PropertyNames, State, - length(X)) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - {{'EXCEPTION', E}, NotDeleted} -> - ok = mnesia_write(State, NotDeleted), - {'EXCEPTION', E}; - {ok, NotDeleted} -> - mnesia_write(State, NotDeleted) - end - end - end, - {reply, mnesia_transaction(_DF), State}; -delete_properties(_OE_THIS, State, PropertyNames) -> - X = lookup_table(?get_DBKey(State)), - case delete_properties_helper(X, [], [], PropertyNames, State, length(X)) of - {'EXCEPTION', E} -> - corba:raise(E); - _-> - %% Not acceptable if it was possible to delete one or more Properties. - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - -delete_properties_helper([], [], NotDeleted, [], _State, _Len) -> - %% Since there are no exceptions we have been able to delete all - %% properties. - {ok, NotDeleted}; -delete_properties_helper([], MultipleExc, NotDeleted, Names, _State, Len) -> - %% Write remaining events to DB. - case length(NotDeleted) of - Len -> - {'EXCEPTION', #'CosPropertyService_MultipleExceptions' - {exceptions = add_not_found(Names, MultipleExc)}}; - _-> - {{'EXCEPTION', #'CosPropertyService_MultipleExceptions' - {exceptions = add_not_found(Names, MultipleExc)}}, - NotDeleted} - end; -delete_properties_helper([{Name, Val, Mode}|T], MultipleExc, NotDeleted, - Names, State, Len) -> - case lists:member(Name, Names) of - true when Mode =/= fixed_normal, Mode =/= fixed_readonly -> - delete_properties_helper(T, MultipleExc, NotDeleted, - lists:delete(Name, Names), State, Len); - true -> - delete_properties_helper(T, [#'CosPropertyService_PropertyException' - {reason = fixed_property, - failing_property_name = Name}|MultipleExc], - [{Name, Val, Mode}|NotDeleted], - lists:delete(Name, Names), State, Len); - false -> - delete_properties_helper(T, MultipleExc, [{Name, Val, Mode}|NotDeleted], - Names, State, Len) - end. - -add_not_found([], MultipleExc) -> - MultipleExc; -add_not_found([Name|T], MultipleExc) -> - add_not_found(T, [#'CosPropertyService_PropertyException' - {reason = property_not_found, - failing_property_name = Name}|MultipleExc]). - - - -%%---------------------------------------------------------------------% -%% Function : delete_all_properties -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -delete_all_properties(_OE_THIS, State) when ?is_NotStatic(State) -> - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch delete_all_properties_helper(X, [], State, - length(X)) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - true -> - ok = mnesia_write(State, []), - true; - false -> - false; - {false, NotDeleted} -> - ok = mnesia_write(State, NotDeleted), - false - end - end - end, - {reply, mnesia_transaction(_DF), State}; -delete_all_properties(_OE_THIS, State) -> - X = lookup_table(?get_DBKey(State)), - case delete_all_properties_helper(X, [], State, length(X)) of - false -> - {reply, false, State}; - _-> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - -delete_all_properties_helper([], [], _State, _) -> - %% Was able to delete all properties. - true; -delete_all_properties_helper([], NotDeleted, _State, Len) -> - %% Write remaining events to DB. - case length(NotDeleted) of - Len -> - false; - _-> - {false, NotDeleted} - end; -delete_all_properties_helper([{Name, Val, fixed_normal}|T], NotDeleted, State, Len) -> - delete_all_properties_helper(T, [{Name, Val, fixed_normal}|NotDeleted], State, Len); -delete_all_properties_helper([{Name, Val, fixed_readonly}|T], NotDeleted, State, Len) -> - delete_all_properties_helper(T, [{Name, Val, fixed_readonly}|NotDeleted], State, Len); -delete_all_properties_helper([_|T], NotDeleted, State, Len) -> - delete_all_properties_helper(T, NotDeleted, State, Len). - -%%---------------------------------------------------------------------% -%% Function : is_property_defined -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -is_property_defined(_, _, "") -> - corba:raise(#'CosPropertyService_InvalidPropertyName'{}); -is_property_defined(_OE_THIS, State, Name) -> - X = lookup_table(?get_DBKey(State)), - {reply, lists:keymember(Name, 1, X), State}. - -%%---------------------------------------------------------------------- -%% Interface CosPropertyService::PropertySetDef -%%---------------------------------------------------------------------- -%%---------------------------------------------------------------------% -%% Function : get_allowed_property_types -%% Arguments : - -%% Description: Returns the initially supplied restrictions. An empty -%% list means no restrictions. -%% Returns : {ok, TypeCodeList,State} -%%---------------------------------------------------------------------- -get_allowed_property_types(_OE_THIS, State) when ?is_NotSetDef(State) -> - corba:raise(#'NO_IMPLEMENT'{completion_status=?COMPLETED_NO}); -get_allowed_property_types(_OE_THIS, State) -> - {reply, {ok, ?get_okTypes(State)}, State}. - -%%---------------------------------------------------------------------% -%% Function : get_allowed_properties -%% Arguments : -%% Description: Returns the initially supplied restrictions. An empty -%% list means no restrictions. -%% Returns : {ok, PropertyDefList, State} -%%---------------------------------------------------------------------- -get_allowed_properties(_OE_THIS, State) when ?is_NotSetDef(State) -> - corba:raise(#'NO_IMPLEMENT'{completion_status=?COMPLETED_NO}); -get_allowed_properties(_OE_THIS, State) -> - {reply, {ok, ?get_okProperties(State)}, State}. - -%%---------------------------------------------------------------------% -%% Function : define_property_with_mode -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -define_property_with_mode(_OE_THIS, State, _, _, _) when ?is_NotSetDef(State) -> - corba:raise(#'NO_IMPLEMENT'{completion_status=?COMPLETED_NO}); -define_property_with_mode(_, _, "", _, _) -> - corba:raise(#'CosPropertyService_InvalidPropertyName'{}); -define_property_with_mode(_OE_THIS, State, Name, Value, Mode) - when ?is_NotStatic(State) -> - evaluate_property_data(State, Value, Name), - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch update_property(X, Name, both, Value, Mode) of - {'EXCEPTION', E} - when is_record(E, 'CosPropertyService_PropertyNotFound') -> - mnesia_write(State, [{Name, Value, Mode}|X]); - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - NewProperties -> - mnesia_write(State, NewProperties) - end - end - end, - {reply, mnesia_transaction(_DF), State}; -define_property_with_mode(_OE_THIS, State, Name, Value, Mode) -> - evaluate_property_data(State, Value, Name), - X = lookup_table(?get_DBKey(State)), - case catch update_property(X, Name, both, Value, Mode) of - {'EXCEPTION', E} when is_record(E, 'CosPropertyService_PropertyNotFound') -> - %% Should get not allowed exception. - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}); - {'EXCEPTION', E} -> - corba:raise(E); - _ -> - %% Should be impossible. - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - -%%---------------------------------------------------------------------% -%% Function : define_properties_with_modes -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -define_properties_with_modes(_OE_THIS, State, _) when ?is_NotSetDef(State) -> - corba:raise(#'NO_IMPLEMENT'{completion_status=?COMPLETED_NO}); -define_properties_with_modes(_OE_THIS, State, PropertyDefSeq) - when ?is_NotStatic(State)-> - {OKProperteDefs, Exc} = evaluate_properties_data(State, PropertyDefSeq), - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch define_properties_with_modes_helper(OKProperteDefs, - X, Exc, State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - NewProperties -> - mnesia_write(State, NewProperties) - end - end - end, - {reply, mnesia_transaction(_DF), State}; -define_properties_with_modes(_OE_THIS, State, PropertyDefSeq) -> - {OKProperteDefs, Exc} = evaluate_properties_data(State, PropertyDefSeq), - X = lookup_table(?get_DBKey(State)), - case define_properties_with_modes_helper(OKProperteDefs, X, Exc, State) of - {'EXCEPTION', E} -> - corba:raise(E); - _ -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - - -define_properties_with_modes_helper([], NewPropertyDefs, [], _State) -> - %% No exceptions found. - NewPropertyDefs; -define_properties_with_modes_helper([], _, Exc, _) -> - {'EXCEPTION', #'CosPropertyService_MultipleExceptions'{exceptions = Exc}}; -define_properties_with_modes_helper([#'CosPropertyService_PropertyDef' - {property_name = Name, - property_value = Value, - property_mode = Mode}|T], X, Exc, State) -> - case catch update_property(X, Name, both, Value, Mode) of - {'EXCEPTION', E} when is_record(E, 'CosPropertyService_PropertyNotFound') -> - define_properties_with_modes_helper(T, [{Name, Value, Mode}|X], Exc, State); - {'EXCEPTION', E} -> - define_properties_with_modes_helper(T, X, - [#'CosPropertyService_PropertyException' - {reason = remap_exception(E), - failing_property_name = Name}|Exc], - State); - NewX -> - define_properties_with_modes_helper(T, NewX, Exc, State) - end. - -%%---------------------------------------------------------------------% -%% Function : get_property_mode -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -get_property_mode(_OE_THIS, State, _) when ?is_NotSetDef(State) -> - corba:raise(#'NO_IMPLEMENT'{completion_status=?COMPLETED_NO}); -get_property_mode(_, _, "") -> - corba:raise(#'CosPropertyService_InvalidPropertyName'{}); -get_property_mode(_OE_THIS, State, Name) -> - X = lookup_table(?get_DBKey(State)), - {reply, find_property(X, Name, mode), State}. - -%%---------------------------------------------------------------------% -%% Function : get_property_modes -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -get_property_modes(_OE_THIS, State, _) when ?is_NotSetDef(State) -> - corba:raise(#'NO_IMPLEMENT'{completion_status=?COMPLETED_NO}); -get_property_modes(_OE_THIS, State, PropertyNames) -> - X = lookup_table(?get_DBKey(State)), - {reply, get_property_modes_helper(PropertyNames, X, [], true), State}. - -get_property_modes_helper([], _, Acc, Bool) -> - {Bool, Acc}; -get_property_modes_helper([""|T], Properties, Acc, _) -> - get_property_modes_helper(T, Properties, - [#'CosPropertyService_PropertyMode' - {property_name = "", - property_mode = undefined}|Acc], false); -get_property_modes_helper([Name|T], Properties, Acc, Bool) -> - case lists:keysearch(Name, 1, Properties) of - {value, {Name, _, Mode}} -> - get_property_modes_helper(T, Properties, - [#'CosPropertyService_PropertyMode' - {property_name = Name, - property_mode = Mode}|Acc], Bool); - false -> - get_property_modes_helper(T, Properties, - [#'CosPropertyService_PropertyMode' - {property_name = Name, - property_mode = undefined}|Acc], false) - end. - -%%---------------------------------------------------------------------% -%% Function : set_property_mode -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -set_property_mode(_OE_THIS, State, _, _) when ?is_NotSetDef(State) -> - corba:raise(#'NO_IMPLEMENT'{completion_status=?COMPLETED_NO}); -set_property_mode(_, _, "", _) -> - corba:raise(#'CosPropertyService_InvalidPropertyName'{}); -set_property_mode(_OE_THIS, State, Name, Mode) when ?is_NotStatic(State) -> - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch update_property(X, Name, mode, undefined, Mode) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - NewProperties -> - mnesia_write(State, NewProperties) - end - end - end, - {reply, mnesia_transaction(_DF), State}; -set_property_mode(_OE_THIS, State, Name, Mode) -> - X = lookup_table(?get_DBKey(State)), - update_property(X, Name, mode, undefined, Mode), - %% Something is not correct, shouldn't be allowed to update a property when - %% static. - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}). - -%%---------------------------------------------------------------------% -%% Function : set_property_modes -%% Arguments : -%% Description: -%% Returns : {ok, State} -%%---------------------------------------------------------------------- -set_property_modes(_OE_THIS, State, _) when ?is_NotSetDef(State) -> - corba:raise(#'NO_IMPLEMENT'{completion_status=?COMPLETED_NO}); -set_property_modes(_OE_THIS, State, PropertyModes) when ?is_NotStatic(State) -> - _DF = - fun() -> - case mnesia_read(State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - X -> - case catch set_property_modes_helper(PropertyModes, X, [], - State) of - {'EXCEPTION', E} -> - {'EXCEPTION', E}; - NewProperties -> - mnesia_write(State, NewProperties) - end - end - end, - {reply, mnesia_transaction(_DF), State}; -set_property_modes(_OE_THIS, State, PropertyModes) -> - X = lookup_table(?get_DBKey(State)), - case set_property_modes_helper(PropertyModes, X, [], State) of - {'EXCEPTION', E} -> - corba:raise(E); - _ -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - -set_property_modes_helper([], NewProperties, [], _State) -> - %% No exceptions, write to DB. - NewProperties; -set_property_modes_helper([], _, Exc, _) -> - {'EXCEPTION', #'CosPropertyService_MultipleExceptions'{exceptions = Exc}}; -set_property_modes_helper([#'CosPropertyService_PropertyMode' - {property_name = Name, - property_mode = Mode}|T], X, Exc, State) -> - case catch update_property(X, Name, mode, undefined, Mode) of - {'EXCEPTION', E} -> - set_property_modes_helper(T, X, - [#'CosPropertyService_PropertyException' - {reason = remap_exception(E), - failing_property_name = Name}|Exc], - State); - NewX -> - set_property_modes_helper(T, NewX, Exc, State) - end. - - -%%====================================================================== -%% Internal functions -%%====================================================================== - -remap_exception(#'CosPropertyService_ConflictingProperty'{}) -> conflicting_property; -remap_exception(#'CosPropertyService_FixedProperty'{}) -> fixed_property; -remap_exception(#'CosPropertyService_InvalidPropertyName'{}) -> invalid_property_name; -remap_exception(#'CosPropertyService_PropertyNotFound'{}) -> property_not_found; -remap_exception(#'CosPropertyService_UnsupportedTypeCode'{}) -> unsupported_type_code; -remap_exception(#'CosPropertyService_UnsupportedProperty'{}) -> unsupported_property; -remap_exception(#'CosPropertyService_ReadOnlyProperty'{}) -> read_only_property; -remap_exception(#'CosPropertyService_UnsupportedMode'{}) -> unsupported_mode. - -find_property([], _, _) -> - corba:raise(#'CosPropertyService_PropertyNotFound'{}); -find_property([{Name, Value, _}|_], Name, value) -> - Value; -find_property([{Name, _, Mode}|_], Name, mode) -> - Mode; -% Left out for now to avoid dialyzer warning. -%find_property([{Name, Value, Mode}|_], Name, all) -> -% {Name, Value, Mode}; -find_property([_|T], Name, Which) -> - find_property(T, Name, Which). - -remove_property(PropertList, Name) -> - remove_property(PropertList, Name, []). -remove_property([], _, _) -> - corba:raise(#'CosPropertyService_PropertyNotFound'{}); -remove_property([{Name, _, fixed_normal}|_T], Name, _) -> - corba:raise(#'CosPropertyService_FixedProperty'{}); -remove_property([{Name, _, fixed_readonly}|_T], Name, _) -> - corba:raise(#'CosPropertyService_FixedProperty'{}); -remove_property([{Name, _, _}|T], Name, Acc) -> - T++Acc; -remove_property([H|T], Name, Acc) -> - remove_property(T, Name, [H|Acc]). - - -update_property(_, "", _, _, _) -> - corba:raise(#'CosPropertyService_InvalidPropertyName'{}); -update_property(PropertyList, Name, Which, Value, Mode) -> - update_property(PropertyList, Name, Which, Value, Mode, []). - -update_property([], _, _, _, _, _) -> - corba:raise(#'CosPropertyService_PropertyNotFound'{}); -update_property([{Name, _, fixed_readonly}|_], Name, value, _, _, _) -> - corba:raise(#'CosPropertyService_FixedProperty'{}); -update_property([{Name, _, fixed_normal}|_], Name, both, _, _, _) -> - corba:raise(#'CosPropertyService_FixedProperty'{}); -update_property([{Name, _, fixed_readonly}|_], Name, both, _, _, _) -> - corba:raise(#'CosPropertyService_FixedProperty'{}); -update_property([{Name, #any{typecode = TC}, Mode}|T], Name, - value, #any{typecode = TC, value = Value}, _Mod, Acc) -> - [{Name, #any{typecode = TC, value = Value}, Mode}|T]++Acc; -update_property([{Name, #any{typecode = TC}, _Mode}|T], Name, - both, #any{typecode = TC, value = Value}, Mod, Acc) -> - [{Name, #any{typecode = TC, value = Value}, Mod}|T]++Acc; -update_property([{Name, _, _}|_], Name, value, _, _, _) -> - corba:raise(#'CosPropertyService_ConflictingProperty'{}); -update_property([{Name, _, _}|_], Name, both, _, _, _) -> - corba:raise(#'CosPropertyService_ConflictingProperty'{}); -%% Normally we don't need to raise an exception for the two following cases but -%% to be able to manage static Properties we must raise an exception. Well, -%% on the other hand, why should a user try to change a mode to the same value?! -%% But we have no other option. -update_property([{Name, _Value, fixed_normal}|_T], Name, mode, _, fixed_normal, _Acc) -> - corba:raise(#'CosPropertyService_FixedProperty'{}); -update_property([{Name, _Value, fixed_readonly}|_T], Name, mode, _, fixed_readonly, _Acc) -> - corba:raise(#'CosPropertyService_FixedProperty'{}); -update_property([{Name, _Value, fixed_normal}|_T], Name, mode, _, _Mode, _Acc) -> - corba:raise(#'CosPropertyService_UnsupportedMode'{}); -update_property([{Name, _Value, fixed_readonly}|_T], Name, mode, _, _Mode, _Acc) -> - corba:raise(#'CosPropertyService_UnsupportedMode'{}); -update_property([{Name, Value, _}|T], Name, mode, _, Mode, Acc) -> - [{Name, Value, Mode}|T]++Acc; -update_property([H|T], Name, Which, Value, Mode, Acc) -> - update_property(T, Name, Which, Value, Mode, [H|Acc]). - - -lookup_table(Key) when is_binary(Key) -> - _RF = ?read_function({oe_CosPropertyService, Key}), - case mnesia:transaction(_RF) of - {atomic, [#oe_CosPropertyService{properties=Properties}]} -> - Properties; - {atomic, []} -> - corba:raise(#'OBJECT_NOT_EXIST'{completion_status=?COMPLETED_NO}); - _Other -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end; -lookup_table(Key) when is_list(Key) -> - Key; -lookup_table(_) -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}). - -mnesia_transaction(Fun) -> - case mnesia:transaction(Fun) of - {atomic, {'EXCEPTION', E}} -> - corba:raise(E); - {atomic, ok} -> - ok; - {atomic, Reply} -> - Reply; - _Other -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - -mnesia_read(State) -> - case mnesia:wread({oe_CosPropertyService, ?get_DBKey(State)}) of - [#oe_CosPropertyService{properties = X}] -> - X; - _Other -> - {'EXCEPTION', #'INTERNAL'{completion_status=?COMPLETED_NO}} - end. - -mnesia_write(State, X) -> - mnesia:write(#oe_CosPropertyService{key = ?get_DBKey(State), properties = X}). - -%% Check a write transaction -write_result({atomic,ok}) -> ok; -write_result(_Foo) -> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}). - -evaluate_properties_data(State, PropertySeq) -> - evaluate_properties_data(State, PropertySeq, [], []). - -evaluate_properties_data(_State, [], OKProperties, Exc) -> - {OKProperties, Exc}; - -evaluate_properties_data(State, [#'CosPropertyService_Property' - {property_name = Name, - property_value = Value}|T], Acc, Exc) -> - case catch evaluate_property_data(State, Value, Name) of - ok -> - evaluate_properties_data(State, T, [#'CosPropertyService_Property' - {property_name = Name, - property_value = Value}|Acc], Exc); - {'EXCEPTION', E} when is_record(E, 'CosPropertyService_UnsupportedTypeCode') -> - evaluate_properties_data(State, T, Acc, - [#'CosPropertyService_PropertyException' - {reason = unsupported_type_code, - failing_property_name = Name}|Exc]); - {'EXCEPTION', E} when is_record(E, 'CosPropertyService_UnsupportedProperty') -> - evaluate_properties_data(State, T, Acc, - [#'CosPropertyService_PropertyException' - {reason = unsupported_property, - failing_property_name = Name}|Exc]) - end; -evaluate_properties_data(State, [#'CosPropertyService_PropertyDef' - {property_name = Name, - property_value = Value, - property_mode = Mode}|T], Acc, Exc) -> - case catch evaluate_property_data(State, Value, Name) of - ok -> - evaluate_properties_data(State, T, [#'CosPropertyService_PropertyDef' - {property_name = Name, - property_value = Value, - property_mode = Mode}|Acc], Exc); - {'EXCEPTION', E} when is_record(E, 'CosPropertyService_UnsupportedTypeCode') -> - evaluate_properties_data(State, T, Acc, - [#'CosPropertyService_PropertyException' - {reason = unsupported_type_code, - failing_property_name = Name}|Exc]); - {'EXCEPTION', E} when is_record(E, 'CosPropertyService_UnsupportedProperty') -> - evaluate_properties_data(State, T, Acc, - [#'CosPropertyService_PropertyException' - {reason = unsupported_property, - failing_property_name = Name}|Exc]) - end; -evaluate_properties_data(_, _, _, _) -> - corba:raise(#'BAD_PARAM'{completion_status=?COMPLETED_NO}). - -evaluate_property_data(State, _, _) when ?no_PropertyLimits(State), - ?no_TypeLimits(State) -> - ok; -evaluate_property_data(State, Value, _Name) when ?no_PropertyLimits(State) -> - case lists:member(any:get_typecode(Value), ?get_okTypes(State)) of - true -> - ok; - _ -> - corba:raise(#'CosPropertyService_UnsupportedTypeCode'{}) - end; -evaluate_property_data(State, _Value, Name) when ?no_TypeLimits(State) -> - case lists:any(?MemberName(Name), ?get_okProperties(State)) of - true -> - ok; - _ -> - corba:raise(#'CosPropertyService_UnsupportedProperty'{}) - end; -evaluate_property_data(State, Value, Name) -> - case lists:any(?MemberName(Name), ?get_okProperties(State)) of - true -> - case lists:member(any:get_typecode(Value), ?get_okTypes(State)) of - true -> - ok; - _ -> - corba:raise(#'CosPropertyService_UnsupportedTypeCode'{}) - end; - _ -> - corba:raise(#'CosPropertyService_UnsupportedProperty'{}) - end. - - -%%---------------------------------------------------------------------- -%% Debugging functions -%%---------------------------------------------------------------------- -dump() -> - case catch mnesia:dirty_first('oe_CosPropertyService') of - {'EXIT', R} -> - io:format("Exited with ~p\n",[R]); - Key -> - dump_print(Key), - dump_loop(Key) - end. - -dump_loop(PreviousKey) -> - case catch mnesia:dirty_next('oe_CosPropertyService', PreviousKey) of - {'EXIT', R} -> - io:format("Exited with ~p\n",[R]); - '$end_of_table' -> - ok; - Key -> - dump_print(Key), - dump_loop(Key) - end. - -dump_print(Key) -> - case catch mnesia:dirty_read({'oe_CosPropertyService', Key}) of - {'EXIT', R} -> - io:format("Exited with ~p\n",[R]); - [{_,_,X}] -> - io:format("Property: ~p~n", [X]); - _ -> - ok - end. - - -%%-------------------------- END OF MODULE ----------------------------- diff --git a/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl b/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl deleted file mode 100644 index bc6572b634..0000000000 --- a/lib/cosProperty/src/CosPropertyService_PropertySetFactory_impl.erl +++ /dev/null @@ -1,183 +0,0 @@ -%%---------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2000-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%---------------------------------------------------------------------- -%% File : CosPropertyService_PropertySetFactory_impl.erl -%% Description : -%% -%%---------------------------------------------------------------------- --module('CosPropertyService_PropertySetFactory_impl'). - -%%---------------------------------------------------------------------- -%% Include files -%%---------------------------------------------------------------------- --include_lib("orber/include/corba.hrl"). --include_lib("orber/src/orber_iiop.hrl"). --include("CosPropertyService.hrl"). --include("cosProperty.hrl"). - -%%---------------------------------------------------------------------- -%% External exports -%%---------------------------------------------------------------------- --export([init/1, - terminate/2, - code_change/3]). - --export([create_propertyset/2, - create_constrained_propertyset/4, - create_initial_propertyset/3]). - - -%%---------------------------------------------------------------------- -%% Internal exports -%%---------------------------------------------------------------------- --export([]). - -%%---------------------------------------------------------------------- -%% Records -%%---------------------------------------------------------------------- --record(state, {}). - -%%---------------------------------------------------------------------- -%% Macros -%%---------------------------------------------------------------------- --define(checkTCfun, fun(TC) -> orber_tc:check_tc(TC) end). - -%%====================================================================== -%% External functions -%%====================================================================== -%%---------------------------------------------------------------------- -%% Function : init/1 -%% Returns : {ok, State} | -%% {ok, State, Timeout} | -%% ignore | -%% {stop, Reason} -%% Description: Initiates the server -%%---------------------------------------------------------------------- -init([]) -> - {ok, #state{}}. - -%%---------------------------------------------------------------------- -%% Function : terminate/2 -%% Returns : any (ignored by gen_server) -%% Description: Shutdown the server -%%---------------------------------------------------------------------- -terminate(_Reason, _State) -> - ok. - -%%---------------------------------------------------------------------- -%% Function : code_change/3 -%% Returns : {ok, NewState} -%% Description: Convert process state when code is changed -%%---------------------------------------------------------------------- -code_change(_OldVsn, State, _Extra) -> - {ok, State}. - -%%---------------------------------------------------------------------- -%% Function : create_propertyset -%% Arguments : -%% Returns : CosPropertyService::PropertySet reference. -%% Description: -%%---------------------------------------------------------------------- -create_propertyset(_OE_This, State) -> - {reply, - 'CosPropertyService_PropertySetDef': - oe_create({normal, [], [], [], ?PropertySet}, [{pseudo, true}]), - State}. - -%%---------------------------------------------------------------------- -%% Function : create_constrained_propertyset -%% Arguments : PropTypes - list of property types. -%% Properties - list of properties. -%% Returns : CosPropertyService::PropertySet | -%% {'EXCEPTION', CosPropertyService::ConstraintNotSupported} -%% Description: -%%---------------------------------------------------------------------- -create_constrained_propertyset(_OE_This, State, PropTypes, Properties) -> - case lists:all(?checkTCfun, PropTypes) of - true -> - crosscheckTC(Properties, PropTypes), - {reply, - 'CosPropertyService_PropertySetDef': - oe_create({normal, PropTypes, Properties, [], ?PropertySet}, - [{pseudo, true}]), - State}; - false -> - corba:raise(#'CosPropertyService_ConstraintNotSupported'{}) - end. - -crosscheckTC([], _) -> - ok; -crosscheckTC([#'CosPropertyService_Property' - {property_name = Name, - property_value = Value}|T], TCs) -> - case lists:member(any:get_typecode(Value), TCs) of - true when Name =/= "" -> - crosscheckTC(T, TCs); - _ -> - corba:raise(#'CosPropertyService_ConstraintNotSupported'{}) - end. - -%%---------------------------------------------------------------------- -%% Function : create_initial_propertyset -%% Arguments : Properties - list of properties. -%% Returns : CosPropertyService::PropertySetDef | -%% {'EXCEPTION', CosPropertyService::MultipleExceptions} -%% Description: -%%---------------------------------------------------------------------- -create_initial_propertyset(_OE_This, State, Properties) -> - InitProps = evaluate_propertyset(Properties), - {reply, - 'CosPropertyService_PropertySetDef': - oe_create({normal, [], [], InitProps, ?PropertySet}, [{pseudo, true}]), - State}. - -%%====================================================================== -%% Internal functions -%%====================================================================== -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. - {ok, NewProperties}; -evaluate_propertyset([], _, Exc) -> - {error, Exc}; -evaluate_propertyset([#'CosPropertyService_Property' - {property_name = Name, - property_value = Value}|T], X, Exc) -> - case orber_tc:check_tc(any:get_typecode(Value)) of - true -> - evaluate_propertyset(T, [{Name, Value, normal}|X], Exc); - false -> - evaluate_propertyset(T, X, [#'CosPropertyService_PropertyException' - {reason = unsupported_type_code, - failing_property_name = Name}|Exc]) - end. - -%%====================================================================== -%% END OF MODULE -%%====================================================================== diff --git a/lib/cosProperty/src/Makefile b/lib/cosProperty/src/Makefile deleted file mode 100644 index 1fdc258a6d..0000000000 --- a/lib/cosProperty/src/Makefile +++ /dev/null @@ -1,188 +0,0 @@ -# -# %CopyrightBegin% -# -# Copyright Ericsson AB 2000-2016. All Rights Reserved. -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. -# -# %CopyrightEnd% -# -# -include $(ERL_TOP)/make/target.mk - -ifeq ($(TYPE),debug) -ERL_COMPILE_FLAGS += -Ddebug -W -endif - -include $(ERL_TOP)/make/$(TARGET)/otp.mk - -# ---------------------------------------------------- -# Application version -# ---------------------------------------------------- -include ../vsn.mk -VSN=$(COSPROPERTY_VSN) - -# ---------------------------------------------------- -# Release directory specification -# ---------------------------------------------------- -RELSYSDIR = $(RELEASE_PATH)/lib/cosProperty-$(VSN) - -EXTERNAL_INC_PATH = ../include - -# ---------------------------------------------------- -# Target Specs -# ---------------------------------------------------- - -MODULES = \ - cosProperty \ - CosPropertyService_PropertySetDefFactory_impl \ - CosPropertyService_PropertySetDef_impl \ - CosPropertyService_PropertySetFactory_impl \ - CosPropertyService_PropertiesIterator_impl \ - CosPropertyService_PropertyNamesIterator_impl - - -ERL_FILES = $(MODULES:%=%.erl) -HRL_FILES = \ - cosProperty.hrl \ - -GEN_ERL_FILES = \ - oe_CosProperty.erl \ - CosPropertyService_ConflictingProperty.erl \ - CosPropertyService_ConstraintNotSupported.erl \ - CosPropertyService_FixedProperty.erl \ - CosPropertyService_InvalidPropertyName.erl \ - CosPropertyService_MultipleExceptions.erl \ - CosPropertyService_Properties.erl \ - CosPropertyService_PropertiesIterator.erl \ - CosPropertyService_Property.erl \ - CosPropertyService_PropertyDef.erl \ - CosPropertyService_PropertyDefs.erl \ - CosPropertyService_PropertyException.erl \ - CosPropertyService_PropertyExceptions.erl \ - CosPropertyService_PropertyMode.erl \ - CosPropertyService_PropertyModes.erl \ - CosPropertyService_PropertyNames.erl \ - CosPropertyService_PropertyNamesIterator.erl \ - CosPropertyService_PropertyNotFound.erl \ - CosPropertyService_PropertySet.erl \ - CosPropertyService_PropertySetDef.erl \ - CosPropertyService_PropertySetDefFactory.erl \ - CosPropertyService_PropertySetFactory.erl \ - CosPropertyService_PropertyTypes.erl \ - CosPropertyService_ReadOnlyProperty.erl \ - CosPropertyService_UnsupportedMode.erl \ - CosPropertyService_UnsupportedProperty.erl \ - CosPropertyService_UnsupportedTypeCode.erl - -LOCAL_HRL_FILES = \ - oe_CosProperty.hrl \ - CosPropertyService.hrl \ - CosPropertyService_PropertiesIterator.hrl \ - CosPropertyService_PropertyNamesIterator.hrl \ - CosPropertyService_PropertySet.hrl \ - CosPropertyService_PropertySetDef.hrl \ - CosPropertyService_PropertySetDefFactory.hrl \ - CosPropertyService_PropertySetFactory.hrl - -GEN_HRL_FILES = $(LOCAL_HRL_FILES:%=$(EXTERNAL_INC_PATH)/%) - -GEN_FILES = \ - $(GEN_HRL_FILES) \ - $(GEN_ERL_FILES) - -TARGET_FILES = \ - $(GEN_ERL_FILES:%.erl=$(EBIN)/%.$(EMULATOR)) \ - $(MODULES:%=$(EBIN)/%.$(EMULATOR)) - -IDL_FILES = \ - CosProperty.idl - -APPUP_FILE = cosProperty.appup -APPUP_SRC = $(APPUP_FILE).src -APPUP_TARGET = $(EBIN)/$(APPUP_FILE) - -APP_FILE = cosProperty.app -APP_SRC = $(APP_FILE).src -APP_TARGET = $(EBIN)/$(APP_FILE) - -# ---------------------------------------------------- -# FLAGS -# ---------------------------------------------------- -ERL_IDL_FLAGS += -pa $(ERL_TOP)/lib/cosProperty/ebin \ - -pa $(ERL_TOP)/lib/ic/ebin\ - -pa $(ERL_TOP)/lib/orber/ebin - -# The -pa option is just used temporary until erlc can handle -# includes from other directories than ../include . -ERL_COMPILE_FLAGS += \ - $(ERL_IDL_FLAGS) \ - -pa $(ERL_TOP)/lib/orber/include \ - -pa $(ERL_TOP)/lib/cosProperty/include \ - -I$(ERL_TOP)/lib/cosProperty/include \ - -I$(ERL_TOP)/lib/orber/include \ - +'{parse_transform,sys_pre_attributes}' \ - +'{attribute,insert,app_vsn,"cosProperty_$(COSPROPERTY_VSN)"}' - - -# ---------------------------------------------------- -# Targets -# ---------------------------------------------------- -opt: $(TARGET_FILES) $(APP_TARGET) $(APPUP_TARGET) - -debug: - @${MAKE} TYPE=debug opt - -cleanb: - rm -f $(TARGET_FILES) $(APP_TARGET) $(APPUP_TARGET) - rm -f errs core *~ - -clean: - rm -f $(TARGET_FILES) $(GEN_FILES) $(APP_TARGET) $(APPUP_TARGET) IDL-GENERATED - rm -f errs core *~ - -$(APP_TARGET): $(APP_SRC) - $(vsn_verbose)sed -e 's;%VSN%;$(VSN);' $< > $@ - -$(APPUP_TARGET): $(APPUP_SRC) ../vsn.mk - $(vsn_verbose)sed -e 's;%VSN%;$(VSN);' $< > $@ - -docs: - -# ---------------------------------------------------- -# Special Build Targets -# ---------------------------------------------------- -IDL-GENERATED: CosProperty.idl - $(gen_verbose)erlc $(ERL_IDL_FLAGS) +'{cfgfile,"CosProperty.cfg"}' CosProperty.idl - $(V_at)mv $(LOCAL_HRL_FILES) $(EXTERNAL_INC_PATH) - $(V_at)>IDL-GENERATED - -$(GEN_FILES): IDL-GENERATED - -$(TARGET_FILES): IDL-GENERATED - -# ---------------------------------------------------- -# Release Target -# ---------------------------------------------------- -include $(ERL_TOP)/make/otp_release_targets.mk - -release_spec: opt - $(INSTALL_DIR) "$(RELSYSDIR)/ebin" - $(INSTALL_DATA) $(TARGET_FILES) $(APP_TARGET) $(APPUP_TARGET) "$(RELSYSDIR)/ebin" - $(INSTALL_DIR) "$(RELSYSDIR)/src" - $(INSTALL_DATA) $(GEN_FILES) $(IDL_FILES) "$(RELSYSDIR)/src" - $(INSTALL_DATA) $(ERL_FILES) $(HRL_FILES) $(GEN_ERL_FILES) $(IDL_FILES) "$(RELSYSDIR)/src" - $(INSTALL_DIR) "$(RELSYSDIR)/include" - $(INSTALL_DATA) $(GEN_HRL_FILES) "$(RELSYSDIR)/include" - -release_docs_spec: diff --git a/lib/cosProperty/src/cosProperty.app.src b/lib/cosProperty/src/cosProperty.app.src deleted file mode 100644 index 7fad7a602a..0000000000 --- a/lib/cosProperty/src/cosProperty.app.src +++ /dev/null @@ -1,47 +0,0 @@ -{application, cosProperty, - [{description, "The Erlang CosProperty application"}, - {vsn, "%VSN%"}, - {modules, - [ - 'cosProperty', - 'CosPropertyService_PropertySetDefFactory_impl', - 'CosPropertyService_PropertySetDef_impl', - 'CosPropertyService_PropertySetFactory_impl', - 'CosPropertyService_PropertiesIterator_impl', - 'CosPropertyService_PropertyNamesIterator_impl', - 'oe_CosProperty', - 'CosPropertyService_ConflictingProperty', - 'CosPropertyService_ConstraintNotSupported', - 'CosPropertyService_FixedProperty', - 'CosPropertyService_InvalidPropertyName', - 'CosPropertyService_MultipleExceptions', - 'CosPropertyService_Properties', - 'CosPropertyService_PropertiesIterator', - 'CosPropertyService_Property', - 'CosPropertyService_PropertyDef', - 'CosPropertyService_PropertyDefs', - 'CosPropertyService_PropertyException', - 'CosPropertyService_PropertyExceptions', - 'CosPropertyService_PropertyMode', - 'CosPropertyService_PropertyModes', - 'CosPropertyService_PropertyNames', - 'CosPropertyService_PropertyNamesIterator', - 'CosPropertyService_PropertyNotFound', - 'CosPropertyService_PropertySet', - 'CosPropertyService_PropertySetDef', - 'CosPropertyService_PropertySetDefFactory', - 'CosPropertyService_PropertySetFactory', - 'CosPropertyService_PropertyTypes', - 'CosPropertyService_ReadOnlyProperty', - 'CosPropertyService_UnsupportedMode', - 'CosPropertyService_UnsupportedProperty', - 'CosPropertyService_UnsupportedTypeCode' - ] - }, - {registered, [oe_cosPropertySup]}, - {applications, [orber, stdlib, kernel]}, - {env, []}, - {mod, {cosProperty, []}}, - {runtime_dependencies, ["stdlib-2.0","orber-3.6.27","mnesia-4.12", - "kernel-3.0","erts-7.0"]} -]}. diff --git a/lib/cosProperty/src/cosProperty.appup.src b/lib/cosProperty/src/cosProperty.appup.src deleted file mode 100644 index f3eead4a0c..0000000000 --- a/lib/cosProperty/src/cosProperty.appup.src +++ /dev/null @@ -1,6 +0,0 @@ -{"%VSN%", - [ - ], - [ - ] -}. diff --git a/lib/cosProperty/src/cosProperty.erl b/lib/cosProperty/src/cosProperty.erl deleted file mode 100644 index e94d200c2f..0000000000 --- a/lib/cosProperty/src/cosProperty.erl +++ /dev/null @@ -1,416 +0,0 @@ -%%-------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2000-2015. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%---------------------------------------------------------------------- -%% File : cosProperty.erl -%% Purpose : -%%---------------------------------------------------------------------- - --module(cosProperty). - -%%--------------- INCLUDES ----------------------------------- --include("cosProperty.hrl"). --include_lib("cosProperty/include/CosPropertyService.hrl"). - -%%--------------- EXPORTS------------------------------------- -%% cosProperty API external --export([start/0, - start_SetDefFactory/0, - start_SetFactory/0, - stop_SetDefFactory/1, - stop_SetFactory/1, - stop/0, - install/0, - install/1, - install_db/0, - install_db/1, - install_db/2, - uninstall/0, - uninstall/1, - uninstall_db/0]). - -%% cosProperty API internal --export([create_link/3, - get_option/3, - type_check/2, - query_result/1, - start_PropertiesIterator/1, - start_PropertyNamesIterator/1, - create_static_SetDef/2]). - -%% Application callbacks --export([start/2, init/1, stop/1]). - -%%--------------- DEFINES ------------------------------------ - --define(SUPERVISOR_NAME, oe_cosPropertySup). --define(SUP_FLAG, {simple_one_for_one,50,10}). --define(SUP_PROP_SPEC(T,I), - ['CosPropertyService_PropertiesIterator',I, - [{sup_child, true}, {regname, {global, T}}]]). --define(SUP_NAMES_SPEC(T,I), - ['CosPropertyService_PropertyNamesIterator',I, - [{sup_child, true}, {regname, {global, T}}]]). --define(SUP_CHILD, - {"oe_PropertyChild", - {cosProperty,create_link, []}, - transient,100000,worker, - []}). - -%%------------------------------------------------------------ -%% function : install -%% Arguments: - -%% Returns : ok | EXIT | EXCEPTION -%% Effect : Install necessary data in the IFR DB -%%------------------------------------------------------------ -install() -> - install([]). -install(_Options) -> - case catch oe_CosProperty:'oe_register'() of - ok -> - ok; - {'EXIT',{unregistered,App}} -> - ?write_ErrorMsg("Unable to register cosProperty; application ~p not registered.~n", - [App]), - exit({unregistered,App}); - {'EXCEPTION',_} -> - ?write_ErrorMsg("Unable to register cosProperty; propably already registered. -You are adviced to confirm this.~n", []), - exit({error, "Register in the IFR failed."}); - Reason -> - ?write_ErrorMsg("Unable to register cosProperty; reason ~p", [Reason]), - exit({error, "Register in the IFR failed."}) - end. - -%%------------------------------------------------------------ -%% function : install_db -%% Arguments: - -%% Returns : ok | EXIT | EXCEPTION -%% Effect : Install necessary data in the IFR DB -%%------------------------------------------------------------ -install_db() -> - install_db(infinity, []). -install_db(Timeout) -> - install_db(Timeout, []). -install_db(Timeout, Options) -> - case install_table(Timeout, Options) of - ok -> - ok; - {error, [DB_tables_created, Wait]} -> - ?write_ErrorMsg("Able to register cosProperty but failed adding table in mnesia (~p, ~p)", - [DB_tables_created, Wait]), - exit({error, "Adding data in mnesia failed."}); - Why -> - ?write_ErrorMsg("Able to register cosProperty but failed adding table in mnesia with reason ~p", - [Why]), - exit({error, "Adding data in mnesia failed."}) - end. - -%%------------------------------------------------------------ -%% function : install_table -%% Arguments: - -%% Returns : ok | {error, Data} -%% Effect : Install necessary data in mnesia -%%------------------------------------------------------------ -install_table(Timeout, Options) -> - %% Fetch a list of the defined tables to see if 'oe_CosPropertyService' - %% is defined. - AllTabs = mnesia:system_info(tables), - DB_tables_created = - case lists:member('oe_CosPropertyService', AllTabs) of - true -> - case lists:member({local_content, true}, - Options) of - true-> - mnesia:add_table_copy('oe_CosPropertyService', - node(), - ram_copies); - _-> - mnesia:create_table('oe_CosPropertyService',[{attributes, - record_info(fields, - 'oe_CosPropertyService')} - |Options]) - end; - _ -> - mnesia:create_table('oe_CosPropertyService',[{attributes, - record_info(fields, - 'oe_CosPropertyService')} - |Options]) - end, - Wait = mnesia:wait_for_tables(['oe_CosPropertyService'], Timeout), - %% Check if any error has occured yet. If there are errors, return them. - if - DB_tables_created == {atomic, ok}, - Wait == ok -> - ok; - true -> - {error, [DB_tables_created, Wait]} - end. - - -%%------------------------------------------------------------ -%% function : query_result -%% Arguments: - -%% Returns : error | Data -%% Effect : Check a read transaction -%%------------------------------------------------------------ -query_result(Qres) -> - case Qres of - {atomic, [Hres]} -> - Hres#oe_CosPropertyService.properties; - {atomic, [_Hres | _Tres]} -> - error; - {atomic, []} -> - error; - _Other -> - error - end. - -%%------------------------------------------------------------ -%% function : uninstall -%% Arguments: - -%% Returns : ok | EXIT | EXCEPTION -%% Effect : Remove data related to cosProperty from the IFR DB -%%------------------------------------------------------------ -uninstall() -> - uninstall([]). -uninstall(_Options) -> - application:stop(cosProperty), - oe_CosProperty:oe_unregister(). - -%%------------------------------------------------------------ -%% function : uninstall -%% Arguments: - -%% Returns : ok | EXIT | EXCEPTION -%% Effect : Remove data related to cosProperty from the IFR DB -%%------------------------------------------------------------ -uninstall_db() -> - application:stop(cosProperty), - case mnesia:delete_table('oe_CosPropertyService') of - {atomic, ok} -> - ok; - {aborted, _Reason} -> - exit({error, "Removing data from mnesia failed."}) - end. - -%%------------------------------------------------------------ -%% function : create_static_SetDef -%% Arguments: -%% Returns : -%% Effect : Starts or stops the cosProperty application. -%%------------------------------------------------------------ -create_static_SetDef(PropTypes, PropDefs) -> - InitProps = propertyDef2local(PropDefs, []), - 'CosPropertyService_PropertySetDef':oe_create({static, fixed_readonly, PropTypes, - PropDefs, InitProps, - ?PropertySetDef}, - [{pseudo, true}]). -propertyDef2local([#'CosPropertyService_PropertyDef' - {property_name = Name, - property_value = Value, - property_mode = fixed_readonly}|T], Acc) -> - propertyDef2local(T, [{Name, Value, fixed_readonly}|Acc]); -propertyDef2local([], Acc) -> - Acc; -propertyDef2local(_, _) -> - exit({error, "Bad Mode type supplied. Must be fixed_readonly"}). - -%%------------------------------------------------------------ -%% function : start/stop -%% Arguments: -%% Returns : -%% Effect : Starts or stops the cosProperty application. -%%------------------------------------------------------------ -start() -> - application:start(cosProperty). -stop() -> - application:stop(cosProperty). - - - -%%-----------------------------------------------------------% -%% function : start_SetDefFactory -%% Arguments: - -%% Returns : A PropertySetDefFactory reference. -%% Effect : -%%------------------------------------------------------------ -start_SetDefFactory() -> - 'CosPropertyService_PropertySetDefFactory':oe_create([], [{pseudo, true}]). - -%%-----------------------------------------------------------% -%% function : start_SetFactory -%% Arguments: - -%% Returns : A PropertySetFactory reference. -%% Effect : -%%------------------------------------------------------------ -start_SetFactory() -> - 'CosPropertyService_PropertySetFactory':oe_create([], [{pseudo, true}]). - -%%-----------------------------------------------------------% -%% function : stop_SetDefFactory -%% Arguments: Factory - A PropertySetDefFactory reference. -%% Returns : -%% Effect : -%%------------------------------------------------------------ -stop_SetDefFactory(Factory) -> - corba:dispose(Factory). - -%%-----------------------------------------------------------% -%% function : stop_SetFactory -%% Arguments: Factory - A PropertySetFactory reference. -%% Returns : -%% Effect : -%%------------------------------------------------------------ -stop_SetFactory(Factory) -> - corba:dispose(Factory). - -%%------------------------------------------------------------ -%% function : start -%% Arguments: Type - see module application -%% Arg - see module application -%% Returns : -%% Effect : Module callback for application -%%------------------------------------------------------------ -start(_, _) -> - supervisor:start_link({local, ?SUPERVISOR_NAME}, cosProperty, app_init). - - -%%------------------------------------------------------------ -%% function : stop -%% Arguments: Arg - see module application -%% Returns : -%% Effect : Module callback for application -%%------------------------------------------------------------ -stop(_) -> - ok. - -%%-----------------------------------------------------------% -%% function : init -%% Arguments: -%% Returns : -%% Effect : -%%------------------------------------------------------------ -%% Starting using create_factory/X -init(own_init) -> - {ok,{?SUP_FLAG, [?SUP_CHILD]}}; -%% When starting as an application. -init(app_init) -> - {ok,{?SUP_FLAG, [?SUP_CHILD]}}. - -%%-----------------------------------------------------------% -%% function : create_link -%% Arguments: Module - which Module to call -%% Env/ArgList - ordinary oe_create arguments. -%% Returns : -%% Exception: -%% Effect : Necessary since we want the supervisor to be a -%% 'simple_one_for_one'. Otherwise, using for example, -%% 'one_for_one', we have to call supervisor:delete_child -%% to remove the childs startspecification from the -%% supervisors internal state. -%%------------------------------------------------------------ -create_link(Module, Env, ArgList) -> - Module:oe_create_link(Env, ArgList). - -%%-----------------------------------------------------------% -%% function : start_PropertiesIterator -%% Arguments: -%% Returns : -%% Exception: -%% Effect : -%%------------------------------------------------------------ -start_PropertiesIterator(Args) -> - Name = create_name(propertiesIterator), - case supervisor:start_child(?SUPERVISOR_NAME, ?SUP_PROP_SPEC(Name, Args)) of - {ok, Pid, Obj} when is_pid(Pid) -> - Obj; - _Other-> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - -%%-----------------------------------------------------------% -%% function : start_PropertyNamesIterator -%% Arguments: -%% Returns : -%% Exception: -%% Effect : -%%------------------------------------------------------------ -start_PropertyNamesIterator(Args) -> - Name = create_name(propertiesIterator), - case supervisor:start_child(?SUPERVISOR_NAME, ?SUP_NAMES_SPEC(Name, Args)) of - {ok, Pid, Obj} when is_pid(Pid) -> - Obj; - _Other-> - corba:raise(#'INTERNAL'{completion_status=?COMPLETED_NO}) - end. - - -%%-----------------------------------------------------------% -%% function : get_option -%% Arguments: -%% Returns : -%% Exception: -%% Effect : -%%------------------------------------------------------------ -get_option(Key, OptionList, DefaultList) -> - case lists:keysearch(Key, 1, OptionList) of - {value,{Key,Value}} -> - Value; - _ -> - case lists:keysearch(Key, 1, DefaultList) of - {value,{Key,Value}} -> - Value; - _-> - {error, "Invalid option"} - end - end. - -%%-----------------------------------------------------------% -%% function : type_check -%% Arguments: Obj - objectrefernce to test. -%% Mod - Module which contains typeID/0. -%% Returns : 'ok' or raises exception. -%% Effect : -%%------------------------------------------------------------ -type_check(Obj, Mod) -> - case catch corba_object:is_a(Obj,Mod:typeID()) of - true -> - ok; - _ -> - corba:raise(#'BAD_PARAM'{completion_status=?COMPLETED_NO}) - end. - - -%%-----------------------------------------------------------% -%% function : create_name/1 -%% Arguments: -%% Returns : -%% Exception: -%% Effect : -%%------------------------------------------------------------ -create_name(Type) -> - Time = erlang:system_time(), - Unique = erlang:unique_integer([positive]), - lists:concat(['oe_',node(),'_',Type,'_',Time,'_',Unique]). - -%%--------------- END OF MODULE ------------------------------ - - diff --git a/lib/cosProperty/src/cosProperty.hrl b/lib/cosProperty/src/cosProperty.hrl deleted file mode 100644 index 0225a43ebd..0000000000 --- a/lib/cosProperty/src/cosProperty.hrl +++ /dev/null @@ -1,82 +0,0 @@ -%%---------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2000-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%---------------------------------------------------------------------- -%% File : cosProperty.hrl -%% Purpose : -%%---------------------------------------------------------------------- - - -%%--------------- INCLUDES ----------------------------------- -%% External --include_lib("orber/include/corba.hrl"). --include_lib("orber/include/ifr_types.hrl"). - -%%----------------------------------------------------------------- -%% Mnesia Table definition record -%%----------------------------------------------------------------- --record('oe_CosPropertyService', {key, properties}). - -%%----------------------------------------------------------------- -%% Macros -%%----------------------------------------------------------------- --define(PropertySet, 0). --define(PropertySetDef, 1). - -%% This macro returns a read fun suitable for evaluation in a transaction --define(read_function(Objkey), - fun() -> - mnesia:read(Objkey) - end). - -%% This macro returns a write fun suitable for evaluation in a transaction --define(write_function(R), - fun() -> - mnesia:write(R) - end). - -%% This macro returns a delete fun suitable for evaluation in a transaction --define(delete_function(R), - fun() -> - mnesia:delete(R) - end). - --define(query_check(Q_res), {atomic, Q_res}). - - --define(write_ErrorMsg(Txt, Arg), -error_logger:error_msg("================ CosProperty ==============~n" - Txt - "===========================================~n", - Arg)). - - - --ifdef(debug). --define(debug_print(F,A), - io:format("[LINE: ~p MODULE: ~p] "++F,[?LINE, ?MODULE]++A)). --define(property_TypeCheck(O,M), 'cosProperty':type_check(O,M)). --else. --define(debug_print(F,A), ok). --define(property_TypeCheck(O,I), ok). --endif. - -%%--------------- END OF MODULE ------------------------------ diff --git a/lib/cosProperty/test/Makefile b/lib/cosProperty/test/Makefile deleted file mode 100644 index 5f599c9621..0000000000 --- a/lib/cosProperty/test/Makefile +++ /dev/null @@ -1,129 +0,0 @@ -# -# %CopyrightBegin% -# -# Copyright Ericsson AB 2000-2016. All Rights Reserved. -# -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. -# -# %CopyrightEnd% -# -# -include $(ERL_TOP)/make/target.mk -include $(ERL_TOP)/make/$(TARGET)/otp.mk - -# ---------------------------------------------------- -# Application version -# ---------------------------------------------------- -include ../vsn.mk -VSN=$(COSPROPERTY_VSN) -# ---------------------------------------------------- -# Release directory specification -# ---------------------------------------------------- -RELSYSDIR = $(RELEASE_PATH)/cosProperty_test - -# ---------------------------------------------------- -# Target Specs -# ---------------------------------------------------- -TEST_SPEC_FILE = cosProperty.spec -COVER_FILE = cosProperty.cover - - -IDL_FILES = - -IDLOUTDIR = idl_output - -MODULES = \ - property_SUITE \ - generated_SUITE - -GEN_MODULES = \ - -GEN_HRL_FILES = \ - -ERL_FILES = $(MODULES:%=%.erl) - -HRL_FILES = - -GEN_FILES = \ - $(GEN_HRL_FILES:%=$(IDLOUTDIR)/%) \ - $(GEN_MODULES:%=$(IDLOUTDIR)/%.erl) - -GEN_TARGET_FILES = $(GEN_MODULES:%=$(IDLOUTDIR)/%.$(EMULATOR)) - -SUITE_TARGET_FILES = $(MODULES:%=%.$(EMULATOR)) - -TARGET_FILES = \ - $(GEN_TARGET_FILES) \ - $(SUITE_TARGET_FILES) - - -# ---------------------------------------------------- -# PROGRAMS -# ---------------------------------------------------- -LOCAL_CLASSPATH = $(ERL_TOP)lib/cosProperty/priv:$(ERL_TOP)lib/cosProperty/test -# ---------------------------------------------------- -# FLAGS -# ---------------------------------------------------- -ERL_IDL_FLAGS += -pa $(ERL_TOP)/lib/cosProperty/ebin \ - -pa $(ERL_TOP)/lib/cosProperty/src \ - -pa $(ERL_TOP)/lib/orber/ebin \ - -pa $(ERL_TOP)/lib/ic/ebin - -ERL_COMPILE_FLAGS += \ - $(ERL_IDL_FLAGS) \ - -pa $(ERL_TOP)/lib/orber/include \ - -pa $(ERL_TOP)/lib/cosProperty/ebin \ - -pa $(ERL_TOP)/lib/cosProperty/test/idl_output \ - -I$(ERL_TOP)/lib/orber/include \ - -I$(ERL_TOP)/lib/cosProperty/src \ - -I$(ERL_TOP)/lib/cosProperty \ - -I$(ERL_TOP)/lib/cosProperty/test/$(IDLOUTDIR) - -# ---------------------------------------------------- -# Targets -# ---------------------------------------------------- - - -tests debug opt: $(TARGET_FILES) - -clean: - rm -f idl_output/* - rm -f $(TARGET_FILES) - rm -f errs core *~ - -docs: - -# ---------------------------------------------------- -# Special Targets -# ---------------------------------------------------- - -# ---------------------------------------------------- -# Release Targets -# ---------------------------------------------------- -# We don't copy generated intermediate erlang and hrl files - -include $(ERL_TOP)/make/otp_release_targets.mk - -release_spec: - -release_docs_spec: - -release_tests_spec: tests - $(INSTALL_DIR) "$(RELSYSDIR)" - $(INSTALL_DATA) $(IDL_FILES) $(TEST_SPEC_FILE) \ - $(COVER_FILE) $(ERL_FILES) "$(RELSYSDIR)" - $(INSTALL_DATA) $(SUITE_TARGET_FILES) "$(RELSYSDIR)" -# $(INSTALL_DIR) "$(RELSYSDIR)/$(IDLOUTDIR)" -# $(INSTALL_DATA) $(GEN_TARGET_FILES) $(GEN_FILES) \ -# "$(RELSYSDIR)/$(IDLOUTDIR)" - diff --git a/lib/cosProperty/test/cosProperty.cover b/lib/cosProperty/test/cosProperty.cover deleted file mode 100644 index a0f5f17671..0000000000 --- a/lib/cosProperty/test/cosProperty.cover +++ /dev/null @@ -1,2 +0,0 @@ -{incl_app,cosProperty,details}. - diff --git a/lib/cosProperty/test/cosProperty.spec b/lib/cosProperty/test/cosProperty.spec deleted file mode 100644 index d3d44321c8..0000000000 --- a/lib/cosProperty/test/cosProperty.spec +++ /dev/null @@ -1 +0,0 @@ -{suites,"../cosProperty_test",all}. diff --git a/lib/cosProperty/test/generated_SUITE.erl b/lib/cosProperty/test/generated_SUITE.erl deleted file mode 100644 index 313f5bf8f9..0000000000 --- a/lib/cosProperty/test/generated_SUITE.erl +++ /dev/null @@ -1,546 +0,0 @@ -%%----------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2004-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%----------------------------------------------------------------- -%% File : generated_SUITE.erl -%% Purpose : -%%----------------------------------------------------------------- - --module(generated_SUITE). - --include_lib("common_test/include/ct.hrl"). --include_lib("orber/include/corba.hrl"). - --define(default_timeout, test_server:minutes(3)). - --define(match(ExpectedRes, Expr), - fun() -> - AcTuAlReS = (catch (Expr)), - case AcTuAlReS of - ExpectedRes -> - AcTuAlReS; - _ -> - io:format("###### ERROR ERROR ######~n~p~n", - [AcTuAlReS]), - exit(AcTuAlReS) - end - end()). - --define(nomatch(Not, Expr), - fun() -> - AcTuAlReS = (catch (Expr)), - case AcTuAlReS of - Not -> - io:format("###### ERROR ERROR ######~n~p~n", - [AcTuAlReS]), - exit(AcTuAlReS); - _ -> - AcTuAlReS - end - end()). - - --define(checktc(_Op), - fun(TC) -> - case orber_tc:check_tc(TC) of - false -> - io:format("###### ERROR ERROR ######~n~p - ~p~n", [Op, TC]), - exit(TC); - true -> - true - end - end). - -%%----------------------------------------------------------------- -%% External exports -%%----------------------------------------------------------------- --export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, - init_per_group/2,end_per_group/2]). - -%%----------------------------------------------------------------- -%% Internal exports -%%----------------------------------------------------------------- --compile(export_all). - -%%----------------------------------------------------------------- -%% Func: all/1 -%% Args: -%% Returns: -%%----------------------------------------------------------------- -suite() -> [{ct_hooks,[ts_install_cth]}]. - -all() -> - ['CosPropertyService_ConflictingProperty', - 'CosPropertyService_ConstraintNotSupported', - 'CosPropertyService_FixedProperty', - 'CosPropertyService_InvalidPropertyName', - 'CosPropertyService_MultipleExceptions', - 'CosPropertyService_Properties', - 'CosPropertyService_Property', - 'CosPropertyService_PropertyDef', - 'CosPropertyService_PropertyDefs', - 'CosPropertyService_PropertyException', - 'CosPropertyService_PropertyExceptions', - 'CosPropertyService_PropertyMode', - 'CosPropertyService_PropertyModes', - 'CosPropertyService_PropertyNames', - 'CosPropertyService_PropertyNotFound', - 'CosPropertyService_PropertyTypes', - 'CosPropertyService_ReadOnlyProperty', - 'CosPropertyService_UnsupportedMode', - 'CosPropertyService_UnsupportedProperty', - 'CosPropertyService_UnsupportedTypeCode', - 'CosPropertyService_PropertyNamesIterator', - 'CosPropertyService_PropertiesIterator', - 'CosPropertyService_PropertySet', - 'CosPropertyService_PropertySetDef', - 'CosPropertyService_PropertySetDefFactory', - 'CosPropertyService_PropertySetFactory']. - -groups() -> - []. - -init_per_suite(Config) -> - Config. - -end_per_suite(_Config) -> - ok. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - - - -%%----------------------------------------------------------------- -%% Init and cleanup functions. -%%----------------------------------------------------------------- -init_per_testcase(_Case, Config) -> - Dog=test_server:timetrap(?default_timeout), - [{watchdog, Dog}|Config]. - -end_per_testcase(_Case, Config) -> - Dog = proplists:get_value(watchdog, Config), - test_server:timetrap_cancel(Dog), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_ConflictingProperty' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_ConflictingProperty'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_ConflictingProperty':tc())), - ?match("IDL:omg.org/CosPropertyService/ConflictingProperty:1.0", - 'CosPropertyService_ConflictingProperty':id()), - ?match("CosPropertyService_ConflictingProperty", - 'CosPropertyService_ConflictingProperty':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_ConstraintNotSupported' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_ConstraintNotSupported'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_ConstraintNotSupported':tc())), - ?match("IDL:omg.org/CosPropertyService/ConstraintNotSupported:1.0", - 'CosPropertyService_ConstraintNotSupported':id()), - ?match("CosPropertyService_ConstraintNotSupported", - 'CosPropertyService_ConstraintNotSupported':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_FixedProperty' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_FixedProperty'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_FixedProperty':tc())), - ?match("IDL:omg.org/CosPropertyService/FixedProperty:1.0", - 'CosPropertyService_FixedProperty':id()), - ?match("CosPropertyService_FixedProperty", - 'CosPropertyService_FixedProperty':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_InvalidPropertyName' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_InvalidPropertyName'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_InvalidPropertyName':tc())), - ?match("IDL:omg.org/CosPropertyService/InvalidPropertyName:1.0", - 'CosPropertyService_InvalidPropertyName':id()), - ?match("CosPropertyService_InvalidPropertyName", - 'CosPropertyService_InvalidPropertyName':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_MultipleExceptions' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_MultipleExceptions'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_MultipleExceptions':tc())), - ?match("IDL:omg.org/CosPropertyService/MultipleExceptions:1.0", - 'CosPropertyService_MultipleExceptions':id()), - ?match("CosPropertyService_MultipleExceptions", - 'CosPropertyService_MultipleExceptions':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_Properties' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_Properties'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_Properties':tc())), - ?match("IDL:omg.org/CosPropertyService/Properties:1.0", - 'CosPropertyService_Properties':id()), - ?match("CosPropertyService_Properties", - 'CosPropertyService_Properties':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_Property' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_Property'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_Property':tc())), - ?match("IDL:omg.org/CosPropertyService/Property:1.0", - 'CosPropertyService_Property':id()), - ?match("CosPropertyService_Property", - 'CosPropertyService_Property':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyDef' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyDef'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyDef':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyDef:1.0", - 'CosPropertyService_PropertyDef':id()), - ?match("CosPropertyService_PropertyDef", - 'CosPropertyService_PropertyDef':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyDefs' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyDefs'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyDefs':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyDefs:1.0", - 'CosPropertyService_PropertyDefs':id()), - ?match("CosPropertyService_PropertyDefs", - 'CosPropertyService_PropertyDefs':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyException' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyException'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyException':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyException:1.0", - 'CosPropertyService_PropertyException':id()), - ?match("CosPropertyService_PropertyException", - 'CosPropertyService_PropertyException':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyExceptions' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyExceptions'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyExceptions':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyExceptions:1.0", - 'CosPropertyService_PropertyExceptions':id()), - ?match("CosPropertyService_PropertyExceptions", - 'CosPropertyService_PropertyExceptions':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyMode' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyMode'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyMode':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyMode:1.0", - 'CosPropertyService_PropertyMode':id()), - ?match("CosPropertyService_PropertyMode", - 'CosPropertyService_PropertyMode':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyModes' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyModes'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyModes':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyModes:1.0", - 'CosPropertyService_PropertyModes':id()), - ?match("CosPropertyService_PropertyModes", - 'CosPropertyService_PropertyModes':name()), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyNames' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyNames'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyNames':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyNames:1.0", - 'CosPropertyService_PropertyNames':id()), - ?match("CosPropertyService_PropertyNames", - 'CosPropertyService_PropertyNames':name()), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyNotFound' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyNotFound'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyNotFound':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyNotFound:1.0", - 'CosPropertyService_PropertyNotFound':id()), - ?match("CosPropertyService_PropertyNotFound", - 'CosPropertyService_PropertyNotFound':name()), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyTypes' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyTypes'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_PropertyTypes':tc())), - ?match("IDL:omg.org/CosPropertyService/PropertyTypes:1.0", - 'CosPropertyService_PropertyTypes':id()), - ?match("CosPropertyService_PropertyTypes", - 'CosPropertyService_PropertyTypes':name()), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_ReadOnlyProperty' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_ReadOnlyProperty'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_ReadOnlyProperty':tc())), - ?match("IDL:omg.org/CosPropertyService/ReadOnlyProperty:1.0", - 'CosPropertyService_ReadOnlyProperty':id()), - ?match("CosPropertyService_ReadOnlyProperty", - 'CosPropertyService_ReadOnlyProperty':name()), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_UnsupportedMode' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_UnsupportedMode'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_UnsupportedMode':tc())), - ?match("IDL:omg.org/CosPropertyService/UnsupportedMode:1.0", - 'CosPropertyService_UnsupportedMode':id()), - ?match("CosPropertyService_UnsupportedMode", - 'CosPropertyService_UnsupportedMode':name()), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_UnsupportedProperty' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_UnsupportedProperty'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_UnsupportedProperty':tc())), - ?match("IDL:omg.org/CosPropertyService/UnsupportedProperty:1.0", - 'CosPropertyService_UnsupportedProperty':id()), - ?match("CosPropertyService_UnsupportedProperty", - 'CosPropertyService_UnsupportedProperty':name()), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_UnsupportedTypeCode' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_UnsupportedTypeCode'(_) -> - ?match(true, orber_tc:check_tc('CosPropertyService_UnsupportedTypeCode':tc())), - ?match("IDL:omg.org/CosPropertyService/UnsupportedTypeCode:1.0", - 'CosPropertyService_UnsupportedTypeCode':id()), - ?match("CosPropertyService_UnsupportedTypeCode", - 'CosPropertyService_UnsupportedTypeCode':name()), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertyNamesIterator' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertyNamesIterator'(_) -> - ?nomatch(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(reset)), - ?nomatch(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(next_one)), - ?nomatch(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(next_n)), - ?nomatch(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(destroy)), - ?match(undefined, 'CosPropertyService_PropertyNamesIterator':oe_tc(undefined)), - ?match([_|_], 'CosPropertyService_PropertyNamesIterator':oe_get_interface()), - ?match("IDL:omg.org/CosPropertyService/PropertyNamesIterator:1.0", - 'CosPropertyService_PropertyNamesIterator':typeID()), - check_tc('CosPropertyService_PropertyNamesIterator':oe_get_interface()), - ?match(true, 'CosPropertyService_PropertyNamesIterator':oe_is_a('CosPropertyService_PropertyNamesIterator':typeID())), - ?match(false, 'CosPropertyService_PropertyNamesIterator':oe_is_a("wrong")), - ok. - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertiesIterator' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertiesIterator'(_) -> - ?nomatch(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(reset)), - ?nomatch(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(next_one)), - ?nomatch(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(next_n)), - ?nomatch(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(destroy)), - ?match(undefined, 'CosPropertyService_PropertiesIterator':oe_tc(undefined)), - ?match([_|_], 'CosPropertyService_PropertiesIterator':oe_get_interface()), - ?match("IDL:omg.org/CosPropertyService/PropertiesIterator:1.0", - 'CosPropertyService_PropertiesIterator':typeID()), - check_tc('CosPropertyService_PropertiesIterator':oe_get_interface()), - ?match(true, 'CosPropertyService_PropertiesIterator':oe_is_a('CosPropertyService_PropertiesIterator':typeID())), - ?match(false, 'CosPropertyService_PropertiesIterator':oe_is_a("wrong")), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertySet' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertySet'(_) -> - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(define_property)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(define_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_number_of_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_all_property_names)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_property_value)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(get_all_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(delete_property)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(delete_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(delete_all_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySet':oe_tc(is_property_defined)), - ?match(undefined, 'CosPropertyService_PropertySet':oe_tc(undefined)), - ?match([_|_], 'CosPropertyService_PropertySet':oe_get_interface()), - ?match("IDL:omg.org/CosPropertyService/PropertySet:1.0", - 'CosPropertyService_PropertySet':typeID()), - check_tc('CosPropertyService_PropertySet':oe_get_interface()), - ?match(true, 'CosPropertyService_PropertySet':oe_is_a('CosPropertyService_PropertySet':typeID())), - ?match(false, 'CosPropertyService_PropertySet':oe_is_a("wrong")), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertySetDef' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertySetDef'(_) -> - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_allowed_property_types)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_allowed_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(define_property_with_mode)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(define_properties_with_modes)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_property_mode)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_property_modes)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(set_property_mode)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(set_property_modes)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(define_property)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(define_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_number_of_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_all_property_names)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_property_value)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(get_all_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(delete_property)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(delete_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(delete_all_properties)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDef':oe_tc(is_property_defined)), - ?match(undefined, 'CosPropertyService_PropertySetDef':oe_tc(undefined)), - ?match([_|_], 'CosPropertyService_PropertySetDef':oe_get_interface()), - ?match("IDL:omg.org/CosPropertyService/PropertySetDef:1.0", - 'CosPropertyService_PropertySetDef':typeID()), - check_tc('CosPropertyService_PropertySetDef':oe_get_interface()), - ?match(true, 'CosPropertyService_PropertySetDef':oe_is_a('CosPropertyService_PropertySetDef':typeID())), - ?match(true, 'CosPropertyService_PropertySetDef':oe_is_a('CosPropertyService_PropertySet':typeID())), - ?match(false, 'CosPropertyService_PropertySetDef':oe_is_a("wrong")), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertySetDefFactory' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertySetDefFactory'(_) -> - ?nomatch(undefined, 'CosPropertyService_PropertySetDefFactory':oe_tc(create_propertysetdef)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDefFactory':oe_tc(create_constrained_propertysetdef)), - ?nomatch(undefined, 'CosPropertyService_PropertySetDefFactory':oe_tc(create_initial_propertysetdef)), - ?match(undefined, 'CosPropertyService_PropertySetDefFactory':oe_tc(undefined)), - ?match([_|_], 'CosPropertyService_PropertySetDefFactory':oe_get_interface()), - ?match("IDL:omg.org/CosPropertyService/PropertySetDefFactory:1.0", - 'CosPropertyService_PropertySetDefFactory':typeID()), - check_tc('CosPropertyService_PropertySetDefFactory':oe_get_interface()), - ?match(true, 'CosPropertyService_PropertySetDefFactory':oe_is_a('CosPropertyService_PropertySetDefFactory':typeID())), - ?match(false, 'CosPropertyService_PropertySetDefFactory':oe_is_a("wrong")), - ok. - - -%%----------------------------------------------------------------- -%% Test Case: 'CosPropertyService_PropertySetFactory' -%% Description: -%%----------------------------------------------------------------- -'CosPropertyService_PropertySetFactory'(_) -> - ?nomatch(undefined, 'CosPropertyService_PropertySetFactory':oe_tc(create_propertyset)), - ?nomatch(undefined, 'CosPropertyService_PropertySetFactory':oe_tc(create_constrained_propertyset)), - ?nomatch(undefined, 'CosPropertyService_PropertySetFactory':oe_tc(create_initial_propertyset)), - ?match(undefined, 'CosPropertyService_PropertySetFactory':oe_tc(undefined)), - ?match([_|_], 'CosPropertyService_PropertySetFactory':oe_get_interface()), - ?match("IDL:omg.org/CosPropertyService/PropertySetFactory:1.0", - 'CosPropertyService_PropertySetFactory':typeID()), - check_tc('CosPropertyService_PropertySetFactory':oe_get_interface()), - ?match(true, 'CosPropertyService_PropertySetFactory':oe_is_a('CosPropertyService_PropertySetFactory':typeID())), - ?match(false, 'CosPropertyService_PropertySetFactory':oe_is_a("wrong")), - ok. - - - -%%----------------------------------------------------------------- -%% MISC functions -%%----------------------------------------------------------------- -check_tc([]) -> - ok; -check_tc([{Op, {RetType, InParameters, OutParameters}}|T]) -> - io:format("checked - ~s~n", [Op]), - lists:all(?checktc(Op), [RetType|InParameters]), - lists:all(?checktc(Op), OutParameters), - check_tc(T). - - diff --git a/lib/cosProperty/test/property_SUITE.erl b/lib/cosProperty/test/property_SUITE.erl deleted file mode 100644 index 77f35c319a..0000000000 --- a/lib/cosProperty/test/property_SUITE.erl +++ /dev/null @@ -1,736 +0,0 @@ -%%---------------------------------------------------------------------- -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2000-2016. All Rights Reserved. -%% -%% Licensed under the Apache License, Version 2.0 (the "License"); -%% you may not use this file except in compliance with the License. -%% You may obtain a copy of the License at -%% -%% http://www.apache.org/licenses/LICENSE-2.0 -%% -%% Unless required by applicable law or agreed to in writing, software -%% distributed under the License is distributed on an "AS IS" BASIS, -%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -%% See the License for the specific language governing permissions and -%% limitations under the License. -%% -%% %CopyrightEnd% -%% -%% -%%---------------------------------------------------------------------- -%% File : property_SUITE.erl -%% Description : -%% -%%---------------------------------------------------------------------- --module(property_SUITE). - - -%%--------------- INCLUDES ----------------------------------- --include_lib("orber/include/corba.hrl"). --include_lib("orber/src/orber_iiop.hrl"). --include_lib("cosProperty/src/cosProperty.hrl"). --include_lib("cosProperty/include/CosPropertyService.hrl"). - --include_lib("common_test/include/ct.hrl"). - -%%--------------- DEFINES ------------------------------------ --define(default_timeout, test_server:minutes(20)). --define(match(ExpectedRes, Expr), - fun() -> - AcTuAlReS = (catch (Expr)), - case AcTuAlReS of - ExpectedRes -> - io:format("------ CORRECT RESULT ------~n~p~n", - [AcTuAlReS]), - AcTuAlReS; - _ -> - io:format("###### ERROR ERROR ######~n~p~n", - [AcTuAlReS]), - exit(AcTuAlReS) - end - end()). - --define(match_inverse(NotExpectedRes, Expr), - fun() -> - AcTuAlReS = (catch (Expr)), - case AcTuAlReS of - NotExpectedRes -> - io:format("###### ERROR ERROR ######~n ~p~n", - [AcTuAlReS]), - exit(AcTuAlReS); - _ -> - io:format("------ CORRECT RESULT ------~n~p~n", - [AcTuAlReS]), - AcTuAlReS - end - end()). - - --define(val1, #any{typecode=tk_short, value=1}). --define(val2, #any{typecode=tk_short, value=2}). --define(val3, #any{typecode=tk_short, value=3}). --define(val4, #any{typecode=tk_short, value=4}). --define(val5, #any{typecode=tk_long, value=5}). --define(badval, #any{typecode=tk_shirt, value=5}). - --define(id1, "id1"). --define(id2, "id2"). --define(id3, "id3"). --define(id4, "id4"). --define(id5, "id5"). --define(badid, ""). - - -%%----------------------------------------------------------------- -%% External exports -%%----------------------------------------------------------------- -%% Fixed exports --export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, cases/0, - init_per_suite/1, end_per_suite/1, - init_per_testcase/2, end_per_testcase/2]). -%% Test cases --export([create_setdef_api/1, create_set_api/1, define_with_mode_api/1, - define_api/1, names_iterator_api/1, properties_iterator_api/1, - app_test/1]). - -%%----------------------------------------------------------------- -%% Func: all/1 -%% Args: -%% Returns: -%%----------------------------------------------------------------- -suite() -> [{ct_hooks,[ts_install_cth]}]. - -all() -> - cases(). - -groups() -> - []. - -init_per_group(_GroupName, Config) -> - Config. - -end_per_group(_GroupName, Config) -> - Config. - -cases() -> - [create_setdef_api, create_set_api, - define_with_mode_api, define_api, names_iterator_api, - properties_iterator_api, app_test]. - -%%----------------------------------------------------------------- -%% Init and cleanup functions. -%%----------------------------------------------------------------- -init_per_testcase(_Case, Config) -> - Path = code:which(?MODULE), - code:add_pathz(filename:join(filename:dirname(Path), "idl_output")), - Dog=test_server:timetrap(?default_timeout), - [{watchdog, Dog}|Config]. - - -end_per_testcase(_Case, Config) -> - Path = code:which(?MODULE), - code:del_path(filename:join(filename:dirname(Path), "idl_output")), - Dog = proplists:get_value(watchdog, Config), - test_server:timetrap_cancel(Dog), - ok. - -init_per_suite(Config) -> - Path = code:which(?MODULE), - code:add_pathz(filename:join(filename:dirname(Path), "idl_output")), - orber:jump_start(), - cosProperty:install(), - cosProperty:install_db(), - ?match(ok, application:start(cosProperty)), - if - is_list(Config) -> - Config; - true -> - exit("Config not a list") - end. - -end_per_suite(Config) -> - Path = code:which(?MODULE), - code:del_path(filename:join(filename:dirname(Path), "idl_output")), - application:stop(cosProperty), - cosProperty:uninstall_db(), - cosProperty:uninstall(), - orber:jump_stop(), - Config. - -%%----------------------------------------------------------------- -%% Tests app file -%%----------------------------------------------------------------- -app_test(_Config) -> - ok=test_server:app_test(cosProperty), - ok. - - -%%----------------------------------------------------------------- -%% CosPropertyService_PropertySetDefFactory API tests -%%----------------------------------------------------------------- -create_setdef_api(_Config) -> - - ValidDefs = [#'CosPropertyService_PropertyDef' - {property_name = ?id1, - property_value = ?val1, - property_mode = normal}, - #'CosPropertyService_PropertyDef' - {property_name = ?id2, - property_value = ?val2, - property_mode = normal}], - InvalidDefs = [#'CosPropertyService_PropertyDef' - {property_name = ?id1, - property_value = ?val1, - property_mode = normal}, - #'CosPropertyService_PropertyDef' - {property_name = ?badid, - property_value = ?badval, - property_mode = normal}], - - Fac = ?match({_,pseudo,_,_,_,_}, cosProperty:start_SetDefFactory()), - - Obj1 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetDefFactory': - create_propertysetdef(Fac)), - 'CosPropertyService_PropertySetDef_impl':dump(), - corba:dispose(Obj1), - - - Obj2 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetDefFactory': - create_constrained_propertysetdef(Fac, [tk_short], ValidDefs)), - 'CosPropertyService_PropertySetDef_impl':dump(), - corba:dispose(Obj2), - - %% Both arguments correct but 'ValidDefs' contain other TC:s than - %% tk_null. - ?match({'EXCEPTION', _}, 'CosPropertyService_PropertySetDefFactory': - create_constrained_propertysetdef(Fac, [tk_null], ValidDefs)), - 'CosPropertyService_PropertySetDef_impl':dump(), - - ?match({'EXCEPTION', _}, 'CosPropertyService_PropertySetDefFactory': - create_constrained_propertysetdef(Fac, [tk_null], InvalidDefs)), - 'CosPropertyService_PropertySetDef_impl':dump(), - - %% The allowed TC not supported. - ?match({'EXCEPTION', _}, 'CosPropertyService_PropertySetDefFactory': - create_constrained_propertysetdef(Fac, [tk_noll], ValidDefs)), - 'CosPropertyService_PropertySetDef_impl':dump(), - - Obj4 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetDefFactory': - create_initial_propertysetdef(Fac, ValidDefs)), - 'CosPropertyService_PropertySetDef_impl':dump(), - corba:dispose(Obj4), - - ?match({'EXCEPTION', _}, 'CosPropertyService_PropertySetDefFactory': - create_initial_propertysetdef(Fac, InvalidDefs)), - - ?match(ok, cosProperty:stop_SetDefFactory(Fac)), - - ok. - - -%%----------------------------------------------------------------- -%% CosPropertyService_PropertySetFactory API tests -%%----------------------------------------------------------------- -create_set_api(_Config) -> - Valid = [#'CosPropertyService_Property' - {property_name = ?id1, - property_value = ?val1}, - #'CosPropertyService_Property' - {property_name = ?id2, - property_value = ?val2}], - Invalid = [#'CosPropertyService_Property' - {property_name = ?id1, - property_value = ?val1}, - #'CosPropertyService_Property' - {property_name = ?badid, - property_value = ?badval}], - - Fac = ?match({_,pseudo,_,_,_,_}, cosProperty:start_SetFactory()), - Obj1 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetFactory': - create_propertyset(Fac)), - 'CosPropertyService_PropertySetDef_impl':dump(), - corba:dispose(Obj1), - - - Obj2 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetFactory': - create_constrained_propertyset(Fac, [tk_short], Valid)), - 'CosPropertyService_PropertySetDef_impl':dump(), - corba:dispose(Obj2), - - %% Both arguments correct but 'Valid' contain other TC:s than - %% tk_null. - ?match({'EXCEPTION', _}, 'CosPropertyService_PropertySetFactory': - create_constrained_propertyset(Fac, [tk_null], Valid)), - 'CosPropertyService_PropertySetDef_impl':dump(), - - ?match({'EXCEPTION', _}, 'CosPropertyService_PropertySetFactory': - create_constrained_propertyset(Fac, [tk_null], Invalid)), - 'CosPropertyService_PropertySetDef_impl':dump(), - - %% The allowed TC not supported. - ?match({'EXCEPTION', _}, 'CosPropertyService_PropertySetFactory': - create_constrained_propertyset(Fac, [tk_noll], Valid)), - 'CosPropertyService_PropertySetDef_impl':dump(), - - Obj4 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetFactory': - create_initial_propertyset(Fac, Valid)), - 'CosPropertyService_PropertySetDef_impl':dump(), - corba:dispose(Obj4), - - ?match({'EXCEPTION', _}, 'CosPropertyService_PropertySetFactory': - create_initial_propertyset(Fac, Invalid)), - ?match(ok, cosProperty:stop_SetFactory(Fac)), - ok. - -%%----------------------------------------------------------------- -%% CosPropertyService_PropertySetDef API tests -%%----------------------------------------------------------------- -define_api(_Config) -> - ValidDefs = [#'CosPropertyService_Property' - {property_name = ?id1, - property_value = ?val1}, - #'CosPropertyService_Property' - {property_name = ?id2, - property_value = ?val2}, - #'CosPropertyService_Property' - {property_name = ?id3, - property_value = ?val3}], - - Fac = ?match({_,pseudo,_,_,_,_}, cosProperty:start_SetFactory()), - - io:format("@@@@ Testing PropertySet returned by the factory operation create_propertyset/1 @@@@", []), - Obj = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetFactory': - create_propertyset(Fac)), - ?match(ok, 'CosPropertyService_PropertySet':define_property(Obj, ?id1, ?val1)), - ?match(ok, 'CosPropertyService_PropertySet':define_property(Obj, ?id1, ?val1)), - - ?match(1, 'CosPropertyService_PropertySet':get_number_of_properties(Obj)), - ?match(ok, 'CosPropertyService_PropertySet': - define_properties(Obj, [#'CosPropertyService_Property'{property_name = ?id2, - property_value = ?val2}, - #'CosPropertyService_Property'{property_name = ?id3, - property_value = ?val3}])), - - ?match(3, 'CosPropertyService_PropertySet':get_number_of_properties(Obj)), - - ?match({true, [_]}, 'CosPropertyService_PropertySet':get_properties(Obj, [?id1])), - ?match({true, [_, _, _]}, 'CosPropertyService_PropertySet':get_properties(Obj, [?id1, ?id2, ?id3])), - ?match({false,[_, _, _]}, 'CosPropertyService_PropertySet':get_properties(Obj, [?id1, "wrong", ?id3])), - - ?match(?val2, 'CosPropertyService_PropertySet':get_property_value(Obj, ?id2)), - ?match(ok, 'CosPropertyService_PropertySet':delete_property(Obj, ?id1)), - - ?match(2, 'CosPropertyService_PropertySet':get_number_of_properties(Obj)), - - ?match(ok, 'CosPropertyService_PropertySet':define_property(Obj, ?id1, ?val1)), - ?match(ok, 'CosPropertyService_PropertySet':define_property(Obj, ?id2, ?val2)), - ?match(ok, 'CosPropertyService_PropertySet':define_property(Obj, ?id3, ?val3)), - - ?match(true, 'CosPropertyService_PropertySet':delete_all_properties(Obj)), - ?match(0, 'CosPropertyService_PropertySet':get_number_of_properties(Obj)), - - ?match(ok, 'CosPropertyService_PropertySet': - define_properties(Obj, [#'CosPropertyService_Property'{property_name = ?id1, - property_value = ?val1}, - #'CosPropertyService_Property'{property_name = ?id2, - property_value = ?val2}, - #'CosPropertyService_Property'{property_name = ?id3, - property_value = ?val3}])), - - ?match(3, 'CosPropertyService_PropertySet':get_number_of_properties(Obj)), - ?match(?val2, 'CosPropertyService_PropertySet':get_property_value(Obj, ?id2)), - - ?match({'EXCEPTION',{'CosPropertyService_PropertyNotFound',_}}, - 'CosPropertyService_PropertySet':get_property_value(Obj, "wrongID")), - ?match({'EXCEPTION',{'CosPropertyService_InvalidPropertyName',_}}, - 'CosPropertyService_PropertySet':get_property_value(Obj, "")), - ?match({'EXCEPTION',{'CosPropertyService_InvalidPropertyName',_}}, - 'CosPropertyService_PropertySet':is_property_defined(Obj, "")), - ?match(false, 'CosPropertyService_PropertySet':is_property_defined(Obj, "wrongID")), - ?match(true, 'CosPropertyService_PropertySet':is_property_defined(Obj, ?id1)), - - %% This function is not supported by PropertySet. - ?match({'EXCEPTION',{'NO_IMPLEMENT',_,_,_}}, - 'CosPropertyService_PropertySetDef':get_property_modes(Obj, [?id1, ?id2, ?id3])), - - ?match({'EXCEPTION',{'CosPropertyService_MultipleExceptions',_,_}}, - 'CosPropertyService_PropertySet':delete_properties(Obj, [?id1, ?id2, ?id3, "wrongID"])), - ?match(0, 'CosPropertyService_PropertySet':get_number_of_properties(Obj)), - corba:dispose(Obj), - - io:format("@@@@ Testing PropertySet returned by the factory operation create_constrained_propertyset/3 @@@@", []), - Obj2 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetFactory': - create_constrained_propertyset(Fac, [tk_short], ValidDefs)), - - ?match(0, 'CosPropertyService_PropertySet':get_number_of_properties(Obj2)), - ?match({'EXCEPTION', {'CosPropertyService_UnsupportedProperty',_}}, - 'CosPropertyService_PropertySet':define_property(Obj2, ?id4, ?val4)), - ?match({'EXCEPTION', {'CosPropertyService_UnsupportedTypeCode',_}}, - 'CosPropertyService_PropertySet':define_property(Obj2, ?id1, ?val5)), - ?match(ok, 'CosPropertyService_PropertySet':define_property(Obj2, ?id1, ?val1)), - ?match(1, 'CosPropertyService_PropertySet':get_number_of_properties(Obj2)), - ?match({'EXCEPTION',{'CosPropertyService_MultipleExceptions',_,_}}, - 'CosPropertyService_PropertySet': - define_properties(Obj2, [#'CosPropertyService_Property'{property_name = ?id2, - property_value = ?val2}, - #'CosPropertyService_Property'{property_name = ?id3, - property_value = ?val3}, - #'CosPropertyService_Property'{property_name = "wrongId", - property_value = ?val2}])), - ?match(ok,'CosPropertyService_PropertySet': - define_properties(Obj2, [#'CosPropertyService_Property'{property_name = ?id2, - property_value = ?val2}, - #'CosPropertyService_Property'{property_name = ?id3, - property_value = ?val3}])), - ?match(3, 'CosPropertyService_PropertySet':get_number_of_properties(Obj2)), - ?match({'EXCEPTION',{'CosPropertyService_PropertyNotFound',_}}, - 'CosPropertyService_PropertySet':get_property_value(Obj2, "wrongID")), - ?match(?val2, 'CosPropertyService_PropertySet':get_property_value(Obj2, ?id2)), - ?match({'EXCEPTION',{'CosPropertyService_InvalidPropertyName',_}}, - 'CosPropertyService_PropertySet':get_property_value(Obj2, "")), - ?match({'EXCEPTION',{'CosPropertyService_InvalidPropertyName',_}}, - 'CosPropertyService_PropertySet':is_property_defined(Obj2, "")), - ?match(false, 'CosPropertyService_PropertySet':is_property_defined(Obj2, "wrongID")), - ?match(true, 'CosPropertyService_PropertySet':is_property_defined(Obj2, ?id1)), - - - ?match({'EXCEPTION',{'CosPropertyService_PropertyNotFound',_}}, - 'CosPropertyService_PropertySet':delete_property(Obj2, "wrongID")), - ?match(3, 'CosPropertyService_PropertySet':get_number_of_properties(Obj2)), - ?match(ok, 'CosPropertyService_PropertySet':delete_property(Obj2, ?id1)), - ?match(2, 'CosPropertyService_PropertySet':get_number_of_properties(Obj2)), - - ?match(ok, 'CosPropertyService_PropertySet':delete_properties(Obj2, [?id2])), - ?match(1, 'CosPropertyService_PropertySet':get_number_of_properties(Obj2)), - - ?match({'EXCEPTION',{'CosPropertyService_MultipleExceptions',_,_}}, - 'CosPropertyService_PropertySet':delete_properties(Obj2, [?id3, "wrongID"])), - ?match(0, 'CosPropertyService_PropertySet':get_number_of_properties(Obj2)), - corba:dispose(Obj2), - - io:format("@@@@ Testing PropertySet returned by the factory operation create_initial_propertyset/2 @@@@", []), - Obj3 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetFactory': - create_initial_propertyset(Fac, ValidDefs)), - ?match(3, 'CosPropertyService_PropertySet':get_number_of_properties(Obj3)), - - ?match(ok, 'CosPropertyService_PropertySet':define_property(Obj3, ?id4, ?val4)), - ?match(4, 'CosPropertyService_PropertySet':get_number_of_properties(Obj3)), - - ?match(ok,'CosPropertyService_PropertySet': - define_properties(Obj3, [#'CosPropertyService_Property'{property_name = ?id5, - property_value = ?val5}])), - - ?match(5, 'CosPropertyService_PropertySet':get_number_of_properties(Obj3)), - - ?match({'EXCEPTION',{'CosPropertyService_PropertyNotFound',_}}, - 'CosPropertyService_PropertySet':get_property_value(Obj3, "wrongID")), - ?match(?val2, 'CosPropertyService_PropertySet':get_property_value(Obj3, ?id2)), - ?match({'EXCEPTION',{'CosPropertyService_InvalidPropertyName',_}}, - 'CosPropertyService_PropertySet':get_property_value(Obj3, "")), - ?match({'EXCEPTION',{'CosPropertyService_InvalidPropertyName',_}}, - 'CosPropertyService_PropertySet':is_property_defined(Obj3, "")), - ?match(false, 'CosPropertyService_PropertySet':is_property_defined(Obj3, "wrongID")), - ?match(true, 'CosPropertyService_PropertySet':is_property_defined(Obj3, ?id1)), - - ?match({'EXCEPTION',{'CosPropertyService_PropertyNotFound',_}}, - 'CosPropertyService_PropertySet':delete_property(Obj3, "wrongId")), - ?match(ok, 'CosPropertyService_PropertySet':delete_property(Obj3, ?id5)), - ?match(4, 'CosPropertyService_PropertySet':get_number_of_properties(Obj3)), - - ?match({'EXCEPTION',{'CosPropertyService_MultipleExceptions',_,_}}, - 'CosPropertyService_PropertySet':delete_properties(Obj3, [?id1, ?id2, ?id3, "wrongID"])), - ?match(1, 'CosPropertyService_PropertySet':get_number_of_properties(Obj3)), - - ?match(true, 'CosPropertyService_PropertySet':delete_all_properties(Obj3)), - ?match(0, 'CosPropertyService_PropertySet':get_number_of_properties(Obj3)), - - corba:dispose(Obj3), - ?match(ok, cosProperty:stop_SetFactory(Fac)), - - ok. - -%%----------------------------------------------------------------- -%% CosPropertyService_PropertySetDef API tests -%%----------------------------------------------------------------- -define_with_mode_api(_Config) -> - ValidDefs = [#'CosPropertyService_PropertyDef' - {property_name = ?id1, - property_value = ?val1, - property_mode = normal}, - #'CosPropertyService_PropertyDef' - {property_name = ?id2, - property_value = ?val2, - property_mode = normal}, - #'CosPropertyService_PropertyDef' - {property_name = ?id3, - property_value = ?val3, - property_mode = normal}], - - Fac = ?match({_,pseudo,_,_,_,_}, cosProperty:start_SetDefFactory()), - - io:format("@@@@ Testing PropertySetDef returned by the factory operation create_propertysetdef/1 @@@@", []), - Obj = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetDefFactory': - create_propertysetdef(Fac)), - - %% Initally no prop's created and no restrictions at all - ?match(0, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj)), - ?match({ok, []}, 'CosPropertyService_PropertySetDef':get_allowed_property_types(Obj)), - ?match({ok, []}, 'CosPropertyService_PropertySetDef':get_allowed_properties(Obj)), - - %% Add two properties. - ?match(ok, 'CosPropertyService_PropertySetDef':define_property_with_mode(Obj, ?id4, ?val4, read_only)), - ?match(ok, 'CosPropertyService_PropertySetDef':define_property_with_mode(Obj, ?id5, ?val5, normal)), - %% Try to add the same property again (shouldn't add another since using the sam Id). - ?match(ok, 'CosPropertyService_PropertySetDef':define_property_with_mode(Obj, ?id5, ?val5, normal)), - - %% Try to add another identical proprty with wrong TC. - ?match({'EXCEPTION',{'CosPropertyService_ConflictingProperty',_}}, - 'CosPropertyService_PropertySetDef':define_property_with_mode(Obj, ?id5, ?val4, normal)), - - - %% Should be two now. - ?match(2, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj)), - - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj, ?id4)), - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj, ?id5)), - ?match(ok, 'CosPropertyService_PropertySetDef': - define_properties_with_modes(Obj, - [#'CosPropertyService_PropertyDef'{property_name = ?id1, - property_value = ?val1, - property_mode = normal}, - #'CosPropertyService_PropertyDef'{property_name = ?id2, - property_value = ?val2, - property_mode = normal}, - #'CosPropertyService_PropertyDef'{property_name = ?id3, - property_value = ?val3, - property_mode = normal}])), - %% Should be five now. - ?match(5, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj)), - ?match({true, [_,_]}, 'CosPropertyService_PropertySetDef':get_property_modes(Obj, [?id1, ?id3])), - ?match({false, [_,_,_]}, 'CosPropertyService_PropertySetDef':get_property_modes(Obj, [?id1, ?id3, "wrongID"])), - - ?match(ok, 'CosPropertyService_PropertySetDef':set_property_mode(Obj, ?id1, read_only)), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj, ?id1)), - - ?match({'EXCEPTION',{'CosPropertyService_PropertyNotFound',_}}, - 'CosPropertyService_PropertySetDef':set_property_mode(Obj, "wrongID", read_only)), - - ?match({'EXCEPTION',{'CosPropertyService_MultipleExceptions',_,_}}, - 'CosPropertyService_PropertySetDef': - set_property_modes(Obj, - [#'CosPropertyService_PropertyMode'{property_name = ?id2, - property_mode = read_only}, - #'CosPropertyService_PropertyMode'{property_name = ?id3, - property_mode = read_only}, - #'CosPropertyService_PropertyMode'{property_name = "wrongID", - property_mode = read_only}])), - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj, ?id2)), - ?match(ok, - 'CosPropertyService_PropertySetDef': - set_property_modes(Obj, - [#'CosPropertyService_PropertyMode'{property_name = ?id2, - property_mode = read_only}, - #'CosPropertyService_PropertyMode'{property_name = ?id3, - property_mode = read_only}])), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj, ?id2)), - - corba:dispose(Obj), - - - io:format("@@@@ Testing PropertySetDef returned by the factory operation create_constrained_propertysetdef/3 @@@@", []), - Obj2 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetDefFactory': - create_constrained_propertysetdef(Fac, [tk_short], ValidDefs)), - - %% Initally no prop's created and the restrictions that only Properties eq. to ValidDefs - %% may be handled. - ?match(0, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj2)), - ?match({ok, [tk_short]}, 'CosPropertyService_PropertySetDef':get_allowed_property_types(Obj2)), - %% We cannot be sure in which order it's returned. Hmm, that's not really true but it - %% may change in the future. - ?match({ok, [_,_,_]}, 'CosPropertyService_PropertySetDef':get_allowed_properties(Obj2)), - %% Try to add a Property with and Id not eq. to ?id1, ?id2 or ?id3; must fail. - ?match({'EXCEPTION', {'CosPropertyService_UnsupportedProperty',_}}, - 'CosPropertyService_PropertySetDef':define_property_with_mode(Obj2, ?id4, ?val4, read_only)), - %% To be sure that nothing was updated. - ?match(0, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj2)), - %% Add a valid Property. - ?match(ok, 'CosPropertyService_PropertySetDef':define_property_with_mode(Obj2, ?id1, ?val1, normal)), - ?match(1, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj2)), - %% Add a sequence of 1 valid and one invalid Prop's - ?match({'EXCEPTION', {'CosPropertyService_MultipleExceptions',_,_}}, - 'CosPropertyService_PropertySetDef': - define_properties_with_modes(Obj2, - [#'CosPropertyService_PropertyDef'{property_name = ?id2, - property_value = ?val2, - property_mode = normal}, - #'CosPropertyService_PropertyDef'{property_name = "wrongID", - property_value = ?val2, - property_mode = normal}])), - %% One should be added. - ?match(1, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj2)), - ?match(ok, 'CosPropertyService_PropertySetDef': - define_properties_with_modes(Obj2, - [#'CosPropertyService_PropertyDef'{property_name = ?id3, - property_value = ?val3, - property_mode = normal}])), - %% Add a sequence of 1 valid Prop. - ?match(2, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj2)), - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj2, ?id1)), - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj2, ?id3)), - - - ?match({true, [_,_]}, 'CosPropertyService_PropertySetDef':get_property_modes(Obj2, [?id1, ?id3])), - ?match({false, [_,_,_]}, 'CosPropertyService_PropertySetDef':get_property_modes(Obj2, [?id1, ?id3, "wrongID"])), - - ?match(ok, 'CosPropertyService_PropertySetDef':set_property_mode(Obj2, ?id1, read_only)), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj2, ?id1)), - ?match(ok, 'CosPropertyService_PropertySetDef': - set_property_modes(Obj2, - [#'CosPropertyService_PropertyMode'{property_name = ?id1, - property_mode = read_only}, - #'CosPropertyService_PropertyMode'{property_name = ?id3, - property_mode = read_only}])), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj2, ?id1)), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj2, ?id3)), - ?match({'EXCEPTION',{'CosPropertyService_MultipleExceptions',_,_}}, - 'CosPropertyService_PropertySetDef': - set_property_modes(Obj2, - [#'CosPropertyService_PropertyMode'{property_name = ?id1, - property_mode = normal}, - #'CosPropertyService_PropertyMode'{property_name = ?id3, - property_mode = normal}, - #'CosPropertyService_PropertyMode'{property_name = "wrongID", - property_mode = normal}])), - - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj2, ?id1)), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj2, ?id3)), - corba:dispose(Obj2), - - io:format("@@@@ Testing PropertySetDef returned by the factory operation create_initial_propertysetdef/2 @@@@", []), - Obj3 = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetDefFactory': - create_initial_propertysetdef(Fac, ValidDefs)), - - %% Initally the supplied prop's are created and no restrictions. - ?match(3, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj3)), - ?match({ok, []}, 'CosPropertyService_PropertySetDef':get_allowed_property_types(Obj3)), - ?match({ok, []}, 'CosPropertyService_PropertySetDef':get_allowed_properties(Obj3)), - - %% Add a new properties an test if they have been inserted. - ?match(ok, 'CosPropertyService_PropertySetDef':define_property_with_mode(Obj3, ?id4, ?val4, read_only)), - ?match(4, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj3)), - ?match(ok, 'CosPropertyService_PropertySetDef':define_property_with_mode(Obj3, ?id5, ?val5, read_only)), - ?match(5, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj3)), - - %% Lookup each Property's mode. - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id1)), - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id2)), - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id3)), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id4)), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id5)), - - ?match({true, [_,_,_,_,_]}, - 'CosPropertyService_PropertySetDef':get_property_modes(Obj3, [?id1, ?id2, ?id3, ?id4, ?id5])), - ?match({false, [_,_]}, - 'CosPropertyService_PropertySetDef':get_property_modes(Obj3, [?id1, "wrongID"])), - ?match(ok, 'CosPropertyService_PropertySetDef':set_property_mode(Obj3, ?id4, normal)), - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id4)), - - ?match(ok, 'CosPropertyService_PropertySetDef': - set_property_modes(Obj3, - [#'CosPropertyService_PropertyMode'{property_name = ?id1, - property_mode = read_only}, - #'CosPropertyService_PropertyMode'{property_name = ?id2, - property_mode = read_only}])), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id1)), - ?match(read_only, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id2)), - ?match({'EXCEPTION',{'CosPropertyService_MultipleExceptions',_,_}}, - 'CosPropertyService_PropertySetDef': - set_property_modes(Obj3, - [#'CosPropertyService_PropertyMode'{property_name = ?id3, - property_mode = read_only}, - #'CosPropertyService_PropertyMode'{property_name = ?id4, - property_mode = read_only}, - #'CosPropertyService_PropertyMode'{property_name = "wrongID", - property_mode = read_only}])), - - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id3)), - ?match(normal, 'CosPropertyService_PropertySetDef':get_property_mode(Obj3, ?id4)), - - corba:dispose(Obj3), - - ?match(ok, cosProperty:stop_SetDefFactory(Fac)), - - ok. - - - -%%----------------------------------------------------------------- -%% CosPropertyService_PropertyNamesIterator API tests -%%----------------------------------------------------------------- -names_iterator_api(_Config) -> - Fac = ?match({_,pseudo,_,_,_,_}, cosProperty:start_SetFactory()), - Obj = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetFactory': - create_propertyset(Fac)), - ?match(ok, 'CosPropertyService_PropertySet': - define_properties(Obj, [#'CosPropertyService_Property'{property_name = ?id1, - property_value = ?val1}, - #'CosPropertyService_Property'{property_name = ?id2, - property_value = ?val2}, - #'CosPropertyService_Property'{property_name = ?id3, - property_value = ?val3}])), - - ?match(3, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj)), - {_, _,ItObj} = ?match({ok, [], _}, 'CosPropertyService_PropertySetDef':get_all_property_names(Obj, 0)), - ?match({false, [_,_,_]}, 'CosPropertyService_PropertyNamesIterator':next_n(ItObj,3)), - ?match(ok, 'CosPropertyService_PropertyNamesIterator':reset(ItObj)), - ?match({false, [_,_,_]}, 'CosPropertyService_PropertyNamesIterator':next_n(ItObj,4)), - ?match(ok, 'CosPropertyService_PropertyNamesIterator':reset(ItObj)), - ?match({true, [_]}, 'CosPropertyService_PropertyNamesIterator':next_n(ItObj,1)), - ?match({true, _}, 'CosPropertyService_PropertyNamesIterator':next_one(ItObj)), - ?match({true, _}, 'CosPropertyService_PropertyNamesIterator':next_one(ItObj)), - ?match({false, _}, 'CosPropertyService_PropertyNamesIterator':next_one(ItObj)), - ?match(ok, 'CosPropertyService_PropertyNamesIterator':destroy(ItObj)), - - corba:dispose(Obj), - ok. - -%%----------------------------------------------------------------- -%% CosPropertyService_PropertiesIterator API tests -%%----------------------------------------------------------------- -properties_iterator_api(_Config) -> - Fac = ?match({_,pseudo,_,_,_,_}, cosProperty:start_SetFactory()), - Obj = ?match({_,pseudo,_,_,_,_}, 'CosPropertyService_PropertySetFactory': - create_propertyset(Fac)), - - ?match(ok, 'CosPropertyService_PropertySet': - define_properties(Obj, [#'CosPropertyService_Property'{property_name = ?id1, - property_value = ?val1}, - #'CosPropertyService_Property'{property_name = ?id2, - property_value = ?val2}, - #'CosPropertyService_Property'{property_name = ?id3, - property_value = ?val3}])), - - ?match(3, 'CosPropertyService_PropertySetDef':get_number_of_properties(Obj)), - {_, _,ItObj} = ?match({ok, [], _}, - 'CosPropertyService_PropertySetDef':get_all_properties(Obj, 0)), - ?match({false, [_,_,_]}, 'CosPropertyService_PropertiesIterator':next_n(ItObj,3)), - ?match(ok, 'CosPropertyService_PropertiesIterator':reset(ItObj)), - ?match({false, [_,_,_]}, 'CosPropertyService_PropertiesIterator':next_n(ItObj,4)), - ?match(ok, 'CosPropertyService_PropertiesIterator':reset(ItObj)), - ?match({true, [_]}, 'CosPropertyService_PropertiesIterator':next_n(ItObj,1)), - ?match({true, {'CosPropertyService_Property',_,_}}, - 'CosPropertyService_PropertiesIterator':next_one(ItObj)), - ?match({true, {'CosPropertyService_Property',_,_}}, - 'CosPropertyService_PropertiesIterator':next_one(ItObj)), - ?match({false, {'CosPropertyService_Property',_,_}}, - 'CosPropertyService_PropertiesIterator':next_one(ItObj)), - ?match(ok, 'CosPropertyService_PropertiesIterator':destroy(ItObj)), - corba:dispose(Obj), - ok. - - -%%----------------------------------------------------------------- -%% END OF MODULE -%%----------------------------------------------------------------- diff --git a/lib/cosProperty/vsn.mk b/lib/cosProperty/vsn.mk deleted file mode 100644 index a3a952346e..0000000000 --- a/lib/cosProperty/vsn.mk +++ /dev/null @@ -1,2 +0,0 @@ -COSPROPERTY_VSN = 1.2.3 - |