/*
 *  MICO --- an Open Source CORBA implementation
 *  Copyright (c) 1997-2006 by The Mico Team
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 *  For more information, visit the MICO Home Page at
 *  http://www.mico.org/
 */

#ifdef FAST_PCH
#include "idl_pch.h"
#endif // FAST_PCH
#ifdef __COMO__
#pragma hdrstop
#endif // __COMO__

#ifndef FAST_PCH

#include <CORBA.h>
#ifdef HAVE_ANSI_CPLUSPLUS_HEADERS
#include <fstream>
#include <sstream>
#else
#include <fstream.h>
#include <strstream.h>
#endif
#include <ctype.h>
#include <stdio.h>
#include "codegen-midl.h"

// header for GUIDS
#if defined(_WIN32) && !defined(__MINGW32__)
#include<objbase.h>
#endif

#endif // FAST_PCH


using namespace std;

static const char *midl_copyright[] = {
  "/*",
  " *  MICO --- an Open Source CORBA implementation",
  " *  Copyright (c) 1997-2001 by The Mico Team",
  " *",
  " *  MIDL generator by Massimo Di Giorgio",
  " *",
  " *",
  " *  This file was automatically generated. DO NOT EDIT!",
  " */"
};

const int midl_copyright_size = sizeof( midl_copyright ) / sizeof( char * );


CodeGenMIDL::CodeGenMIDL( DB &db, CORBA::Container_ptr con, bool emit_repoids )
  : CodeGen( con )
{
  _emit_repoids = emit_repoids;
}


void CodeGenMIDL::emit( string &fnbase )
{
  string fn = fnbase + ".midl";
  
  ofstream file( fn.c_str() );

  for( int i = 0; i < midl_copyright_size; i++ )
    file << midl_copyright[ i ] << endl;
  
  file << endl;
  o.start_output( file );
  emitHeader();
  emitIDL();
  //afxTypeLib
  emitTypeLib(fnbase);
  o.stop_output();
}

string CodeGenMIDL::emit( CORBA::IRObject_ptr obj )
{
#ifdef HAVE_ANSI_CPLUSPLUS_HEADERS
  ostringstream idl;
#else
  ostrstream idl;
#endif

  CORBA::Contained_var contained = CORBA::Contained::_narrow( obj );
  if( !CORBA::is_nil( contained ) ) {
    CORBA::String_var id = contained->id();
    idl << "/*" << endl;
    idl << " * " << id.in() << endl;
    idl << " */" << endl << endl;
  }
  
  o.start_output( idl );
    
  switch( obj->def_kind() ) {
  case CORBA::dk_Module:
    {
      assert( 0 );
#if 0
      CORBA::ModuleDef_var m = CORBA::ModuleDef::_narrow( obj );
      emitIDLModule( m );
#endif
      break;
    }
  case CORBA::dk_Interface:
    {
      CORBA::InterfaceDef_var in =
	CORBA::InterfaceDef::_narrow( obj );
      emitIDLInterface( in );
      break;
    }
  case CORBA::dk_Operation:
    {
      CORBA::OperationDef_var op = CORBA::OperationDef::_narrow (obj);
      emitOperation( op );
      break;
    }
  case CORBA::dk_Attribute:
    {
      CORBA::AttributeDef_var attr = CORBA::AttributeDef::_narrow (obj);
      emitAttribute( attr );
      break;
    }
  case CORBA::dk_Struct:
    {
      CORBA::StructDef_var s = CORBA::StructDef::_narrow( obj );
      emitIDLStruct( s );
      break;
    }
  case CORBA::dk_Union:
    {
      CORBA::UnionDef_var u = CORBA::UnionDef::_narrow( obj );
      emitIDLUnion( u );
      break;
    }
  case CORBA::dk_Constant:
    {
      CORBA::ConstantDef_var co = CORBA::ConstantDef::_narrow( obj );
      emitIDLConstant( co );
      break;
    }
  case CORBA::dk_Exception:
    {
      CORBA::ExceptionDef_var e = CORBA::ExceptionDef::_narrow( obj );
      //emitIDLException( e );
      cerr << "no translation for Exception : " << e->name() << endl;
      break;
    }
  case CORBA::dk_Enum:
    {
      CORBA::EnumDef_var e = CORBA::EnumDef::_narrow( obj );
      emitIDLEnum( e );
      break;
    }
  case CORBA::dk_Alias:
    {
      CORBA::AliasDef_var a = CORBA::AliasDef::_narrow( obj );
      emitIDLAlias( a );
      break;
    }
  case CORBA::dk_Native:
    {
      CORBA::NativeDef_var n = CORBA::NativeDef::_narrow( obj );
      //emitIDLNative( n );
      cerr << "no translation for Native : " << n->name() << endl;
      break;
    }
  case CORBA::dk_Value:
    {
      CORBA::ValueDef_var v = CORBA::ValueDef::_narrow( obj );
      //emitIDLValue( v );
      cerr << "no translation for Value : " << v->name() << endl;
      break;
    }
  case CORBA::dk_ValueBox:
    {
      CORBA::ValueBoxDef_var v = CORBA::ValueBoxDef::_narrow( obj );
      //emitIDLValueBox( v );
      cerr << "no translation for ValueBox : " << v->name() << endl;
      break;
    }
  case CORBA::dk_ValueMember:
    {
      CORBA::ValueMemberDef_var v = CORBA::ValueMemberDef::_narrow( obj );
      //emitValueMember( v );
      cerr << "no translation for ValueMember : " << v->name() << endl;
      break;
    }

  default:
    assert( 0 );
  }
  o.stop_output();
#ifdef HAVE_ANSI_CPLUSPLUS_HEADERS
  string result = idl.str();
#else
  idl << ends;
  string result = idl.str();
  idl.rdbuf()->freeze( 0 );
#endif
  return result;
}

