From: fred <fred>
Date: Thu, 12 Sep 1996 22:25:40 +0000 (+0000)
Subject: lilypond-0.0.1
X-Git-Tag: release/1.5.59~7201
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2c1ca2112a07f6580226e782fb20fd8bd672fc0b;p=lilypond.git

lilypond-0.0.1
---

diff --git a/debug.cc b/debug.cc
new file mode 100644
index 0000000000..548a76c186
--- /dev/null
+++ b/debug.cc
@@ -0,0 +1,15 @@
+#include "debug.hh"
+int debug_flags;
+
+void
+set_debug(String s)
+{
+    if (s.pos ('t')) {
+	debug_flags |= DEBUGTOKEN;
+	mtor << " Turning on token debug\n";
+    }
+    if (s.pos ('p')){
+	debug_flags |= DEBUGPARSER;
+	mtor << "Turning on parser debugger\n";
+    }
+}