X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Finclude%2Fengraver.hh;h=a2b31181922cf6ec471508f75cc40b029751a734;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=2254ff524829bec3b517b211acab6ebc140b1fd7;hpb=b7a0cffbf9d1069860368f289a5b50e9d1d90ba8;p=lilypond.git

diff --git a/lily/include/engraver.hh b/lily/include/engraver.hh
index 2254ff5248..a2b3118192 100644
--- a/lily/include/engraver.hh
+++ b/lily/include/engraver.hh
@@ -1,7 +1,7 @@
 /*
   This file is part of LilyPond, the GNU music typesetter.
 
-  Copyright (C) 1996--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  Copyright (C) 1996--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
   LilyPond is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -30,8 +30,8 @@
 class Engraver : public Translator
 {
   Grob *internal_make_grob (SCM sym, SCM cause, char const *name,
-			    char const *f, int l, char const *fun);
-
+                            char const *f, int l, char const *fun);
+  friend SCM ly_engraver_make_grob (SCM, SCM, SCM);
   friend class Engraver_group;
 protected:
   /*
@@ -52,22 +52,31 @@ public:
   void announce_grob (Grob *, SCM cause);
   void announce_end_grob (Grob *, SCM cause);
 
+  Grob_info make_grob_info (Grob *, SCM cause);
+
   Item *internal_make_item (SCM sym, SCM cause, char const *name,
-			    char const *f, int l, char const *fun);
+                            char const *f, int l, char const *fun);
   Spanner *internal_make_spanner (SCM sym, SCM cause, char const *name,
-				  char const *f, int l, char const *fun);
+                                  char const *f, int l, char const *fun);
   Paper_column *internal_make_column (SCM sym, char const *name,
-				      char const *f, int l, char const *fun);
+                                      char const *f, int l, char const *fun);
 
   /**
      override other ctor
   */
   TRANSLATOR_DECLARATIONS (Engraver);
+  static Engraver *unsmob (SCM eng) {
+    return dynamic_cast<Engraver *> (Translator::unsmob (eng));
+  }
+  static bool is_smob (SCM eng) {
+    return Translator::is_smob (eng) && unsmob (eng);
+  }
 };
 
 #define make_item(x, cause) internal_make_item (ly_symbol2scm (x), cause, x, __FILE__, __LINE__, __FUNCTION__)
 #define make_spanner(x, cause) internal_make_spanner (ly_symbol2scm (x), cause, x, __FILE__, __LINE__, __FUNCTION__)
 #define make_paper_column(x) internal_make_column (ly_symbol2scm (x), x, __FILE__, __LINE__, __FUNCTION__)
 
+bool ly_is_grob_cause (SCM obj);
 
 #endif // ENGRAVER_HH