2 page-marker-scheme.cc -- implement Page_marker bindings.
4 source file of the GNU LilyPond music typesetter
6 (c) 2007 Nicolas Sceaux <nicolas.sceaux@free.fr>
9 #include "page-marker.hh"
11 LY_DEFINE (ly_make_page_permission_marker, "ly:make-page-permission-marker",
13 (SCM symbol, SCM permission),
14 "Return page marker with page breaking and turning permissions.")
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 ();
22 LY_DEFINE (ly_make_page_label_marker, "ly:make-page-label-marker",
25 "Return page marker with label.")
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 ();