X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fbox.cc;h=f35f935204dd68afbbaec80312c1f3ee4085f7fc;hb=6e4bfaef2385236187ff3f3fc42501c439e7b5b4;hp=c2db1f2ac6d1a31da4a41db6e37384c745a07393;hpb=75eebcb49e52d296b1da3e1074e0825d2c780db4;p=lilypond.git diff --git a/lily/box.cc b/lily/box.cc index c2db1f2ac6..f35f935204 100644 --- a/lily/box.cc +++ b/lily/box.cc @@ -3,13 +3,10 @@ source file of the GNU LilyPond music typesetter - (c) 1996--2006 Han-Wen Nienhuys + (c) 1996--2009 Han-Wen Nienhuys */ -#include "ly-smobs.icc" - #include "box.hh" -#include "array.hh" void Box::translate (Offset o) @@ -25,9 +22,6 @@ Box::unite (Box b) interval_a_[i].unite (b[i]); } -/** - Initialize to empty. -*/ Box::Box () { } @@ -85,21 +79,23 @@ Box::widen (Real x, Real y) interval_a_[Y_AXIS].widen (y); } +/****************************************************************/ + +#include "ly-smobs.icc" + IMPLEMENT_SIMPLE_SMOBS (Box); IMPLEMENT_TYPE_P (Box, "ly:box?"); IMPLEMENT_DEFAULT_EQUAL_P (Box); SCM -Box::mark_smob (SCM x) +Box::mark_smob (SCM /* x */) { - (void)x; return SCM_EOL; } int -Box::print_smob (SCM x, SCM p, scm_print_state*) +Box::print_smob (SCM /* x */, SCM p, scm_print_state*) { - (void)x; scm_puts ("#", p); return 1; }