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 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7
   8 */
   9
  10 #include "music-output.hh"
  11 #include "ly-smobs.icc"
  12
  13 Music_output::Music_output ()
  14 {
  15   smobify_self ();
  16 }
  17
  18 void
  19 Music_output::process ()
  20 {
  21 }
  22
  23 Music_output::~Music_output ()
  24 {
  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:score?");
  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, SCM p, scm_print_state*)
  48 {
  49   scm_puts ("#<Music_output>", p);
  50
  51   return 1;
  52 }