lily/context-mod.cc

   1 /*
   2   This file is part of LilyPond, the GNU music typesetter.
   3
   4   Copyright (C) 2010--2015 Reinhold Kainhofer <reinhold@kainhofer.com>
   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 "context-mod.hh"
  21
  22 Context_mod::Context_mod ()
  23 {
  24   mods_ = SCM_EOL;
  25 }
  26
  27 Context_mod::Context_mod (Context_mod const &s)
  28 {
  29   mods_ = s.mods_;
  30 }
  31
  32 Context_mod::Context_mod (SCM mod_list)
  33 {
  34   mods_ = scm_reverse (mod_list);
  35 }
  36
  37 const char * const Context_mod::type_p_name_ = "ly:context-mod?";
  38
  39 int
  40 Context_mod::print_smob (SCM port, scm_print_state *) const
  41 {
  42   scm_puts ("#<Context_mod ", port);
  43   scm_display (get_mods (), port);
  44   scm_puts (">", port);
  45   return 1;
  46 }
  47
  48 SCM
  49 Context_mod::mark_smob () const
  50 {
  51   return mods_;
  52 }
  53
  54 void
  55 Context_mod::add_context_mod (SCM mod)
  56 {
  57   mods_ = scm_cons (mod, mods_);
  58 }
  59
  60 void
  61 Context_mod::add_context_mods (SCM mods)
  62 {
  63   for (SCM m = mods; scm_is_pair (m); m = scm_cdr (m))
  64     add_context_mod (scm_car (m));
  65 }
  66
  67 SCM
  68 Context_mod::get_mods () const
  69 {
  70   return scm_reverse (mods_);
  71 }