1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 1998-2009. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
%%
-module(iiop_module_test_impl).
-include_lib("orber/include/corba.hrl").
-include("idl_output/iiop_module.hrl").
-export([send_void/1, send_short/3, send_ushort/3]).
-export([send_long/3, send_ulong/3, send_float/3]).
-export([send_double/3, send_boolean/3, send_char/3]).
-export([send_octet/3, send_any/3, send_object/3]).
-export([send_struct1/3, send_union1/3, send_enum1/3]).
-export([send_string/3, send_sequence1/3, send_array1/3]).
-export([ret_systemexception/1, ret_userexception/1]).
-export([start/0, stop/0]).
-export([init/1, terminate/2]).
init(_) ->
{ok, []}.
terminate(Reason, _State) ->
io:format("~p terminating with reason ~p~n", [?MODULE, Reason]),
ok.
start() ->
SFok = corba:create('iiop_module_test', "IDL:iiop_module/test:1.0"),
NS = corba:resolve_initial_references("NameService"),
NC1 = lname_component:set_id(lname_component:create(), "iiop_test"),
NC2 = lname_component:set_id(lname_component:create(), "erl_test"),
N = lname:insert_component(lname:create(), 1, NC1),
N1 = lname:insert_component(N, 2, NC2),
'CosNaming_NamingContext':bind(NS, N1, SFok),
SFok.
stop() ->
NS = corba:resolve_initial_references("NameService"),
NC1 = lname_component:set_id(lname_component:create(), "iiop_test"),
NC2 = lname_component:set_id(lname_component:create(), "erl_test"),
N = lname:insert_component(lname:create(), 1, NC1),
N1 = lname:insert_component(N, 2, NC2),
'CosNaming_NamingContext':unbind(NS, N1).
send_void(S) ->
{ok, S}.
send_short(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_ushort(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_long(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_ulong(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_float(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_double(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_boolean(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_char(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_octet(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_any(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_object(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_struct1(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_union1(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_enum1(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_string(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_sequence1(S, P1, P2) ->
{{P1, P1, P2}, S}.
send_array1(S, P1, P2) ->
{{P1, P1, P2}, S}.
ret_systemexception(S) ->
throw(#'BAD_PARAM'{}),
{ok, S}.
ret_userexception(S) ->
throw(#iiop_module_Except1{why="not readable",rest_of_name=["foo", "bar"]}),
{ok, S}.
|
