// Copyright (c) the JPEG XL Project Authors. All rights reserved.
//
// Use of this source code is governed by a BSD-style
// license that can be found in the LICENSE file.

// Library to encode the context map.

#include "lib/jxl/enc_context_map.h"

#include <jxl/memory_manager.h>
#include <jxl/types.h>

#include <algorithm>
#include <cstddef>
#include <cstdint>
#include <vector>

#include "lib/jxl/base/bits.h"
#include "lib/jxl/base/status.h"
#include "lib/jxl/enc_ans.h"
#include "lib/jxl/enc_aux_out.h"
#include "lib/jxl/entropy_coder.h"
#include "lib/jxl/fields.h"
#include "lib/jxl/pack_signed.h"

namespace jxl {

namespace {

size_t IndexOf(const std::vector<uint8_t>& v, uint8_t value) {
  size_t i = 0;
  for (; i < v.size(); ++i) {
    if (v[i] == value) return i;
  }
  return i;
}

void MoveToFront(std::vector<uint8_t>* v, size_t index) {
  uint8_t value = (*v)[index];
  for (size_t i = index; i != 0; --i) {
    (*v)[i] = (*v)[i - 1];
  }
  (*v)[0] = value;
}

std::vector<uint8_t> MoveToFrontTransform(const std::vector<uint8_t>& v) {
  if (v.empty()) return v;
  uint8_t max_value = *std::max_element(v.begin(), v.end());
  std::vector<uint8_t> mtf(max_value + 1);
  for (size_t i = 0; i <= max_value; ++i) mtf[i] = i;
  std::vector<uint8_t> result(v.size());
  for (size_t i = 0; i < v.size(); ++i) {
    size_t index = IndexOf(mtf, v[i]);
    JXL_DASSERT(index < mtf.size());
    result[i] = static_cast<uint8_t>(index);
    MoveToFront(&mtf, index);
  }
  return result;
}

}  // namespace

Status EncodeContextMap(const std::vector<uint8_t>& context_map,
                        size_t num_histograms, BitWriter* writer,
                        LayerType layer, AuxOut* aux_out) {
  if (num_histograms == 1) {
    // Simple code
    writer->Write(1, 1);
    // 0 bits per entry.
    writer->Write(2, 0);
    return true;
  }

  JxlMemoryManager* memory_manager = writer->memory_manager();
  std::vector<uint8_t> transformed_symbols = MoveToFrontTransform(context_map);
  std::vector<std::vector<Token>> tokens(1);
  std::vector<std::vector<Token>> mtf_tokens(1);
  for (const uint8_t& ctx : context_map) {
    tokens[0].emplace_back(0, ctx);
  }
  for (const uint8_t& sym : transformed_symbols) {
    mtf_tokens[0].emplace_back(0, sym);
  }
  HistogramParams params;
  params.uint_method = HistogramParams::HybridUintMethod::kContextMap;
  size_t ans_cost;
  size_t mtf_cost;
  {
    EntropyEncodingData codes;
    std::vector<uint8_t> sink_context_map;
    JXL_ASSIGN_OR_RETURN(ans_cost, BuildAndEncodeHistograms(
                                       memory_manager, params, 1, tokens,
                                       &codes, &sink_context_map, nullptr,
                                       LayerType::Header, /*aux_out*/ nullptr));
  }
  {
    EntropyEncodingData codes;
    std::vector<uint8_t> sink_context_map;
    JXL_ASSIGN_OR_RETURN(mtf_cost, BuildAndEncodeHistograms(
                                       memory_manager, params, 1, mtf_tokens,
                                       &codes, &sink_context_map, nullptr,
                                       LayerType::Header, /*aux_out*/ nullptr));
  }
  bool use_mtf = mtf_cost < ans_cost;
  // Rebuild token list.
  tokens[0].clear();
  for (size_t i = 0; i < transformed_symbols.size(); i++) {
    tokens[0].emplace_back(0,
                           use_mtf ? transformed_symbols[i] : context_map[i]);
  }
  size_t entry_bits = CeilLog2Nonzero(num_histograms);
  size_t simple_cost = entry_bits * context_map.size();
  if (entry_bits < 4 && simple_cost < ans_cost && simple_cost < mtf_cost) {
    JXL_RETURN_IF_ERROR(writer->WithMaxBits(
        3 + entry_bits * context_map.size(), layer, aux_out, [&] {
          writer->Write(1, 1);
          writer->Write(2, entry_bits);
          for (uint8_t entry : context_map) {
            writer->Write(entry_bits, entry);
          }
          return true;
        }));
  } else {
    JXL_RETURN_IF_ERROR(writer->WithMaxBits(
        2 + tokens[0].size() * 24, layer, aux_out, [&]() -> Status {
          writer->Write(1, 0);
          writer->Write(1, TO_JXL_BOOL(use_mtf));  // Use/don't use MTF.
          EntropyEncodingData codes;
          std::vector<uint8_t> sink_context_map;
          JXL_ASSIGN_OR_RETURN(size_t cost,
                               BuildAndEncodeHistograms(
                                   memory_manager, params, 1, tokens, &codes,
                                   &sink_context_map, writer, layer, aux_out));
          (void)cost;
          WriteTokens(tokens[0], codes, sink_context_map, 0, writer);
          return true;
        }));
  }
  return true;
}

Status EncodeBlockCtxMap(const BlockCtxMap& block_ctx_map, BitWriter* writer,
                         AuxOut* aux_out) {
  const auto& dct = block_ctx_map.dc_thresholds;
  const auto& qft = block_ctx_map.qf_thresholds;
  const auto& ctx_map = block_ctx_map.ctx_map;
  return writer->WithMaxBits(
      (dct[0].size() + dct[1].size() + dct[2].size() + qft.size()) * 34 + 1 +
          4 + 4 + ctx_map.size() * 10 + 1024,
      LayerType::Ac, aux_out, [&]() -> Status {
        if (dct[0].empty() && dct[1].empty() && dct[2].empty() && qft.empty() &&
            ctx_map.size() == 21 &&
            std::equal(ctx_map.begin(), ctx_map.end(),
                       BlockCtxMap::kDefaultCtxMap)) {
          writer->Write(1, 1);  // default
          return true;
        }
        writer->Write(1, 0);
        for (int j : {0, 1, 2}) {
          writer->Write(4, dct[j].size());
          for (int i : dct[j]) {
            JXL_RETURN_IF_ERROR(
                U32Coder::Write(kDCThresholdDist, PackSigned(i), writer));
          }
        }
        writer->Write(4, qft.size());
        for (uint32_t i : qft) {
          JXL_RETURN_IF_ERROR(U32Coder::Write(kQFThresholdDist, i - 1, writer));
        }
        JXL_RETURN_IF_ERROR(EncodeContextMap(ctx_map, block_ctx_map.num_ctxs,
                                             writer, LayerType::Ac, aux_out));
        return true;
      });
}

}  // namespace jxl