void CodeGenMIDL::enter_scope( CORBA::Container_ptr c )
{
  vector<CORBA::Contained_var> trace_current_scope;
  vector<CORBA::Contained_var> trace_new_scope;
  CORBA::Container_var         scope;
  bool                         nl;
  
  scope = _current_scope;
  while( scope->def_kind() != CORBA::dk_Repository ) {
    CORBA::Contained_ptr scope_contained = CORBA::Contained::_narrow( scope );
    assert( !CORBA::is_nil( scope_contained ) );
    trace_current_scope.insert( trace_current_scope.begin(), scope_contained );
    scope = scope_contained->defined_in();
  }
  
  scope = CORBA::Container::_duplicate( c );
  while( scope->def_kind() != CORBA::dk_Repository ) {
    CORBA::Contained_ptr scope_contained = CORBA::Contained::_narrow( scope );
    assert( !CORBA::is_nil( scope_contained ) );
    trace_new_scope.insert( trace_new_scope.begin(), scope_contained );
    scope = scope_contained->defined_in();
  }
  
  vector<CORBA::Contained_var>::iterator i, j;
  for( i = trace_current_scope.begin(), j = trace_new_scope.begin();
       i != trace_current_scope.end() && j != trace_new_scope.end() &&
	 (*i)->_is_equivalent( *j );
       i++, j++ ) ;
  
  nl = false;
  while( i != trace_current_scope.end() ) {
    //o << BL_CLOSE_SEMI;
    //nl = true;
    i++;
  }
  if( nl )
    o << endl << endl;

  nl = false;
  while( j != trace_new_scope.end() ) {
    emit_repoid( *j );
    //o << "module ";
    //CORBA::Identifier_var name = (*j)->name();
    //o << name << " " << BL_OPEN;
    //nl = true;
    j++;
  }
  if( nl )
    o << endl;
  
  _current_scope = CORBA::Container::_duplicate( c );
}

void CodeGenMIDL::emit_repoid( CORBA::Contained_ptr c )
{
  if( !_emit_repoids )
    return;
  CORBA::String_var name = c->name();
  CORBA::String_var repoid = c->id();
  //o << "#pragma ID " << name << " \"" << repoid << "\"" << endl;
  cerr << "repoid ignored : " << name << endl;
}

void CodeGenMIDL::emitAttribute( CORBA::AttributeDef_ptr attr )
{
  //if( attr->mode() == CORBA::ATTR_READONLY )
  //  o << "readonly ";
  //o << "attribute ";
  CORBA::IDLType_var type_id = attr->type_def();
  //emit_idl_type( type_id );
  CORBA::String_var n = attr->name();
  //o << " " << n << ";" << endl;

  // propget
  o << "[propget] HRESULT " << n << "([out, retval] ";
  emit_idl_type( type_id );
  o << " *";
  if (_lun_string_bound != 0) { 
    //o << " (* " << n << ") [" << _lun_string_bound << "]);" << endl;
    o << " (* " << "pRetVal" << ") [" << _lun_string_bound << "]);" << endl;
    _lun_string_bound = _lun_string_bound;
  }
  else { 
    if (type_id->def_kind() == CORBA::dk_Interface)
    //if (Is_Interface(type_id))
      //o << "* " << n << ");" << endl;
      o << "* " << "ppRetVal" << ");" << endl;
    else
      //o << " " << n << ");" << endl;
      o << " " << "pRetVal" << ");" << endl;
  }

  // propput
  if( attr->mode() != CORBA::ATTR_READONLY ) {
    o << "[propput] HRESULT " << n << "([in] ";
    emit_idl_type( type_id );
    if (_lun_string_bound != 0) { 
      //o << " (* " << n << ") [" << _lun_string_bound << "]);" << endl;
      o << " (* " << "NewVal" << ") [" << _lun_string_bound << "]);" << endl;
      _lun_string_bound = 0;
    }
    else {
      if (type_id->def_kind() == CORBA::dk_Interface)
      //if (Is_Interface(type_id))
        //o << "* " << n << ");" << endl;
        o << "* " << "pNewVal" << ");" << endl;
      else
        //o << " " << n << ");" << endl;
        o << " " << "NewVal" << ");" << endl;
    }
  }

  _lun_string_bound = 0;
}

void CodeGenMIDL::emitOperation( CORBA::OperationDef_ptr op )
{
  //if( op->mode() == CORBA::OP_ONEWAY )
  //  o << "oneway ";
  o << "HRESULT";
  CORBA::IDLType_var type_id = op->result_def();
  //emit_idl_type( type_id );
  CORBA::String_var n = op->name();
  o << " " << n << "(";
  CORBA::ParDescriptionSeq_var p = op->params();
  CORBA::ULong k;
  for( k = 0; k < p->length(); k++ ) {
    if( k != 0 )
      o << "," << endl << " ";
    o << " ";
    switch( p[ k ].mode ) {
    case CORBA::PARAM_IN:
      o << "[in] ";
      break;
    case CORBA::PARAM_OUT:
      o << "[out] ";
      break;
    case CORBA::PARAM_INOUT:
      o << "[in, out] ";
      break;
    default:
      assert( 0 );
    }
    emit_idl_type( p[ k ].type_def );
    if ((p[k].mode == CORBA::PARAM_OUT) || (p[k].mode == CORBA::PARAM_INOUT))
      o << "*";
    if (_lun_string_bound != 0)
      o << "(* ";
    if (p[ k ].type_def->def_kind() == CORBA::dk_Interface)
    //if (Is_Interface(p[k].type_def))
      o << "*";
    o << " " << p[ k ].name;

    if (_lun_string_bound != 0) { 
      o << ") [" << _lun_string_bound << "]";
      _lun_string_bound = 0;
    }

  }
  if( k != 0 )
    o << " ";
  CORBA::TypeCode_var tc_v = type_id->type();
  if (tc_v->kind() != CORBA::tk_void) {
    if (p->length() != 0)
      o << "," << endl << "  ";
    o << "[out, retval] ";
    emit_idl_type( type_id );
    o << " *";
    if (_lun_string_bound != 0)
      o << "(* ";
    if (type_id->def_kind() == CORBA::dk_Interface)
    //if (Is_Interface(type_id))
      o << "*ppIRetVal";
    else
      o << "pRetVal";
    if (_lun_string_bound != 0) { 
      o << ") [" << _lun_string_bound << "]";
      _lun_string_bound = 0;
    }
  }
  o << ")" << indent;
  _lun_string_bound = 0;
  
  CORBA::ExceptionDefSeq_var exs = op->exceptions();
  if( exs->length() > 0 ) {
    cerr << "no translation for Exception!" << endl;
    //o << endl;
    //o << "raises( ";
    //for( CORBA::ULong i = 0; i < exs->length(); i++ ) {
    //  if( i != 0 )
    //	o << ", ";
    //  CORBA::Contained_var c = _repo->lookup_id( exs[ i ]->id() );
    //  assert( !CORBA::is_nil( c ) );
    //  CORBA::String_var abs_name = c->absolute_name();
    //  o << abs_name;
    //}
    //o << " )";
  }
  CORBA::ContextIdSeq_var ctx = op->contexts();
  if( ctx->length() > 0 ) {
    cerr << "no translation for context clauses!" << endl;
    //o << endl;
    //o << "context( ";
    //for( CORBA::ULong i = 0; i < ctx->length(); i++ ) {
    //  if( i != 0 )
    //	o << ", ";
    //  o << "\"" << ctx[ i ] << "\"";
    //}
    //o << " )";
  }
  o << exdent << ";" << endl;
}

