2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2011 Erik Sandberg <mandolaerik@gmail.com>
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
20 #include "stream-event.hh"
22 LY_DEFINE (ly_stream_event_p
, "ly:stream-event?",
24 "Is @code{@var{obj}} a @code{Stream_event} object?")
26 return scm_from_bool (unsmob_stream_event (obj
));
29 LY_DEFINE (ly_make_stream_event
, "ly:make-stream-event",
30 1, 1, 0, (SCM cl
, SCM proplist
),
31 "Create a stream event of class @var{cl} with the given"
32 " mutable property list.")
34 LY_ASSERT_TYPE (ly_is_symbol
, cl
, 1);
36 /* should be scm_list_p, but scm_list_p is expensive. */
37 LY_ASSERT_TYPE (scm_is_pair
, proplist
, 2);
39 if (proplist
== SCM_UNDEFINED
)
42 Stream_event
*e
= new Stream_event (cl
, proplist
);
43 return e
->unprotect ();
46 LY_DEFINE (ly_event_property
, "ly:event-property",
47 2, 0, 0, (SCM sev
, SCM sym
),
48 "Get the property @var{sym} of stream event @var{mus}."
49 " If @var{sym} is undefined, return @code{'()}.")
51 LY_ASSERT_TYPE (unsmob_stream_event
, sev
, 1);
52 LY_ASSERT_TYPE (ly_is_symbol
, sym
, 2);
54 Stream_event
*e
= unsmob_stream_event (sev
);
56 return e
->internal_get_property (sym
);
59 LY_DEFINE (ly_event_set_property_x
, "ly:event-set-property!",
60 3, 0, 0, (SCM ev
, SCM sym
, SCM val
),
61 "Set property @var{sym} in event @var{ev} to @var{val}.")
63 LY_ASSERT_TYPE (unsmob_stream_event
, ev
, 1);
64 LY_ASSERT_TYPE (ly_is_symbol
, sym
, 2);
66 return ly_prob_set_property_x (ev
, sym
, val
);
69 LY_DEFINE (ly_event_deep_copy
, "ly:event-deep-copy",
71 "Copy @var{m} and all sub expressions of@tie{}@var{m}.")
74 if (Stream_event
*ev
= unsmob_stream_event (m
))
77 copy
= ev
->unprotect ();
79 else if (scm_is_pair (m
))
80 copy
= scm_cons (ly_event_deep_copy (scm_car (m
)),
81 ly_event_deep_copy (scm_cdr (m
)));