release: 0.1.9

[lilypond.git] / flower / dstream.cc

diff --git a/flower/dstream.cc b/flower/dstream.cc
index b4267f35021cb7cb2b795b41069d624f5f1d9629..f11576d5900e1fafc0575e5737653f66d54e3119 100644 (file)
--- a/flower/dstream.cc
+++ b/flower/dstream.cc
@@ -1,130 +1,179 @@
+/*
+  dstream.cc -- implement Dstream
+
+  source file of the Flower Library
+
+  (c) 1996,1997 Han-Wen Nienhuys <hanwen@stack.nl>
+*/
+
 #include <fstream.h>
 #include "assoc.hh"
 #include "dstream.hh"
 #include "scalar.hh"
-#include "textdb.hh"
+#include "text-db.hh"
+#include "string-convert.hh"
+#include "assoc-iter.hh"
 
 /// indent of each level 
-const INDTAB = 3;
+const INDTAB = 2;
 
 /*
   should use Regexp library.
   */
 static String
-strip_pretty(String pret)
+strip_pretty (String pretty_str)
 {
-    String cl(pret.left(pret.pos('(')-1));
-    int l = cl.lastPos(' ');
-    cl = cl.right(cl.len() -l);
-    return cl;
+  int i = pretty_str.index_i ('(');
+  if (i>=0)
+       pretty_str = pretty_str.left_str (i);
+  
+  int l = pretty_str.index_last_i (' '); // strip until last ' '
+  if (l>=0)
+       pretty_str = pretty_str.nomid_str (0,l+1);
+  return pretty_str;
 }
 
 static String
-strip_member(String pret)
+strip_member (String pret)
 {
-    String cl(pret.left(pret.lastPos(':')-2));
-    return cl;
+  int l=pret.index_last_i (':')-1;
+  if (l>=0)
+       pret = pret.left_str (l);
+  return pret;
 }
 
 Dstream&
-Dstream::identify_as(String name)
+Dstream::identify_as (String name)
 {
-    if (!os)
+  if (!os_l_)
        return *this;
-    
-    String mem(strip_pretty(name));
-    String cl(strip_member(mem));
-    String idx = cl;
-    
-    if (silent->elt_query(mem))
+  
+  String mem (strip_pretty (name));
+  String cl (strip_member (mem));
+  String idx = cl;
+  
+  if (silent_assoc_p_->elt_b (mem))
        idx  = mem;
-    else if (silent->elt_query(cl))
+  else if (silent_assoc_p_->elt_b (cl))
        idx = cl;
-    else {
-       (*silent)[idx] = false;
+  else 
+    {
+       (*silent_assoc_p_)[idx] = false;
     }
-    local_silence = (*silent)[idx];
-    if (classname != idx && !local_silence) {
-       classname=idx;
-       *os << "[" << classname << ":]";
+  local_silence_b_ = (*silent_assoc_p_)[idx];
+  if (current_classname_str_ != idx && !local_silence_b_) 
+    {
+       current_classname_str_=idx;
+       if (!(*silent_assoc_p_)["Dstream"])
+           *os_l_ << "[" << current_classname_str_ << ":]"; // messy.
     }
-    return *this;
+  return *this;
 }
 
 bool
-Dstream::silence(String s)
+Dstream::silence (String s)
 {
-    if (!silent->elt_query(s))
+  if (!silent_assoc_p_->elt_b (s))
        return false;
-    return (*silent)[s];
+  return (*silent_assoc_p_)[s];
 }
-///
+
 Dstream &
 Dstream::operator<<(String s)
 {
-    if (local_silence|| !os)
-       return *this;
-    
-    for (const char *cp = s  ; *cp; cp++)
-       switch(*cp) 
-           {
+  output (s);
+  return *this;
+}
+
+Dstream &
+Dstream::operator<<(void const *v_l)
+{
+  output (String_convert::pointer_str (v_l));
+  return *this;
+}
+
+Dstream &
+Dstream::operator<<(char const *ch_l)
+{
+  output (ch_l);
+  return *this;
+}
+
+void
+Dstream::output (String s)
+{
+  if (local_silence_b_|| !os_l_)
+       return ;
+  
+  for (char const *cp = s  ; *cp; cp++)
+       switch (*cp) 
+         {
            case '{':
            case '[':
-           case '(': indentlvl += INDTAB;
-               *os << *cp;             
+           case '(': indent_level_i_ += INDTAB;
+               *os_l_ << *cp;          
                break;
                
            case ')':
            case ']':
            case '}':
-               indentlvl -= INDTAB;
-               *os << *cp              ;
+               indent_level_i_ -= INDTAB;
+               *os_l_ << *cp           ;
                
-               assert  (indentlvl>=0) ;
+               assert  (indent_level_i_>=0) ;
                break;
                
            case '\n':
-               *os << '\n' << String (' ', indentlvl) << flush;
+               *os_l_ << '\n' << String (' ', indent_level_i_) << flush;
                break;        
            default:
-               *os << *cp;
+               *os_l_ << *cp;
                break;
-           }
-    return *this;    
+             }
+  return ;    
 }
 
-/** only output possibility. Delegates all conversion to String class.
- */
 
-Dstream::Dstream(ostream *r, const char * cfg_nm )
+Dstream::Dstream (ostream *r, char const * cfg_nm)
 {
-    os = r;
-    silent = new Assoc<String,bool>;
-    if (!os)
+  os_l_ = r;
+  silent_assoc_p_ = new Assoc<String,bool>;
+  indent_level_i_ = 0;
+  if (!os_l_)
        return;
-    indentlvl = 0;
-    
-    const char * fn =cfg_nm ? cfg_nm : ".dstreamrc";
-    {
-       ifstream ifs(fn);       // can't open
+  
+  char const * fn =cfg_nm ? cfg_nm : ".dstreamrc";
+  {
+       ifstream ifs (fn);      // can't open
        if (!ifs)
            return;
     }
 
-    Text_db cfg(fn);
-    while (! cfg.eof()){            
-        Text_record  r(  cfg++);
-        if (r.sz() != 2) {
-            r.message("not enough fields in Dstream init.");
+  Text_db cfg (fn);
+  while (! cfg.eof()){      
+        Text_record  r (cfg++);
+        if (r.size() != 2) 
+          {
+            r.message ("not enough fields in Dstream init.");
             continue;
-        }
-        (*silent)[r[0]] = Scalar(r[1]).to_bool();
+          }
+        (*silent_assoc_p_)[r[0]] = (bool)(int)(Scalar (r[1]));
     }
 
 }
 
 
 Dstream::~Dstream()
+{    
+  delete silent_assoc_p_;
+  assert (!indent_level_i_) ;
+}
+
+void
+Dstream::clear_silence() 
 {
-    delete silent;
+  for (Assoc_iter<String, bool> i (*silent_assoc_p_); i.ok(); i++) 
+    {
+       i.val() = 0;
+    }
 }