release: 1.3.106

[lilypond.git] / lily / include / identifier.hh

diff --git a/lily/include/identifier.hh b/lily/include/identifier.hh
index bd45068ab4ddc6c84abb957b78f1e9c85e05964e..7f87c08b8f7c8e8a3d9cd06888bc3fea787b000c 100644 (file)
--- a/lily/include/identifier.hh
+++ b/lily/include/identifier.hh
@@ -1,70 +1,78 @@
 /*
   identifier.hh -- part of GNU LilyPond
 
-  (c) 1996,97 Han-Wen Nienhuys
+  (c) 1996--2000 Han-Wen Nienhuys
 */
 
 #ifndef IDENTIFIER_HH
 #define IDENTIFIER_HH
 
 #include "lily-proto.hh"
+#include "lily-guile.hh"
 #include "string.hh"
 #include "input.hh"
 #include "virtual-methods.hh"
+#include "smobs.hh"
 
-/* boolean argument to accesor is copy_b..*/
-#define IDACCESSOR( Input_staff, staff)\
-    virtual Input_staff * staff(bool) { error(#Input_staff); return 0; }
 
+class Output_def_identifier;
+class Score_identifier;
+class Duration_identifier;
 
+
+
+#define IDACCESSOR(Class)\
+virtual Class *  access_content_ ## Class (bool) const { error (#Class  + String ("_identifier")); return 0; }\
+
+
+/**
+   A declarable data structure in mudela.
+
+   TODO: use SMOBS for the union type, and junk all derived classes.
+   */
 struct Identifier : public Input {
-    void *data;
-    String name_str_;
-    bool init_b_;
-    bool accessed_b_;
-    int token_code_i_;
-    
-    Identifier(String n, int code) ;
-    virtual ~Identifier() ;
-
-    void print()const;
-    NAME_MEMBERS();
-    void error(String);
-    IDACCESSOR(Music, music)
-    IDACCESSOR(Input_register, iregs)  
-    IDACCESSOR(General_script_def, script)
-    IDACCESSOR(Symtables, symtables)
-    IDACCESSOR(Lookup,lookup)
-    IDACCESSOR(Real,real)
-    IDACCESSOR(Request, request)
-    IDACCESSOR(Score, score)
-    IDACCESSOR(int, intid)
 
+  bool init_b_;
+  bool accessed_b_;
+  int token_code_i_;
+  Identifier (Identifier const&);    
+  Identifier (int code) ;
+
+  void print() const;
+  
+  void error (String) const;
+  String str () const;
+  IDACCESSOR(Music_output_def)
+  IDACCESSOR(Score)
+  IDACCESSOR(Duration)
+  VIRTUAL_COPY_CONS(Identifier);
+
+  DECLARE_SMOBS(Identifier, foo);
 protected:
-    virtual void do_print()const=0;
-private:
-    Identifier(Identifier const&);
+
+  virtual String do_str () const;
 };
 
-#define declare_id_class(Idclass, Class, accessor)     \
-struct Idclass : Identifier {\
-        NAME_MEMBERS();                            \
-       Idclass(String s, Class*st, int code);\
-       virtual Class* accessor(bool copy);\
-       ~Idclass();\
-       virtual void do_print()const; \
+#define DECLARE_ID_CLASS(Class)        \
+struct Class ## _identifier : Identifier {\
+                            Class *data_p_;                 \
+                             \
+                            Class ## _identifier (Class ## _identifier const&);\
+                            Class ## _identifier (Class*st, int code);\
+                            VIRTUAL_COPY_CONS(Identifier);\
+                            virtual Class* access_content_ ## Class (bool copy_b) const;\
+                            ~Class ## _identifier();\
+                           \
+                            virtual String do_str () const; \
 }\
 
 
+DECLARE_ID_CLASS(Duration);
+DECLARE_ID_CLASS(Score);
+DECLARE_ID_CLASS(Music_output_def);
+
+Identifier * unsmob_identifier (SCM);
+SCM smobify (Identifier*);
 
-declare_id_class(Real_id, Real, real);
-declare_id_class(Script_id, General_script_def, script);
-declare_id_class(Lookup_id, Lookup, lookup);
-declare_id_class(Symtables_id, Symtables, symtables);
-declare_id_class(Music_id, Music, music);
-declare_id_class(Int_id, int, intid);
-declare_id_class(Score_id, Score, score);
-declare_id_class(Request_id, Request, request);
-declare_id_class(Input_regs_id, Input_register, iregs);
+#endif // IDENTIFIER_HH
 
-#endif // IDENTIFIER_