Use scalar instead of embedded_scm for context mod overrides.
[lilypond/mpolesky.git] / lily / stream-event-scheme.cc
blob6ce5477af354d34f49210d1a9886e3c13afc8543
1 /*
2 stream-event.cc -- implement Scheme bindings for Stream_event
4 source file of the GNU LilyPond music typesetter
6 (c) 2006--2009 Erik Sandberg <mandolaerik@gmail.com>
7 */
9 #include "stream-event.hh"
11 LY_DEFINE (ly_make_stream_event, "ly:make-stream-event",
12 1, 1, 0, (SCM cl, SCM proplist),
13 "Create a stream event of class @var{cl} with the given"
14 " mutable property list.")
16 LY_ASSERT_TYPE (ly_is_symbol, cl, 1);
18 /* should be scm_list_p, but scm_list_p is expensive. */
19 LY_ASSERT_TYPE (scm_is_pair, proplist, 2);
21 if (proplist == SCM_UNDEFINED)
22 proplist = SCM_EOL;
24 Stream_event *e = new Stream_event (cl, proplist);
25 return e->unprotect ();
28 LY_DEFINE (ly_event_property, "ly:event-property",
29 2, 0, 0, (SCM sev, SCM sym),
30 "Get the property @var{sym} of stream event @var{mus}."
31 " If @var{sym} is undefined, return @code{'()}.")
33 LY_ASSERT_SMOB (Stream_event, sev, 1);
34 LY_ASSERT_TYPE (ly_is_symbol, sym, 2);
36 Stream_event *e = unsmob_stream_event (sev);
38 return e->internal_get_property (sym);
41 LY_DEFINE (ly_event_set_property_x, "ly:event-set-property!",
42 3, 0, 0, (SCM ev, SCM sym, SCM val),
43 "Set property @var{sym} in event @var{ev} to @var{val}.")
45 LY_ASSERT_SMOB (Stream_event, ev, 1);
46 LY_ASSERT_TYPE (ly_is_symbol, sym, 2);
48 return ly_prob_set_property_x (ev, sym, val);
51 LY_DEFINE (ly_event_deep_copy, "ly:event-deep-copy",
52 1, 0, 0, (SCM m),
53 "Copy @var{m} and all sub expressions of@tie{}@var{m}.")
55 SCM copy = m;
56 if (Stream_event *ev = unsmob_stream_event (m))
58 ev = ev->clone ();
59 copy = ev->unprotect ();
61 else if (scm_is_pair (m))
62 copy = scm_cons (ly_event_deep_copy (scm_car (m)),
63 ly_event_deep_copy (scm_cdr (m)));
65 return copy;