/* This file is part of the KDE project
   Copyright (C) 1998, 1999 Torben Weis <weis@kde.org>
 
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
 
   This library 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
   Library General Public License for more details.
 
   You should have received a copy of the GNU Library General Public License
   along with this library; see the file COPYING.LIB.  If not, write to
   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.
*/     

#include "trader_main.h"
#include "typerepo_impl.h"

#include <k2config.h>
#include <k2url.h>
#include <string.h>
#include <kapp.h>

map<string,string>* g_mapServiceType2Interface = 0L;

bool imrCreate( const char* _name, const char* _mode, const char *_exec, const char* _iface, CORBA::ImplRepository_ptr _imr )
{
  CORBA::ImplRepository::ImplDefSeq_var impls = _imr->find_by_name( _name );
  if ( impls->length() > 0 )
  {
    cerr << "there is already a server called '"
	 << _name << "', please choose a unique name!"
	 << endl;
    return false;
  }

  CORBA::ImplementationDef::ActivationMode mode;
  if ( strcmp( _mode, "persistent" ) == 0 )
    mode = CORBA::ImplementationDef::ActivatePersistent;
  else if ( strcmp( _mode, "shared") == 0 )
    mode = CORBA::ImplementationDef::ActivateShared;
  else if ( strcmp( _mode, "unshared") == 0 )
    mode = CORBA::ImplementationDef::ActivateUnshared;
  else if ( strcmp( _mode, "permethod") == 0 )
    mode = CORBA::ImplementationDef::ActivatePerMethod;
  else if ( strcmp( _mode, "library") == 0 )
    mode = CORBA::ImplementationDef::ActivateLibrary;
  else
  {
    cerr << "invalid activation mode: " << _mode << endl;
    cerr << "valid modes are: persistent, shared, unshared, "
	 << "permethod, library"
	 << endl;
    return false;
  }

  CORBA::ImplementationDef::RepoIdList repoids;
  repoids.length( 1 );
  repoids[0] = CORBA::string_dup( (const char*)_iface );

  CORBA::ImplementationDef_var impl = _imr->create( mode, repoids, _name, _exec );
  assert (!CORBA::is_nil (impl));
  return true;
}

void initServiceType( TypeRepository* _repo, K2Config::iterator it );

void initServiceTypes( Trader* _trader )
{
  g_mapServiceType2Interface = new map<string,string>;
  
  TypeRepository* repo = _trader->hack();

  QString path = KApplication::kde_datadir().copy();
  path += "/koffice/trader/servicetypes";
  K2Config g( path );
  K2Config::iterator it = g.begin();
  for( ; it != g.end(); it++ )
  {
    if ( it.group() && strcmp( it.group()->type(), "servicetype" ) == 0 )
    {       
      initServiceType( repo, it );
    }
  }
}

void initServiceType( TypeRepository* repo, K2Config::iterator it )
{
  CosTradingRepos::ServiceTypeRepository::PropStructSeq seq;
  CosTradingRepos::ServiceTypeRepository::ServiceTypeNameSeq superseq;

  try
  {    
    cerr << "TYPE: " << it.group()->name() << endl;
    list<string> lst;
    if ( it.group()->readStringList( "SuperTypes", lst ) )
    {
      superseq.length( lst.size() );
      list<string>::iterator i = lst.begin();
      int j = 0;
      for( ; i != lst.end(); i++ )
	superseq[ j++ ] = CORBA::string_dup( i->c_str() );
    }
    else
      superseq.length( 0 );
      
    K2Config* props;
    if ( ( props = it.group()->findGroup( "properties" ) ) )
    {
      list<CosTradingRepos::ServiceTypeRepository::PropStruct> plist;
      K2Config::iterator it2 = props->begin();
      for( ; it2 != props->end(); it2++ )
      {
	string type;
	if ( it2.group() && strcmp( it2.group()->type(), "property" ) == 0 &&
	     it2.group()->readString( "Type", type ) )
        {
	  cerr << "  PROP: " << it2.group()->name() << endl;
	  cerr << "    Type: " << type << endl;
	    
	  CosTradingRepos::ServiceTypeRepository::PropStruct p;
	  p.name = CORBA::string_dup( it2.group()->name() );

	  p.mode = CosTradingRepos::ServiceTypeRepository::PROP_NORMAL;
	  if ( type == "boolean" )
	    p.value_type = CORBA::_tc_boolean;
	  else if ( type == "string" )
	    p.value_type = CORBA::_tc_string;
	  else if ( type == "long" )
	    p.value_type = CORBA::_tc_long;
	  else if ( type == "float" )
	    p.value_type = CORBA::_tc_float;
	  else if ( type == "@string" )
	    p.value_type = CosTrading::_tc_StringList;
	  else if ( type == "@long" )
	    p.value_type = CosTrading::_tc_LongList;	    
	  else if ( type == "@float" )
	    p.value_type = CosTrading::_tc_FloatList;
	  else
	  {
	    cerr << "Unknown property type " << type << " in property "
		 << it2.group()->name()
		 << " in servicetype " << it.group()->name() << endl;
	    return;
	  }
	  
	  plist.push_back( p );
	}
      }
      seq.length( plist.size() );
      list<CosTradingRepos::ServiceTypeRepository::PropStruct>::iterator it3 = plist.begin();
      int i = 0;  
      for( ; it3 != plist.end(); it3++ )
	seq[ i++ ] = *it3;
    }
    else
      seq.length( 0 );

    string interface;
    if ( !it.group()->readString( "Interface", interface ) )
    {
      cerr << it.group()->name() << " does not have an interface entry" << endl;
      return;
    }
    
    repo->add_type( (char*)it.group()->name(), (char*)interface.c_str(), seq, superseq );
      
    (*g_mapServiceType2Interface)[ it.group()->name() ] = interface;
  }
  catch( ... )
  {
    cerr << "Exception during scanning of servicetype " << it.group()->name() << endl;
  }
}