Update profiling result printer

Signed-off-by: yamacir-kit <[email protected]>

README.md

@@ -103,9 +103,9 @@ sudo rm -rf /usr/local/share/meevax
 
 | Target Name        | Description
 |:-------------------|:--
-| `all` (default)    | Build shared-library `libmeevax.0.4.38.so` and executable `meevax`.
+| `all` (default)    | Build shared-library `libmeevax.0.4.39.so` and executable `meevax`.
 | `test`             | Test executable `meevax`.
-| `package`          | Generate debian package `meevax_0.4.38_amd64.deb`.
+| `package`          | Generate debian package `meevax_0.4.39_amd64.deb`.
 | `install`          | Copy files into `/usr/local` __(1)__.
 | `install.deb`      | `all` + `package` + `sudo apt install <meevax>.deb`
 | `safe-install.deb` | `all` + `test` + `package` + `sudo apt install <meevax>.deb`
@@ -120,7 +120,7 @@ __(1)__ Meevax installed by `make install` cannot be uninstalled by the system's
 ## Usage
 
 ```
-Meevax Lisp System, version 0.4.38
+Meevax Lisp System, version 0.4.39
 
 Usage: meevax [OPTION...] [FILE...]
 

VERSION

@@ -1 +1 @@
-0.4.38
+0.4.39

include/meevax/kernel/heterogeneous.hpp

@@ -81,10 +81,11 @@ inline namespace kernel
     template <typename Bound, typename... Us>
     static auto allocate(Us&&... xs)
     {
-      #if PROFILE_ALLOCATION
-      current_profiler().by_type[typeid(typename std::decay<Bound>::type)].allocation++;
-      current_profiler().by_type[typeid(void)].allocation++;
-      #endif
+      if constexpr (profiler::count_allocations)
+      {
+        current_profiler().allocation_counts[typeid(Bound)]++;
+        current_profiler().allocation_counts[typeid(void)]++;
+      }
 
       if constexpr (std::is_same_v<Bound, Top>)
       {

include/meevax/kernel/overview.hpp

@@ -24,8 +24,6 @@
 
 #define NIL /* nothing */
 
-#define PROFILE_ALLOCATION true
-
 namespace meevax
 {
 inline namespace kernel

include/meevax/kernel/profiler.hpp

@@ -26,12 +26,9 @@ inline namespace kernel
 {
   struct profiler
   {
-    struct topic
-    {
-      std::size_t allocation = 0;
-    };
+    static constexpr auto count_allocations = false;
 
-    std::unordered_map<std::type_index, topic> by_type;
+    std::unordered_map<std::type_index, std::size_t> allocation_counts;
 
     ~profiler();
   };

src/kernel/profiler.cpp

@@ -14,7 +14,7 @@
    limitations under the License.
 */
 
-#include <fstream>
+#include <sstream>
 
 #include <meevax/kernel/profiler.hpp>
 #include <meevax/utility/demangle.hpp>
@@ -37,17 +37,21 @@ inline namespace kernel
 
   profiler::~profiler()
   {
-    if (auto file = std::ofstream("/tmp/meevax-profile-by-type.txt"); file)
+    if (auto ss = std::stringstream(); not std::empty(allocation_counts))
     {
-      for (auto&& [type, topic] : by_type)
+      for (auto&& [type, value] : allocation_counts)
       {
-        file << topic.allocation << "\t" << demangle(type.name()) << "\n";
+        ss << demangle(type.name()) << "\t" << value << "\n";
       }
-    }
 
-    sh("cat /tmp/meevax-profile-by-type.txt | sed 's/meevax::kernel:://g' \
-                                            | sort -rn \
-                                            | column -t -s'\t'");
+      sh("echo \"" + ss.str() + "\" | sed 's/meevax::kernel:://g'              \
+                                    | sort --field-separator='\t'              \
+                                           --key=2                             \
+                                           --numeric-sort                      \
+                                           --reverse                           \
+                                    | echo \"TYPENAME\tALLOCATION COUNT\n$(cat -)\" \
+                                    | column -t -s'\t'");
+    }
   }
 
   auto current_profiler() -> profiler &