oe_cosproperty.erl

OTP是开放电信平台的简称

    orber_ifr:'InterfaceDef_create_operation'(_OE_6, "IDL:omg.org/CosPropertyService/PropertyNamesIterator/next_one:1.0", "next_one", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_boolean), 'OP_NORMAL', [#parameterdescription{name="property_name", type={tk_string,0}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_string,0}), mode='PARAM_OUT'}
], [], []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_6, "IDL:omg.org/CosPropertyService/PropertyNamesIterator/next_n:1.0", "next_n", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_boolean), 'OP_NORMAL', [#parameterdescription{name="property_names", type={tk_sequence,
                                                   {tk_string,0},
                                                   0}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_sequence,{tk_string,0},0}), mode='PARAM_OUT'}
, #parameterdescription{name="how_many", type=tk_ulong, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, tk_ulong), mode='PARAM_IN'}
], [], []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_6, "IDL:omg.org/CosPropertyService/PropertyNamesIterator/destroy:1.0", "destroy", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_void), 'OP_NORMAL', [], [], []),

    _OE_7 = orber_ifr:'ModuleDef_create_interface'(_OE_1, "IDL:omg.org/CosPropertyService/PropertiesIterator:1.0", "PropertiesIterator", "1.0", []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_7, "IDL:omg.org/CosPropertyService/PropertiesIterator/reset:1.0", "reset", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_void), 'OP_NORMAL', [], [], []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_7, "IDL:omg.org/CosPropertyService/PropertiesIterator/next_one:1.0", "next_one", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_boolean), 'OP_NORMAL', [#parameterdescription{name="aproperty", type={tk_struct,
                                              "IDL:omg.org/CosPropertyService/Property:1.0",
                                              "Property",
                                              [{"property_name",{tk_string,0}},
                                               {"property_value",tk_any}]}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_struct,
                                               "IDL:omg.org/CosPropertyService/Property:1.0",
                                               "Property",
                                               [{"property_name",
                                                 {tk_string,0}},
                                                {"property_value",tk_any}]}), mode='PARAM_OUT'}
], [], []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_7, "IDL:omg.org/CosPropertyService/PropertiesIterator/next_n:1.0", "next_n", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_boolean), 'OP_NORMAL', [#parameterdescription{name="nproperties", type={tk_sequence,
                                                {tk_struct,
                                                 "IDL:omg.org/CosPropertyService/Property:1.0",
                                                 "Property",
                                                 [{"property_name",
                                                   {tk_string,0}},
                                                  {"property_value",tk_any}]},
                                                0}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_sequence,
                                               {tk_struct,
                                                "IDL:omg.org/CosPropertyService/Property:1.0",
                                                "Property",
                                                [{"property_name",
                                                  {tk_string,0}},
                                                 {"property_value",tk_any}]},
                                               0}), mode='PARAM_OUT'}
, #parameterdescription{name="how_many", type=tk_ulong, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, tk_ulong), mode='PARAM_IN'}
], [], []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_7, "IDL:omg.org/CosPropertyService/PropertiesIterator/destroy:1.0", "destroy", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_void), 'OP_NORMAL', [], [], []),

    ok.


%% General IFR registration checks.
register_tests(OE_IFR)->
  re_register_test(OE_IFR),
  include_reg_test(OE_IFR).


%% IFR type Re-registration checks.
re_register_test(OE_IFR)->
  case orber_ifr:'Repository_lookup_id'(OE_IFR,"IDL:omg.org/CosPropertyService/PropertyName:1.0") of
    []  ->
      true;
    _ ->
      exit({allready_registered,"IDL:omg.org/CosPropertyService/PropertyName:1.0"})
 end.


%% No included idl-files detected.
include_reg_test(_OE_IFR) -> true.


%% Fetch top module reference, register if unregistered.
oe_get_top_module(OE_IFR, ID, Name, Version) ->
  case orber_ifr:'Repository_lookup_id'(OE_IFR, ID) of
    [] ->
      orber_ifr:'Repository_create_module'(OE_IFR, ID, Name, Version);
    Mod  ->
      Mod
   end.

%% Fetch module reference, register if unregistered.
oe_get_module(OE_IFR, OE_Parent, ID, Name, Version) ->
  case orber_ifr:'Repository_lookup_id'(OE_IFR, ID) of
    [] ->
      orber_ifr:'ModuleDef_create_module'(OE_Parent, ID, Name, Version);
    Mod  ->
      Mod
   end.



oe_unregister() ->
    OE_IFR = orber_ifr:find_repository(),

    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertiesIterator:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyNamesIterator:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertySetDef:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertySet:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertySetDefFactory:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertySetFactory:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/MultipleExceptions:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyExceptions:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyException:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/ExceptionReason:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/ReadOnlyProperty:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/FixedProperty:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/UnsupportedMode:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/UnsupportedProperty:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/UnsupportedTypeCode:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyNotFound:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/ConflictingProperty:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/InvalidPropertyName:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/ConstraintNotSupported:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyTypes:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyModes:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyDefs:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/Properties:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyNames:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyMode:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyDef:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyModeType:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/Property:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosPropertyService/PropertyName:1.0"),
    oe_destroy_if_empty(OE_IFR, "IDL:omg.org/CosPropertyService:1.0"),
    ok.


oe_destroy_if_empty(OE_IFR,IFR_ID) ->
    case orber_ifr:'Repository_lookup_id'(OE_IFR, IFR_ID) of
	[] ->
	    ok;
	Ref ->
	    case orber_ifr:contents(Ref, 'dk_All', 'true') of
		[] ->
		    orber_ifr:destroy(Ref),
		    ok;
		_ ->
		    ok
	    end
    end.

oe_destroy(OE_IFR,IFR_ID) ->
    case orber_ifr:'Repository_lookup_id'(OE_IFR, IFR_ID) of
	[] ->
	    ok;
	Ref ->
	    orber_ifr:destroy(Ref),
	    ok
    end.



%% Idl file dependency list function
oe_dependency() ->

    [].