2 stream-event.cc -- implement Stream_event
4 source file of the GNU LilyPond music typesetter
6 (c) 2005-2006 Erik Sandberg <mandolaerik@gmail.com>
9 #include "stream-event.hh"
11 #include "ly-smobs.icc"
16 /* TODO: Rename Stream_event -> Event */
18 Stream_event::Stream_event ()
19 : Prob (ly_symbol2scm ("Stream_event"), SCM_EOL)
23 Stream_event::Stream_event (SCM event_class, SCM mutable_props)
24 : Prob (ly_symbol2scm ("Stream_event"),
25 scm_list_1 (scm_cons (ly_symbol2scm ("class"), event_class)))
27 mutable_property_alist_ = mutable_props;
30 Stream_event::Stream_event (SCM property_alist)
31 : Prob (ly_symbol2scm ("Stream_event"), SCM_EOL)
33 mutable_property_alist_ = property_alist;
36 Stream_event::Stream_event (SCM class_name, Input *origin)
37 : Prob (ly_symbol2scm ("Stream_event"),
38 scm_list_1 (scm_cons (ly_symbol2scm ("class"), class_name)))
44 Stream_event::Stream_event (Stream_event *ev)
45 : Prob (ly_symbol2scm ("Stream_event"), SCM_EOL)
47 mutable_property_alist_ = scm_copy_tree (ev->mutable_property_alist_);
48 immutable_property_alist_ = ev->immutable_property_alist_;
52 Stream_event::origin () const
54 Input *i = unsmob_input (get_property ("origin"));
55 return i ? i : &dummy_input_global;
59 Stream_event::set_spot (Input *i)
61 set_property ("origin", make_input (*i));
65 Stream_event::internal_in_event_class (SCM class_name)
67 SCM cl = get_property ("class");
68 cl = scm_call_1 (ly_lily_module_constant ("ly:make-event-class"), cl);
69 return scm_c_memq (class_name, cl) != SCM_BOOL_F;
72 IMPLEMENT_TYPE_P (Stream_event, "ly:stream-event?");
74 MAKE_SCHEME_CALLBACK (Stream_event, undump, 1);
75 MAKE_SCHEME_CALLBACK (Stream_event, dump, 1);
78 Stream_event::dump (SCM self)
80 Stream_event *ev = unsmob_stream_event (self);
81 // Reversed alists look prettier.
82 return scm_cons (scm_reverse (ev->immutable_property_alist_),
83 scm_reverse (ev->mutable_property_alist_));
87 Stream_event::undump (SCM data)
89 Stream_event *obj = new Stream_event ();
90 obj->immutable_property_alist_ = scm_reverse (scm_car (data));
91 obj->mutable_property_alist_ = scm_reverse (scm_cdr (data));
92 return obj->unprotect ();
96 unsmob_stream_event (SCM m)
98 return dynamic_cast<Stream_event*> (unsmob_prob (m));