2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2015 by David Kastrup <dak@gnu.org>
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 "lily-modules.hh"
22 struct Scm_module::Variable_record
26 Variable_record *next_;
27 Variable_record (const char *name, Scm_variable *var, Variable_record *next_)
28 : name_ (name), var_ (var), next_ (next_)
33 Scm_module::register_variable (const char *name, Scm_variable *var)
35 variables_ = new Variable_record (name, var, variables_);
38 Scm_module::Scm_module (const char *name)
39 : name_ (name), module_ (SCM_UNDEFINED), variables_ (0)
44 Scm_module::boot_init (void *arg)
46 Scm_module *self = static_cast<Scm_module *> (arg);
48 // Establish variables first
49 for (Variable_record *p = self->variables_; p;)
51 Variable_record *next = p->next_;
52 p->var_->boot (p->name_);
62 assert (SCM_UNBNDP (module_));
63 module_ = scm_c_define_module (name_, boot_init, static_cast <void *> (this));
69 assert (SCM_UNBNDP (module_));
70 module_ = scm_c_resolve_module (name_);
71 for (Variable_record *p = variables_; p;)
73 Variable_record *next = p->next_;
74 p->var_->import (module_, p->name_);
82 Scm_variable::boot (const char *name)
84 assert (!SCM_VARIABLEP (var_));
85 var_ = scm_c_define (name, var_);
89 Scm_variable::import (SCM module, const char *name)
91 assert (SCM_UNBNDP (var_));
92 var_ = scm_c_module_lookup (module, name);
96 Scm_variable::Scm_variable (Scm_module &m, const char *name, SCM value)
99 assert (SCM_IMP (value));
100 m.register_variable (name, this);