#!/bin/sh
# $Id: irserv 1206 2006-05-31 07:11:53Z rvosa $
#
# Simple script to allow MICO's ird program (Interface Repository daemon)
# to be used by idl2perl in place of the Orbacus irserv.
#
# The irior program is built from irior.cc and the MICO libraries.
# It writes the IR's IOR to standard output.
#
# This is made a little complex by the need to pass all but the first
# ('--ior') and the last (IDL file name) arguments to ird.
# These arguments are expected to be options that follow a '--''
# argument to idl2perl.

eval cp '$'$# /tmp/$$.idl
shift				# Drop '--ior'
f=$1
shift
while [ "$1" != '' ]
do
    args=$args' "'$f'"'
    f=$1
    shift
done
irior 9876 &
eval exec ird --db /tmp/$$ -ORBIIOPAddr inet:localhost:9876 $args