mirror of
https://github.com/ton-blockchain/ton
synced 2025-02-13 11:42:18 +00:00
82 lines
2.6 KiB
C++
82 lines
2.6 KiB
C++
/*
|
|
This file is part of TON Blockchain Library.
|
|
|
|
TON Blockchain Library is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as published by
|
|
the Free Software Foundation, either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
TON Blockchain Library is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public License
|
|
along with TON Blockchain Library. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
Copyright 2017-2020 Telegram Systems LLP
|
|
*/
|
|
#include "Fift.h"
|
|
|
|
#include "words.h"
|
|
|
|
#include "td/utils/PathView.h"
|
|
|
|
namespace fift {
|
|
|
|
Fift::Fift(Config config) : config_(std::move(config)) {
|
|
}
|
|
|
|
Fift::Config& Fift::config() {
|
|
return config_;
|
|
}
|
|
|
|
td::Result<int> Fift::interpret_file(std::string fname, std::string current_dir, bool is_interactive) {
|
|
auto r_file = config_.source_lookup.lookup_source(fname, current_dir);
|
|
if (r_file.is_error()) {
|
|
return td::Status::Error("cannot locate file `" + fname + "`");
|
|
}
|
|
auto file = r_file.move_as_ok();
|
|
std::stringstream ss(file.data);
|
|
IntCtx ctx{ss, td::PathView(file.path).file_name().str(), td::PathView(file.path).parent_dir().str(),
|
|
(int)!is_interactive};
|
|
return do_interpret(ctx, is_interactive);
|
|
}
|
|
|
|
td::Result<int> Fift::interpret_istream(std::istream& stream, std::string current_dir, bool is_interactive) {
|
|
IntCtx ctx{stream, "stdin", current_dir, (int)!is_interactive};
|
|
return do_interpret(ctx, is_interactive);
|
|
}
|
|
|
|
td::Result<int> Fift::do_interpret(IntCtx& ctx, bool is_interactive) {
|
|
ctx.ton_db = &config_.ton_db;
|
|
ctx.source_lookup = &config_.source_lookup;
|
|
ctx.dictionary = &config_.dictionary;
|
|
ctx.output_stream = config_.output_stream;
|
|
ctx.error_stream = config_.error_stream;
|
|
if (!ctx.output_stream) {
|
|
return td::Status::Error("Cannot run interpreter without output_stream");
|
|
}
|
|
while (true) {
|
|
auto res = ctx.run(td::make_ref<InterpretCont>());
|
|
if (res.is_error()) {
|
|
res = ctx.add_error_loc(res.move_as_error());
|
|
if (config_.show_backtrace) {
|
|
std::ostringstream os;
|
|
ctx.print_error_backtrace(os);
|
|
LOG(ERROR) << os.str();
|
|
}
|
|
if (is_interactive) {
|
|
LOG(ERROR) << res.move_as_error().message();
|
|
ctx.top_ctx();
|
|
ctx.clear_error();
|
|
ctx.stack.clear();
|
|
ctx.load_next_line();
|
|
continue;
|
|
}
|
|
}
|
|
return res;
|
|
}
|
|
}
|
|
|
|
} // namespace fift
|