2 identifier.hh -- part of GNU LilyPond
4 (c) 1996--2000 Han-Wen Nienhuys
10 #include "lily-proto.hh"
11 #include "lily-guile.hh"
14 #include "virtual-methods.hh"
18 #define DECLARE_TYPE_NAME(Class)
20 class Translator_group_identifier;
21 class Music_identifier;
22 class Articulation_req_identifier;
23 class Midi_def_identifier;
24 class Paper_def_identifier;
25 class Real_identifier;
27 class Request_identifier;
28 class Score_identifier;
29 class Duration_identifier;
33 #define IDACCESSOR(Class)\
34 virtual Class * access_content_ ## Class (bool) const { error (#Class + String ("_identifier")); return 0; }\
38 A declarable data structure in mudela.
40 TODO: use SMOBS for the union type, and junk all derived classes.
42 struct Identifier : public Input {
48 Identifier (Identifier const&);
49 Identifier (int code) ;
50 virtual ~Identifier() ;
55 void error (String) const;
57 IDACCESSOR(Translator_group)
66 VIRTUAL_COPY_CONS(Identifier);
69 virtual void do_print () const;
70 virtual String do_str () const;
73 #define DECLARE_ID_CLASS(Class) \
74 struct Class ## _identifier : Identifier {\
77 Class ## _identifier (Class ## _identifier const&);\
78 Class ## _identifier (Class*st, int code);\
79 VIRTUAL_COPY_CONS(Identifier);\
80 virtual Class* access_content_ ## Class (bool copy_b) const;\
81 ~Class ## _identifier();\
82 virtual void do_print () const; \
83 virtual String do_str () const; \
87 DECLARE_ID_CLASS(Translator_group);
88 DECLARE_ID_CLASS(Duration);
89 DECLARE_ID_CLASS(Real);
90 DECLARE_ID_CLASS(General_script_def);
91 DECLARE_ID_CLASS(Music);
92 DECLARE_ID_CLASS(int);
93 DECLARE_ID_CLASS(Score);
94 DECLARE_ID_CLASS(Request);
95 DECLARE_ID_CLASS(Paper_def);
96 DECLARE_ID_CLASS(Midi_def);
98 Identifier * unsmob_identifier (SCM);
99 SCM smobify (Identifier*);
101 #endif // IDENTIFIER_HH