static character_set *character_set_new(const bool alloc_next)
{
character_set *set =
(character_set *)gregorio_calloc(1, sizeof(character_set));
set->mask = 0x0f;
set->bins = 16;
set->size = 0;
set->table = (grewchar *)gregorio_calloc(set->bins, sizeof(grewchar));
if (alloc_next) {
set->next = (character_set **)gregorio_calloc(set->bins,
sizeof(character_set *));
}
return set;
}
void gregorio_add_voice_info(gregorio_voice_info **current_voice_info)
{
gregorio_voice_info *next = gregorio_calloc(1, sizeof(gregorio_voice_info));
if (*current_voice_info) {
(*current_voice_info)->next_voice_info = next;
}
*current_voice_info = next;
}
gregorio_score *gregorio_new_score(void)
{
gregorio_score *new_score = gregorio_calloc(1, sizeof(gregorio_score));
new_score->number_of_voices = 1;
new_score->initial_style = INITIAL_NOT_SPECIFIED;
gregorio_set_score_staff_lines(new_score, 4);
return new_score;
}
static gregorio_glyph *create_and_link_glyph(gregorio_glyph **current_glyph)
{
gregorio_glyph *glyph = gregorio_calloc(1, sizeof(gregorio_glyph));
glyph->previous = *current_glyph;
glyph->next = NULL;
if (*current_glyph) {
(*current_glyph)->next = glyph;
}
*current_glyph = glyph;
return glyph;
}
void gregorio_add_syllable(gregorio_syllable **current_syllable,
int number_of_voices, gregorio_element *elements[],
gregorio_character *first_character,
gregorio_character *first_translation_character,
gregorio_word_position position, char *abovelinestext,
gregorio_tr_centering translation_type, gregorio_nlba no_linebreak_area,
gregorio_euouae euouae, const gregorio_scanner_location *const loc,
const bool first_word)
{
gregorio_syllable *next;
gregorio_element **tab;
int i;
if (number_of_voices > MAX_NUMBER_OF_VOICES) {
gregorio_message(_("too many voices"), "add_syllable", VERBOSITY_FATAL,
0);
return;
}
next = gregorio_calloc(1, sizeof(gregorio_syllable));
next->type = GRE_SYLLABLE;
next->special_sign = _NO_SIGN;
next->position = position;
next->no_linebreak_area = no_linebreak_area;
next->euouae = euouae;
next->text = first_character;
next->translation = first_translation_character;
next->translation_type = translation_type;
next->abovelinestext = abovelinestext;
next->first_word = first_word;
if (loc) {
next->src_line = loc->first_line;
next->src_column = loc->first_column;
next->src_offset = loc->first_offset;
}
next->next_syllable = NULL;
next->previous_syllable = *current_syllable;
tab = (gregorio_element **) gregorio_malloc(number_of_voices *
sizeof(gregorio_element *));
if (elements) {
for (i = 0; i < number_of_voices; i++) {
tab[i] = elements[i];
}
} else {
for (i = 0; i < number_of_voices; i++) {
tab[i] = NULL;
}
}
next->elements = tab;
if (*current_syllable) {
(*current_syllable)->next_syllable = next;
}
*current_syllable = next;
}
static gregorio_element *create_and_link_element(gregorio_element
**current_element)
{
gregorio_element *element = gregorio_calloc(1, sizeof(gregorio_element));
element->previous = *current_element;
element->next = NULL;
if (*current_element) {
(*current_element)->next = element;
}
*current_element = element;
return element;
}
static __inline void character_set_grow(character_set *const set) {
static grewchar *old_table;
static character_set **old_next;
unsigned int old_bins, i;
assert(set);
if (set->bins >= 0x4000L) {
/* this should not realistically be reached */
/* LCOV_EXCL_START */
gregorio_message(_("character set too large"), "character_set_grow",
VERBOSITY_FATAL, 0);
return;
/* LCOV_EXCL_STOP */
}
old_table = set->table;
old_next = set->next;
old_bins = set->bins;
set->bins <<= 1;
set->mask = (set->mask << 1) | 0x01;
set->table = gregorio_calloc(set->bins, sizeof(grewchar));
if (old_next) {
set->next = gregorio_calloc(set->bins, sizeof(character_set *));
}
for (i = 0; i < old_bins; ++i) {
if (old_table[i]) {
character_set_put(set, old_table[i], old_next ? old_next[i] : NULL);
} else {
assert(!old_next || !old_next[i]);
}
}
free(old_table);
if (old_next) {
free(old_next);
}
}
void gregorio_add_character(gregorio_character **current_character,
grewchar wcharacter)
{
gregorio_character *element =
(gregorio_character *) gregorio_calloc(1, sizeof(gregorio_character));
element->is_character = 1;
element->cos.character = wcharacter;
element->next_character = NULL;
element->previous_character = *current_character;
if (*current_character) {
(*current_character)->next_character = element;
}
*current_character = element;
}
void gregorio_begin_style(gregorio_character **current_character,
grestyle_style style)
{
gregorio_character *element =
(gregorio_character *) gregorio_calloc(1, sizeof(gregorio_character));
element->is_character = 0;
element->cos.s.type = ST_T_BEGIN;
element->cos.s.style = style;
element->previous_character = *current_character;
element->next_character = NULL;
if (*current_character) {
(*current_character)->next_character = element;
}
*current_character = element;
}
static gregorio_note *create_and_link_note(gregorio_note **current_note,
const gregorio_scanner_location *const loc)
{
gregorio_note *note = gregorio_calloc(1, sizeof(gregorio_note));
note->previous = *current_note;
note->next = NULL;
if (*current_note) {
(*current_note)->next = note;
}
*current_note = note;
note->src_line = loc->first_line;
note->src_column = loc->first_column;
note->src_offset = loc->first_offset;
return note;
}
gregorio_character *gregorio_clone_characters(
const gregorio_character *source)
{
gregorio_character *target = NULL, *current = NULL;
for (; source; source = source->next_character) {
gregorio_character *character = (gregorio_character *)
gregorio_calloc(1, sizeof(gregorio_character));
*character = *source;
character->next_character = NULL;
if (current) {
character->previous_character = current;
current = current->next_character = character;
} else {
character->previous_character = NULL;
target = current = character;
}
}
return target;
}
