]> git.donarmstrong.com Git - lilypond.git/blob - lily/page-marker.cc
Release: bump VERSION_DEVEL.
[lilypond.git] / lily / page-marker.cc
1 /*
2   This file is part of LilyPond, the GNU music typesetter.
3
4   Copyright (C) 2007--2014 Nicolas Sceaux <nicolas.sceaux@free.fr>
5
6   LilyPond is free software: you can redistribute it and/or modify
7   it under the terms of the GNU General Public License as published by
8   the Free Software Foundation, either version 3 of the License, or
9   (at your option) any later version.
10
11   LilyPond is distributed in the hope that it will be useful,
12   but WITHOUT ANY WARRANTY; without even the implied warranty of
13   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14   GNU General Public License for more details.
15
16   You should have received a copy of the GNU General Public License
17   along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
18 */
19
20 #include "page-marker.hh"
21
22 Page_marker::Page_marker ()
23 {
24   symbol_ = SCM_EOL;
25   permission_ = SCM_EOL;
26   label_ = SCM_EOL;
27   smobify_self ();
28 }
29
30 Page_marker::Page_marker (Page_marker const &src)
31 {
32   symbol_ = src.symbol_;
33   permission_ = src.permission_;
34   label_ = src.label_;
35   smobify_self ();
36 }
37
38 Page_marker::~Page_marker ()
39 {
40 }
41
42 const char Page_marker::type_p_name_[] = "ly:page-marker?";
43
44 SCM
45 Page_marker::mark_smob (SCM smob)
46 {
47   Page_marker *pm = (Page_marker *) SCM_CELL_WORD_1 (smob);
48   scm_gc_mark (pm->symbol_);
49   scm_gc_mark (pm->permission_);
50   scm_gc_mark (pm->label_);
51   return SCM_EOL;
52 }
53
54 int
55 Page_marker::print_smob (SCM smob, SCM port, scm_print_state *)
56 {
57   Page_marker *pm = (Page_marker *) SCM_CELL_WORD_1 (smob);
58   (void) pm;
59   scm_puts ("#<Page_marker>", port);
60   return 1;
61 }
62
63 SCM
64 Page_marker::permission_symbol ()
65 {
66   return symbol_;
67 }
68
69 SCM
70 Page_marker::permission_value ()
71 {
72   return permission_;
73 }
74
75 SCM
76 Page_marker::label ()
77 {
78   return label_;
79 }
80
81 void
82 Page_marker::set_permission (SCM symbol, SCM permission)
83 {
84   symbol_ = symbol;
85   permission_ = permission;
86 }
87
88 void
89 Page_marker::set_label (SCM label)
90 {
91   label_ = label;
92 }