void dump_write_characters(FILE *const f,
const gregorio_character * current_character)
{
while (current_character) {
fprintf(f,
"---------------------------------------------------------------------\n");
if (current_character->is_character) {
fprintf(f, " character ");
gregorio_print_unichar(f, current_character->cos.character);
fprintf(f, "\n");
} else {
if (current_character->cos.s.type == ST_T_BEGIN) {
fprintf(f, " beginning of style %s\n",
dump_style_to_string(current_character->cos.s.style));
} else {
fprintf(f, " end of style %s\n",
dump_style_to_string(current_character->cos.s.style));
}
}
current_character = current_character->next_character;
}
}
static void gabc_print_char(FILE *f, const grewchar to_print)
{
gregorio_print_unichar(f, to_print);
}
