/*
    This file is part of KDE.

    Copyright (c) 2005 Tobias Koenig <tokoe@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., 51 Franklin Street, Fifth Floor,
    Boston, MA 02110-1301, USA.
*/

#include <tqapplication.h>
#include <tqfile.h>

#include <schema/fileprovider.h>

#include "converter.h"
#include "creator.h"

#include "compiler.h"

using namespace KWSDL;

Compiler::Compiler()
  : TQObject( 0, "KWSDL::Compiler" )
{
}

void Compiler::setWSDLUrl( const TQString &wsdlUrl )
{
  mWSDLUrl = wsdlUrl;
  mWSDLBaseUrl = mWSDLUrl.left( mWSDLUrl.findRev( '/' ) );

  mParser.setSchemaBaseUrl( mWSDLBaseUrl );
}

void Compiler::setOutputDirectory( const TQString &outputDirectory )
{
  mOutputDirectory = outputDirectory;

  if ( !mOutputDirectory.endsWith( "/" ) )
    mOutputDirectory.append( "/" );
}

void Compiler::setNameSpace( const TQString &nameSpace )
{
  mNameSpace = nameSpace;
}

void Compiler::run()
{
  download();
}

void Compiler::download()
{
  Schema::FileProvider provider;

  TQString fileName;
  if ( provider.get( mWSDLUrl, fileName ) ) {
    TQFile file( fileName );
    if ( !file.open( IO_ReadOnly ) ) {
      tqDebug( "Unable to download schema file %s", mWSDLUrl.latin1() );
      provider.cleanUp();
      return;
    }

    TQString errorMsg;
    int errorLine, errorCol;
    TQDomDocument doc;
    if ( !doc.setContent( &file, true, &errorMsg, &errorLine, &errorCol ) ) {
      tqDebug( "%s at (%d,%d)", errorMsg.latin1(), errorLine, errorCol );
      return;
    }

    parse( doc.documentElement() );

    provider.cleanUp();
  }
}

void Compiler::parse( const TQDomElement &element )
{
  mParser.parse( element );
  create();
}

void Compiler::create()
{
  KWSDL::Converter converter;
  converter.setWSDL( mParser.wsdl() );

  converter.convert();

  KWSDL::Creator creator;
  creator.setOutputDirectory( mOutputDirectory );
  creator.setNameSpace( mNameSpace );
  creator.create( converter.classes() );

  tqApp->quit();
}

#include "compiler.moc"