void
CodeGenMIDL::emitValueMember( CORBA::ValueMemberDef_ptr vmd )
{
  if ( vmd->access() == CORBA::PRIVATE_MEMBER ) {
    o << "private ";
  }
  else {
    o << "public ";
  }

  CORBA::IDLType_var type_id = vmd->type_def();
  emit_idl_type( type_id );
  CORBA::String_var n = vmd->name();
  o << " " << n;
  emit_array_suffix (type_id);
  o << ";" << endl;
}

void CodeGenMIDL::emitPrototypes( CORBA::Container_ptr in )
{
  CORBA::ContainedSeq_var c;

  // Emit operations
  c = in->contents (CORBA::dk_Operation, 1);

  // Sort
  CORBA::ULong* v = new CORBA::ULong[c->length()];
  SortName(c, v, c->length());
  
  for( CORBA::ULong i1 = 0; i1 < c->length(); i1++ ) {
    CORBA::OperationDef_var op = CORBA::OperationDef::_narrow(c[v[i1]]);
    assert (!CORBA::is_nil(op));
    emitOperation( op );
  }

  delete v;

  // Emit attributes
  c = in->contents (CORBA::dk_Attribute, 1);

  // Sort
  v = new CORBA::ULong[c->length()];
  SortName(c, v, c->length());
 
  for( CORBA::ULong i0 = 0; i0 < c->length(); i0++ ) {
    CORBA::AttributeDef_var attr = CORBA::AttributeDef::_narrow(c[v[i0]]);
    assert (!CORBA::is_nil(attr));
    emitAttribute( attr );
  }

  delete v;

  // Emit value state
  c = in->contents (CORBA::dk_ValueMember, 1);
  for( CORBA::ULong i2 = 0; i2 < c->length(); i2++ ) {
    CORBA::ValueMemberDef_var vmd = CORBA::ValueMemberDef::_narrow(c[i2]);
    assert (!CORBA::is_nil(vmd));
    //emitValueMember( vmd );
    cerr << "no translation for ValueMember : " << vmd->name() << endl;
  }
}

void CodeGenMIDL::emitLocal( CORBA::Contained_ptr con,
			    bool emit_semicolon )
{
  emit_repoid( con );
  switch( con->def_kind() ) {
  case CORBA::dk_Operation:
  case CORBA::dk_Attribute:
  case CORBA::dk_ValueMember:
    // Operation & attribute declarations are generated in emitPrototypes()
    break;
  case CORBA::dk_Struct:
    {
      CORBA::StructDef_var s = CORBA::StructDef::_narrow( con );
      emitIDLStruct( s, emit_semicolon );
      break;
    }
  case CORBA::dk_Union:
    {
      CORBA::UnionDef_var u = CORBA::UnionDef::_narrow( con );
      emitIDLUnion( u, emit_semicolon );
      break;
    }
  case CORBA::dk_Constant:
    {
      CORBA::ConstantDef_var co = CORBA::ConstantDef::_narrow( con );
      emitIDLConstant( co );
      break;
    }
  case CORBA::dk_Exception:
    {
      CORBA::ExceptionDef_var e = CORBA::ExceptionDef::_narrow( con );
      //emitIDLException( e );
      cerr << "no translation for Exception : " << e->name() << endl;
      break;
    }
  case CORBA::dk_Enum:
    {
      CORBA::EnumDef_var e = CORBA::EnumDef::_narrow( con );
      emitIDLEnum( e, emit_semicolon );
      break;
    }
  case CORBA::dk_Alias:
    {
      CORBA::AliasDef_var a = CORBA::AliasDef::_narrow( con );
      emitIDLAlias( a );
      break;
    }
  case CORBA::dk_Native:
    {
      CORBA::NativeDef_var n = CORBA::NativeDef::_narrow( con );
      //emitIDLNative( n );
      cerr << "no translation for Native : " << n->name() << endl;
      break;
    }
  case CORBA::dk_Value:
    {
      CORBA::ValueDef_var v = CORBA::ValueDef::_narrow( con );
      //emitIDLValue( v );
      cerr << "no translation for Value : " << v->name() << endl;
      break;
    }
  case CORBA::dk_ValueBox:
    {
      CORBA::ValueBoxDef_var v = CORBA::ValueBoxDef::_narrow( con );
      //emitIDLValueBox( v );
      cerr << "no translation for ValueBox : " << v->name() << endl;
      break;
    }
  default:
    assert( 0 );
  }
}

void CodeGenMIDL::emitLocalDecls( CORBA::Container_ptr in )
{
  CORBA::ContainedSeq_var c;
  c = in->contents( CORBA::dk_all, 1 );
  for( CORBA::ULong i = 0; i < c->length(); i++ ) {
    emitLocal (c[i]);
  }
}

void CodeGenMIDL::emitForwardDcl( CORBA::Container_ptr c )
{
  if (c->def_kind() == CORBA::dk_Interface) {
    CORBA::InterfaceDef_var in = CORBA::InterfaceDef::_narrow (c);
    CORBA::String_var name = in->name();
    CORBA::String_var midl_name = midl_absolute_name(in->absolute_name());
    //o << "interface " << name << ";" << endl << endl;
    o << "interface " << midl_name << ";" << endl << endl;
  }
  else {
    assert (0);
  }
}

