diff options
Diffstat (limited to 'lib/orber/examples/Stack/stack_factory.erl')
| -rw-r--r-- | lib/orber/examples/Stack/stack_factory.erl | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/lib/orber/examples/Stack/stack_factory.erl b/lib/orber/examples/Stack/stack_factory.erl new file mode 100644 index 0000000000..2f09b18fc4 --- /dev/null +++ b/lib/orber/examples/Stack/stack_factory.erl @@ -0,0 +1,37 @@ +%%-------------------------------------------------------------------- +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 1997-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% +%% +%% +%%----------------------------------------------------------------- +%% stack_factory example file. + +-module('stack_factory'). +-include_lib("orber/include/corba.hrl"). +-include_lib("orber/COSS/CosNaming/CosNaming.hrl"). +-include_lib("orber/COSS/CosNaming/lname.hrl"). + +-export([start/0]). + +start() -> + SFok = 'StackModule_StackFactory':oe_create(), + NS = corba:resolve_initial_references("NameService"), + NC = lname_component:set_id(lname_component:create(), "StackFactory"), + N = lname:insert_component(lname:create(), 1, NC), + 'CosNaming_NamingContext':bind(NS, N, SFok). + |