lily/identifier.cc

   1 /*
   2   identifier.cc -- implement identifier and derived classes
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 /*
  10   JUNKTHIS!
  11  */
  12 #include <assert.h>
  13 #include "music-output-def.hh"
  14 #include "score.hh"
  15 #include "identifier.hh"
  16 #include "my-lily-lexer.hh"
  17 #include "debug.hh"
  18 #include "request.hh"
  19 #include "translator-group.hh"
  20 #include "ly-smobs.icc"
  21
  22 IMPLEMENT_UNSMOB(Identifier, identifier);
  23 IMPLEMENT_SMOBS(Identifier);
  24
  25 Identifier::Identifier (int code)
  26 {
  27   self_scm_ = SCM_EOL;
  28   token_code_i_ = code;
  29   accessed_b_ = 0;
  30 }
  31
  32 Identifier::Identifier (Identifier const&s)
  33   : Input (s)
  34 {
  35   self_scm_ = SCM_EOL;
  36   token_code_i_ = s.token_code_i_;
  37   accessed_b_ = s.accessed_b_;
  38 }
  39
  40 Identifier::~Identifier()
  41 {
  42 }
  43
  44 void
  45 Identifier::error (String expect) const
  46 {
  47   ::error (_f ("wrong identifier type, expected: `%s'", expect));
  48 }
  49
  50 String
  51 Identifier::str () const
  52 {
  53   return do_str ();
  54 }
  55
  56 String
  57 Identifier::do_str () const
  58 {
  59   return "";
  60 }
  61
  62 void
  63 Identifier::print () const
  64 {
  65   DEBUG_OUT << "identifier ";
  66   do_print ();
  67 }
  68 void
  69 Identifier::do_print () const
  70 {
  71 }
  72
  73 /* ugh. */
  74 #define DEFAULT_PRINT(Class) \
  75 void \
  76 Class ## _identifier::do_print () const { \
  77   Class *cl = ((Class ## _identifier *)this)->access_content_ ## Class(false);\
  78   cl->print (); \
  79 }
  80
  81
  82
  83 DEFAULT_PRINT(Translator_group);
  84 DEFAULT_PRINT(Music);
  85 DEFAULT_PRINT(Request);
  86 DEFAULT_PRINT(Score);
  87 DEFAULT_PRINT(Music_output_def);
  88
  89 /* ugh. */
  90 #define DUMMY_STR(Class) \
  91 String \
  92 Class ## _identifier::do_str () const { \
  93   return String (#Class); \
  94 }
  95
  96
  97 DUMMY_STR(Translator_group);
  98 DUMMY_STR(Music);
  99 DUMMY_STR(Request);
 100 DUMMY_STR(Score);
 101 DUMMY_STR(Music_output_def);
 102 DUMMY_STR(Duration);
 103
 104 #define STRING_PRINT(Class) \
 105 void \
 106 Class ## _identifier::do_print () const\
 107 {\
 108   DEBUG_OUT << do_str () << '\n';\
 109 }\
 110
 111
 112 STRING_PRINT(Duration);
 113
 114 #define DEFAULT_STR(Class) \
 115 String \
 116 Class ## _identifier::do_str () const\
 117 {\
 118   return to_str (*data_p_);\
 119 }
 120
 121
 122
 123 /*
 124   fucking C++ blows me.
 125  */
 126
 127 #define DEFAULT_ACCESSOR(Class)\
 128 Class*\
 129 Class ## _identifier::access_content_ ## Class (bool copy_b) const {\
 130   ((Class ## _identifier*)this)->accessed_b_ = true;\
 131   return copy_b ? new Class (*data_p_) : data_p_;\
 132 }
 133
 134 #define VIRTUAL_ACCESSOR(Class)\
 135 Class*\
 136 Class ## _identifier::access_content_ ## Class (bool copy_b) const{\
 137   ((Class ## _identifier*)this)->accessed_b_ = true;\
 138   return copy_b ? dynamic_cast<Class*> (data_p_->clone()) : data_p_;\
 139 }
 140
 141 #define IMPLEMENT_ID_CLASS(Class)       \
 142         Class ## _identifier::~Class ## _identifier() { delete data_p_; }\
 143         Class ## _identifier::Class ## _identifier (Class*st, int code) \
 144           :Identifier (code)\
 145         {\
 146           data_p_ = st;\
 147         }\
 148 Class ## _identifier::Class ## _identifier (Class ## _identifier const &s) \
 149   : Identifier (s)\
 150 {\
 151    data_p_ = s.access_content_ ## Class (true);\
 152 }
 153
 154
 155 IMPLEMENT_ID_CLASS(Duration);
 156 IMPLEMENT_ID_CLASS(Translator_group);
 157 IMPLEMENT_ID_CLASS(Music);
 158 IMPLEMENT_ID_CLASS(Score);
 159 IMPLEMENT_ID_CLASS(Request);
 160 IMPLEMENT_ID_CLASS(Music_output_def);
 161 VIRTUAL_ACCESSOR(Music);
 162 VIRTUAL_ACCESSOR(Request);
 163 VIRTUAL_ACCESSOR(Translator_group);
 164 VIRTUAL_ACCESSOR(Music_output_def);
 165 DEFAULT_ACCESSOR(Duration);
 166 DEFAULT_ACCESSOR(Score);
 167
 168
 169 int
 170 Identifier::print_smob (SCM s, SCM p, scm_print_state*)
 171 {
 172  return 1;
 173 }
 174
 175 SCM
 176 Identifier::mark_smob (SCM s)
 177 {
 178   return SCM_EOL;
 179 }
 180
 181
 182
 183 void
 184 Identifier::do_smobify_self ()
 185 {
 186
 187 }