Add a new log_func to check the memory of an Array/Str

2 files changed, 22 insertions, 4 deletions

diff --git a/src/badlib.h b/src/badlib.h
index 6207ecf..7e1a715 100644
--- a/src/badlib.h
+++ b/src/badlib.h
@@ -1292,6 +1292,21 @@ log_func_array(Logger *l, void *in) {
     log_str(l, cstr(" }"));
 }
 
+void
+log_func_memory(Logger *l, void *in) {
+    assert(l);
+    Array *val = in;
+    for (sz i = 0; i < MIN(64, val->size); i++) {
+        Arena scratch = l->storage;
+        log_str(l, str_from_hex(val->mem[i], 2, &scratch));
+        if ((i + 1) % 16 == 0) {
+            log_str(l, cstr("\n"));
+        } else {
+            log_str(l, cstr(" "));
+        }
+    }
+}
+
 #define LOG_BUF_SIZE KB(1)
 #define LOG_MEM_SIZE KB(2)
 
@@ -1340,6 +1355,7 @@ log_init_default(void) {
         {cstr("Arena"), log_func_arena},
         {cstr("Buf"), log_func_buf},
         {cstr("Array"), log_func_array},
+        {cstr("Mem"), log_func_memory},
     };
     for (sz i = 0; i < LEN(log_funcs); i++) {
         log_func_register(&logger_inf, log_funcs[i]);
diff --git a/src/main.c b/src/main.c
index 0567116..9485c95 100644
--- a/src/main.c
+++ b/src/main.c
@@ -37,11 +37,13 @@ process_file(Str path) {
         println("%x{4}  %s", i + 1, line);
     }
 
-    println("<<< %x{4} %b{4} %f{2} %s %{Arena} >>>", 123, 3, 1.345,
-            cstr("BOOM!"), &logger_inf.storage);
-    printerrln("%s:%d:%d: %s", path, 1, 1,
-               cstr("error: testing string logger"));
+    // println("<<< %x{4} %b{4} %f{2} %s %{Arena} >>>", 123, 3, 1.345,
+    //         cstr("BOOM!"), &logger_inf.storage);
+    // printerrln("%s:%d:%d: %s", path, 1, 1,
+    //            cstr("error: testing string logger"));
 
+    println("arena_memory:\n%{Mem}",
+            &(Array){logger_inf.storage.beg, logger_inf.storage.size});
     // TODO: run lexer.
 }