/* <!-- copyright */
/*
 * aria2 - The high speed download utility
 *
 * Copyright (C) 2006 Tatsuhiro Tsujikawa
 *
 * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 *
 * In addition, as a special exception, the copyright holders give
 * permission to link the code of portions of this program with the
 * OpenSSL library under certain conditions as described in each
 * individual source file, and distribute linked combinations
 * including the two.
 * You must obey the GNU General Public License in all respects
 * for all of the code used other than OpenSSL.  If you modify
 * file(s) with this exception, you may extend this exception to your
 * version of the file(s), but you are not obligated to do so.  If you
 * do not wish to do so, delete this exception statement from your
 * version.  If you delete this exception statement from all source
 * files in the program, then also delete it here.
 */
/* copyright --> */
#include "DefaultExtensionMessageFactory.h"

#include <cstring>

#include "Peer.h"
#include "DlAbortEx.h"
#include "HandshakeExtensionMessage.h"
#include "UTPexExtensionMessage.h"
#include "fmt.h"
#include "PeerStorage.h"
#include "ExtensionMessageRegistry.h"
#include "DownloadContext.h"
#include "BtMessageDispatcher.h"
#include "BtMessageFactory.h"
#include "UTMetadataRequestExtensionMessage.h"
#include "UTMetadataDataExtensionMessage.h"
#include "UTMetadataRejectExtensionMessage.h"
#include "message.h"
#include "PieceStorage.h"
#include "UTMetadataRequestTracker.h"
#include "RequestGroup.h"
#include "bencode2.h"

namespace aria2 {

// i686-w64-mingw32-g++ 4.6 does not support constructor delegate
DefaultExtensionMessageFactory::DefaultExtensionMessageFactory()
  : peerStorage_{nullptr},
    registry_{nullptr},
    dctx_{nullptr},
    messageFactory_{nullptr},
    dispatcher_{nullptr},
    tracker_{nullptr}
{}

DefaultExtensionMessageFactory::DefaultExtensionMessageFactory
(const std::shared_ptr<Peer>& peer, ExtensionMessageRegistry* registry)
  : peerStorage_{nullptr},
    peer_{peer},
    registry_{registry},
    dctx_{nullptr},
    messageFactory_{nullptr},
    dispatcher_{nullptr},
    tracker_{nullptr}
{}

std::unique_ptr<ExtensionMessage>
DefaultExtensionMessageFactory::createMessage
(const unsigned char* data, size_t length)
{
  uint8_t extensionMessageID = *data;
  if(extensionMessageID == 0) {
    // handshake
    auto m = HandshakeExtensionMessage::create(data, length);
    m->setPeer(peer_);
    m->setDownloadContext(dctx_);
    return std::move(m);
  } else {
    const char* extensionName = registry_->getExtensionName(extensionMessageID);
    if(!extensionName) {
      throw DL_ABORT_EX
        (fmt("No extension registered for extended message ID %u",
             extensionMessageID));
    }
    if(strcmp(extensionName, "ut_pex") == 0) {
      // uTorrent compatible Peer-Exchange
      auto m = UTPexExtensionMessage::create(data, length);
      m->setPeerStorage(peerStorage_);
      return std::move(m);
    } else if(strcmp(extensionName, "ut_metadata") == 0) {
      if(length == 0) {
        throw DL_ABORT_EX
          (fmt(MSG_TOO_SMALL_PAYLOAD_SIZE,
               "ut_metadata",
               static_cast<unsigned long>(length)));
      }
      size_t end;
      auto decoded = bencode2::decode(data+1, length - 1, end);
      const Dict* dict = downcast<Dict>(decoded);
      if(!dict) {
        throw DL_ABORT_EX("Bad ut_metadata: dictionary not found");
      }
      const Integer* msgType = downcast<Integer>(dict->get("msg_type"));
      if(!msgType) {
        throw DL_ABORT_EX("Bad ut_metadata: msg_type not found");
      }
      const Integer* index = downcast<Integer>(dict->get("piece"));
      if(!index || index->i() < 0) {
        throw DL_ABORT_EX("Bad ut_metadata: piece not found");
      }
      switch(msgType->i()) {
      case 0: {
        auto m = make_unique<UTMetadataRequestExtensionMessage>
          (extensionMessageID);
        m->setIndex(index->i());
        m->setDownloadContext(dctx_);
        m->setPeer(peer_);
        m->setBtMessageFactory(messageFactory_);
        m->setBtMessageDispatcher(dispatcher_);
        return std::move(m);
      }
      case 1: {
        if(end == length) {
          throw DL_ABORT_EX("Bad ut_metadata data: data not found");
        }
        const Integer* totalSize = downcast<Integer>(dict->get("total_size"));
        if(!totalSize || totalSize->i() < 0) {
          throw DL_ABORT_EX("Bad ut_metadata data: total_size not found");
        }
        auto m = make_unique<UTMetadataDataExtensionMessage>
          (extensionMessageID);
        m->setIndex(index->i());
        m->setTotalSize(totalSize->i());
        m->setData(&data[1+end], &data[length]);
        m->setUTMetadataRequestTracker(tracker_);
        m->setPieceStorage
          (dctx_->getOwnerRequestGroup()->getPieceStorage().get());
        m->setDownloadContext(dctx_);
        return std::move(m);
      }
      case 2: {
        auto m = make_unique<UTMetadataRejectExtensionMessage>
          (extensionMessageID);
        m->setIndex(index->i());
        // No need to inject tracker because peer will be disconnected.
        return std::move(m);
      }
      default:
        throw DL_ABORT_EX
          (fmt("Bad ut_metadata: unknown msg_type=%" PRId64, msgType->i()));
      }
    } else {
      throw DL_ABORT_EX
        (fmt("Unsupported extension message received."
             " extensionMessageID=%u, extensionName=%s",
             extensionMessageID, extensionName));
    }
  }
}

void DefaultExtensionMessageFactory::setPeerStorage(PeerStorage* peerStorage)
{
  peerStorage_ = peerStorage;
}

void DefaultExtensionMessageFactory::setPeer(const std::shared_ptr<Peer>& peer)
{
  peer_ = peer;
}

void DefaultExtensionMessageFactory::setExtensionMessageRegistry
(ExtensionMessageRegistry* registry)
{
  registry_ = registry;
}

void DefaultExtensionMessageFactory::setDownloadContext(DownloadContext* dctx)
{
  dctx_ = dctx;
}

void DefaultExtensionMessageFactory::setBtMessageFactory
(BtMessageFactory* factory)
{
  messageFactory_ = factory;
}

void DefaultExtensionMessageFactory::setBtMessageDispatcher
(BtMessageDispatcher* disp)
{
  dispatcher_ = disp;
}

void DefaultExtensionMessageFactory::setUTMetadataRequestTracker
(UTMetadataRequestTracker* tracker)
{
  tracker_ = tracker;
}

} // namespace aria2
