From 747be5ed7a959d9e5541afc27adc8271df188b80 Mon Sep 17 00:00:00 2001 From: Mike Solomon Date: Thu, 5 Aug 2010 13:56:07 +0200 Subject: [PATCH 2/2] Adds ly:engraver-property to engraver-scheme Get rid of whitespace error... --- lily/engraver-scheme.cc | 20 ++++++++++++++++++++ 1 files changed, 20 insertions(+), 0 deletions(-) diff --git a/lily/engraver-scheme.cc b/lily/engraver-scheme.cc index 409831e..ea8f3de 100644 --- a/lily/engraver-scheme.cc +++ b/lily/engraver-scheme.cc @@ -54,3 +54,23 @@ LY_DEFINE (ly_engraver_announce_end_grob, "ly:engraver-announce-end-grob", return SCM_UNSPECIFIED; } + +LY_DEFINE (ly_engraver_property, "ly:engraver-property", + 2, 1, 0, (SCM engraver, SCM sym, SCM val), + "Return the value for property @var{sym} of @var{engraver}." + " If no value is found, return @var{val} or @code{'()}" + " if @var{val} is not specified.") +{ + Engraver *e = unsmob_engraver (engraver); + + LY_ASSERT_TYPE (unsmob_engraver, engraver, 1); + LY_ASSERT_TYPE (ly_is_symbol, sym, 2); + if (val == SCM_UNDEFINED) + val = SCM_EOL; + + SCM retval = e->internal_get_property (sym); + if (retval == SCM_EOL) + retval = val; + + return retval; +} -- 1.6.6.1