From: fred <fred>
Date: Tue, 22 Oct 1996 20:09:43 +0000 (+0000)
Subject: flower-1.0.2
X-Git-Tag: release/1.5.59~7042
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b886c9b554bc8529348869b09d9baecdef81fe93;p=lilypond.git

flower-1.0.2
---

diff --git a/flower/dstream.cc b/flower/dstream.cc
new file mode 100644
index 0000000000..d8cff69041
--- /dev/null
+++ b/flower/dstream.cc
@@ -0,0 +1,123 @@
+#include <fstream.h>
+
+#include "dstream.hh"
+#include "string.hh"
+#include "textdb.hh"
+
+/// indent of each level 
+const INDTAB = 3;
+
+/*
+  should use Regexp library.
+  */
+static String
+strip_pretty(String pret)
+{
+    String cl(pret.left(pret.pos('(')-1));
+    int l = cl.lastPos(' ');
+    cl = cl.right(cl.len() -l);
+    return cl;
+}
+
+static String
+strip_member(String pret)
+{
+    String cl(pret.left(pret.lastPos(':')-2));
+    return cl;
+}
+
+Dstream&
+Dstream::identify_as(String name)
+{
+    if (!os)
+	return *this;
+    
+    String mem(strip_pretty(name));
+    String cl(strip_member(mem));
+    String idx = cl;
+    
+    if (silent.elt_query(mem))
+	idx  = mem;
+    else if (silent.elt_query(cl))
+	idx = cl;
+    else {
+	silent[idx] = false;
+    }
+    local_silence = silent[idx];
+    if (classname != idx && !local_silence) {
+	classname=idx;
+	*os << "[" << classname << ":]";
+    }
+    return *this;
+}
+
+bool
+Dstream::silence(String s)
+{
+    if (!silent.elt_query(s))
+	return false;
+    return silent[s];
+}
+///
+Dstream &
+Dstream::operator<<(String s)
+{
+    if (local_silence|| !os)
+	return *this;
+    
+    for (const char *cp = s  ; *cp; cp++)
+	switch(*cp) 
+	    {
+	    case '{':
+	    case '[':
+	    case '(': indentlvl += INDTAB;
+		*os << *cp;		
+		break;
+		
+	    case ')':
+	    case ']':
+	    case '}':
+		indentlvl -= INDTAB;
+		*os << *cp		;
+		
+		assert  (indentlvl>=0) ;
+		break;
+		
+	    case '\n':
+		*os << '\n' << String (' ', indentlvl) << flush;
+		break;	      
+	    default:
+		*os << *cp;
+		break;
+	    }
+    return *this;    
+}
+
+/** only output possibility. Delegates all conversion to String class.
+ */
+
+Dstream::Dstream(ostream *r, const char * cfg_nm )
+{
+    os = r;
+    if (!os)
+	return;
+    indentlvl = 0;
+    
+    const char * fn =cfg_nm ? cfg_nm : ".dstreamrc";
+    {
+	ifstream ifs(fn);	// can't open
+	if (!ifs)
+	    return;
+    }
+    //    cerr << "(" << fn;
+    Text_db cfg(fn);
+    while (! cfg.eof()){	     
+	 Text_record  r(  cfg++);
+	 assert(r.sz() == 2);
+	 silent[r[0]] = r[1].to_bool();
+    }
+    //  cerr <<")";
+}
+
+
+
diff --git a/flower/dstream.hh b/flower/dstream.hh
new file mode 100644
index 0000000000..72d0897201
--- /dev/null
+++ b/flower/dstream.hh
@@ -0,0 +1,48 @@
+// debug_stream
+
+#ifndef DSTREAM_HH
+#define DSTREAM_HH
+
+#include "string.hh"
+#include "assoc.hh"
+
+const char eol= '\n';
+
+/// debug stream
+class Dstream
+{
+    ostream *os;
+    int indentlvl;
+    bool local_silence;
+    String classname;
+
+    Assoc<String, bool> silent;
+public:
+
+    bool silence(String);
+    
+    Dstream(ostream *r, const char  * rcfile);
+    /**
+      if rcfile == 0, then do not read any rc file
+      */
+      
+    Dstream &identify_as(String s);
+    
+    Dstream &operator << (String s);
+};
+ /**
+   a class for providing debug output of nested structures,
+   with indents according to \{\}()[].
+
+   One can turn on and off specific messages using the Assoc silent.
+   This can be done automatically:
+
+   #define DEBUG  dstream_.identify_as(__PRETTY_FUNCTION__) 
+
+   DEBUG << "a message\n";
+   
+   Init for the class names which should be silent can be given in a rc file. 
+   
+  */
+#endif
+