void CodeGenMIDL::emitIDL()
{
  assert(!CORBA::is_nil(_container));

  _current_scope = CORBA::Container::_duplicate( _container );
  
  for( CORBA::ULong i = 0; i < _idl_objs.length(); i++ ) {

    CORBA::Contained_var c = CORBA::Contained::_narrow( _idl_objs[ i ]->obj );
    if( !CORBA::is_nil( c ) ) {
      CORBA::Container_var new_scope = c->defined_in();
      enter_scope( new_scope );
      
      emit_repoid( c );

      switch( c->def_kind() ) {
      case CORBA::dk_Interface:
	{
	  CORBA::InterfaceDef_var in = CORBA::InterfaceDef::_narrow( c );
	  if( _idl_objs[ i ]->iface_as_forward )
	    emitForwardDcl( in );
	  else
	    emitIDLInterface( in );
	  break;
	}
      case CORBA::dk_Operation:
	{
	  CORBA::OperationDef_var op = CORBA::OperationDef::_narrow (c);
	  emitOperation( op );
	  break;
	}
      case CORBA::dk_Struct:
	{
	  CORBA::StructDef_var s = CORBA::StructDef::_narrow( c );
	  emitIDLStruct( s );
	  break;
	}
      case CORBA::dk_Union:
	{
	  CORBA::UnionDef_var u = CORBA::UnionDef::_narrow( c );
	  emitIDLUnion( u );
	  break;
	}
      case CORBA::dk_Constant:
	{
	  CORBA::ConstantDef_var co = CORBA::ConstantDef::_narrow( c );
	  emitIDLConstant( co );
	  break;
	}
      case CORBA::dk_Exception:
	{
	  CORBA::ExceptionDef_var e = CORBA::ExceptionDef::_narrow( c );
	  //emitIDLException( e );
        cerr << "no translation for Exception : " << e->name() << endl;
	  break;
	}
      case CORBA::dk_Enum:
	{
	  CORBA::EnumDef_var e = CORBA::EnumDef::_narrow( c );
	  emitIDLEnum( e );
	  break;
	}
      case CORBA::dk_Alias:
	{
	  CORBA::AliasDef_var a = CORBA::AliasDef::_narrow( c );
	  emitIDLAlias( a );
	  break;
	}
      case CORBA::dk_Native:
	{
	  CORBA::NativeDef_var n = CORBA::NativeDef::_narrow( c );
	  //emitIDLNative( n );
        cerr << "no translation for Native : " << n->name() << endl;
	  break;
	}
      case CORBA::dk_Value:
	{
	  CORBA::ValueDef_var v = CORBA::ValueDef::_narrow( c );
	  if( _idl_objs[ i ]->iface_as_forward ) {
	    emitForwardDcl( v );
	  }
	  else {
	    //emitIDLValue( v );
          cerr << "no translation for Value : " << v->name() << endl;
	  }
	  break;
	}
      case CORBA::dk_ValueBox:
	{
	  CORBA::ValueBoxDef_var v = CORBA::ValueBoxDef::_narrow( c );
	  //emitIDLValueBox( v );
        cerr << "no translation for ValueBox : " << v->name() << endl;
	  break;
	}
      default:
	cout << c->def_kind() << endl;
	assert( 0 );
      }
    }
  }

  // Close open modules
  enter_scope( _container );
}

void CodeGenMIDL::emitIDLInterface( CORBA::InterfaceDef_ptr in )
{
  assert( in->def_kind() == CORBA::dk_Interface );
  CORBA::String_var n = in->name();
  string className = (const char *) n;
  CORBA::String_var midl_name = midl_absolute_name(in->absolute_name());

  emitInterfaceHeader();
  //afxTypeLib
  _coclasslist.insert(_coclasslist.end(),
		      CORBA::InterfaceDef::_duplicate(in)); 
  //o << "interface " << className << " : IUnknown" << endl;
  o << "interface I" << midl_name << " : IUnknown" << endl;
 
  //CORBA::InterfaceDefSeq_var bases = in->base_interfaces();
  //if( bases->length() != 0 ) {
  //  // This interface *has* base interfaces
  //  o << " :" << indent << endl;
  //  for( CORBA::ULong i = 0; i < bases->length(); i++ ) {
  //    CORBA::String_var base_name = bases[ i ]->absolute_name();
  //    o << base_name;
  //    if( i + 1 != bases->length() )
  //      o << ",";
  //    o << endl;
  //  }
  //  o << exdent;
  //} else
  //  o << endl;
  
  o << BL_OPEN;
  
  // Emit local declarations
  emitLocalDecls( in );
  
  // Generate prototypes
  emitPrototypes( in );

  o << BL_CLOSE_SEMI << endl;
}

void CodeGenMIDL::emitIDLStruct( CORBA::StructDef_ptr s, bool emit_semicolon )
{
  assert( s->def_kind() == CORBA::dk_Struct );

  vector<CORBA::IDLType_var> emitted_locals;
  CORBA::TypeCode_var tc = s->type();
  CORBA::String_var name = s->name();
  CORBA::String_var midl_name = midl_absolute_name(s->absolute_name());

  if (emit_semicolon)
    o << "typedef ";
  
  //o << "struct " << " _" << name << " " << BL_OPEN;
  o << "struct " << " _" << midl_name << " " << BL_OPEN;
  CORBA::StructMemberSeq_var m = s->members();
  for( CORBA::ULong i = 0; i < m->length(); i++ ) {
    /*
     * If the type is defined in the same scope (meaning that we are its
     * container), and it hasn't been printed yet, emit it here.
     */

    CORBA::Contained_var cv = CORBA::Contained::_narrow (m[i].type_def);
    CORBA::Container_var con = CORBA::Container::_nil();

    for (CORBA::ULong j=0; j<emitted_locals.size(); j++) {
      if (emitted_locals[j]->_is_equivalent (m[i].type_def)) {
	cv = CORBA::Contained::_nil(); // don't print it again
	break;
      }
    }

    if (!CORBA::is_nil (cv)) {
      con = cv->defined_in ();
    }

    if (s->_is_equivalent (con)) {
      emitted_locals.push_back (CORBA::IDLType::_duplicate (m[i].type_def));
      emitLocal( cv, false );
    }
    else {
      emit_idl_type( m[ i ].type_def );
    }

    o << " " << m[ i ].name;
    emit_array_suffix( m[ i ].type_def );
    o << ";" << endl;
  }
  o << exdent << "} "; // << name;
  if( emit_semicolon ) {
    //o << name << ";" << endl << endl;
    o << midl_name << ";" << endl << endl;
  }
}

void CodeGenMIDL::emitIDLUnion( CORBA::UnionDef_ptr u, bool emit_semicolon )
{
  assert( u->def_kind() == CORBA::dk_Union );

  vector<CORBA::IDLType_var> emitted_locals;
  CORBA::TypeCode_var tc = u->type();
  CORBA::String_var name = u->name();
  CORBA::String_var midl_name = midl_absolute_name(u->absolute_name());
  
  if (emit_semicolon)
    o << "typedef ";

  o << "union " << " switch( ";
  CORBA::IDLType_var discr = u->discriminator_type_def();
  emit_idl_type( discr );
  o << " DCE_d) " << BL_OPEN;
  CORBA::UnionMemberSeq_var m = u->members();
  tc = discr->type();

  for( CORBA::ULong i = 0; i < m->length(); i++ ) {
    CORBA::TypeCode_var label_tc = m[ i ].label.type();
    if( label_tc->is_octet() )
      o << "default:";
    else {
      o << "case ";
      if( tc->is_enum() ) {
	CORBA::String_var s;
	CORBA::ULong idx;
	CORBA::Boolean r = m[ i ].label.enum_get( idx );
	assert (r);
	s = (const char *) tc->unalias()->member_name( idx );
	o << s;
      } else
	o << &m[ i ].label;
      o << ":";
      if( i + 1 != m->length() &&
	  strcmp( m[ i ].name, m[ i + 1 ].name ) == 0 ) {
	o << endl;
	continue;
      }
    }

    /*
     * If the type is defined in the same scope (meaning that we are its
     * container), and it hasn't been printed yet, emit it here.
     */

    CORBA::Contained_var cv = CORBA::Contained::_narrow (m[i].type_def);
    CORBA::Container_var con = CORBA::Container::_nil();

    for (CORBA::ULong j=0; j<emitted_locals.size(); j++) {
      if (emitted_locals[j]->_is_equivalent (m[i].type_def)) {
	cv = CORBA::Contained::_nil(); // don't print it again
	break;
      }
    }

    if (!CORBA::is_nil (cv)) {
      con = cv->defined_in ();
    }

    o << indent << endl;
    if (u->_is_equivalent (con)) {
      emitted_locals.push_back (CORBA::IDLType::_duplicate (m[i].type_def));
      emitLocal( cv, false );
    }
    else {
      emit_idl_type( m[ i ].type_def );
    }

    o << " " << m[ i ].name;
    emit_array_suffix( m[ i ].type_def );
    o << ";" << exdent << endl;
  }
  o << exdent << "} "; // << name;
  if( emit_semicolon ) {
    //o << name << ";" << endl << endl;
    o << midl_name << ";" << endl << endl;  
  }
}

