lily/symtable.cc

   1 /*
   2   symtable.cc -- implement Symbol_table
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   7 */
   8
   9 #include "misc.hh"
  10 #include "dimen.hh"
  11 #include "debug.hh"
  12 #include "real.hh"
  13 #include "atom.hh"
  14 #include "assoc.hh"
  15 #include "assoc-iter.hh"
  16 #include "symtable.hh"
  17
  18 Symtables::Symtables()
  19 {
  20 }
  21
  22 Symtables::Symtables (Symtables const &s)
  23 {
  24   for (Assoc_iter<String, Symtable*>  i (s); i.ok(); i++)
  25     {
  26       add (i.key(), new Symtable (*i.val ()));
  27     }
  28 }
  29
  30 Symtables::~Symtables()
  31 {
  32   for (Assoc_iter<String, Symtable*>  i (*this); i.ok(); i++)
  33     {
  34       delete i.val();
  35     }
  36 }
  37
  38 Atom
  39 Symtable::lookup (String s) const
  40 {
  41   if (elt_b (s))
  42     return (*this)[s];
  43   else
  44     {
  45       warning ("Symtable `" + id_str+ _("\': unknown symbol `") +s+"'\n");
  46       Atom sy;
  47       return sy;
  48     }
  49 }
  50
  51 Symtable*
  52 Symtables::operator()(String s)
  53 {
  54   if (!elt_b (s))
  55     {
  56       error ("Symtable `" + s + _("\' unknown"));
  57       /*
  58          We can't return, because we'll dump core anyway.
  59        */
  60       return 0;
  61     }
  62   else
  63     return Dictionary<Symtable*>::operator[](s);
  64 }
  65 void
  66 Symtables::print() const
  67 {
  68   for (Assoc_iter<String, Symtable*>  i (*this); i.ok(); i++)
  69     {
  70       DOUT << "table \'" << i.key() << "\' {\n";
  71       i.val()->print ();
  72       DOUT << "}\n";
  73     }
  74 }
  75 void
  76 Symtable::print() const
  77 {
  78   for (Assoc_iter<String, Atom>  i (*this); i.ok(); i++)
  79     {
  80       DOUT << "\'" << i.key() << "\'->" << i.val ().str () << "\n";
  81     }
  82 }
  83
  84 void
  85 Symtables::add (String s, Symtable*p)
  86 {
  87   p-> id_str = s;
  88   Dictionary<Symtable*>::add (s,p);
  89 }