text: /**
   * Copyright (c) 2019 Ava Labs, Inc.
   *
   * Author: Ted Yin <tederminant@gmail.com>
   *
   * Permission is hereby granted, free of charge, to any person obtaining a copy of
   * this software and associated documentation files (the "Software"), to deal in
   * the Software without restriction, including without limitation the rights to
   * use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
   * of the Software, and to permit persons to whom the Software is furnished to do
   * so, subject to the following conditions:
   *
   * The above copyright notice and this permission notice shall be included in all
   * copies or substantial portions of the Software.
   *
   * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
   * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
   * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
   * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
   * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
   * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
   * SOFTWARE.
   */
  
  #include <cstdio>
  #include <cstdint>
  #include <string>
  #include <functional>
  #include <unordered_map>
  #include <unistd.h>
  #include <signal.h>
  
  #include "salticidae/msg.h"
  #include "salticidae/event.h"
  #include "salticidae/network.h"
  #include "salticidae/stream.h"
  
  using salticidae::NetAddr;
  using salticidae::DataStream;
  using salticidae::htole;
  using salticidae::letoh;
  using salticidae::EventContext;
  using salticidae::ThreadCall;
  using std::placeholders::_1;
  using std::placeholders::_2;
  
  using PeerNetwork = salticidae::PeerNetwork<uint8_t>;
  
  std::unordered_map<size_t, PeerNetwork::MsgNet::conn_t> msgnet_conns;
  size_t msgnet_conns_id = 0;
  
  struct MsgText {
      static const uint8_t opcode = 0x0;
      DataStream serialized;
      uint64_t id;
      std::string text;
  
      MsgText(uint64_t id, const std::string &text) {
          serialized << salticidae::htole(id) << salticidae::htole((uint32_t)text.length()) << text;
      }
  
      MsgText(DataStream &&s) {
          uint32_t len;
          s >> id;
          id = salticidae::letoh(id);
          s >> len;
          len = salticidae::letoh(len);
          text = std::string((const char *)s.get_data_inplace(len), len);
      }
  };
  
  const uint8_t MsgText::opcode;
  
  void masksigs() {
  	sigset_t mask;
  	sigemptyset(&mask);
      sigfillset(&mask);
      pthread_sigmask(SIG_BLOCK, &mask, NULL);
  }
  
  struct Net {
      uint64_t id;
      EventContext ec;
      ThreadCall tc;
      std::thread th;
      PeerNetwork *net;
      const std::string listen_addr;
  
      Net(uint64_t id, uint16_t port): id(id), tc(ec), listen_addr("127.0.0.1:"+ std::to_string(port)) {
          net = new PeerNetwork(ec, PeerNetwork::Config().conn_timeout(5).ping_period(2));
          net->reg_handler([this](const MsgText &msg, const PeerNetwork::conn_t &) {
              fprintf(stdout, "net %lu: peer %lu says %s\n", this->id, msg.id, msg.text.c_str());
          });
          net->reg_error_handler([this](const std::exception_ptr _err, bool fatal, int32_t async_id) {
              try {
                  std::rethrow_exception(_err);
              } catch (const std::exception &err) {
                  fprintf(stdout, "net %lu: captured %s error during an async call %d: %s\n",
                          this->id, fatal ? "fatal" : "recoverable", async_id, err.what());
              }
          });
          net->reg_conn_handler([](const salticidae::ConnPool::conn_t &conn, bool connected) {
              fprintf(stdout, "%s: conn pool %s\n",
                      std::string(conn->get_addr()).c_str(),
                      connected ? "connected" : "disconnected");
              return true;
          });
          net->reg_peer_handler([this](const PeerNetwork::conn_t &conn, bool connected) {
              fprintf(stdout, "net %lu: %s peer %s\n", this->id,
                      connected ? "connected to" : "disconnected from",
                      std::string(conn->get_peer_addr()).c_str());
          });
          net->reg_unknown_peer_handler([this](const NetAddr &claimed_addr, const salticidae::X509 *) {
              fprintf(stdout, "net %lu: unknown peer %s attempts to connnect\n",
                      this->id, std::string(claimed_addr).c_str());
          });
          th = std::thread([=](){
              masksigs();
              try {
                  net->start();
                  net->listen(NetAddr(listen_addr));
                  fprintf(stdout, "net %lu: listen to %s\n", id, listen_addr.c_str());
                  ec.dispatch();
              } catch (std::exception &err) {
                  fprintf(stdout, "net %lu: got error during a sync call: %s\n", id, err.what());
              }
              fprintf(stdout, "net %lu: main loop ended\n", id);
          });
      }
  
      void add_peer(const std::string &listen_addr) {
          try {
              net->add_peer(NetAddr(listen_addr));
          } catch (std::exception &err) {
              fprintf(stdout, "net %lu: got error during a sync call: %s\n", id, err.what());
          }
      }
  
      void set_peer_addr(const NetAddr &addr) {
          try {
              net->set_peer_addr(addr, addr);
          } catch (std::exception &err) {
              fprintf(stdout, "net %lu: got error during a sync call: %s\n", id, err.what());
          }
      }
  
      void conn_peer(const NetAddr &addr) {
          try {
              net->conn_peer(addr);
          } catch (std::exception &err) {
              fprintf(stdout, "net %lu: got error during a sync call: %s\n", id, err.what());
          }
      }
  
      PeerNetwork::MsgNet::conn_t connect_sync(const NetAddr &addr) {
          try {
              return net->connect_sync(addr);
          } catch (std::exception &err) {
              fprintf(stdout, "net %lu: got error during a sync call: %s\n", id, err.what());
              return PeerNetwork::MsgNet::conn_t(nullptr);
          }
      }
  
      void del_peer(const std::string &listen_addr) {
          try {
              net->del_peer(NetAddr(listen_addr));
          } catch (std::exception &err) {
              fprintf(stdout, "net %lu: got error during a sync call: %s\n", id, err.what());
          }
      }
  
      void stop_join() {
          tc.async_call([ec=this->ec](ThreadCall::Handle &) { ec.stop(); });
          th.join();
      }
  
      ~Net() { delete net; }
  };
  
  std::unordered_map<uint64_t, Net *> nets;
  std::unordered_map<std::string, std::function<void(char *)> > cmd_map;
  
  int read_int(char *buff) {
      scanf("%64s", buff);
      try {
          int t = std::stoi(buff);
          if (t < 0) throw std::invalid_argument("negative");
          return t;
      } catch (std::invalid_argument) {
          fprintf(stdout, "expect a non-negative integer\n");
          return -1;
      }
  }
  
  int main(int argc, char **argv) {
      int i;
      fprintf(stdout, "p2p network library playground (type help for more info)\n");
      fprintf(stdout, "========================================================\n");
  
      auto cmd_exit = [](char *) {
          for (auto &p: nets)
          {
              p.second->stop_join();
              delete p.second;
          }
          exit(0);
      };
  
      auto cmd_add = [](char *buff) {
          int id = read_int(buff);
          if (id < 0) return;
          if (nets.count(id))
          {
              fprintf(stdout, "net id already exists\n");
              return;
          }
          int port = read_int(buff);
          if (port < 0) return;
          if (port >= 65536)
          {
              fprintf(stdout, "port should be < 65536\n");
              return;
          }
          nets.insert(std::make_pair(id, new Net(id, port)));
      };
  
      auto cmd_ls = [](char *) {
          for (auto &p: nets)
              fprintf(stdout, "%d -> %s\n", p.first, p.second->listen_addr.c_str());
      };
  
      auto cmd_del = [](char *buff) {
          int id = read_int(buff);
          if (id < 0) return;
          auto it = nets.find(id);
          if (it == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          it->second->stop_join();
          delete it->second;
          nets.erase(it);
      };
  
      auto cmd_addpeer = [](char *buff) {
          int id = read_int(buff);
          if (id < 0) return;
          auto it = nets.find(id);
          if (it == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          int id2 = read_int(buff);
          if (id2 < 0) return;
          auto it2 = nets.find(id2);
          if (it2 == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          it->second->add_peer(it2->second->listen_addr);
      };
  
      auto cmd_delpeer = [](char *buff) {
          int id = read_int(buff);
          if (id < 0) return;
          auto it = nets.find(id);
          if (it == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          int id2 = read_int(buff);
          if (id2 < 0) return;
          auto it2 = nets.find(id2);
          if (it2 == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          it->second->del_peer(it2->second->listen_addr);
      };
  
      auto cmd_setpeeraddr = [](char *buff) {
          int id = read_int(buff);
          if (id < 0) return;
          auto it = nets.find(id);
          if (it == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          int id2 = read_int(buff);
          if (id2 < 0) return;
          auto it2 = nets.find(id2);
          if (it2 == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          it->second->set_peer_addr(it2->second->listen_addr);
      };
  
      auto cmd_connpeer = [](char *buff) {
          int id = read_int(buff);
          if (id < 0) return;
          auto it = nets.find(id);
          if (it == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          int id2 = read_int(buff);
          if (id2 < 0) return;
          auto it2 = nets.find(id2);
          if (it2 == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          it->second->conn_peer(it2->second->listen_addr);
      };
  
      auto cmd_connpeer2 = [](char *buff) {
          int id = read_int(buff);
          if (id < 0) return;
          auto it = nets.find(id);
          if (it == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          int id2 = read_int(buff);
          if (id2 < 0) return;
          auto it2 = nets.find(id2);
          if (it2 == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          size_t mn_conn_id = msgnet_conns_id++;
          auto conn = it->second->connect_sync(it2->second->listen_addr);
          if (conn)
          {
              msgnet_conns[mn_conn_id] = conn;
              fprintf(stdout, "msgnet conn %zu created\n", mn_conn_id);
          }
      };
  
      auto cmd_msg = [](char *buff) {
          int id = read_int(buff);
          if (id < 0) return;
          auto it = nets.find(id);
          if (it == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          int id2 = read_int(buff);
          if (id2 < 0) return;
          auto it2 = nets.find(id2);
          if (it2 == nets.end())
          {
              fprintf(stdout, "net id does not exist\n");
              return;
          }
          scanf("%64s", buff);
          it->second->net->send_msg(MsgText(id, buff), NetAddr(it2->second->listen_addr));
      };
  
      auto cmd_sleep = [](char *buff) {
          int sec = read_int(buff);
          if (sec < 0) return;
          sleep(sec);
      };
  
      auto cmd_help = [](char *) {
          fprintf(stdout,
              "add <node-id> <port> -- start a node (create a PeerNetwork instance)\n"
              "addpeer <node-id> <peer-id> -- add a peer to a given node\n"
              "setpeeraddr <node-id> <peer-id> -- set the peer addr\n"
              "connpeer <node-id> <peer-id> -- try to connect to the peer by PeerId\n"
              "connpeer2 <node-id> <peer-id> -- try to connect to the peer by NetAddr\n"
              "delpeer <node-id> <peer-id> -- add a peer to a given node\n"
              "del <node-id> -- remove a node (destroy a PeerNetwork instance)\n"
              "msg <node-id> <peer-id> <msg> -- send a text message to a node\n"
              "ls -- list all node ids\n"
              "sleep <sec> -- wait for some seconds\n"
              "exit -- quit the program\n"
              "help -- show this info\n"
          );
      };
  
      cmd_map.insert(std::make_pair("add", cmd_add));
      cmd_map.insert(std::make_pair("addpeer", cmd_addpeer));
      cmd_map.insert(std::make_pair("setpeeraddr", cmd_setpeeraddr));
      cmd_map.insert(std::make_pair("connpeer", cmd_connpeer));
      cmd_map.insert(std::make_pair("connpeer2", cmd_connpeer2));
      cmd_map.insert(std::make_pair("del", cmd_del));
      cmd_map.insert(std::make_pair("delpeer", cmd_delpeer));
      cmd_map.insert(std::make_pair("msg", cmd_msg));
      cmd_map.insert(std::make_pair("ls", cmd_ls));
      cmd_map.insert(std::make_pair("sleep", cmd_sleep));
      cmd_map.insert(std::make_pair("exit", cmd_exit));
      cmd_map.insert(std::make_pair("help", cmd_help));
  
      bool is_tty = isatty(0);
      for (;;)
      {
          if (is_tty) fprintf(stdout, "> ");
          char buff[128];
          if (scanf("%64s", buff) == EOF) break;
          auto it = cmd_map.find(buff);
          if (it == cmd_map.end())
              fprintf(stdout, "invalid comand \"%s\"\n", buff);
          else
              (it->second)(buff);
      }
  
      return 0;
  }
  