lily/request.cc

   1 /*
   2   request.cc -- implement Request
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7 */
   8
   9 #include "request.hh"
  10 #include "debug.hh"
  11
  12
  13
  14 bool
  15 Request::equal_b (Request const* r) const
  16 {
  17   return r->do_equal_b (this) || this->do_equal_b (r) ;
  18 }
  19
  20 bool
  21 Request::do_equal_b (Request const*) const
  22 {
  23   return true;
  24 }
  25
  26
  27 Request::Request ()
  28 {
  29   set_mus_property ("type", ly_symbol2scm ("request"));
  30 }
  31
  32
  33
  34 Script_req::Script_req ()
  35 {
  36   set_direction (CENTER);
  37 }
  38
  39 void
  40 Script_req::set_direction (Direction d)
  41 {
  42   set_mus_property ("direction", gh_int2scm (d));
  43 }
  44
  45 Direction
  46 Script_req::get_direction () const
  47 {
  48   SCM d = get_mus_property ("direction");
  49
  50   return (isdir_b (d)) ?  to_dir (d) : CENTER;
  51 }
  52
  53