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--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "music-output.hh"
  10
  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 void
  28 Music_output::derived_mark () const
  29 {
  30 }
  31
  32 IMPLEMENT_SMOBS (Music_output);
  33 IMPLEMENT_DEFAULT_EQUAL_P (Music_output);
  34 IMPLEMENT_TYPE_P (Music_output, "ly:music-output?");
  35
  36 SCM
  37 Music_output::mark_smob (SCM s)
  38 {
  39   Music_output *sc = (Music_output *) SCM_CELL_WORD_1 (s);
  40
  41   sc->derived_mark ();
  42   return SCM_EOL;
  43 }
  44
  45 int
  46 Music_output::print_smob (SCM s, SCM p, scm_print_state*)
  47 {
  48   Music_output *sc = (Music_output *) SCM_CELL_WORD_1 (s);
  49   scm_puts ("#<", p);
  50   scm_puts (sc->class_name (), p);
  51   scm_puts (">", p);
  52
  53   return 1;
  54 }