void CodeGenMIDL::emitIDLConstant( CORBA::ConstantDef_ptr c )
{
  assert( c->def_kind() == CORBA::dk_Constant );
  CORBA::String_var name = c->name();
  CORBA::String_var midl_name = midl_absolute_name(c->absolute_name());
  o << "const ";
  CORBA::IDLType_var type = c->type_def();
  CORBA::TypeCode_var tc = type->type();
  if( tc->kind() == CORBA::tk_fixed )
    o << "fixed";
  else
    emit_base_type( type );
  //o << " " << name << " = ";
  o << " " << midl_name << " = ";
  CORBA::Any* a = c->value();
  o << a;
  delete a;
  if( tc->kind() == CORBA::tk_fixed )
    o << "D";
  o << ";" << endl;
}

void CodeGenMIDL::emitIDLException( CORBA::ExceptionDef_ptr e )
{
  assert( e->def_kind() == CORBA::dk_Exception );

  vector<CORBA::IDLType_var> emitted_locals;
  CORBA::String_var name = e->name();
  
  o << "exception " << name << " " << BL_OPEN;
  CORBA::StructMemberSeq_var m = e->members();
  for( CORBA::ULong i = 0; i < m->length(); i++ ) {
    /*
     * If the type is defined in the same scope (meaning that we are its
     * container), and it hasn't been printed yet, emit it here.
     */

    CORBA::Contained_var cv = CORBA::Contained::_narrow (m[i].type_def);
    CORBA::Container_var con = CORBA::Container::_nil();

    for (CORBA::ULong j=0; j<emitted_locals.size(); j++) {
      if (emitted_locals[j]->_is_equivalent (m[i].type_def)) {
	cv = CORBA::Contained::_nil(); // don't print it again
	break;
      }
    }

    if (!CORBA::is_nil (cv)) {
      con = cv->defined_in ();
    }

    if (e->_is_equivalent (con)) {
      emitted_locals.push_back (CORBA::IDLType::_duplicate (m[i].type_def));
      emitLocal( cv, false );
    }
    else {
      emit_idl_type( m[ i ].type_def );
    }

    o << " " << m[ i ].name;
    emit_array_suffix( m[ i ].type_def );
    o << ";" << endl;
  }
  o << BL_CLOSE_SEMI << endl;
}

void CodeGenMIDL::emitIDLEnum( CORBA::EnumDef_ptr e, bool emit_semicolon )
{
  assert( e->def_kind() == CORBA::dk_Enum );

  CORBA::String_var name = e->name();
  CORBA::String_var midl_name = midl_absolute_name(e->absolute_name());
  //o << "typedef [v1_enum] " << "enum tag" << name << " " << BL_OPEN;
  o << "typedef [v1_enum] " << "enum tag" << midl_name << " " << BL_OPEN;

  CORBA::EnumMemberSeq_var m = e->members();
  
  for( CORBA::ULong i = 0; i < m->length(); i++ ) {
    if( i != 0 )
      o << "," << endl;
    o << m[ i ];
    if (i == 0)
      o << " = 0";
  }
  o << exdent << endl << "} " << midl_name;
  if( emit_semicolon )
    o << ";" << endl << endl;
}

void CodeGenMIDL::emitIDLAlias( CORBA::AliasDef_ptr a )
{
  assert( a->def_kind() == CORBA::dk_Alias );
  
  CORBA::IDLType_var orig = a->original_type_def();
  assert( !CORBA::is_nil( orig ) );
  
  CORBA::TypeCode_var orig_tc = orig->type();
  
  CORBA::String_var name = a->name();
  CORBA::String_var midl_name = midl_absolute_name(a->absolute_name());
  
  if( orig_tc->is_string() ) {
    //o << "typedef string " << name;
    //emit_array_suffix( orig );
    //o << ";" << endl << endl;

    if (orig_tc->kind() != CORBA::tk_alias) {
      o << "typedef [string, unique] char ";
      if (orig_tc->length() == 0)
        o << "* " << midl_name; //name;
      else
        o << "(* " << midl_name /*name*/ << ") " << "[" << orig_tc->length() << "]";
      o << ";" << endl;
    }
    else {
      CORBA::AliasDef_var alias = CORBA::AliasDef::_narrow( orig );
      assert( !CORBA::is_nil( alias ) );
      CORBA::String_var orig_name;
      orig_name = alias->name();//absolute_name();
      CORBA::String_var midl_orig_name;
      midl_orig_name = midl_absolute_name(alias->absolute_name());
      //o << "typedef " << orig_name << " " << name;
      o << "typedef " << midl_orig_name << " " << midl_name;
      emit_array_suffix( orig );
      o << ";" << endl;
    }
  
  } else if (orig_tc->is_wstring()) {
    //o << "typedef string " << name;
    //emit_array_suffix( orig );
    //o << ";" << endl << endl;

    if (orig_tc->kind() != CORBA::tk_alias) {
      o << "typedef [string, unique] wchar_t ";
      if (orig_tc->length() == 0)
        o << "* " << midl_name; //name;
      else
        o << "(* " << midl_name /*name*/ << ") " << "[" << orig_tc->length() << "]";
      o << ";" << endl;
    }
    else {
      CORBA::AliasDef_var alias = CORBA::AliasDef::_narrow( orig );
      assert( !CORBA::is_nil( alias ) );
      CORBA::String_var orig_name;
      orig_name = alias->name();//absolute_name();
      CORBA::String_var midl_orig_name;
      midl_orig_name = midl_absolute_name(alias->absolute_name());
      //o << "typedef " << orig_name << " " << name;
      o << "typedef " << midl_orig_name << " " << midl_name;
      emit_array_suffix( orig );
      o << ";" << endl;
    }

  } else if( orig_tc->is_objref() ) {
    CORBA::String_var abs_name;
    CORBA::String_var midl_abs_name;
    
    if( orig_tc->kind() == CORBA::tk_alias ) {
      // we have an alias of an alias
      CORBA::AliasDef_var alias = CORBA::AliasDef::_narrow( orig );
      assert( !CORBA::is_nil( alias ) );
      abs_name = alias->absolute_name();
      midl_abs_name = midl_absolute_name(alias->absolute_name());
    } else {
      // gotta be an interface
      assert( orig_tc->kind() == CORBA::tk_objref );
      CORBA::InterfaceDef_var in = CORBA::InterfaceDef::_narrow( orig );
      if( !CORBA::is_nil( in ) ) {
	  abs_name = in->absolute_name();
	  midl_abs_name = midl_absolute_name(in->absolute_name());
      }
      else {
	  //abs_name = (const char *) "Object";
	  //midl_abs_name = (const char *) "Object";
        midl_abs_name = (const char *) "IUnknown *";
      }
    }

    //o << "typedef " << abs_name << " " << name;
    o << "typedef "; // << midl_abs_name << " " << midl_name;
    if (orig->def_kind() == CORBA::dk_Interface) {
      o << "I";
      cerr << "warning: use only typedef of interface pointer " << endl;
      cerr << "trasformed to interface pointer : " << a->name() << endl;
    }
    //o << midl_abs_name << " " << midl_name;
    o << midl_abs_name;
    if (orig->def_kind() == CORBA::dk_Interface)
      o << "*";
    o << " " << midl_name;
    emit_array_suffix( orig );
    o << ";" << endl << endl;
  } else {
    o << "typedef ";
    emit_idl_type( orig );
    if (_lun_string_bound != 0)
      o << "(* ";       
    //o << " " << name;
    o << " " << midl_name;

    if (_lun_string_bound != 0) {
      o << ") [" << _lun_string_bound << "]";
      _lun_string_bound = 0;
      // non va bene nel caso di array
    }

    emit_array_suffix( orig );
    o << ";" << endl;
  }
  o << endl;
}

