oe_cosfiletransfer.erl

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

                                                 {"file_type",
                                                  {tk_enum,
                                                   "IDL:omg.org/CosFileTransfer/FileType:1.0",
                                                   "FileType",
                                                   ["nfile","ndirectory"]}}]},
                                               0}), 'OP_NORMAL', [#parameterdescription{name="parent", type={tk_objref,
                                           "IDL:omg.org/CosFileTransfer/Directory:1.0",
                                           "Directory"}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_objref,
                                               "IDL:omg.org/CosFileTransfer/Directory:1.0",
                                               "Directory"}), mode='PARAM_IN'}
, #parameterdescription{name="complete_file_name", type={tk_sequence,
                                                       {tk_string,0},
                                                       0}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_sequence,{tk_string,0},0}), mode='PARAM_IN'}
], [], []),

    orber_ifr:'InterfaceDef_create_operation'(_OE_5, "IDL:omg.org/CosFileTransfer/FileTransferSession/oe_orber_count_children:1.0", "oe_orber_count_children", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, tk_long), 'OP_NORMAL', [#parameterdescription{name="complete_file_name", type={tk_sequence,
                                                       {tk_string,0},
                                                       0}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_sequence,{tk_string,0},0}), mode='PARAM_IN'}
], [], []),

    _OE_6 = orber_ifr:'ModuleDef_create_interface'(_OE_1, "IDL:omg.org/CosFileTransfer/VirtualFileSystem:1.0", "VirtualFileSystem", "1.0", []),

    orber_ifr:'InterfaceDef_create_enum'(_OE_6, "IDL:omg.org/CosFileTransfer/VirtualFileSystem/NativeFileSystemType:1.0", "NativeFileSystemType", "1.0", ["FTAM","FTP","NATIVE"]),

    orber_ifr:'InterfaceDef_create_attribute'(_OE_6, "IDL:omg.org/CosFileTransfer/VirtualFileSystem/file_system_type:1.0", "file_system_type", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_enum,
                                               "IDL:omg.org/CosFileTransfer/VirtualFileSystem/NativeFileSystemType:1.0",
                                               "NativeFileSystemType",
                                               ["FTAM","FTP","NATIVE"]}), 'ATTR_READONLY'),

    orber_ifr:'InterfaceDef_create_alias'(_OE_6, "IDL:omg.org/CosFileTransfer/VirtualFileSystem/ContentList:1.0", "ContentList", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_sequence,tk_long,0})),

    orber_ifr:'InterfaceDef_create_attribute'(_OE_6, "IDL:omg.org/CosFileTransfer/VirtualFileSystem/supported_content_types:1.0", "supported_content_types", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_sequence,tk_long,0}), 'ATTR_READONLY'),

    orber_ifr:'InterfaceDef_create_operation'(_OE_6, "IDL:omg.org/CosFileTransfer/VirtualFileSystem/login:1.0", "login", "1.0", orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_objref,
                                               "IDL:omg.org/CosFileTransfer/FileTransferSession:1.0",
                                               "FileTransferSession"}), 'OP_NORMAL', [#parameterdescription{name="root", type={tk_objref,
                                         "IDL:omg.org/CosFileTransfer/Directory:1.0",
                                         "Directory"}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_objref,
                                               "IDL:omg.org/CosFileTransfer/Directory:1.0",
                                               "Directory"}), mode='PARAM_OUT'}
, #parameterdescription{name="account", type={tk_string,0}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_string,0}), mode='PARAM_IN'}
, #parameterdescription{name="password", type={tk_string,0}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_string,0}), mode='PARAM_IN'}
, #parameterdescription{name="username", type={tk_string,0}, type_def=orber_ifr:'Repository_create_idltype'(OE_IFR, {tk_string,0}), mode='PARAM_IN'}
], [orber_ifr:lookup_id(OE_IFR,"IDL:omg.org/CosFileTransfer/IllegalOperationException:1.0"), orber_ifr:lookup_id(OE_IFR,"IDL:omg.org/CosFileTransfer/FileNotFoundException:1.0"), orber_ifr:lookup_id(OE_IFR,"IDL:omg.org/CosFileTransfer/SessionException:1.0")], []),

    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/CosFileTransfer/Istring:1.0") of
    []  ->
      true;
    _ ->
      exit({allready_registered,"IDL:omg.org/CosFileTransfer/Istring: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/CosPropertyService:1.0") of
    [] ->
      exit({unregistered,"IDL:omg.org/CosPropertyService: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/CosFileTransfer/VirtualFileSystem:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FileTransferSession:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FileIterator:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/Directory:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FileList:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FileWrapper:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FileType:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/File:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FileNameList:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FileName:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/SupportedProtocolAddresses:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/ProtocolSupport:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/ProtocolAddressList:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/AccessLevel:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/IllegalOperationException:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/RequestFailureException:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FileNotFoundException:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/TransferException:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/SessionException:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/CommandNotImplementedException:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/INTAP_1:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/NBS_9:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FTAM_5:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FTAM_4:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FTAM_3:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FTAM_2:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/FTAM_1:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/ContentType:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/ProtocolAddress:1.0"),
    oe_destroy(OE_IFR, "IDL:omg.org/CosFileTransfer/Istring:1.0"),
    oe_destroy_if_empty(OE_IFR, "IDL:omg.org/CosFileTransfer: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/cosFileTransfer/src/CosFileTransfer.idl",
     ["/ldisk/daily_build/otp_prebuild_r11b.2007-06-11_19/otp_src_R11B-5/lib/cosProperty/src/CosProperty.idl"]}.