From 4ed35e481389eaddd6e07002f0b5ccad31994169 Mon Sep 17 00:00:00 2001 From: Mike Solomon Date: Wed, 4 Aug 2010 19:24:10 +0100 Subject: [PATCH] Add scheme binding for announce_end_grob Signed-off-by: Neil Puttock --- lily/engraver-scheme.cc | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/lily/engraver-scheme.cc b/lily/engraver-scheme.cc index 61d5b7d180..409831e880 100644 --- a/lily/engraver-scheme.cc +++ b/lily/engraver-scheme.cc @@ -23,7 +23,7 @@ LY_DEFINE (ly_engraver_make_grob, "ly:engraver-make-grob", 3, 0, 0, (SCM engraver, SCM grob_name, SCM cause), "Create a grob originating from given @var{engraver} instance," - " with given @var{grob_name}, a symbol." + " with given @var{grob-name}, a symbol." " @var{cause} should either be another grob" " or a music event.") { @@ -38,3 +38,19 @@ LY_DEFINE (ly_engraver_make_grob, "ly:engraver-make-grob", return g->self_scm (); } +LY_DEFINE (ly_engraver_announce_end_grob, "ly:engraver-announce-end-grob", + 3, 0, 0, (SCM engraver, SCM grob, SCM cause), + "Announce the end of a grob (i.e., the end of a spanner)" + " originating from given @var{engraver} instance, with" + " @var{grob} being a grob. @var{cause} should either" + " be another grob or a music event.") +{ + LY_ASSERT_TYPE (unsmob_engraver, engraver, 1); + LY_ASSERT_SMOB (Grob, grob, 2); + LY_ASSERT_TYPE (ly_is_grob_cause, cause, 3); + + unsmob_engraver (engraver)-> + announce_end_grob (unsmob_grob (grob), cause); + + return SCM_UNSPECIFIED; +} -- 2.39.2