void
CodeGenMIDL::emitIDLNative( CORBA::NativeDef_ptr n )
{
  CORBA::String_var name = n->name();
  o << "native " << name << ";" << endl << endl;
}

void
CodeGenMIDL::emitIDLValue( CORBA::ValueDef_ptr v )
{
  CORBA::String_var n = v->name();

  if (v->is_abstract()) {
    o << "abstract ";
  }
  if (v->is_custom()) {
    o << "custom ";
  }
  o << "valuetype " << n;

  CORBA::ValueDef_var base_value = v->base_value();
  CORBA::ValueDefSeq_var abstract_base_values = v->abstract_base_values();
  CORBA::InterfaceDefSeq_var supported_interfaces = v->supported_interfaces();

  if (!CORBA::is_nil (base_value)) {
    o << " :" << indent << endl;
    if (v->is_truncatable()) {
      o << "truncatable ";
    }
    CORBA::String_var bn = base_value->absolute_name();
    o << bn;
  }

  if (abstract_base_values->length() > 0) {
    if (!CORBA::is_nil (base_value)) {
      o << ",";
    }
    else {
      o << " :" << indent << endl;
    }
    for( CORBA::ULong i=0; i<abstract_base_values->length(); i++ ) {
      CORBA::String_var bn = abstract_base_values[i]->absolute_name();
      o << endl << bn;
      if (i+1 != abstract_base_values->length()) {
	o << ",";
      }
    }
  }

  if (supported_interfaces->length() > 0) {
    if (!CORBA::is_nil (base_value) || abstract_base_values->length() > 0) {
      o << endl;
    }
    else {
      o << " ";
    }
    o << "supports";
    if (supported_interfaces->length() == 1) {
      o << " ";
    }
    else {
      o << endl;
    }
    for (CORBA::ULong i=0; i<supported_interfaces->length(); i++) {
      CORBA::String_var sn = supported_interfaces[i]->absolute_name();
      o << sn;
      if (i+1 != supported_interfaces->length()) {
	o << "," << endl;
      }
    }
  }

  if (!CORBA::is_nil (base_value) || abstract_base_values->length() > 0) {
    o << exdent;
  }

  o << endl << BL_OPEN;
  emitLocalDecls( v );

  // emit initializers
  CORBA::InitializerSeq_var initializers = v->initializers();
  for (CORBA::ULong i=0; i<initializers->length(); i++) {
    o << "init (";
    for (CORBA::ULong j=0; j<initializers[i].members.length(); j++) {
      if (j != 0) {
	o << ", ";
      }
      o << "in ";
      emit_idl_type( initializers[i].members[j].type_def );
      o << " " << initializers[i].members[j].name.in();
    }
    o << ");" << endl;
  }

  // emit prototypes
  emitPrototypes( v );
  o << BL_CLOSE_SEMI << endl;
}

void
CodeGenMIDL::emitIDLValueBox( CORBA::ValueBoxDef_ptr vb )
{
  CORBA::IDLType_var orig = vb->original_type_def();
  CORBA::String_var n = vb->name();
  o << "valuetype " << n << " ";
  emit_idl_type( orig );
  emit_array_suffix( orig );
  o << ";" << endl << endl;
}

void CodeGenMIDL::emit_idl_type_name( CORBA::IDLType_ptr t )
{
  CORBA::String_var tmp;
  string abs_name;
  CORBA::String_var midl_tmp;
  CORBA::String_var midl_abs_name;
  
  switch( t->def_kind() ) {
  case CORBA::dk_Struct:
  case CORBA::dk_Union:
  case CORBA::dk_Enum:
  case CORBA::dk_Alias:
  case CORBA::dk_Interface:
  case CORBA::dk_Value:
  case CORBA::dk_ValueBox:
    {
      CORBA::Contained_var con = CORBA::Contained::_narrow( t );
      tmp = con->absolute_name();
      midl_tmp = midl_absolute_name(con->absolute_name());
      abs_name = tmp;
      midl_abs_name = midl_tmp;
      break;
    }
  case CORBA::dk_Primitive:
    {
      CORBA::PrimitiveDef_var p = CORBA::PrimitiveDef::_narrow( t );
      if( p->kind() == CORBA::pk_any ) {
        //o << "any";
        cerr << "no translation for any!" << endl;
      }
      else if( p->kind() == CORBA::pk_objref ) {
	  //o << "Object";
        o << "IUnknown *";
      }
      else
	assert( 0 );
      return;
    }
  default:
    cout << t->def_kind() << endl;
    assert( 0 );
  }
  if( abs_name[ 0 ] == ':' )
    abs_name = abs_name.substr( 2 );
  if (t->def_kind() == CORBA::dk_Interface)
    o << "I";
  //o << (char *) abs_name.c_str();
  o << midl_abs_name;
}

