Side_position::set_axis (line_spanner_, Y_AXIS);
Axis_group_interface::set_interface (line_spanner_);
Axis_group_interface::set_axes (line_spanner_, Y_AXIS, Y_AXIS);
- announce_element (line_spanner_,
- text_req_l_ ? text_req_l_ : accepted_spanreqs_drul_[START]);
+
+ Request * rq = accepted_spanreqs_drul_[START];
+ if (text_req_l_) rq = text_req_l_ ;
+ announce_element (line_spanner_, rq);
+
}
}
/*
keyword.cc -- keywords and identifiers
*/
-
+#include <string.h>
#include <stdlib.h>
-
-
#include "keyword.hh"
return SCM_UNDEFINED;
}
+
static void
init_functions ()
{
- scm_make_gsubr ("ly-warn", 1, 0, 0, (SCM(*)(...))ly_warning);
- scm_make_gsubr ("ly-gulp-file", 1,0, 0, (SCM(*)(...))ly_gulp_file);
- scm_make_gsubr ("dir?", 1,0, 0, (SCM(*)(...))ly_isdir_p);
- scm_make_gsubr ("undefd", 0,0, 0, (SCM(*)(...))undefd);
- scm_make_gsubr ("ly-number->string", 1, 0,0, (SCM(*)(...)) ly_number2string);
+ scm_make_gsubr ("ly-warn", 1, 0, 0, (SCM(*)())ly_warning);
+ scm_make_gsubr ("ly-gulp-file", 1,0, 0, (SCM(*)())ly_gulp_file);
+ scm_make_gsubr ("dir?", 1,0, 0, (SCM(*)())ly_isdir_p);
+ scm_make_gsubr ("undefd", 0,0, 0, (SCM(*)())undefd);
+ scm_make_gsubr ("ly-number->string", 1, 0,0, (SCM(*)()) ly_number2string);
#ifdef TEST_GC
scm_c_hook_add (&scm_before_mark_c_hook, greet_sweep, 0, 0);
scm_c_hook_add (&scm_before_sweep_c_hook, wave_sweep_goodbye, 0, 0);
#endif
-
}
ADD_SCM_INIT_FUNC(funcs, init_functions);
#include "paper-def.hh"
#include "midi-def.hh"
#include "global-ctor.hh"
+#include "kpath.hh"
+
#if HAVE_GETTEXT
#include <libintl.h>
#endif
-#if KPATHSEA && HAVE_KPATHSEA_KPATHSEA_H
-extern "C" {
-#include <kpathsea/kpathsea.h>
-}
-#endif
+
bool verbose_global_b = false;
bool no_paper_global_b = false;
putenv ("GUILE_INIT_SEGMENT_SIZE_1=4194304");
putenv ("GUILE_MAX_SEGMENT_SIZE=8388608");
-#if KPATHSEA && HAVE_KPATHSEA_KPATHSEA_H
- /*
- initialize kpathsea
- */
- kpse_set_program_name(argv[0], NULL);
- kpse_maketex_option("tfm", TRUE);
-#endif
-
+ ly_init_kpath (argv[0]);
+
oparser_global_p = new Getopt_long(argc, argv,theopts);
while (Long_option_init const * opt = (*oparser_global_p)())
{
#ifdef WINNT
gh_enter (argc, argv, main_prog);
#else
- gh_enter (argc, argv, (void(*)(...))main_prog);
+ gh_enter (argc, argv, (void(*)(int, char**))main_prog);
#endif
return 0; // unreachable
void
init_moments ()
{
- scm_make_gsubr ("make-moment", 2 , 0, 0, (SCM(*)(...)) make_rational);
+ scm_make_gsubr ("make-moment", 2 , 0, 0, (SCM(*)()) make_rational);
}
ADD_SCM_INIT_FUNC(moms,init_moments);
{
return true;
}
- else if (Busy_playing_req * p = dynamic_cast<Busy_playing_req*> (m))
+ else if (dynamic_cast<Busy_playing_req*> (m))
{
return now_mom () < note_end_mom_;
}
static SCM interfaces_sym;
-
+#define UNDEFINED_ARG
static void
init_functions ()
{
interfaces_sym = scm_permanent_object (ly_symbol2scm ("interfaces"));
- scm_make_gsubr ("ly-get-elt-property", 2, 0, 0, (SCM(*)(...))ly_get_elt_property);
- scm_make_gsubr ("ly-set-elt-property", 3, 0, 0, (SCM(*)(...))ly_set_elt_property);
- scm_make_gsubr ("ly-get-spanner-bound", 2 , 0, 0, (SCM(*)(...)) spanner_get_bound);
+ scm_make_gsubr ("ly-get-elt-property", 2, 0, 0, (SCM(*)(UNDEFINED_ARG))ly_get_elt_property);
+ scm_make_gsubr ("ly-set-elt-property", 3, 0, 0, (SCM(*)(UNDEFINED_ARG))ly_set_elt_property);
+ scm_make_gsubr ("ly-get-spanner-bound", 2 , 0, 0, (SCM(*)(UNDEFINED_ARG)) spanner_get_bound);
}
bool