mirror of
https://github.com/carbon-language/carbon-lang.git
synced 2026-09-25 09:30:11 +01:00
44 lines
1.4 KiB
C++
44 lines
1.4 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 "executable_semantics/syntax/syntax_helpers.h"
|
|
|
|
#include "common/ostream.h"
|
|
#include "executable_semantics/common/arena.h"
|
|
#include "executable_semantics/common/tracing_flag.h"
|
|
#include "executable_semantics/interpreter/interpreter.h"
|
|
#include "executable_semantics/interpreter/typecheck.h"
|
|
|
|
namespace Carbon {
|
|
|
|
void ExecProgram(std::list<Declaration>* fs) {
|
|
if (tracing_output) {
|
|
llvm::outs() << "********** source program **********\n";
|
|
for (const auto& decl : *fs) {
|
|
llvm::outs() << decl;
|
|
}
|
|
llvm::outs() << "********** type checking **********\n";
|
|
}
|
|
state = global_arena->New<State>(); // Compile-time state.
|
|
TypeCheckContext p = TopLevel(fs);
|
|
TypeEnv top = p.types;
|
|
Env ct_top = p.values;
|
|
std::list<Declaration> new_decls;
|
|
for (const auto& decl : *fs) {
|
|
new_decls.push_back(MakeTypeChecked(decl, top, ct_top));
|
|
}
|
|
if (tracing_output) {
|
|
llvm::outs() << "\n";
|
|
llvm::outs() << "********** type checking complete **********\n";
|
|
for (const auto& decl : new_decls) {
|
|
llvm::outs() << decl;
|
|
}
|
|
llvm::outs() << "********** starting execution **********\n";
|
|
}
|
|
int result = InterpProgram(&new_decls);
|
|
llvm::outs() << "result: " << result << "\n";
|
|
}
|
|
|
|
} // namespace Carbon
|