lily/page-marker-scheme.cc

   1 /*
   2   page-marker-scheme.cc -- implement Page_marker bindings.
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2007 Nicolas Sceaux <nicolas.sceaux@free.fr>
   7 */
   8
   9 #include "page-marker.hh"
  10
  11 LY_DEFINE (ly_make_page_marker, "ly:make-page-marker",
  12            2, 0, 0,
  13            (SCM symbol, SCM permission),
  14            "Return page marker with page breaking and turning permissions.")
  15 {
  16   LY_ASSERT_TYPE (ly_is_symbol, symbol, 1);
  17   Page_marker *page_marker = new Page_marker (symbol, permission);
  18   return page_marker->unprotect ();
  19 }