// 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 "executable_semantics/syntax/parse.h"

#include "common/check.h"
#include "common/error.h"
#include "executable_semantics/common/error.h"
#include "executable_semantics/syntax/lexer.h"
#include "executable_semantics/syntax/parse_and_lex_context.h"
#include "executable_semantics/syntax/parser.h"
#include "llvm/Support/Error.h"

namespace Carbon {

auto ParseImpl(yyscan_t scanner, Nonnull<Arena*> arena,
               std::string_view input_file_name, bool trace) -> ErrorOr<AST> {
  // Prepare other parser arguments.
  std::optional<AST> ast = std::nullopt;
  ParseAndLexContext context(arena->New<std::string>(input_file_name), trace);

  // Do the parse.
  auto parser = Parser(arena, scanner, context, &ast);
  if (trace) {
    parser.set_debug_level(1);
  }

  if (auto syntax_error_code = parser(); syntax_error_code != 0) {
    const std::string error_message = context.error_messages().empty()
                                          ? "Unknown parser error"
                                          : context.error_messages()[0];
    return Error(error_message);
  }

  // Return parse results.
  CHECK(ast != std::nullopt)
      << "parser validated syntax yet didn't produce an AST.";
  return *ast;
}

auto Parse(Nonnull<Arena*> arena, std::string_view input_file_name, bool trace)
    -> ErrorOr<AST> {
  FILE* input_file = fopen(std::string(input_file_name).c_str(), "r");
  if (input_file == nullptr) {
    return FATAL_PROGRAM_ERROR_NO_LINE() << "Error opening '" << input_file_name
                                         << "': " << std::strerror(errno);
  }

  // Prepare the lexer.
  yyscan_t scanner;
  yylex_init(&scanner);
  auto buffer = yy_create_buffer(input_file, YY_BUF_SIZE, scanner);
  yy_switch_to_buffer(buffer, scanner);

  ErrorOr<AST> result = ParseImpl(scanner, arena, input_file_name, trace);

  // Clean up the lexer.
  yy_delete_buffer(buffer, scanner);
  yylex_destroy(scanner);
  fclose(input_file);

  return result;
}

auto ParseFromString(Nonnull<Arena*> arena, std::string_view input_file_name,
                     std::string_view file_contents, bool trace)
    -> ErrorOr<AST> {
  // Prepare the lexer.
  yyscan_t scanner;
  yylex_init(&scanner);
  auto buffer =
      yy_scan_bytes(file_contents.data(), file_contents.size(), scanner);
  yy_switch_to_buffer(buffer, scanner);

  ErrorOr<AST> result = ParseImpl(scanner, arena, input_file_name, trace);

  // Clean up the lexer.
  yy_delete_buffer(buffer, scanner);
  yylex_destroy(scanner);

  return result;
}
}  // namespace Carbon