mirror of
https://github.com/carbon-language/carbon-lang.git
synced 2026-09-24 20:10:13 +01:00
Richard Smith
7a67715ac5
This allows us to combine multiple Errors together without repeating the prefix information. Also fixes several cases where two "COMPILATION ERROR" prefixes would be prepended to the same message when errors with prefixes and locations were produced by the lexer and parser.
99 lines
3.2 KiB
C++
99 lines
3.2 KiB
C++
// 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 "explorer/main.h"
|
|
|
|
#include <unistd.h>
|
|
|
|
#include <cstdio>
|
|
#include <cstring>
|
|
#include <iostream>
|
|
#include <optional>
|
|
#include <string>
|
|
#include <vector>
|
|
|
|
#include "common/error.h"
|
|
#include "explorer/common/arena.h"
|
|
#include "explorer/common/nonnull.h"
|
|
#include "explorer/interpreter/exec_program.h"
|
|
#include "explorer/syntax/parse.h"
|
|
#include "explorer/syntax/prelude.h"
|
|
#include "llvm/Support/CommandLine.h"
|
|
#include "llvm/Support/InitLLVM.h"
|
|
#include "llvm/Support/raw_ostream.h"
|
|
|
|
namespace Carbon {
|
|
|
|
namespace cl = llvm::cl;
|
|
|
|
static auto Main(llvm::StringRef default_prelude_file, int argc, char* argv[])
|
|
-> ErrorOr<Success> {
|
|
llvm::setBugReportMsg(
|
|
"Please report issues to "
|
|
"https://github.com/carbon-language/carbon-lang/issues and include the "
|
|
"crash backtrace.\n");
|
|
llvm::InitLLVM init_llvm(argc, argv);
|
|
|
|
// Printing to stderr should flush stdout. This is most noticeable when stderr
|
|
// is piped to stdout.
|
|
llvm::errs().tie(&llvm::outs());
|
|
|
|
cl::opt<std::string> input_file_name(cl::Positional, cl::desc("<input file>"),
|
|
cl::Required);
|
|
cl::opt<bool> parser_debug("parser_debug",
|
|
cl::desc("Enable debug output from the parser"));
|
|
cl::opt<std::string> trace_file_name(
|
|
"trace_file",
|
|
cl::desc("Output file for tracing; set to `-` to output to stdout."));
|
|
|
|
// Find the path of the executable if possible and use that as a relative root
|
|
cl::opt<std::string> prelude_file_name("prelude", cl::desc("<prelude file>"),
|
|
cl::init(default_prelude_file.str()));
|
|
cl::ParseCommandLineOptions(argc, argv);
|
|
|
|
// Set up a stream for trace output.
|
|
std::unique_ptr<llvm::raw_ostream> scoped_trace_stream;
|
|
std::optional<Nonnull<llvm::raw_ostream*>> trace_stream;
|
|
if (!trace_file_name.empty()) {
|
|
if (trace_file_name == "-") {
|
|
trace_stream = &llvm::outs();
|
|
} else {
|
|
std::error_code err;
|
|
scoped_trace_stream =
|
|
std::make_unique<llvm::raw_fd_ostream>(trace_file_name, err);
|
|
if (err) {
|
|
return Error(err.message());
|
|
}
|
|
trace_stream = scoped_trace_stream.get();
|
|
}
|
|
}
|
|
|
|
Arena arena;
|
|
CARBON_ASSIGN_OR_RETURN(AST ast,
|
|
Parse(&arena, input_file_name, parser_debug));
|
|
AddPrelude(prelude_file_name, &arena, &ast.declarations);
|
|
|
|
// Typecheck and run the parsed program.
|
|
CARBON_ASSIGN_OR_RETURN(int return_code,
|
|
ExecProgram(&arena, ast, trace_stream));
|
|
// Always print the return code to stdout.
|
|
llvm::outs() << "result: " << return_code << "\n";
|
|
// When there's a dedicated trace file, print the return code to it too.
|
|
if (scoped_trace_stream) {
|
|
**trace_stream << "result: " << return_code << "\n";
|
|
}
|
|
return Success();
|
|
}
|
|
|
|
auto ExplorerMain(llvm::StringRef default_prelude_file, int argc, char** argv)
|
|
-> int {
|
|
if (auto result = Main(default_prelude_file, argc, argv); !result.ok()) {
|
|
llvm::errs() << result.error() << "\n";
|
|
return EXIT_FAILURE;
|
|
}
|
|
return EXIT_SUCCESS;
|
|
}
|
|
|
|
} // namespace Carbon
|