lily/paper-system-scheme.cc

   1 /*
   2   paper-system-scheme.cc -- implement Paper_system bindings
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "paper-system.hh"
  10
  11
  12
  13 LY_DEFINE (ly_paper_system_property, "ly:paper-system-property",
  14            2, 1, 0, (SCM system, SCM sym, SCM dfault),
  15            "Return the value for @var{sym}. Properties may be set by "
  16            "setting the @code{line-break-system-details} property of "
  17            "NonMusicalPaperColumn.  If the property is not found, "
  18            "return @var{dfault}, "
  19            "or @code{'()} if undefined.")
  20 {
  21   Paper_system *ps = unsmob_paper_system (system);
  22   SCM_ASSERT_TYPE (ps, system, SCM_ARG1, __FUNCTION__, "paper-system");
  23   if (dfault == SCM_UNDEFINED)
  24     dfault = SCM_EOL;
  25
  26   SCM retval = ps->internal_get_property (sym);
  27   if (retval == SCM_EOL)
  28     return dfault;
  29   else
  30     return retval;
  31 }
  32
  33