io.streams.256color: faster by caching styles

[factor.git] / vm / debug.hpp

diff --git a/vm/debug.hpp b/vm/debug.hpp
old mode 100755 (executable)
new mode 100644 (file)
index cb84c92..3c56f81
--- a/vm/debug.hpp
+++ b/vm/debug.hpp
@@ -1,12 +1,32 @@
-namespace factor
-{
+namespace factor {
 
-void print_obj(cell obj);
-void print_nested_obj(cell obj, fixnum nesting);
-void dump_generations();
-void factorbug();
-void dump_zone(zone *z);
+extern bool factor_print_p;
 
-PRIMITIVE(die);
+#ifdef FACTOR_DEBUG
+
+// To chop the directory path of the __FILE__ macro.
+inline const char* abbrev_path(const char* path) {
+  const char* p1 = strrchr(path, '\\');
+  const char* p2 = strrchr(path, '/');
+  return (p1 > p2 ? p1 : p2) + 1;
+}
+
+#define FACTOR_PRINT(x)                                          \
+  do {                                                           \
+    if (factor_print_p) {                                        \
+      std::cerr                                                  \
+          << std::setw(16) << std::left << abbrev_path(__FILE__) \
+          << " " << std::setw(4) << std::right << __LINE__       \
+          << " " << std::setw(20) << std::left << __FUNCTION__   \
+          << " " << x                                            \
+          << std::endl;                                          \
+    }                                                            \
+  } while (0)
+#define FACTOR_PRINT_MARK FACTOR_PRINT("")
+
+#else
+#define FACTOR_PRINT(fmt, ...) ((void)0)
+#define FACTOR_PRINT_MARK ((void)0)
+#endif
 
 }