xo-interpreter2: scaffold repl + alloc measurement frameowkr

src/reader2/ParserStateMachine.cpp

@@ -16,6 +16,7 @@
 #include <stdexcept>
 
 namespace xo {
+    using xo::mm::MemorySizeInfo;
     using xo::print::APrintable;
     using xo::facet::FacetRegistry;
     using xo::facet::with_facet;
@@ -53,6 +54,29 @@ namespace xo {
             return this->stack_->top();
         }
 
+        std::size_t
+        ParserStateMachine::_n_store() const noexcept
+        {
+            return stringtable_._n_store() + 1;
+        }
+
+        MemorySizeInfo
+        ParserStateMachine::_store_info(std::size_t i) const noexcept
+        {
+            size_t n0 = stringtable_._n_store();
+
+            if (i < n0) 
+                return stringtable_._store_info(i);
+
+            if (i == n0)
+                return parser_alloc_._store_info();
+
+            // not counting expr_alloc_. We don't consider
+            // that to be owned by ParserStateMachine
+
+            return MemorySizeInfo::sentinel();
+        }
+
         void
         ParserStateMachine::establish_toplevel_ssm(obj<ASyntaxStateMachine> ssm)
         {

src/reader2/SchematikaParser.cpp

@@ -13,6 +13,7 @@
 
 namespace xo {
     using xo::mm::AAllocator;
+    using xo::mm::MemorySizeInfo;
     using xo::tostr;
     using xo::xtag;
 
@@ -46,6 +47,18 @@ namespace xo {
             return psm_.top_ssm();
         }
 
+        std::size_t
+        SchematikaParser::_n_store() const noexcept
+        {
+            return psm_._n_store();
+        }
+
+        MemorySizeInfo
+        SchematikaParser::_store_info(std::size_t i) const noexcept
+        {
+            return psm_._store_info(i);
+        }
+
         void
         SchematikaParser::begin_interactive_session()
         {

src/reader2/SchematikaReader.cpp

@@ -6,6 +6,8 @@
 #include "SchematikaReader.hpp"
 
 namespace xo {
+    using xo::mm::MemorySizeInfo;
+
     namespace scm {
         SchematikaReader::SchematikaReader(const ReaderConfig & config,
                                            obj<AAllocator> expr_alloc)
@@ -19,6 +21,29 @@ namespace xo {
         {
         }
 
+        std::size_t
+        SchematikaReader::_n_store() const noexcept
+        {
+            return tokenizer_._n_store() + parser_._n_store();
+        }
+        
+        MemorySizeInfo
+        SchematikaReader::_store_info(std::size_t i) const noexcept
+        {
+            size_t n_tk = tokenizer_._n_store();
+
+            if (i < n_tk) {
+                return tokenizer_._store_info(i);
+            }
+
+            size_t n_pr = parser_._n_store();
+
+            if (i < n_tk + n_pr)
+                return parser_._store_info(i - n_tk);
+
+            return MemorySizeInfo::sentinel();
+        }
+
         bool
         SchematikaReader::is_at_toplevel() const noexcept
         {
@@ -31,6 +56,12 @@ namespace xo {
             parser_.begin_interactive_session();
         }
 
+        void
+        SchematikaReader::begin_batch_session()
+        {
+            parser_.begin_batch_session();
+        }
+
         // TODO:
         // Schematika::end_interactive_session()