2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2010--2015 Reinhold Kainhofer <reinhold@kainhofer.com>
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.
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.
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/>.
20 #include "context-mod.hh"
22 Context_mod::Context_mod ()
27 Context_mod::Context_mod (Context_mod const &s)
32 Context_mod::Context_mod (SCM mod_list)
34 mods_ = scm_reverse (mod_list);
37 const char Context_mod::type_p_name_[] = "ly:context-mod?";
40 Context_mod::print_smob (SCM port, scm_print_state *)
42 scm_puts ("#<Context_mod ", port);
43 scm_display (get_mods (), port);
49 Context_mod::mark_smob () const
55 Context_mod::add_context_mod (SCM mod)
57 mods_ = scm_cons (mod, mods_);
61 Context_mod::add_context_mods (SCM mods)
63 for (SCM m = mods; scm_is_pair (m); m = scm_cdr (m))
64 add_context_mod (scm_car (m));
68 Context_mod::get_mods () const
70 return scm_reverse (mods_);