initial commit

crypto/fift/Fift.cpp

@@ -0,0 +1,76 @@
+/*
+    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