#include <graphene/chain/son_wallet_evaluator.hpp>

#include <graphene/chain/database.hpp>
#include <graphene/chain/son_wallet_object.hpp>

namespace graphene { namespace chain {

void_result recreate_son_wallet_evaluator::do_evaluate(const son_wallet_recreate_operation& op)
{ try{
   const auto now = db().head_block_time();
   FC_ASSERT(now >= HARDFORK_SON_TIME, "Not allowed until SON HARDFORK");
   FC_ASSERT(op.payer == db().get_global_properties().parameters.son_account(), "SON paying account must be set as payer.");

   const auto& idx = db().get_index_type<son_wallet_index>().indices().get<by_id>();
   auto itr = idx.rbegin();
   if(itr != idx.rend())
   {
      // Compare current wallet SONs and to-be lists of active sons
      auto cur_wallet_sons = (*itr).sons;
      flat_map<sidechain_type, vector<son_sidechain_info> > new_wallet_sons;
      if( now < HARDFORK_SON_FOR_ETHEREUM_TIME ) {
         for(const auto& son : op.sons){
            for(const auto& active_sidechain_type : active_sidechain_types(db().head_block_time())){
               son_sidechain_info ssi;
               ssi.son_id = son.son_id;
               ssi.weight = son.weight;
               ssi.signing_key = son.signing_key;
               ssi.public_key = son.sidechain_public_keys.at(active_sidechain_type);
               new_wallet_sons[active_sidechain_type].emplace_back(std::move(ssi));
            }
         }
      }
      else{
         FC_ASSERT(op.extensions.value.sidechain_sons.valid(), "Sons is not valid");
         new_wallet_sons = *op.extensions.value.sidechain_sons;
      }

      bool son_sets_equal = (cur_wallet_sons.size() == new_wallet_sons.size());
      if (son_sets_equal) {
         for( const auto& cur_wallet_sidechain_sons : cur_wallet_sons ) {
            const auto& sidechain = cur_wallet_sidechain_sons.first;
            const auto& _cur_wallet_sidechain_sons = cur_wallet_sidechain_sons.second;

            son_sets_equal = son_sets_equal && (_cur_wallet_sidechain_sons.size() == new_wallet_sons.at(sidechain).size());
            if (son_sets_equal) {
               for (size_t i = 0; i < cur_wallet_sons.size(); i++) {
                  son_sets_equal = son_sets_equal && _cur_wallet_sidechain_sons.at(i) == new_wallet_sons.at(sidechain).at(i);
               }
            }
         }
      }

      FC_ASSERT(son_sets_equal == false, "Wallet recreation not needed, active SONs set is not changed.");
   }

   return void_result();
} FC_CAPTURE_AND_RETHROW( (op) ) }

object_id_type recreate_son_wallet_evaluator::do_apply(const son_wallet_recreate_operation& op)
{ try {
   const auto& idx = db().get_index_type<son_wallet_index>().indices().get<by_id>();
   auto itr = idx.rbegin();
   if(itr != idx.rend())
   {
       db().modify(*itr, [&, op](son_wallet_object &swo) {
           swo.expires = db().head_block_time();
       });
   }

   const auto& new_son_wallet_object = db().create<son_wallet_object>( [&]( son_wallet_object& obj ){
      const auto now = db().head_block_time();
      obj.valid_from = now;
      obj.expires = time_point_sec::maximum();
      if( now < HARDFORK_SON_FOR_ETHEREUM_TIME ) {
         flat_map<sidechain_type, vector<son_sidechain_info> > sons;
         for(const auto& son : op.sons){
            for(const auto& active_sidechain_type : active_sidechain_types(db().head_block_time())){
               son_sidechain_info ssi;
               ssi.son_id = son.son_id;
               ssi.weight = son.weight;
               ssi.signing_key = son.signing_key;
               ssi.public_key = son.sidechain_public_keys.at(active_sidechain_type);
               sons[active_sidechain_type].emplace_back(std::move(ssi));
            }
         }
         obj.sons = std::move(sons);
      }
      else{
         obj.sons = *op.extensions.value.sidechain_sons;
      }
   });
   return new_son_wallet_object.id;
} FC_CAPTURE_AND_RETHROW( (op) ) }

void_result update_son_wallet_evaluator::do_evaluate(const son_wallet_update_operation& op)
{ try{
   FC_ASSERT(db().head_block_time() >= HARDFORK_SON_TIME, "Not allowed until SON HARDFORK");
   FC_ASSERT( op.payer == db().get_global_properties().parameters.son_account(), "SON paying account must be set as payer." );

   const son_wallet_id_type son_wallet_id = [&]{
      if(db().head_block_time() >= HARDFORK_SON_FOR_ETHEREUM_TIME)
      {
         const auto ast = active_sidechain_types(db().head_block_time());
         const auto id = (op.son_wallet_id.instance.value - std::distance(ast.begin(), ast.find(op.sidechain))) / ast.size();
         return son_wallet_id_type{ id };
      }

      return op.son_wallet_id;
   }();

   const auto& idx = db().get_index_type<son_wallet_index>().indices().get<by_id>();
   FC_ASSERT( idx.find(son_wallet_id) != idx.end() );
   //auto itr = idx.find(op.son_wallet_id);
   //FC_ASSERT( itr->addresses.find(op.sidechain) == itr->addresses.end() ||
   //        itr->addresses.at(op.sidechain).empty(), "Sidechain wallet address already set");
   return void_result();
} FC_CAPTURE_AND_RETHROW( (op) ) }

object_id_type update_son_wallet_evaluator::do_apply(const son_wallet_update_operation& op)
{ try {
   const son_wallet_id_type son_wallet_id = [&]{
      if(db().head_block_time() >= HARDFORK_SON_FOR_ETHEREUM_TIME)
      {
         const auto ast = active_sidechain_types(db().head_block_time());
         const auto id = (op.son_wallet_id.instance.value - std::distance(ast.begin(), ast.find(op.sidechain))) / ast.size();
         return son_wallet_id_type{ id };
      }

      return op.son_wallet_id;
   }();

   const auto& idx = db().get_index_type<son_wallet_index>().indices().get<by_id>();
   auto itr = idx.find(son_wallet_id);
   if (itr != idx.end())
   {
      if (itr->addresses.find(op.sidechain) == itr->addresses.end()) {
         db().modify(*itr, [&op](son_wallet_object &swo) {
            swo.addresses[op.sidechain] = op.address;
         });
      }
   }
   return op.son_wallet_id;
} FC_CAPTURE_AND_RETHROW( (op) ) }

} } // namespace graphene::chain