1%%-------------------------------------------------------------------- 2%% 3%% %CopyrightBegin% 4%% 5%% Copyright Ericsson AB 1997-2016. All Rights Reserved. 6%% 7%% Licensed under the Apache License, Version 2.0 (the "License"); 8%% you may not use this file except in compliance with the License. 9%% You may obtain a copy of the License at 10%% 11%% http://www.apache.org/licenses/LICENSE-2.0 12%% 13%% Unless required by applicable law or agreed to in writing, software 14%% distributed under the License is distributed on an "AS IS" BASIS, 15%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 16%% See the License for the specific language governing permissions and 17%% limitations under the License. 18%% 19%% %CopyrightEnd% 20%% 21%% 22%%----------------------------------------------------------------- 23%% StackModule_StackFactory_impl example file. 24 25-module('StackModule_StackFactory_impl'). 26-include_lib("orber/include/corba.hrl"). 27-export([create_stack/1, destroy_stack/2, init/1, terminate/2]). 28 29 30init(_Env) -> 31 {ok, []}. 32 33terminate(_From, _Reason) -> 34 ok. 35 36create_stack(State) -> 37 %% Just a create we don't want a link. 38 {reply, 'StackModule_Stack':oe_create(), State}. 39 40destroy_stack(State, Stack) -> 41 {reply, corba:dispose(Stack), State}. 42