From f2d3356afabababe82484a3ded193e7cc779f46a Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Thu, 1 May 2008 23:19:25 -0300 Subject: [PATCH] Add ly:prob-[im]mutable-properties Scheme bindings. --- lily/include/prob.hh | 2 +- lily/prob-scheme.cc | 22 ++++++++++++++++++++++ 2 files changed, 23 insertions(+), 1 deletion(-) diff --git a/lily/include/prob.hh b/lily/include/prob.hh index 635df370e1..feabb4cf78 100644 --- a/lily/include/prob.hh +++ b/lily/include/prob.hh @@ -41,7 +41,7 @@ public: Prob (Prob const &); virtual string name () const; SCM type () const { return type_; } - SCM get_property_alist (bool mutble) const; + SCM get_property_alist (bool _mutable) const; SCM internal_get_property (SCM sym) const; void instrumented_set_property (SCM, SCM, const char*, int, const char*); void internal_set_property (SCM sym, SCM val); diff --git a/lily/prob-scheme.cc b/lily/prob-scheme.cc index 52b32b96f5..a56b84ea9f 100644 --- a/lily/prob-scheme.cc +++ b/lily/prob-scheme.cc @@ -75,3 +75,25 @@ LY_DEFINE (ly_make_prob, "ly:make-prob", return pr->unprotect (); } + + +LY_DEFINE (ly_prob_mutable_properties, "ly:prob-mutable-properties", + 1, 0, 0, + (SCM prob), + "Retrieve an alist of mutable properties") +{ + LY_ASSERT_SMOB (Prob, prob, 1); + Prob *ps = unsmob_prob (prob); + return ps->get_property_alist (true); +} + +LY_DEFINE (ly_prob_immutable_properties, "ly:prob-immutable-properties", + 1, 0, 0, + (SCM prob), + "Retrieve an alist of mutable properties") +{ + LY_ASSERT_SMOB (Prob, prob, 1); + Prob *ps = unsmob_prob (prob); + return ps->get_property_alist (false); +} + -- 2.39.2