oe_cosnotifycomm.erl

来自「OTP是开放电信平台的简称」· ERL 代码 · 共 590 行 · 第 1/3 页

                                                         "EventType",
                                                         [{"domain_name",
                                                           {tk_string,0}},
                                                          {"type_name",
                                                           {tk_string,0}}]}},
                                                       {"event_name",
                                                        {tk_string,0}}]}},
                                                    {"variable_header",
                                                     {tk_sequence,
                                                      {tk_struct,
                                                       "IDL:omg.org/CosNotification/Property:1.0",
                                                       "Property",
                                                       [{"name",{tk_string,0}},
                                                        {"value",tk_any}]},
                                                      0}}]}},
                                                 {"filterable_data",
                                                  {tk_sequence,
                                                   {tk_struct,
                                                    "IDL:omg.org/CosNotification/Property:1.0",
                                                    "Property",
                                                    [{"name",{tk_string,0}},
                                                     {"value",tk_any}]},
                                                   0}},
                                                 {"remainder_of_body",
                                                  tk_any}]},
                                               0}), 'OP_NORMAL', [#parameterdescription{name="max_number", type=tk_long, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, tk_long), mode='PARAM_IN'}
], [orber_ifr:lookup_id(OE_IFR,"IDL:omg.org/CosEventComm/Disconnected:1.0")], []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_14, "IDL:omg.org/CosNotifyComm/SequencePullSupplier/try_pull_structured_events:1.0", "try_pull_structured_events", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_sequence,
                                               {tk_struct,
                                                "IDL:omg.org/CosNotification/StructuredEvent:1.0",
                                                "StructuredEvent",
                                                [{"header",
                                                  {tk_struct,
                                                   "IDL:omg.org/CosNotification/EventHeader:1.0",
                                                   "EventHeader",
                                                   [{"fixed_header",
                                                     {tk_struct,
                                                      "IDL:omg.org/CosNotification/FixedEventHeader:1.0",
                                                      "FixedEventHeader",
                                                      [{"event_type",
                                                        {tk_struct,
                                                         "IDL:omg.org/CosNotification/EventType:1.0",
                                                         "EventType",
                                                         [{"domain_name",
                                                           {tk_string,0}},
                                                          {"type_name",
                                                           {tk_string,0}}]}},
                                                       {"event_name",
                                                        {tk_string,0}}]}},
                                                    {"variable_header",
                                                     {tk_sequence,
                                                      {tk_struct,
                                                       "IDL:omg.org/CosNotification/Property:1.0",
                                                       "Property",
                                                       [{"name",{tk_string,0}},
                                                        {"value",tk_any}]},
                                                      0}}]}},
                                                 {"filterable_data",
                                                  {tk_sequence,
                                                   {tk_struct,
                                                    "IDL:omg.org/CosNotification/Property:1.0",
                                                    "Property",
                                                    [{"name",{tk_string,0}},
                                                     {"value",tk_any}]},
                                                   0}},
                                                 {"remainder_of_body",
                                                  tk_any}]},
                                               0}), 'OP_NORMAL', [#parameterdescription{name="has_event", type=tk_boolean, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, tk_boolean), mode='PARAM_OUT'}
, #parameterdescription{name="max_number", type=tk_long, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, tk_long), mode='PARAM_IN'}
], [orber_ifr:lookup_id(OE_IFR,"IDL:omg.org/CosEventComm/Disconnected:1.0")], []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_14, "IDL:omg.org/CosNotifyComm/SequencePullSupplier/disconnect_sequence_pull_supplier:1.0", "disconnect_sequence_pull_supplier", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_void), 'OP_NORMAL', [], [], []),

    _OE_15 = orber_ifr:'ModuleDef_create_interface'(_OE_1, "IDL:omg.org/CosNotifyComm/SequencePushSupplier:1.0", "SequencePushSupplier", "1.0", [orber_ifr:lookup_id(OE_IFR,"IDL:omg.org/CosNotifyComm/NotifySubscribe:1.0")]),

    orber_ifr:'InterfaceDef_create_operation'(_OE_15, "IDL:omg.org/CosNotifyComm/SequencePushSupplier/disconnect_sequence_push_supplier:1.0", "disconnect_sequence_push_supplier", "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/CosNotifyComm/InvalidEventType:1.0") of
    []  ->
      true;
    _ ->
      exit({allready_registered,"IDL:omg.org/CosNotifyComm/InvalidEventType:1.0"})
 end.


%% IFR registration checks for included idl files.
include_reg_test(OE_IFR) ->
  case orber_ifr:'Repository_lookup_id'(OE_IFR,"IDL:omg.org/CosEventComm:1.0") of
    [] ->
      exit({unregistered,"IDL:omg.org/CosEventComm:1.0"});
    _  ->
      true
  end,
  case orber_ifr:'Repository_lookup_id'(OE_IFR,"IDL:omg.org/CosEventChannelAdmin:1.0") of
    [] ->
      exit({unregistered,"IDL:omg.org/CosEventChannelAdmin:1.0"});
    _  ->
      true
  end,
  case orber_ifr:'Repository_lookup_id'(OE_IFR,"IDL:omg.org/CosNotification:1.0") of
    [] ->
      exit({unregistered,"IDL:omg.org/CosNotification:1.0"});
    _  ->
      true
  end,
  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/CosNotifyComm/SequencePushSupplier:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/SequencePullSupplier:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/SequencePullConsumer:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/SequencePushConsumer:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/StructuredPushSupplier:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/StructuredPullSupplier:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/StructuredPullConsumer:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/StructuredPushConsumer:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/PushSupplier:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/PullSupplier:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/PullConsumer:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/PushConsumer:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/NotifySubscribe:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/NotifyPublish:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosNotifyComm/InvalidEventType:1.0"),
    oe_destroy_if_empty(OE_IFR, "IDL:omg.org/CosNotifyComm: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() ->

    {"/ldisk/daily_build/otp_prebuild_r11b.2007-06-11_19/otp_src_R11B-5/lib/cosNotification/src/CosNotifyComm.idl",
     ["/ldisk/daily_build/otp_prebuild_r11b.2007-06-11_19/otp_src_R11B-5/lib/cosEvent/src/CosEventComm.idl",
      "/ldisk/daily_build/otp_prebuild_r11b.2007-06-11_19/otp_src_R11B-5/lib/cosEvent/src/CosEventChannelAdmin.idl",
      "CosNotification.idl"]}.