" line without special bar lines.\n"
"\n"
"@code{S|:} and @code{:|S} are used for repeat/segno combinations that are"
- " separated at line breaks. Alternatively, @code{.S|:} and @code{:|S.}"
+ " separated at line breaks. Alternatively, @code{.S|:} and @code{:|S.}"
" may be used which combine repeat signs and segno at the same line in"
- " case of a line break. @code{:|S|:} is a combination of a left repeat"
+ " case of a line break. @code{:|S|:} is a combination of a left repeat"
" (@code{:|}), a segno (@code{S}) and a right repeat @code{|:} which"
" splits before the segno at line breaks; @code{:|S.|:} splits after"
" the segno sign.\n"
LY_DEFINE (ly_get_context_mods,
"ly:get-context-mods",
1, 0, 0, (SCM contextmod),
- "Returns the list of context modifications stored in @var{contextmod}.")
+ "Returns the list of context modifications stored in"
+ " @var{contextmod}.")
{
Context_mod *tr = unsmob_context_mod (contextmod);
LY_ASSERT_SMOB (Context_mod, contextmod, 1);
LY_DEFINE (ly_add_context_mod,
"ly:add-context-mod",
2, 0, 0, (SCM contextmods, SCM modification),
- "Adds the given context @var{modification} to the list @var{contextmods} of context modifications.")
+ "Adds the given context @var{modification} to the list"
+ " @var{contextmods} of context modifications.")
{
Context_mod *ctxmod = unsmob_context_mod (contextmods);
LY_ASSERT_SMOB (Context_mod, contextmods, 1);
SCM d = me->get_property ("direction");
if (d == ly_symbol2scm ("calculation-in-progress"))
{
- programming_error ("Grob direction requested while calculation in progress. ");
+ programming_error ("Grob direction requested while calculation in"
+ " progress. ");
return UP;
}
if (!is_direction (d))
LY_DEFINE (ly_engraver_make_grob, "ly:engraver-make-grob",
3, 0, 0, (SCM engraver, SCM grob_name, SCM cause),
- "Creates a grob originating from given engraver instance, "
- "with give @code{grob_name}, a symbol. "
- "@code{cause} should either be another grob "
- "or a music event.")
+ "Create a grob originating from given @var{engraver} instance,"
+ " with given @var{grob_name}, a symbol."
+ " @var{cause} should either be another grob"
+ " or a music event.")
{
LY_ASSERT_TYPE (unsmob_engraver, engraver, 1);
LY_ASSERT_TYPE (ly_is_symbol, grob_name, 2);
LY_DEFINE (ly_success, "ly:success",
1, 0, 1, (SCM str, SCM rest),
- "A Scheme callable function to issue a success message @code{str}."
- " The message is formatted with @code{format} and @code{rest}.")
+ "A Scheme callable function to issue a success message @var{str}."
+ " The message is formatted with @code{format} and @var{rest}.")
{
LY_ASSERT_TYPE (scm_is_string, str, 1);
str = scm_simple_format (SCM_BOOL_F, str, rest);
}
LY_DEFINE (ly_warning, "ly:warning",
1, 0, 1, (SCM str, SCM rest),
- "A Scheme callable function to issue the warning @code{str}."
- " The message is formatted with @code{format} and @code{rest}.")
+ "A Scheme callable function to issue the warning @var{str}."
+ " The message is formatted with @code{format} and @var{rest}.")
{
LY_ASSERT_TYPE (scm_is_string, str, 1);
str = scm_simple_format (SCM_BOOL_F, str, rest);
LY_DEFINE (ly_format, "ly:format",
1, 0, 1, (SCM str, SCM rest),
- "LilyPond specific format, supporting @code{~a} and @code{~[0-9]f}. "
- "Basic support for @code{~s} is also provided.")
+ "LilyPond specific format, supporting @code{~a} and @code{~[0-9]f}."
+ " Basic support for @code{~s} is also provided.")
{
LY_ASSERT_TYPE (scm_is_string, str, 1);
if (scm_is_pair (rest))
programming_error (string (__FUNCTION__)
- + ": too many arguments");
+ + ": too many arguments");
vsize len = 0;
for (vsize i = 0; i < results.size (); i++)
{
if (!finished_primitives_.size ())
{
- finished_ligature_->programming_error ("Ligature_engraver::stop_translation_timestep (): "
- "junking empty ligature");
+ finished_ligature_->programming_error (
+ "Ligature_engraver::stop_translation_timestep ():"
+ " junking empty ligature");
}
else
{
SCM primitive_scm = me->get_property ("primitive");
if (primitive_scm == SCM_EOL)
{
- programming_error ("Mensural_ligature: "
- "undefined primitive -> ignoring grob");
+ programming_error ("Mensural_ligature:"
+ " undefined primitive -> ignoring grob");
return Lookup::blank (Box (Interval (0, 0), Interval (0, 0)));
}
int primitive = scm_to_int (primitive_scm);
out = brew_flexa (me, delta_pitch, false, width, thickness);
break;
default:
- programming_error (_ ("Mensural_ligature: "
- "unexpected case fall-through"));
+ programming_error (_ ("Mensural_ligature:"
+ " unexpected case fall-through"));
return Lookup::blank (Box (Interval (0, 0), Interval (0, 0)));
}
LY_DEFINE (ly_make_music_function, "ly:make-music-function", 2, 0, 0,
(SCM signature, SCM func),
"Make a function to process music, to be used for the"
- " parser. @code{func} is the function, and @code{signature}"
- " describes its arguments. @code{signature} is a list"
+ " parser. @var{func} is the function, and @var{signature}"
+ " describes its arguments. @var{signature} is a list"
" containing either @code{ly:music?} predicates or other type"
" predicates.")
{
if (start == 0 && end == 1
&& this_start_best.first_page_number_ == 1
&& this_start_best.page_count_ > 1)
- warning (_ ("cannot fit the first page turn onto a single page. "
- "Consider setting first-page-number to an even number."));
+ warning (_ ("cannot fit the first page turn onto a single page."
+ " Consider setting first-page-number to an even number."));
if (this_start_best.demerits_ < best.demerits_)
best = this_start_best;
ADD_TRANSLATOR (Scheme_engraver,
/* doc */
- "Implement engravers in Scheme. Interprets arguments to @code{\\consists} "
- "as callbacks. ",
+ "Implement engravers in Scheme. Interprets arguments to"
+ " @code{\\consists} as callbacks.",
/* create */
"",
if (art == SCM_BOOL_F)
{
/* FIXME: */
- warning (_ ("do not know how to interpret articulation: "));
- warning (_ ("scheme encoding: "));
+ warning (_ ("do not know how to interpret articulation:"));
+ warning (_ (" scheme encoding: "));
scm_write (art_type, scm_current_error_port ());
message ("");
return;
ADD_INTERFACE (Tie_column,
- "Object that sets directions of multiple ties in a tied chord.",
+ "Object that sets directions of multiple ties in a tied"
+ " chord.",
/* properties */
"positioning-done "
{
if (!primitives.size ())
{
- programming_error ("Vaticana_ligature: "
- "empty ligature [ignored]");
+ programming_error ("Vaticana_ligature:"
+ " empty ligature [ignored]");
return 0.0;
}
{
if (!prev_primitive)
{
- primitive->programming_error ("vaticana ligature: add-join: "
- "missing previous primitive");
+ primitive->programming_error ("Vaticana ligature: add-join:"
+ " missing previous primitive");
}
else
{
if (prefix_set & ~PES_OR_FLEXA)
{
string prefs = Gregorian_ligature::prefixes_to_str (primitive);
- primitive->warning (_f ("ignored prefix (es) `%s' of this head according "
- "to restrictions of the selected ligature style",
+ primitive->warning (_f ("ignored prefix(es) `%s' of this head"
+ " according to restrictions of the selected"
+ " ligature style",
prefs.c_str ()));
}
}
if (pitch == new_pitch)
{
primitive.grob ()->
- warning ("Ambiguous use of dots in ligature: there are "
- "multiple dotted notes with the same pitch. "
- "The ligature should be split.");
+ warning ("Ambiguous use of dots in ligature: there are"
+ " multiple dotted notes with the same pitch."
+ " The ligature should be split.");
return; // supress multiple identical warnings
}
}
}
else if (augmented_primitives_.size () > 0)
{
- primitive->warning ("This ligature has a dotted head followed by "
- "a non-dotted head. The ligature should be "
- "split after the last dotted head before "
- "this head.");
+ primitive->warning ("This ligature has a dotted head followed by"
+ " a non-dotted head. The ligature should be"
+ " split after the last dotted head before"
+ " this head.");
}
if (is_stacked_head (prefix_set, context_info))
voices/staves also may want to set this property. */
Item *first_primitive = dynamic_cast<Item *> (primitives[0].grob ());
Paper_column *paper_column = first_primitive->get_column ();
- paper_column->warning (_f ("Vaticana_ligature_engraver: "
- "setting `spacing-increment = %f': ptr =%ul",
+ paper_column->warning (_f ("Vaticana_ligature_engraver:"
+ " setting `spacing-increment = %f': ptr =%ul",
ligature_width, paper_column));
paper_column->
set_property ("forced-spacing", scm_from_double (ligature_width));
ADD_ACKNOWLEDGER (Vaticana_ligature_engraver, note_head);
ADD_TRANSLATOR (Vaticana_ligature_engraver,
/* doc */
- "Handle ligatures by glueing special ligature heads together.",
+ "Handle ligatures by glueing special ligature heads"
+ " together.",
/* create */
"VaticanaLigature "