/*
identifier.cc -- implement identifier and derived classes
- source file of the LilyPond music typesetter
+ source file of the GNU LilyPond music typesetter
(c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
*/
#include <assert.h>
-
+#include "midi-def.hh"
+#include "paper-def.hh"
+#include "score.hh"
#include "identifier.hh"
-#include "lexer.hh"
+#include "my-lily-lexer.hh"
#include "debug.hh"
+#include "symtable.hh"
+#include "lookup.hh"
+#include "script-def.hh"
+#include "request.hh"
+#include "input-engraver.hh"
+#include "input-performer.hh"
+
+IMPLEMENT_STATIC_NAME(Identifier);
+IMPLEMENT_IS_TYPE_B(Identifier);
+Identifier::~Identifier()
+{
+ if (!accessed_b_ && !init_b_)
+ warning("Variable not used");
+}
void
Identifier::error(String expect)
{
String e("Wrong identifier type: ");
- e += String(classname()) + "(expected " + expect + ")";
+ e += String(name()) + "(expected " + expect + ")";
::error(e);
}
+Identifier::Identifier(String n, int code)
+ : name_str_(n)
+{
+ token_code_i_ = code;
+ data = 0;
+ accessed_b_ = 0;
+ init_b_ = 0;
+}
+
void
Identifier::print()const
{
- mtor << "identifier \'" << name << "\'=";
+ mtor << "identifier \'" << name_str_ << "\'=";
do_print();
}
} \
class Class
-DEFAULT_PRINT(Script_id, Script_def, script);
+
+DEFAULT_PRINT(Script_id, General_script_def, script);
DEFAULT_PRINT(Lookup_id, Lookup, lookup);
DEFAULT_PRINT(Symtables_id, Symtables, symtables);
-DEFAULT_PRINT(Staff_id, Input_staff, staff);
-DEFAULT_PRINT(M_chord_id, Music_general_chord, mchord);
-DEFAULT_PRINT(M_voice_id, Music_voice, mvoice);
+DEFAULT_PRINT(Music_id,Music , music);
DEFAULT_PRINT(Request_id, Request, request);
+DEFAULT_PRINT(Score_id, Score, score);
+DEFAULT_PRINT(Input_gravs_id, Input_engraver, igravs);
+DEFAULT_PRINT(Input_perfs_id, Input_performer, iperfs);
+DEFAULT_PRINT(Midi_def_id,Midi_def, mididef);
+DEFAULT_PRINT(Paper_def_id,Paper_def, paperdef);
+
void
Real_id::do_print() const
{
- Identifier::print();
mtor << *((Real_id*)this)->real(false)<< "\n";
}
+void
+Int_id::do_print() const
+{
+ mtor << *((Int_id*)this)->intid(false)<< "\n";
+}
+
+
+#define default_accessor(Idclass, Class, accessor)\
+Class*\
+Idclass::accessor(bool copy) {\
+ if (copy){ \
+ accessed_b_ = true;\
+ return new Class(* (Class*) data);\
+ }else\
+ return (Class*) data;\
+ }\
+
+#define virtual_accessor(Idclass, Class, accessor)\
+Class*\
+Idclass::accessor(bool copy) {\
+ if (copy){ \
+ accessed_b_ = true;\
+ return (Class*) ((Class*) data)->clone();\
+ }else\
+ return (Class*) data;\
+ }\
+
+
+#define implement_id_class(Idclass, Class, accessor) \
+IMPLEMENT_STATIC_NAME(Idclass)\
+IMPLEMENT_IS_TYPE_B1(Idclass,Identifier)\
+Idclass::~Idclass() { delete accessor(false); }\
+Idclass::Idclass(String s, Class*st, int code):Identifier(s,code) { data = st; }\
+
+
+
+implement_id_class(Int_id, int, intid);
+implement_id_class(Real_id, Real, real);
+implement_id_class(Script_id, General_script_def, script);
+implement_id_class(Lookup_id, Lookup, lookup);
+implement_id_class(Symtables_id, Symtables, symtables);
+implement_id_class(Music_id, Music, music);
+implement_id_class(Score_id, Score, score);
+implement_id_class(Request_id, Request, request);
+implement_id_class(Input_gravs_id, Input_engraver, igravs);
+implement_id_class(Input_perfs_id, Input_performer, iperfs);
+implement_id_class(Midi_def_id, Midi_def, mididef);
+implement_id_class(Paper_def_id, Paper_def, paperdef);
+
+Identifier::Identifier(Identifier const&)
+{
+ assert(false);
+}
+
+default_accessor(Int_id, int, intid);
+default_accessor(Real_id, Real, real);
+virtual_accessor(Script_id, General_script_def, script);
+default_accessor(Lookup_id, Lookup, lookup);
+default_accessor(Symtables_id, Symtables, symtables);
+virtual_accessor(Music_id, Music, music);
+default_accessor(Score_id, Score, score);
+virtual_accessor(Request_id, Request, request);
+default_accessor(Input_gravs_id, Input_engraver, igravs);
+default_accessor(Input_perfs_id, Input_performer, iperfs);
+default_accessor(Midi_def_id, Midi_def, mididef);
+default_accessor(Paper_def_id, Paper_def, paperdef);