2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2010 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_make_stream_event
, "ly:make-stream-event",
23 1, 1, 0, (SCM cl
, SCM proplist
),
24 "Create a stream event of class @var{cl} with the given"
25 " mutable property list.")
27 LY_ASSERT_TYPE (ly_is_symbol
, cl
, 1);
29 /* should be scm_list_p, but scm_list_p is expensive. */
30 LY_ASSERT_TYPE (scm_is_pair
, proplist
, 2);
32 if (proplist
== SCM_UNDEFINED
)
35 Stream_event
*e
= new Stream_event (cl
, proplist
);
36 return e
->unprotect ();
39 LY_DEFINE (ly_event_property
, "ly:event-property",
40 2, 0, 0, (SCM sev
, SCM sym
),
41 "Get the property @var{sym} of stream event @var{mus}."
42 " If @var{sym} is undefined, return @code{'()}.")
44 LY_ASSERT_SMOB (Stream_event
, sev
, 1);
45 LY_ASSERT_TYPE (ly_is_symbol
, sym
, 2);
47 Stream_event
*e
= unsmob_stream_event (sev
);
49 return e
->internal_get_property (sym
);
52 LY_DEFINE (ly_event_set_property_x
, "ly:event-set-property!",
53 3, 0, 0, (SCM ev
, SCM sym
, SCM val
),
54 "Set property @var{sym} in event @var{ev} to @var{val}.")
56 LY_ASSERT_SMOB (Stream_event
, ev
, 1);
57 LY_ASSERT_TYPE (ly_is_symbol
, sym
, 2);
59 return ly_prob_set_property_x (ev
, sym
, val
);
62 LY_DEFINE (ly_event_deep_copy
, "ly:event-deep-copy",
64 "Copy @var{m} and all sub expressions of@tie{}@var{m}.")
67 if (Stream_event
*ev
= unsmob_stream_event (m
))
70 copy
= ev
->unprotect ();
72 else if (scm_is_pair (m
))
73 copy
= scm_cons (ly_event_deep_copy (scm_car (m
)),
74 ly_event_deep_copy (scm_cdr (m
)));