]> git.donarmstrong.com Git - lilypond.git/blob - lily/include/stream-event.hh
Merge branch 'master' of ssh+git://hanwen@git.sv.gnu.org/srv/git/lilypond
[lilypond.git] / lily / include / stream-event.hh
1 /*
2   stream-event.hh -- declare Stream_event
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005-2006 Erik Sandberg <mandolaerik@gmail.com>
7 */
8
9 #ifndef STREAM_EVENT_HH
10 #define STREAM_EVENT_HH
11
12 #include "lily-proto.hh"
13 #include "smobs.hh"
14 #include "prob.hh"
15
16 class Stream_event : public Prob
17 {
18 public:
19   Stream_event ();
20   VIRTUAL_COPY_CONSTRUCTOR (Stream_event, Stream_event);
21
22   Stream_event (SCM event_class, SCM mutable_props=SCM_EOL);
23   Stream_event (SCM class_name, Input *);
24
25   Input *origin () const;
26   void set_spot (Input *i);
27   bool internal_in_event_class (SCM class_name);
28
29   virtual SCM copy_mutable_properties () const;
30
31   DECLARE_SCHEME_CALLBACK (undump, (SCM));
32   DECLARE_SCHEME_CALLBACK (dump, (SCM));
33 };
34
35 #define in_event_class(class_name) internal_in_event_class (ly_symbol2scm (class_name))
36
37 Stream_event *unsmob_stream_event (SCM);
38 DECLARE_TYPE_P (Stream_event);
39 SCM ly_event_deep_copy (SCM);
40
41 #endif /* STREAM_EVENT_HH */