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
  12 #include "ly-smobs.icc"
  13 #include "virtual-methods.hh"
  14
  15 Music_output::Music_output ()
  16 {
  17   smobify_self ();
  18 }
  19
  20 void
  21 Music_output::process ()
  22 {
  23 }
  24
  25 Music_output::~Music_output ()
  26 {
  27
  28 }
  29
  30 void
  31 Music_output::derived_mark () const
  32 {
  33 }
  34
  35 IMPLEMENT_SMOBS (Music_output);
  36 IMPLEMENT_DEFAULT_EQUAL_P (Music_output);
  37 IMPLEMENT_TYPE_P (Music_output, "ly:music-output?");
  38
  39 SCM
  40 Music_output::mark_smob (SCM s)
  41 {
  42   Music_output *sc = (Music_output *) SCM_CELL_WORD_1 (s);
  43
  44   sc->derived_mark ();
  45   return SCM_EOL;
  46 }
  47
  48 int
  49 Music_output::print_smob (SCM s, SCM p, scm_print_state*)
  50 {
  51   Music_output *sc = (Music_output *) SCM_CELL_WORD_1 (s);
  52   scm_puts ("#<", p);
  53   scm_puts (classname (sc), p);
  54   scm_puts (">", p);
  55
  56   return 1;
  57 }