#!/bin/sh
# 
# \
exec tclsh  "$0" ${1+"$@"}

package require Itcl
package require combat

source beispiel_impl.tcl
source beispiel.tcl

# Initialisiere CORBA
puts "Initalisiere CORBA"
::corba::init $argv
::combat::ir add $_ir_beispiel

# POA verbindet Servant und ORB
puts  "Starte POA"
set poa [::corba::resolve_initial_references RootPOA]
set mgr [$poa the_POAManager]
$mgr activate

# Erzeugen des Servants und Aktivieren
set servant [Beispiel #auto 42]
puts "Servant $servant"
set obj [$servant _this]

# Ausgabe der IOR
puts "Objektreferenz als IOR in server.ior"
set fd [open server.ior w]
puts $fd [::corba::object_to_string $obj]
close $fd

vwait forever