-#define IMPLEMENT_ID_CLASS(Idclass, Class, accessor) \
- IMPLEMENT_IS_TYPE_B1(Idclass,Identifier)\
- Idclass::~Idclass() { delete data_p_; }\
- Idclass::Idclass (Class*st, int code):Identifier (code) { data_p_ = st; }\
-
-
-IMPLEMENT_ID_CLASS(Input_translator_id, Input_translator, input_translator);
-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(Midi_def_id, Midi_def, mididef);
-IMPLEMENT_ID_CLASS(Paper_def_id, Paper_def, paperdef);
-
-Identifier::Identifier (Identifier const&)