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_permission_marker, "ly:make-page-permission-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 ();
  18   page_marker->set_permission (symbol, permission);
  19   return page_marker->unprotect ();
  20 }
  21
  22 LY_DEFINE (ly_make_page_label_marker, "ly:make-page-label-marker",
  23            1, 0, 0,
  24            (SCM label),
  25            "Return page marker with label.")
  26 {
  27   LY_ASSERT_TYPE (ly_is_symbol, label, 1);
  28   Page_marker *page_marker = new Page_marker ();
  29   page_marker->set_label (label);
  30   return page_marker->unprotect ();
  31 }