2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2006--2015 Han-Wen Nienhuys <hanwen@lilypond.org>
7 LilyPond is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 LilyPond is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
21 #include "lily-guile.hh"
25 #include "lily-imports.hh"
33 // Why a pointer here? Because it has zero initialization at load
34 // time which is guaranteed to come before the static initializations
35 // of all constructors for static expressions of the classes created
36 // by ADD_SCM_INIT_FUNC. The vector data type does not have load-time
37 // initialization and might clear out already set callbacks at the
38 // time it is initialized since there is no implied order among
39 // non-trivial constructors for static data in separate compilation
40 // units. So we need a trivial type like a pointer instead.
42 typedef void (*Void_fptr) ();
43 vector<Void_fptr> *scm_init_funcs_;
45 void add_scm_init_func (void (*f) ())
48 scm_init_funcs_ = new vector<Void_fptr>;
50 scm_init_funcs_->push_back (f);
56 // Start up type system first.
58 for (vsize i = scm_init_funcs_->size (); i--;)
59 (scm_init_funcs_->at (i)) ();
61 if (is_loglevel (LOG_DEBUG))
63 debug_output ("[", true);
64 scm_display (scm_c_eval_string ("(%search-load-path \"lily.scm\")"),
65 scm_current_error_port ());
66 debug_output ("]\n", false);
69 scm_primitive_load_path (scm_from_ascii_string ("lily.scm"));
75 Guile_user::module.import ();
76 Lily::module.boot (ly_init_ly_module);
77 Syntax::module.import ();
78 Display::module.import ();
79 scm_c_use_module ("lily");