integrating the existing state of TON Storage / TON Payments / CPS Fift development branches

rldp2/Pacer.h

@@ -0,0 +1,39 @@
+#pragma once
+#include "td/utils/optional.h"
+#include "td/utils/Time.h"
+
+namespace ton {
+namespace rldp2 {
+// NB: Should be careful with max_capacity < time_granularity * speed
+// We may send packet of any size.
+// After that we will be put to sleep till wakeup_at().
+// When we are awake we send packet of any size again.
+// Logic is - we don't have to wait to send a packet - it is poinless.
+// But we have to wait for some time after packet is sent
+class Pacer {
+ public:
+  struct Options {
+    Options() {
+    }
+    double initial_capacity{20};
+    double initial_speed{10};
+    double max_capacity{40};
+    double time_granularity{0.001};
+  };
+  Pacer(Options options = {});
+  td::Timestamp wakeup_at() const;
+  void set_speed(double speed);
+  td::optional<td::Timestamp> send(double size, td::Timestamp now);
+
+ private:
+  double speed_;
+  double capacity_;
+  double max_capacity_;
+  double time_granularity_;
+  td::Timestamp capacity_at_;
+  td::Timestamp wakeup_at_;
+
+  void update_capacity(td::Timestamp now);
+};
+}  // namespace rldp2
+}  // namespace ton