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 Han-Wen Nienhuys <hanwen@stack.nl>
   7 */
   8
   9 #include <assert.h>
  10 #include "midi-def.hh"
  11 #include "paper-def.hh"
  12 #include "score.hh"
  13 #include "identifier.hh"
  14 #include "my-lily-lexer.hh"
  15 #include "debug.hh"
  16 #include "symtable.hh"
  17 #include "lookup.hh"
  18 #include "script-def.hh"
  19 #include "request.hh"
  20 #include "input-translator.hh"
  21
  22
  23 IMPLEMENT_IS_TYPE_B(Identifier);
  24
  25 Identifier::~Identifier()
  26 {
  27   if (!accessed_b_ && !init_b_)
  28         warning ("Variable not used");
  29 }
  30 void
  31 Identifier::error (String expect)
  32 {
  33   String e ("Wrong identifier type: ");
  34   e += String (name()) + "(expected " + expect + ")";
  35   ::error (e);
  36 }
  37
  38 Identifier::Identifier (int code)
  39 {
  40   token_code_i_ = code;
  41   accessed_b_ = 0;
  42   init_b_ = 0;
  43 }
  44
  45 void
  46 Identifier::print() const
  47 {
  48   DOUT << "identifier ";
  49   do_print();
  50 }
  51
  52 /* ugh. */
  53 #define DEFAULT_PRINT(Class, Content_type, accessor) \
  54 void \
  55 Class::do_print() const { \
  56   ((Class*)this)->accessor()->print(); \
  57 } \
  58 class Class
  59
  60
  61 DEFAULT_PRINT(Script_id, General_script_def, script);
  62 DEFAULT_PRINT(Lookup_id, Lookup, lookup);
  63 DEFAULT_PRINT(Input_translator_id, Input_trans, input_translator);
  64 DEFAULT_PRINT(Symtables_id, Symtables, symtables);
  65 DEFAULT_PRINT(Music_id,Music , music);
  66 DEFAULT_PRINT(Request_id, Request, request);
  67 DEFAULT_PRINT(Score_id, Score, score);
  68 DEFAULT_PRINT(Midi_def_id,Midi_def, mididef);
  69 DEFAULT_PRINT(Paper_def_id,Paper_def, paperdef);
  70
  71
  72 void
  73 Duration_id::do_print() const
  74 {}
  75
  76 void
  77 Real_id::do_print() const
  78 {
  79   DOUT << *data_p_<< "\n";
  80 }
  81
  82 void
  83 Int_id::do_print() const
  84 {
  85   DOUT << *data_p_<< "\n";
  86 }
  87
  88
  89 #define DEFAULT_ACCESSOR(Idclass, Class, accessor)\
  90 Class*\
  91 Idclass::accessor () {\
  92   accessed_b_ = true;\
  93   return new Class (*data_p_);\
  94 }
  95
  96 #define VIRTUAL_ACCESSOR(Idclass, Class, accessor)\
  97 Class*\
  98 Idclass::accessor () {\
  99   accessed_b_ = true;\
 100   return (Class*)data_p_->clone();\
 101 }
 102
 103 #define IMPLEMENT_ID_CLASS(Idclass, Class, accessor)    \
 104         IMPLEMENT_IS_TYPE_B1(Idclass,Identifier)\
 105         Idclass::~Idclass() { delete data_p_; }\
 106         Idclass::Idclass (Class*st, int code):Identifier (code) { data_p_ = st; }\
 107
 108 IMPLEMENT_ID_CLASS(Duration_id, Duration, duration);
 109 IMPLEMENT_ID_CLASS(Input_translator_id, Input_translator, input_translator);
 110 IMPLEMENT_ID_CLASS(Int_id, int, intid);
 111 IMPLEMENT_ID_CLASS(Real_id, Real, real);
 112 IMPLEMENT_ID_CLASS(Script_id, General_script_def, script);
 113 IMPLEMENT_ID_CLASS(Lookup_id, Lookup, lookup);
 114 IMPLEMENT_ID_CLASS(Symtables_id, Symtables, symtables);
 115 IMPLEMENT_ID_CLASS(Music_id, Music, music);
 116 IMPLEMENT_ID_CLASS(Score_id, Score, score);
 117 IMPLEMENT_ID_CLASS(Request_id, Request, request);
 118 IMPLEMENT_ID_CLASS(Midi_def_id, Midi_def, mididef);
 119 IMPLEMENT_ID_CLASS(Paper_def_id, Paper_def, paperdef);
 120
 121 Identifier::Identifier (Identifier const&)
 122 {
 123   assert (false);
 124 }
 125
 126 DEFAULT_ACCESSOR(Duration_id, Duration, duration);
 127 DEFAULT_ACCESSOR(Input_translator_id,Input_translator, input_translator);
 128 DEFAULT_ACCESSOR(Int_id, int, intid);
 129 DEFAULT_ACCESSOR(Real_id, Real, real);
 130 VIRTUAL_ACCESSOR(Script_id, General_script_def, script);
 131 DEFAULT_ACCESSOR(Lookup_id, Lookup, lookup);
 132 DEFAULT_ACCESSOR(Symtables_id, Symtables, symtables);
 133 VIRTUAL_ACCESSOR(Music_id, Music, music);
 134 DEFAULT_ACCESSOR(Score_id, Score, score);
 135 VIRTUAL_ACCESSOR(Request_id, Request, request);
 136 DEFAULT_ACCESSOR(Midi_def_id, Midi_def, mididef);
 137 DEFAULT_ACCESSOR(Paper_def_id, Paper_def, paperdef);