(c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+
/*
JUNKTHIS!
*/
#include <assert.h>
+
#include "music-output-def.hh"
#include "score.hh"
#include "identifier.hh"
#include "my-lily-lexer.hh"
#include "debug.hh"
-#include "request.hh"
-#include "translator-group.hh"
#include "ly-smobs.icc"
+
IMPLEMENT_UNSMOB(Identifier, identifier);
IMPLEMENT_SMOBS(Identifier);
+IMPLEMENT_DEFAULT_EQUAL_P(Identifier);
Identifier::Identifier (int code)
{
- self_scm_ = SCM_EOL;
token_code_i_ = code;
accessed_b_ = 0;
+ smobify_self ();
}
Identifier::Identifier (Identifier const&s)
: Input (s)
{
- self_scm_ = SCM_EOL;
+ smobify_self ();
token_code_i_ = s.token_code_i_;
accessed_b_ = s.accessed_b_;
}
return "";
}
-void
-Identifier::print () const
-{
- DEBUG_OUT << "identifier ";
- do_print ();
-}
-void
-Identifier::do_print () const
-{
-}
-
-/* ugh. */
-#define DEFAULT_PRINT(Class) \
-void \
-Class ## _identifier::do_print () const { \
- Class *cl = ((Class ## _identifier *)this)->access_content_ ## Class(false);\
- cl->print (); \
-}
-
-
-
-DEFAULT_PRINT(Translator_group);
-DEFAULT_PRINT(Music);
-DEFAULT_PRINT(Request);
-DEFAULT_PRINT(Score);
-DEFAULT_PRINT(Music_output_def);
/* ugh. */
#define DUMMY_STR(Class) \
return String (#Class); \
}
-
-DUMMY_STR(Translator_group);
-DUMMY_STR(Music);
-DUMMY_STR(Request);
DUMMY_STR(Score);
DUMMY_STR(Music_output_def);
DUMMY_STR(Duration);
-#define STRING_PRINT(Class) \
-void \
-Class ## _identifier::do_print () const\
-{\
- DEBUG_OUT << do_str () << '\n';\
-}\
-
-
-STRING_PRINT(Duration);
#define DEFAULT_STR(Class) \
String \
IMPLEMENT_ID_CLASS(Duration);
-IMPLEMENT_ID_CLASS(Translator_group);
-IMPLEMENT_ID_CLASS(Music);
IMPLEMENT_ID_CLASS(Score);
-IMPLEMENT_ID_CLASS(Request);
IMPLEMENT_ID_CLASS(Music_output_def);
-VIRTUAL_ACCESSOR(Music);
-VIRTUAL_ACCESSOR(Request);
-VIRTUAL_ACCESSOR(Translator_group);
VIRTUAL_ACCESSOR(Music_output_def);
DEFAULT_ACCESSOR(Duration);
DEFAULT_ACCESSOR(Score);
-void
-Identifier::do_smobify_self ()
-{
-
-}