void gregorio_fix_initial_keys(gregorio_score *score,
gregorio_clef_info default_clef)
{
gregorio_element *element;
gregorio_voice_info *voice_info;
int i;
char to_delete = 1;
if (!score || !score->first_syllable || !score->first_voice_info) {
gregorio_message(_("score is not available"),
"gregorio_fix_initial_keys", VERBOSITY_WARNING, 0);
return;
}
voice_info = score->first_voice_info;
for (i = 0; i < score->number_of_voices; i++) {
element = score->first_syllable->elements[i];
if (!element) {
continue;
}
if (element->type == GRE_CLEF) {
voice_info->initial_clef = element->u.misc.clef;
gregorio_free_one_element(&(score->first_syllable->elements[i]));
gregorio_messagef("gregorio_fix_initial_keys", VERBOSITY_INFO, 0,
_("in voice %d the first element is a key definition, "
"considered as initial key"), i + 1);
}
voice_info = voice_info->next_voice_info;
}
/* then we suppress syllables that contain nothing anymore : case of (c2)
* at beginning of files */
for (i = 0; i < score->number_of_voices; i++) {
if (score->first_syllable->elements[i]) {
to_delete = 0;
break;
}
}
if (to_delete) {
gregorio_free_one_syllable(&(score->first_syllable),
score->number_of_voices);
}
/* finally we initialize voice infos that have no initial key to default
* key */
voice_info = score->first_voice_info;
for (i = 0; i < score->number_of_voices; i++) {
if (!voice_info->initial_clef.line) {
voice_info->initial_clef = default_clef;
gregorio_messagef("gregorio_fix_initial_keys", VERBOSITY_INFO, 0,
_("no initial key definition in voice %d, default key "
"definition applied"), i + 1);
}
voice_info = voice_info->next_voice_info;
}
}
static bool read_vowel_rules(char *const lang) {
char *language = lang;
rulefile_parse_status status = RFPS_NOT_FOUND;
char **filenames, *filename, **p;
const char *description;
int tries;
gregorio_kpse_find_or_else(filenames, VOWEL_FILE, return false);
gregorio_vowel_tables_init();
/* only need to try twice; if it's not resolved by then, there is an alias
* loop */
for (tries = 0; tries < 2; ++tries) {
for (p = filenames; status != RFPS_FOUND && (filename = *p); ++p) {
/* read and parse the file */
gregorio_messagef("read_rules", VERBOSITY_INFO, 0,
_("Looking for %s in %s"), language, filename);
gregorio_vowel_tables_load(filename, &language, &status);
switch (status) {
case RFPS_FOUND:
description = "Found";
break;
case RFPS_ALIASED:
description = "Aliased to";
break;
default:
description = "Could not find";
break;
}
gregorio_messagef("read_rules", VERBOSITY_INFO, 0, _("%s %s in %s"),
description, language, filename);
}
if (status != RFPS_ALIASED) {
/* if it's not aliased, there's no reason to scan again */
break;
}
}
if (status == RFPS_ALIASED) {
gregorio_messagef("read_rules", VERBOSITY_WARNING, 0,
_("Unable to resolve alias for %s"), lang);
}
/* free the allocated memory */
for (p = filenames; *p; ++p) {
free(*p);
}
free(filenames);
if (language != lang) {
free(language);
}
return status == RFPS_FOUND;
}
void gregorio_set_centering_language(char *const language)
{
if (!read_vowel_rules(language)) {
if (strcmp(language, "Latin") != 0) {
gregorio_messagef("gregorio_set_centering_language",
VERBOSITY_WARNING, 0, _("unable to read vowel files for "
"%s; defaulting to Latin rules"), language);
}
gregorio_vowel_tables_init();
gregorio_vowel_table_add(DEFAULT_VOWELS);
gregorio_prefix_table_add("i");
gregorio_prefix_table_add("I");
gregorio_prefix_table_add("u");
gregorio_prefix_table_add("U");
}
}
/* LCOV_EXCL_START */
static __inline void unsupported(const char *fn, const int line,
const char *type, const char *value)
{
gregorio_messagef(fn, VERBOSITY_ASSERTION, line, _("unsupported %s %s"),
type, value);
}
void gregorio_message(const char *string, const char *function_name,
gregorio_verbosity verbosity, int line_number)
{
gregorio_messagef(function_name, verbosity, line_number, "%s", string);
}
