// Part of the Carbon Language project, under the Apache License v2.0 with LLVM
// Exceptions. See /LICENSE for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception

#include "toolchain/check/merge.h"

#include "toolchain/base/kind_switch.h"
#include "toolchain/check/import.h"
#include "toolchain/check/import_ref.h"
#include "toolchain/diagnostics/format_providers.h"
#include "toolchain/sem_ir/ids.h"
#include "toolchain/sem_ir/typed_insts.h"

namespace Carbon::Check {

CARBON_DIAGNOSTIC(RedeclPrevDecl, Note, "previously declared here");

// Diagnoses a redeclaration which is redundant.
static auto DiagnoseRedundant(Context& context, Lex::TokenKind decl_kind,
                              SemIR::NameId name_id, SemIR::LocId new_loc_id,
                              SemIR::LocId prev_loc_id) -> void {
  CARBON_DIAGNOSTIC(RedeclRedundant, Error,
                    "redeclaration of `{0} {1}` is redundant", Lex::TokenKind,
                    SemIR::NameId);
  context.emitter()
      .Build(new_loc_id, RedeclRedundant, decl_kind, name_id)
      .Note(prev_loc_id, RedeclPrevDecl)
      .Emit();
}

// Diagnoses a redefinition.
static auto DiagnoseRedef(Context& context, Lex::TokenKind decl_kind,
                          SemIR::NameId name_id, SemIR::LocId new_loc_id,
                          SemIR::LocId prev_loc_id) -> void {
  CARBON_DIAGNOSTIC(RedeclRedef, Error, "redefinition of `{0} {1}`",
                    Lex::TokenKind, SemIR::NameId);
  CARBON_DIAGNOSTIC(RedeclPrevDef, Note, "previously defined here");
  context.emitter()
      .Build(new_loc_id, RedeclRedef, decl_kind, name_id)
      .Note(prev_loc_id, RedeclPrevDef)
      .Emit();
}

// Diagnoses an `extern` versus non-`extern` mismatch.
static auto DiagnoseExternMismatch(Context& context, Lex::TokenKind decl_kind,
                                   SemIR::NameId name_id,
                                   SemIR::LocId new_loc_id,
                                   SemIR::LocId prev_loc_id) -> void {
  CARBON_DIAGNOSTIC(RedeclExternMismatch, Error,
                    "redeclarations of `{0} {1}` must match use of `extern`",
                    Lex::TokenKind, SemIR::NameId);
  context.emitter()
      .Build(new_loc_id, RedeclExternMismatch, decl_kind, name_id)
      .Note(prev_loc_id, RedeclPrevDecl)
      .Emit();
}

// Diagnoses `extern library` declared in a library importing the owned entity.
static auto DiagnoseExternLibraryInImporter(Context& context,
                                            Lex::TokenKind decl_kind,
                                            SemIR::NameId name_id,
                                            SemIR::LocId new_loc_id,
                                            SemIR::LocId prev_loc_id) -> void {
  CARBON_DIAGNOSTIC(ExternLibraryInImporter, Error,
                    "cannot declare imported `{0} {1}` as `extern library`",
                    Lex::TokenKind, SemIR::NameId);
  context.emitter()
      .Build(new_loc_id, ExternLibraryInImporter, decl_kind, name_id)
      .Note(prev_loc_id, RedeclPrevDecl)
      .Emit();
}

// Diagnoses `extern library` pointing to the wrong library.
static auto DiagnoseExternLibraryIncorrect(Context& context,
                                           SemIR::LocId new_loc_id,
                                           SemIR::LocId prev_loc_id) -> void {
  CARBON_DIAGNOSTIC(
      ExternLibraryIncorrect, Error,
      "declaration in {0} doesn't match `extern library` declaration",
      SemIR::LibraryNameId);
  CARBON_DIAGNOSTIC(ExternLibraryExpected, Note,
                    "previously declared with `extern library` here");
  context.emitter()
      .Build(new_loc_id, ExternLibraryIncorrect, context.sem_ir().library_id())
      .Note(prev_loc_id, ExternLibraryExpected)
      .Emit();
}

auto DiagnoseExternRequiresDeclInApiFile(Context& context, SemIR::LocId loc_id)
    -> void {
  CARBON_DIAGNOSTIC(
      ExternRequiresDeclInApiFile, Error,
      "`extern` entities must have a declaration in the API file");
  context.emitter().Emit(loc_id, ExternRequiresDeclInApiFile);
}

auto DiagnoseIfInvalidRedecl(Context& context, Lex::TokenKind decl_kind,
                             SemIR::NameId name_id, RedeclInfo new_decl,
                             RedeclInfo prev_decl,
                             SemIR::ImportIRId import_ir_id) -> void {
  if (!import_ir_id.has_value()) {
    // Check for disallowed redeclarations in the same file.
    if (!new_decl.is_definition) {
      DiagnoseRedundant(context, decl_kind, name_id, new_decl.loc_id,
                        prev_decl.loc_id);
      return;
    }
    if (prev_decl.is_definition) {
      DiagnoseRedef(context, decl_kind, name_id, new_decl.loc_id,
                    prev_decl.loc_id);
      return;
    }
    if (prev_decl.is_extern != new_decl.is_extern) {
      DiagnoseExternMismatch(context, decl_kind, name_id, new_decl.loc_id,
                             prev_decl.loc_id);
      return;
    }
    return;
  }

  if (import_ir_id == SemIR::ImportIRId::ApiForImpl) {
    // Check for disallowed redeclarations in the same library. Note that a
    // forward declaration in the impl is allowed.
    if (prev_decl.is_definition) {
      if (new_decl.is_definition) {
        DiagnoseRedef(context, decl_kind, name_id, new_decl.loc_id,
                      prev_decl.loc_id);
      } else {
        DiagnoseRedundant(context, decl_kind, name_id, new_decl.loc_id,
                          prev_decl.loc_id);
      }
      return;
    }
    if (prev_decl.is_extern != new_decl.is_extern) {
      DiagnoseExternMismatch(context, decl_kind, name_id, new_decl.loc_id,
                             prev_decl.loc_id);
      return;
    }
    return;
  }

  // Check for disallowed redeclarations cross-library.
  if (new_decl.is_extern && context.sem_ir().is_impl()) {
    // We continue after issuing the "missing API declaration" diagnostic,
    // because it may still be helpful to note other issues with the
    // declarations.
    DiagnoseExternRequiresDeclInApiFile(context, new_decl.loc_id);
  }
  if (prev_decl.is_extern != new_decl.is_extern) {
    DiagnoseExternMismatch(context, decl_kind, name_id, new_decl.loc_id,
                           prev_decl.loc_id);
    return;
  }
  if (!prev_decl.extern_library_id.has_value()) {
    if (new_decl.extern_library_id.has_value()) {
      DiagnoseExternLibraryInImporter(context, decl_kind, name_id,
                                      new_decl.loc_id, prev_decl.loc_id);
    } else {
      DiagnoseRedundant(context, decl_kind, name_id, new_decl.loc_id,
                        prev_decl.loc_id);
    }
    return;
  }
  if (prev_decl.extern_library_id != SemIR::LibraryNameId::Error &&
      prev_decl.extern_library_id != context.sem_ir().library_id()) {
    DiagnoseExternLibraryIncorrect(context, new_decl.loc_id, prev_decl.loc_id);
    return;
  }
}

auto ReplacePrevInstForMerge(Context& context, SemIR::NameScopeId scope_id,
                             SemIR::NameId name_id, SemIR::InstId new_inst_id)
    -> void {
  auto& scope = context.name_scopes().Get(scope_id);
  auto entry_id = scope.Lookup(name_id);
  if (entry_id) {
    auto& result = scope.GetEntry(*entry_id).result;
    result = SemIR::ScopeLookupResult::MakeWrappedLookupResult(
        new_inst_id, result.access_kind());
  }
}

// Returns true if there was an error in declaring the entity, which will have
// previously been diagnosed.
static auto EntityHasParamError(Context& context, const DeclParams& info)
    -> bool {
  for (auto param_patterns_id :
       {info.implicit_param_patterns_id, info.param_patterns_id}) {
    if (param_patterns_id.has_value() &&
        param_patterns_id != SemIR::InstBlockId::Empty) {
      for (auto param_id : context.inst_blocks().Get(param_patterns_id)) {
        if (context.insts().Get(param_id).type_id() ==
            SemIR::ErrorInst::TypeId) {
          return true;
        }
      }
    }
  }
  return false;
}

// Returns false if a param differs for a redeclaration. The caller is expected
// to provide a diagnostic.
static auto CheckRedeclParam(Context& context, bool is_implicit_param,
                             int32_t param_index,
                             SemIR::InstId orig_new_param_pattern_id,
                             SemIR::InstId orig_prev_param_pattern_id,
                             SemIR::SpecificId prev_specific_id, bool diagnose,
                             bool check_syntax, bool check_self) -> bool {
  CARBON_DIAGNOSTIC(
      RedeclParamPrevious, Note,
      "previous declaration's corresponding {0:implicit |}parameter here",
      Diagnostics::BoolAsSelect);
  auto emit_general_diagnostic = [&]() {
    if (!diagnose) {
      return;
    }
    CARBON_DIAGNOSTIC(RedeclParamDiffers, Error,
                      "redeclaration differs at {0:implicit |}parameter {1}",
                      Diagnostics::BoolAsSelect, int32_t);
    context.emitter()
        .Build(orig_new_param_pattern_id, RedeclParamDiffers, is_implicit_param,
               param_index + 1)
        .Note(orig_prev_param_pattern_id, RedeclParamPrevious,
              is_implicit_param)
        .Emit();
  };

  struct PatternPair {
    SemIR::InstId prev_id;
    SemIR::InstId new_id;
  };

  llvm::SmallVector<PatternPair, 1> pattern_stack;

  pattern_stack.push_back({.prev_id = orig_prev_param_pattern_id,
                           .new_id = orig_new_param_pattern_id});

  // When `check_self` is false, we need to disable type checking as soon as we
  // determine this is a `self` parameter, and that decision needs to persist
  // across the handling of any subpatterns.
  bool check_type = true;
  do {
    auto patterns = pattern_stack.pop_back_val();
    auto new_param_pattern = context.insts().Get(patterns.new_id);
    auto prev_param_pattern = context.insts().Get(patterns.prev_id);
    if (new_param_pattern.kind() != prev_param_pattern.kind()) {
      emit_general_diagnostic();
      return false;
    }

    // Conditionally checks for and diagnoses a type mismatch between the old
    // and new parameter patterns. Returns false if a mismatch was found.
    auto check_for_type_mismatch = [&]() {
      auto prev_param_type_id = SemIR::GetTypeOfInstInSpecific(
          context.sem_ir(), prev_specific_id, patterns.prev_id);
      if (check_type && !context.types().AreEqualAcrossDeclarations(
                            new_param_pattern.type_id(), prev_param_type_id)) {
        if (diagnose) {
          CARBON_DIAGNOSTIC(
              RedeclParamDiffersType, Error,
              "type {3} of {0:implicit |}parameter {1} in "
              "redeclaration differs from previous parameter type {2}",
              Diagnostics::BoolAsSelect, int32_t, SemIR::TypeId, SemIR::TypeId);
          context.emitter()
              .Build(orig_new_param_pattern_id, RedeclParamDiffersType,
                     is_implicit_param, param_index + 1, prev_param_type_id,
                     new_param_pattern.type_id())
              .Note(orig_prev_param_pattern_id, RedeclParamPrevious,
                    is_implicit_param)
              .Emit();
        }
        return false;
      }
      return true;
    };

    CARBON_KIND_SWITCH(new_param_pattern) {
      case CARBON_KIND_ANY(SemIR::AnyLeafParamPattern, _): {
        if (!check_for_type_mismatch()) {
          return false;
        }
        break;
      }
      case CARBON_KIND_ANY(SemIR::AnyVarPattern, new_var_param_pattern): {
        auto prev_var_param_pattern =
            prev_param_pattern.As<SemIR::AnyVarPattern>();
        pattern_stack.push_back(
            {.prev_id = prev_var_param_pattern.subpattern_id,
             .new_id = new_var_param_pattern.subpattern_id});
        break;
      }
      case CARBON_KIND_ANY(SemIR::AnyBindingPattern, new_any_binding_pattern): {
        auto prev_any_binding_pattern =
            prev_param_pattern.As<SemIR::AnyBindingPattern>();
        auto new_name_id = context.entity_names()
                               .Get(new_any_binding_pattern.entity_name_id)
                               .name_id;
        auto prev_name_id = context.entity_names()
                                .Get(prev_any_binding_pattern.entity_name_id)
                                .name_id;

        if (!check_self && new_name_id == SemIR::NameId::SelfValue &&
            prev_name_id == SemIR::NameId::SelfValue) {
          check_type = false;
        }

        if (new_any_binding_pattern.kind ==
            SemIR::WrapperBindingPattern::Kind) {
          // The subpattern handling will take care of checking for type
          // mismatch.
          pattern_stack.push_back(
              {.prev_id = prev_any_binding_pattern.subpattern_id,
               .new_id = new_any_binding_pattern.subpattern_id});
        } else if (!check_for_type_mismatch()) {
          return false;
        }

        if (check_syntax && new_name_id != prev_name_id) {
          emit_general_diagnostic();
          return false;
        }
        break;
      }
      default: {
        CARBON_FATAL("Unexpected inst kind in parameter pattern: {0}",
                     new_param_pattern.kind());
      }
    }
  } while (!pattern_stack.empty());

  return true;
}

// Returns false if the param refs differ for a redeclaration.
static auto CheckRedeclParams(Context& context, SemIR::LocId new_decl_loc_id,
                              SemIR::InstBlockId new_param_patterns_id,
                              SemIR::LocId prev_decl_loc_id,
                              SemIR::InstBlockId prev_param_patterns_id,
                              bool is_implicit_param,
                              SemIR::SpecificId prev_specific_id, bool diagnose,
                              bool check_syntax, bool check_self) -> bool {
  // This will often occur for empty params.
  if (new_param_patterns_id == prev_param_patterns_id) {
    return true;
  }

  // If exactly one of the parameter lists was present, they differ.
  if (new_param_patterns_id.has_value() != prev_param_patterns_id.has_value()) {
    if (!diagnose) {
      return false;
    }
    CARBON_DIAGNOSTIC(RedeclParamListDiffers, Error,
                      "redeclaration differs because of "
                      "{1:|missing }{0:implicit |}parameter list",
                      Diagnostics::BoolAsSelect, Diagnostics::BoolAsSelect);
    CARBON_DIAGNOSTIC(RedeclParamListPrevious, Note,
                      "previously declared "
                      "{1:with|without} {0:implicit |}parameter list",
                      Diagnostics::BoolAsSelect, Diagnostics::BoolAsSelect);
    context.emitter()
        .Build(new_decl_loc_id, RedeclParamListDiffers, is_implicit_param,
               new_param_patterns_id.has_value())
        .Note(prev_decl_loc_id, RedeclParamListPrevious, is_implicit_param,
              prev_param_patterns_id.has_value())
        .Emit();
    return false;
  }

  CARBON_CHECK(new_param_patterns_id.has_value() &&
               prev_param_patterns_id.has_value());
  const auto new_param_pattern_ids =
      context.inst_blocks().Get(new_param_patterns_id);
  const auto prev_param_pattern_ids =
      context.inst_blocks().Get(prev_param_patterns_id);
  if (new_param_pattern_ids.size() != prev_param_pattern_ids.size()) {
    if (!diagnose) {
      return false;
    }
    CARBON_DIAGNOSTIC(
        RedeclParamCountDiffers, Error,
        "redeclaration differs because of {0:implicit |}parameter count of {1}",
        Diagnostics::BoolAsSelect, int32_t);
    CARBON_DIAGNOSTIC(
        RedeclParamCountPrevious, Note,
        "previously declared with {0:implicit |}parameter count of {1}",
        Diagnostics::BoolAsSelect, int32_t);
    context.emitter()
        .Build(new_decl_loc_id, RedeclParamCountDiffers, is_implicit_param,
               new_param_pattern_ids.size())
        .Note(prev_decl_loc_id, RedeclParamCountPrevious, is_implicit_param,
              prev_param_pattern_ids.size())
        .Emit();
    return false;
  }
  for (auto [index, new_param_pattern_id, prev_param_pattern_id] :
       llvm::enumerate(new_param_pattern_ids, prev_param_pattern_ids)) {
    if (!CheckRedeclParam(context, is_implicit_param, index,
                          new_param_pattern_id, prev_param_pattern_id,
                          prev_specific_id, diagnose, check_syntax,
                          check_self)) {
      return false;
    }
  }
  return true;
}

// Returns true if the two nodes represent the same syntax.
// TODO: Detect raw identifiers (will require token changes).
static auto IsNodeSyntaxEqual(Context& context, Parse::NodeId new_node_id,
                              Parse::NodeId prev_node_id) -> bool {
  if (context.parse_tree().node_kind(new_node_id) !=
      context.parse_tree().node_kind(prev_node_id)) {
    return false;
  }

  // TODO: Should there be a trivial way to check if we need to check spellings?
  // Identifiers and literals need their text checked for cross-file matching,
  // but not intra-file. Keywords and operators shouldn't need the token text
  // examined at all.
  auto new_spelling = context.tokens().GetTokenText(
      context.parse_tree().node_token(new_node_id));
  auto prev_spelling = context.tokens().GetTokenText(
      context.parse_tree().node_token(prev_node_id));
  return new_spelling == prev_spelling;
}

// Returns false if redeclaration parameter syntax doesn't match.
static auto CheckRedeclParamSyntax(Context& context,
                                   Parse::NodeId new_first_param_node_id,
                                   Parse::NodeId new_last_param_node_id,
                                   Parse::NodeId prev_first_param_node_id,
                                   Parse::NodeId prev_last_param_node_id,
                                   bool diagnose) -> bool {
  // Parse nodes may not always be available to compare.
  // TODO: Support cross-file syntax checks. Right now imports provide
  // `NodeId::None`, and we'll need to follow the declaration to its original
  // file to get the parse tree.
  if (!new_first_param_node_id.has_value() ||
      !prev_first_param_node_id.has_value()) {
    return true;
  }
  CARBON_CHECK(new_last_param_node_id.has_value(),
               "new_last_param_node_id.has_value should match "
               "new_first_param_node_id.has_value");
  CARBON_CHECK(prev_last_param_node_id.has_value(),
               "prev_last_param_node_id.has_value should match "
               "prev_first_param_node_id.has_value");
  Parse::Tree::PostorderIterator new_iter(new_first_param_node_id);
  Parse::Tree::PostorderIterator new_end(new_last_param_node_id);
  Parse::Tree::PostorderIterator prev_iter(prev_first_param_node_id);
  Parse::Tree::PostorderIterator prev_end(prev_last_param_node_id);
  // Done when one past the last node to check.
  ++new_end;
  ++prev_end;

  // Compare up to the shortest length.
  for (; new_iter != new_end && prev_iter != prev_end;
       ++new_iter, ++prev_iter) {
    auto new_node_id = *new_iter;
    auto new_node_kind = context.parse_tree().node_kind(new_node_id);
    // Skip over "unused" markers.
    if (new_node_kind == Parse::NodeKind::UnusedPattern) {
      ++new_iter;
      new_node_id = *new_iter;
      new_node_kind = context.parse_tree().node_kind(new_node_id);
    }
    auto prev_node_id = *prev_iter;
    auto prev_node_kind = context.parse_tree().node_kind(prev_node_id);
    if (prev_node_kind == Parse::NodeKind::UnusedPattern) {
      ++prev_iter;
      prev_node_id = *prev_iter;
      prev_node_kind = context.parse_tree().node_kind(prev_node_id);
    }
    if (!IsNodeSyntaxEqual(context, new_node_id, prev_node_id)) {
      // Skip difference if it is `Self as` vs. `as` in an `impl` declaration.
      // https://github.com/carbon-language/carbon-lang/blob/trunk/proposals/p3763.md#redeclarations
      if (new_node_kind == Parse::NodeKind::ImplDefaultSelfAs &&
          prev_node_kind == Parse::NodeKind::SelfTypeNameExpr &&
          context.parse_tree().node_kind(prev_iter[1]) ==
              Parse::NodeKind::ImplTypeAs) {
        ++prev_iter;
        continue;
      }
      if (prev_node_kind == Parse::NodeKind::ImplDefaultSelfAs &&
          new_node_kind == Parse::NodeKind::SelfTypeNameExpr &&
          context.parse_tree().node_kind(new_iter[1]) ==
              Parse::NodeKind::ImplTypeAs) {
        ++new_iter;
        continue;
      }
      if (!diagnose) {
        return false;
      }
      CARBON_DIAGNOSTIC(RedeclParamSyntaxDiffers, Error,
                        "redeclaration syntax differs here");
      CARBON_DIAGNOSTIC(RedeclParamSyntaxPrevious, Note,
                        "comparing with previous declaration here");
      context.emitter()
          .Build(new_node_id, RedeclParamSyntaxDiffers)
          .Note(prev_node_id, RedeclParamSyntaxPrevious)
          .Emit();
      return false;
    }
  }
  // The prefixes are the same, but the lengths may still be different. This is
  // only relevant for `impl` declarations where the final bracketing node is
  // not included in the range of nodes being compared, and in those cases
  // `diagnose` is false.
  if (new_iter != new_end) {
    CARBON_CHECK(!diagnose);
    return false;
  } else if (prev_iter != prev_end) {
    CARBON_CHECK(!diagnose);
    return false;
  }

  return true;
}

auto CheckRedeclParamsMatch(Context& context, const DeclParams& new_entity,
                            const DeclParams& prev_entity,
                            SemIR::SpecificId prev_specific_id, bool diagnose,
                            bool check_syntax, bool check_self) -> bool {
  if (EntityHasParamError(context, new_entity) ||
      EntityHasParamError(context, prev_entity)) {
    return false;
  }
  if (!CheckRedeclParams(
          context, new_entity.loc_id, new_entity.implicit_param_patterns_id,
          prev_entity.loc_id, prev_entity.implicit_param_patterns_id,
          /*is_implicit_param=*/true, prev_specific_id, diagnose, check_syntax,
          check_self)) {
    return false;
  }
  // Don't forward `check_self` here because it's extra cost, and `self` is only
  // allowed in implicit params.
  if (!CheckRedeclParams(context, new_entity.loc_id,
                         new_entity.param_patterns_id, prev_entity.loc_id,
                         prev_entity.param_patterns_id,
                         /*is_implicit_param=*/false, prev_specific_id,
                         diagnose, check_syntax, /*check_self=*/true)) {
    return false;
  }
  if (check_syntax &&
      !CheckRedeclParamSyntax(context, new_entity.first_param_node_id,
                              new_entity.last_param_node_id,
                              prev_entity.first_param_node_id,
                              prev_entity.last_param_node_id, diagnose)) {
    return false;
  }
  return true;
}

}  // namespace Carbon::Check