void CodeGenMIDL::emit_array_suffix( CORBA::IDLType_ptr t )
{
  CORBA::TypeCode_var tc = t->type();
  assert( !CORBA::is_nil( tc ) );

  while( tc->kind() == CORBA::tk_array ) {
    o << "[ " << tc->length() << " ]";
    tc = tc->content_type();
  }
}

void CodeGenMIDL::emit_array( CORBA::IDLType_ptr type )
{
  assert( type->def_kind() == CORBA::dk_Array );
  CORBA::ArrayDef_var a;
  CORBA::IDLType_var idl_type = CORBA::IDLType::_duplicate( type );
  while( idl_type->def_kind() == CORBA::dk_Array ) {
    a = CORBA::ArrayDef::_narrow( idl_type );
    assert( !CORBA::is_nil( a ) );
    idl_type = a->element_type_def();
  }
  emit_idl_type( idl_type );
}

void CodeGenMIDL::emit_sequence( CORBA::IDLType_ptr type )
{
  assert( type->def_kind() == CORBA::dk_Sequence );
  CORBA::SequenceDef_var s = CORBA::SequenceDef::_narrow( type );
  CORBA::IDLType_var idl_type = s->element_type_def();
  
  // o << "sequence<";
  //emit_idl_type( idl_type );
  
  CORBA::ULong b = s->bound();
  //if( b > 0 )
  //  o << ", " << b;
  
  //o << " >";

  o << "struct " << BL_OPEN;

  if (b == 0) {
    o << "unsigned long cbMaxSize;" << endl;
    o << "unsigned long cbLengthUsed;" << endl;
    o << "[size_is(cbMaxSize), length_is(cbLengthUsed), unique]" << endl;
    o << "    ";

    // dati ricorsivi
    CORBA::String_var str = recursive_container(idl_type);
    o << str;

    emit_idl_type(idl_type);
    o << "* pValue;" << endl;
  }
  else {
    o << "unsigned long cbLengthUsed;" << endl;
    o << "[length_is(cbLengthUsed)]" << endl;
    o << "    ";
    emit_idl_type(idl_type);
    o << " Value[" << b << "];" << endl;
  }

  o << exdent << "} ";
}

void CodeGenMIDL::emit_idl_type( CORBA::IDLType_ptr t )
{
  CORBA::String_var tmp;
  CORBA::String_var midl_tmp;
  
  CORBA::TypeCode_var tc = t->type();
  assert( !CORBA::is_nil( tc ) );

  if( tc->is_alias() ) {
    emit_idl_type_name( t );
    return;
  }

  CORBA::PrimitiveDef_var prim = CORBA::PrimitiveDef::_narrow( t );
  if( !CORBA::is_nil( prim ) && prim->kind() == CORBA::pk_objref ) {
    //o << "Object";
    o << "IUnknown *";
    return;
  }
  else if (!CORBA::is_nil( prim ) && prim->kind() == CORBA::pk_value_base) {
    //o << "ValueBase";
    cerr << "no translation for ValueBase!" << endl;
    return;
  }

  // What about tk_abstract_interface?  
  if( tc->is_objref() ) {
    CORBA::InterfaceDef_var in = CORBA::InterfaceDef::_narrow( t );
    tmp = in->absolute_name();
    midl_tmp = midl_absolute_name(in->absolute_name());
    string abs_name;
    CORBA::String_var midl_abs_name;
    abs_name = tmp;
    midl_abs_name = midl_tmp;
    abs_name = abs_name.substr( 2 );
    //o << abs_name;
    o << "I" << midl_abs_name;
    return;
  }

  if( !emit_base_type( t ) ) {
    switch( tc->kind() ) {
    case CORBA::tk_objref:
    case CORBA::tk_struct:
    case CORBA::tk_union:
    case CORBA::tk_enum:
    case CORBA::tk_alias:
    case CORBA::tk_any:
    case CORBA::tk_value:
    case CORBA::tk_value_box:
      emit_idl_type_name( t );
      break;
    case CORBA::tk_sequence:
      emit_sequence( t );
      break;
    case CORBA::tk_array:
      emit_array( t );
      break;
    case CORBA::tk_TypeCode:
      //o << "TypeCode";
      cerr << "no translation for TypeCode!" << endl;
      break;
    case CORBA::tk_abstract_interface:
      cerr << "no translation for abstract interface!" << endl;
      break;
    default:
      assert( 0 );
    }
  }
}

bool CodeGenMIDL::emit_base_type( CORBA::IDLType_ptr t )
{
  _lun_string_bound = 0; // indica se il tipo e' string<N>

  CORBA::TypeCode_var tc = t->type();
  assert( !CORBA::is_nil( tc ) );

  // Mapping of Base Data Types [16.5]
  switch( tc->kind() ) {
  case CORBA::tk_void:
    o << "void";
    break;
  case CORBA::tk_boolean:
    o << "boolean";
    break;
  case CORBA::tk_char:
    o << "char";
    break;
  case CORBA::tk_wchar:
    o << "wchar_t";
    break;
  case CORBA::tk_octet:
    o << "byte";
    break;
  case CORBA::tk_ushort:
    o << "unsigned short";
    break;
  case CORBA::tk_ulong:
    o << "unsigned long";
    break;
  case CORBA::tk_short:
    o << "short";
    break;
  case CORBA::tk_long:
    o << "long";
    break;
  case CORBA::tk_longlong:
    cerr << "warning: \"long long\" not supported" << endl;
    cerr << "replaced by \"long\"" << endl;
    o << "long";
    break;
  case CORBA::tk_ulonglong:
    cerr << "warning: \"unsigned long long\" not supported" << endl;
    cerr << "replaced by \"unsigned long\"" << endl;
    o << "unsigned long";
    break;
  case CORBA::tk_float:
    o << "float";
    break;
  case CORBA::tk_double:
    o << "double";
    break;
  case CORBA::tk_longdouble:
    cerr << "warning: \"long double\" not supported" << endl;
    cerr << "replaced by \"double\"" << endl;
    o << "double";
    break;
  case CORBA::tk_string:
    //o << "string";
    //if( tc->length() != 0 )
    //  o << "<" << tc->length() << ">";
    o << "[string] char ";
    if (tc->length() != 0) {
      //o << " (* ";
      _lun_string_bound = tc->length();
    }
    else 
      o << "* ";
    break;
  case CORBA::tk_wstring:
    //o << "wstring";
    //if( tc->length() != 0 )
    //  o << "<" << tc->length() << ">";
    o << "[string] wchar_t ";
    if (tc->length() != 0) {
      //o << " (* ";
      _lun_string_bound = tc->length();
    }
    else 
      o << "* ";
    break;
  case CORBA::tk_fixed:
    o << "fixed<" << tc->fixed_digits() << "," <<
      tc->fixed_scale() << ">";
    break;
  case CORBA::tk_alias:
    if( tc->is_base_type() ) {
      emit_idl_type_name( t );
      return true;
    } else
      return false;
    break;
  default:
    return false;
  }
  return true;
}

