geile fixes

[lilypond.git] / lily / request.cc

diff --git a/lily/request.cc b/lily/request.cc
index 90831a5cab5d42db3d7b11f74fd94e8ca2cb69ce..5b0911a2dab71ece99fc16f4df5c02d3cc7c993c 100644 (file)
--- a/lily/request.cc
+++ b/lily/request.cc
@@ -3,13 +3,11 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1996--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1996--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
 #include "request.hh"
-#include "debug.hh"
-
-
+#include "warn.hh"
 
 bool
 Request::equal_b (Request const* r) const
@@ -23,14 +21,12 @@ Request::do_equal_b (Request const*) const
   return true;
 }
   
-
 Request::Request ()
+  : Music (SCM_EOL)
 {
   set_mus_property ("type", ly_symbol2scm ("request"));
 }
 
-
-
 Script_req::Script_req ()
 {
   set_direction (CENTER);
@@ -47,7 +43,24 @@ Script_req::get_direction () const
 {
   SCM d = get_mus_property ("direction");
 
-  return (isdir_b (d)) ?  to_dir (d) : CENTER;
+  return (ly_dir_p (d)) ?  to_dir (d) : CENTER;
 }
 
+Direction
+Span_req::get_span_dir () const
+{
+  SCM d = get_mus_property ("span-direction");
+
+  return (ly_dir_p (d)) ?  to_dir (d) : CENTER;
+}
+
+void
+Span_req::set_span_dir (Direction d)
+{
+  set_mus_property ("span-direction", gh_int2scm (d));
+}
+
+
+
+