From 81ff8295651d75cdd07ff6fbb5a52d8aebe84136 Mon Sep 17 00:00:00 2001
From: jacob <jacob@cda61777-01e9-0310-a592-d414129be87e>
Date: Sat, 25 Jun 2005 17:24:03 +0000
Subject: [PATCH] Add debugging support.

git-svn-id: svn://svn.tartarus.org/sgt/puzzles@6018 cda61777-01e9-0310-a592-d414129be87e
---
 gtk.c | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gtk.c b/gtk.c
index 2cbbde4..4b789cb 100644
--- a/gtk.c
+++ b/gtk.c
@@ -25,6 +25,35 @@
 #define USE_PANGO
 #endif
 
+#ifdef DEBUGGING
+static FILE *debug_fp = NULL;
+
+void dputs(char *buf)
+{
+    if (!debug_fp) {
+        debug_fp = fopen("debug.log", "w");
+    }
+
+    fputs(buf, stderr);
+
+    if (debug_fp) {
+        fputs(buf, debug_fp);
+        fflush(debug_fp);
+    }
+}
+
+void debug_printf(char *fmt, ...)
+{
+    char buf[4096];
+    va_list ap;
+
+    va_start(ap, fmt);
+    vsprintf(buf, fmt, ap);
+    dputs(buf);
+    va_end(ap);
+}
+#endif
+
 /* ----------------------------------------------------------------------
  * Error reporting functions used elsewhere.
  */
-- 
2.11.0