flower/dstream.cc

   1 #include <fstream.h>
   2
   3 #include "dstream.hh"
   4 #include "string.hh"
   5 #include "textdb.hh"
   6
   7 /// indent of each level
   8 const INDTAB = 3;
   9
  10 /*
  11   should use Regexp library.
  12   */
  13 static String
  14 strip_pretty(String pret)
  15 {
  16     String cl(pret.left(pret.pos('(')-1));
  17     int l = cl.lastPos(' ');
  18     cl = cl.right(cl.len() -l);
  19     return cl;
  20 }
  21
  22 static String
  23 strip_member(String pret)
  24 {
  25     String cl(pret.left(pret.lastPos(':')-2));
  26     return cl;
  27 }
  28
  29 Dstream&
  30 Dstream::identify_as(String name)
  31 {
  32     if (!os)
  33         return *this;
  34
  35     String mem(strip_pretty(name));
  36     String cl(strip_member(mem));
  37     String idx = cl;
  38
  39     if (silent.elt_query(mem))
  40         idx  = mem;
  41     else if (silent.elt_query(cl))
  42         idx = cl;
  43     else {
  44         silent[idx] = false;
  45     }
  46     local_silence = silent[idx];
  47     if (classname != idx && !local_silence) {
  48         classname=idx;
  49         *os << "[" << classname << ":]";
  50     }
  51     return *this;
  52 }
  53
  54 bool
  55 Dstream::silence(String s)
  56 {
  57     if (!silent.elt_query(s))
  58         return false;
  59     return silent[s];
  60 }
  61 ///
  62 Dstream &
  63 Dstream::operator<<(String s)
  64 {
  65     if (local_silence|| !os)
  66         return *this;
  67
  68     for (const char *cp = s  ; *cp; cp++)
  69         switch(*cp)
  70             {
  71             case '{':
  72             case '[':
  73             case '(': indentlvl += INDTAB;
  74                 *os << *cp;
  75                 break;
  76
  77             case ')':
  78             case ']':
  79             case '}':
  80                 indentlvl -= INDTAB;
  81                 *os << *cp              ;
  82
  83                 assert  (indentlvl>=0) ;
  84                 break;
  85
  86             case '\n':
  87                 *os << '\n' << String (' ', indentlvl) << flush;
  88                 break;
  89             default:
  90                 *os << *cp;
  91                 break;
  92             }
  93     return *this;
  94 }
  95
  96 /** only output possibility. Delegates all conversion to String class.
  97  */
  98
  99 Dstream::Dstream(ostream *r, const char * cfg_nm )
 100 {
 101     os = r;
 102     if (!os)
 103         return;
 104     indentlvl = 0;
 105
 106     const char * fn =cfg_nm ? cfg_nm : ".dstreamrc";
 107     {
 108         ifstream ifs(fn);       // can't open
 109         if (!ifs)
 110             return;
 111     }
 112     //    cerr << "(" << fn;
 113     Text_db cfg(fn);
 114     while (! cfg.eof()){
 115          Text_record  r(  cfg++);
 116          assert(r.sz() == 2);
 117          silent[r[0]] = r[1].to_bool();
 118     }
 119     //  cerr <<")";
 120 }
 121
 122
 123