From fe6d8d646104d26453dcbab6c2911c10ca9b90e1 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 23:57:34 +0000
Subject: [PATCH] lilypond-1.3.103
---
lily/music.cc | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 52 insertions(+)
diff --git a/lily/music.cc b/lily/music.cc
index c9e001482c..5cf0e78476 100644
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -181,3 +181,55 @@ Music::~Music ()
{
}
+
+SCM
+ly_get_mus_property (SCM mus, SCM sym)
+{
+ Music * sc = unsmob_music (mus);
+
+ if (sc)
+ {
+ return sc->get_mus_property (sym);
+ }
+ else
+ {
+ warning (_("ly_get_mus_property (): Not a Music"));
+ scm_write (mus, scm_current_error_port ());
+ }
+ return SCM_EOL;
+}
+
+
+SCM
+ly_set_mus_property (SCM mus, SCM sym, SCM val)
+{
+ Music * sc = unsmob_music (mus);
+
+ if (!gh_symbol_p (sym))
+ {
+ warning (_("ly_set_mus_property (): Not a symbol"));
+ scm_write (mus, scm_current_error_port ());
+
+ return SCM_UNSPECIFIED;
+ }
+
+ if (sc)
+ {
+ sc->set_mus_property (sym, val);
+ }
+ else
+ {
+ warning (_("ly_set_mus_property (): not of type Music"));
+ scm_write (mus, scm_current_error_port ());
+ }
+
+ return SCM_UNSPECIFIED;
+}
+
+static void
+init_functions ()
+{
+ scm_make_gsubr ("ly-get-mus-property", 2, 0, 0, (Scheme_function_unknown)ly_get_mus_property);
+ scm_make_gsubr ("ly-set-mus-property", 3, 0, 0, (Scheme_function_unknown)ly_set_mus_property);
+}
+ADD_SCM_INIT_FUNC(musicscm,init_functions);
--
2.39.5