bool CodeGenMIDL::Is_Alias_Interface(CORBA::IDLType_ptr t)
{
  if (t->def_kind() != CORBA::dk_Alias)
    return false;
  CORBA::AliasDef_var a = CORBA::AliasDef::_narrow( t );
  CORBA::IDLType_var orig = a->original_type_def();
  CORBA::AliasDef_var a_v = CORBA::AliasDef::_narrow(orig);
  while (orig->def_kind() == CORBA::dk_Alias) {
    orig = a_v->original_type_def();
    a_v = CORBA::AliasDef::_narrow(orig);
  }

  // non usare def_kind su AliasDef_var, ma solo su IDLType_var
  // altrimenti compila, ma va in crash

  if (orig->def_kind() != CORBA::dk_Interface)
    return false;
  return true;
}

bool CodeGenMIDL::Is_Interface(CORBA::IDLType_ptr t)
{
  if (t->def_kind() == CORBA::dk_Interface)
    return true;
  return Is_Alias_Interface(t);
}

void CodeGenMIDL::emitInterfaceHeader()
{
  o << "[ " << endl;
  o << "  object," << endl;
  //o << "  uuid(XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX)," << endl;
  o << "  uuid";
  insert_guid();
  o << "," << endl;
  o << "  pointer_default(unique)" << endl;
  o << "]" << endl;
}

void CodeGenMIDL::emitHeader()
{
  o << "import \"oaidl.idl\";" << endl;
  o << "import \"ocidl.idl\";" << endl << endl;
}

void CodeGenMIDL::emitTypeLib(string &fnbase)
{
  o << "[" << endl;
  //o << "  uuid(XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX)," << endl;
  o << "  uuid";
  insert_guid();
  o << "," << endl;
  o << "  version(1.0)," << endl;
  o << "  helpstring(\"" << fnbase << " 1.0 Type Library\")" << endl;
  o << "]" << endl;
  o << "library " << fnbase << "Lib" << endl;
  o << "{" << endl;
  o << "  importlib(\"stdole32.tlb\");" << endl;
  o << "  importlib(\"stdole2.tlb\");" << endl << endl;
  
  vector<CORBA::InterfaceDef_var>::iterator i;
  for (i = _coclasslist.begin(); i != _coclasslist.end(); i++) {
    o << "  [" << endl;
    //o << "    uuid(XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX)," << endl;
    o << "    uuid";
    insert_guid();
    o << "," << endl;
    //o << "    helpstring(\"" << (*i)->name() << " Class\")" << endl;
    o << "    helpstring(\"" << midl_absolute_name((*i)->absolute_name()) << " Class\")" << endl;
    o << "  ]" << endl;
    //o << "  coclass " << (*i)->name() << endl;
    o << "  coclass " << midl_absolute_name((*i)->absolute_name()) << endl;
    o << "  {" << endl;
    //o << "    [default] interface " << (*i)->name() << ";" << endl;
    o << "    [default] interface I" << midl_absolute_name((*i)->absolute_name()) << ";" << endl;
    CORBA::InterfaceDefSeq_var bases = (*i)->base_interfaces();

    for (CORBA::ULong j = 0; j < bases->length(); j++) {
      CORBA::String_var base_name = bases[j]->absolute_name();
      CORBA::String_var midl_base_name = midl_absolute_name(bases[j]->absolute_name());
      //o << "    interface " << base_name << ";" << endl;
      o << "    interface I" << midl_base_name << ";" << endl;
    }
    o << "  };" << endl;
  }
  o << "};" << endl;
}

const char* CodeGenMIDL::midl_absolute_name(const char *_abs_name)
{
  string abs_name = _abs_name;

  CORBA::ULong i, j;
  for (i = 0, j = 0; i < abs_name.length(); i++, j++) {
    if ((i < 2) && (abs_name[i] == ':')) {
      i++;
      j--;
    }
    else {
      if (abs_name[i] != ':')
        _midl_absolute_name[j] = abs_name[i];
      else {
        _midl_absolute_name[j] = '_';
        i++;
      }
    }
  }
  _midl_absolute_name[j] = '\0';
  return (const char*) _midl_absolute_name;
}

char *CodeGenMIDL::recursive_container(CORBA::IDLType_ptr memb)
{
  switch(memb->def_kind()) {
  case CORBA::dk_Struct:
  case CORBA::dk_Sequence:
    return CORBA::string_dup("struct ");
    break;
  case CORBA::dk_Union:
    return CORBA::string_dup("union ");
    break;
  default:
    break;
  }
  return CORBA::string_dup("");
}    

void CodeGenMIDL::insert_guid()
{
  char szGUID[39] = "(XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX)";

#if defined(_WIN32) && !defined(__MINGW32__)
  GUID g;
  HRESULT hr = CoCreateGuid(&g);
  assert(hr == S_OK);
  wchar_t szwGUID[39];
  ::StringFromGUID2(g, szwGUID, 39);
  wcstombs(szGUID, szwGUID, 39);
  szGUID[0] = '(';
  szGUID[37] = ')';
#endif

  o << szGUID;
}

int CodeGenMIDL::Compare(const char* ps1, const char* ps2)
{
  CORBA::ULong i = 0;
  while ((ps1[i] != '\0') && (ps2[i] != '\0')) {
    if (ps1[i] < ps2[i]) return 1;
    if (ps1[i] > ps2[i]) return -1;
    else i++;
  }
  if (ps1[i] == '\0') return 1;
  if (ps2[i] == '\0') return -1;
  return 0;
}

void CodeGenMIDL::SortName(CORBA::ContainedSeq_var c, CORBA::ULong* pv, CORBA::ULong n)
{
  if (n == 0) return; // non c'e' niente da fare

  CORBA::ULong* score = new CORBA::ULong[n];
  CORBA::ULong i, j;

  for (i = 0; i < n; i++)
    score[i] = 0;
  for (i = 0; i < n-1; i++) {
    for (j = i+1; j < n; j++) {
      if (Compare((const char*) c[i]->name(),
                  (const char*) c[j]->name()) == 1)
        score[j]++;
      else
        score[i]++;
    }
  }
  for (i = 0; i < n; i++)
    pv[score[i]] = i;
  delete score;
}