mirror of
https://github.com/danog/ton.git
synced 2024-12-11 16:49:37 +01:00
77 lines
2.4 KiB
C++
77 lines
2.4 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-2019 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();
|
|
IntCtx ctx;
|
|
std::stringstream ss(file.data);
|
|
ctx.input_stream = &ss;
|
|
ctx.filename = td::PathView(file.path).file_name().str();
|
|
ctx.currentd_dir = td::PathView(file.path).parent_dir().str();
|
|
ctx.include_depth = is_interactive ? 0 : 1;
|
|
return do_interpret(ctx);
|
|
}
|
|
|
|
td::Result<int> Fift::interpret_istream(std::istream& stream, std::string current_dir, bool is_interactive) {
|
|
IntCtx ctx;
|
|
ctx.input_stream = &stream;
|
|
ctx.filename = "stdin";
|
|
ctx.currentd_dir = current_dir;
|
|
ctx.include_depth = is_interactive ? 0 : 1;
|
|
return do_interpret(ctx);
|
|
}
|
|
|
|
td::Result<int> Fift::do_interpret(IntCtx& ctx) {
|
|
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");
|
|
}
|
|
try {
|
|
return funny_interpret_loop(ctx);
|
|
} catch (fift::IntError ab) {
|
|
return td::Status::Error(ab.msg);
|
|
} catch (fift::Quit q) {
|
|
return q.res;
|
|
}
|
|
return 0;
|
|
}
|
|
} // namespace fift
|