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 #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 }