]> git.donarmstrong.com Git - lilypond.git/blob - lily/music-output.cc
new file.
[lilypond.git] / lily / music-output.cc
1 /*
2   music-output.cc --  implement Music_output
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "music-output.hh"
10
11 #include "ly-smobs.icc"
12 #include "virtual-methods.hh"
13
14 Music_output::Music_output ()
15 {
16   smobify_self ();
17 }
18
19 void
20 Music_output::process ()
21 {
22 }
23
24 Music_output::~Music_output ()
25 {
26 }
27
28 void
29 Music_output::derived_mark () const
30 {
31 }
32
33 IMPLEMENT_SMOBS (Music_output);
34 IMPLEMENT_DEFAULT_EQUAL_P (Music_output);
35 IMPLEMENT_TYPE_P (Music_output, "ly:music-output?");
36
37 SCM
38 Music_output::mark_smob (SCM s)
39 {
40   Music_output *sc = (Music_output *) SCM_CELL_WORD_1 (s);
41
42   sc->derived_mark ();
43   return SCM_EOL;
44 }
45
46 int
47 Music_output::print_smob (SCM s, SCM p, scm_print_state*)
48 {
49   Music_output *sc = (Music_output *) SCM_CELL_WORD_1 (s);
50   scm_puts ("#<", p);
51   scm_puts (sc->class_name (), p);
52   scm_puts (">", p);
53
54   return 1;
55 }