diff options
author | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
---|---|---|
committer | Denis Bitouzé <dbitouze@wanadoo.fr> | 2021-02-25 18:23:07 +0000 |
commit | c6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch) | |
tree | 1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/gregorio/gregorio-src/src | |
parent | 07ee7222e389b0777456b427a55c22d0e6ffd267 (diff) |
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/gregorio/gregorio-src/src')
49 files changed, 0 insertions, 47918 deletions
diff --git a/Build/source/texk/gregorio/gregorio-src/src/Makefile.am b/Build/source/texk/gregorio/gregorio-src/src/Makefile.am deleted file mode 100644 index 9728a64c205..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/Makefile.am +++ /dev/null @@ -1,142 +0,0 @@ -# Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) -# -# This file is part of Gregorio. -# -# Gregorio is free software: you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation, either version 3 of the License, or -# (at your option) any later version. -# -# Gregorio is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - -AM_CPPFLAGS = -I$(top_srcdir)/src -I$(top_srcdir)/src/gabc -I$(top_srcdir)/src/dump -I$(top_srcdir)/src/gregoriotex -AM_CFLAGS = $(KPSE_CFLAGS) -LDADD = $(KPSE_LIBS) - -bin_PROGRAMS = gregorio$(GREGORIO_EXE_SUFFIX) -gregorio__GREGORIO_EXE_SUFFIX__SOURCES = \ - gregorio-utils.c characters.c characters.h messages.c messages.h struct.c \ - struct.h struct_iter.h enum_generator.h unicode.c unicode.h sha1.c sha1.h \ - support.c support.h config.h bool.h plugins.h utf8strings.h dump/dump.c \ - gregoriotex/gregoriotex-write.c gregoriotex/gregoriotex-position.c \ - gregoriotex/gregoriotex.h - -@MK@ifneq ($(wildcard ../.git),) -@MK@ _tag_ = $(shell git describe --exact-match HEAD 2>/dev/null) -@MK@ ifeq ($(_tag_),) -@MK@ DEFS += -DBRANCH_VERSION='"$(shell git rev-parse --abbrev-ref HEAD)-$(shell git rev-parse --short HEAD)-$(shell git rev-list HEAD --count)"' -@MK@ endif -@MK@else -@MK@ ifneq ($(wildcard ../.hg/git),) -@MK@ _gitnode_ = $(shell hg log --template='{gitnode}' -r .) -@MK@ ifeq ($(_gitnode_),) -@MK@ DEFS += -DBRANCH_VERSION='"$(shell hg log --template='{activebookmark}-hg:{manifest}' -r .)"' -@MK@ else -@MK@ _tag_ = $(shell git --git-dir=../.hg/git describe --exact-match '$(_gitnode_)' 2>/dev/null) -@MK@ ifeq ($(_tag_),) -@MK@ DEFS += -DBRANCH_VERSION='"$(shell hg log --template='{activebookmark}' -r .)-$(shell git --git-dir=../.hg/git rev-parse --short '$(_gitnode_)')-$(shell git --git-dir=../.hg/git rev-list '$(_gitnode_)' --count)"' -@MK@ endif -@MK@ endif -@MK@ endif -@MK@endif - -# gabc files -gregorio__GREGORIO_EXE_SUFFIX__SOURCES += \ - gabc/gabc-elements-determination.c gabc/gabc-write.c \ - gabc/gabc-glyphs-determination.c gabc/gabc.h \ - gabc/gabc-score-determination.h gabc/gabc-score-determination.c \ - gabc/gabc-score-determination-y.h gabc/gabc-score-determination-y.c \ - gabc/gabc-score-determination-l.h gabc/gabc-score-determination-l.c \ - gabc/gabc-notes-determination-l.c vowel/vowel.h vowel/vowel.c \ - vowel/vowel-rules.h vowel/vowel-rules-l.h vowel/vowel-rules-l.c \ - vowel/vowel-rules-y.h vowel/vowel-rules-y.c - -EXTRA_DIST = encode_utf8strings.c utf8strings.h.in utf8strings.h \ - gabc/gabc-notes-determination.l gabc/gabc-notes-determination-l.c \ - gabc/gabc-score-determination.h gabc/gabc-score-determination.y \ - gabc/gabc-score-determination-y.h \ - gabc/gabc-score-determination-y.c gabc/gabc-score-determination.l \ - gabc/gabc-score-determination-l.h \ - gabc/gabc-score-determination-l.c vowel/vowel-rules.l \ - vowel/vowel-rules-l.h vowel/vowel-rules-l.c vowel/vowel-rules.y \ - vowel/vowel-rules-y.h vowel/vowel-rules-y.c - -if HAVE_RC -# Windows resources (see windows/README.md) -gregorio-resources.o: ../windows/gregorio-resources.rc ../windows/gregorio.ico - $(RC) $(RCFLAGS) $< -o $@ - -gregorio__GREGORIO_EXE_SUFFIX__SOURCES += ../windows/gregorio-resources.rc ../windows/gregorio.ico -LDADD += gregorio-resources.o -endif - -gabc/gabc-score-determination-y.c: gabc/gabc-score-determination.y - $(YACC) -v -d -p "gabc_score_determination_" -o $@ $< -gabc/gabc-score-determination-y.h: gabc/gabc-score-determination-y.c - ## Recover from the removal of gabc/gabc-score-determination-y.h, see - ## https://www.gnu.org/software/automake/manual/html_node/Multiple-Outputs.html - @if test -f $@; then :; else \ - rm -f gabc/gabc-score-determination-y.c; \ - $(MAKE) $(AM_MAKEFLAGS) gabc/gabc-score-determination-y.c; \ - fi - -gabc/gabc-score-determination-l.c: gabc/gabc-score-determination.l - $(LEX) -o $@ --header-file=gabc/gabc-score-determination-l.h $< -gabc/gabc-score-determination-l.h: gabc/gabc-score-determination-l.c - ## Recover from the removal of gabc/gabc-score-determination-l.h, see - ## https://www.gnu.org/software/automake/manual/html_node/Multiple-Outputs.html - @if test -f $@; then :; else \ - rm -f gabc/gabc-score-determination-l.c; \ - $(MAKE) $(AM_MAKEFLAGS) gabc/gabc-score-determination-l.c; \ - fi - -gabc/gabc-notes-determination-l.c: gabc/gabc-notes-determination.l - $(LEX) -o $@ $< - -vowel/vowel-rules-y.c: vowel/vowel-rules.y - $(YACC) -v -d -o $@ $< -vowel/vowel-rules-y.h: vowel/vowel-rules-y.c - ## Recover from the removal of vowel/vowel-rules-y.h, see - ## https://www.gnu.org/software/automake/manual/html_node/Multiple-Outputs.html - @if test -f $@; then :; else \ - rm -f vowel/vowel-rules-y.c; \ - $(MAKE) $(AM_MAKEFLAGS) vowel/vowel-rules-y.c; \ - fi - -vowel/vowel-rules-l.c: vowel/vowel-rules.l - $(LEX) -o $@ --header-file=vowel/vowel-rules-l.h $< -vowel/vowel-rules-l.h: vowel/vowel-rules-l.c - ## Recover from the removal of vowel/vowel-rules-l.h, see - ## https://www.gnu.org/software/automake/manual/html_node/Multiple-Outputs.html - @if test -f $@; then :; else \ - rm -f vowel/vowel-rules-l.c; \ - $(MAKE) $(AM_MAKEFLAGS) vowel/vowel-rules-l.c; \ - fi - -utf8strings.h: utf8strings.h.in - $(MAKE) $(AM_MAKEFLAGS) encode_utf8strings${EXEEXT} - ./encode_utf8strings${EXEEXT} $< $@ - -encode_utf8strings${EXEEXT}: encode_utf8strings.c - $(CC) -o $@ $< - -clean-local: - find . -name '*.gcno' -print | xargs rm -f -- - find . -name '*.gcda' -print | xargs rm -f -- - -BUILT_SOURCES = utf8strings.h gabc/gabc-notes-determination-l.c \ - gabc/gabc-score-determination-l.c \ - gabc/gabc-score-determination-l.h \ - gabc/gabc-score-determination-y.c \ - gabc/gabc-score-determination-y.h vowel/vowel-rules-l.c \ - vowel/vowel-rules-l.h vowel/vowel-rules-y.c \ - vowel/vowel-rules-y.h - -CLEANFILES = encode_utf8strings${EXEEXT} -MAINTAINERCLEANFILES = $(BUILT_SOURCES) diff --git a/Build/source/texk/gregorio/gregorio-src/src/bool.h b/Build/source/texk/gregorio/gregorio-src/src/bool.h deleted file mode 100644 index 8857fde759f..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/bool.h +++ /dev/null @@ -1,30 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header provides a minimum of C11-like bool functionality. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef BOOL_H -#define BOOL_H - -typedef unsigned int bool; -#define true 1 -#define false 0 - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/characters.c b/Build/source/texk/gregorio/gregorio-src/src/characters.c deleted file mode 100644 index 6caa92677fb..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/characters.c +++ /dev/null @@ -1,1329 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX. - * This file contains functions that deal with lyrics and styles. - * - * Copyright (C) 2008-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -/** - * @file - * @brief This file contains almost all the gregorio_character manipulation things. - * - * @warning The code is very spaghetti, but I don't really think I can do it another way with the chosen representation of styles, and the fact that everything must be xml-compliant and tex-compliant... - * So this file is basically very hard to maintain. Moreover, it has not been very well coded, so it is even harder to maintain... - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <ctype.h> -#include <errno.h> -#include <limits.h> -#include <sys/stat.h> -#include <assert.h> -#include "bool.h" -#include "struct.h" -#include "unicode.h" -#include "characters.h" -#include "messages.h" -#include "support.h" -#include "utf8strings.h" -#include "vowel/vowel.h" - -#define VOWEL_FILE "gregorio-vowels.dat" - -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 && strcmp(language, "latin") != 0 && strcmp(language, "la") != 0 && strcmp(language, "lat") != 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"); - } -} - -static __inline const gregorio_character *skip_verbatim_or_special( - const gregorio_character *ch) -{ - /* skip past verbatim and special characters */ - if (ch->cos.s.type == ST_T_BEGIN && (ch->cos.s.style == ST_VERBATIM - || ch->cos.s.style == ST_SPECIAL_CHAR)) { - if (ch->next_character) { - ch = ch->next_character; - } - while (ch->next_character && ch->is_character) { - ch = ch->next_character; - } - } - return ch; -} - -static __inline bool handle_elision(const gregorio_character *const ch, - bool *in_elision) -{ - if (ch->cos.s.style != ST_ELISION) { - return false; - } - - switch (ch->cos.s.type) { - case ST_T_BEGIN: - *in_elision = true; - break; - - case ST_T_END: - *in_elision = false; - break; - - case ST_T_NOTHING: - /* not reachable unless there's a programming error */ - assert(false); /* LCOV_EXCL_LINE */ - break; - } - return true; -} - -static __inline int for_each_centerable_character( - const gregorio_character *const character, - void (*capture)(grewchar *, int, grewchar), grewchar *buffer) -{ - int count; - const gregorio_character *ch; - bool in_elision = false; - - for (count = 0, ch = character; ch; ch = ch->next_character) { - if (ch->is_character) { - if (!in_elision) { - if (capture) { - capture(buffer, count, ch->cos.character); - } - ++count; - } - } else { - if (ch->cos.s.style == ST_PROTRUSION_FACTOR) { - /* if there is a protrusion, we will always encounter the - * protrusion factor first */ - break; - } - if (ch->cos.s.type == ST_T_BEGIN && ch->cos.s.style == ST_ELISION) { - /* put in a special character at the beginning of an elision - * that represents the elision */ - if (capture) { - capture(buffer, count, GREVOWEL_ELISION_MARK); - } - ++count; - } - if (!handle_elision(ch, &in_elision)) { - ch = skip_verbatim_or_special(ch); - } - } - } - return count; -} - -/* this function assumes subject is sized correctly */ -static void capture_subject(grewchar *const subject, const int count, - const grewchar character) -{ - subject[count] = character; -} - -static void determine_center(gregorio_character *character, int *start, - int *end) -{ - const int count = for_each_centerable_character(character, NULL, NULL); - grewchar *subject; - - if (count == 0) { - return; - } - - subject = (grewchar *)gregorio_malloc((count + 1) * sizeof(grewchar)); - for_each_centerable_character(character, capture_subject, subject); - subject[count] = (grewchar)0; - - *start = *end = -1; - gregorio_find_vowel_group(subject, start, end); - - free(subject); -} - -static bool go_to_end_initial(gregorio_character **param_character) -{ - bool has_initial = false; - gregorio_character *current_character = *param_character; - if (!current_character) { - return false; - } - gregorio_go_to_first_character_c(¤t_character); - /* skip past any initial */ - if (!current_character->is_character - && current_character->cos.s.type == ST_T_BEGIN - && current_character->cos.s.style == ST_INITIAL) { - has_initial = true; - while (current_character) { - if (!current_character->is_character - && current_character->cos.s.type == ST_T_END - && current_character->cos.s.style == ST_INITIAL) { - break; - } - current_character = current_character->next_character; - } - } - (*param_character) = current_character; - return has_initial; -} - -/* - * The push function pushes a style in the stack, and updates first_style to - * this element. - */ - -static void style_push(det_style **current_style, grestyle_style style) -{ - det_style *element; - gregorio_assert(current_style, style_push, "current_style may not be NULL", - return); - element = (det_style *) gregorio_malloc(sizeof(det_style)); - element->style = style; - element->previous_style = NULL; - element->next_style = (*current_style); - if (*current_style) { - (*current_style)->previous_style = element; - } - (*current_style) = element; -} - -/* - * Pop deletes an style in the stack (the style to delete is the parameter) - */ - -static void style_pop(det_style **first_style, det_style *element) -{ - gregorio_assert(element && first_style && *first_style, style_pop, - "invalid arguments", return); - if (element->previous_style) { - assert(*first_style != element); - element->previous_style->next_style = element->next_style; - if (element->next_style) { - element->next_style->previous_style = element->previous_style; - } - } else { - if (element->next_style) { - element->next_style->previous_style = NULL; - (*first_style) = element->next_style; - } else { - (*first_style) = NULL; - } - } - free(element); -} - -/* - * free_styles just frees the stack. - */ - -static void free_styles(det_style **first_style) -{ - det_style *current_style; - gregorio_not_null(first_style, free_styles, return); - current_style = (*first_style); - while (current_style) { - current_style = current_style->next_style; - free((*first_style)); - (*first_style) = current_style; - } -} - - -/* - * inline function that will be used for verbatim and special-characters in the - * - * next function, it calls function with a grewchar * which is the verbatim or - * special-character. It places current_character to the character next to the - * end of the verbatim or special_char charachters. - */ -static __inline void verb_or_sp(const gregorio_character **ptr_character, - const grestyle_style style, FILE *const f, - void (*const function) (FILE *, const grewchar *)) -{ - int i, j; - grewchar *text; - const gregorio_character *current_character; - const gregorio_character *begin_character; - - i = 0; - j = 0; - - current_character = (*ptr_character)->next_character; - begin_character = current_character; - while (current_character) { - if (current_character->cos.s.type == ST_T_END - && current_character->cos.s.style == style) { - break; - } else { - if (current_character->is_character) { - i++; - } - current_character = current_character->next_character; - } - } - if (i == 0) { - *ptr_character = current_character; - return; - } - text = (grewchar *) gregorio_malloc((i + 1) * sizeof(grewchar)); - current_character = begin_character; - while (j < i) { - if (current_character->is_character) { - text[j] = current_character->cos.character; - j++; - } - current_character = current_character->next_character; - } - text[i] = 0; - function(f, text); - free(text); - - *ptr_character = current_character; -} - -/** - * This function is made to simplify the output modules : they just have to - * declare some simple functions (what to do when meeting a beginning of style, - * a character, etc.) and to call this function with pointer to these - * functions, and that will automatically write the good ouput. This function - * does not test at all the gregorio_character list, if it is wrong, then the - * ouput will be wrong. It is very simple to understand, even if it is a bit - * long. - * - * @warning The difficulty comes when we have to write the first syllable text, - * without the first letter. - * The behaviour can have some bugs in this case if the first syllable has some - * complex styles. It would be a bit stupid to do such a thing, but users are - * usually very creative when it comes to inventing twisted things... - */ -void gregorio_write_text(const gregorio_write_text_phase phase, - const gregorio_character *current_character, FILE *const f, - void (*const printverb) (FILE *, const grewchar *), - void (*const printchar) (FILE *, grewchar), - void (*const begin) (FILE *, grestyle_style), - void (*const end) (FILE *, grestyle_style), - void (*const printspchar) (FILE *, const grewchar *)) -{ - gregorio_assert(current_character, gregorio_write_text, - "current_character may not be NULL", return); - while (current_character) { - if (current_character->is_character) { - printchar(f, current_character->cos.character); - } else { - if (current_character->cos.s.type == ST_T_BEGIN) { - switch (current_character->cos.s.style) { - case ST_VERBATIM: - verb_or_sp(¤t_character, ST_VERBATIM, f, printverb); - break; - case ST_SPECIAL_CHAR: - verb_or_sp(¤t_character, ST_SPECIAL_CHAR, f, - printspchar); - break; - case ST_INITIAL: - if (phase == WTP_FIRST_SYLLABLE) { - while (current_character) { - if (!current_character->is_character - && current_character->cos.s.type == ST_T_END - && current_character->cos.s.style == - ST_INITIAL) { - break; - } - current_character = - current_character->next_character; - } - } else { - begin(f, ST_INITIAL); - } - break; - default: - begin(f, current_character->cos.s.style); - break; - } - } else { /* ST_T_END */ - end(f, current_character->cos.s.style); - } - } - - if (current_character) { - current_character = current_character->next_character; - } - } -} - -void gregorio_write_first_letter_alignment_text( - const gregorio_write_text_phase phase, - const gregorio_character *current_character, FILE *const f, - void (*const printverb) (FILE *, const grewchar *), - void (*const printchar) (FILE *, grewchar), - void (*const begin) (FILE *, grestyle_style), - void (*const end) (FILE *, grestyle_style), - void (*const printspchar) (FILE *, const grewchar *)) -{ - /* stack of styles to close and reopen */ - det_style *first_style = NULL; - det_style *last_style = NULL; - int first_letter_open = (phase == WTP_FIRST_SYLLABLE)? 2 : 1; - - gregorio_assert(current_character, - gregorio_write_first_letter_alignment_text, - "current_character may not be NULL", return); - - /* go to the first character */ - gregorio_go_to_first_character(¤t_character); - - if (phase != WTP_FIRST_SYLLABLE) { - begin(f, ST_SYLLABLE_INITIAL); - } - - /* loop until there are no characters left */ - for (; current_character; - current_character = current_character->next_character) { - bool close_first_letter = false; - /* found a real character */ - if (current_character->is_character) { - printchar(f, current_character->cos.character); - close_first_letter = first_letter_open != 0; - } else switch (current_character->cos.s.type) { - case ST_T_NOTHING: - /* not reachable unless there's a programming error */ - assert(false); /* LCOV_EXCL_LINE */ - break; - case ST_T_BEGIN: - /* handle styles */ - switch (current_character->cos.s.style) { - case ST_CENTER: - case ST_FORCED_CENTER: - case ST_INITIAL: - case ST_FIRST_SYLLABLE_INITIAL: - /* ignore */ - break; - case ST_VERBATIM: - verb_or_sp(¤t_character, ST_VERBATIM, f, printverb); - close_first_letter = first_letter_open != 0; - break; - case ST_SPECIAL_CHAR: - verb_or_sp(¤t_character, ST_SPECIAL_CHAR, f, printspchar); - close_first_letter = first_letter_open != 0; - break; - case ST_FIRST_WORD: - case ST_FIRST_SYLLABLE: - if (phase == WTP_FIRST_SYLLABLE) { - break; - } /* else fall through */ - default: - /* push the style onto the stack */ - style_push(&first_style, current_character->cos.s.style); - begin(f, current_character->cos.s.style); - } - break; - case ST_T_END: - switch (current_character->cos.s.style) { - case ST_CENTER: - case ST_FORCED_CENTER: - case ST_FIRST_SYLLABLE_INITIAL: - /* ignore */ - break; - case ST_INITIAL: - /* in the case where the initial is closed before the first - * letter */ - close_first_letter = first_letter_open > 1; - break; - case ST_VERBATIM: - case ST_SPECIAL_CHAR: - /* not reachable unless there's a programming error */ - assert(false); /* LCOV_EXCL_LINE */ - break; - case ST_FIRST_WORD: - case ST_FIRST_SYLLABLE: - if (phase == WTP_FIRST_SYLLABLE) { - break; - } /* else fall through */ - default: - /* pop the style from the stack */ - assert(first_style); - assert(first_style->style - == current_character->cos.s.style); - style_pop(&first_style, first_style); - end(f, current_character->cos.s.style); - } - break; - } - - while (close_first_letter || (!current_character->next_character - && first_letter_open > 0)) { - close_first_letter = false; - --first_letter_open; - - /* close all the styles in the stack */ - if (first_style) { - det_style *current_style; - /* these are immediately closed, so go past them */ - while (first_style && current_character - && current_character->next_character - && !current_character->next_character->is_character - && current_character->next_character->cos.s.type - == ST_T_END - && current_character->next_character->cos.s.style - == first_style->style) { - current_character = current_character->next_character; - style_pop(&first_style, first_style); - end(f, current_character->cos.s.style); - } - for (current_style = first_style; current_style; - current_style = current_style->next_style) { - end(f, current_style->style); - last_style = current_style; - } - } - - end(f, ST_SYLLABLE_INITIAL); - - /* reopen all styles */ - for (; last_style; last_style = last_style->previous_style) { - begin(f, last_style->style); - } - } - } - - if (phase == WTP_FIRST_SYLLABLE) { - /* the only way this can happen is if the first syllable is empty, - * but if the first syllable is empty, this function will not be - * called */ - gregorio_assert_only(!first_letter_open, - gregorio_write_first_letter_alignment_text, - "first_syllable was not closed properly"); - } - - free_styles(&first_style); -} - -/* - * Here starts the code of the handling of text and styles. - * - * This part is not the easiest, in fact is is the most complicated. The reason - * is that I want to make something coherent in memory (easy to interprete), - * and to let the user type whatever he wants. This part was originally written - * for gabc, that's why it's always talking about it. But it could as well be - * used by other read plugins, to put things in order. - * - * Basically all the following lines of code are made for the last function, - * that will take a "user-written" gregorio_character list into a xml-compliant - * and tex-compliant list. It's more complicated than it seems... - * - * Functionalities: For example if the user types tt<i>ttt<b>ttt</i>tt I want - * it to be represented as tt<i>ttt<b>ttt</b></i><b>tt</b>. The fabulous thing - * is that it is xml-compliant. This part also determines the middle, for - * example pot will be interpreted as p{o}t. When I did that I also thought - * about TeX styles that needed things like {p}{o}{t}, so when the user types - * <i>pot</i>, it is interpreted as <i>p</i>{<i>o</i>}<i>t</i>. - * - * Internal structure: To do so we have a structure, det_style, that will help - * us : it is a stack (double chained list) of the styles that we have seen - * until now. When we encounter a <i>, we push the i style on the stack. If we - * encounter a </i> we suppress the i style from the stack. Let's take a more - * complex example: if we encounter <i><b></i>, the stack will be first null, - * then i then bi, and there we want to end i, but it is not the first style of - * the stack, so we close all the styles that we encounter before we encounter - * i (remember, this is for xml-compliance), so we insert a </b> before the - * </i>. But that's not all, we also write a <b> after the </i>, so that the b - * style continues. There our stack is just b. For center, we just close all - * the styles in the stack, insert a { and reopen all the styles in the stack. - * - * The structure used for character, styles, etc. is described in - * include/struct.h - * - * The functionment in this file is quite simple : we add all the characters - * that we see, even if they are incoherent, in the gregorio_character list, - * and then we call a very complex function that will build a stack of the - * style, determine the middle, make all xml-compliant, mow the lawn, etc. - * - * This code is *really* spaghetti, but I think it's a necessary pain. - * - */ - -/* - * - * This function inserts a style before current_character, updating the double - * chained list. - * - */ - -static void insert_style_before(unsigned char type, - unsigned char style, gregorio_character *current_character) -{ - gregorio_character *element = - (gregorio_character *) gregorio_malloc(sizeof(gregorio_character)); - element->is_character = 0; - element->cos.s.type = type; - element->cos.s.style = style; - element->next_character = current_character; - if (current_character->previous_character) { - current_character->previous_character->next_character = element; - } - element->previous_character = current_character->previous_character; - current_character->previous_character = element; -} - -/* - * - * This function puts a style after current_character, and updates - * current_character to the gregorio_character it created. It updates the - * double chained list. It does not touche to the det_styles list. - * - */ - -static void insert_style_after(unsigned char type, unsigned char style, - gregorio_character **current_character) -{ - gregorio_character *element = - (gregorio_character *) gregorio_malloc(sizeof(gregorio_character)); - element->is_character = 0; - element->cos.s.type = type; - element->cos.s.style = style; - element->next_character = (*current_character)->next_character; - if ((*current_character)->next_character) { - (*current_character)->next_character->previous_character = element; - } - element->previous_character = (*current_character); - (*current_character)->next_character = element; - (*current_character) = element; -} - -#if 0 -static void insert_char_after(grewchar c, - gregorio_character **current_character) -{ - gregorio_character *element = - (gregorio_character *) gregorio_malloc(sizeof(gregorio_character)); - element->is_character = 1; - element->cos.character = c; - element->next_character = (*current_character)->next_character; - if ((*current_character)->next_character) { - (*current_character)->next_character->previous_character = element; - } - element->previous_character = (*current_character); - (*current_character)->next_character = element; - (*current_character) = element; -} -#endif - -/* - * - * This function suppresses the character, updates the double chained - * list, and returns the character after, if there is one. - * - */ - -static __inline gregorio_character *suppress_character( - gregorio_character *current_character) -{ - if (current_character) { - gregorio_character *thischaracter = current_character; - if (current_character->previous_character) { - current_character->previous_character->next_character = - current_character->next_character; - } - if (current_character->next_character) { - current_character->next_character->previous_character = - current_character->previous_character; - } - current_character = current_character->next_character; - free(thischaracter); - } - return current_character; -} - -/* - * - * Then start the inline functions for the big function. the first one is the - * function we call when we close a style. The magic thing is that is will - * prevent things like a<i></i>{<i>b</b>: when the user types a<i>b</i>, if the - * middle is between a and b (...), it will interpret it as a{<i>b</i>. - * - */ - -static __inline void close_style(gregorio_character *current_character, - det_style *current_style) -{ - /* we suppose that there is a previous_character, because there is a - * current_style - */ - gregorio_assert(current_character && current_character->previous_character, - close_syllable, "have a style but no previous character", return); - if (!current_character->previous_character->is_character - && current_character->previous_character->cos.s.style == - current_style->style) { - /* we do it this way rather than calling suppress_character on the - * previous character because the intent is more obvious to both the - * human reading it and to the clang static analyzer */ - gregorio_character *tofree = current_character->previous_character; - if (tofree->previous_character) { - tofree->previous_character->next_character = current_character; - } - current_character->previous_character = tofree->previous_character; - free(tofree); - } else { - insert_style_before(ST_T_END, current_style->style, current_character); - } -} - -/* - * - * next the function called when we have determined that we must end the center - * here : it closes all styles, adds a } and then reopens all styles. - * - */ - -/* type is ST_CENTER or ST_FORCED_CENTER */ -static __inline void end_center(grestyle_style type, - gregorio_character *current_character, det_style **ptr_style) -{ - det_style *current_style; - current_style = *ptr_style; - - while (current_style) { - close_style(current_character, current_style); - if (current_style->next_style) { - current_style = current_style->next_style; - } else { - break; - } - } - insert_style_before(ST_T_END, type, current_character); - while (current_style) { - insert_style_before(ST_T_BEGIN, current_style->style, - current_character); - if (current_style->previous_style) { - current_style = current_style->previous_style; - } else { - break; - } - } - - *ptr_style = current_style; -} - -/* - * about the same, but adding a { - */ - -static __inline void begin_center(grestyle_style type, - gregorio_character *current_character, det_style **ptr_style) -{ - det_style *current_style; - current_style = *ptr_style; - - while (current_style) { - close_style(current_character, current_style); - if (current_style->next_style) { - current_style = current_style->next_style; - } else { - break; - } - } - insert_style_before(ST_T_BEGIN, type, current_character); - while (current_style) { - insert_style_before(ST_T_BEGIN, current_style->style, - current_character); - if (current_style->previous_style) { - current_style = current_style->previous_style; - } else { - break; - } - } - - *ptr_style = current_style; -} - -/* - * THE big function. Very long, using a lot of long macros, etc. I hope you - * really want to understand it, 'cause it won't be easy. - * - * current character is a pointer to a gregorio_character. The - * gregorio_character double-chained list it is in will be totally reorganized - * so that it is xml compliant, and the function will update it to the first - * character of this brand new list. - * - * center_is_determined has the values present in characters.h. - * - * Another difficulty is the fact that we must consider characters in verbatim - * and special character styles like only one block, we can't say the center is - * in the middle of a verbatim block. - */ - -void gregorio_rebuild_characters(gregorio_character **const param_character, - gregorio_center_determination center_is_determined, bool skip_initial) -{ - /* the current_character */ - gregorio_character *current_character = *param_character; - gregorio_character *sentinel; - det_style *first_style = NULL; - /* determining the type of centering (forced or not) */ - grestyle_style center_type = ST_NO_STYLE; - int start = -1, end = -1, index = -1; - bool in_elision = false; - det_style *current_style; - /* so, here we start: we go to the first_character */ - if (skip_initial && go_to_end_initial(¤t_character)) { - if (!current_character->next_character) { - /* nothing else to rebuild, but the initial needs to be ST_CENTER */ - insert_style_after(ST_T_END, ST_CENTER, ¤t_character); - gregorio_go_to_first_character_c(¤t_character); - insert_style_before(ST_T_BEGIN, ST_CENTER, current_character); - gregorio_go_to_first_character_c(¤t_character); - (*param_character) = current_character; - return; - } - /* move to the character after the initial */ - current_character = current_character->next_character; - } else { - if (current_character) { - gregorio_go_to_first_character_c(¤t_character); - } - } - /* first we see if there is already a center determined */ - if (center_is_determined == 0) { - center_type = ST_CENTER; - determine_center(current_character, &start, &end); - } else { - center_type = ST_FORCED_CENTER; - } - if (!current_character) { - return; - } - for (sentinel = current_character; sentinel->next_character; - sentinel = sentinel->next_character) { - /* just loop to get the last character */ - } - /* put a sentinel at the end to aid in looping */ - insert_style_after(ST_T_NOTHING, ST_SENTINEL, &sentinel); - /* we loop until there isn't any character */ - while (current_character && current_character != sentinel) { - /* IMPORTANT: A continue inside this loop MUST put current_character on - * the next character to process */ - - /* the first part of the function deals with real characters (not - * styles) */ - if (current_character->is_character) { - if (!in_elision) { - ++index; - if (!center_is_determined && index == start) { - /* the firstcase is if the user hasn't determined the - * middle, and we have only seen vowels so far (else - * center_is_determined would be DETERMINING_MIDDLE). The - * current_character is the first vowel, so we start the - * center here. */ - begin_center(center_type, current_character, &first_style); - center_is_determined = CENTER_DETERMINING_MIDDLE; - } else if (center_is_determined == CENTER_DETERMINING_MIDDLE - && index == end) { - /* the case where the user has not determined the middle - * and we are in the middle section of the syllable, but - * there we encounter something that is not a vowel, so the - * center ends there. */ - end_center(center_type, current_character, &first_style); - center_is_determined = CENTER_FULLY_DETERMINED; - } /* else it is just a normal character... we simply pass. */ - } - } else { - const grestyle_style style = current_character->cos.s.style; - /* there starts the second part of the function that deals with the - * styles characters */ - switch (current_character->cos.s.type) { - case ST_T_BEGIN: - /* the beginning of a style */ - - if (center_is_determined == CENTER_DETERMINING_MIDDLE - && index == end - 1) { - /* if we are determining the end of the center and we have - * a, ELISION, VERBATIM or SPECIAL_CHAR style, we end the - * center determination */ - switch (style) { - case ST_VERBATIM: - case ST_SPECIAL_CHAR: - case ST_ELISION: - end_center(center_type, current_character, &first_style); - center_is_determined = CENTER_FULLY_DETERMINED; - break; - - default: - /* something else; don't do anything */ - break; - } - } - - if (style == ST_ELISION) { - /* skip over the elision marker in the vowel determination - * buffer */ - ++index; - } - - switch (style) { - case ST_VERBATIM: - case ST_SPECIAL_CHAR: - /* Here we pass all the characters after a verbatim (or - * special char) beginning, until we find a style (begin or - * end) */ - if (current_character->next_character) { - current_character = current_character->next_character; - } - while (current_character && current_character != sentinel - && current_character->is_character) { - current_character = current_character->next_character; - } - assert(current_character); - if (current_character != sentinel) { - gregorio_assert2(!current_character->is_character - && current_character->cos.s.type == ST_T_END - && current_character->cos.s.style == style, - gregorio_rebuild_characters, "mismatched %s", - grestyle_style_to_string(style), break); - } - break; - - case ST_CENTER: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(gregorio_rebuild_characters, - "encountered unexpected begin ST_CENTER"); - break; - /* LCOV_EXCL_STOP */ - - case ST_FORCED_CENTER: - begin_center(center_type, current_character, &first_style); - current_character = suppress_character(current_character); - continue; - - default: - handle_elision(current_character, &in_elision); - /* it the beginning of a style, which is not center. We - * check if the style is not already in the stack. If it is - * the case, we suppress the character and pass */ - for (current_style = first_style; current_style - && current_style->style != current_character->cos.s.style; - current_style = current_style->next_style) { - /* just loop */ - } - if (current_style) { - /* repeated styles should already have been filtered out - * during parsing, so if this is hit, it's a programming - * error */ - /* LCOV_EXCL_START */ - gregorio_fail(gregorio_rebuild_characters, - "encountered repeated style"); - current_character = suppress_character(current_character); - continue; - /* LCOV_EXCL_STOP */ - } - /* if it is something to add then we just push the style in the - * stack and continue. */ - style_push(&first_style, current_character->cos.s.style); - break; - } - break; - - case ST_T_END: - /* the beginning of a style */ - switch(current_character->cos.s.style) { - case ST_VERBATIM: - case ST_SPECIAL_CHAR: - case ST_CENTER: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(gregorio_rebuild_characters, - "encountered unexpected end %s", - grestyle_style_to_string( - current_character->cos.s.style)); - break; - /* LCOV_EXCL_STOP */ - - case ST_FORCED_CENTER: - end_center(center_type, current_character, &first_style); - current_character = suppress_character(current_character); - continue; - - default: - handle_elision(current_character, &in_elision); - /* the case of the end of a style (the most complex). - * First, we have to see if the style is in the stack. If - * there is no stack, we just suppress and continue. */ - if (!first_style) { - current_character = suppress_character(current_character); - continue; - } - /* so, we look if it is in the stack. If it is we put - * current_style to the style just before the style - * corresponding to the character that we are treating - * (still there ?) */ - for (current_style = first_style; current_style - && current_style->style - != current_character->cos.s.style; - current_style = current_style->next_style) { - /* just loop */ - } - if (current_style) { - det_style *this_style; - /* if there are styles before in the stack, we close - * them */ - for (this_style = first_style; - this_style != current_style; - this_style = this_style->next_style) { - insert_style_before(ST_T_END, this_style->style, - current_character); - } - /* and then we reopen them */ - for (this_style = this_style->previous_style; - this_style; - this_style = this_style->previous_style) { - insert_style_after(ST_T_BEGIN, this_style->style, - ¤t_character); - } - /* we delete the style in the stack */ - style_pop(&first_style, current_style); - } else { - current_character = suppress_character(current_character); - continue; - } - } - break; - - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(gregorio_rebuild_characters, - "unexpected style type"); - } - /* LCOV_EXCL_STOP */ - } - current_character = current_character->next_character; - } - /* destroy the sentinel */ - current_character = sentinel->previous_character; - current_character->next_character = NULL; - free(sentinel); - /* we terminate all the styles that are still in the stack */ - for (current_style = first_style; current_style; - current_style = current_style->next_style) { - insert_style_after(ST_T_END, current_style->style, - ¤t_character); - } - /* current_character is at the end of the list now, so if we havn't closed - * the center, we do it at the end. */ - if (center_is_determined != CENTER_FULLY_DETERMINED) { - insert_style_after(ST_T_END, center_type, ¤t_character); - } - /* these three lines are for the case where the user didn't tell anything - * about the middle and there aren't any vowel in the syllable, so we - * begin the center before the first character (you can notice that there - * is no problem of style). */ - if (!center_is_determined) { - if (skip_initial && go_to_end_initial(¤t_character)) { - current_character = current_character->next_character; - } else { - gregorio_go_to_first_character_c(¤t_character); - } - insert_style_before(ST_T_BEGIN, ST_CENTER, current_character); - } - /* well.. you're quite brave if you reach this comment. */ - gregorio_go_to_first_character_c(¤t_character); - (*param_character) = current_character; - free_styles(&first_style); -} - -/** - * @brief This function will determine the behaviour of gregorio when it comes to the recognition of the initial. - * - * Basically it will take a gregorio_character list and return the same list, but with a style added : ST_INITIAL. This style will incidate the initial. The center will be placed at the second letter, unless there is a FORCED_CENTER somewhere. - * Finally all will be xml-compliant and tex-compliant when we call gregorio_rebuild_characters. - * - * If we note <> for the initial and {} for the center, here is what we want: - * - * @li \verbatim Po -> <P>{o} \endverbatim - * @li \verbatim {A}b -> <>{A}b \endverbatim - * @li \verbatim {}a -> <>{}a \endverbatim - * @li \verbatim Glo -> <G>{l}o \endverbatim - * @li \verbatim Gl{o} -> <G>l{o} \endverbatim - * - * @param param_character is a pointer to the (pointer to the) first character, it will be modified so that it points to the new first character. - */ -void gregorio_rebuild_first_syllable(gregorio_character **param_character, - bool separate_initial) -{ - /* the current_character */ - gregorio_character *current_character = *param_character; - gregorio_character *first_character; - gregorio_character *start_of_special; - /* so, here we start: we go to the first_character */ - gregorio_go_to_first_character_c(¤t_character); - /* first we look at the styles to see if there is a FORCED_CENTER - * somewhere */ - /* Note: we don't have to deal with ST_CENTER here because - * gregorio_rebuild_first_syllable is meant to be run **before** - * gregorio_rebuild_characters, which is what adds ST_CENTER */ - gregorio_assert(param_character, gregorio_rebuild_first_syllable, - "param_character may not be NULL", return); - while (current_character) { - if (!current_character->is_character) { - if (current_character->cos.s.style == ST_FORCED_CENTER) { - /* we can break here, as there won't be forced center plus - * center */ - break; - } - } - current_character = current_character->next_character; - } - current_character = *param_character; - gregorio_go_to_first_character_c(¤t_character); - first_character = current_character; - /* now we are going to place the two INITIAL styles (begin and end) */ - while (current_character) { - if (!current_character->is_character - && (current_character->cos.s.style == ST_FORCED_CENTER - || current_character->cos.s.style == ST_PROTRUSION_FACTOR)) { - /* we don't touch anything after a FORCED_CENTER, so we put an - * empty INITIAL style just before; we handle the weird case of - * a protrusion (manual or automatic) at the initial the same way - * (we need only check for PROTRUSION_FACTOR since that will come - * before PROTRUSION) */ - current_character = first_character; - insert_style_before(ST_T_BEGIN, ST_INITIAL, current_character); - current_character = current_character->previous_character; - insert_style_after(ST_T_END, ST_INITIAL, ¤t_character); - break; - } - /* this if is a hack to make gregorio consider verbatim blocks and - * special chars like one block, not a sequence of letters */ - if (!current_character->is_character - && current_character->cos.s.type == ST_T_BEGIN - && (current_character->cos.s.style == ST_VERBATIM - || current_character->cos.s.style == ST_SPECIAL_CHAR)) { - insert_style_before(ST_T_BEGIN, ST_INITIAL, current_character); - start_of_special = current_character->previous_character; - /* ... which is now the begin-initial style */ - - if (current_character->next_character) { - current_character = current_character->next_character; - } - while (current_character->next_character - && current_character->is_character) { - current_character = current_character->next_character; - } - insert_style_after(ST_T_END, ST_INITIAL, ¤t_character); - if (separate_initial && start_of_special->previous_character) { - /* we need to move the initial to the front */ - start_of_special->previous_character->next_character = - current_character->next_character; - current_character->next_character->previous_character = - start_of_special->previous_character; - start_of_special->previous_character = NULL; - current_character->next_character = first_character; - first_character->previous_character = current_character; - } - break; - } - if (current_character->is_character) { - if (separate_initial && current_character->previous_character) { - /* we need to move the initial to the front */ - current_character->previous_character->next_character = - current_character->next_character; - current_character->next_character->previous_character = - current_character->previous_character; - current_character->previous_character = NULL; - current_character->next_character = first_character; - first_character->previous_character = current_character; - } - insert_style_before(ST_T_BEGIN, ST_INITIAL, current_character); - insert_style_after(ST_T_END, ST_INITIAL, ¤t_character); - break; - } - current_character = current_character->next_character; - } - /* now apply the first syllable style */ - current_character = *param_character; - if (separate_initial) { - if (go_to_end_initial(¤t_character)) { - current_character = current_character->next_character; - } - } else { - gregorio_go_to_first_character_c(¤t_character); - } - if (current_character) { - bool marked_syllable_initial = false; - insert_style_before(ST_T_BEGIN, ST_FIRST_SYLLABLE, current_character); - do { - if (!marked_syllable_initial && (current_character->is_character - || (current_character->cos.s.type == ST_T_BEGIN - && (current_character->cos.s.style == ST_VERBATIM - || current_character->cos.s.style - == ST_SPECIAL_CHAR - ) - ) - )) { - marked_syllable_initial = true; - insert_style_before(ST_T_BEGIN, ST_FIRST_SYLLABLE_INITIAL, - current_character); - if (!current_character->is_character) { - /* skip past the verbatim or special character */ - if (current_character->next_character) { - current_character = current_character->next_character; - } - while (current_character->next_character - && current_character->is_character) { - current_character = current_character->next_character; - } - } - insert_style_after(ST_T_END, ST_FIRST_SYLLABLE_INITIAL, - ¤t_character); - } - if (!current_character->is_character) { - switch (current_character->cos.s.style) { - case ST_CENTER: - case ST_FORCED_CENTER: - insert_style_before(ST_T_END, ST_FIRST_SYLLABLE, - current_character); - insert_style_after(ST_T_BEGIN, ST_FIRST_SYLLABLE, - ¤t_character); - break; - - case ST_PROTRUSION_FACTOR: - /* protrusion is not allowed to be the syllable initial; - * we only need to check PROTRUSION_FACTOR since that will - * come before PROTRUSION */ - marked_syllable_initial = true; - break; - - default: - break; - } - } - if (!current_character->next_character) { - insert_style_after(ST_T_END, ST_FIRST_SYLLABLE, - ¤t_character); - } - current_character = current_character->next_character; - } while (current_character); - } - - current_character = *param_character; - gregorio_go_to_first_character_c(¤t_character); - (*param_character) = current_character; -} - -void gregorio_set_first_word(gregorio_character **const character) -{ - gregorio_character *ch = *character; - if (go_to_end_initial(&ch)) { - ch = ch->next_character; - } - if (ch) { - bool started_style = false; - while (ch) { - if (!ch->is_character - && (ch->cos.s.style == ST_CENTER - || ch->cos.s.style == ST_FORCED_CENTER)) { - if (started_style) { - started_style = false; - insert_style_before(ST_T_END, ST_FIRST_WORD, ch); - } - } else if (!started_style) { - started_style = true; - insert_style_before(ST_T_BEGIN, ST_FIRST_WORD, ch); - } - - if (!ch->next_character && started_style) { - insert_style_after(ST_T_END, ST_FIRST_WORD, &ch); - } - - ch = ch->next_character; - } - } - /* else there are no more characters here */ - - if (*character) { - gregorio_go_to_first_character_c(character); - } -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/characters.h b/Build/source/texk/gregorio/gregorio-src/src/characters.h deleted file mode 100644 index 33f40616d44..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/characters.h +++ /dev/null @@ -1,89 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header prototypes the lyric handling data structures and entry points. - * - * Copyright (C) 2008-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef CHARACTERS_H -#define CHARACTERS_H - -#include "bool.h" -#include "struct.h" - -/* - * - * The three next defines are the possible values of center_is_determined. - * - * CENTER_NOT_DETERMINED means that the plugin has encountered no { nor } (in - * the gabc syntax). CENTER_HALF_DETERMINED means that the plugin has - * encountered a { but no }, and we will try to determine a middle starting - * after the {. CENTER_FULLY_DETERMINED means that lex has encountered a { and - * a }, so we won't determine the middle, it is considered done. - * CENTER_DETERMINING_MIDDLE is used internally in the big function to know - * where we are in the middle determination. - * - */ - -typedef enum gregorio_center_determination { - CENTER_NOT_DETERMINED = 0, - CENTER_HALF_DETERMINED, - CENTER_FULLY_DETERMINED, - CENTER_DETERMINING_MIDDLE -} gregorio_center_determination; - -/* this is a temporary structure that will be used for style determination */ - -typedef struct det_style { - grestyle_style style; - struct det_style *previous_style; - struct det_style *next_style; -} det_style; - -typedef enum gregorio_write_text_phase { - WTP_NORMAL, - WTP_FIRST_SYLLABLE -} gregorio_write_text_phase; - -void gregorio_write_text(gregorio_write_text_phase phase, - const gregorio_character *current_character, FILE *f, - void (*printverb) (FILE *, const grewchar *), - void (*printchar) (FILE *, grewchar), - void (*begin) (FILE *, grestyle_style), - void (*end) (FILE *, grestyle_style), - void (*printspchar) (FILE *, const grewchar *)); - -void gregorio_write_first_letter_alignment_text(gregorio_write_text_phase phase, - const gregorio_character *current_character, FILE *f, - void (*printverb) (FILE *, const grewchar *), - void (*printchar) (FILE *, grewchar), - void (*begin) (FILE *, grestyle_style), - void (*end) (FILE *, grestyle_style), - void (*printspchar) (FILE *, const grewchar *)); - -void gregorio_set_centering_language(char *language); - -void gregorio_rebuild_characters(gregorio_character **param_character, - gregorio_center_determination center_is_determined, bool skip_initial); - -void gregorio_rebuild_first_syllable(gregorio_character **param_character, - bool separate_initial); - -void gregorio_set_first_word(gregorio_character **character); - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/config.h b/Build/source/texk/gregorio/gregorio-src/src/config.h deleted file mode 100644 index 259c4ca0c3a..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/config.h +++ /dev/null @@ -1,36 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header wraps the generated config_.h to provide version macros. - * - * Gregorio configuration headers. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef CONFIG_H -#define CONFIG_H - -#include "config_.h" - -#ifdef BRANCH_VERSION -#define GREGORIO_VERSION VERSION "-" BRANCH_VERSION -#else -#define GREGORIO_VERSION VERSION -#endif - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/dump/dump.c b/Build/source/texk/gregorio/gregorio-src/src/dump/dump.c deleted file mode 100644 index 5f604b9ba3d..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/dump/dump.c +++ /dev/null @@ -1,546 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX. - * This file provides functions to dump out Gregorio structures. - * - * Copyright (C) 2007-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include "bool.h" -#include "struct.h" -#include "unicode.h" -#include "messages.h" -#include "plugins.h" -#include "support.h" - -static const char *dump_style_to_string(grestyle_style style) -{ - static char buf[50]; - - gregorio_snprintf(buf, sizeof buf, "%16s", grestyle_style_to_string(style)); - return buf; -} - -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 { - switch (current_character->cos.s.type) { - case ST_T_BEGIN: - fprintf(f, " beginning of style %s\n", - dump_style_to_string(current_character->cos.s.style)); - break; - case ST_T_END: - fprintf(f, " end of style %s\n", - dump_style_to_string(current_character->cos.s.style)); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - fprintf(f, " !! IMPROPER STYLE !! %s\n", - dump_style_to_string(current_character->cos.s.style)); - break; - /* LCOV_EXCL_STOP */ - } - } - current_character = current_character->next_character; - } -} - -static const char *dump_bool(bool value) { - return value? "true" : "false"; -} - -static const char *dump_pitch(const char height, const char highest_pitch) { - static char buf[20]; - if (height >= LOWEST_PITCH && height <= highest_pitch) { - char pitch = height + 'a' - LOWEST_PITCH; - if (pitch == 'o') { - pitch = 'p'; - } - gregorio_snprintf(buf, 20, "%c", pitch); - } else { - /* not reachable unless there's a programming error */ - gregorio_snprintf(buf, 20, "?%d", height); /* LCOV_EXCL_LINE */ - } - return buf; -} - -static void dump_hepisema_adjustment(FILE *const f, const gregorio_note *note, - const gregorio_sign_orientation orientation, const char *const which) { - unsigned short index = note->he_adjustment_index[orientation]; - if (index) { - gregorio_hepisema_adjustment *adj = gregorio_get_hepisema_adjustment( - index); - fprintf(f, " %s hepisema group %d\n", which, index); - fprintf(f, " %s hep. vbasepos %d (%s)\n", which, - adj->vbasepos, - gregorio_hepisema_vbasepos_to_string(adj->vbasepos)); - if (adj->nudge) { - fprintf(f, " %s hepisema nudge %s\n", which, adj->nudge); - } - } -} - -void dump_write_score(FILE *f, gregorio_score *score) -{ - gregorio_voice_info *voice_info = score->first_voice_info; - int i; - int annotation_num; - gregorio_syllable *syllable; - gregorio_header *header; - - gregorio_assert(f, dump_write_score, "call with NULL file", return); - - fprintf(f, - "=====================================================================\n" - " SCORE INFOS\n" - "=====================================================================\n"); - if (score->number_of_voices) { - fprintf(f, " number_of_voices %d\n", - score->number_of_voices); - } - if (score->name) { - fprintf(f, " name %s\n", score->name); - } - if (score->gabc_copyright) { - fprintf(f, " gabc_copyright %s\n", score->gabc_copyright); - } - if (score->score_copyright) { - fprintf(f, " score_copyright %s\n", score->score_copyright); - } - if (score->author) { - fprintf(f, " author %s\n", score->author); - } - if (score->mode) { - fprintf(f, " mode %s\n", score->mode); - } - if (score->mode_modifier) { - fprintf(f, " mode_modifier %s\n", score->mode_modifier); - } - if (score->mode_differentia) { - fprintf(f, " mode_differentia %s\n", score->mode_differentia); - } - if (score->staff_lines != 4) { - fprintf(f, " staff_lines %d\n", (int)score->staff_lines); - } - if (score->nabc_lines) { - fprintf(f, " nabc_lines %d\n", (int)score->nabc_lines); - } - if (score->legacy_oriscus_orientation) { - fprintf(f, " oriscus-orientation legacy\n"); - } - fprintf(f, "\n\n" - "=====================================================================\n" - " HEADERS\n" - "=====================================================================\n"); - for (header = score->headers; header; header = header->next) { - fprintf(f, " %-25s %s\n", header->name, header->value); - } - fprintf(f, "\n\n" - "=====================================================================\n" - " VOICES INFOS\n" - "=====================================================================\n"); - for (i = 0; i < score->number_of_voices; i++) { - fprintf(f, " Voice %d\n", i + 1); - if (voice_info->initial_clef.line) { - fprintf(f, " initial_key %d (%c%d)\n", - gregorio_calculate_new_key(voice_info->initial_clef), - gregorio_clef_to_char(voice_info->initial_clef.clef), - voice_info->initial_clef.line); - if (voice_info->initial_clef.flatted) { - fprintf(f, " flatted_key true\n"); - } - if (voice_info->initial_clef.secondary_line) { - fprintf(f, " secondary_clef %c%d\n", - gregorio_clef_to_char( - voice_info->initial_clef.secondary_clef), - voice_info->initial_clef.secondary_line); - if (voice_info->initial_clef.secondary_flatted) { - fprintf(f, " secondary_flatted_key true\n"); - } - } - } - for (annotation_num = 0; annotation_num < MAX_ANNOTATIONS; - ++annotation_num) { - if (score->annotation[annotation_num]) { - fprintf(f, " annotation %s\n", - score->annotation[annotation_num]); - } - } - voice_info = voice_info->next_voice_info; - } - fprintf(f, "\n\n" - "=====================================================================\n" - " SCORE\n" - "=====================================================================\n"); - for (syllable = score->first_syllable; syllable; - syllable = syllable->next_syllable) { - gregorio_element *element; - fprintf(f, " type 0 (GRE_SYLLABLE)\n"); - if (syllable->position) { - fprintf(f, " position %d (%s)\n", - syllable->position, - gregorio_word_position_to_string(syllable->position)); - } - if (syllable->no_linebreak_area != NLBA_NORMAL) { - fprintf(f, " no line break area %s\n", - gregorio_nlba_to_string(syllable->no_linebreak_area)); - } - if (syllable->euouae != EUOUAE_NORMAL) { - fprintf(f, " euouae %s\n", - gregorio_euouae_to_string(syllable->euouae)); - } - if (syllable->clear) { - fprintf(f, " clear true\n"); - } - if (syllable->text) { - if (syllable->translation) { - fprintf(f, "\n Text\n"); - } - dump_write_characters(f, syllable->text); - } - if ((syllable->translation - && syllable->translation_type != TR_WITH_CENTER_END) - || syllable->translation_type == TR_WITH_CENTER_END) { - fprintf(f, "\n Translation type %s", - gregorio_tr_centering_to_string - (syllable->translation_type)); - if (syllable->translation_type == TR_WITH_CENTER_END) { - fprintf(f, "\n"); - } - } - if (syllable->translation) { - fprintf(f, "\n Translation\n"); - dump_write_characters(f, syllable->translation); - } - if (syllable->abovelinestext) { - fprintf(f, "\n Abovelinestext\n %s", syllable->abovelinestext); - } - for (element = *syllable->elements; element; element = element->next) { - gregorio_glyph *glyph; - fprintf(f, "---------------------------------------------------------------------\n"); - if (element->type) { - fprintf(f, " type %d (%s)\n", - element->type, gregorio_type_to_string(element->type)); - } - switch (element->type) { - case GRE_CUSTOS: - if (element->u.misc.pitched.pitch) { - fprintf(f, " pitch %s\n", - dump_pitch(element->u.misc.pitched.pitch, - score->highest_pitch)); - } - if (element->u.misc.pitched.force_pitch) { - fprintf(f, " force_pitch true\n"); - } - break; - case GRE_SUPPRESS_CUSTOS: - /* not handling this would generate an error below */ - break; - case GRE_SPACE: - if (element->u.misc.unpitched.info.space) { - char *factor = element->u.misc.unpitched.info. - ad_hoc_space_factor; - fprintf(f, " space %d (%s)%s%s\n", - element->u.misc.unpitched.info.space, - gregorio_space_to_string( - element->u.misc.unpitched.info.space), - factor? " x " : "", factor? factor : ""); - } - break; - case GRE_TEXVERB_ELEMENT: - fprintf(f, " TeX string \"%s\"\n", - gregorio_texverb(element->texverb)); - break; - case GRE_NLBA: - fprintf(f, " nlba %d (%s)\n", - element->u.misc.unpitched.info.nlba, - gregorio_nlba_to_string(element->u.misc.unpitched.info. - nlba)); - break; - case GRE_ALT: - fprintf(f, " Above lines text \"%s\"\n", - gregorio_texverb(element->texverb)); - break; - case GRE_BAR: - if (element->u.misc.unpitched.info.bar) { - fprintf(f, " bar %d (%s)\n", - element->u.misc.unpitched.info.bar, - gregorio_bar_to_string(element->u.misc.unpitched. - info.bar)); - if (element->u.misc.unpitched.special_sign) { - fprintf(f, " special sign %d (%s)\n", - element->u.misc.unpitched.special_sign, - gregorio_sign_to_string(element-> - u.misc.unpitched.special_sign)); - } - } - break; - case GRE_CLEF: - if (element->u.misc.clef.line) { - fprintf(f, " clef %d (%c%d)\n", - gregorio_calculate_new_key(element->u.misc.clef), - gregorio_clef_to_char(element->u.misc.clef.clef), - element->u.misc.clef.line); - if (element->u.misc.clef.flatted) { - fprintf(f, " flatted_key true\n"); - } - if (element->u.misc.clef.secondary_line) { - fprintf(f, " secondary_clef %c%d\n", - gregorio_clef_to_char( - element->u.misc.clef.secondary_clef), - element->u.misc.clef.secondary_line); - if (element->u.misc.clef.secondary_flatted) { - fprintf(f, " secondary_flatted_key true\n"); - } - } - } - break; - case GRE_END_OF_LINE: - if (element->u.misc.unpitched.info.eol_ragged) { - fprintf(f, " ragged true\n"); - } - if (element->u.misc.unpitched.info.eol_forces_custos) { - fprintf(f, " forces custos %s\n", - dump_bool(element - ->u.misc.unpitched.info.eol_forces_custos_on)); - } - break; - case GRE_ELEMENT: - for (glyph = element->u.first_glyph; glyph; - glyph = glyph->next) { - gregorio_note *note; - fprintf(f, "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\n"); - if (glyph->type) { - fprintf(f, " type %d (%s)\n", - glyph->type, gregorio_type_to_string(glyph-> - type)); - } - switch (glyph->type) { - case GRE_TEXVERB_GLYPH: - fprintf(f, " TeX string \"%s\"\n", - gregorio_texverb(glyph->texverb)); - break; - - case GRE_SPACE: - fprintf(f, " space %d (%s)\n", - glyph->u.misc.unpitched.info.space, - gregorio_space_to_string(glyph->u.misc. - unpitched.info.space)); - break; - - case GRE_GLYPH: - fprintf(f, " glyph_type %d (%s)\n", - glyph->u.notes.glyph_type, - gregorio_glyph_type_to_string(glyph->u.notes. - glyph_type)); - if (glyph->u.notes.is_cavum) { - fprintf(f, " is_cavum true\n"); - } - if (glyph->u.notes.liquescentia) { - fprintf(f, " liquescentia %d (%s)\n", - glyph->u.notes.liquescentia, - gregorio_liquescentia_to_string( - glyph->u.notes.liquescentia)); - } - break; - - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - fprintf(f, " !!! NOT ALLOWED !!! %s\n", - gregorio_type_to_string(glyph->type)); - break; - /* LCOV_EXCL_STOP */ - } - if (glyph->type == GRE_GLYPH) { - for (note = glyph->u.notes.first_note; note; - note = note->next) { - fprintf(f, "- - - - - - - - - - - - - - - - - - - - - - - \n"); - if (note->type) { - fprintf(f, " type %d (%s)\n", - note->type, - gregorio_type_to_string(note->type)); - } - switch (note->type) { - case GRE_NOTE: - if (note->u.note.pitch) { - fprintf(f, " pitch %s\n", - dump_pitch(note->u.note.pitch, - score->highest_pitch)); - } - if (note->u.note.shape) { - fprintf(f, " shape %d (%s)\n", - note->u.note.shape, - gregorio_shape_to_string( - note->u.note.shape)); - } - if (note->u.note.is_cavum) { - fprintf(f, " is_cavum true\n"); - } - if (note->u.note.liquescentia) { - fprintf(f, " liquescentia %d (%s)\n", - note->u.note.liquescentia, - gregorio_liquescentia_to_string( - note->u.note.liquescentia)); - } - break; - - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - fprintf(f, " !!! NOT ALLOWED !!! %s\n", - gregorio_type_to_string(note->type)); - break; - /* LCOV_EXCL_STOP */ - } - if (note->texverb) { - fprintf(f, " TeX string \"%s\"\n", - gregorio_texverb(note->texverb)); - } - if (note->choral_sign) { - fprintf(f, " Choral Sign \"%s\"\n", - note->choral_sign); - } - if (note->signs) { - fprintf(f, " signs %d (%s)\n", - note->signs, - gregorio_sign_to_string(note->signs)); - } - if (note->signs & _V_EPISEMA && note->v_episema_height) { - if (note->v_episema_height < note->u.note.pitch) { - fprintf(f, " v episema forced BELOW\n"); - } - else { - fprintf(f, " v episema forced ABOVE\n"); - } - } - if ((note->signs == _PUNCTUM_MORA - || note->signs == _V_EPISEMA_PUNCTUM_MORA) - && note->mora_vposition) { - fprintf(f, " mora vposition %s\n", - gregorio_vposition_to_string(note-> - mora_vposition)); - } - if (note->special_sign) { - fprintf(f, " special sign %d (%s)\n", - note->special_sign, - gregorio_sign_to_string( - note->special_sign)); - } - if (note->h_episema_above == HEPISEMA_AUTO - && note->h_episema_below == HEPISEMA_AUTO) { - fprintf(f, " auto hepisema size %d (%s)\n", - note->h_episema_above_size, - grehepisema_size_to_string(note-> - h_episema_above_size)); - fprintf(f, " auto hepisema bridge %s\n", - dump_bool(note->h_episema_above_connect)); - } - else { - if (note->h_episema_above == HEPISEMA_FORCED) { - fprintf(f, " above hepisema size %d (%s)\n", - note->h_episema_above_size, - grehepisema_size_to_string(note-> - h_episema_above_size)); - fprintf(f, " above hepisema bridge %s\n", - dump_bool(note->h_episema_above_connect)); - } - if (note->h_episema_below == HEPISEMA_FORCED) { - fprintf(f, " below hepisema size %d (%s)\n", - note->h_episema_below_size, - grehepisema_size_to_string(note-> - h_episema_below_size)); - fprintf(f, " below hepisema bridge %s\n", - dump_bool(note->h_episema_below_connect)); - } - } - dump_hepisema_adjustment(f, note, SO_OVER, "above"); - dump_hepisema_adjustment(f, note, SO_UNDER, - "below"); - switch (note->high_ledger_specificity) { - case LEDGER_SUPPOSED: - break; - case LEDGER_EXPLICIT: - fprintf(f, " explicit high line %s\n", - dump_bool(note->high_ledger_line)); - break; - case LEDGER_DRAWN: - fprintf(f, " drawn high line %s\n", - dump_bool(note->high_ledger_line)); - break; - case LEDGER_EXPLICITLY_DRAWN: - fprintf(f, " forced drawn high line %s\n", - dump_bool(note->high_ledger_line)); - break; - } - switch (note->low_ledger_specificity) { - case LEDGER_SUPPOSED: - break; - case LEDGER_EXPLICIT: - fprintf(f, " explicit low line %s\n", - dump_bool(note->low_ledger_line)); - break; - case LEDGER_DRAWN: - fprintf(f, " drawn low line %s\n", - dump_bool(note->low_ledger_line)); - break; - case LEDGER_EXPLICITLY_DRAWN: - fprintf(f, " forced drawn low line %s\n", - dump_bool(note->low_ledger_line)); - break; - } - } - } - } - break; - - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - fprintf(f, " !!! NOT ALLOWED !!! %s\n", - gregorio_type_to_string(element->type)); - break; - /* LCOV_EXCL_STOP */ - } - if (element->nabc_lines) { - fprintf(f, " nabc_lines %d\n", - (int)element->nabc_lines); - } - if (element->nabc_lines && element->nabc) { - for (i = 0; i < (int)element->nabc_lines; i++) { - if (element->nabc[i]) { - fprintf(f, " nabc_line %d \"%s\"\n", - (int)(i+1), element->nabc[i]); - } - } - } - } - fprintf(f, "=====================================================================\n"); - } -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/encode_utf8strings.c b/Build/source/texk/gregorio/gregorio-src/src/encode_utf8strings.c deleted file mode 100644 index d57c8d71054..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/encode_utf8strings.c +++ /dev/null @@ -1,75 +0,0 @@ -/* - * Utility program to convert utf8strings.h.in into utf8strings.h - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#include <stdio.h> -#include <string.h> -#include <errno.h> - -int main(int argc, char **argv) -{ - char buf[5]; - FILE *input, *output; - int c; - - if (argc != 3) { - fprintf(stderr, "Incorrect arguments\n"); - return -1; - } - - input = fopen(argv[1], "rb"); - if (input == NULL) { - fprintf(stderr, "Error opening %s: %s\n", argv[1], strerror(errno)); - return -1; - } - - output = fopen(argv[2], "wb"); - if (output == NULL) { - fprintf(stderr, "Error creating %s: %s\n", argv[2], strerror(errno)); - return -1; - } - - while ((c = fgetc(input)) != EOF) { - if (c & 0x80) { - snprintf(buf, sizeof(buf), "\\%03o", c); - if (fwrite(buf, sizeof(buf) - sizeof(char), 1, output) != 1) { - fprintf(stderr, "Error writing %s: %s\n", argv[2], - strerror(errno)); - return -1; - } - } else { - if (fputc(c, output) != c) { - fprintf(stderr, "Error writing %s: %s\n", argv[2], - strerror(errno)); - return -1; - } - } - } - - if (fclose(output) != 0) { - fprintf(stderr, "Error closing %s: %s\n", argv[2], strerror(errno)); - return -1; - } - if (fclose(input) != 0) { - fprintf(stderr, "Error closing %s: %s\n", argv[1], strerror(errno)); - return -1; - } - return 0; -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/enum_generator.h b/Build/source/texk/gregorio/gregorio-src/src/enum_generator.h deleted file mode 100644 index a2e4b03892e..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/enum_generator.h +++ /dev/null @@ -1,80 +0,0 @@ -/* - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -/* These macros are used for generating enum code. This is based on the - * technique described in http://stackoverflow.com/a/202511 - * - * Two of these macros are meant for use outside this set of macros: - * - * - ENUM declares the enum itself and a prototype for the function that - * returns the string value of the enum's numeric value. This is meant to be - * used from a header file. - * - ENUM_TO_STRING defines the function whose prototype was declared by ENUM. - * This is meant to be used from a code file. - * - * These two macros both take the following two arguments: - * - * - TYPE is the name to use for the enum. - * - DEF is the name of a macro that generates the bodies of the enum and the - * to-string function. DEF should take four arguments, in the following - * order (with suggested names): - * - A is a macro that generates an enum value with a specifiec numeric - * value. It takes two arguments, the name and the numeric value. - * - E is a macro that generates an enum value that has no specific numeric - * value. It takes one argument, the name. - * - X is a macro that generates the last enum value when it has a specific - * numeric value. It takes the same two arguments as A. - * - L is a macro that generates the last enum value when it has no specific - * numeric value. It takes the same argument as E. - * - * Note: If we were supporting C11, we could take empty macro arguments and - * would be able to get away with only two arguments to DEF. - */ - -#ifndef ENUM_GENERATOR_H -#define ENUM_GENERATOR_H - -/* for enum values */ -#define ENUM_VALUE(NAME,VALUE) NAME = VALUE, -#define ENUM_ENTRY(NAME) NAME, -#define ENUM_LAST_VALUE(NAME,VALUE) NAME = VALUE -#define ENUM_LAST_ENTRY(NAME) NAME - -/* for enum case */ -#define ENUM_VALUE_CASE(NAME,VALUE) case NAME: return #NAME; -#define ENUM_ENTRY_CASE(NAME) case NAME: return #NAME; - -/* enum declaration */ -#define ENUM(TYPE,DEF) \ - typedef enum TYPE { \ - DEF(ENUM_VALUE, ENUM_ENTRY, ENUM_LAST_VALUE, ENUM_LAST_ENTRY) \ - } TYPE; \ - const char *TYPE##_to_string(TYPE value) - -/* enum *_to_string function defintiion */ -#define ENUM_TO_STRING(TYPE,DEF) \ - const char *TYPE##_to_string(TYPE value) \ - { \ - switch(value) { \ - DEF(ENUM_VALUE_CASE, ENUM_ENTRY_CASE, ENUM_VALUE_CASE, ENUM_ENTRY_CASE) \ - default: return gregorio_unknown(value); \ - } \ - } - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-elements-determination.c b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-elements-determination.c deleted file mode 100644 index 16ca2dfa60c..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-elements-determination.c +++ /dev/null @@ -1,337 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX. - * This file provides functions for determining elements from notes. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include "bool.h" -#include "struct.h" -#include "messages.h" - -#include "gabc.h" - -#define SINGLE_NOTE_GLYPH \ - G_PUNCTUM: \ - case G_VIRGA: \ - case G_BIVIRGA: \ - case G_TRIVIRGA: \ - case G_VIRGA_REVERSA: \ - case G_STROPHA: \ - case G_STROPHA_AUCTA: \ - case G_DISTROPHA: \ - case G_DISTROPHA_AUCTA: \ - case G_TRISTROPHA: \ - case G_TRISTROPHA_AUCTA - -#define PUNCTA_INCLINATA_ASCENDENS_GLYPH \ - G_2_PUNCTA_INCLINATA_ASCENDENS: \ - case G_3_PUNCTA_INCLINATA_ASCENDENS: \ - case G_4_PUNCTA_INCLINATA_ASCENDENS: \ - case G_5_PUNCTA_INCLINATA_ASCENDENS - -#define PUNCTA_INCLINATA_DESCENDENS_GLYPH \ - G_2_PUNCTA_INCLINATA_DESCENDENS: \ - case G_3_PUNCTA_INCLINATA_DESCENDENS: \ - case G_4_PUNCTA_INCLINATA_DESCENDENS: \ - case G_5_PUNCTA_INCLINATA_DESCENDENS - -static __inline signed char glyph_note_ambitus( - const gregorio_glyph *const current_glyph, - const gregorio_glyph *const previous_glyph) -{ - return current_glyph->u.notes.first_note->u.note.pitch - - gregorio_glyph_last_note(previous_glyph)->u.note.pitch; -} - -/* - * - * A function that will be called several times: it adds an element to the - * current element current_element: the current_element in the determination, - * it will be updated to the element that we will add first_glyph: the - * first_glyph of the element that we will add current_glyph: the last glyph - * that will be in the element - * - */ - -static void close_element(gregorio_element **current_element, - gregorio_glyph **const first_glyph, - const gregorio_glyph *const current_glyph) -{ - gregorio_add_element(current_element, *first_glyph); - if (*first_glyph && (*first_glyph)->previous) { - (*first_glyph)->previous->next = NULL; - (*first_glyph)->previous = NULL; - } - *first_glyph = current_glyph->next; -} - -/* - * - * inline function to automatically do two or three things - * - */ -static __inline void cut_before(gregorio_glyph *current_glyph, - gregorio_glyph **first_glyph, - gregorio_element **current_element) -{ - if (*first_glyph != current_glyph) { - close_element(current_element, first_glyph, current_glyph); - /* yes, this is changing value close_element sets for first_glyph */ - *first_glyph = current_glyph; - } -} - -/* - * - * The big function of the file, but rather simple I think. - * - */ - -static gregorio_element *gabc_det_elements_from_glyphs( - gregorio_glyph *current_glyph) -{ - /* the last element we have successfully added to the list of elements */ - gregorio_element *current_element = NULL; - /* the first element, that we will return at the end. We have to consider - * it because the gregorio_element struct does not have previous_element - * element. */ - gregorio_element *first_element = NULL; - /* the first_glyph of the element that we are currently determining */ - gregorio_glyph *first_glyph = current_glyph; - /* the last real (GRE_GLYPH) that we have processed */ - gregorio_glyph *previous_glyph = NULL; - /* boolean necessary to determine some cases */ - bool do_not_cut = false; - bool force_cut = false; - - gregorio_not_null(current_glyph, gabc_det_elements_from_glyphs, return NULL); - /* first we go to the first glyph in the chained list of glyphs (maybe to - * suppress ?) */ - gregorio_go_to_first_glyph(¤t_glyph); - - while (current_glyph) { - if (current_glyph->type != GRE_GLYPH) { - force_cut = false; - /* we must not cut after a glyph-level space */ - if (current_glyph->type == GRE_SPACE) { - switch (current_glyph->u.misc.unpitched.info.space) { - case SP_ZERO_WIDTH: - case SP_HALF_SPACE: - case SP_INTERGLYPH_SPACE: - if (!current_glyph->next) { - close_element(¤t_element, &first_glyph, current_glyph); - } - current_glyph = current_glyph->next; - do_not_cut = true; - continue; - default: - /* any other space should be handled normally */ - break; - } - } else if (current_glyph->type == GRE_TEXVERB_GLYPH) { - /* we must not cut after a texverb */ - if (!current_glyph->next) { - close_element(¤t_element, &first_glyph, current_glyph); - } - current_glyph = current_glyph->next; - do_not_cut = true; - continue; - } - /* clef change or space or end of line */ - cut_before(current_glyph, &first_glyph, ¤t_element); - /* if statement to make neumatic cuts not appear in elements, as - * there is always one between elements, unless the next element - * is a space */ - if (current_glyph->type != GRE_SPACE - || current_glyph->u.misc.unpitched.info.space - != SP_NEUMATIC_CUT - || (current_glyph->next - && current_glyph->next->type == GRE_SPACE)) { - /* clef change or space other than neumatic cut */ - if (!first_element) { - first_element = current_element; - } - gregorio_add_misc_element(¤t_element, current_glyph->type, - &(current_glyph->u.misc), - current_glyph->texverb); - } - first_glyph = current_glyph->next; - previous_glyph = NULL; - current_glyph->texverb = 0; - gregorio_free_one_glyph(¤t_glyph); - continue; - } - - if (is_fused(current_glyph->u.notes.liquescentia)) { - do_not_cut = true; - } else if (force_cut) { - cut_before(current_glyph, &first_glyph, ¤t_element); - previous_glyph = NULL; - } - force_cut = false; - - switch (current_glyph->u.notes.glyph_type) { - case PUNCTA_INCLINATA_ASCENDENS_GLYPH: - case G_PUNCTUM_INCLINATUM: - case G_ALTERATION: - if (!do_not_cut) { - cut_before(current_glyph, &first_glyph, ¤t_element); - do_not_cut = true; - } - break; - - case G_STROPHA_AUCTA: - case G_STROPHA: - if (current_glyph->u.notes.liquescentia - & (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS)) { - force_cut = true; - } - /* fall through */ - case PUNCTA_INCLINATA_DESCENDENS_GLYPH: - /* we don't cut before, so we don't do anything else */ - if (do_not_cut) { - do_not_cut = false; - } - break; - - default: - if (previous_glyph && previous_glyph->type == GRE_GLYPH - && !is_tail_liquescentia( - previous_glyph->u.notes.liquescentia)) { - bool break_early = false; - signed char ambitus; - - switch (previous_glyph->u.notes.glyph_type) { - case SINGLE_NOTE_GLYPH: - /* we determine the last pitch */ - ambitus = glyph_note_ambitus(current_glyph, previous_glyph); - if (ambitus == 0) { - do_not_cut = false; - break_early = true; - } - break; - - case PUNCTA_INCLINATA_DESCENDENS_GLYPH: - case G_PUNCTUM_INCLINATUM: - switch (current_glyph->u.notes.glyph_type) { - case SINGLE_NOTE_GLYPH: - ambitus = glyph_note_ambitus(current_glyph, previous_glyph); - if (ambitus > -2 && ambitus < 2) { - do_not_cut = false; - break_early = true; - } - break; - - default: - /* do nothing in particular */ - break; - } - break; - - case G_PODATUS: - if (current_glyph->u.notes.glyph_type == G_VIRGA) { - ambitus = glyph_note_ambitus(current_glyph, previous_glyph); - if (ambitus >= 0) { - do_not_cut = false; - break_early = true; - } - } - break; - - default: - /* do nothing in particular */ - break; - } - - if (break_early) { - break; - } - } - - if (do_not_cut) { - do_not_cut = false; - } else { - cut_before(current_glyph, &first_glyph, ¤t_element); - } - } - - if (gregorio_glyph_last_note(current_glyph)->signs - & (_PUNCTUM_MORA | _AUCTUM_DUPLEX)) { - force_cut = true; - } - - /* we must determine the first element, that we will return */ - if (!first_element && current_element) { - first_element = current_element; - } - if (!current_glyph->next) { - close_element(¤t_element, &first_glyph, current_glyph); - } - - previous_glyph = current_glyph; - current_glyph = current_glyph->next; - } /* end of while */ - - /* - * we must determine the first element, that we will return - */ - if (!first_element && current_element) { - first_element = current_element; - } - return first_element; -} - -/* - * - * Two "hat" functions, they permit to have a good API. They amost don't do - * anything except calling the det_elements_from_glyphs. - * - * All those functions change the current_key, according to the possible new - * values (with key changes) - * - */ - -static gregorio_element *gabc_det_elements_from_notes( - gregorio_note *current_note, int *current_key, - gregorio_shape *const punctum_inclinatum_orientation, - const gregorio_score *const score) -{ - gregorio_element *final = NULL; - gregorio_glyph *tmp = gabc_det_glyphs_from_notes(current_note, current_key, - punctum_inclinatum_orientation, score); - final = gabc_det_elements_from_glyphs(tmp); - return final; -} - -gregorio_element *gabc_det_elements_from_string(char *const str, - int *const current_key, char *macros[10], - gregorio_scanner_location *const loc, - gregorio_shape *const punctum_inclinatum_orientation, - const gregorio_score *const score) -{ - gregorio_element *final; - gregorio_note *tmp; - tmp = gabc_det_notes_from_string(str, macros, loc, score); - final = gabc_det_elements_from_notes(tmp, current_key, - punctum_inclinatum_orientation, score); - return final; -} - diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-glyphs-determination.c b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-glyphs-determination.c deleted file mode 100644 index 094b79291fa..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-glyphs-determination.c +++ /dev/null @@ -1,1303 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file provides functions for determining glyphs from notes. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <assert.h> -#include "bool.h" -#include "struct.h" -#include "messages.h" - -#include "gabc.h" - -static __inline gregorio_scanner_location *copy_note_location( - const gregorio_note *const note, gregorio_scanner_location *const loc) -{ - loc->first_line = note->src_line; - loc->first_column = note->src_column; - loc->first_offset = note->src_offset; - loc->last_line = note->src_line; - loc->last_column = note->src_column; - loc->last_offset = note->src_offset; - return loc; -} - -static __inline bool is_normal_punctum(const gregorio_note *const note) -{ - return note->u.note.shape == S_PUNCTUM - && note->u.note.liquescentia != L_INITIO_DEBILIS; -} - -static __inline bool is_punctum_inclinatum(const gregorio_shape shape, - const bool determined_only) -{ - switch (shape) { - case S_PUNCTUM_INCLINATUM_ASCENDENS: - case S_PUNCTUM_INCLINATUM_STANS: - case S_PUNCTUM_INCLINATUM_DESCENDENS: - return true; - case S_PUNCTUM_INCLINATUM_UNDETERMINED: - return !determined_only; - default: - return false; - } -} - -/**************************** - * - * This function is the basis of all the determination of glyphs. The - * phylosophy of the function is to say : We have a glyph that we have - * determined, and we have the following note, can we "add" it to the - * glyph, or will it be the first note of another glyph ? - * - * current_glyph_type is the type of the current_glyph (current_glyph - * as meant in gabc_det_glyphs_from_notes). curent_pitch - * is the height of the note that we want to "add" to the glyph. - * last_pitch is the height of the last note of current_glyph. shape - * is the shape of the note we want to "add" to the glyph. - * - * The function returns a char, which meaning is explained below. - * - * end_of_glyph is a pointer to the result of the determination, here - * are the meanings : - * - * DET_NO_END: we have successfully added the note to the glyph, and - * we return the new type of the glyph. We may again add notes to the - * glyph. - * - * DET_END_OF_PREVIOUS: we have not been able to add the note to the - * glyph, so we will have to close the glyph. - * - * DET_END_OF_CURRENT: we have been able to add the note to the glyph, - * but we won't be able to add more notes to the glyph, we can close - * it. The new type is returned. - * - * DET_END_OF_BOTH: we haven't been able to add the note to the glyph, - * and we won't be able to add notes to the new glyph. This special - * case is quite rare, we use it for trivirga, tristropha, etc. - * - * When we encouter a S_QUADRATUM (or S_QUILISMA_QUADRATUM), we build - * a new glyph with the (temporary) shape G_PES_QUADRATUM_FIRST_PART - * (or G_PES_QUILISMA_QUADRATUM_FIRST_PART), and we wait for the next - * note. - * - ****************************/ - -static char add_note_to_a_glyph(gregorio_glyph_type current_glyph_type, - char current_pitch, char last_pitch, gregorio_shape shape, - gregorio_liquescentia liquescentia, - gregorio_note *current_glyph_first_note, - gabc_determination *end_of_glyph, - gregorio_shape *punctum_inclinatum_orientation) -{ - #define this_note_starts_new_glyph { \ - next_glyph_type = G_PUNCTUM; \ - *end_of_glyph = DET_END_OF_PREVIOUS; \ - } - - /* next glyph type is the type of the glyph that will be returned (the - * new type of the glyph with the note added to it, or the type of the - * new glyph with the note alone. */ - gregorio_glyph_type next_glyph_type = G_UNDETERMINED; - - *end_of_glyph = DET_NO_END; - - /* here we separate notes that would be logically in the same glyph - * but that are too far to be so */ - if (last_pitch) { - if (current_pitch - last_pitch > MAX_AMBITUS - || current_pitch - last_pitch < -MAX_AMBITUS) { - current_glyph_type = G_UNDETERMINED; - } - } - - switch (shape) { - case S_LINEA_PUNCTUM: - case S_LINEA: - next_glyph_type = G_PUNCTUM; - *end_of_glyph = DET_END_OF_BOTH; - break; - case S_FLAT: - case S_SHARP: - case S_NATURAL: - next_glyph_type = G_ALTERATION; - *end_of_glyph = DET_END_OF_BOTH; - break; - case S_PUNCTUM: - /* - * we determine here the shape of the thing if it is made of puncta - */ - if (current_pitch == last_pitch) { - this_note_starts_new_glyph; - break; - } - switch (current_glyph_type) { - case G_PUNCTUM: - if (current_pitch > last_pitch) { - next_glyph_type = G_PODATUS; - } else { - next_glyph_type = G_FLEXA; - } - break; - case G_PODATUS: - if (current_pitch > last_pitch) { - if (is_normal_punctum(current_glyph_first_note)) { - next_glyph_type = G_SCANDICUS; - *end_of_glyph = DET_END_OF_CURRENT; - } else { - this_note_starts_new_glyph; - } - } else { - next_glyph_type = G_TORCULUS; - } - break; - case G_PES_QUADRATUM_FIRST_PART: - if (current_pitch > last_pitch) { - next_glyph_type = G_PES_QUADRATUM; - *end_of_glyph = DET_END_OF_CURRENT; - } else { - next_glyph_type = G_FLEXA; - } - break; - case G_PES_QUILISMA_QUADRATUM_FIRST_PART: - if (current_pitch > last_pitch) { - next_glyph_type = G_PES_QUADRATUM; - *end_of_glyph = DET_END_OF_CURRENT; - } else { - this_note_starts_new_glyph; - } - break; - case G_PES_ASCENDENS_ORISCUS: - case G_PES_DESCENDENS_ORISCUS: - if (current_pitch > last_pitch) { - next_glyph_type = G_SALICUS; - } else { - this_note_starts_new_glyph; - } - break; - case G_SALICUS: - if (current_pitch < last_pitch) { - next_glyph_type = G_SALICUS_FLEXUS; - *end_of_glyph = DET_END_OF_CURRENT; - } else { - this_note_starts_new_glyph; - } - break; - case G_FLEXA: - if (current_pitch > last_pitch) { - if (is_normal_punctum(current_glyph_first_note)) { - next_glyph_type = G_PORRECTUS; - } else { - this_note_starts_new_glyph; - } - } else { - if (liquescentia & L_DEMINUTUS) { - *end_of_glyph = DET_END_OF_CURRENT; - next_glyph_type = G_ANCUS; - } else { - this_note_starts_new_glyph; - } - } - break; - case G_TORCULUS: - if (current_pitch > last_pitch) { - next_glyph_type = G_TORCULUS_RESUPINUS; - } else if (liquescentia == L_DEMINUTUS) { - *end_of_glyph = DET_END_OF_CURRENT; - next_glyph_type = G_TORCULUS_LIQUESCENS; - } else { - this_note_starts_new_glyph; - } - break; - case G_TORCULUS_RESUPINUS: - if (current_pitch > last_pitch) { - this_note_starts_new_glyph; - } else { - *end_of_glyph = DET_END_OF_CURRENT; - next_glyph_type = G_TORCULUS_RESUPINUS_FLEXUS; - } - break; - case G_PORRECTUS: - if (current_pitch > last_pitch) { - this_note_starts_new_glyph; - } else { - *end_of_glyph = DET_END_OF_CURRENT; - next_glyph_type = G_PORRECTUS_FLEXUS; - } - break; - default: - this_note_starts_new_glyph; - break; - } - break; - case S_ORISCUS_UNDETERMINED: - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - case S_ORISCUS_DEMINUTUS: - case S_QUILISMA: - this_note_starts_new_glyph; - break; - case S_VIRGA: - if (current_glyph_type == G_VIRGA && last_pitch == current_pitch) { - next_glyph_type = G_BIVIRGA; - } else { - if (current_glyph_type == G_BIVIRGA && last_pitch == current_pitch) { - next_glyph_type = G_TRIVIRGA; - } else { - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_VIRGA; - } - } - break; - case S_VIRGA_REVERSA: - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_VIRGA_REVERSA; - break; - case S_BIVIRGA: - if (current_glyph_type == G_VIRGA && last_pitch == current_pitch) { - *end_of_glyph = DET_END_OF_CURRENT; - next_glyph_type = G_TRIVIRGA; - } else { - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_BIVIRGA; - } - break; - case S_TRIVIRGA: - *end_of_glyph = DET_END_OF_BOTH; - next_glyph_type = G_TRIVIRGA; - break; - case S_QUADRATUM: - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_PES_QUADRATUM_FIRST_PART; - break; - case S_QUILISMA_QUADRATUM: - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_PES_QUILISMA_QUADRATUM_FIRST_PART; - break; - case S_ORISCUS_SCAPUS_UNDETERMINED: - case S_ORISCUS_SCAPUS_ASCENDENS: - if (current_glyph_type == G_PUNCTUM && last_pitch < current_pitch) { - next_glyph_type = G_PES_ASCENDENS_ORISCUS; - /* Therefore G_PES_ASCENDENS_ORISCUS might be fronting an - * undetermined oriscus scapus. This will be resolved during - * oriscus orientation determination */ - } else { - this_note_starts_new_glyph; - } - break; - case S_ORISCUS_SCAPUS_DESCENDENS: - if (current_glyph_type == G_PUNCTUM && last_pitch < current_pitch) { - next_glyph_type = G_PES_DESCENDENS_ORISCUS; - } else { - this_note_starts_new_glyph; - } - break; - case S_PUNCTUM_INCLINATUM_UNDETERMINED: - case S_PUNCTUM_INCLINATUM_ASCENDENS: - case S_PUNCTUM_INCLINATUM_STANS: - case S_PUNCTUM_INCLINATUM_DESCENDENS: - /* - * Warning : this part of the code is specific to the - * declarations of the header file - */ - if (current_glyph_type > G_PUNCTA_INCLINATA) { - /* - * meaning that the previous glyph is not a combination of puncta - * inclinata, see header file for details - */ - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_PUNCTUM_INCLINATUM; - break; - } - if (current_pitch == last_pitch) { - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_PUNCTUM_INCLINATUM; - break; - } - if (is_punctum_inclinatum(shape, true) - && *punctum_inclinatum_orientation != shape - && *punctum_inclinatum_orientation - != S_PUNCTUM_INCLINATUM_UNDETERMINED) { - /* change of orientation ends the glyph */ - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_PUNCTUM_INCLINATUM; - break; - } - switch (current_glyph_type) { - case G_PUNCTUM_INCLINATUM: - if (last_pitch < current_pitch) { - next_glyph_type = G_2_PUNCTA_INCLINATA_ASCENDENS; - } else { - next_glyph_type = G_2_PUNCTA_INCLINATA_DESCENDENS; - } - break; - case G_2_PUNCTA_INCLINATA_ASCENDENS: - if (last_pitch < current_pitch) { - next_glyph_type = G_3_PUNCTA_INCLINATA_ASCENDENS; - } else { - next_glyph_type = G_PUNCTA_INCLINATA; - } - break; - case G_3_PUNCTA_INCLINATA_ASCENDENS: - if (last_pitch < current_pitch) { - next_glyph_type = G_4_PUNCTA_INCLINATA_ASCENDENS; - } else { - next_glyph_type = G_PUNCTA_INCLINATA; - } - break; - case G_4_PUNCTA_INCLINATA_ASCENDENS: - if (last_pitch < current_pitch) { - next_glyph_type = G_5_PUNCTA_INCLINATA_ASCENDENS; - } else { - next_glyph_type = G_PUNCTA_INCLINATA; - } - break; - case G_2_PUNCTA_INCLINATA_DESCENDENS: - if (last_pitch < current_pitch) { - next_glyph_type = G_PUNCTA_INCLINATA; - } else { - next_glyph_type = G_3_PUNCTA_INCLINATA_DESCENDENS; - } - break; - case G_3_PUNCTA_INCLINATA_DESCENDENS: - if (last_pitch < current_pitch) { - next_glyph_type = G_PUNCTA_INCLINATA; - } else { - next_glyph_type = G_4_PUNCTA_INCLINATA_DESCENDENS; - } - break; - case G_4_PUNCTA_INCLINATA_DESCENDENS: - if (last_pitch < current_pitch) { - next_glyph_type = G_PUNCTA_INCLINATA; - } else { - next_glyph_type = G_5_PUNCTA_INCLINATA_DESCENDENS; - } - break; - default: - next_glyph_type = G_PUNCTA_INCLINATA; - break; - } - break; - case S_STROPHA: - if (last_pitch != current_pitch) { - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_STROPHA; - break; - } - switch (current_glyph_type) { - case G_STROPHA: - next_glyph_type = G_DISTROPHA; - break; - case G_DISTROPHA: - *end_of_glyph = DET_END_OF_CURRENT; - next_glyph_type = G_TRISTROPHA; - break; - default: - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_STROPHA; - break; - } - break; - case S_DISTROPHA: - if (last_pitch == current_pitch && current_glyph_type == G_STROPHA) { - *end_of_glyph = DET_END_OF_CURRENT; - next_glyph_type = G_TRISTROPHA; - } else { - *end_of_glyph = DET_END_OF_PREVIOUS; - next_glyph_type = G_DISTROPHA; - } - break; - case S_TRISTROPHA: - *end_of_glyph = DET_END_OF_BOTH; - next_glyph_type = G_TRISTROPHA; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(add_note_to_a_glyph, "unexpected shape: %s", - gregorio_shape_to_string(shape)); - break; - /* LCOV_EXCL_STOP */ - } - /* end of the main switch */ - - if (current_glyph_type == G_UNDETERMINED) { - /* - * means that this is the first glyph or that the previous glyph has - * already been added - */ - if (*end_of_glyph == DET_END_OF_PREVIOUS) { - *end_of_glyph = DET_NO_END; - } else { - if (*end_of_glyph == DET_END_OF_BOTH) { - *end_of_glyph = DET_END_OF_CURRENT; - } - } - } - - /* - * WARNING : Ugly section of the code, just some kind of patch for it to work - * with fonts that can't handle large intervals. - */ - /* here we separate notes that would be logically in the same glyph - * but that are too far to be so, we already said to the function that - * it was not the same glyph, there we must say that the previous - * glyph has ended. */ - if (last_pitch) { - if (current_pitch - last_pitch > MAX_AMBITUS - || current_pitch - last_pitch < -MAX_AMBITUS) { - if (*end_of_glyph == DET_END_OF_CURRENT - || *end_of_glyph == DET_END_OF_BOTH) { - /* There is no current way for the code to end up here, but - * we'll leave it in because it's a good safety precaution in - * case something new is added in the future */ - /* LCOV_EXCL_START */ - gregorio_message(_("Encountered the need to switch " - "DET_END_OF_CURRENT to DET_END_OF_BOTH because of " - "overly large ambitus"), - "add_note_to_a_glyph", VERBOSITY_WARNING, - __LINE__); - *end_of_glyph = DET_END_OF_BOTH; - } else { - /* LCOV_EXCL_STOP */ - *end_of_glyph = DET_END_OF_PREVIOUS; - } - } - } - - switch (shape) { - case S_PUNCTUM_INCLINATUM_ASCENDENS: - case S_PUNCTUM_INCLINATUM_STANS: - case S_PUNCTUM_INCLINATUM_DESCENDENS: - *punctum_inclinatum_orientation = shape; - break; - case S_PUNCTUM_INCLINATUM_UNDETERMINED: - break; - default: - *punctum_inclinatum_orientation = S_PUNCTUM_INCLINATUM_UNDETERMINED; - break; - } - - return next_glyph_type; -} - -static bool is_cavum(gregorio_note *note, gregorio_note *last_note) -{ - bool is_cavum = false; - for (; note; note = note->next) { - if (note->type == GRE_NOTE) { - is_cavum = is_cavum || note->u.note.is_cavum; - } - /* don't look past the last note */ - if (note == last_note) { - break; - } - } - return is_cavum; -} - -/**************************** - * - * First see the comments of - * gabc_det_glyphs_from_notes. This function is used when - * we have finished to determine a glyph. We have the last glyph that - * have been added: last_glyph. The glyph we want to add is given by - * glyph_type and liquescentia. - * - * The glyph we want to add goes from first_note to current_note, we - * isolate these notes from the notes that won't be in the glyph, and - * we add the glyph to the list_of_glyphs. - * -****************************/ - -static gregorio_note *close_normal_glyph(gregorio_glyph **last_glyph, - gregorio_glyph_type glyph_type, gregorio_note **first_note, - gregorio_liquescentia liquescentia, gregorio_note *current_note) -{ - gregorio_note *new_current_note = current_note; - gregorio_scanner_location loc; - - /* patch to have good glyph type in the case where a glyph ends by a note - * with shape S_QUADRATUM */ - if (glyph_type == G_PES_QUADRATUM_FIRST_PART - || glyph_type == G_PES_QUILISMA_QUADRATUM_FIRST_PART) { - glyph_type = G_PUNCTUM; - } - - gregorio_add_glyph(last_glyph, glyph_type, *first_note, liquescentia, - is_cavum(*first_note, current_note)); - - if (current_note->next) { - current_note->next->previous = NULL; - *first_note = current_note->next; - current_note->next = NULL; - } - /* here we "patch" the structure for bivirga, tristropha, etc. */ - /* the idea is not to have a S_BIVIRGA in the shape of the note (which is - * dirty) but rather a G_BIVIRGA in the glyph (which is the case now) and - * two virgas */ - - if (glyph_type == G_BIVIRGA || glyph_type == G_DISTROPHA - || glyph_type == G_TRIVIRGA || glyph_type == G_TRISTROPHA - || glyph_type == G_DISTROPHA_AUCTA - || glyph_type == G_TRISTROPHA_AUCTA) { - gregorio_go_to_first_note(¤t_note); - while (current_note) { - /* a variable necessary for the patch for G_BIVIRGA & co. */ - gregorio_note *added_notes = NULL; - gregorio_note *next_note = NULL; - if (current_note->type == GRE_NOTE) { - switch (current_note->u.note.shape) { - case S_TRIVIRGA: - gregorio_add_note(&added_notes, current_note->u.note.pitch, - S_VIRGA, _NO_SIGN, L_NO_LIQUESCENTIA, current_note, - copy_note_location(current_note, &loc)); - /* fall through */ - case S_BIVIRGA: - gregorio_add_note(&added_notes, current_note->u.note.pitch, - S_VIRGA, _NO_SIGN, L_NO_LIQUESCENTIA, current_note, - copy_note_location(current_note, &loc)); - gregorio_add_note(&added_notes, current_note->u.note.pitch, - S_VIRGA, current_note->signs, - current_note->u.note.liquescentia, current_note, - copy_note_location(current_note, &loc)); - break; - case S_TRISTROPHA: - gregorio_add_note(&added_notes, current_note->u.note.pitch, - S_STROPHA, _NO_SIGN, L_NO_LIQUESCENTIA, - current_note, - copy_note_location(current_note, &loc)); - /* fall through */ - case S_DISTROPHA: - gregorio_add_note(&added_notes, current_note->u.note.pitch, - S_STROPHA, _NO_SIGN, L_NO_LIQUESCENTIA, - current_note, - copy_note_location(current_note, &loc)); - gregorio_add_note(&added_notes, current_note->u.note.pitch, - S_STROPHA, current_note->signs, - current_note->u.note.liquescentia, current_note, - copy_note_location(current_note, &loc)); - break; - default: - break; - } - } - if (!added_notes) { - /* nothing added, but we must go on in case it's - * virga+bivirga = trivirga or stropa+bistropha = tristropha */ - if (current_note->next) { - current_note = current_note->next; - continue; - } else { - break; - } - } - next_note = current_note->next; - /* now we have what we want, we set up the links and free the old - * note */ - if (next_note) { - current_note->next->previous = added_notes; - added_notes->next = next_note; - } - if (current_note == new_current_note) { - new_current_note = added_notes; - } - gregorio_go_to_first_note(&added_notes); - if (current_note->previous) { - current_note->previous->next = added_notes; - added_notes->previous = current_note->previous; - } - /* Detaching current_note is not strictly necessary here because we - * are effectively plucking out added_notes into its own glyph; - * however, detaching the note is safer if this behavior changes in - * the future because gregorio_free_one_note nullifies surrounding - * pointers */ - current_note->next = NULL; - current_note->previous = NULL; - gregorio_free_one_note(¤t_note); - if (!next_note) { - current_note = added_notes; - break; - } - current_note = next_note; - } - gregorio_go_to_first_note(¤t_note); - /* finally we set the just added glyph first_note to current_note */ - (*last_glyph)->u.notes.first_note = current_note; - } - return new_current_note; -} - -static gregorio_note *close_fused_glyph(gregorio_glyph **last_glyph, - gregorio_glyph_type glyph_type, gregorio_note **first_note, - gregorio_liquescentia liquescentia, gregorio_note *current_note) -{ - (*first_note)->u.note.liquescentia |= (liquescentia & L_FUSED); - return close_normal_glyph(last_glyph, glyph_type, first_note, liquescentia, - current_note); -} - -static gregorio_note *next_non_texverb_note(gregorio_note *first_note, - gregorio_note *last_note) -{ - gregorio_not_null(first_note, gregorio_note, return NULL); - - if (first_note == last_note) { - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_assert_only(first_note->type != GRE_TEXVERB_GLYPH, - next_non_texverb_note, "Unexpected texverb at start of iteration"); - return first_note; - /* LCOV_EXCL_STOP */ - } - - for (first_note = first_note->next; first_note && first_note != last_note; - first_note = first_note->next) { - if (first_note->type != GRE_TEXVERB_GLYPH) { - return first_note; - } - } - - gregorio_assert_only(!first_note || first_note->type != GRE_TEXVERB_GLYPH, - next_non_texverb_note, "Unexpected texverb at end of iteration"); - - return last_note; -} - -static void add_intervening_texverbs(gregorio_glyph **last_glyph, - gregorio_note *first_note, gregorio_note *last_note) -{ - for ( ; first_note && first_note->type == GRE_TEXVERB_GLYPH; ) { - bool on_last_note = (first_note == last_note); - - gregorio_add_unpitched_element_as_glyph(last_glyph, first_note->type, - &(first_note->u.other), _NO_SIGN, first_note->texverb); - first_note->texverb = 0; - gregorio_free_one_note(&first_note); - - if (on_last_note) { - break; - } - } -} - -static gregorio_note *close_fusion_glyph(gregorio_glyph **last_glyph, - gregorio_note **first_note, gregorio_liquescentia liquescentia, - gregorio_note *real_last_note, - gregorio_shape *const punctum_inclinatum_orientation) -{ - bool first = true; - gregorio_note *last_note, *texverb_tail; - gregorio_note *next; - int prev_shift = 0, shift, shift2; - gregorio_note *result; - - gregorio_assert((*first_note)->type != GRE_TEXVERB_GLYPH, - close_fusion_glyph, "Unexpected texverb at start of fusion", - return real_last_note); - - for (last_note = real_last_note; - last_note != *first_note && last_note->type == GRE_TEXVERB_GLYPH; - last_note = last_note->previous) { - /* skip over the trailing texverbs */ - } - texverb_tail = (last_note == real_last_note)? NULL : last_note->next; - - for (;;) { - bool processed = false; - - /* fusion must work through glyph-level texverbs */ - if ((*first_note)->type == GRE_TEXVERB_GLYPH) { - gregorio_add_unpitched_element_as_glyph(last_glyph, - (*first_note)->type, &((*first_note)->u.other), _NO_SIGN, - (*first_note)->texverb); - (*first_note)->texverb = 0; - gregorio_assert(*first_note != last_note, - close_fusion_glyph, "Unexpected texverb at end of fusion", - return last_note); - gregorio_free_one_note(first_note); - } - - if (*first_note == last_note) { - close_fused_glyph(last_glyph, G_PUNCTUM, first_note, - liquescentia & ~TAIL_LIQUESCENTIA_MASK, last_note); - return last_note; - } - - gregorio_assert((*first_note)->next, close_fusion_glyph, - "Unexpected single note during fusion", return last_note); - - next = next_non_texverb_note(*first_note, last_note); - - shift = next->u.note.pitch - (*first_note)->u.note.pitch; - if (shift != 0 && next == last_note) { - /* there are exactly two notes left, so we end fusion */ - add_intervening_texverbs(last_glyph, (*first_note)->next, next); - result = close_fused_glyph(last_glyph, - shift < 0? G_FLEXA : G_PODATUS, first_note, - liquescentia, last_note); - if (texverb_tail) { - add_intervening_texverbs(last_glyph, texverb_tail, - real_last_note); - } - return result; - } - if (prev_shift >= 0 && shift < 0) { - /* check for a porrectus-like flexus */ - gregorio_note *next_next = next_non_texverb_note(next, last_note); - gregorio_assert(next_next, close_fusion_glyph, - "Unexpected end of notes during fusion", return last_note); - shift2 = next_next->u.note.pitch - next->u.note.pitch; - if (shift2 > 0) { - if (next_next == last_note) { - /* there are exactly three notes left in a porrectus shape, - * so we end fusion */ - add_intervening_texverbs(last_glyph, (*first_note)->next, - next); - add_intervening_texverbs(last_glyph, next->next, next_next); - result = close_fused_glyph(last_glyph, - G_PORRECTUS, first_note, - liquescentia, last_note); - add_intervening_texverbs(last_glyph, texverb_tail, - real_last_note); - return result; - } - /* found a porrectus-like flexus */ - add_intervening_texverbs(last_glyph, *first_note, next); - close_fused_glyph(last_glyph, - shift < 0? G_FLEXA : G_PODATUS, first_note, - liquescentia & ~TAIL_LIQUESCENTIA_MASK, next); - prev_shift = shift2; - processed = true; - } - } - - if (!processed) { - /* didn't find anything interesting, so fuse the single note */ - gabc_determination ignored; - gregorio_glyph_type next_glyph_type = - add_note_to_a_glyph(G_UNDETERMINED, - (*first_note)->u.note.pitch, 0, (*first_note)->u.note.shape, - (*first_note)->u.note.liquescentia, *first_note, &ignored, - punctum_inclinatum_orientation); - close_fused_glyph(last_glyph, next_glyph_type, first_note, - liquescentia & ~TAIL_LIQUESCENTIA_MASK, *first_note); - prev_shift = shift; - } - - if (first) { - first = false; - liquescentia = (liquescentia & TAIL_LIQUESCENTIA_MASK) | L_FUSED; - } - } -} - -static gregorio_note *close_glyph(gregorio_glyph **last_glyph, - gregorio_glyph_type glyph_type, gregorio_note **first_note, - gregorio_liquescentia liquescentia, gregorio_note *current_note, - gregorio_shape *const punctum_inclinatum_orientation) -{ - /* special case for fusion when rarer shapes don't exist */ - if (glyph_type == G_TORCULUS) { - switch ((*first_note)->u.note.shape) { - case S_ORISCUS_UNDETERMINED: - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - case S_ORISCUS_SCAPUS_UNDETERMINED: - case S_ORISCUS_SCAPUS_ASCENDENS: - case S_ORISCUS_SCAPUS_DESCENDENS: - glyph_type = G_FUSED; - break; - default: - break; - } - } - - if (glyph_type == G_FUSED) { - return close_fusion_glyph(last_glyph, first_note, liquescentia, - current_note, punctum_inclinatum_orientation); - } else { - return close_normal_glyph(last_glyph, glyph_type, first_note, - liquescentia, current_note); - } -} - -/* a small function to automatically determine the pitch of a custo : it is - * the pitch of the next note, but we must take care of the clef changes, as - * custo are (normally and for now) only present before clef changes. */ -/* TODO: there may be a side effect with the flated keys... */ - -static char gabc_determine_custo_pitch(gregorio_note *current_note, - int current_key, const gregorio_score *const score) -{ - int pitch_difference = 0; - int newkey; - for (; current_note; current_note = current_note->next) { - switch (current_note->type) { - case GRE_CLEF: - newkey = gregorio_calculate_new_key(current_note->u.clef); - pitch_difference = newkey - current_key; - break; - - case GRE_NOTE: - pitch_difference = - (int) current_note->u.note.pitch - pitch_difference; - while (pitch_difference < LOWEST_PITCH) { - pitch_difference += 7; - } - while (pitch_difference > score->highest_pitch) { - pitch_difference -= 7; - } - assert(pitch_difference >= LOWEST_PITCH - && pitch_difference <= score->highest_pitch); - return (char) pitch_difference; - - default: - break; - } - } - return DUMMY_PITCH; -} - -/**************************** - * - * Function called with a list of gregorio_notes as argument, this - * list is determined from gabc notation by the function - * gabc_det_notes_from_string. - * - * In this function we create a list of glyphs, by determining their - * type according to the sequence of notes (we look at their height, - * shape, etc.). Each glyph has a pointer gregorio_note *first_note - * that will be filled with the good note (and notes will be cut as - * explained in the comments on close_glyph function). - * - * Here is how it works : - * current_glyph is the glyph we are currently determining, that is to - * say a glyph whose type may change according to the note we will add - * to it. - * current_note is the note we are currently dealing with. - * Let's take an example, if the list of notes is ab, the first step - * (current_glyph: undetermined, current_note: a) will be to add a to - * nothing, that will give a glyph "punctum" containing only one note: - * a. In the second step (current_glyph: punctum, current_note: b) we - * transform the glyph in "pes". - * For special notes like a key change or something, we stop the - * determination of the current glyph, we delete the note and we add - * it as a glyph. - * - * When we determine the glyphs we can encounter the shapes - * S_QUADRATUM and S_QUILISMA_QUADRATUM, which means that the - * corresponding note is the first note of a pes quadratum (it can - * have the shape quilisma for very rare forms). But these shapes must - * not appear in the final form of the score, and we transform them - * respectively in punctum and quilisma (and the glyph type must be - * pes_quadratum, but it is done in add_note_to_a_glyph). - * -****************************/ - -/* this function updates current_key with the new values (with clef changes) */ - -gregorio_glyph *gabc_det_glyphs_from_notes(gregorio_note *current_note, - int *current_key, gregorio_shape *const punctum_inclinatum_orientation, - const gregorio_score *const score) -{ - /* the first note of the current glyph, to be able to close it well: - * later we will cut the link (next_notes and previous_note) between - * this note and the previous one */ - gregorio_note *current_glyph_first_note = current_note; - - /* the last glyph we have totally determined. It is automatically - * updated by close_glyph(). */ - gregorio_glyph *last_glyph = NULL; - - /* type of the glyph we are currently determining */ - gregorio_glyph_type current_glyph_type = G_UNDETERMINED; - gregorio_glyph_type next_glyph_type = G_UNDETERMINED; - char last_pitch = USELESS_VALUE; - gregorio_note *next_note = NULL; - - /* determination of end of glyphs, see comments on - * add_note_to_a_glyph */ - gabc_determination end_of_glyph = DET_NO_END; - - /* a char representing the liquescentia of the current glyph */ - gregorio_liquescentia liquescentia = L_NO_LIQUESCENTIA; - gregorio_liquescentia head_liquescentia; - bool autofuse = false, first_autofused_note = false; - - gregorio_assert(current_note, gabc_det_glyphs_from_notes, - "current_note may not be NULL", return NULL); - - gregorio_go_to_first_note(¤t_note); - - while (current_note) { - bool add = true; - - next_note = current_note->next; - if (current_note->type != GRE_NOTE) { - gregorio_type type = current_note->type; - char pitch = USELESS_VALUE; - bool force = false; - gregorio_sign sign = _NO_SIGN; - - if (current_glyph_type == G_FUSED - && (type == GRE_TEXVERB_GLYPH || type == GRE_TEXVERB_ELEMENT)) { - current_note = next_note; - continue; - } - - if (current_glyph_type != G_UNDETERMINED) { - close_glyph(&last_glyph, next_glyph_type, - ¤t_glyph_first_note, liquescentia, - current_note->previous, punctum_inclinatum_orientation); - current_glyph_type = G_UNDETERMINED; - liquescentia = L_NO_LIQUESCENTIA; - } - - switch (type) { - case GRE_CLEF: - pitch = current_note->u.note.pitch; - *current_key = gregorio_calculate_new_key(current_note->u.clef); - break; - - case GRE_CUSTOS: - pitch = gabc_determine_custo_pitch(current_note->next, - *current_key, score); - break; - - case GRE_MANUAL_CUSTOS: - pitch = current_note->u.note.pitch; - type = GRE_CUSTOS; - force = true; - break; - - case GRE_BAR: - /* we calculate the signs of the bars */ - if (current_note->signs == _V_EPISEMA) { - sign = _V_EPISEMA; - } else { - sign = current_note->special_sign; - } - if (current_note->h_episema_above) { - if (sign == _V_EPISEMA) { - sign = _V_EPISEMA_BAR_H_EPISEMA; - } else { - sign = _BAR_H_EPISEMA; - } - } - break; - - case GRE_AUTOFUSE_START: - autofuse = true; - first_autofused_note = true; - add = false; - break; - - case GRE_AUTOFUSE_END: - autofuse = false; - add = false; - break; - - default: - /* do nothing */ - break; - } - - if (add) { - if (pitch == USELESS_VALUE) { - gregorio_add_unpitched_element_as_glyph(&last_glyph, type, - &(current_note->u.other), sign, - current_note->texverb); - } else if (type == GRE_CLEF) { - gregorio_add_clef_as_glyph(&last_glyph, - current_note->u.clef, current_note->texverb); - } else { - gregorio_add_pitched_element_as_glyph(&last_glyph, type, - pitch, force, current_note->texverb); - } - } - current_glyph_first_note = current_note->next; - current_note->texverb = 0; - gregorio_free_one_note(¤t_note); - last_pitch = USELESS_VALUE; - continue; - } - - /* first we do what must be done with liquescentia */ - head_liquescentia = current_note->u.note.liquescentia - & (L_INITIO_DEBILIS | L_FUSED); - if (head_liquescentia) { - /* initio debilis or fused */ - if (current_glyph_type != G_UNDETERMINED) { - /* if it is not the first glyph */ - close_glyph(&last_glyph, current_glyph_type, - ¤t_glyph_first_note, - liquescentia, current_note->previous, - punctum_inclinatum_orientation); - current_glyph_type = G_UNDETERMINED; - } - liquescentia = head_liquescentia; - } - - if (autofuse) { - if (current_glyph_first_note == current_note) { - if (first_autofused_note) { - first_autofused_note = false; - } else { - if (!(current_note->u.note.liquescentia & L_INITIO_DEBILIS)) { - current_note->u.note.liquescentia |= L_FUSED; - liquescentia |= L_FUSED; - } - } - } else { - /* only handle the multi-note case here; the single-note - * case will be added normally by the state machine */ - if (is_tail_liquescentia(current_note->u.note.liquescentia) - && current_glyph_type > G_PUNCTA_INCLINATA) { - /* once we hit a liquescent, that's the end of a string of - * fused notes */ - liquescentia |= current_note->u.note.liquescentia; - current_note = close_glyph(&last_glyph, G_FUSED, - ¤t_glyph_first_note, liquescentia, - current_note, punctum_inclinatum_orientation); - current_glyph_type = G_UNDETERMINED; - liquescentia = L_NO_LIQUESCENTIA; - add = false; - } else { - switch (current_note->u.note.shape) { - case S_PUNCTUM: - case S_ORISCUS_UNDETERMINED: - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - case S_ORISCUS_SCAPUS_UNDETERMINED: - case S_ORISCUS_SCAPUS_ASCENDENS: - case S_ORISCUS_SCAPUS_DESCENDENS: - case S_QUILISMA: - case S_QUADRATUM: - case S_QUILISMA_QUADRATUM: - /* these are fusible */ - if (current_glyph_type <= G_PUNCTA_INCLINATA - || current_note->u.note.shape != S_PUNCTUM) { - /* if we had some puncta inclinata, then end them */ - /* if the current shape is not a punctum, start a - * new shape */ - close_glyph(&last_glyph, current_glyph_type, - ¤t_glyph_first_note, - liquescentia, current_note->previous, - punctum_inclinatum_orientation); - if (!(current_note->u.note.liquescentia - & L_INITIO_DEBILIS)) { - current_note->u.note.liquescentia |= L_FUSED; - liquescentia |= L_FUSED; - } - } - next_glyph_type = current_glyph_type = G_FUSED; - add = false; - break; - - default: - /* not fusible; will be added normally by the state - * machine */ - break; - } - } - } - } - - if (add) { - next_glyph_type = add_note_to_a_glyph(current_glyph_type, - current_note->u.note.pitch, last_pitch, - current_note->u.note.shape, - current_note->u.note.liquescentia, - current_glyph_first_note, &end_of_glyph, - punctum_inclinatum_orientation); - } - - /* patch to have good shapes in the special cases of pes quadratum and - * pes quilisma quadratum. */ - switch (current_note->u.note.shape) { - case S_QUADRATUM: - current_note->u.note.shape = S_PUNCTUM; - break; - - case S_QUILISMA_QUADRATUM: - current_note->u.note.shape = S_QUILISMA; - break; - - default: - /* do nothing */ - break; - } - - if (add) { - /* see comments on add_note_to_a_glyph for the meaning of - * end_of_glyph */ - switch (end_of_glyph) { - case DET_NO_END: - current_glyph_type = next_glyph_type; - /* - * we deal with liquescentia - */ - if (is_tail_liquescentia(current_note->u.note.liquescentia)) { - /* special cases of oriscus descendens, treated like normal - * oriscus in some cases. */ - if (score->legacy_oriscus_orientation) { - if (current_note->u.note.shape == S_ORISCUS_DESCENDENS - && current_note->next - && current_note->next->type == GRE_NOTE - && current_note->next->u.note.pitch < - current_note->u.note.pitch) { - last_pitch = current_note->u.note.pitch; - current_note->u.note.shape = S_ORISCUS_ASCENDENS; - current_note->u.note.liquescentia = - L_NO_LIQUESCENTIA; - current_note = next_note; - continue; - } - } - /* special cases of the punctum inclinatum deminutus and - * auctus */ - if (is_punctum_inclinatum(current_note->u.note.shape, false)) { - if (current_note->u.note.liquescentia == L_DEMINUTUS) { - current_note->u.note.shape = - S_PUNCTUM_INCLINATUM_DEMINUTUS; - } - if (current_note->u.note.liquescentia - == L_AUCTUS_DESCENDENS - || current_note->u.note.liquescentia - == L_AUCTUS_ASCENDENS) { - current_note->u.note.shape = - S_PUNCTUM_INCLINATUM_AUCTUS; - } - - if (current_note->next - && current_note->next->type == GRE_NOTE - && is_punctum_inclinatum( - current_note->next->u.note.shape, false) - && current_note->next->u.note.liquescentia - == L_DEMINUTUS) { - last_pitch = current_note->u.note.pitch; - current_note = next_note; - continue; - } - } - liquescentia |= current_note->u.note.liquescentia; - /* once again, only works with the good values in the header - * file */ - current_note = close_glyph(&last_glyph, current_glyph_type, - ¤t_glyph_first_note, liquescentia, - current_note, punctum_inclinatum_orientation); - current_glyph_type = G_UNDETERMINED; - liquescentia = L_NO_LIQUESCENTIA; - } - break; - case DET_END_OF_PREVIOUS: - if (current_note->previous) - { - /* we don't want to close previous glyph twice */ - close_glyph(&last_glyph, current_glyph_type, - ¤t_glyph_first_note, liquescentia, - current_note->previous, - punctum_inclinatum_orientation); - } - current_glyph_type = next_glyph_type; - liquescentia = L_NO_LIQUESCENTIA; - last_pitch = USELESS_VALUE; - /* we deal with liquescentia */ - if (is_tail_liquescentia(current_note->u.note.liquescentia)) - /* not an initio debilis, because we considered it in the first - * part... */ - { - /* special cases of the punctum inclinatum deminutus and - * auctus */ - if (is_punctum_inclinatum(current_note->u.note.shape, false)) { - if (current_note->u.note.liquescentia == L_DEMINUTUS) { - current_note->u.note.shape = - S_PUNCTUM_INCLINATUM_DEMINUTUS; - } - if (current_note->u.note.liquescentia == - L_AUCTUS_DESCENDENS - || current_note->u.note.liquescentia == - L_AUCTUS_ASCENDENS) { - current_note->u.note.shape = - S_PUNCTUM_INCLINATUM_AUCTUS; - } - if (current_note->next - && current_note->next->type == GRE_NOTE - && is_punctum_inclinatum( - current_note->next->u.note.shape, false) - && current_note->next->u.note.liquescentia == - L_DEMINUTUS) { - current_note = next_note; - continue; - } - } - current_note = close_glyph(&last_glyph, current_glyph_type, - ¤t_glyph_first_note, - current_note->u.note.liquescentia, current_note, - punctum_inclinatum_orientation); - current_glyph_type = G_UNDETERMINED; - } - break; - case DET_END_OF_CURRENT: - liquescentia += current_note->u.note.liquescentia; - /* once again, only works with the good values in the header file */ - current_note = close_glyph(&last_glyph, next_glyph_type, - ¤t_glyph_first_note, liquescentia, current_note, - punctum_inclinatum_orientation); - current_glyph_type = G_UNDETERMINED; - liquescentia = L_NO_LIQUESCENTIA; - break; - case DET_END_OF_BOTH: - if (current_note->previous) - { - /* we don't want to close previous glyph twice */ - close_glyph(&last_glyph, current_glyph_type, - ¤t_glyph_first_note, liquescentia, - current_note->previous, - punctum_inclinatum_orientation); - } - current_glyph_type = G_UNDETERMINED; - liquescentia = L_NO_LIQUESCENTIA; - current_note = close_glyph(&last_glyph, next_glyph_type, - ¤t_glyph_first_note, - current_note->u.note.liquescentia, current_note, - punctum_inclinatum_orientation); - break; - } - } - - if (!next_note && current_glyph_type != G_UNDETERMINED) { - /* we must end the determination here */ - current_note = close_glyph(&last_glyph, current_glyph_type, - ¤t_glyph_first_note, liquescentia, current_note, - punctum_inclinatum_orientation); - } - - last_pitch = current_note->u.note.pitch; - current_note = next_note; - } - /* end of while */ - - gregorio_go_to_first_glyph(&last_glyph); - return last_glyph; -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-notes-determination-l.c b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-notes-determination-l.c deleted file mode 100644 index 482c7f06dd0..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-notes-determination-l.c +++ /dev/null @@ -1,15127 +0,0 @@ -#line 1 "gabc/gabc-notes-determination-l.c" - -#line 3 "gabc/gabc-notes-determination-l.c" - -#define YY_INT_ALIGNED long int - -/* A lexical scanner generated by flex */ - -#define yy_create_buffer gabc_notes_determination__create_buffer -#define yy_delete_buffer gabc_notes_determination__delete_buffer -#define yy_scan_buffer gabc_notes_determination__scan_buffer -#define yy_scan_string gabc_notes_determination__scan_string -#define yy_scan_bytes gabc_notes_determination__scan_bytes -#define yy_init_buffer gabc_notes_determination__init_buffer -#define yy_flush_buffer gabc_notes_determination__flush_buffer -#define yy_load_buffer_state gabc_notes_determination__load_buffer_state -#define yy_switch_to_buffer gabc_notes_determination__switch_to_buffer -#define yypush_buffer_state gabc_notes_determination_push_buffer_state -#define yypop_buffer_state gabc_notes_determination_pop_buffer_state -#define yyensure_buffer_stack gabc_notes_determination_ensure_buffer_stack -#define yy_flex_debug gabc_notes_determination__flex_debug -#define yyin gabc_notes_determination_in -#define yyleng gabc_notes_determination_leng -#define yylex gabc_notes_determination_lex -#define yylineno gabc_notes_determination_lineno -#define yyout gabc_notes_determination_out -#define yyrestart gabc_notes_determination_restart -#define yytext gabc_notes_determination_text -#define yywrap gabc_notes_determination_wrap -#define yyalloc gabc_notes_determination_alloc -#define yyrealloc gabc_notes_determination_realloc -#define yyfree gabc_notes_determination_free - -#define FLEX_SCANNER -#define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 6 -#define YY_FLEX_SUBMINOR_VERSION 4 -#if YY_FLEX_SUBMINOR_VERSION > 0 -#define FLEX_BETA -#endif - -#ifdef yy_create_buffer -#define gabc_notes_determination__create_buffer_ALREADY_DEFINED -#else -#define yy_create_buffer gabc_notes_determination__create_buffer -#endif - -#ifdef yy_delete_buffer -#define gabc_notes_determination__delete_buffer_ALREADY_DEFINED -#else -#define yy_delete_buffer gabc_notes_determination__delete_buffer -#endif - -#ifdef yy_scan_buffer -#define gabc_notes_determination__scan_buffer_ALREADY_DEFINED -#else -#define yy_scan_buffer gabc_notes_determination__scan_buffer -#endif - -#ifdef yy_scan_string -#define gabc_notes_determination__scan_string_ALREADY_DEFINED -#else -#define yy_scan_string gabc_notes_determination__scan_string -#endif - -#ifdef yy_scan_bytes -#define gabc_notes_determination__scan_bytes_ALREADY_DEFINED -#else -#define yy_scan_bytes gabc_notes_determination__scan_bytes -#endif - -#ifdef yy_init_buffer -#define gabc_notes_determination__init_buffer_ALREADY_DEFINED -#else -#define yy_init_buffer gabc_notes_determination__init_buffer -#endif - -#ifdef yy_flush_buffer -#define gabc_notes_determination__flush_buffer_ALREADY_DEFINED -#else -#define yy_flush_buffer gabc_notes_determination__flush_buffer -#endif - -#ifdef yy_load_buffer_state -#define gabc_notes_determination__load_buffer_state_ALREADY_DEFINED -#else -#define yy_load_buffer_state gabc_notes_determination__load_buffer_state -#endif - -#ifdef yy_switch_to_buffer -#define gabc_notes_determination__switch_to_buffer_ALREADY_DEFINED -#else -#define yy_switch_to_buffer gabc_notes_determination__switch_to_buffer -#endif - -#ifdef yypush_buffer_state -#define gabc_notes_determination_push_buffer_state_ALREADY_DEFINED -#else -#define yypush_buffer_state gabc_notes_determination_push_buffer_state -#endif - -#ifdef yypop_buffer_state -#define gabc_notes_determination_pop_buffer_state_ALREADY_DEFINED -#else -#define yypop_buffer_state gabc_notes_determination_pop_buffer_state -#endif - -#ifdef yyensure_buffer_stack -#define gabc_notes_determination_ensure_buffer_stack_ALREADY_DEFINED -#else -#define yyensure_buffer_stack gabc_notes_determination_ensure_buffer_stack -#endif - -#ifdef yylex -#define gabc_notes_determination_lex_ALREADY_DEFINED -#else -#define yylex gabc_notes_determination_lex -#endif - -#ifdef yyrestart -#define gabc_notes_determination_restart_ALREADY_DEFINED -#else -#define yyrestart gabc_notes_determination_restart -#endif - -#ifdef yylex_init -#define gabc_notes_determination_lex_init_ALREADY_DEFINED -#else -#define yylex_init gabc_notes_determination_lex_init -#endif - -#ifdef yylex_init_extra -#define gabc_notes_determination_lex_init_extra_ALREADY_DEFINED -#else -#define yylex_init_extra gabc_notes_determination_lex_init_extra -#endif - -#ifdef yylex_destroy -#define gabc_notes_determination_lex_destroy_ALREADY_DEFINED -#else -#define yylex_destroy gabc_notes_determination_lex_destroy -#endif - -#ifdef yyget_debug -#define gabc_notes_determination_get_debug_ALREADY_DEFINED -#else -#define yyget_debug gabc_notes_determination_get_debug -#endif - -#ifdef yyset_debug -#define gabc_notes_determination_set_debug_ALREADY_DEFINED -#else -#define yyset_debug gabc_notes_determination_set_debug -#endif - -#ifdef yyget_extra -#define gabc_notes_determination_get_extra_ALREADY_DEFINED -#else -#define yyget_extra gabc_notes_determination_get_extra -#endif - -#ifdef yyset_extra -#define gabc_notes_determination_set_extra_ALREADY_DEFINED -#else -#define yyset_extra gabc_notes_determination_set_extra -#endif - -#ifdef yyget_in -#define gabc_notes_determination_get_in_ALREADY_DEFINED -#else -#define yyget_in gabc_notes_determination_get_in -#endif - -#ifdef yyset_in -#define gabc_notes_determination_set_in_ALREADY_DEFINED -#else -#define yyset_in gabc_notes_determination_set_in -#endif - -#ifdef yyget_out -#define gabc_notes_determination_get_out_ALREADY_DEFINED -#else -#define yyget_out gabc_notes_determination_get_out -#endif - -#ifdef yyset_out -#define gabc_notes_determination_set_out_ALREADY_DEFINED -#else -#define yyset_out gabc_notes_determination_set_out -#endif - -#ifdef yyget_leng -#define gabc_notes_determination_get_leng_ALREADY_DEFINED -#else -#define yyget_leng gabc_notes_determination_get_leng -#endif - -#ifdef yyget_text -#define gabc_notes_determination_get_text_ALREADY_DEFINED -#else -#define yyget_text gabc_notes_determination_get_text -#endif - -#ifdef yyget_lineno -#define gabc_notes_determination_get_lineno_ALREADY_DEFINED -#else -#define yyget_lineno gabc_notes_determination_get_lineno -#endif - -#ifdef yyset_lineno -#define gabc_notes_determination_set_lineno_ALREADY_DEFINED -#else -#define yyset_lineno gabc_notes_determination_set_lineno -#endif - -#ifdef yywrap -#define gabc_notes_determination_wrap_ALREADY_DEFINED -#else -#define yywrap gabc_notes_determination_wrap -#endif - -#ifdef yyalloc -#define gabc_notes_determination_alloc_ALREADY_DEFINED -#else -#define yyalloc gabc_notes_determination_alloc -#endif - -#ifdef yyrealloc -#define gabc_notes_determination_realloc_ALREADY_DEFINED -#else -#define yyrealloc gabc_notes_determination_realloc -#endif - -#ifdef yyfree -#define gabc_notes_determination_free_ALREADY_DEFINED -#else -#define yyfree gabc_notes_determination_free -#endif - -#ifdef yytext -#define gabc_notes_determination_text_ALREADY_DEFINED -#else -#define yytext gabc_notes_determination_text -#endif - -#ifdef yyleng -#define gabc_notes_determination_leng_ALREADY_DEFINED -#else -#define yyleng gabc_notes_determination_leng -#endif - -#ifdef yyin -#define gabc_notes_determination_in_ALREADY_DEFINED -#else -#define yyin gabc_notes_determination_in -#endif - -#ifdef yyout -#define gabc_notes_determination_out_ALREADY_DEFINED -#else -#define yyout gabc_notes_determination_out -#endif - -#ifdef yy_flex_debug -#define gabc_notes_determination__flex_debug_ALREADY_DEFINED -#else -#define yy_flex_debug gabc_notes_determination__flex_debug -#endif - -#ifdef yylineno -#define gabc_notes_determination_lineno_ALREADY_DEFINED -#else -#define yylineno gabc_notes_determination_lineno -#endif - -/* First, we deal with platform-specific or compiler-specific issues. */ - -/* begin standard C headers. */ -#include <stdio.h> -#include <string.h> -#include <errno.h> -#include <stdlib.h> - -/* end standard C headers. */ - -/* flex integer type definitions */ - -#ifndef FLEXINT_H -#define FLEXINT_H - -/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */ - -#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L - -/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, - * if you want the limit (max/min) macros for int types. - */ -#ifndef __STDC_LIMIT_MACROS -#define __STDC_LIMIT_MACROS 1 -#endif - -#include <inttypes.h> -typedef int8_t flex_int8_t; -typedef uint8_t flex_uint8_t; -typedef int16_t flex_int16_t; -typedef uint16_t flex_uint16_t; -typedef int32_t flex_int32_t; -typedef uint32_t flex_uint32_t; -#else -typedef signed char flex_int8_t; -typedef short int flex_int16_t; -typedef int flex_int32_t; -typedef unsigned char flex_uint8_t; -typedef unsigned short int flex_uint16_t; -typedef unsigned int flex_uint32_t; - -/* Limits of integral types. */ -#ifndef INT8_MIN -#define INT8_MIN (-128) -#endif -#ifndef INT16_MIN -#define INT16_MIN (-32767-1) -#endif -#ifndef INT32_MIN -#define INT32_MIN (-2147483647-1) -#endif -#ifndef INT8_MAX -#define INT8_MAX (127) -#endif -#ifndef INT16_MAX -#define INT16_MAX (32767) -#endif -#ifndef INT32_MAX -#define INT32_MAX (2147483647) -#endif -#ifndef UINT8_MAX -#define UINT8_MAX (255U) -#endif -#ifndef UINT16_MAX -#define UINT16_MAX (65535U) -#endif -#ifndef UINT32_MAX -#define UINT32_MAX (4294967295U) -#endif - -#ifndef SIZE_MAX -#define SIZE_MAX (~(size_t)0) -#endif - -#endif /* ! C99 */ - -#endif /* ! FLEXINT_H */ - -/* begin standard C++ headers. */ - -/* TODO: this is always defined, so inline it */ -#define yyconst const - -#if defined(__GNUC__) && __GNUC__ >= 3 -#define yynoreturn __attribute__((__noreturn__)) -#else -#define yynoreturn -#endif - -/* Returned upon end-of-file. */ -#define YY_NULL 0 - -/* Promotes a possibly negative, possibly signed char to an - * integer in range [0..255] for use as an array index. - */ -#define YY_SC_TO_UI(c) ((YY_CHAR) (c)) - -/* Enter a start condition. This macro really ought to take a parameter, - * but we do it the disgusting crufty way forced on us by the ()-less - * definition of BEGIN. - */ -#define BEGIN (yy_start) = 1 + 2 * -/* Translate the current start state into a value that can be later handed - * to BEGIN to return to the state. The YYSTATE alias is for lex - * compatibility. - */ -#define YY_START (((yy_start) - 1) / 2) -#define YYSTATE YY_START -/* Action number for EOF rule of a given start state. */ -#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) -/* Special action meaning "start processing a new file". */ -#define YY_NEW_FILE yyrestart( yyin ) -#define YY_END_OF_BUFFER_CHAR 0 - -/* Size of default input buffer. */ -#ifndef YY_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k. - * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case. - * Ditto for the __ia64__ case accordingly. - */ -#define YY_BUF_SIZE 32768 -#else -#define YY_BUF_SIZE 16384 -#endif /* __ia64__ */ -#endif - -/* The state buf must be large enough to hold one state per character in the main buffer. - */ -#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type)) - -#ifndef YY_TYPEDEF_YY_BUFFER_STATE -#define YY_TYPEDEF_YY_BUFFER_STATE -typedef struct yy_buffer_state *YY_BUFFER_STATE; -#endif - -#ifndef YY_TYPEDEF_YY_SIZE_T -#define YY_TYPEDEF_YY_SIZE_T -typedef size_t yy_size_t; -#endif - -extern int yyleng; - -extern FILE *yyin, *yyout; - -#define EOB_ACT_CONTINUE_SCAN 0 -#define EOB_ACT_END_OF_FILE 1 -#define EOB_ACT_LAST_MATCH 2 - - #define YY_LESS_LINENO(n) - #define YY_LINENO_REWIND_TO(ptr) - -/* Return all but the first "n" matched characters back to the input stream. */ -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg);\ - *yy_cp = (yy_hold_char); \ - YY_RESTORE_YY_MORE_OFFSET \ - (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \ - YY_DO_BEFORE_ACTION; /* set up yytext again */ \ - } \ - while ( 0 ) -#define unput(c) yyunput( c, (yytext_ptr) ) - -#ifndef YY_STRUCT_YY_BUFFER_STATE -#define YY_STRUCT_YY_BUFFER_STATE -struct yy_buffer_state - { - FILE *yy_input_file; - - char *yy_ch_buf; /* input buffer */ - char *yy_buf_pos; /* current position in input buffer */ - - /* Size of input buffer in bytes, not including room for EOB - * characters. - */ - int yy_buf_size; - - /* Number of characters read into yy_ch_buf, not including EOB - * characters. - */ - int yy_n_chars; - - /* Whether we "own" the buffer - i.e., we know we created it, - * and can realloc() it to grow it, and should free() it to - * delete it. - */ - int yy_is_our_buffer; - - /* Whether this is an "interactive" input source; if so, and - * if we're using stdio for input, then we want to use getc() - * instead of fread(), to make sure we stop fetching input after - * each newline. - */ - int yy_is_interactive; - - /* Whether we're considered to be at the beginning of a line. - * If so, '^' rules will be active on the next match, otherwise - * not. - */ - int yy_at_bol; - - int yy_bs_lineno; /**< The line count. */ - int yy_bs_column; /**< The column count. */ - - /* Whether to try to fill the input buffer when we reach the - * end of it. - */ - int yy_fill_buffer; - - int yy_buffer_status; - -#define YY_BUFFER_NEW 0 -#define YY_BUFFER_NORMAL 1 - /* When an EOF's been seen but there's still some text to process - * then we mark the buffer as YY_EOF_PENDING, to indicate that we - * shouldn't try reading from the input source any more. We might - * still have a bunch of tokens to match, though, because of - * possible backing-up. - * - * When we actually see the EOF, we change the status to "new" - * (via yyrestart()), so that the user can continue scanning by - * just pointing yyin at a new input file. - */ -#define YY_BUFFER_EOF_PENDING 2 - - }; -#endif /* !YY_STRUCT_YY_BUFFER_STATE */ - -/* Stack of input buffers. */ -static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */ -static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */ -static YY_BUFFER_STATE * yy_buffer_stack = NULL; /**< Stack as an array. */ - -/* We provide macros for accessing buffer states in case in the - * future we want to put the buffer states in a more general - * "scanner state". - * - * Returns the top of the stack, or NULL. - */ -#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \ - ? (yy_buffer_stack)[(yy_buffer_stack_top)] \ - : NULL) -/* Same as previous macro, but useful when we know that the buffer stack is not - * NULL or when we need an lvalue. For internal use only. - */ -#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)] - -/* yy_hold_char holds the character lost when yytext is formed. */ -static char yy_hold_char; -static int yy_n_chars; /* number of characters read into yy_ch_buf */ -int yyleng; - -/* Points to current character in buffer. */ -static char *yy_c_buf_p = NULL; -static int yy_init = 0; /* whether we need to initialize */ -static int yy_start = 0; /* start state number */ - -/* Flag which is used to allow yywrap()'s to do buffer switches - * instead of setting up a fresh yyin. A bit of a hack ... - */ -static int yy_did_buffer_switch_on_eof; - -void yyrestart ( FILE *input_file ); -void yy_switch_to_buffer ( YY_BUFFER_STATE new_buffer ); -YY_BUFFER_STATE yy_create_buffer ( FILE *file, int size ); -void yy_delete_buffer ( YY_BUFFER_STATE b ); -void yy_flush_buffer ( YY_BUFFER_STATE b ); -void yypush_buffer_state ( YY_BUFFER_STATE new_buffer ); -void yypop_buffer_state ( void ); - -static void yyensure_buffer_stack ( void ); -static void yy_load_buffer_state ( void ); -static void yy_init_buffer ( YY_BUFFER_STATE b, FILE *file ); -#define YY_FLUSH_BUFFER yy_flush_buffer( YY_CURRENT_BUFFER ) - -YY_BUFFER_STATE yy_scan_buffer ( char *base, yy_size_t size ); -YY_BUFFER_STATE yy_scan_string ( const char *yy_str ); -YY_BUFFER_STATE yy_scan_bytes ( const char *bytes, int len ); - -void *yyalloc ( yy_size_t ); -void *yyrealloc ( void *, yy_size_t ); -void yyfree ( void * ); - -#define yy_new_buffer yy_create_buffer -#define yy_set_interactive(is_interactive) \ - { \ - if ( ! YY_CURRENT_BUFFER ){ \ - yyensure_buffer_stack (); \ - YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer( yyin, YY_BUF_SIZE ); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ - } -#define yy_set_bol(at_bol) \ - { \ - if ( ! YY_CURRENT_BUFFER ){\ - yyensure_buffer_stack (); \ - YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer( yyin, YY_BUF_SIZE ); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ - } -#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) - -/* Begin user sect3 */ - -#define gabc_notes_determination_wrap() (/*CONSTCOND*/1) -#define YY_SKIP_YYWRAP -typedef flex_uint8_t YY_CHAR; - -FILE *yyin = NULL, *yyout = NULL; - -typedef int yy_state_type; - -extern int yylineno; -int yylineno = 1; - -extern char *yytext; -#ifdef yytext_ptr -#undef yytext_ptr -#endif -#define yytext_ptr yytext - -static const flex_int32_t yy_nxt[][256] = - { - { - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0 - }, - - { - 39, 40, 40, 40, 40, 40, 40, 40, 40, 41, - 41, 40, 40, 41, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 42, 43, 40, 44, 40, 45, 40, 46, - - 40, 40, 40, 40, 47, 48, 49, 50, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 51, 52, - 53, 54, 55, 40, 56, 57, 57, 57, 57, 57, - 57, 57, 57, 57, 57, 57, 57, 57, 57, 58, - 57, 40, 59, 40, 40, 40, 60, 61, 40, 40, - 62, 63, 40, 64, 65, 66, 67, 68, 68, 69, - 68, 68, 69, 68, 68, 68, 68, 68, 68, 68, - 68, 70, 68, 71, 72, 73, 40, 40, 74, 75, - 76, 77, 78, 79, 40, 80, 81, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40 - }, - - { - 39, 40, 40, 40, 40, 40, 40, 40, 40, 41, - 41, 40, 40, 41, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 42, 43, 40, 44, 40, 45, 40, 46, - 40, 40, 40, 40, 47, 48, 49, 50, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 51, 52, - 53, 54, 55, 40, 56, 57, 57, 57, 57, 57, - 57, 57, 57, 57, 57, 57, 57, 57, 57, 58, - - 57, 40, 59, 40, 40, 40, 60, 61, 40, 40, - 62, 63, 40, 64, 65, 66, 67, 68, 68, 69, - 68, 68, 69, 68, 68, 68, 68, 68, 68, 68, - 68, 70, 68, 71, 72, 73, 40, 40, 74, 75, - 76, 77, 78, 79, 40, 80, 81, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40, 40, 40, 40, 40, - 40, 40, 40, 40, 40, 40 - }, - - { - 39, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 83, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82 - }, - - { - 39, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 83, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82, 82, 82, 82, 82, - 82, 82, 82, 82, 82, 82 - - }, - - { - 39, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 83, 84, 84, 84, 84, 84, 84, - - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84 - }, - - { - 39, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 83, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - - 84, 84, 84, 84, 84, 84, 84, 84, 84, 84, - 84, 84, 84, 84, 84, 84 - }, - - { - 39, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 83, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85 - }, - - { - 39, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 83, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85, 85, 85, 85, 85, - 85, 85, 85, 85, 85, 85 - }, - - { - 39, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 83, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86 - - }, - - { - 39, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 83, 86, 86, 86, 86, 86, 86, - - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86, 86, 86, 86, 86, - 86, 86, 86, 86, 86, 86 - }, - - { - 39, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 83, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87 - }, - - { - 39, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 83, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87 - }, - - { - 39, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 83, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88 - }, - - { - 39, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 83, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88, 88, 88, 88, 88, - 88, 88, 88, 88, 88, 88 - - }, - - { - 39, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 90, 89, 89, 90, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89 - }, - - { - 39, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 90, 89, 89, 90, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - - 89, 89, 89, 89, 89, 89, 89, 89, 89, 89, - 89, 89, 89, 89, 89, 89 - }, - - { - 39, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 83, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91 - }, - - { - 39, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 83, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91, 91, 91, 91, 91, - 91, 91, 91, 91, 91, 91 - }, - - { - 39, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 83, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92 - - }, - - { - 39, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 83, 92, 92, 92, 92, 92, 92, - - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92, 92, 92, 92, 92, - 92, 92, 92, 92, 92, 92 - }, - - { - 39, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 83, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93 - }, - - { - 39, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 83, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93, 93, 93, 93, 93, - 93, 93, 93, 93, 93, 93 - }, - - { - 39, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 83, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94 - }, - - { - 39, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 83, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, - 94, 94, 94, 94, 94, 94 - - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 96, 97, 95, 98, 98, - 98, 98, 98, 98, 98, 98, 98, 98, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 83, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 96, 97, 95, 98, 98, - 98, 98, 98, 98, 98, 98, 98, 98, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 83, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 99, 100, 95, 101, 101, - 101, 101, 101, 101, 101, 101, 101, 101, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 83, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 99, 100, 95, 101, 101, - 101, 101, 101, 101, 101, 101, 101, 101, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 83, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 95, - - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 95, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102 - - }, - - { - 39, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 95, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 95, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102, 102, 102, 102, 102, - 102, 102, 102, 102, 102, 102 - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 103, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 104, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 103, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 104, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 95, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - - 105, 105, 105, 95, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105 - }, - - { - 39, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 95, - - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 95, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105, 105, 105, 105, 105, - 105, 105, 105, 105, 105, 105 - - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 106, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 107, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 106, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 107, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 83, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - 39, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 83, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, - 95, 95, 95, 95, 95, 95 - }, - - { - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39, -39, -39, -39, -39, - -39, -39, -39, -39, -39, -39 - - }, - - { - 39, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40, -40, -40, -40, -40, - -40, -40, -40, -40, -40, -40 - }, - - { - 39, -41, -41, -41, -41, -41, -41, -41, -41, 108, - 108, -41, -41, 108, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - - -41, -41, -41, -41, -41, -41, -41, -41, -41, -41, - -41, -41, -41, -41, -41, -41 - }, - - { - 39, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42, -42, -42, -42, -42, - -42, -42, -42, -42, -42, -42 - }, - - { - 39, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 110, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 111, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109, 109, 109, 109, 109, - 109, 109, 109, 109, 109, 109 - }, - - { - 39, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44, -44, -44, -44, -44, - -44, -44, -44, -44, -44, -44 - - }, - - { - 39, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45, -45, -45, -45, -45, - -45, -45, -45, -45, -45, -45 - }, - - { - 39, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - - -46, -46, -46, -46, -46, -46, -46, -46, 112, 112, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - - -46, -46, -46, -46, -46, -46, -46, -46, -46, -46, - -46, -46, -46, -46, -46, -46 - }, - - { - 39, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, 113, 114, - 114, 114, 114, 114, 114, 114, 114, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47, -47, -47, -47, -47, - -47, -47, -47, -47, -47, -47 - }, - - { - 39, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, 115, 115, 115, 115, 115, - 115, 115, 115, 115, 115, 115, 115, 115, 115, -48, - 115, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, 116, 116, 116, - 116, 116, 116, 116, 116, 116, 116, 116, 116, 116, - 116, -48, 116, -48, -48, -48, -48, -48, -48, -48, - - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48, -48, -48, -48, -48, - -48, -48, -48, -48, -48, -48 - }, - - { - 39, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, 117, 117, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49, -49, -49, -49, -49, - -49, -49, -49, -49, -49, -49 - - }, - - { - 39, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, 118, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, 119, 120, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, 121, -50, -50, -50, -50, -50, -50, -50, -50, - - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50, -50, -50, -50, -50, - -50, -50, -50, -50, -50, -50 - }, - - { - 39, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, 122, -51, - -51, -51, -51, 123, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - - -51, -51, -51, -51, -51, -51, -51, -51, -51, -51, - -51, -51, -51, -51, -51, -51 - }, - - { - 39, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, 114, - 114, 114, 114, 114, 114, 114, 114, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52, -52, -52, -52, -52, - -52, -52, -52, -52, -52, -52 - }, - - { - 39, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, 124, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - 125, -53, -53, -53, -53, -53, -53, -53, -53, -53, - - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53, -53, -53, -53, -53, - -53, -53, -53, -53, -53, -53 - }, - - { - 39, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54, -54, -54, -54, -54, - -54, -54, -54, -54, -54, -54 - - }, - - { - 39, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55, -55, -55, -55, -55, - -55, -55, -55, -55, -55, -55 - }, - - { - 39, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, 126, 126, 126, 126, 126, - 126, 126, 126, 126, 126, 126, 126, 126, 126, -56, - 126, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, 127, -56, -56, -56, -56, -56, 128, 128, 129, - 128, 128, 129, 128, 128, 128, 128, 128, 128, 128, - 128, -56, 128, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - - -56, -56, -56, -56, -56, -56, -56, -56, -56, -56, - -56, -56, -56, -56, -56, -56 - }, - - { - 39, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, 130, 130, - 130, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - - -57, -57, -57, -57, -57, -57, 131, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, 132, -57, -57, 133, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57, -57, -57, -57, -57, - -57, -57, -57, -57, -57, -57 - }, - - { - 39, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, 134, 135, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58, -58, -58, -58, -58, - -58, -58, -58, -58, -58, -58 - }, - - { - 39, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59, -59, -59, -59, -59, - -59, -59, -59, -59, -59, -59 - - }, - - { - 39, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60, -60, -60, -60, -60, - -60, -60, -60, -60, -60, -60 - }, - - { - 39, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - - -61, -61, -61, -61, -61, -61, -61, -61, -61, -61, - -61, -61, -61, -61, -61, -61 - }, - - { - 39, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, 136, -62, 137, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62, -62, -62, -62, -62, - -62, -62, -62, -62, -62, -62 - }, - - { - 39, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, 138, -63, -63, -63, -63, -63, 139, -63, 140, - -63, 141, -63, 142, 143, -63, -63, -63, 144, -63, - 145, 146, -63, -63, -63, -63, -63, 147, -63, -63, - - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63, -63, -63, -63, -63, - -63, -63, -63, -63, -63, -63 - }, - - { - 39, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, 148, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64, -64, -64, -64, -64, - -64, -64, -64, -64, -64, -64 - - }, - - { - 39, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, 149, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65, -65, -65, -65, -65, - -65, -65, -65, -65, -65, -65 - }, - - { - 39, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - - -66, -66, -66, -66, -66, -66, -66, -66, 150, 150, - 150, 150, 150, 150, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - - -66, -66, -66, -66, -66, -66, -66, -66, -66, -66, - -66, -66, -66, -66, -66, -66 - }, - - { - 39, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, 151, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67, -67, -67, -67, -67, - -67, -67, -67, -67, -67, -67 - }, - - { - 39, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, 152, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, 131, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, 132, -68, -68, 133, -68, - - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68, -68, -68, -68, -68, - -68, -68, -68, -68, -68, -68 - }, - - { - 39, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, 152, -69, -69, -69, -69, -69, 153, - 153, 153, 153, 153, -69, -69, -69, -69, -69, -69, - - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, 131, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, 154, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, 132, -69, -69, 133, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69, -69, -69, -69, -69, - -69, -69, -69, -69, -69, -69 - - }, - - { - 39, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, 155, 156, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70, -70, -70, -70, -70, - -70, -70, -70, -70, -70, -70 - }, - - { - 39, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - - -71, -71, -71, -71, -71, -71, -71, -71, -71, -71, - -71, -71, -71, -71, -71, -71 - }, - - { - 39, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, 157, 158, - 159, 160, 161, 162, 163, 164, 165, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72, -72, -72, -72, -72, - -72, -72, -72, -72, -72, -72 - }, - - { - 39, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73, -73, -73, -73, -73, - -73, -73, -73, -73, -73, -73 - }, - - { - 39, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74, -74, -74, -74, -74, - -74, -74, -74, -74, -74, -74 - - }, - - { - 39, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75, -75, -75, -75, -75, - -75, -75, -75, -75, -75, -75 - }, - - { - 39, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - - -76, -76, -76, -76, -76, -76, -76, -76, -76, -76, - -76, -76, -76, -76, -76, -76 - }, - - { - 39, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77, -77, -77, -77, -77, - -77, -77, -77, -77, -77, -77 - }, - - { - 39, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, 166, -78, 167, -78, -78, 168, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78, -78, -78, -78, -78, - -78, -78, -78, -78, -78, -78 - }, - - { - 39, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79, -79, -79, -79, -79, - -79, -79, -79, -79, -79, -79 - - }, - - { - 39, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80, -80, -80, -80, -80, - -80, -80, -80, -80, -80, -80 - }, - - { - 39, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - - -81, -81, -81, -81, -81, -81, -81, -81, -81, -81, - -81, -81, -81, -81, -81, -81 - }, - - { - 39, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, -82, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169 - }, - - { - 39, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83, -83, -83, -83, -83, - -83, -83, -83, -83, -83, -83 - }, - - { - 39, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, -84, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170 - - }, - - { - 39, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, -85, 171, 171, 171, 171, 171, 171, - - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171 - }, - - { - 39, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, -86, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172 - }, - - { - 39, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, -87, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173 - }, - - { - 39, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, -88, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174 - }, - - { - 39, 175, 175, 175, 175, 175, 175, 175, 175, 175, - -89, 175, 175, -89, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175 - - }, - - { - 39, -90, -90, -90, -90, -90, -90, -90, -90, -90, - 176, -90, -90, 176, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90, -90, -90, -90, -90, - -90, -90, -90, -90, -90, -90 - }, - - { - 39, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, -91, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177 - }, - - { - 39, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, -92, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178 - }, - - { - 39, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, -93, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179 - }, - - { - 39, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, -94, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180 - - }, - - { - 39, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95, -95, -95, -95, -95, - -95, -95, -95, -95, -95, -95 - }, - - { - 39, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - - -96, -96, -96, -96, -96, -96, 181, -96, 182, 182, - 182, 182, 182, 182, 182, 182, 182, 182, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - - -96, -96, -96, -96, -96, -96, -96, -96, -96, -96, - -96, -96, -96, -96, -96, -96 - }, - - { - 39, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, 183, 183, - 183, 183, 183, 183, 183, 183, 183, 183, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97, -97, -97, -97, -97, - -97, -97, -97, -97, -97, -97 - }, - - { - 39, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, 184, -98, 182, 182, - 182, 182, 182, 182, 182, 182, 182, 182, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, 185, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98, -98, -98, -98, -98, - -98, -98, -98, -98, -98, -98 - }, - - { - 39, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, 186, -99, 187, 187, - 187, 187, 187, 187, 187, 187, 187, 187, -99, -99, - - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99, -99, -99, -99, -99, - -99, -99, -99, -99, -99, -99 - - }, - - { - 39, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, 188, 188, - 188, 188, 188, 188, 188, 188, 188, 188, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100, -100, -100, -100, -100, - -100, -100, -100, -100, -100, -100 - }, - - { - 39, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - - -101, -101, -101, -101, -101, -101, 189, -101, 187, 187, - 187, 187, 187, 187, 187, 187, 187, 187, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, 190, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - - -101, -101, -101, -101, -101, -101, -101, -101, -101, -101, - -101, -101, -101, -101, -101, -101 - }, - - { - 39, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, -102, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, -102, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191 - }, - - { - 39, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, -103, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192 - }, - - { - 39, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, -104, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193 - - }, - - { - 39, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, -105, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, -105, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194 - }, - - { - 39, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, -106, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195 - }, - - { - 39, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, -107, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196 - }, - - { - 39, -108, -108, -108, -108, -108, -108, -108, -108, 108, - 108, -108, -108, 108, -108, -108, -108, -108, -108, -108, - - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108, -108, -108, -108, -108, - -108, -108, -108, -108, -108, -108 - }, - - { - 39, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109, -109, -109, -109, -109, - -109, -109, -109, -109, -109, -109 - - }, - - { - 39, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110, -110, -110, -110, -110, - -110, -110, -110, -110, -110, -110 - }, - - { - 39, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, 118, -111, -111, -111, -111, -111, -111, - - -111, -111, -111, -111, -111, -111, -111, 197, 120, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, 198, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - - -111, -111, -111, -111, -111, -111, -111, -111, -111, -111, - -111, -111, -111, -111, -111, -111 - }, - - { - 39, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112, -112, -112, -112, -112, - -112, -112, -112, -112, -112, -112 - }, - - { - 39, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113, -113, -113, -113, -113, - -113, -113, -113, -113, -113, -113 - }, - - { - 39, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114, -114, -114, -114, -114, - -114, -114, -114, -114, -114, -114 - - }, - - { - 39, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, 199, 199, - 199, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115, -115, -115, -115, -115, - -115, -115, -115, -115, -115, -115 - }, - - { - 39, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - - -116, -116, -116, -116, -116, -116, -116, -116, -116, -116, - -116, -116, -116, -116, -116, -116 - }, - - { - 39, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117, -117, -117, -117, -117, - -117, -117, -117, -117, -117, -117 - }, - - { - 39, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118, -118, -118, -118, -118, - -118, -118, -118, -118, -118, -118 - }, - - { - 39, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, 200, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119, -119, -119, -119, -119, - -119, -119, -119, -119, -119, -119 - - }, - - { - 39, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120, -120, -120, -120, -120, - -120, -120, -120, -120, -120, -120 - }, - - { - 39, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - - -121, -121, -121, -121, -121, -121, -121, -121, -121, -121, - -121, -121, -121, -121, -121, -121 - }, - - { - 39, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122, -122, -122, -122, -122, - -122, -122, -122, -122, -122, -122 - }, - - { - 39, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123, -123, -123, -123, -123, - -123, -123, -123, -123, -123, -123 - }, - - { - 39, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - 201, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124, -124, -124, -124, -124, - -124, -124, -124, -124, -124, -124 - - }, - - { - 39, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - - -125, -125, -125, -125, -125, -125, -125, -125, 202, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125, -125, -125, -125, -125, - -125, -125, -125, -125, -125, -125 - }, - - { - 39, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - - -126, -126, -126, -126, -126, -126, -126, -126, 203, 203, - 203, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - - -126, -126, -126, -126, -126, -126, -126, -126, -126, -126, - -126, -126, -126, -126, -126, -126 - }, - - { - 39, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127, -127, -127, -127, -127, - -127, -127, -127, -127, -127, -127 - }, - - { - 39, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128, -128, -128, -128, -128, - -128, -128, -128, -128, -128, -128 - }, - - { - 39, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, 204, - 204, 204, 204, 204, -129, -129, -129, -129, -129, -129, - - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, 205, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129, -129, -129, -129, -129, - -129, -129, -129, -129, -129, -129 - - }, - - { - 39, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130, -130, -130, -130, -130, - -130, -130, -130, -130, -130, -130 - }, - - { - 39, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, 206, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - - -131, -131, -131, -131, -131, -131, -131, -131, -131, -131, - -131, -131, -131, -131, -131, -131 - }, - - { - 39, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, 207, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132, -132, -132, -132, -132, - -132, -132, -132, -132, -132, -132 - }, - - { - 39, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, 208, -133, - - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133, -133, -133, -133, -133, - -133, -133, -133, -133, -133, -133 - }, - - { - 39, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134, -134, -134, -134, -134, - -134, -134, -134, -134, -134, -134 - - }, - - { - 39, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135, -135, -135, -135, -135, - -135, -135, -135, -135, -135, -135 - }, - - { - 39, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - - -136, -136, -136, -136, -136, -136, -136, -136, -136, -136, - -136, -136, -136, -136, -136, -136 - }, - - { - 39, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137, -137, -137, -137, -137, - -137, -137, -137, -137, -137, -137 - }, - - { - 39, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138, -138, -138, -138, -138, - -138, -138, -138, -138, -138, -138 - }, - - { - 39, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, 209, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139, -139, -139, -139, -139, - -139, -139, -139, -139, -139, -139 - - }, - - { - 39, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - 210, -140, -140, -140, -140, 211, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140, -140, -140, -140, -140, - -140, -140, -140, -140, -140, -140 - }, - - { - 39, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, 212, - -141, -141, -141, -141, -141, -141, -141, -141, 213, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - - -141, -141, -141, -141, -141, -141, -141, -141, -141, -141, - -141, -141, -141, -141, -141, -141 - }, - - { - 39, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, 214, - -142, -142, -142, -142, -142, -142, -142, -142, 215, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142, -142, -142, -142, -142, - -142, -142, -142, -142, -142, -142 - }, - - { - 39, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, 216, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143, -143, -143, -143, -143, - -143, -143, -143, -143, -143, -143 - }, - - { - 39, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, 217, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144, -144, -144, -144, -144, - -144, -144, -144, -144, -144, -144 - - }, - - { - 39, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - - -145, -145, -145, -145, -145, -145, -145, -145, -145, 218, - -145, 219, -145, -145, -145, -145, -145, -145, 220, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145, -145, -145, -145, -145, - -145, -145, -145, -145, -145, -145 - }, - - { - 39, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, 221, 222, - -146, -146, -146, -146, 223, -146, -146, -146, 224, -146, - -146, -146, -146, -146, -146, 225, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - - -146, -146, -146, -146, -146, -146, -146, -146, -146, -146, - -146, -146, -146, -146, -146, -146 - }, - - { - 39, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, 226, -147, - -147, -147, -147, -147, 223, -147, -147, -147, 227, -147, - -147, -147, -147, -147, -147, 225, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147, -147, -147, -147, -147, - -147, -147, -147, -147, -147, -147 - }, - - { - 39, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148, -148, -148, -148, -148, - -148, -148, -148, -148, -148, -148 - }, - - { - 39, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149, -149, -149, -149, -149, - -149, -149, -149, -149, -149, -149 - - }, - - { - 39, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, 150, 150, - 150, 150, 150, 150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150, -150, -150, -150, -150, - -150, -150, -150, -150, -150, -150 - }, - - { - 39, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - - -151, -151, -151, -151, -151, -151, -151, -151, -151, -151, - -151, -151, -151, -151, -151, -151 - }, - - { - 39, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152, -152, -152, -152, -152, - -152, -152, -152, -152, -152, -152 - }, - - { - 39, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153, -153, -153, -153, -153, - -153, -153, -153, -153, -153, -153 - }, - - { - 39, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, 228, - 228, 228, 228, 228, -154, -154, -154, -154, -154, -154, - - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154, -154, -154, -154, -154, - -154, -154, -154, -154, -154, -154 - - }, - - { - 39, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155, -155, -155, -155, -155, - -155, -155, -155, -155, -155, -155 - }, - - { - 39, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - - -156, -156, -156, -156, -156, -156, -156, -156, -156, -156, - -156, -156, -156, -156, -156, -156 - }, - - { - 39, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157, -157, -157, -157, -157, - -157, -157, -157, -157, -157, -157 - }, - - { - 39, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158, -158, -158, -158, -158, - -158, -158, -158, -158, -158, -158 - }, - - { - 39, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159, -159, -159, -159, -159, - -159, -159, -159, -159, -159, -159 - - }, - - { - 39, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160, -160, -160, -160, -160, - -160, -160, -160, -160, -160, -160 - }, - - { - 39, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - - -161, -161, -161, -161, -161, -161, -161, -161, -161, -161, - -161, -161, -161, -161, -161, -161 - }, - - { - 39, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162, -162, -162, -162, -162, - -162, -162, -162, -162, -162, -162 - }, - - { - 39, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163, -163, -163, -163, -163, - -163, -163, -163, -163, -163, -163 - }, - - { - 39, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164, -164, -164, -164, -164, - -164, -164, -164, -164, -164, -164 - - }, - - { - 39, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165, -165, -165, -165, -165, - -165, -165, -165, -165, -165, -165 - }, - - { - 39, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - - -166, -166, -166, -166, -166, -166, -166, -166, -166, -166, - -166, -166, -166, -166, -166, -166 - }, - - { - 39, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167, -167, -167, -167, -167, - -167, -167, -167, -167, -167, -167 - }, - - { - 39, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168, -168, -168, -168, -168, - -168, -168, -168, -168, -168, -168 - }, - - { - 39, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, -169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169, 169, 169, 169, 169, - 169, 169, 169, 169, 169, 169 - - }, - - { - 39, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, -170, 170, 170, 170, 170, 170, 170, - - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170, 170, 170, 170, 170, - 170, 170, 170, 170, 170, 170 - }, - - { - 39, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, -171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - - 171, 171, 171, 171, 171, 171, 171, 171, 171, 171, - 171, 171, 171, 171, 171, 171 - }, - - { - 39, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, -172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172, 172, 172, 172, 172, - 172, 172, 172, 172, 172, 172 - }, - - { - 39, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, -173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173, 173, 173, 173, 173, - 173, 173, 173, 173, 173, 173 - }, - - { - 39, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, -174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174, 174, 174, 174, 174, - 174, 174, 174, 174, 174, 174 - - }, - - { - 39, 175, 175, 175, 175, 175, 175, 175, 175, 175, - -175, 175, 175, -175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175, 175, 175, 175, 175, - 175, 175, 175, 175, 175, 175 - }, - - { - 39, -176, -176, -176, -176, -176, -176, -176, -176, -176, - 176, -176, -176, 176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - - -176, -176, -176, -176, -176, -176, -176, -176, -176, -176, - -176, -176, -176, -176, -176, -176 - }, - - { - 39, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, -177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177, 177, 177, 177, 177, - 177, 177, 177, 177, 177, 177 - }, - - { - 39, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, -178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178, 178, 178, 178, 178, - 178, 178, 178, 178, 178, 178 - }, - - { - 39, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, -179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179, 179, 179, 179, 179, - 179, 179, 179, 179, 179, 179 - - }, - - { - 39, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, -180, 180, 180, 180, 180, 180, 180, - - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180, 180, 180, 180, 180, - 180, 180, 180, 180, 180, 180 - }, - - { - 39, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - - -181, -181, -181, -181, -181, -181, -181, -181, 183, 183, - 183, 183, 183, 183, 183, 183, 183, 183, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - - -181, -181, -181, -181, -181, -181, -181, -181, -181, -181, - -181, -181, -181, -181, -181, -181 - }, - - { - 39, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, 184, -182, 182, 182, - 182, 182, 182, 182, 182, 182, 182, 182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, 185, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182, -182, -182, -182, -182, - -182, -182, -182, -182, -182, -182 - }, - - { - 39, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, 183, 183, - 183, 183, 183, 183, 183, 183, 183, 183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, 185, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183, -183, -183, -183, -183, - -183, -183, -183, -183, -183, -183 - }, - - { - 39, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, 229, 229, - 229, 229, 229, 229, 229, 229, 229, 229, -184, -184, - - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, 185, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184, -184, -184, -184, -184, - -184, -184, -184, -184, -184, -184 - - }, - - { - 39, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185, -185, -185, -185, -185, - -185, -185, -185, -185, -185, -185 - }, - - { - 39, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - - -186, -186, -186, -186, -186, -186, -186, -186, 188, 188, - 188, 188, 188, 188, 188, 188, 188, 188, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - - -186, -186, -186, -186, -186, -186, -186, -186, -186, -186, - -186, -186, -186, -186, -186, -186 - }, - - { - 39, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, 189, -187, 187, 187, - 187, 187, 187, 187, 187, 187, 187, 187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, 190, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187, -187, -187, -187, -187, - -187, -187, -187, -187, -187, -187 - }, - - { - 39, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, 188, 188, - 188, 188, 188, 188, 188, 188, 188, 188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, 190, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188, -188, -188, -188, -188, - -188, -188, -188, -188, -188, -188 - }, - - { - 39, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, 230, 230, - 230, 230, 230, 230, 230, 230, 230, 230, -189, -189, - - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, 190, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189, -189, -189, -189, -189, - -189, -189, -189, -189, -189, -189 - - }, - - { - 39, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190, -190, -190, -190, -190, - -190, -190, -190, -190, -190, -190 - }, - - { - 39, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, -191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, -191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - - 191, 191, 191, 191, 191, 191, 191, 191, 191, 191, - 191, 191, 191, 191, 191, 191 - }, - - { - 39, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, -192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, - 192, 192, 192, 192, 192, 192 - }, - - { - 39, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, -193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193, 193, 193, 193, 193, - 193, 193, 193, 193, 193, 193 - }, - - { - 39, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, -194, - - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, -194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194, 194, 194, 194, 194, - 194, 194, 194, 194, 194, 194 - - }, - - { - 39, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, -195, 195, 195, 195, 195, 195, 195, - - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195, 195, 195, 195, 195, - 195, 195, 195, 195, 195, 195 - }, - - { - 39, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, -196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - - 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, - 196, 196, 196, 196, 196, 196 - }, - - { - 39, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, 231, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197, -197, -197, -197, -197, - -197, -197, -197, -197, -197, -197 - }, - - { - 39, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198, -198, -198, -198, -198, - -198, -198, -198, -198, -198, -198 - }, - - { - 39, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199, -199, -199, -199, -199, - -199, -199, -199, -199, -199, -199 - - }, - - { - 39, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200, -200, -200, -200, -200, - -200, -200, -200, -200, -200, -200 - }, - - { - 39, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, 232, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - - -201, -201, -201, -201, -201, -201, -201, -201, -201, -201, - -201, -201, -201, -201, -201, -201 - }, - - { - 39, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, 233, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202, -202, -202, -202, -202, - -202, -202, -202, -202, -202, -202 - }, - - { - 39, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203, -203, -203, -203, -203, - -203, -203, -203, -203, -203, -203 - }, - - { - 39, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204, -204, -204, -204, -204, - -204, -204, -204, -204, -204, -204 - - }, - - { - 39, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, 234, - 234, 234, 234, 234, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205, -205, -205, -205, -205, - -205, -205, -205, -205, -205, -205 - }, - - { - 39, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, 235, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - - -206, -206, -206, -206, -206, -206, -206, -206, -206, -206, - -206, -206, -206, -206, -206, -206 - }, - - { - 39, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - 236, -207, 236, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, 237, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207, -207, -207, -207, -207, - -207, -207, -207, -207, -207, -207 - }, - - { - 39, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, 238, -208, - - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208, -208, -208, -208, -208, - -208, -208, -208, -208, -208, -208 - }, - - { - 39, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, 239, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209, -209, -209, -209, -209, - -209, -209, -209, -209, -209, -209 - - }, - - { - 39, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, 240, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210, -210, -210, -210, -210, - -210, -210, -210, -210, -210, -210 - }, - - { - 39, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, 241, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - - -211, -211, -211, -211, -211, -211, -211, -211, -211, -211, - -211, -211, -211, -211, -211, -211 - }, - - { - 39, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, 242, - 242, 242, 242, 242, 242, 242, 242, 242, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212, -212, -212, -212, -212, - -212, -212, -212, -212, -212, -212 - }, - - { - 39, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, 243, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213, -213, -213, -213, -213, - -213, -213, -213, -213, -213, -213 - }, - - { - 39, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, 244, - 244, 244, 244, 244, 244, 244, 244, 244, -214, -214, - - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214, -214, -214, -214, -214, - -214, -214, -214, -214, -214, -214 - - }, - - { - 39, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, 245, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215, -215, -215, -215, -215, - -215, -215, -215, -215, -215, -215 - }, - - { - 39, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, 246, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - - -216, -216, -216, -216, -216, -216, -216, -216, -216, -216, - -216, -216, -216, -216, -216, -216 - }, - - { - 39, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, 247, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217, -217, -217, -217, -217, - -217, -217, -217, -217, -217, -217 - }, - - { - 39, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, 248, - 248, 248, 248, 248, 248, 248, 248, 248, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218, -218, -218, -218, -218, - -218, -218, -218, -218, -218, -218 - }, - - { - 39, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, 249, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219, -219, -219, -219, -219, - -219, -219, -219, -219, -219, -219 - - }, - - { - 39, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, 250, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220, -220, -220, -220, -220, - -220, -220, -220, -220, -220, -220 - }, - - { - 39, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, 251, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - - -221, -221, -221, -221, -221, -221, -221, -221, -221, -221, - -221, -221, -221, -221, -221, -221 - }, - - { - 39, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, 252, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222, -222, -222, -222, -222, - -222, -222, -222, -222, -222, -222 - }, - - { - 39, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, 253, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - - -223, -223, -223, 254, -223, 255, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223, -223, -223, -223, -223, - -223, -223, -223, -223, -223, -223 - }, - - { - 39, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, 256, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224, -224, -224, -224, -224, - -224, -224, -224, -224, -224, -224 - - }, - - { - 39, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - - -225, -225, -225, -225, -225, -225, -225, -225, 257, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225, -225, -225, -225, -225, - -225, -225, -225, -225, -225, -225 - }, - - { - 39, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, 258, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - - -226, -226, -226, -226, -226, -226, -226, -226, -226, -226, - -226, -226, -226, -226, -226, -226 - }, - - { - 39, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, 259, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227, -227, -227, -227, -227, - -227, -227, -227, -227, -227, -227 - }, - - { - 39, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228, -228, -228, -228, -228, - -228, -228, -228, -228, -228, -228 - }, - - { - 39, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, 229, 229, - 229, 229, 229, 229, 229, 229, 229, 229, -229, -229, - - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, 185, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229, -229, -229, -229, -229, - -229, -229, -229, -229, -229, -229 - - }, - - { - 39, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, 230, 230, - 230, 230, 230, 230, 230, 230, 230, 230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, 190, -230, -230, -230, -230, -230, -230, - - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230, -230, -230, -230, -230, - -230, -230, -230, -230, -230, -230 - }, - - { - 39, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - - -231, -231, -231, -231, -231, -231, -231, -231, -231, -231, - -231, -231, -231, -231, -231, -231 - }, - - { - 39, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, 260, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232, -232, -232, -232, -232, - -232, -232, -232, -232, -232, -232 - }, - - { - 39, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, 261, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233, -233, -233, -233, -233, - -233, -233, -233, -233, -233, -233 - }, - - { - 39, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234, -234, -234, -234, -234, - -234, -234, -234, -234, -234, -234 - - }, - - { - 39, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235, -235, -235, -235, -235, - -235, -235, -235, -235, -235, -235 - }, - - { - 39, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - - -236, -236, -236, -236, -236, -236, -236, -236, -236, -236, - -236, -236, -236, -236, -236, -236 - }, - - { - 39, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - 262, -237, 262, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237, -237, -237, -237, -237, - -237, -237, -237, -237, -237, -237 - }, - - { - 39, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238, -238, -238, -238, -238, - -238, -238, -238, -238, -238, -238 - }, - - { - 39, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, 263, -239, - - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, 264, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239, -239, -239, -239, -239, - -239, -239, -239, -239, -239, -239 - - }, - - { - 39, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240, -240, -240, -240, -240, - -240, -240, -240, -240, -240, -240 - }, - - { - 39, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - - -241, -241, -241, -241, -241, -241, -241, -241, -241, -241, - -241, -241, -241, -241, -241, -241 - }, - - { - 39, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, 265, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242, -242, -242, -242, -242, - -242, -242, -242, -242, -242, -242 - }, - - { - 39, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243, -243, -243, -243, -243, - -243, -243, -243, -243, -243, -243 - }, - - { - 39, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, 266, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244, -244, -244, -244, -244, - -244, -244, -244, -244, -244, -244 - - }, - - { - 39, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245, -245, -245, -245, -245, - -245, -245, -245, -245, -245, -245 - }, - - { - 39, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - - -246, -246, -246, -246, -246, -246, -246, -246, 267, 268, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - - -246, -246, -246, -246, -246, -246, -246, -246, -246, -246, - -246, -246, -246, -246, -246, -246 - }, - - { - 39, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, 269, 270, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247, -247, -247, -247, -247, - -247, -247, -247, -247, -247, -247 - }, - - { - 39, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, 271, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248, -248, -248, -248, -248, - -248, -248, -248, -248, -248, -248 - }, - - { - 39, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, 272, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249, -249, -249, -249, -249, - -249, -249, -249, -249, -249, -249 - - }, - - { - 39, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250, -250, -250, -250, -250, - -250, -250, -250, -250, -250, -250 - }, - - { - 39, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - - -251, -251, -251, -251, -251, -251, -251, -251, 273, 273, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - - -251, -251, -251, -251, -251, -251, -251, -251, -251, -251, - -251, -251, -251, -251, -251, -251 - }, - - { - 39, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, 274, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, 275, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252, -252, -252, -252, -252, - -252, -252, -252, -252, -252, -252 - }, - - { - 39, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, 276, -253, 276, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, 277, -253, -253, -253, 277, 277, - -253, 278, -253, -253, -253, -253, -253, 278, -253, -253, - - -253, -253, -253, 254, -253, 255, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253, -253, -253, -253, -253, - -253, -253, -253, -253, -253, -253 - }, - - { - 39, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, 279, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254, -254, -254, -254, -254, - -254, -254, -254, -254, -254, -254 - - }, - - { - 39, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, 280, -255, -255, -255, -255, -255, -255, - - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255, -255, -255, -255, -255, - -255, -255, -255, -255, -255, -255 - }, - - { - 39, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, 281, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - - -256, -256, -256, -256, -256, -256, -256, -256, -256, -256, - -256, -256, -256, -256, -256, -256 - }, - - { - 39, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, 282, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257, -257, -257, -257, -257, - -257, -257, -257, -257, -257, -257 - }, - - { - 39, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, 283, 283, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258, -258, -258, -258, -258, - -258, -258, -258, -258, -258, -258 - }, - - { - 39, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, 284, -259, - - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259, -259, -259, -259, -259, - -259, -259, -259, -259, -259, -259 - - }, - - { - 39, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, 285, -260, -260, - - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260, -260, -260, -260, -260, - -260, -260, -260, -260, -260, -260 - }, - - { - 39, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, 286, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - - -261, -261, -261, -261, -261, -261, -261, -261, -261, -261, - -261, -261, -261, -261, -261, -261 - }, - - { - 39, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262, -262, -262, -262, -262, - -262, -262, -262, -262, -262, -262 - }, - - { - 39, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263, -263, -263, -263, -263, - -263, -263, -263, -263, -263, -263 - }, - - { - 39, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, 287, - 287, 287, 287, 287, 287, 287, 287, 287, -264, -264, - - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264, -264, -264, -264, -264, - -264, -264, -264, -264, -264, -264 - - }, - - { - 39, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265, -265, -265, -265, -265, - -265, -265, -265, -265, -265, -265 - }, - - { - 39, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - - -266, -266, -266, -266, -266, -266, -266, -266, -266, -266, - -266, -266, -266, -266, -266, -266 - }, - - { - 39, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, 288, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267, -267, -267, -267, -267, - -267, -267, -267, -267, -267, -267 - }, - - { - 39, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, 289, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268, -268, -268, -268, -268, - -268, -268, -268, -268, -268, -268 - }, - - { - 39, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, 290, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269, -269, -269, -269, -269, - -269, -269, -269, -269, -269, -269 - - }, - - { - 39, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, 291, -270, -270, -270, -270, -270, -270, - - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270, -270, -270, -270, -270, - -270, -270, -270, -270, -270, -270 - }, - - { - 39, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - - -271, -271, -271, -271, -271, -271, -271, -271, -271, -271, - -271, -271, -271, -271, -271, -271 - }, - - { - 39, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, 292, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272, -272, -272, -272, -272, - -272, -272, -272, -272, -272, -272 - }, - - { - 39, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, 293, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - - -273, -273, -273, 294, -273, 295, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273, -273, -273, -273, -273, - -273, -273, -273, -273, -273, -273 - }, - - { - 39, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, 296, 296, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274, -274, -274, -274, -274, - -274, -274, -274, -274, -274, -274 - - }, - - { - 39, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, 297, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275, -275, -275, -275, -275, - -275, -275, -275, -275, -275, -275 - }, - - { - 39, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, -276, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, -276, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298 - }, - - { - 39, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, 276, -277, 276, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, 279, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, 254, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277, -277, -277, -277, -277, - -277, -277, -277, -277, -277, -277 - }, - - { - 39, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, 277, -278, -278, -278, 277, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278, -278, -278, -278, -278, - -278, -278, -278, -278, -278, -278 - }, - - { - 39, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279, -279, -279, -279, -279, - -279, -279, -279, -279, -279, -279 - - }, - - { - 39, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280, -280, -280, -280, -280, - -280, -280, -280, -280, -280, -280 - }, - - { - 39, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - - -281, -281, -281, -281, -281, -281, -281, -281, 299, 300, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, 301, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - - -281, -281, -281, -281, -281, -281, -281, -281, -281, -281, - -281, -281, -281, -281, -281, -281 - }, - - { - 39, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, 302, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282, -282, -282, -282, -282, - -282, -282, -282, -282, -282, -282 - }, - - { - 39, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, 303, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - - -283, -283, -283, 304, -283, 305, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283, -283, -283, -283, -283, - -283, -283, -283, -283, -283, -283 - }, - - { - 39, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, 306, 307, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, 308, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284, -284, -284, -284, -284, - -284, -284, -284, -284, -284, -284 - - }, - - { - 39, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, 309, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285, -285, -285, -285, -285, - -285, -285, -285, -285, -285, -285 - }, - - { - 39, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - - -286, -286, -286, -286, -286, -286, -286, -286, -286, -286, - -286, -286, -286, -286, -286, -286 - }, - - { - 39, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, 310, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287, -287, -287, -287, -287, - -287, -287, -287, -287, -287, -287 - }, - - { - 39, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288, -288, -288, -288, -288, - -288, -288, -288, -288, -288, -288 - }, - - { - 39, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289, -289, -289, -289, -289, - -289, -289, -289, -289, -289, -289 - - }, - - { - 39, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290, -290, -290, -290, -290, - -290, -290, -290, -290, -290, -290 - }, - - { - 39, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - - -291, -291, -291, -291, -291, -291, -291, -291, -291, -291, - -291, -291, -291, -291, -291, -291 - }, - - { - 39, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, 311, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292, -292, -292, -292, -292, - -292, -292, -292, -292, -292, -292 - }, - - { - 39, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293, -293, -293, -293, -293, - -293, -293, -293, -293, -293, -293 - }, - - { - 39, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, 312, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294, -294, -294, -294, -294, - -294, -294, -294, -294, -294, -294 - - }, - - { - 39, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, 313, -295, -295, -295, -295, -295, -295, - - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295, -295, -295, -295, -295, - -295, -295, -295, -295, -295, -295 - }, - - { - 39, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, 314, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, 315, -296, 316, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - - -296, -296, -296, -296, -296, -296, -296, -296, -296, -296, - -296, -296, -296, -296, -296, -296 - }, - - { - 39, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, 317, 317, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297, -297, -297, -297, -297, - -297, -297, -297, -297, -297, -297 - }, - - { - 39, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 279, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - - 298, 298, 298, 318, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298, 298, 298, 298, 298, - 298, 298, 298, 298, 298, 298 - }, - - { - 39, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, 319, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299, -299, -299, -299, -299, - -299, -299, -299, -299, -299, -299 - - }, - - { - 39, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, 320, -300, -300, -300, -300, -300, -300, - - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300, -300, -300, -300, -300, - -300, -300, -300, -300, -300, -300 - }, - - { - 39, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, 321, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - - -301, -301, -301, -301, -301, -301, -301, -301, -301, -301, - -301, -301, -301, -301, -301, -301 - }, - - { - 39, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, 322, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302, -302, -302, -302, -302, - -302, -302, -302, -302, -302, -302 - }, - - { - 39, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303, -303, -303, -303, -303, - -303, -303, -303, -303, -303, -303 - }, - - { - 39, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, 323, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304, -304, -304, -304, -304, - -304, -304, -304, -304, -304, -304 - - }, - - { - 39, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, 324, -305, -305, -305, -305, -305, -305, - - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305, -305, -305, -305, -305, - -305, -305, -305, -305, -305, -305 - }, - - { - 39, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, 325, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - - -306, -306, -306, -306, -306, -306, -306, -306, -306, -306, - -306, -306, -306, -306, -306, -306 - }, - - { - 39, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, 326, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307, -307, -307, -307, -307, - -307, -307, -307, -307, -307, -307 - }, - - { - 39, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, 327, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308, -308, -308, -308, -308, - -308, -308, -308, -308, -308, -308 - }, - - { - 39, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309, -309, -309, -309, -309, - -309, -309, -309, -309, -309, -309 - - }, - - { - 39, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310, -310, -310, -310, -310, - -310, -310, -310, -310, -310, -310 - }, - - { - 39, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, 328, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - - -311, -311, -311, -311, -311, -311, -311, -311, -311, -311, - -311, -311, -311, -311, -311, -311 - }, - - { - 39, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312, -312, -312, -312, -312, - -312, -312, -312, -312, -312, -312 - }, - - { - 39, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313, -313, -313, -313, -313, - -313, -313, -313, -313, -313, -313 - }, - - { - 39, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314, -314, -314, -314, -314, - -314, -314, -314, -314, -314, -314 - - }, - - { - 39, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, 329, -315, -315, -315, -315, -315, -315, - - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315, -315, -315, -315, -315, - -315, -315, -315, -315, -315, -315 - }, - - { - 39, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, 330, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - - -316, -316, -316, -316, -316, -316, -316, -316, -316, -316, - -316, -316, -316, -316, -316, -316 - }, - - { - 39, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, 331, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, 332, -317, 333, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317, -317, -317, -317, -317, - -317, -317, -317, -317, -317, -317 - }, - - { - 39, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, 279, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318, -318, -318, -318, -318, - -318, -318, -318, -318, -318, -318 - }, - - { - 39, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319, -319, -319, -319, -319, - -319, -319, -319, -319, -319, -319 - - }, - - { - 39, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320, -320, -320, -320, -320, - -320, -320, -320, -320, -320, -320 - }, - - { - 39, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - - -321, -321, -321, -321, -321, -321, -321, -321, -321, -321, - -321, -321, -321, -321, -321, -321 - }, - - { - 39, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, 334, 334, - 334, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322, -322, -322, -322, -322, - -322, -322, -322, -322, -322, -322 - }, - - { - 39, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323, -323, -323, -323, -323, - -323, -323, -323, -323, -323, -323 - }, - - { - 39, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324, -324, -324, -324, -324, - -324, -324, -324, -324, -324, -324 - - }, - - { - 39, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325, -325, -325, -325, -325, - -325, -325, -325, -325, -325, -325 - }, - - { - 39, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - - -326, -326, -326, -326, -326, -326, -326, -326, -326, -326, - -326, -326, -326, -326, -326, -326 - }, - - { - 39, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327, -327, -327, -327, -327, - -327, -327, -327, -327, -327, -327 - }, - - { - 39, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, 335, -328, -328, -328, -328, - - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328, -328, -328, -328, -328, - -328, -328, -328, -328, -328, -328 - }, - - { - 39, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329, -329, -329, -329, -329, - -329, -329, -329, -329, -329, -329 - - }, - - { - 39, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330, -330, -330, -330, -330, - -330, -330, -330, -330, -330, -330 - }, - - { - 39, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - - -331, -331, -331, -331, -331, -331, -331, -331, -331, -331, - -331, -331, -331, -331, -331, -331 - }, - - { - 39, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, 336, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332, -332, -332, -332, -332, - -332, -332, -332, -332, -332, -332 - }, - - { - 39, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, 337, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333, -333, -333, -333, -333, - -333, -333, -333, -333, -333, -333 - }, - - { - 39, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, 338, - - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, 339, -334, 340, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334, -334, -334, -334, -334, - -334, -334, -334, -334, -334, -334 - - }, - - { - 39, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, 341, -335, -335, -335, -335, -335, -335, - - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335, -335, -335, -335, -335, - -335, -335, -335, -335, -335, -335 - }, - - { - 39, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - - -336, -336, -336, -336, -336, -336, -336, -336, -336, -336, - -336, -336, -336, -336, -336, -336 - }, - - { - 39, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337, -337, -337, -337, -337, - -337, -337, -337, -337, -337, -337 - }, - - { - 39, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, -338, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342 - }, - - { - 39, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, 343, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339, -339, -339, -339, -339, - -339, -339, -339, -339, -339, -339 - - }, - - { - 39, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, 344, -340, -340, -340, -340, -340, -340, - - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340, -340, -340, -340, -340, - -340, -340, -340, -340, -340, -340 - }, - - { - 39, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - - -341, -341, -341, -341, -341, -341, -341, -341, -341, -341, - -341, -341, -341, -341, -341, -341 - }, - - { - 39, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 345, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342, 342, 342, 342, 342, - 342, 342, 342, 342, 342, 342 - }, - - { - 39, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343, -343, -343, -343, -343, - -343, -343, -343, -343, -343, -343 - }, - - { - 39, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344, -344, -344, -344, -344, - -344, -344, -344, -344, -344, -344 - - }, - - { - 39, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, -345, 346, 346, 346, 346, 346, 346, - - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346 - }, - - { - 39, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 347, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - - 346, 346, 346, 346, 346, 346, 346, 346, 346, 346, - 346, 346, 346, 346, 346, 346 - }, - - { - 39, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347, -347, -347, -347, -347, - -347, -347, -347, -347, -347, -347 - }, - - } ; - -static yy_state_type yy_get_previous_state ( void ); -static yy_state_type yy_try_NUL_trans ( yy_state_type current_state ); -static int yy_get_next_buffer ( void ); -static void yynoreturn yy_fatal_error ( const char* msg ); - -/* Done after the current pattern has been matched and before the - * corresponding action - sets up yytext. - */ -#define YY_DO_BEFORE_ACTION \ - (yytext_ptr) = yy_bp; \ - yyleng = (int) (yy_cp - yy_bp); \ - (yy_hold_char) = *yy_cp; \ - *yy_cp = '\0'; \ - (yy_c_buf_p) = yy_cp; -#define YY_NUM_RULES 156 -#define YY_END_OF_BUFFER 157 -/* This struct is not used in this scanner, - but its presence is necessary. */ -struct yy_trans_info - { - flex_int32_t yy_verify; - flex_int32_t yy_nxt; - }; -static const flex_int32_t yy_accept[348] = - { 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 3, 3, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 157, 155, - 69, 112, 155, 105, 1, 133, 86, 155, 135, 109, - 90, 89, 138, 118, 137, 155, 130, 143, 94, 149, - 147, 75, 155, 29, 84, 134, 82, 127, 127, 140, - 139, 93, 150, 148, 146, 104, 106, 72, 66, 67, - 136, 36, 58, 37, 38, 34, 35, 39, 3, 2, - 30, 31, 32, 33, 156, 156, 156, 156, 156, 156, - - 156, 48, 156, 156, 55, 156, 156, 69, 117, 116, - 113, 133, 87, 88, 131, 128, 135, 108, 111, 107, - 40, 91, 92, 0, 0, 132, 28, 129, 129, 130, - 0, 0, 0, 144, 145, 76, 77, 64, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 65, 85, 134, - 83, 68, 78, 0, 141, 142, 95, 96, 97, 98, - 99, 100, 101, 102, 103, 73, 74, 71, 36, 37, - 38, 34, 35, 39, 3, 2, 30, 31, 32, 33, - 0, 0, 0, 0, 41, 0, 0, 0, 0, 43, - 48, 49, 50, 55, 56, 57, 115, 42, 131, 110, - - 0, 0, 132, 80, 0, 121, 123, 119, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 79, 0, 0, - 114, 0, 0, 81, 122, 124, 125, 120, 0, 5, - 4, 0, 24, 0, 23, 0, 0, 0, 0, 22, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 126, 25, 0, 20, 19, 0, 0, 0, 0, - 18, 0, 0, 0, 0, 0, 0, 0, 62, 63, - 47, 0, 0, 54, 0, 26, 0, 152, 151, 154, - 153, 0, 6, 0, 0, 0, 0, 0, 0, 0, - - 0, 0, 7, 0, 0, 0, 0, 0, 27, 21, - 0, 10, 14, 8, 0, 0, 0, 0, 45, 44, - 46, 0, 11, 15, 52, 51, 53, 0, 12, 16, - 9, 0, 0, 0, 0, 13, 17, 0, 0, 0, - 70, 0, 60, 61, 0, 0, 59 - } ; - -static yy_state_type yy_last_accepting_state; -static char *yy_last_accepting_cpos; - -static const yy_state_type yy_NUL_trans[348] = - { 0, - 40, 40, 82, 82, 84, 84, 85, 85, 86, 86, - 87, 87, 88, 88, 89, 89, 91, 91, 92, 92, - 93, 93, 94, 94, 95, 95, 95, 95, 102, 102, - 95, 95, 105, 105, 95, 95, 95, 95, 0, 0, - 0, 0, 109, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 169, 0, 170, 171, 172, 173, 174, 175, 0, - 177, 178, 179, 180, 0, 0, 0, 0, 0, 0, - - 0, 191, 192, 193, 194, 195, 196, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 169, 170, - 171, 172, 173, 174, 175, 0, 177, 178, 179, 180, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 191, 192, 193, 194, 195, 196, 0, 0, 0, 0, - - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 298, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 298, 0, 0, - - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 342, 0, 0, - 0, 342, 0, 0, 346, 346, 0 - } ; - -extern int yy_flex_debug; -int yy_flex_debug = 0; - -/* The intent behind this definition is that it'll catch - * any uses of REJECT which flex missed. - */ -#define REJECT reject_used_but_not_detected -#define yymore() yymore_used_but_not_detected -#define YY_MORE_ADJ 0 -#define YY_RESTORE_YY_MORE_OFFSET -char *yytext; -#line 1 "gabc/gabc-notes-determination.l" -#line 2 "gabc/gabc-notes-determination.l" -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the note parser. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <ctype.h> /* for tolower */ -#include "bool.h" -#include "struct.h" -#include "messages.h" -#include "support.h" - -#include "gabc.h" - -#define YY_NO_INPUT - -#define YY_USER_ACTION gabc_update_location(¬es_lloc, \ - gabc_notes_determination_text, gabc_notes_determination_leng); - -static gregorio_scanner_location notes_lloc; -static gregorio_note *current_note; -static char char_for_brace; -static unsigned int nbof_isolated_episema; -static char *notesmacros[10]; -static char tempstr[256]; -static unsigned short overbrace_var = 0, underbrace_var = 0; -static const char *overbrace_var_kind; -static int before_ledger_type; -static char *before_ledger_length = NULL; -static unsigned short ledger_var[2] = { 0, 0 }; -static unsigned char staff_lines; -static signed char highest_pitch; -static signed char high_ledger_line_pitch; -static bool legacy_oriscus_orientation; -static unsigned short he_adjustment_index[2] = { 0, 0 }; -static signed char bracket_low_pitch, bracket_high_pitch; -static unsigned short left_bracket_texverb = 0; - -#define LEDGER(WHICH, SPECIFICITY, VALUE) \ - if (LEDGER_##SPECIFICITY > current_note->WHICH##_ledger_specificity) { \ - current_note->WHICH##_ledger_line = VALUE; \ - current_note->WHICH##_ledger_specificity = LEDGER_##SPECIFICITY; \ - } - -typedef struct slur_info { - unsigned short var; - char shift; - gregorio_note *start; -} slur_info; - -static slur_info slur[2] = { { 0, '\0', NULL }, { 0, '\0', NULL } }; - -static __inline gregorio_sign_orientation letter_to_sign_orientation( - const char letter) { - switch (letter) { - case 'u': /* "u"under */ - return SO_UNDER; - case 'o': /* "o"ver */ - return SO_OVER; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(letter_to_sign_orientation, - "invalid sign orientation letter: %c", letter); - return SO_OVER; - /* LCOV_EXCL_STOP */ -} - -static __inline int letter_to_pitch_adjustment(const char letter) { - switch (letter_to_sign_orientation(letter)) { - case SO_OVER: - return 1; - case SO_UNDER: - return -1; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(letter_to_pitch_adjustment, - "invalid sign orientation letter: %c", letter); - return 0; - /* LCOV_EXCL_STOP */ -} - -static __inline signed char pitch_letter_to_height(const char pitch) { - char result = pitch - 'a' + LOWEST_PITCH; - if (pitch == 'p') { - --result; - } - if (result > highest_pitch) { - gregorio_messagef("pitch_letter_to_height", VERBOSITY_ERROR, 0, - _("invalid pitch for %u lines: %c"), (unsigned int)staff_lines, - pitch); - } - if (left_bracket_texverb) { - if (result < bracket_low_pitch) { - bracket_low_pitch = result; - } - if (result > bracket_high_pitch) { - bracket_high_pitch = result; - } - } - return result; -} - -static gregorio_shape punctum_inclinatum(const char orientation) -{ - switch (orientation) { - case '0': - return S_PUNCTUM_INCLINATUM_DESCENDENS; - - case '2': - return S_PUNCTUM_INCLINATUM_STANS; - - case '1': - return S_PUNCTUM_INCLINATUM_ASCENDENS; - } - - return S_PUNCTUM_INCLINATUM_UNDETERMINED; -} - -static __inline void lex_add_note(int i, gregorio_shape shape, char signs, - char liquescentia) -{ - signed char height = pitch_letter_to_height(tolower( - (unsigned char)gabc_notes_determination_text[i])); - - nbof_isolated_episema = 0; - gregorio_add_note(¤t_note, height, shape, signs, liquescentia, NULL, - ¬es_lloc); - current_note->he_adjustment_index[SO_OVER] = he_adjustment_index[SO_OVER]; - current_note->he_adjustment_index[SO_UNDER] = he_adjustment_index[SO_UNDER]; - - if (height >= high_ledger_line_pitch) { - LEDGER(high, DRAWN, true); - } else if (ledger_var[SO_OVER]) { - LEDGER(high, EXPLICIT, true); - } - - if (height <= LOW_LEDGER_LINE_PITCH) { - LEDGER(low, DRAWN, true); - } else if (ledger_var[SO_UNDER]) { - LEDGER(low, EXPLICIT, true); - } -} - -static __inline void add_bar_as_note(gregorio_bar bar) -{ - nbof_isolated_episema = 0; - gregorio_add_bar_as_note(¤t_note, bar, ¬es_lloc); -} - -static __inline void error(void) -{ - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("undefined macro used: m%d"), - gabc_notes_determination_text[3] - '0'); -} - -static void add_h_episema(void) -{ - grehepisema_size size = H_NORMAL; - gregorio_vposition vposition = VPOS_AUTO; - bool disable_bridge = false; - - char *ptr = gabc_notes_determination_text; - char current; - /* first character is the underscore */ - while ((current = *(++ptr))) { - switch(current) { - case '0': - vposition = VPOS_BELOW; - break; - case '1': - vposition = VPOS_ABOVE; - break; - case '2': - disable_bridge = true; - break; - case '3': - size = H_SMALL_LEFT; - break; - case '4': - size = H_SMALL_CENTRE; - break; - case '5': - size = H_SMALL_RIGHT; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(gabc_notes_determination, - "unrecognized horizontal episema modifier: %c", current); - break; - /* LCOV_EXCL_STOP */ - }; - } - - gregorio_add_h_episema(current_note, size, vposition, disable_bridge, - &nbof_isolated_episema); -} - -static void add_sign(gregorio_sign sign) -{ - gregorio_vposition vposition = VPOS_AUTO; - switch(gabc_notes_determination_text[1]) { - case '0': - vposition = VPOS_BELOW; - break; - case '1': - vposition = VPOS_ABOVE; - break; - } - gregorio_add_sign(current_note, sign, vposition); -} - -static void save_before_ledger(const char *const before_ledger) -{ - if (strcmp(before_ledger, "0") == 0) { - before_ledger_type = 0; - before_ledger_length = ""; - } else if (strcmp(before_ledger, "1") == 0) { - before_ledger_type = 1; - before_ledger_length = ""; - } else { - before_ledger_type = 2; - before_ledger_length = gregorio_strdup(before_ledger); - } -} - -static void add_static_ledger(const gregorio_sign_orientation type, - const char *length) { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreDrawAdditionalLine{%d}{%s}{%d}{%s}{0}{}", - type, length + 1, before_ledger_type, before_ledger_length); - - if (before_ledger_type == 2) { - free(before_ledger_length); - before_ledger_length = NULL; - } - - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup(tempstr), - GRE_TEXVERB_GLYPH, ¬es_lloc); -} - -static __inline const char *over_or_under( - const gregorio_sign_orientation type) { - switch (type) { - case SO_OVER: - return "over"; - case SO_UNDER: - return "under"; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(over_or_under, "invalid ledger type %d", type); - return ""; - /* LCOV_EXCL_STOP */ -} - -static void add_variable_ledger(const gregorio_sign_orientation type, - const char *after_ledger) -{ - if (ledger_var[type]) { - const char *const typename = over_or_under(type); - gregorio_messagef("add_variable_ledger", VERBOSITY_ERROR, 0, - _("variable %s-staff ledger line without termination of " - "previous %s-staff ledger line"), typename, typename); - } else { - int after_ledger_type; - const char *after_ledger_length; - - ++after_ledger; - - if (strcmp(after_ledger, "0") == 0) { - after_ledger_type = 0; - after_ledger_length = ""; - } else if (strcmp(after_ledger, "1") == 0) { - after_ledger_type = 1; - after_ledger_length = ""; - } else { - after_ledger_type = 2; - after_ledger_length = after_ledger; - } - - ledger_var[type] = ++tex_position_id; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{0}{1}" - "\\GreDrawAdditionalLine{%d}{\\GreVarBraceLength{%hu}}" - "{%d}{%s}{%d}{%s}", - ledger_var[type], type, ledger_var[type], before_ledger_type, - before_ledger_length, after_ledger_type, after_ledger_length); - - if (before_ledger_type == 2) { - free(before_ledger_length); - before_ledger_length = NULL; - } - - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup(tempstr), - GRE_TEXVERB_GLYPH, ¬es_lloc); - } -} - -static void end_variable_ledger(const gregorio_sign_orientation type) -{ - if (!ledger_var[type]) { - const char *const typename = over_or_under(type); - gregorio_messagef("end_variable_ledger", VERBOSITY_ERROR, 0, - _("variable %s-staff ledger line termination without variable " - "%s-staff ledger line start"), typename, typename); - } else { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{0}{2}", ledger_var[type]); - ledger_var[type] = 0; - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup(tempstr), - GRE_TEXVERB_GLYPH, ¬es_lloc); - } -} - -static __inline int parse_clef_line(char line) -{ - line -= '0'; - if (line < 0 || line > staff_lines) { - gregorio_messagef("parse_clef_line", VERBOSITY_ERROR, 0, - _("invalid clef line for %u lines: %d"), - (unsigned int)staff_lines, (int)line); - return 1; - } - return line; -} - -static __inline gregorio_bar parse_dominican_bar(char bar) -{ - bar -= '0'; - if (bar < 1 || bar > (2 * (staff_lines - 1))) { - gregorio_messagef("parse_dominican_line", VERBOSITY_ERROR, 0, - _("invalid Dominican bar for %u lines: ;%d"), - (unsigned int)staff_lines, (int)bar); - } - - switch (bar) { - case 1: - return B_DIVISIO_MINOR_D1; - case 2: - return B_DIVISIO_MINOR_D2; - case 3: - return B_DIVISIO_MINOR_D3; - case 4: - return B_DIVISIO_MINOR_D4; - case 5: - return B_DIVISIO_MINOR_D5; - case 6: - return B_DIVISIO_MINOR_D6; - case 7: - return B_DIVISIO_MINOR_D7; - case 8: - return B_DIVISIO_MINOR_D8; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(check_dominican_line, "invalid dominican bar: %d", (int)bar); - return B_NO_BAR; - /* LCOV_EXCL_STOP */ -} - -static __inline gregorio_clef letter_to_clef(char letter) -{ - switch (letter) { - case 'c': - return CLEF_C; - case 'f': - return CLEF_F; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(letter_to_clef, "invalid clef: %c", letter); - return CLEF_C; - /* LCOV_EXCL_STOP */ -} - -/* this assertion should only fail if the lex rules are incorrect */ -static __inline void slur_assert(char *fn, bool test) { - if (!test) { - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_message(_("invalid slur text"), fn, VERBOSITY_FATAL, 0); - exit(1); - /* LCOV_EXCL_STOP */ - } -} - -static char *parse_slur_shift(char *shift) -{ - char *c; - - c = strchr(gabc_notes_determination_text, ':'); - slur_assert("parse_slur_shift", c != NULL); - slur_assert("parse_slur_shift", *(++c) != '\0'); - *shift = *c; - return c; -} - -static void parse_slur(void) -{ - const int direction = letter_to_pitch_adjustment( - gabc_notes_determination_text[1]); - char shift, *width, *height, *end; - - if (!current_note || current_note->type != GRE_NOTE) { - gregorio_message( - _("cannot add a slur to something that is not a note"), - "parse_slur", VERBOSITY_ERROR, 0); - return; - } - - end = parse_slur_shift(&shift); - width = strchr(end, ';'); - slur_assert("parse_slur", width != NULL); - height = strchr(++width, ','); - slur_assert("parse_slur", height != NULL); - *height = '\0'; - end = strchr(++height, ']'); - slur_assert("parse_slur", end != NULL); - *end = '\0'; - - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreSlur{%d}{%d}{%c}{%s}{%s}{}", - current_note->u.note.pitch + direction, direction, shift, width, - height); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); -} - -static void start_var_slur(void) -{ - const gregorio_sign_orientation index = letter_to_sign_orientation( - gabc_notes_determination_text[1]); - - if (!current_note || current_note->type != GRE_NOTE) { - gregorio_message( - _("cannot add a slur to something that is not a note"), - "start_var_slur", VERBOSITY_ERROR, 0); - return; - } - - if (slur[index].var) { - gregorio_messagef("start_var_slur", VERBOSITY_ERROR, 0, - _("variable %s-note slur without termination of previous slur"), - over_or_under(index)); - return; - } - - slur[index].var = ++tex_position_id; - parse_slur_shift(&(slur[index].shift)); - slur[index].start = current_note; -} - -static void end_var_slur(void) -{ - const int direction = letter_to_pitch_adjustment( - gabc_notes_determination_text[1]); - const gregorio_sign_orientation index = letter_to_sign_orientation( - gabc_notes_determination_text[1]); - char shift; - - if (!current_note || current_note->type != GRE_NOTE) { - gregorio_message( - _("cannot add a slur to something that is not a note"), - "end_var_slur", VERBOSITY_ERROR, 0); - return; - } - - if (!slur[index].var || !slur[index].shift || !slur[index].start) { - gregorio_messagef("end_var_slur", VERBOSITY_ERROR, 0, - _("variable %s-note slur end without start"), - over_or_under(index)); - return; - } - - parse_slur_shift(&shift); - - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%c}{1}" - "\\GreSlur{%d}{%d}{%c}{\\GreVarBraceLength{%hu}}{}{%d}", - slur[index].var, slur[index].shift, - slur[index].start->u.note.pitch + direction, direction, - slur[index].shift, slur[index].var, - current_note->u.note.pitch + direction); - gregorio_add_texverb_to_note(slur[index].start, gregorio_strdup(tempstr)); - - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%c}{2}", slur[index].var, shift); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - - - slur[index].var = 0; - slur[index].shift = '\0'; - slur[index].start = NULL; -} - -static void left_bracket(void) -{ - if (left_bracket_texverb) { - gregorio_message( - _("cannot add a left bracket before closing the previous one"), - "left_bracket", VERBOSITY_ERROR, 0); - return; - } - - /* when setting the left bracket, temporarily store the point-and-click - * information in the texverb */ - if (notes_lloc.generate_point_and_click) { - gregorio_snprintf(tempstr, sizeof tempstr, "%u:%u:%u", - notes_lloc.first_line, notes_lloc.first_offset, - notes_lloc.first_column + 1); - } else { - tempstr[0] = '\0'; - } - left_bracket_texverb = gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup(tempstr), GRE_TEXVERB_GLYPH, ¬es_lloc); - bracket_low_pitch = MAX_PITCH; - bracket_high_pitch = LOWEST_PITCH; -} - -static void right_bracket(void) -{ - if (!left_bracket_texverb) { - gregorio_message( - _("cannot add a right bracket without a matching left bracket"), - "right_bracket", VERBOSITY_ERROR, 0); - return; - } - - if (bracket_high_pitch < bracket_low_pitch) { - gregorio_message( - _("cannot add brackets without notes between them"), - "right_bracket", VERBOSITY_ERROR, 0); - return; - } - - gregorio_snprintf(tempstr, sizeof tempstr, "\\GreBracket{0}{%d}{%d}{%s}", - bracket_low_pitch, bracket_high_pitch, - gregorio_texverb(left_bracket_texverb)); - gregorio_change_texverb(left_bracket_texverb, gregorio_strdup(tempstr)); - - if (notes_lloc.generate_point_and_click) { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreBracket{1}{%d}{%d}{%u:%u:%u}", bracket_low_pitch, - bracket_high_pitch, notes_lloc.first_line, - notes_lloc.first_offset, notes_lloc.first_column + 1); - } else { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreBracket{1}{%d}{%d}{}", bracket_low_pitch, - bracket_high_pitch); - } - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup(tempstr), - GRE_TEXVERB_GLYPH, ¬es_lloc); - - left_bracket_texverb = 0; -} - -static void parse_hepisema_adjustment(void) -{ - /* See https://github.com/gregorio-project/gregorio/issues/872 - * - * [xh:yzw] - * - * - x is o(ver) or u(under) - * - y is optional and is - * - l for low in the space (chooses ol or ul depending on x) - * - m for middle of the space - * - h for high in the space (chooses oh or uh depending on x) - * - ol for low in the space as if the episema were over the note - * - oh for high in the space as if the episema were over the note - * - ul for low in the space as if the episema were under the note - * - uh for high in the space as if the episema were under the note - * - z is an optional nudge and must start with + or - - * - w is optional and may be { to start a range or } to end a range. - * - * at least one of y, z, or w must be provided - * if y and z are omitted, the : may be omitted - * y and z are not permitted when w is } - */ - - const gregorio_sign_orientation index = letter_to_sign_orientation( - gabc_notes_determination_text[1]); - gregorio_sign_orientation det_index = index; - char *ch = gabc_notes_determination_text + 3; - gregorio_hepisema_vbasepos vbasepos = HVB_AUTO; - char *nudge = NULL; - char save; - short hepisema_adjustment_id; - - if (he_adjustment_index[index]) { - gregorio_messagef("parse_hepisema_adustment", VERBOSITY_ERROR, 0, - _("horizontal %s-episema adjustment start before ending the " - "previous adjustment"), over_or_under(index)); - return; - } - - if (*ch == ':') { - ++ch; - if (*ch == 'm') { - vbasepos = HVB_MIDDLE; - } else { - switch (*ch) { - case 'o': - ++ch; - det_index = SO_OVER; - break; - case 'u': - ++ch; - det_index = SO_UNDER; - break; - } - - switch (*ch) { - case 'l': - switch (det_index) { - case SO_OVER: - vbasepos = HVB_O_LOW; - break; - case SO_UNDER: - vbasepos = HVB_U_LOW; - break; - } - break; - case 'h': - switch (det_index) { - case SO_OVER: - vbasepos = HVB_O_HIGH; - break; - case SO_UNDER: - vbasepos = HVB_U_HIGH; - break; - } - break; - } - } - if (vbasepos) { - ++ch; - } - if (*ch == '+' || *ch == '-') { - nudge = ch; - do { - ++ch; - } while (*ch && *ch != '{' && *ch != ']'); - save = *ch; - *ch = '\0'; - nudge = gregorio_strdup(nudge); - *ch = save; - } - } - - hepisema_adjustment_id = gregorio_add_hepisema_adjustment(vbasepos, nudge); - - if (*ch == '{') { - he_adjustment_index[index] = hepisema_adjustment_id; - } else { - if (!current_note || current_note->type != GRE_NOTE) { - gregorio_message(_("cannot add a horizontal episema adjustment to " - "something that is not a note"), - "parse_hepisema_adjustment", VERBOSITY_ERROR, 0); - return; - } - current_note->he_adjustment_index[index] = hepisema_adjustment_id; - } -} - -static void end_hepisema_adjustment(void) -{ - /* [xh:}] - * - x indicates l(ow) or h(igh) episema - * - : is optional - */ - - const gregorio_sign_orientation index = letter_to_sign_orientation( - gabc_notes_determination_text[1]); - - if (!he_adjustment_index[index]) { - gregorio_messagef("end_hepisema_adustment", VERBOSITY_ERROR, 0, - _("horizontal %s-episema adjustment end with no matching " - "start"), over_or_under(index)); - return; - } - - he_adjustment_index[index] = 0; -} - -void gabc_det_notes_finish(void) -{ - gregorio_sign_orientation orientation; - if (overbrace_var) { - gregorio_message(_("unclosed variable over-staff brace"), - "gabc_det_notes_finish", VERBOSITY_ERROR, 0); - overbrace_var = 0; - } - if (underbrace_var) { - gregorio_message(_("unclosed variable under-staff brace"), - "gabc_det_notes_finish", VERBOSITY_ERROR, 0); - underbrace_var = 0; - } - for (orientation = SO_OVER; orientation <= SO_UNDER; ++orientation) { - const char *name = over_or_under(orientation); - if (ledger_var[orientation]) { - gregorio_messagef("gabc_det_notes_finish", VERBOSITY_ERROR, 0, - _("unclosed variable %s-staff ledger line"), name); - ledger_var[orientation] = 0; - } - if (slur[orientation].var) { - gregorio_messagef("gabc_det_notes_finish", VERBOSITY_ERROR, 0, - _("unclosed variable %s-note slur"), name); - slur[orientation].var = 0; - slur[orientation].shift = '\0'; - slur[orientation].start = NULL; - } - if (he_adjustment_index[orientation]) { - gregorio_messagef("gabc_det_notes_finish", VERBOSITY_ERROR, 0, - _("unclosed horizontal %s-episema adjustment"), - over_or_under(orientation)); - ledger_var[orientation] = 0; - } - } - if (left_bracket_texverb) { - gregorio_message(_("unclosed left bracket"), - "gabc_det_notes_finish", VERBOSITY_ERROR, 0); - left_bracket_texverb = 0; - } -} - -#line 12472 "gabc/gabc-notes-determination-l.c" - -#line 12474 "gabc/gabc-notes-determination-l.c" - -#define INITIAL 0 -#define texverbnote 1 -#define texverbglyph 2 -#define texverbelement 3 -#define choralsign 4 -#define choralnabc 5 -#define alt 6 -#define comments 7 -#define overbrace 8 -#define underbrace 9 -#define overcurlybrace 10 -#define overcurlyaccentusbrace 11 -#define space 12 -#define nbspace 13 -#define overledger 14 -#define overledger2 15 -#define underledger 16 -#define underledger2 17 -#define endledger 18 - -#ifndef YY_NO_UNISTD_H -/* Special case for "unistd.h", since it is non-ANSI. We include it way - * down here because we want the user's section 1 to have been scanned first. - * The user has a chance to override it with an option. - */ -#include <unistd.h> -#endif - -#ifndef YY_EXTRA_TYPE -#define YY_EXTRA_TYPE void * -#endif - -static int yy_init_globals ( void ); - -/* Accessor methods to globals. - These are made visible to non-reentrant scanners for convenience. */ - -int yylex_destroy ( void ); - -int yyget_debug ( void ); - -void yyset_debug ( int debug_flag ); - -YY_EXTRA_TYPE yyget_extra ( void ); - -void yyset_extra ( YY_EXTRA_TYPE user_defined ); - -FILE *yyget_in ( void ); - -void yyset_in ( FILE * _in_str ); - -FILE *yyget_out ( void ); - -void yyset_out ( FILE * _out_str ); - - int yyget_leng ( void ); - -char *yyget_text ( void ); - -int yyget_lineno ( void ); - -void yyset_lineno ( int _line_number ); - -/* Macros after this point can all be overridden by user definitions in - * section 1. - */ - -#ifndef YY_SKIP_YYWRAP -#ifdef __cplusplus -extern "C" int yywrap ( void ); -#else -extern int yywrap ( void ); -#endif -#endif - -#ifndef YY_NO_UNPUT - -#endif - -#ifndef yytext_ptr -static void yy_flex_strncpy ( char *, const char *, int ); -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen ( const char * ); -#endif - -#ifndef YY_NO_INPUT -#ifdef __cplusplus -static int yyinput ( void ); -#else -static int input ( void ); -#endif - -#endif - - static int yy_start_stack_ptr = 0; - static int yy_start_stack_depth = 0; - static int *yy_start_stack = NULL; - -/* Amount of stuff to slurp up with each read. */ -#ifndef YY_READ_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k */ -#define YY_READ_BUF_SIZE 16384 -#else -#define YY_READ_BUF_SIZE 8192 -#endif /* __ia64__ */ -#endif - -/* Copy whatever the last rule matched to the standard output. */ -#ifndef ECHO -/* This used to be an fputs(), but since the string might contain NUL's, - * we now use fwrite(). - */ -#define ECHO do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0) -#endif - -/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, - * is returned in "result". - */ -#ifndef YY_INPUT -#define YY_INPUT(buf,result,max_size) \ - if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ - { \ - int c = '*'; \ - int n; \ - for ( n = 0; n < max_size && \ - (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ - buf[n] = (char) c; \ - if ( c == '\n' ) \ - buf[n++] = (char) c; \ - if ( c == EOF && ferror( yyin ) ) \ - YY_FATAL_ERROR( "input in flex scanner failed" ); \ - result = n; \ - } \ - else \ - { \ - errno=0; \ - while ( (result = (int) fread(buf, 1, (yy_size_t) max_size, yyin)) == 0 && ferror(yyin)) \ - { \ - if( errno != EINTR) \ - { \ - YY_FATAL_ERROR( "input in flex scanner failed" ); \ - break; \ - } \ - errno=0; \ - clearerr(yyin); \ - } \ - }\ -\ - -#endif - -/* No semi-colon after return; correct usage is to write "yyterminate();" - - * we don't want an extra ';' after the "return" because that will cause - * some compilers to complain about unreachable statements. - */ -#ifndef yyterminate -#define yyterminate() return YY_NULL -#endif - -/* Number of entries by which start-condition stack grows. */ -#ifndef YY_START_STACK_INCR -#define YY_START_STACK_INCR 25 -#endif - -/* Report a fatal error. */ -#ifndef YY_FATAL_ERROR -#define YY_FATAL_ERROR(msg) yy_fatal_error( msg ) -#endif - -/* end tables serialization structures and prototypes */ - -/* Default declaration of generated scanner - a define so the user can - * easily add parameters. - */ -#ifndef YY_DECL -#define YY_DECL_IS_OURS 1 - -extern int yylex (void); - -#define YY_DECL int yylex (void) -#endif /* !YY_DECL */ - -/* Code executed at the beginning of each rule, after yytext and yyleng - * have been set up. - */ -#ifndef YY_USER_ACTION -#define YY_USER_ACTION -#endif - -/* Code executed at the end of each rule. */ -#ifndef YY_BREAK -#define YY_BREAK /*LINTED*/break; -#endif - -#define YY_RULE_SETUP \ - YY_USER_ACTION - -/** The main scanner function which does all the work. - */ -YY_DECL -{ - yy_state_type yy_current_state; - char *yy_cp, *yy_bp; - int yy_act; - - if ( !(yy_init) ) - { - (yy_init) = 1; - -#ifdef YY_USER_INIT - YY_USER_INIT; -#endif - - if ( ! (yy_start) ) - (yy_start) = 1; /* first start state */ - - if ( ! yyin ) - yyin = stdin; - - if ( ! yyout ) - yyout = stdout; - - if ( ! YY_CURRENT_BUFFER ) { - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer( yyin, YY_BUF_SIZE ); - } - - yy_load_buffer_state( ); - } - - { -#line 782 "gabc/gabc-notes-determination.l" - -#line 12713 "gabc/gabc-notes-determination-l.c" - - while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */ - { - yy_cp = (yy_c_buf_p); - - /* Support of yytext. */ - *yy_cp = (yy_hold_char); - - /* yy_bp points to the position in yy_ch_buf of the start of - * the current run. - */ - yy_bp = yy_cp; - - yy_current_state = (yy_start); -yy_match: - while ( (yy_current_state = yy_nxt[yy_current_state][ YY_SC_TO_UI(*yy_cp) ]) > 0 ) - { - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - - ++yy_cp; - } - - yy_current_state = -yy_current_state; - -yy_find_action: - yy_act = yy_accept[yy_current_state]; - - YY_DO_BEFORE_ACTION; - -do_action: /* This label is used only to access EOF actions. */ - - switch ( yy_act ) - { /* beginning of action switch */ - case 0: /* must back up */ - /* undo the effects of YY_DO_BEFORE_ACTION */ - *yy_cp = (yy_hold_char); - yy_cp = (yy_last_accepting_cpos) + 1; - yy_current_state = (yy_last_accepting_state); - goto yy_find_action; - -case 1: -YY_RULE_SETUP -#line 783 "gabc/gabc-notes-determination.l" -{ - BEGIN(comments); - } - YY_BREAK -case 2: -/* rule 2 can match eol */ -YY_RULE_SETUP -#line 786 "gabc/gabc-notes-determination.l" -{ - BEGIN(INITIAL); - } - YY_BREAK -case 3: -YY_RULE_SETUP -#line 789 "gabc/gabc-notes-determination.l" -{ - /* ignored */ - } - YY_BREAK -case 4: -YY_RULE_SETUP -#line 792 "gabc/gabc-notes-determination.l" -{ - BEGIN(choralsign); - } - YY_BREAK -case 5: -YY_RULE_SETUP -#line 795 "gabc/gabc-notes-determination.l" -{ - BEGIN(choralnabc); - } - YY_BREAK -case 6: -YY_RULE_SETUP -#line 798 "gabc/gabc-notes-determination.l" -{ - char_for_brace = gabc_notes_determination_text[4]-'0'; - BEGIN(overbrace); - } - YY_BREAK -case 7: -YY_RULE_SETUP -#line 802 "gabc/gabc-notes-determination.l" -{ - char_for_brace = gabc_notes_determination_text[4]-'0'; - BEGIN(underbrace); - } - YY_BREAK -case 8: -YY_RULE_SETUP -#line 806 "gabc/gabc-notes-determination.l" -{ - char_for_brace = gabc_notes_determination_text[5]-'0'; - BEGIN(overcurlybrace); - } - YY_BREAK -case 9: -YY_RULE_SETUP -#line 810 "gabc/gabc-notes-determination.l" -{ - char_for_brace = gabc_notes_determination_text[6]-'0'; - BEGIN(overcurlyaccentusbrace); - } - YY_BREAK -case 10: -YY_RULE_SETUP -#line 814 "gabc/gabc-notes-determination.l" -{ - if (overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace without termination of " - "previous overbrace")); - } else { - char_for_brace = gabc_notes_determination_text[4]-'0'; - overbrace_var = ++tex_position_id; - overbrace_var_kind = "ob"; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{1}" - "\\GreOverBrace{\\GreVarBraceLength{%hu}}{0pt}{0pt}{%d}", - overbrace_var, char_for_brace, overbrace_var, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } - YY_BREAK -case 11: -YY_RULE_SETUP -#line 830 "gabc/gabc-notes-determination.l" -{ - if (underbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable underbrace without termination of " - "previous underbrace")); - } else { - char_for_brace = gabc_notes_determination_text[4]-'0'; - underbrace_var = ++tex_position_id; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{1}" - "\\GreUnderBrace{\\GreVarBraceLength{%hu}}{0pt}{0pt}{%d}", - underbrace_var, char_for_brace, underbrace_var, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } - YY_BREAK -case 12: -YY_RULE_SETUP -#line 845 "gabc/gabc-notes-determination.l" -{ - if (overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace without termination of " - "previous overbrace")); - } else { - char_for_brace = gabc_notes_determination_text[5]-'0'; - overbrace_var = ++tex_position_id; - overbrace_var_kind = "ocb"; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{1}" - "\\GreOverCurlyBrace{\\GreVarBraceLength{%hu}}{0pt}{0pt}{%d}{0}", - overbrace_var, char_for_brace, overbrace_var, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } - YY_BREAK -case 13: -YY_RULE_SETUP -#line 861 "gabc/gabc-notes-determination.l" -{ - if (overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace without termination of " - "previous overbrace")); - } else { - char_for_brace = gabc_notes_determination_text[6]-'0'; - overbrace_var = ++tex_position_id; - overbrace_var_kind = "ocba"; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{1}" - "\\GreOverCurlyBrace{\\GreVarBraceLength{%hu}}{0pt}{0pt}{%d}{1}", - overbrace_var, char_for_brace, overbrace_var, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } - YY_BREAK -case 14: -YY_RULE_SETUP -#line 877 "gabc/gabc-notes-determination.l" -{ - if (!overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace termination without " - "variable overbrace start")); - } else if (strcmp (overbrace_var_kind, "ob")) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace started with %s " - "and terminated with ob"), - overbrace_var_kind); - } else { - char_for_brace = gabc_notes_determination_text[4]-'0'; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{2}", overbrace_var, - char_for_brace); - overbrace_var = 0; - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } - YY_BREAK -case 15: -YY_RULE_SETUP -#line 896 "gabc/gabc-notes-determination.l" -{ - if (!underbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable underbrace termination without " - "variable underbrace start")); - } else { - char_for_brace = gabc_notes_determination_text[4]-'0'; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{2}", underbrace_var, - char_for_brace); - underbrace_var = 0; - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } - YY_BREAK -case 16: -YY_RULE_SETUP -#line 910 "gabc/gabc-notes-determination.l" -{ - if (!overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace termination without " - "variable overbrace start")); - } else if (strcmp (overbrace_var_kind, "ocb")) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace started with %s " - "and terminated with ocb"), - overbrace_var_kind); - } else { - char_for_brace = gabc_notes_determination_text[5]-'0'; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{2}", overbrace_var, - char_for_brace); - overbrace_var = 0; - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } - YY_BREAK -case 17: -YY_RULE_SETUP -#line 929 "gabc/gabc-notes-determination.l" -{ - if (!overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace termination without " - "variable overbrace start")); - } else if (strcmp (overbrace_var_kind, "ocba")) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace started with %s " - "and terminated with ocba"), - overbrace_var_kind); - } else { - char_for_brace = gabc_notes_determination_text[6]-'0'; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{2}", overbrace_var, - char_for_brace); - overbrace_var = 0; - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } - YY_BREAK -case 18: -YY_RULE_SETUP -#line 948 "gabc/gabc-notes-determination.l" -{ - if (notesmacros[gabc_notes_determination_text[3]-'0']) { - gregorio_add_texverb_to_note(current_note, gregorio_strdup( - notesmacros[gabc_notes_determination_text[3]-'0'])); - } else error(); - } - YY_BREAK -case 19: -YY_RULE_SETUP -#line 954 "gabc/gabc-notes-determination.l" -{ - if (notesmacros[gabc_notes_determination_text[3]-'0']) { - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup( - notesmacros[gabc_notes_determination_text[3]-'0']), - GRE_TEXVERB_GLYPH, ¬es_lloc); - } else error(); - } - YY_BREAK -case 20: -YY_RULE_SETUP -#line 961 "gabc/gabc-notes-determination.l" -{ - if (notesmacros[gabc_notes_determination_text[3]-'0']) { - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup( - notesmacros[gabc_notes_determination_text[3]-'0']), - GRE_TEXVERB_ELEMENT, ¬es_lloc); - } else error(); - } - YY_BREAK -case 21: -YY_RULE_SETUP -#line 968 "gabc/gabc-notes-determination.l" -{ - if (notesmacros[gabc_notes_determination_text[5]-'0']) { - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup( - notesmacros[gabc_notes_determination_text[5]-'0']), - GRE_TEXVERB_ELEMENT, ¬es_lloc); - } else error(); - } - YY_BREAK -case 22: -YY_RULE_SETUP -#line 975 "gabc/gabc-notes-determination.l" -{ - BEGIN(texverbnote); - } - YY_BREAK -case 23: -YY_RULE_SETUP -#line 978 "gabc/gabc-notes-determination.l" -{ - BEGIN(texverbglyph); - } - YY_BREAK -case 24: -YY_RULE_SETUP -#line 981 "gabc/gabc-notes-determination.l" -{ - BEGIN(texverbelement); - } - YY_BREAK -case 25: -YY_RULE_SETUP -#line 984 "gabc/gabc-notes-determination.l" -{ - BEGIN(alt); - } - YY_BREAK -case 26: -YY_RULE_SETUP -#line 987 "gabc/gabc-notes-determination.l" -{ - gregorio_add_nlba_as_note(¤t_note, NLBA_BEGINNING, ¬es_lloc); - } - YY_BREAK -case 27: -YY_RULE_SETUP -#line 990 "gabc/gabc-notes-determination.l" -{ - gregorio_add_nlba_as_note(¤t_note, NLBA_END, ¬es_lloc); - } - YY_BREAK -case 28: -YY_RULE_SETUP -#line 993 "gabc/gabc-notes-determination.l" -{ - gregorio_start_autofuse(¤t_note, ¬es_lloc); - } - YY_BREAK -case 29: -YY_RULE_SETUP -#line 996 "gabc/gabc-notes-determination.l" -{ - gregorio_end_autofuse(¤t_note, ¬es_lloc); - } - YY_BREAK -case 30: -/* rule 30 can match eol */ -YY_RULE_SETUP -#line 999 "gabc/gabc-notes-determination.l" -{ - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreOverBrace{%s}{0pt}{0pt}{%d}", - gabc_notes_determination_text, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - YY_BREAK -case 31: -/* rule 31 can match eol */ -YY_RULE_SETUP -#line 1005 "gabc/gabc-notes-determination.l" -{ - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreUnderBrace{%s}{0pt}{0pt}{%d}", - gabc_notes_determination_text, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - YY_BREAK -case 32: -/* rule 32 can match eol */ -YY_RULE_SETUP -#line 1011 "gabc/gabc-notes-determination.l" -{ - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreOverCurlyBrace{%s}{0pt}{0pt}{%d}{0}", - gabc_notes_determination_text, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - YY_BREAK -case 33: -/* rule 33 can match eol */ -YY_RULE_SETUP -#line 1017 "gabc/gabc-notes-determination.l" -{ - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreOverCurlyBrace{%s}{0pt}{0pt}{%d}{1}", - gabc_notes_determination_text, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - YY_BREAK -case 34: -/* rule 34 can match eol */ -YY_RULE_SETUP -#line 1023 "gabc/gabc-notes-determination.l" -{ - gregorio_add_cs_to_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), false); - } - YY_BREAK -case 35: -/* rule 35 can match eol */ -YY_RULE_SETUP -#line 1027 "gabc/gabc-notes-determination.l" -{ - gregorio_add_cs_to_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), true); - } - YY_BREAK -case 36: -/* rule 36 can match eol */ -YY_RULE_SETUP -#line 1031 "gabc/gabc-notes-determination.l" -{ - gregorio_add_texverb_to_note(current_note, - gregorio_strdup(gabc_notes_determination_text)); - } - YY_BREAK -case 37: -/* rule 37 can match eol */ -YY_RULE_SETUP -#line 1035 "gabc/gabc-notes-determination.l" -{ - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), - GRE_TEXVERB_GLYPH, ¬es_lloc); - } - YY_BREAK -case 38: -/* rule 38 can match eol */ -YY_RULE_SETUP -#line 1040 "gabc/gabc-notes-determination.l" -{ - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), - GRE_TEXVERB_ELEMENT, ¬es_lloc); - } - YY_BREAK -case 39: -/* rule 39 can match eol */ -YY_RULE_SETUP -#line 1045 "gabc/gabc-notes-determination.l" -{ - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), GRE_ALT, - ¬es_lloc); - } - YY_BREAK -case 40: -YY_RULE_SETUP -#line 1050 "gabc/gabc-notes-determination.l" -{ - BEGIN(space); - } - YY_BREAK -case 41: -*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ -(yy_c_buf_p) = yy_cp -= 1; -YY_DO_BEFORE_ACTION; /* set up yytext again */ -YY_RULE_SETUP -#line 1053 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_AD_HOC_SPACE, - gregorio_strdup(gabc_notes_determination_text), ¬es_lloc); - } - YY_BREAK -case 42: -YY_RULE_SETUP -#line 1057 "gabc/gabc-notes-determination.l" -{ - BEGIN(nbspace); - } - YY_BREAK -case 43: -*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ -(yy_c_buf_p) = yy_cp -= 1; -YY_DO_BEFORE_ACTION; /* set up yytext again */ -YY_RULE_SETUP -#line 1060 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_AD_HOC_SPACE_NB, - gregorio_strdup(gabc_notes_determination_text), ¬es_lloc); - } - YY_BREAK -case 44: -YY_RULE_SETUP -#line 1064 "gabc/gabc-notes-determination.l" -{ - LEDGER(high, EXPLICITLY_DRAWN, true); - } - YY_BREAK -case 45: -YY_RULE_SETUP -#line 1067 "gabc/gabc-notes-determination.l" -{ - LEDGER(high, EXPLICITLY_DRAWN, false); - } - YY_BREAK -case 46: -YY_RULE_SETUP -#line 1070 "gabc/gabc-notes-determination.l" -{ - end_variable_ledger(SO_OVER); - } - YY_BREAK -case 47: -YY_RULE_SETUP -#line 1073 "gabc/gabc-notes-determination.l" -{ - BEGIN(overledger); - } - YY_BREAK -case 48: -/* rule 48 can match eol */ -YY_RULE_SETUP -#line 1076 "gabc/gabc-notes-determination.l" -{ - save_before_ledger(gabc_notes_determination_text); - BEGIN(overledger2); - } - YY_BREAK -case 49: -/* rule 49 can match eol */ -YY_RULE_SETUP -#line 1080 "gabc/gabc-notes-determination.l" -{ - add_static_ledger(SO_OVER, gabc_notes_determination_text); - BEGIN(endledger); - } - YY_BREAK -case 50: -/* rule 50 can match eol */ -YY_RULE_SETUP -#line 1084 "gabc/gabc-notes-determination.l" -{ - add_variable_ledger(SO_OVER, gabc_notes_determination_text); - BEGIN(endledger); - } - YY_BREAK -case 51: -YY_RULE_SETUP -#line 1088 "gabc/gabc-notes-determination.l" -{ - LEDGER(low, EXPLICITLY_DRAWN, true); - } - YY_BREAK -case 52: -YY_RULE_SETUP -#line 1091 "gabc/gabc-notes-determination.l" -{ - LEDGER(low, EXPLICITLY_DRAWN, false); - } - YY_BREAK -case 53: -YY_RULE_SETUP -#line 1094 "gabc/gabc-notes-determination.l" -{ - end_variable_ledger(SO_UNDER); - } - YY_BREAK -case 54: -YY_RULE_SETUP -#line 1097 "gabc/gabc-notes-determination.l" -{ - BEGIN(underledger); - } - YY_BREAK -case 55: -/* rule 55 can match eol */ -YY_RULE_SETUP -#line 1100 "gabc/gabc-notes-determination.l" -{ - save_before_ledger(gabc_notes_determination_text); - BEGIN(underledger2); - } - YY_BREAK -case 56: -/* rule 56 can match eol */ -YY_RULE_SETUP -#line 1104 "gabc/gabc-notes-determination.l" -{ - add_static_ledger(SO_UNDER, gabc_notes_determination_text); - BEGIN(endledger); - } - YY_BREAK -case 57: -/* rule 57 can match eol */ -YY_RULE_SETUP -#line 1108 "gabc/gabc-notes-determination.l" -{ - add_variable_ledger(SO_UNDER, gabc_notes_determination_text); - BEGIN(endledger); - } - YY_BREAK -case 58: -YY_RULE_SETUP -#line 1112 "gabc/gabc-notes-determination.l" -{ - BEGIN(INITIAL); - } - YY_BREAK -case 59: -/* rule 59 can match eol */ -YY_RULE_SETUP -#line 1115 "gabc/gabc-notes-determination.l" -{ - parse_slur(); - } - YY_BREAK -case 60: -YY_RULE_SETUP -#line 1118 "gabc/gabc-notes-determination.l" -{ - start_var_slur(); - } - YY_BREAK -case 61: -YY_RULE_SETUP -#line 1121 "gabc/gabc-notes-determination.l" -{ - end_var_slur(); - } - YY_BREAK -case 62: -/* rule 62 can match eol */ -YY_RULE_SETUP -#line 1128 "gabc/gabc-notes-determination.l" -{ - parse_hepisema_adjustment(); - } - YY_BREAK -case 63: -YY_RULE_SETUP -#line 1131 "gabc/gabc-notes-determination.l" -{ - end_hepisema_adjustment(); - } - YY_BREAK -case 64: -YY_RULE_SETUP -#line 1134 "gabc/gabc-notes-determination.l" -{ - left_bracket(); - } - YY_BREAK -case 65: -YY_RULE_SETUP -#line 1137 "gabc/gabc-notes-determination.l" -{ - right_bracket(); - } - YY_BREAK -case 66: -YY_RULE_SETUP -#line 1140 "gabc/gabc-notes-determination.l" -{ - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup("\\hbox to 0pt{"), GRE_TEXVERB_ELEMENT, - ¬es_lloc); - } - YY_BREAK -case 67: -YY_RULE_SETUP -#line 1145 "gabc/gabc-notes-determination.l" -{ - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup("\\hss%\n}%\n\\GreNoBreak\\relax "), - GRE_TEXVERB_ELEMENT, ¬es_lloc); - } - YY_BREAK -case 68: -YY_RULE_SETUP -#line 1150 "gabc/gabc-notes-determination.l" -{ - gregorio_add_manual_custos_as_note(¤t_note, - pitch_letter_to_height(gabc_notes_determination_text[0]), - ¬es_lloc); - } - YY_BREAK -case 69: -/* rule 69 can match eol */ -YY_RULE_SETUP -#line 1155 "gabc/gabc-notes-determination.l" -/* ignore ends of line and tabs */; - YY_BREAK -case 70: -YY_RULE_SETUP -#line 1156 "gabc/gabc-notes-determination.l" -{ - gregorio_add_suppress_custos_as_note(¤t_note, ¬es_lloc); - } - YY_BREAK -case 71: -YY_RULE_SETUP -#line 1159 "gabc/gabc-notes-determination.l" -{ - gregorio_add_custos_as_note(¤t_note, ¬es_lloc); - } - YY_BREAK -case 72: -YY_RULE_SETUP -#line 1162 "gabc/gabc-notes-determination.l" -{ - gregorio_add_end_of_line_as_note(¤t_note, false, false, false, - ¬es_lloc); - } - YY_BREAK -case 73: -YY_RULE_SETUP -#line 1166 "gabc/gabc-notes-determination.l" -{ - gregorio_add_end_of_line_as_note(¤t_note, false, true, true, - ¬es_lloc); - } - YY_BREAK -case 74: -YY_RULE_SETUP -#line 1170 "gabc/gabc-notes-determination.l" -{ - gregorio_add_end_of_line_as_note(¤t_note, false, true, false, - ¬es_lloc); - } - YY_BREAK -case 75: -YY_RULE_SETUP -#line 1174 "gabc/gabc-notes-determination.l" -{ - gregorio_add_end_of_line_as_note(¤t_note, true, false, false, - ¬es_lloc); - } - YY_BREAK -case 76: -YY_RULE_SETUP -#line 1178 "gabc/gabc-notes-determination.l" -{ - gregorio_add_end_of_line_as_note(¤t_note, true, true, true, - ¬es_lloc); - } - YY_BREAK -case 77: -YY_RULE_SETUP -#line 1182 "gabc/gabc-notes-determination.l" -{ - gregorio_add_end_of_line_as_note(¤t_note, true, true, false, - ¬es_lloc); - } - YY_BREAK -case 78: -YY_RULE_SETUP -#line 1186 "gabc/gabc-notes-determination.l" -{ - gregorio_add_clef_as_note(¤t_note, - letter_to_clef(gabc_notes_determination_text[0]), - parse_clef_line(gabc_notes_determination_text[1]), false, - ¬es_lloc); - } - YY_BREAK -case 79: -YY_RULE_SETUP -#line 1192 "gabc/gabc-notes-determination.l" -{ - gregorio_add_clef_as_note(¤t_note, - letter_to_clef(gabc_notes_determination_text[0]), - parse_clef_line(gabc_notes_determination_text[2]), true, - ¬es_lloc); - } - YY_BREAK -case 80: -YY_RULE_SETUP -#line 1198 "gabc/gabc-notes-determination.l" -{ - gregorio_add_secondary_clef_to_note(current_note, - letter_to_clef(gabc_notes_determination_text[1]), - parse_clef_line(gabc_notes_determination_text[2]), false); - } - YY_BREAK -case 81: -YY_RULE_SETUP -#line 1203 "gabc/gabc-notes-determination.l" -{ - gregorio_add_secondary_clef_to_note(current_note, - letter_to_clef(gabc_notes_determination_text[1]), - parse_clef_line(gabc_notes_determination_text[3]), true); - } - YY_BREAK -case 82: -YY_RULE_SETUP -#line 1208 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_VIRGULA); - } - YY_BREAK -case 83: -YY_RULE_SETUP -#line 1211 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_VIRGULA_HIGH); - } - YY_BREAK -case 84: -YY_RULE_SETUP -#line 1214 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_DIVISIO_MINIMIS); - } - YY_BREAK -case 85: -YY_RULE_SETUP -#line 1217 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_DIVISIO_MINIMIS_HIGH); - } - YY_BREAK -case 86: -YY_RULE_SETUP -#line 1220 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_DIVISIO_MINIMA); - } - YY_BREAK -case 87: -YY_RULE_SETUP -#line 1223 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_DIVISIO_MINIMA_HIGH); - } - YY_BREAK -case 88: -YY_RULE_SETUP -#line 1226 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(parse_dominican_bar(gabc_notes_determination_text[1])); - } - YY_BREAK -case 89: -YY_RULE_SETUP -#line 1229 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_DIVISIO_MINOR); - } - YY_BREAK -case 90: -YY_RULE_SETUP -#line 1232 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_DIVISIO_MAIOR); - } - YY_BREAK -case 91: -YY_RULE_SETUP -#line 1235 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_DIVISIO_FINALIS); - } - YY_BREAK -case 92: -YY_RULE_SETUP -#line 1238 "gabc/gabc-notes-determination.l" -{ - add_bar_as_note(B_DIVISIO_MAIOR_DOTTED); - } - YY_BREAK -case 93: -YY_RULE_SETUP -#line 1241 "gabc/gabc-notes-determination.l" -{ - gregorio_add_cavum(current_note); - } - YY_BREAK -case 94: -YY_RULE_SETUP -#line 1244 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_LINEA_PUNCTUM, - legacy_oriscus_orientation); - } - YY_BREAK -case 95: -YY_RULE_SETUP -#line 1248 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_LINEA_PUNCTUM, - legacy_oriscus_orientation); - gregorio_add_cavum(current_note); - } - YY_BREAK -case 96: -YY_RULE_SETUP -#line 1253 "gabc/gabc-notes-determination.l" -{ - gregorio_add_special_sign(current_note, _ACCENTUS); - } - YY_BREAK -case 97: -YY_RULE_SETUP -#line 1256 "gabc/gabc-notes-determination.l" -{ - gregorio_add_special_sign(current_note, _ACCENTUS_REVERSUS); - } - YY_BREAK -case 98: -YY_RULE_SETUP -#line 1259 "gabc/gabc-notes-determination.l" -{ - gregorio_add_special_sign(current_note, _CIRCULUS); - } - YY_BREAK -case 99: -YY_RULE_SETUP -#line 1262 "gabc/gabc-notes-determination.l" -{ - gregorio_add_special_sign(current_note, _SEMI_CIRCULUS); - } - YY_BREAK -case 100: -YY_RULE_SETUP -#line 1265 "gabc/gabc-notes-determination.l" -{ - gregorio_add_special_sign(current_note, _SEMI_CIRCULUS_REVERSUS); - } - YY_BREAK -case 101: -YY_RULE_SETUP -#line 1268 "gabc/gabc-notes-determination.l" -{ - gregorio_add_special_sign(current_note, _MUSICA_FICTA_FLAT); - } - YY_BREAK -case 102: -YY_RULE_SETUP -#line 1271 "gabc/gabc-notes-determination.l" -{ - gregorio_add_special_sign(current_note, _MUSICA_FICTA_NATURAL); - } - YY_BREAK -case 103: -YY_RULE_SETUP -#line 1274 "gabc/gabc-notes-determination.l" -{ - gregorio_add_special_sign(current_note, _MUSICA_FICTA_SHARP); - } - YY_BREAK -case 104: -YY_RULE_SETUP -#line 1277 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_FLAT, legacy_oriscus_orientation); - } - YY_BREAK -case 105: -YY_RULE_SETUP -#line 1280 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_SHARP, - legacy_oriscus_orientation); - } - YY_BREAK -case 106: -YY_RULE_SETUP -#line 1284 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_NATURAL, - legacy_oriscus_orientation); - } - YY_BREAK -case 107: -YY_RULE_SETUP -#line 1288 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_HALF_SPACE, NULL, - ¬es_lloc); - } - YY_BREAK -case 108: -YY_RULE_SETUP -#line 1292 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_INTERGLYPH_SPACE, NULL, - ¬es_lloc); - } - YY_BREAK -case 109: -YY_RULE_SETUP -#line 1296 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_NEUMATIC_CUT, NULL, - ¬es_lloc); - } - YY_BREAK -case 110: -*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ -(yy_c_buf_p) = yy_cp = yy_bp + 1; -YY_DO_BEFORE_ACTION; /* set up yytext again */ -YY_RULE_SETUP -#line 1300 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_NEUMATIC_CUT, NULL, - ¬es_lloc); - } - YY_BREAK -case 111: -YY_RULE_SETUP -#line 1304 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_LARGER_SPACE, NULL, - ¬es_lloc); - } - YY_BREAK -case 112: -YY_RULE_SETUP -#line 1308 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_GLYPH_SPACE, NULL, - ¬es_lloc); - } - YY_BREAK -case 113: -YY_RULE_SETUP -#line 1312 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_NEUMATIC_CUT_NB, NULL, - ¬es_lloc); - } - YY_BREAK -case 114: -*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ -(yy_c_buf_p) = yy_cp = yy_bp + 2; -YY_DO_BEFORE_ACTION; /* set up yytext again */ -YY_RULE_SETUP -#line 1316 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_NEUMATIC_CUT_NB, NULL, - ¬es_lloc); - } - YY_BREAK -case 115: -YY_RULE_SETUP -#line 1320 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_LARGER_SPACE_NB, NULL, - ¬es_lloc); - } - YY_BREAK -case 116: -YY_RULE_SETUP -#line 1324 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_GLYPH_SPACE_NB, NULL, - ¬es_lloc); - } - YY_BREAK -case 117: -/* rule 117 can match eol */ -*yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ -YY_LINENO_REWIND_TO(yy_bp + 1); -(yy_c_buf_p) = yy_cp = yy_bp + 1; -YY_DO_BEFORE_ACTION; /* set up yytext again */ -YY_RULE_SETUP -#line 1328 "gabc/gabc-notes-determination.l" -{ - gregorio_add_space_as_note(¤t_note, SP_ZERO_WIDTH, NULL, - ¬es_lloc); - } - YY_BREAK -case 118: -YY_RULE_SETUP -#line 1332 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_LINEA, - legacy_oriscus_orientation); - } - YY_BREAK -case 119: -YY_RULE_SETUP -#line 1336 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_BIVIRGA, _NO_SIGN, L_NO_LIQUESCENTIA); - } - YY_BREAK -case 120: -YY_RULE_SETUP -#line 1339 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_TRIVIRGA, _NO_SIGN, L_NO_LIQUESCENTIA); - } - YY_BREAK -case 121: -YY_RULE_SETUP -#line 1342 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_BIVIRGA, _NO_SIGN, L_NO_LIQUESCENTIA); - } - YY_BREAK -case 122: -YY_RULE_SETUP -#line 1345 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_TRIVIRGA, _NO_SIGN, L_NO_LIQUESCENTIA); - } - YY_BREAK -case 123: -YY_RULE_SETUP -#line 1348 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_DISTROPHA, _NO_SIGN, L_NO_LIQUESCENTIA); - } - YY_BREAK -case 124: -YY_RULE_SETUP -#line 1351 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_DISTROPHA, _NO_SIGN, L_AUCTUS_ASCENDENS); - } - YY_BREAK -case 125: -YY_RULE_SETUP -#line 1354 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_TRISTROPHA, _NO_SIGN, L_NO_LIQUESCENTIA); - } - YY_BREAK -case 126: -YY_RULE_SETUP -#line 1357 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_TRISTROPHA, _NO_SIGN, L_AUCTUS_ASCENDENS); - } - YY_BREAK -case 127: -YY_RULE_SETUP -#line 1360 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, S_PUNCTUM, _NO_SIGN, L_NO_LIQUESCENTIA); - } - YY_BREAK -case 128: -YY_RULE_SETUP -#line 1363 "gabc/gabc-notes-determination.l" -{ - lex_add_note(1, S_PUNCTUM, _NO_SIGN, L_INITIO_DEBILIS); - } - YY_BREAK -case 129: -YY_RULE_SETUP -#line 1366 "gabc/gabc-notes-determination.l" -{ - lex_add_note(1, S_PUNCTUM, _NO_SIGN, L_FUSED); - } - YY_BREAK -case 130: -YY_RULE_SETUP -#line 1369 "gabc/gabc-notes-determination.l" -{ - lex_add_note(0, punctum_inclinatum(gabc_notes_determination_text[1]), - _NO_SIGN, L_NO_LIQUESCENTIA); - } - YY_BREAK -case 131: -YY_RULE_SETUP -#line 1373 "gabc/gabc-notes-determination.l" -{ - lex_add_note(1, punctum_inclinatum(gabc_notes_determination_text[2]), - _NO_SIGN, L_INITIO_DEBILIS); - } - YY_BREAK -case 132: -YY_RULE_SETUP -#line 1377 "gabc/gabc-notes-determination.l" -{ - lex_add_note(1, punctum_inclinatum(gabc_notes_determination_text[2]), - _NO_SIGN, L_FUSED); - } - YY_BREAK -case 133: -YY_RULE_SETUP -#line 1381 "gabc/gabc-notes-determination.l" -{ - add_sign(_V_EPISEMA); - } - YY_BREAK -case 134: -YY_RULE_SETUP -#line 1384 "gabc/gabc-notes-determination.l" -{ - add_h_episema(); - } - YY_BREAK -case 135: -YY_RULE_SETUP -#line 1387 "gabc/gabc-notes-determination.l" -{ - add_sign(_PUNCTUM_MORA); - } - YY_BREAK -case 136: -YY_RULE_SETUP -#line 1390 "gabc/gabc-notes-determination.l" -{ - gregorio_add_tail_liquescentia(current_note, L_DEMINUTUS, - legacy_oriscus_orientation); - } - YY_BREAK -case 137: -YY_RULE_SETUP -#line 1394 "gabc/gabc-notes-determination.l" -{ - gregorio_add_tail_liquescentia(current_note, L_AUCTUS_DESCENDENS, - legacy_oriscus_orientation); - } - YY_BREAK -case 138: -YY_RULE_SETUP -#line 1398 "gabc/gabc-notes-determination.l" -{ - gregorio_add_tail_liquescentia(current_note, L_AUCTUS_ASCENDENS, - legacy_oriscus_orientation); - } - YY_BREAK -case 139: -YY_RULE_SETUP -#line 1402 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_QUADRATUM, - legacy_oriscus_orientation); - } - YY_BREAK -case 140: -YY_RULE_SETUP -#line 1406 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_ORISCUS_UNDETERMINED, - legacy_oriscus_orientation); - } - YY_BREAK -case 141: -YY_RULE_SETUP -#line 1410 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_ORISCUS_DESCENDENS, - legacy_oriscus_orientation); - } - YY_BREAK -case 142: -YY_RULE_SETUP -#line 1414 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_ORISCUS_ASCENDENS, - legacy_oriscus_orientation); - } - YY_BREAK -case 143: -YY_RULE_SETUP -#line 1418 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_ORISCUS_SCAPUS_UNDETERMINED, - legacy_oriscus_orientation); - } - YY_BREAK -case 144: -YY_RULE_SETUP -#line 1422 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_ORISCUS_SCAPUS_DESCENDENS, - legacy_oriscus_orientation); - } - YY_BREAK -case 145: -YY_RULE_SETUP -#line 1426 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_ORISCUS_SCAPUS_ASCENDENS, - legacy_oriscus_orientation); - } - YY_BREAK -case 146: -YY_RULE_SETUP -#line 1430 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_QUILISMA, - legacy_oriscus_orientation); - } - YY_BREAK -case 147: -YY_RULE_SETUP -#line 1434 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_QUILISMA_QUADRATUM, - legacy_oriscus_orientation); - } - YY_BREAK -case 148: -YY_RULE_SETUP -#line 1438 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_VIRGA, - legacy_oriscus_orientation); - } - YY_BREAK -case 149: -YY_RULE_SETUP -#line 1442 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_VIRGA_REVERSA, - legacy_oriscus_orientation); - } - YY_BREAK -case 150: -YY_RULE_SETUP -#line 1446 "gabc/gabc-notes-determination.l" -{ - gregorio_change_shape(current_note, S_STROPHA, - legacy_oriscus_orientation); - } - YY_BREAK -case 151: -YY_RULE_SETUP -#line 1450 "gabc/gabc-notes-determination.l" -{ - LEDGER(high, EXPLICIT, true); - } - YY_BREAK -case 152: -YY_RULE_SETUP -#line 1453 "gabc/gabc-notes-determination.l" -{ - LEDGER(high, EXPLICIT, false); - } - YY_BREAK -case 153: -YY_RULE_SETUP -#line 1456 "gabc/gabc-notes-determination.l" -{ - LEDGER(low, EXPLICIT, true); - } - YY_BREAK -case 154: -YY_RULE_SETUP -#line 1459 "gabc/gabc-notes-determination.l" -{ - LEDGER(low, EXPLICIT, false); - } - YY_BREAK -case 155: -/* rule 155 can match eol */ -YY_RULE_SETUP -#line 1462 "gabc/gabc-notes-determination.l" -{ - gregorio_messagef("det_notes_from_string", VERBOSITY_ERROR, 0, - _("unrecognized character: \"%c\""), - gabc_notes_determination_text[0]); - } - YY_BREAK -case 156: -YY_RULE_SETUP -#line 1468 "gabc/gabc-notes-determination.l" -ECHO; - YY_BREAK -#line 14101 "gabc/gabc-notes-determination-l.c" -case YY_STATE_EOF(INITIAL): -case YY_STATE_EOF(texverbnote): -case YY_STATE_EOF(texverbglyph): -case YY_STATE_EOF(texverbelement): -case YY_STATE_EOF(choralsign): -case YY_STATE_EOF(choralnabc): -case YY_STATE_EOF(alt): -case YY_STATE_EOF(comments): -case YY_STATE_EOF(overbrace): -case YY_STATE_EOF(underbrace): -case YY_STATE_EOF(overcurlybrace): -case YY_STATE_EOF(overcurlyaccentusbrace): -case YY_STATE_EOF(space): -case YY_STATE_EOF(nbspace): -case YY_STATE_EOF(overledger): -case YY_STATE_EOF(overledger2): -case YY_STATE_EOF(underledger): -case YY_STATE_EOF(underledger2): -case YY_STATE_EOF(endledger): - yyterminate(); - - case YY_END_OF_BUFFER: - { - /* Amount of text matched not including the EOB char. */ - int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1; - - /* Undo the effects of YY_DO_BEFORE_ACTION. */ - *yy_cp = (yy_hold_char); - YY_RESTORE_YY_MORE_OFFSET - - if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW ) - { - /* We're scanning a new file or input source. It's - * possible that this happened because the user - * just pointed yyin at a new source and called - * yylex(). If so, then we have to assure - * consistency between YY_CURRENT_BUFFER and our - * globals. Here is the right place to do so, because - * this is the first action (other than possibly a - * back-up) that will match for the new input source. - */ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL; - } - - /* Note that here we test for yy_c_buf_p "<=" to the position - * of the first EOB in the buffer, since yy_c_buf_p will - * already have been incremented past the NUL character - * (since all states make transitions on EOB to the - * end-of-buffer state). Contrast this with the test - * in input(). - */ - if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) - { /* This was really a NUL. */ - yy_state_type yy_next_state; - - (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state( ); - - /* Okay, we're now positioned to make the NUL - * transition. We couldn't have - * yy_get_previous_state() go ahead and do it - * for us because it doesn't know how to deal - * with the possibility of jamming (and we don't - * want to build jamming into it because then it - * will run more slowly). - */ - - yy_next_state = yy_try_NUL_trans( yy_current_state ); - - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - - if ( yy_next_state ) - { - /* Consume the NUL. */ - yy_cp = ++(yy_c_buf_p); - yy_current_state = yy_next_state; - goto yy_match; - } - - else - { - yy_cp = (yy_c_buf_p); - goto yy_find_action; - } - } - - else switch ( yy_get_next_buffer( ) ) - { - case EOB_ACT_END_OF_FILE: - { - (yy_did_buffer_switch_on_eof) = 0; - - if ( yywrap( ) ) - { - /* Note: because we've taken care in - * yy_get_next_buffer() to have set up - * yytext, we can now set up - * yy_c_buf_p so that if some total - * hoser (like flex itself) wants to - * call the scanner after we return the - * YY_NULL, it'll still work - another - * YY_NULL will get returned. - */ - (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ; - - yy_act = YY_STATE_EOF(YY_START); - goto do_action; - } - - else - { - if ( ! (yy_did_buffer_switch_on_eof) ) - YY_NEW_FILE; - } - break; - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = - (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state( ); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_match; - - case EOB_ACT_LAST_MATCH: - (yy_c_buf_p) = - &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]; - - yy_current_state = yy_get_previous_state( ); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_find_action; - } - break; - } - - default: - YY_FATAL_ERROR( - "fatal flex scanner internal error--no action found" ); - } /* end of action switch */ - } /* end of scanning one token */ - } /* end of user's declarations */ -} /* end of yylex */ - -/* yy_get_next_buffer - try to read in a new buffer - * - * Returns a code representing an action: - * EOB_ACT_LAST_MATCH - - * EOB_ACT_CONTINUE_SCAN - continue scanning from current position - * EOB_ACT_END_OF_FILE - end of file - */ -static int yy_get_next_buffer (void) -{ - char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; - char *source = (yytext_ptr); - int number_to_move, i; - int ret_val; - - if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] ) - YY_FATAL_ERROR( - "fatal flex scanner internal error--end of buffer missed" ); - - if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 ) - { /* Don't try to fill the buffer, so this is an EOF. */ - if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 ) - { - /* We matched a single character, the EOB, so - * treat this as a final EOF. - */ - return EOB_ACT_END_OF_FILE; - } - - else - { - /* We matched some text prior to the EOB, first - * process it. - */ - return EOB_ACT_LAST_MATCH; - } - } - - /* Try to read more data. */ - - /* First move last chars to start of buffer. */ - number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr) - 1); - - for ( i = 0; i < number_to_move; ++i ) - *(dest++) = *(source++); - - if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING ) - /* don't do the read, it's not guaranteed to return an EOF, - * just force an EOF - */ - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0; - - else - { - int num_to_read = - YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; - - while ( num_to_read <= 0 ) - { /* Not enough room in the buffer - grow it. */ - - /* just a shorter name for the current buffer */ - YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; - - int yy_c_buf_p_offset = - (int) ((yy_c_buf_p) - b->yy_ch_buf); - - if ( b->yy_is_our_buffer ) - { - int new_size = b->yy_buf_size * 2; - - if ( new_size <= 0 ) - b->yy_buf_size += b->yy_buf_size / 8; - else - b->yy_buf_size *= 2; - - b->yy_ch_buf = (char *) - /* Include room in for 2 EOB chars. */ - yyrealloc( (void *) b->yy_ch_buf, - (yy_size_t) (b->yy_buf_size + 2) ); - } - else - /* Can't grow it, we don't own it. */ - b->yy_ch_buf = NULL; - - if ( ! b->yy_ch_buf ) - YY_FATAL_ERROR( - "fatal error - scanner input buffer overflow" ); - - (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset]; - - num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - - number_to_move - 1; - - } - - if ( num_to_read > YY_READ_BUF_SIZE ) - num_to_read = YY_READ_BUF_SIZE; - - /* Read in more data. */ - YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), - (yy_n_chars), num_to_read ); - - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - if ( (yy_n_chars) == 0 ) - { - if ( number_to_move == YY_MORE_ADJ ) - { - ret_val = EOB_ACT_END_OF_FILE; - yyrestart( yyin ); - } - - else - { - ret_val = EOB_ACT_LAST_MATCH; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = - YY_BUFFER_EOF_PENDING; - } - } - - else - ret_val = EOB_ACT_CONTINUE_SCAN; - - if (((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { - /* Extend the array by 50%, plus the number we really need. */ - int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc( - (void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, (yy_size_t) new_size ); - if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" ); - /* "- 2" to take care of EOB's */ - YY_CURRENT_BUFFER_LVALUE->yy_buf_size = (int) (new_size - 2); - } - - (yy_n_chars) += number_to_move; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR; - - (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0]; - - return ret_val; -} - -/* yy_get_previous_state - get the state just before the EOB char was reached */ - - static yy_state_type yy_get_previous_state (void) -{ - yy_state_type yy_current_state; - char *yy_cp; - - yy_current_state = (yy_start); - - for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) - { - if ( *yy_cp ) - { - yy_current_state = yy_nxt[yy_current_state][YY_SC_TO_UI(*yy_cp)]; - } - else - yy_current_state = yy_NUL_trans[yy_current_state]; - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - } - - return yy_current_state; -} - -/* yy_try_NUL_trans - try to make a transition on the NUL character - * - * synopsis - * next_state = yy_try_NUL_trans( current_state ); - */ - static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state ) -{ - int yy_is_jam; - char *yy_cp = (yy_c_buf_p); - - yy_current_state = yy_NUL_trans[yy_current_state]; - yy_is_jam = (yy_current_state == 0); - - if ( ! yy_is_jam ) - { - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - } - - return yy_is_jam ? 0 : yy_current_state; -} - -#ifndef YY_NO_UNPUT - -#endif - -#ifndef YY_NO_INPUT -#ifdef __cplusplus - static int yyinput (void) -#else - static int input (void) -#endif - -{ - int c; - - *(yy_c_buf_p) = (yy_hold_char); - - if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR ) - { - /* yy_c_buf_p now points to the character we want to return. - * If this occurs *before* the EOB characters, then it's a - * valid NUL; if not, then we've hit the end of the buffer. - */ - if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) - /* This was really a NUL. */ - *(yy_c_buf_p) = '\0'; - - else - { /* need more input */ - int offset = (int) ((yy_c_buf_p) - (yytext_ptr)); - ++(yy_c_buf_p); - - switch ( yy_get_next_buffer( ) ) - { - case EOB_ACT_LAST_MATCH: - /* This happens because yy_g_n_b() - * sees that we've accumulated a - * token and flags that we need to - * try matching the token before - * proceeding. But for input(), - * there's no matching to consider. - * So convert the EOB_ACT_LAST_MATCH - * to EOB_ACT_END_OF_FILE. - */ - - /* Reset buffer status. */ - yyrestart( yyin ); - - /*FALLTHROUGH*/ - - case EOB_ACT_END_OF_FILE: - { - if ( yywrap( ) ) - return 0; - - if ( ! (yy_did_buffer_switch_on_eof) ) - YY_NEW_FILE; -#ifdef __cplusplus - return yyinput(); -#else - return input(); -#endif - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = (yytext_ptr) + offset; - break; - } - } - } - - c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */ - *(yy_c_buf_p) = '\0'; /* preserve yytext */ - (yy_hold_char) = *++(yy_c_buf_p); - - return c; -} -#endif /* ifndef YY_NO_INPUT */ - -/** Immediately switch to a different input stream. - * @param input_file A readable stream. - * - * @note This function does not reset the start condition to @c INITIAL . - */ - void yyrestart (FILE * input_file ) -{ - - if ( ! YY_CURRENT_BUFFER ){ - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer( yyin, YY_BUF_SIZE ); - } - - yy_init_buffer( YY_CURRENT_BUFFER, input_file ); - yy_load_buffer_state( ); -} - -/** Switch to a different input buffer. - * @param new_buffer The new input buffer. - * - */ - void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ) -{ - - /* TODO. We should be able to replace this entire function body - * with - * yypop_buffer_state(); - * yypush_buffer_state(new_buffer); - */ - yyensure_buffer_stack (); - if ( YY_CURRENT_BUFFER == new_buffer ) - return; - - if ( YY_CURRENT_BUFFER ) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - YY_CURRENT_BUFFER_LVALUE = new_buffer; - yy_load_buffer_state( ); - - /* We don't actually know whether we did this switch during - * EOF (yywrap()) processing, but the only time this flag - * is looked at is after yywrap() is called, so it's safe - * to go ahead and always set it. - */ - (yy_did_buffer_switch_on_eof) = 1; -} - -static void yy_load_buffer_state (void) -{ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos; - yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file; - (yy_hold_char) = *(yy_c_buf_p); -} - -/** Allocate and initialize an input buffer state. - * @param file A readable stream. - * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE. - * - * @return the allocated buffer state. - */ - YY_BUFFER_STATE yy_create_buffer (FILE * file, int size ) -{ - YY_BUFFER_STATE b; - - b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); - if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); - - b->yy_buf_size = size; - - /* yy_ch_buf has to be 2 characters longer than the size given because - * we need to put in 2 end-of-buffer characters. - */ - b->yy_ch_buf = (char *) yyalloc( (yy_size_t) (b->yy_buf_size + 2) ); - if ( ! b->yy_ch_buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); - - b->yy_is_our_buffer = 1; - - yy_init_buffer( b, file ); - - return b; -} - -/** Destroy the buffer. - * @param b a buffer created with yy_create_buffer() - * - */ - void yy_delete_buffer (YY_BUFFER_STATE b ) -{ - - if ( ! b ) - return; - - if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */ - YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0; - - if ( b->yy_is_our_buffer ) - yyfree( (void *) b->yy_ch_buf ); - - yyfree( (void *) b ); -} - -/* Initializes or reinitializes a buffer. - * This function is sometimes called more than once on the same buffer, - * such as during a yyrestart() or at EOF. - */ - static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file ) - -{ - int oerrno = errno; - - yy_flush_buffer( b ); - - b->yy_input_file = file; - b->yy_fill_buffer = 1; - - /* If b is the current buffer, then yy_init_buffer was _probably_ - * called from yyrestart() or through yy_get_next_buffer. - * In that case, we don't want to reset the lineno or column. - */ - if (b != YY_CURRENT_BUFFER){ - b->yy_bs_lineno = 1; - b->yy_bs_column = 0; - } - - b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0; - - errno = oerrno; -} - -/** Discard all buffered characters. On the next scan, YY_INPUT will be called. - * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER. - * - */ - void yy_flush_buffer (YY_BUFFER_STATE b ) -{ - if ( ! b ) - return; - - b->yy_n_chars = 0; - - /* We always need two end-of-buffer characters. The first causes - * a transition to the end-of-buffer state. The second causes - * a jam in that state. - */ - b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; - b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; - - b->yy_buf_pos = &b->yy_ch_buf[0]; - - b->yy_at_bol = 1; - b->yy_buffer_status = YY_BUFFER_NEW; - - if ( b == YY_CURRENT_BUFFER ) - yy_load_buffer_state( ); -} - -/** Pushes the new state onto the stack. The new state becomes - * the current state. This function will allocate the stack - * if necessary. - * @param new_buffer The new state. - * - */ -void yypush_buffer_state (YY_BUFFER_STATE new_buffer ) -{ - if (new_buffer == NULL) - return; - - yyensure_buffer_stack(); - - /* This block is copied from yy_switch_to_buffer. */ - if ( YY_CURRENT_BUFFER ) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - /* Only push if top exists. Otherwise, replace top. */ - if (YY_CURRENT_BUFFER) - (yy_buffer_stack_top)++; - YY_CURRENT_BUFFER_LVALUE = new_buffer; - - /* copied from yy_switch_to_buffer. */ - yy_load_buffer_state( ); - (yy_did_buffer_switch_on_eof) = 1; -} - -/** Removes and deletes the top of the stack, if present. - * The next element becomes the new top. - * - */ -void yypop_buffer_state (void) -{ - if (!YY_CURRENT_BUFFER) - return; - - yy_delete_buffer(YY_CURRENT_BUFFER ); - YY_CURRENT_BUFFER_LVALUE = NULL; - if ((yy_buffer_stack_top) > 0) - --(yy_buffer_stack_top); - - if (YY_CURRENT_BUFFER) { - yy_load_buffer_state( ); - (yy_did_buffer_switch_on_eof) = 1; - } -} - -/* Allocates the stack if it does not exist. - * Guarantees space for at least one push. - */ -static void yyensure_buffer_stack (void) -{ - yy_size_t num_to_alloc; - - if (!(yy_buffer_stack)) { - - /* First allocation is just for 2 elements, since we don't know if this - * scanner will even need a stack. We use 2 instead of 1 to avoid an - * immediate realloc on the next call. - */ - num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */ - (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc - (num_to_alloc * sizeof(struct yy_buffer_state*) - ); - if ( ! (yy_buffer_stack) ) - YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); - - memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); - - (yy_buffer_stack_max) = num_to_alloc; - (yy_buffer_stack_top) = 0; - return; - } - - if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){ - - /* Increase the buffer to prepare for a possible push. */ - yy_size_t grow_size = 8 /* arbitrary grow size */; - - num_to_alloc = (yy_buffer_stack_max) + grow_size; - (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc - ((yy_buffer_stack), - num_to_alloc * sizeof(struct yy_buffer_state*) - ); - if ( ! (yy_buffer_stack) ) - YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); - - /* zero only the new slots.*/ - memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*)); - (yy_buffer_stack_max) = num_to_alloc; - } -} - -/** Setup the input buffer state to scan directly from a user-specified character buffer. - * @param base the character buffer - * @param size the size in bytes of the character buffer - * - * @return the newly allocated buffer state object. - */ -YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) -{ - YY_BUFFER_STATE b; - - if ( size < 2 || - base[size-2] != YY_END_OF_BUFFER_CHAR || - base[size-1] != YY_END_OF_BUFFER_CHAR ) - /* They forgot to leave room for the EOB's. */ - return NULL; - - b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); - if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); - - b->yy_buf_size = (int) (size - 2); /* "- 2" to take care of EOB's */ - b->yy_buf_pos = b->yy_ch_buf = base; - b->yy_is_our_buffer = 0; - b->yy_input_file = NULL; - b->yy_n_chars = b->yy_buf_size; - b->yy_is_interactive = 0; - b->yy_at_bol = 1; - b->yy_fill_buffer = 0; - b->yy_buffer_status = YY_BUFFER_NEW; - - yy_switch_to_buffer( b ); - - return b; -} - -/** Setup the input buffer state to scan a string. The next call to yylex() will - * scan from a @e copy of @a str. - * @param yystr a NUL-terminated string to scan - * - * @return the newly allocated buffer state object. - * @note If you want to scan bytes that may contain NUL values, then use - * yy_scan_bytes() instead. - */ -YY_BUFFER_STATE yy_scan_string (const char * yystr ) -{ - - return yy_scan_bytes( yystr, (int) strlen(yystr) ); -} - -/** Setup the input buffer state to scan the given bytes. The next call to yylex() will - * scan from a @e copy of @a bytes. - * @param yybytes the byte buffer to scan - * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes. - * - * @return the newly allocated buffer state object. - */ -YY_BUFFER_STATE yy_scan_bytes (const char * yybytes, int _yybytes_len ) -{ - YY_BUFFER_STATE b; - char *buf; - yy_size_t n; - int i; - - /* Get memory for full buffer, including space for trailing EOB's. */ - n = (yy_size_t) (_yybytes_len + 2); - buf = (char *) yyalloc( n ); - if ( ! buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); - - for ( i = 0; i < _yybytes_len; ++i ) - buf[i] = yybytes[i]; - - buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR; - - b = yy_scan_buffer( buf, n ); - if ( ! b ) - YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); - - /* It's okay to grow etc. this buffer, and we should throw it - * away when we're done. - */ - b->yy_is_our_buffer = 1; - - return b; -} - -#ifndef YY_EXIT_FAILURE -#define YY_EXIT_FAILURE 2 -#endif - -static void yynoreturn yy_fatal_error (const char* msg ) -{ - fprintf( stderr, "%s\n", msg ); - exit( YY_EXIT_FAILURE ); -} - -/* Redefine yyless() so it works in section 3 code. */ - -#undef yyless -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg);\ - yytext[yyleng] = (yy_hold_char); \ - (yy_c_buf_p) = yytext + yyless_macro_arg; \ - (yy_hold_char) = *(yy_c_buf_p); \ - *(yy_c_buf_p) = '\0'; \ - yyleng = yyless_macro_arg; \ - } \ - while ( 0 ) - -/* Accessor methods (get/set functions) to struct members. */ - -/** Get the current line number. - * - */ -int yyget_lineno (void) -{ - - return yylineno; -} - -/** Get the input stream. - * - */ -FILE *yyget_in (void) -{ - return yyin; -} - -/** Get the output stream. - * - */ -FILE *yyget_out (void) -{ - return yyout; -} - -/** Get the length of the current token. - * - */ -int yyget_leng (void) -{ - return yyleng; -} - -/** Get the current token. - * - */ - -char *yyget_text (void) -{ - return yytext; -} - -/** Set the current line number. - * @param _line_number line number - * - */ -void yyset_lineno (int _line_number ) -{ - - yylineno = _line_number; -} - -/** Set the input stream. This does not discard the current - * input buffer. - * @param _in_str A readable stream. - * - * @see yy_switch_to_buffer - */ -void yyset_in (FILE * _in_str ) -{ - yyin = _in_str ; -} - -void yyset_out (FILE * _out_str ) -{ - yyout = _out_str ; -} - -int yyget_debug (void) -{ - return yy_flex_debug; -} - -void yyset_debug (int _bdebug ) -{ - yy_flex_debug = _bdebug ; -} - -static int yy_init_globals (void) -{ - /* Initialization is the same as for the non-reentrant scanner. - * This function is called from yylex_destroy(), so don't allocate here. - */ - - (yy_buffer_stack) = NULL; - (yy_buffer_stack_top) = 0; - (yy_buffer_stack_max) = 0; - (yy_c_buf_p) = NULL; - (yy_init) = 0; - (yy_start) = 0; - - (yy_start_stack_ptr) = 0; - (yy_start_stack_depth) = 0; - (yy_start_stack) = NULL; - -/* Defined in main.c */ -#ifdef YY_STDINIT - yyin = stdin; - yyout = stdout; -#else - yyin = NULL; - yyout = NULL; -#endif - - /* For future reference: Set errno on error, since we are called by - * yylex_init() - */ - return 0; -} - -/* yylex_destroy is for both reentrant and non-reentrant scanners. */ -int yylex_destroy (void) -{ - - /* Pop the buffer stack, destroying each element. */ - while(YY_CURRENT_BUFFER){ - yy_delete_buffer( YY_CURRENT_BUFFER ); - YY_CURRENT_BUFFER_LVALUE = NULL; - yypop_buffer_state(); - } - - /* Destroy the stack itself. */ - yyfree((yy_buffer_stack) ); - (yy_buffer_stack) = NULL; - - /* Destroy the start condition stack. */ - yyfree( (yy_start_stack) ); - (yy_start_stack) = NULL; - - /* Reset the globals. This is important in a non-reentrant scanner so the next time - * yylex() is called, initialization will occur. */ - yy_init_globals( ); - - return 0; -} - -/* - * Internal utility routines. - */ - -#ifndef yytext_ptr -static void yy_flex_strncpy (char* s1, const char * s2, int n ) -{ - - int i; - for ( i = 0; i < n; ++i ) - s1[i] = s2[i]; -} -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen (const char * s ) -{ - int n; - for ( n = 0; s[n]; ++n ) - ; - - return n; -} -#endif - -void *yyalloc (yy_size_t size ) -{ - return malloc(size); -} - -void *yyrealloc (void * ptr, yy_size_t size ) -{ - - /* The cast to (char *) in the following accommodates both - * implementations that use char* generic pointers, and those - * that use void* generic pointers. It works with the latter - * because both ANSI C and C++ allow castless assignment from - * any pointer type to void*, and deal with argument conversions - * as though doing an assignment. - */ - return realloc(ptr, size); -} - -void yyfree (void * ptr ) -{ - free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ -} - -#define YYTABLES_NAME "yytables" - -#line 1468 "gabc/gabc-notes-determination.l" - - -gregorio_note *gabc_det_notes_from_string(char *str, char *newmacros[10], - gregorio_scanner_location *loc, const gregorio_score *const score) -{ - int i; - YY_BUFFER_STATE buf; - - notes_lloc.first_line = loc->first_line; - notes_lloc.first_column = loc->first_column; - notes_lloc.first_offset = loc->first_offset; - /* yes... I do mean to set values from loc->first_* */ - notes_lloc.last_line = loc->first_line; - notes_lloc.last_column = loc->first_column; - notes_lloc.last_offset = loc->first_offset; - notes_lloc.generate_point_and_click = loc->generate_point_and_click; - - staff_lines = score->staff_lines; - highest_pitch = score->highest_pitch; - high_ledger_line_pitch = score->high_ledger_line_pitch; - legacy_oriscus_orientation = score->legacy_oriscus_orientation; - - /* a small optimization could uccur here: we could do it only once at the - * beginning of the score, not at each syllable */ - for (i = 0; i < 10; i++) { - notesmacros[i] = newmacros[i]; - } - nbof_isolated_episema = 0; - current_note = NULL; - buf = yy_scan_string(str); - yylex(); - yy_flush_buffer(buf); - yy_delete_buffer(buf); - gregorio_go_to_first_note(¤t_note); - return current_note; -} - diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-notes-determination.l b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-notes-determination.l deleted file mode 100644 index d19e53f51ae..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-notes-determination.l +++ /dev/null @@ -1,1503 +0,0 @@ -%{ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the note parser. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <ctype.h> /* for tolower */ -#include "bool.h" -#include "struct.h" -#include "messages.h" -#include "support.h" - -#include "gabc.h" - -#define YY_NO_INPUT - -#define YY_USER_ACTION gabc_update_location(¬es_lloc, \ - gabc_notes_determination_text, gabc_notes_determination_leng); - -static gregorio_scanner_location notes_lloc; -static gregorio_note *current_note; -static char char_for_brace; -static unsigned int nbof_isolated_episema; -static char *notesmacros[10]; -static char tempstr[256]; -static unsigned short overbrace_var = 0, underbrace_var = 0; -static const char *overbrace_var_kind; -static int before_ledger_type; -static char *before_ledger_length = NULL; -static unsigned short ledger_var[2] = { 0, 0 }; -static unsigned char staff_lines; -static signed char highest_pitch; -static signed char high_ledger_line_pitch; -static bool legacy_oriscus_orientation; -static unsigned short he_adjustment_index[2] = { 0, 0 }; -static signed char bracket_low_pitch, bracket_high_pitch; -static unsigned short left_bracket_texverb = 0; - -#define LEDGER(WHICH, SPECIFICITY, VALUE) \ - if (LEDGER_##SPECIFICITY > current_note->WHICH##_ledger_specificity) { \ - current_note->WHICH##_ledger_line = VALUE; \ - current_note->WHICH##_ledger_specificity = LEDGER_##SPECIFICITY; \ - } - -typedef struct slur_info { - unsigned short var; - char shift; - gregorio_note *start; -} slur_info; - -static slur_info slur[2] = { { 0, '\0', NULL }, { 0, '\0', NULL } }; - -static __inline gregorio_sign_orientation letter_to_sign_orientation( - const char letter) { - switch (letter) { - case 'u': /* "u"under */ - return SO_UNDER; - case 'o': /* "o"ver */ - return SO_OVER; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(letter_to_sign_orientation, - "invalid sign orientation letter: %c", letter); - return SO_OVER; - /* LCOV_EXCL_STOP */ -} - -static __inline int letter_to_pitch_adjustment(const char letter) { - switch (letter_to_sign_orientation(letter)) { - case SO_OVER: - return 1; - case SO_UNDER: - return -1; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(letter_to_pitch_adjustment, - "invalid sign orientation letter: %c", letter); - return 0; - /* LCOV_EXCL_STOP */ -} - -static __inline signed char pitch_letter_to_height(const char pitch) { - char result = pitch - 'a' + LOWEST_PITCH; - if (pitch == 'p') { - --result; - } - if (result > highest_pitch) { - gregorio_messagef("pitch_letter_to_height", VERBOSITY_ERROR, 0, - _("invalid pitch for %u lines: %c"), (unsigned int)staff_lines, - pitch); - } - if (left_bracket_texverb) { - if (result < bracket_low_pitch) { - bracket_low_pitch = result; - } - if (result > bracket_high_pitch) { - bracket_high_pitch = result; - } - } - return result; -} - -static gregorio_shape punctum_inclinatum(const char orientation) -{ - switch (orientation) { - case '0': - return S_PUNCTUM_INCLINATUM_DESCENDENS; - - case '2': - return S_PUNCTUM_INCLINATUM_STANS; - - case '1': - return S_PUNCTUM_INCLINATUM_ASCENDENS; - } - - return S_PUNCTUM_INCLINATUM_UNDETERMINED; -} - -static __inline void lex_add_note(int i, gregorio_shape shape, char signs, - char liquescentia) -{ - signed char height = pitch_letter_to_height(tolower( - (unsigned char)gabc_notes_determination_text[i])); - - nbof_isolated_episema = 0; - gregorio_add_note(¤t_note, height, shape, signs, liquescentia, NULL, - ¬es_lloc); - current_note->he_adjustment_index[SO_OVER] = he_adjustment_index[SO_OVER]; - current_note->he_adjustment_index[SO_UNDER] = he_adjustment_index[SO_UNDER]; - - if (height >= high_ledger_line_pitch) { - LEDGER(high, DRAWN, true); - } else if (ledger_var[SO_OVER]) { - LEDGER(high, EXPLICIT, true); - } - - if (height <= LOW_LEDGER_LINE_PITCH) { - LEDGER(low, DRAWN, true); - } else if (ledger_var[SO_UNDER]) { - LEDGER(low, EXPLICIT, true); - } -} - -static __inline void add_bar_as_note(gregorio_bar bar) -{ - nbof_isolated_episema = 0; - gregorio_add_bar_as_note(¤t_note, bar, ¬es_lloc); -} - -static __inline void error(void) -{ - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("undefined macro used: m%d"), - gabc_notes_determination_text[3] - '0'); -} - -static void add_h_episema(void) -{ - grehepisema_size size = H_NORMAL; - gregorio_vposition vposition = VPOS_AUTO; - bool disable_bridge = false; - - char *ptr = gabc_notes_determination_text; - char current; - /* first character is the underscore */ - while ((current = *(++ptr))) { - switch(current) { - case '0': - vposition = VPOS_BELOW; - break; - case '1': - vposition = VPOS_ABOVE; - break; - case '2': - disable_bridge = true; - break; - case '3': - size = H_SMALL_LEFT; - break; - case '4': - size = H_SMALL_CENTRE; - break; - case '5': - size = H_SMALL_RIGHT; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(gabc_notes_determination, - "unrecognized horizontal episema modifier: %c", current); - break; - /* LCOV_EXCL_STOP */ - }; - } - - gregorio_add_h_episema(current_note, size, vposition, disable_bridge, - &nbof_isolated_episema); -} - -static void add_sign(gregorio_sign sign) -{ - gregorio_vposition vposition = VPOS_AUTO; - switch(gabc_notes_determination_text[1]) { - case '0': - vposition = VPOS_BELOW; - break; - case '1': - vposition = VPOS_ABOVE; - break; - } - gregorio_add_sign(current_note, sign, vposition); -} - -static void save_before_ledger(const char *const before_ledger) -{ - if (strcmp(before_ledger, "0") == 0) { - before_ledger_type = 0; - before_ledger_length = ""; - } else if (strcmp(before_ledger, "1") == 0) { - before_ledger_type = 1; - before_ledger_length = ""; - } else { - before_ledger_type = 2; - before_ledger_length = gregorio_strdup(before_ledger); - } -} - -static void add_static_ledger(const gregorio_sign_orientation type, - const char *length) { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreDrawAdditionalLine{%d}{%s}{%d}{%s}{0}{}", - type, length + 1, before_ledger_type, before_ledger_length); - - if (before_ledger_type == 2) { - free(before_ledger_length); - before_ledger_length = NULL; - } - - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup(tempstr), - GRE_TEXVERB_GLYPH, ¬es_lloc); -} - -static __inline const char *over_or_under( - const gregorio_sign_orientation type) { - switch (type) { - case SO_OVER: - return "over"; - case SO_UNDER: - return "under"; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(over_or_under, "invalid ledger type %d", type); - return ""; - /* LCOV_EXCL_STOP */ -} - -static void add_variable_ledger(const gregorio_sign_orientation type, - const char *after_ledger) -{ - if (ledger_var[type]) { - const char *const typename = over_or_under(type); - gregorio_messagef("add_variable_ledger", VERBOSITY_ERROR, 0, - _("variable %s-staff ledger line without termination of " - "previous %s-staff ledger line"), typename, typename); - } else { - int after_ledger_type; - const char *after_ledger_length; - - ++after_ledger; - - if (strcmp(after_ledger, "0") == 0) { - after_ledger_type = 0; - after_ledger_length = ""; - } else if (strcmp(after_ledger, "1") == 0) { - after_ledger_type = 1; - after_ledger_length = ""; - } else { - after_ledger_type = 2; - after_ledger_length = after_ledger; - } - - ledger_var[type] = ++tex_position_id; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{0}{1}" - "\\GreDrawAdditionalLine{%d}{\\GreVarBraceLength{%hu}}" - "{%d}{%s}{%d}{%s}", - ledger_var[type], type, ledger_var[type], before_ledger_type, - before_ledger_length, after_ledger_type, after_ledger_length); - - if (before_ledger_type == 2) { - free(before_ledger_length); - before_ledger_length = NULL; - } - - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup(tempstr), - GRE_TEXVERB_GLYPH, ¬es_lloc); - } -} - -static void end_variable_ledger(const gregorio_sign_orientation type) -{ - if (!ledger_var[type]) { - const char *const typename = over_or_under(type); - gregorio_messagef("end_variable_ledger", VERBOSITY_ERROR, 0, - _("variable %s-staff ledger line termination without variable " - "%s-staff ledger line start"), typename, typename); - } else { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{0}{2}", ledger_var[type]); - ledger_var[type] = 0; - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup(tempstr), - GRE_TEXVERB_GLYPH, ¬es_lloc); - } -} - -static __inline int parse_clef_line(char line) -{ - line -= '0'; - if (line < 0 || line > staff_lines) { - gregorio_messagef("parse_clef_line", VERBOSITY_ERROR, 0, - _("invalid clef line for %u lines: %d"), - (unsigned int)staff_lines, (int)line); - return 1; - } - return line; -} - -static __inline gregorio_bar parse_dominican_bar(char bar) -{ - bar -= '0'; - if (bar < 1 || bar > (2 * (staff_lines - 1))) { - gregorio_messagef("parse_dominican_line", VERBOSITY_ERROR, 0, - _("invalid Dominican bar for %u lines: ;%d"), - (unsigned int)staff_lines, (int)bar); - } - - switch (bar) { - case 1: - return B_DIVISIO_MINOR_D1; - case 2: - return B_DIVISIO_MINOR_D2; - case 3: - return B_DIVISIO_MINOR_D3; - case 4: - return B_DIVISIO_MINOR_D4; - case 5: - return B_DIVISIO_MINOR_D5; - case 6: - return B_DIVISIO_MINOR_D6; - case 7: - return B_DIVISIO_MINOR_D7; - case 8: - return B_DIVISIO_MINOR_D8; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(check_dominican_line, "invalid dominican bar: %d", (int)bar); - return B_NO_BAR; - /* LCOV_EXCL_STOP */ -} - -static __inline gregorio_clef letter_to_clef(char letter) -{ - switch (letter) { - case 'c': - return CLEF_C; - case 'f': - return CLEF_F; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(letter_to_clef, "invalid clef: %c", letter); - return CLEF_C; - /* LCOV_EXCL_STOP */ -} - -/* this assertion should only fail if the lex rules are incorrect */ -static __inline void slur_assert(char *fn, bool test) { - if (!test) { - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_message(_("invalid slur text"), fn, VERBOSITY_FATAL, 0); - exit(1); - /* LCOV_EXCL_STOP */ - } -} - -static char *parse_slur_shift(char *shift) -{ - char *c; - - c = strchr(gabc_notes_determination_text, ':'); - slur_assert("parse_slur_shift", c != NULL); - slur_assert("parse_slur_shift", *(++c) != '\0'); - *shift = *c; - return c; -} - -static void parse_slur(void) -{ - const int direction = letter_to_pitch_adjustment( - gabc_notes_determination_text[1]); - char shift, *width, *height, *end; - - if (!current_note || current_note->type != GRE_NOTE) { - gregorio_message( - _("cannot add a slur to something that is not a note"), - "parse_slur", VERBOSITY_ERROR, 0); - return; - } - - end = parse_slur_shift(&shift); - width = strchr(end, ';'); - slur_assert("parse_slur", width != NULL); - height = strchr(++width, ','); - slur_assert("parse_slur", height != NULL); - *height = '\0'; - end = strchr(++height, ']'); - slur_assert("parse_slur", end != NULL); - *end = '\0'; - - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreSlur{%d}{%d}{%c}{%s}{%s}{}", - current_note->u.note.pitch + direction, direction, shift, width, - height); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); -} - -static void start_var_slur(void) -{ - const gregorio_sign_orientation index = letter_to_sign_orientation( - gabc_notes_determination_text[1]); - - if (!current_note || current_note->type != GRE_NOTE) { - gregorio_message( - _("cannot add a slur to something that is not a note"), - "start_var_slur", VERBOSITY_ERROR, 0); - return; - } - - if (slur[index].var) { - gregorio_messagef("start_var_slur", VERBOSITY_ERROR, 0, - _("variable %s-note slur without termination of previous slur"), - over_or_under(index)); - return; - } - - slur[index].var = ++tex_position_id; - parse_slur_shift(&(slur[index].shift)); - slur[index].start = current_note; -} - -static void end_var_slur(void) -{ - const int direction = letter_to_pitch_adjustment( - gabc_notes_determination_text[1]); - const gregorio_sign_orientation index = letter_to_sign_orientation( - gabc_notes_determination_text[1]); - char shift; - - if (!current_note || current_note->type != GRE_NOTE) { - gregorio_message( - _("cannot add a slur to something that is not a note"), - "end_var_slur", VERBOSITY_ERROR, 0); - return; - } - - if (!slur[index].var || !slur[index].shift || !slur[index].start) { - gregorio_messagef("end_var_slur", VERBOSITY_ERROR, 0, - _("variable %s-note slur end without start"), - over_or_under(index)); - return; - } - - parse_slur_shift(&shift); - - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%c}{1}" - "\\GreSlur{%d}{%d}{%c}{\\GreVarBraceLength{%hu}}{}{%d}", - slur[index].var, slur[index].shift, - slur[index].start->u.note.pitch + direction, direction, - slur[index].shift, slur[index].var, - current_note->u.note.pitch + direction); - gregorio_add_texverb_to_note(slur[index].start, gregorio_strdup(tempstr)); - - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%c}{2}", slur[index].var, shift); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - - - slur[index].var = 0; - slur[index].shift = '\0'; - slur[index].start = NULL; -} - -static void left_bracket(void) -{ - if (left_bracket_texverb) { - gregorio_message( - _("cannot add a left bracket before closing the previous one"), - "left_bracket", VERBOSITY_ERROR, 0); - return; - } - - /* when setting the left bracket, temporarily store the point-and-click - * information in the texverb */ - if (notes_lloc.generate_point_and_click) { - gregorio_snprintf(tempstr, sizeof tempstr, "%u:%u:%u", - notes_lloc.first_line, notes_lloc.first_offset, - notes_lloc.first_column + 1); - } else { - tempstr[0] = '\0'; - } - left_bracket_texverb = gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup(tempstr), GRE_TEXVERB_GLYPH, ¬es_lloc); - bracket_low_pitch = MAX_PITCH; - bracket_high_pitch = LOWEST_PITCH; -} - -static void right_bracket(void) -{ - if (!left_bracket_texverb) { - gregorio_message( - _("cannot add a right bracket without a matching left bracket"), - "right_bracket", VERBOSITY_ERROR, 0); - return; - } - - if (bracket_high_pitch < bracket_low_pitch) { - gregorio_message( - _("cannot add brackets without notes between them"), - "right_bracket", VERBOSITY_ERROR, 0); - return; - } - - gregorio_snprintf(tempstr, sizeof tempstr, "\\GreBracket{0}{%d}{%d}{%s}", - bracket_low_pitch, bracket_high_pitch, - gregorio_texverb(left_bracket_texverb)); - gregorio_change_texverb(left_bracket_texverb, gregorio_strdup(tempstr)); - - if (notes_lloc.generate_point_and_click) { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreBracket{1}{%d}{%d}{%u:%u:%u}", bracket_low_pitch, - bracket_high_pitch, notes_lloc.first_line, - notes_lloc.first_offset, notes_lloc.first_column + 1); - } else { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreBracket{1}{%d}{%d}{}", bracket_low_pitch, - bracket_high_pitch); - } - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup(tempstr), - GRE_TEXVERB_GLYPH, ¬es_lloc); - - left_bracket_texverb = 0; -} - -static void parse_hepisema_adjustment(void) -{ - /* See https://github.com/gregorio-project/gregorio/issues/872 - * - * [xh:yzw] - * - * - x is o(ver) or u(under) - * - y is optional and is - * - l for low in the space (chooses ol or ul depending on x) - * - m for middle of the space - * - h for high in the space (chooses oh or uh depending on x) - * - ol for low in the space as if the episema were over the note - * - oh for high in the space as if the episema were over the note - * - ul for low in the space as if the episema were under the note - * - uh for high in the space as if the episema were under the note - * - z is an optional nudge and must start with + or - - * - w is optional and may be { to start a range or } to end a range. - * - * at least one of y, z, or w must be provided - * if y and z are omitted, the : may be omitted - * y and z are not permitted when w is } - */ - - const gregorio_sign_orientation index = letter_to_sign_orientation( - gabc_notes_determination_text[1]); - gregorio_sign_orientation det_index = index; - char *ch = gabc_notes_determination_text + 3; - gregorio_hepisema_vbasepos vbasepos = HVB_AUTO; - char *nudge = NULL; - char save; - short hepisema_adjustment_id; - - if (he_adjustment_index[index]) { - gregorio_messagef("parse_hepisema_adustment", VERBOSITY_ERROR, 0, - _("horizontal %s-episema adjustment start before ending the " - "previous adjustment"), over_or_under(index)); - return; - } - - if (*ch == ':') { - ++ch; - if (*ch == 'm') { - vbasepos = HVB_MIDDLE; - } else { - switch (*ch) { - case 'o': - ++ch; - det_index = SO_OVER; - break; - case 'u': - ++ch; - det_index = SO_UNDER; - break; - } - - switch (*ch) { - case 'l': - switch (det_index) { - case SO_OVER: - vbasepos = HVB_O_LOW; - break; - case SO_UNDER: - vbasepos = HVB_U_LOW; - break; - } - break; - case 'h': - switch (det_index) { - case SO_OVER: - vbasepos = HVB_O_HIGH; - break; - case SO_UNDER: - vbasepos = HVB_U_HIGH; - break; - } - break; - } - } - if (vbasepos) { - ++ch; - } - if (*ch == '+' || *ch == '-') { - nudge = ch; - do { - ++ch; - } while (*ch && *ch != '{' && *ch != ']'); - save = *ch; - *ch = '\0'; - nudge = gregorio_strdup(nudge); - *ch = save; - } - } - - hepisema_adjustment_id = gregorio_add_hepisema_adjustment(vbasepos, nudge); - - if (*ch == '{') { - he_adjustment_index[index] = hepisema_adjustment_id; - } else { - if (!current_note || current_note->type != GRE_NOTE) { - gregorio_message(_("cannot add a horizontal episema adjustment to " - "something that is not a note"), - "parse_hepisema_adjustment", VERBOSITY_ERROR, 0); - return; - } - current_note->he_adjustment_index[index] = hepisema_adjustment_id; - } -} - -static void end_hepisema_adjustment(void) -{ - /* [xh:}] - * - x indicates l(ow) or h(igh) episema - * - : is optional - */ - - const gregorio_sign_orientation index = letter_to_sign_orientation( - gabc_notes_determination_text[1]); - - if (!he_adjustment_index[index]) { - gregorio_messagef("end_hepisema_adustment", VERBOSITY_ERROR, 0, - _("horizontal %s-episema adjustment end with no matching " - "start"), over_or_under(index)); - return; - } - - he_adjustment_index[index] = 0; -} - -void gabc_det_notes_finish(void) -{ - gregorio_sign_orientation orientation; - if (overbrace_var) { - gregorio_message(_("unclosed variable over-staff brace"), - "gabc_det_notes_finish", VERBOSITY_ERROR, 0); - overbrace_var = 0; - } - if (underbrace_var) { - gregorio_message(_("unclosed variable under-staff brace"), - "gabc_det_notes_finish", VERBOSITY_ERROR, 0); - underbrace_var = 0; - } - for (orientation = SO_OVER; orientation <= SO_UNDER; ++orientation) { - const char *name = over_or_under(orientation); - if (ledger_var[orientation]) { - gregorio_messagef("gabc_det_notes_finish", VERBOSITY_ERROR, 0, - _("unclosed variable %s-staff ledger line"), name); - ledger_var[orientation] = 0; - } - if (slur[orientation].var) { - gregorio_messagef("gabc_det_notes_finish", VERBOSITY_ERROR, 0, - _("unclosed variable %s-note slur"), name); - slur[orientation].var = 0; - slur[orientation].shift = '\0'; - slur[orientation].start = NULL; - } - if (he_adjustment_index[orientation]) { - gregorio_messagef("gabc_det_notes_finish", VERBOSITY_ERROR, 0, - _("unclosed horizontal %s-episema adjustment"), - over_or_under(orientation)); - ledger_var[orientation] = 0; - } - } - if (left_bracket_texverb) { - gregorio_message(_("unclosed left bracket"), - "gabc_det_notes_finish", VERBOSITY_ERROR, 0); - left_bracket_texverb = 0; - } -} - -%} - -%option stack -%option 8bit -%option pointer -%option nounput -%option noyy_push_state -%option noyy_pop_state -%option noyy_top_state -%option full -%option noread -%option nomain -%option align -%option noyylineno -%option prefix="gabc_notes_determination_" -%option noyywrap - -%x texverbnote -%x texverbglyph -%x texverbelement -%x choralsign -%x choralnabc -%x alt -%x comments -%x overbrace -%x underbrace -%x overcurlybrace -%x overcurlyaccentusbrace -%x space -%x nbspace -%x overledger overledger2 -%x underledger underledger2 -%x endledger - -%% -<INITIAL>\% { - BEGIN(comments); - } -<comments>(\n|\r)+ { - BEGIN(INITIAL); - } -<comments>[^\n\r]* { - /* ignored */ - } -<INITIAL>\[cs: { - BEGIN(choralsign); - } -<INITIAL>\[cn: { - BEGIN(choralnabc); - } -<INITIAL>\[ob:[01]; { - char_for_brace = gabc_notes_determination_text[4]-'0'; - BEGIN(overbrace); - } -<INITIAL>\[ub:[01]; { - char_for_brace = gabc_notes_determination_text[4]-'0'; - BEGIN(underbrace); - } -<INITIAL>\[ocb:[01]; { - char_for_brace = gabc_notes_determination_text[5]-'0'; - BEGIN(overcurlybrace); - } -<INITIAL>\[ocba:[01]; { - char_for_brace = gabc_notes_determination_text[6]-'0'; - BEGIN(overcurlyaccentusbrace); - } -<INITIAL>\[ob:[01]\{\] { - if (overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace without termination of " - "previous overbrace")); - } else { - char_for_brace = gabc_notes_determination_text[4]-'0'; - overbrace_var = ++tex_position_id; - overbrace_var_kind = "ob"; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{1}" - "\\GreOverBrace{\\GreVarBraceLength{%hu}}{0pt}{0pt}{%d}", - overbrace_var, char_for_brace, overbrace_var, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } -<INITIAL>\[ub:[01]\{\] { - if (underbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable underbrace without termination of " - "previous underbrace")); - } else { - char_for_brace = gabc_notes_determination_text[4]-'0'; - underbrace_var = ++tex_position_id; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{1}" - "\\GreUnderBrace{\\GreVarBraceLength{%hu}}{0pt}{0pt}{%d}", - underbrace_var, char_for_brace, underbrace_var, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } -<INITIAL>\[ocb:[01]\{\] { - if (overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace without termination of " - "previous overbrace")); - } else { - char_for_brace = gabc_notes_determination_text[5]-'0'; - overbrace_var = ++tex_position_id; - overbrace_var_kind = "ocb"; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{1}" - "\\GreOverCurlyBrace{\\GreVarBraceLength{%hu}}{0pt}{0pt}{%d}{0}", - overbrace_var, char_for_brace, overbrace_var, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } -<INITIAL>\[ocba:[01]\{\] { - if (overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace without termination of " - "previous overbrace")); - } else { - char_for_brace = gabc_notes_determination_text[6]-'0'; - overbrace_var = ++tex_position_id; - overbrace_var_kind = "ocba"; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{1}" - "\\GreOverCurlyBrace{\\GreVarBraceLength{%hu}}{0pt}{0pt}{%d}{1}", - overbrace_var, char_for_brace, overbrace_var, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } -<INITIAL>\[ob:[01]\}\] { - if (!overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace termination without " - "variable overbrace start")); - } else if (strcmp (overbrace_var_kind, "ob")) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace started with %s " - "and terminated with ob"), - overbrace_var_kind); - } else { - char_for_brace = gabc_notes_determination_text[4]-'0'; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{2}", overbrace_var, - char_for_brace); - overbrace_var = 0; - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } -<INITIAL>\[ub:[01]\}\] { - if (!underbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable underbrace termination without " - "variable underbrace start")); - } else { - char_for_brace = gabc_notes_determination_text[4]-'0'; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{2}", underbrace_var, - char_for_brace); - underbrace_var = 0; - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } -<INITIAL>\[ocb:[01]\}\] { - if (!overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace termination without " - "variable overbrace start")); - } else if (strcmp (overbrace_var_kind, "ocb")) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace started with %s " - "and terminated with ocb"), - overbrace_var_kind); - } else { - char_for_brace = gabc_notes_determination_text[5]-'0'; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{2}", overbrace_var, - char_for_brace); - overbrace_var = 0; - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } -<INITIAL>\[ocba:[01]\}\] { - if (!overbrace_var) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace termination without " - "variable overbrace start")); - } else if (strcmp (overbrace_var_kind, "ocba")) { - gregorio_messagef("gabc_notes_determination", VERBOSITY_ERROR, 0, - _("variable overbrace started with %s " - "and terminated with ocba"), - overbrace_var_kind); - } else { - char_for_brace = gabc_notes_determination_text[6]-'0'; - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreVarBraceSavePos{%hu}{%d}{2}", overbrace_var, - char_for_brace); - overbrace_var = 0; - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } - } -<INITIAL>\[nm[1-9]\] { - if (notesmacros[gabc_notes_determination_text[3]-'0']) { - gregorio_add_texverb_to_note(current_note, gregorio_strdup( - notesmacros[gabc_notes_determination_text[3]-'0'])); - } else error(); - } -<INITIAL>\[gm[1-9]\] { - if (notesmacros[gabc_notes_determination_text[3]-'0']) { - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup( - notesmacros[gabc_notes_determination_text[3]-'0']), - GRE_TEXVERB_GLYPH, ¬es_lloc); - } else error(); - } -<INITIAL>\[em[1-9]\] { - if (notesmacros[gabc_notes_determination_text[3]-'0']) { - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup( - notesmacros[gabc_notes_determination_text[3]-'0']), - GRE_TEXVERB_ELEMENT, ¬es_lloc); - } else error(); - } -<INITIAL>\[altm[1-9]\] { - if (notesmacros[gabc_notes_determination_text[5]-'0']) { - gregorio_add_texverb_as_note(¤t_note, gregorio_strdup( - notesmacros[gabc_notes_determination_text[5]-'0']), - GRE_TEXVERB_ELEMENT, ¬es_lloc); - } else error(); - } -<INITIAL>\[nv: { - BEGIN(texverbnote); - } -<INITIAL>\[gv: { - BEGIN(texverbglyph); - } -<INITIAL>\[ev: { - BEGIN(texverbelement); - } -<INITIAL>\[alt: { - BEGIN(alt); - } -<INITIAL><nlba> { - gregorio_add_nlba_as_note(¤t_note, NLBA_BEGINNING, ¬es_lloc); - } -<INITIAL><\/nlba> { - gregorio_add_nlba_as_note(¤t_note, NLBA_END, ¬es_lloc); - } -<INITIAL>@\[ { - gregorio_start_autofuse(¤t_note, ¬es_lloc); - } -<INITIAL>\] { - gregorio_end_autofuse(¤t_note, ¬es_lloc); - } -<overbrace>[^\]]+ { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreOverBrace{%s}{0pt}{0pt}{%d}", - gabc_notes_determination_text, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } -<underbrace>[^\]]+ { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreUnderBrace{%s}{0pt}{0pt}{%d}", - gabc_notes_determination_text, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } -<overcurlybrace>[^\]]+ { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreOverCurlyBrace{%s}{0pt}{0pt}{%d}{0}", - gabc_notes_determination_text, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } -<overcurlyaccentusbrace>[^\]]+ { - gregorio_snprintf(tempstr, sizeof tempstr, - "\\GreOverCurlyBrace{%s}{0pt}{0pt}{%d}{1}", - gabc_notes_determination_text, char_for_brace); - gregorio_add_texverb_to_note(current_note, gregorio_strdup(tempstr)); - } -<choralsign>[^\]]+ { - gregorio_add_cs_to_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), false); - } -<choralnabc>[^\]]+ { - gregorio_add_cs_to_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), true); - } -<texverbnote>[^\]]+ { - gregorio_add_texverb_to_note(current_note, - gregorio_strdup(gabc_notes_determination_text)); - } -<texverbglyph>[^\]]+ { - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), - GRE_TEXVERB_GLYPH, ¬es_lloc); - } -<texverbelement>[^\]]+ { - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), - GRE_TEXVERB_ELEMENT, ¬es_lloc); - } -<alt>[^\]]+ { - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup(gabc_notes_determination_text), GRE_ALT, - ¬es_lloc); - } -<INITIAL>\/\[ { - BEGIN(space); - } -<space>-?(\.[0-9]+|[0-9]+(\.[0-9]*)?)/\] { - gregorio_add_space_as_note(¤t_note, SP_AD_HOC_SPACE, - gregorio_strdup(gabc_notes_determination_text), ¬es_lloc); - } -<INITIAL>!\/\[ { - BEGIN(nbspace); - } -<nbspace>-?(\.[0-9]+|[0-9]+(\.[0-9]*)?)/\] { - gregorio_add_space_as_note(¤t_note, SP_AD_HOC_SPACE_NB, - gregorio_strdup(gabc_notes_determination_text), ¬es_lloc); - } -<INITIAL>\[oll:1\] { - LEDGER(high, EXPLICITLY_DRAWN, true); - } -<INITIAL>\[oll:0\] { - LEDGER(high, EXPLICITLY_DRAWN, false); - } -<INITIAL>\[oll:\}\] { - end_variable_ledger(SO_OVER); - } -<INITIAL>\[oll: { - BEGIN(overledger); - } -<overledger>[^;{]+ { - save_before_ledger(gabc_notes_determination_text); - BEGIN(overledger2); - } -<overledger2>;[^\]]+ { - add_static_ledger(SO_OVER, gabc_notes_determination_text); - BEGIN(endledger); - } -<overledger2>\{[^\]]+ { - add_variable_ledger(SO_OVER, gabc_notes_determination_text); - BEGIN(endledger); - } -<INITIAL>\[ull:1\] { - LEDGER(low, EXPLICITLY_DRAWN, true); - } -<INITIAL>\[ull:0\] { - LEDGER(low, EXPLICITLY_DRAWN, false); - } -<INITIAL>\[ull:\}\] { - end_variable_ledger(SO_UNDER); - } -<INITIAL>\[ull: { - BEGIN(underledger); - } -<underledger>[^;{]+ { - save_before_ledger(gabc_notes_determination_text); - BEGIN(underledger2); - } -<underledger2>;[^\]]+ { - add_static_ledger(SO_UNDER, gabc_notes_determination_text); - BEGIN(endledger); - } -<underledger2>\{[^\]]+ { - add_variable_ledger(SO_UNDER, gabc_notes_determination_text); - BEGIN(endledger); - } -<texverbnote,texverbglyph,texverbelement,choralsign,choralnabc,alt,overcurlyaccentusbrace,overcurlybrace,overbrace,underbrace,space,nbspace,endledger>\] { - BEGIN(INITIAL); - } -<INITIAL>\[[ou]slur:[012];[^,]+,[^\]]+\] { - parse_slur(); - } -<INITIAL>\[[ou]slur:[012]\{\] { - start_var_slur(); - } -<INITIAL>\[[ou]slur:[012]\}\] { - end_var_slur(); - } -<INITIAL>\[[ou]h(?x: - :(m|[ou]?[lh])\{? -| :(m|[ou]?[lh])?[+-][^\]\{]+\{? -| :?\{ -)\] { - parse_hepisema_adjustment(); - } -<INITIAL>\[[ou]h:?\}\] { - end_hepisema_adjustment(); - } -<INITIAL>\[\[ { - left_bracket(); - } -<INITIAL>\]\] { - right_bracket(); - } -\{ { - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup("\\hbox to 0pt{"), GRE_TEXVERB_ELEMENT, - ¬es_lloc); - } -\} { - gregorio_add_texverb_as_note(¤t_note, - gregorio_strdup("\\hss%\n}%\n\\GreNoBreak\\relax "), - GRE_TEXVERB_ELEMENT, ¬es_lloc); - } -[a-np]\+ { - gregorio_add_manual_custos_as_note(¤t_note, - pitch_letter_to_height(gabc_notes_determination_text[0]), - ¬es_lloc); - } -[\t\r\n]+ /* ignore ends of line and tabs */; -<INITIAL>\[nocustos\] { - gregorio_add_suppress_custos_as_note(¤t_note, ¬es_lloc); - } -z0 { - gregorio_add_custos_as_note(¤t_note, ¬es_lloc); - } -z { - gregorio_add_end_of_line_as_note(¤t_note, false, false, false, - ¬es_lloc); - } -z\+ { - gregorio_add_end_of_line_as_note(¤t_note, false, true, true, - ¬es_lloc); - } -z- { - gregorio_add_end_of_line_as_note(¤t_note, false, true, false, - ¬es_lloc); - } -Z { - gregorio_add_end_of_line_as_note(¤t_note, true, false, false, - ¬es_lloc); - } -Z\+ { - gregorio_add_end_of_line_as_note(¤t_note, true, true, true, - ¬es_lloc); - } -Z- { - gregorio_add_end_of_line_as_note(¤t_note, true, true, false, - ¬es_lloc); - } -[cf][1-5] { - gregorio_add_clef_as_note(¤t_note, - letter_to_clef(gabc_notes_determination_text[0]), - parse_clef_line(gabc_notes_determination_text[1]), false, - ¬es_lloc); - } -[cf]b[1-5] { - gregorio_add_clef_as_note(¤t_note, - letter_to_clef(gabc_notes_determination_text[0]), - parse_clef_line(gabc_notes_determination_text[2]), true, - ¬es_lloc); - } -@[cf][1-5] { - gregorio_add_secondary_clef_to_note(current_note, - letter_to_clef(gabc_notes_determination_text[1]), - parse_clef_line(gabc_notes_determination_text[2]), false); - } -@[cf]b[1-5] { - gregorio_add_secondary_clef_to_note(current_note, - letter_to_clef(gabc_notes_determination_text[1]), - parse_clef_line(gabc_notes_determination_text[3]), true); - } -` { - add_bar_as_note(B_VIRGULA); - } -`0 { - add_bar_as_note(B_VIRGULA_HIGH); - } -\^ { - add_bar_as_note(B_DIVISIO_MINIMIS); - } -\^0 { - add_bar_as_note(B_DIVISIO_MINIMIS_HIGH); - } -, { - add_bar_as_note(B_DIVISIO_MINIMA); - } -,0 { - add_bar_as_note(B_DIVISIO_MINIMA_HIGH); - } -[,;][1-8] { - add_bar_as_note(parse_dominican_bar(gabc_notes_determination_text[1])); - } -; { - add_bar_as_note(B_DIVISIO_MINOR); - } -: { - add_bar_as_note(B_DIVISIO_MAIOR); - } -:: { - add_bar_as_note(B_DIVISIO_FINALIS); - } -:\? { - add_bar_as_note(B_DIVISIO_MAIOR_DOTTED); - } -r { - gregorio_add_cavum(current_note); - } -R { - gregorio_change_shape(current_note, S_LINEA_PUNCTUM, - legacy_oriscus_orientation); - } -r0 { - gregorio_change_shape(current_note, S_LINEA_PUNCTUM, - legacy_oriscus_orientation); - gregorio_add_cavum(current_note); - } -r1 { - gregorio_add_special_sign(current_note, _ACCENTUS); - } -r2 { - gregorio_add_special_sign(current_note, _ACCENTUS_REVERSUS); - } -r3 { - gregorio_add_special_sign(current_note, _CIRCULUS); - } -r4 { - gregorio_add_special_sign(current_note, _SEMI_CIRCULUS); - } -r5 { - gregorio_add_special_sign(current_note, _SEMI_CIRCULUS_REVERSUS); - } -r6 { - gregorio_add_special_sign(current_note, _MUSICA_FICTA_FLAT); - } -r7 { - gregorio_add_special_sign(current_note, _MUSICA_FICTA_NATURAL); - } -r8 { - gregorio_add_special_sign(current_note, _MUSICA_FICTA_SHARP); - } -x { - gregorio_change_shape(current_note, S_FLAT, legacy_oriscus_orientation); - } -# { - gregorio_change_shape(current_note, S_SHARP, - legacy_oriscus_orientation); - } -y { - gregorio_change_shape(current_note, S_NATURAL, - legacy_oriscus_orientation); - } -!?\/0 { - gregorio_add_space_as_note(¤t_note, SP_HALF_SPACE, NULL, - ¬es_lloc); - } -!?\/! { - gregorio_add_space_as_note(¤t_note, SP_INTERGLYPH_SPACE, NULL, - ¬es_lloc); - } -\/ { - gregorio_add_space_as_note(¤t_note, SP_NEUMATIC_CUT, NULL, - ¬es_lloc); - } -\//\/\[ { - gregorio_add_space_as_note(¤t_note, SP_NEUMATIC_CUT, NULL, - ¬es_lloc); - } -\/\/ { - gregorio_add_space_as_note(¤t_note, SP_LARGER_SPACE, NULL, - ¬es_lloc); - } -\ { - gregorio_add_space_as_note(¤t_note, SP_GLYPH_SPACE, NULL, - ¬es_lloc); - } -!\/ { - gregorio_add_space_as_note(¤t_note, SP_NEUMATIC_CUT_NB, NULL, - ¬es_lloc); - } -!\//\/\[ { - gregorio_add_space_as_note(¤t_note, SP_NEUMATIC_CUT_NB, NULL, - ¬es_lloc); - } -!\/\/ { - gregorio_add_space_as_note(¤t_note, SP_LARGER_SPACE_NB, NULL, - ¬es_lloc); - } -!\ { - gregorio_add_space_as_note(¤t_note, SP_GLYPH_SPACE_NB, NULL, - ¬es_lloc); - } -!/[^\/ ] { - gregorio_add_space_as_note(¤t_note, SP_ZERO_WIDTH, NULL, - ¬es_lloc); - } -= { - gregorio_change_shape(current_note, S_LINEA, - legacy_oriscus_orientation); - } -[a-npA-NP]vv { - lex_add_note(0, S_BIVIRGA, _NO_SIGN, L_NO_LIQUESCENTIA); - } -[a-npA-NP]vvv { - lex_add_note(0, S_TRIVIRGA, _NO_SIGN, L_NO_LIQUESCENTIA); - } -[a-npA-NP]VV { - lex_add_note(0, S_BIVIRGA, _NO_SIGN, L_NO_LIQUESCENTIA); - } -[a-npA-NP]VVV { - lex_add_note(0, S_TRIVIRGA, _NO_SIGN, L_NO_LIQUESCENTIA); - } -[a-npA-NP]ss { - lex_add_note(0, S_DISTROPHA, _NO_SIGN, L_NO_LIQUESCENTIA); - } -[a-npA-NP]ss(\<|\>) { - lex_add_note(0, S_DISTROPHA, _NO_SIGN, L_AUCTUS_ASCENDENS); - } -[a-npA-NP]sss { - lex_add_note(0, S_TRISTROPHA, _NO_SIGN, L_NO_LIQUESCENTIA); - } -[a-npA-NP]sss(\<|\>) { - lex_add_note(0, S_TRISTROPHA, _NO_SIGN, L_AUCTUS_ASCENDENS); - } -[a-np] { - lex_add_note(0, S_PUNCTUM, _NO_SIGN, L_NO_LIQUESCENTIA); - } --[a-np] { - lex_add_note(1, S_PUNCTUM, _NO_SIGN, L_INITIO_DEBILIS); - } -@[a-np] { - lex_add_note(1, S_PUNCTUM, _NO_SIGN, L_FUSED); - } -[A-NP][012]? { - lex_add_note(0, punctum_inclinatum(gabc_notes_determination_text[1]), - _NO_SIGN, L_NO_LIQUESCENTIA); - } --[A-NP][012]? { - lex_add_note(1, punctum_inclinatum(gabc_notes_determination_text[2]), - _NO_SIGN, L_INITIO_DEBILIS); - } -@[A-NP][012]? { - lex_add_note(1, punctum_inclinatum(gabc_notes_determination_text[2]), - _NO_SIGN, L_FUSED); - } -\'[01]? { - add_sign(_V_EPISEMA); - } -_[0-5]* { - add_h_episema(); - } -\.[01]? { - add_sign(_PUNCTUM_MORA); - } -~ { - gregorio_add_tail_liquescentia(current_note, L_DEMINUTUS, - legacy_oriscus_orientation); - } -> { - gregorio_add_tail_liquescentia(current_note, L_AUCTUS_DESCENDENS, - legacy_oriscus_orientation); - } -\< { - gregorio_add_tail_liquescentia(current_note, L_AUCTUS_ASCENDENS, - legacy_oriscus_orientation); - } -q { - gregorio_change_shape(current_note, S_QUADRATUM, - legacy_oriscus_orientation); - } -o { - gregorio_change_shape(current_note, S_ORISCUS_UNDETERMINED, - legacy_oriscus_orientation); - } -o0 { - gregorio_change_shape(current_note, S_ORISCUS_DESCENDENS, - legacy_oriscus_orientation); - } -o1 { - gregorio_change_shape(current_note, S_ORISCUS_ASCENDENS, - legacy_oriscus_orientation); - } -O { - gregorio_change_shape(current_note, S_ORISCUS_SCAPUS_UNDETERMINED, - legacy_oriscus_orientation); - } -O0 { - gregorio_change_shape(current_note, S_ORISCUS_SCAPUS_DESCENDENS, - legacy_oriscus_orientation); - } -O1 { - gregorio_change_shape(current_note, S_ORISCUS_SCAPUS_ASCENDENS, - legacy_oriscus_orientation); - } -w { - gregorio_change_shape(current_note, S_QUILISMA, - legacy_oriscus_orientation); - } -W { - gregorio_change_shape(current_note, S_QUILISMA_QUADRATUM, - legacy_oriscus_orientation); - } -v { - gregorio_change_shape(current_note, S_VIRGA, - legacy_oriscus_orientation); - } -V { - gregorio_change_shape(current_note, S_VIRGA_REVERSA, - legacy_oriscus_orientation); - } -s { - gregorio_change_shape(current_note, S_STROPHA, - legacy_oriscus_orientation); - } -\[hl:1\] { - LEDGER(high, EXPLICIT, true); - } -\[hl:0\] { - LEDGER(high, EXPLICIT, false); - } -\[ll:1\] { - LEDGER(low, EXPLICIT, true); - } -\[ll:0\] { - LEDGER(low, EXPLICIT, false); - } -.|\n { - gregorio_messagef("det_notes_from_string", VERBOSITY_ERROR, 0, - _("unrecognized character: \"%c\""), - gabc_notes_determination_text[0]); - } - -%% - -gregorio_note *gabc_det_notes_from_string(char *str, char *newmacros[10], - gregorio_scanner_location *loc, const gregorio_score *const score) -{ - int i; - YY_BUFFER_STATE buf; - - notes_lloc.first_line = loc->first_line; - notes_lloc.first_column = loc->first_column; - notes_lloc.first_offset = loc->first_offset; - /* yes... I do mean to set values from loc->first_* */ - notes_lloc.last_line = loc->first_line; - notes_lloc.last_column = loc->first_column; - notes_lloc.last_offset = loc->first_offset; - notes_lloc.generate_point_and_click = loc->generate_point_and_click; - - staff_lines = score->staff_lines; - highest_pitch = score->highest_pitch; - high_ledger_line_pitch = score->high_ledger_line_pitch; - legacy_oriscus_orientation = score->legacy_oriscus_orientation; - - /* a small optimization could uccur here: we could do it only once at the - * beginning of the score, not at each syllable */ - for (i = 0; i < 10; i++) { - notesmacros[i] = newmacros[i]; - } - nbof_isolated_episema = 0; - current_note = NULL; - buf = yy_scan_string(str); - yylex(); - yy_flush_buffer(buf); - yy_delete_buffer(buf); - gregorio_go_to_first_note(¤t_note); - return current_note; -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-l.c b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-l.c deleted file mode 100644 index d25f0ee2d94..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-l.c +++ /dev/null @@ -1,2987 +0,0 @@ -#line 1 "gabc/gabc-score-determination-l.c" - -#line 3 "gabc/gabc-score-determination-l.c" - -#define YY_INT_ALIGNED long int - -/* A lexical scanner generated by flex */ - -#define yy_create_buffer gabc_score_determination__create_buffer -#define yy_delete_buffer gabc_score_determination__delete_buffer -#define yy_scan_buffer gabc_score_determination__scan_buffer -#define yy_scan_string gabc_score_determination__scan_string -#define yy_scan_bytes gabc_score_determination__scan_bytes -#define yy_init_buffer gabc_score_determination__init_buffer -#define yy_flush_buffer gabc_score_determination__flush_buffer -#define yy_load_buffer_state gabc_score_determination__load_buffer_state -#define yy_switch_to_buffer gabc_score_determination__switch_to_buffer -#define yypush_buffer_state gabc_score_determination_push_buffer_state -#define yypop_buffer_state gabc_score_determination_pop_buffer_state -#define yyensure_buffer_stack gabc_score_determination_ensure_buffer_stack -#define yy_flex_debug gabc_score_determination__flex_debug -#define yyin gabc_score_determination_in -#define yyleng gabc_score_determination_leng -#define yylex gabc_score_determination_lex -#define yylineno gabc_score_determination_lineno -#define yyout gabc_score_determination_out -#define yyrestart gabc_score_determination_restart -#define yytext gabc_score_determination_text -#define yywrap gabc_score_determination_wrap -#define yyalloc gabc_score_determination_alloc -#define yyrealloc gabc_score_determination_realloc -#define yyfree gabc_score_determination_free - -#define FLEX_SCANNER -#define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 6 -#define YY_FLEX_SUBMINOR_VERSION 4 -#if YY_FLEX_SUBMINOR_VERSION > 0 -#define FLEX_BETA -#endif - -#ifdef yy_create_buffer -#define gabc_score_determination__create_buffer_ALREADY_DEFINED -#else -#define yy_create_buffer gabc_score_determination__create_buffer -#endif - -#ifdef yy_delete_buffer -#define gabc_score_determination__delete_buffer_ALREADY_DEFINED -#else -#define yy_delete_buffer gabc_score_determination__delete_buffer -#endif - -#ifdef yy_scan_buffer -#define gabc_score_determination__scan_buffer_ALREADY_DEFINED -#else -#define yy_scan_buffer gabc_score_determination__scan_buffer -#endif - -#ifdef yy_scan_string -#define gabc_score_determination__scan_string_ALREADY_DEFINED -#else -#define yy_scan_string gabc_score_determination__scan_string -#endif - -#ifdef yy_scan_bytes -#define gabc_score_determination__scan_bytes_ALREADY_DEFINED -#else -#define yy_scan_bytes gabc_score_determination__scan_bytes -#endif - -#ifdef yy_init_buffer -#define gabc_score_determination__init_buffer_ALREADY_DEFINED -#else -#define yy_init_buffer gabc_score_determination__init_buffer -#endif - -#ifdef yy_flush_buffer -#define gabc_score_determination__flush_buffer_ALREADY_DEFINED -#else -#define yy_flush_buffer gabc_score_determination__flush_buffer -#endif - -#ifdef yy_load_buffer_state -#define gabc_score_determination__load_buffer_state_ALREADY_DEFINED -#else -#define yy_load_buffer_state gabc_score_determination__load_buffer_state -#endif - -#ifdef yy_switch_to_buffer -#define gabc_score_determination__switch_to_buffer_ALREADY_DEFINED -#else -#define yy_switch_to_buffer gabc_score_determination__switch_to_buffer -#endif - -#ifdef yypush_buffer_state -#define gabc_score_determination_push_buffer_state_ALREADY_DEFINED -#else -#define yypush_buffer_state gabc_score_determination_push_buffer_state -#endif - -#ifdef yypop_buffer_state -#define gabc_score_determination_pop_buffer_state_ALREADY_DEFINED -#else -#define yypop_buffer_state gabc_score_determination_pop_buffer_state -#endif - -#ifdef yyensure_buffer_stack -#define gabc_score_determination_ensure_buffer_stack_ALREADY_DEFINED -#else -#define yyensure_buffer_stack gabc_score_determination_ensure_buffer_stack -#endif - -#ifdef yylex -#define gabc_score_determination_lex_ALREADY_DEFINED -#else -#define yylex gabc_score_determination_lex -#endif - -#ifdef yyrestart -#define gabc_score_determination_restart_ALREADY_DEFINED -#else -#define yyrestart gabc_score_determination_restart -#endif - -#ifdef yylex_init -#define gabc_score_determination_lex_init_ALREADY_DEFINED -#else -#define yylex_init gabc_score_determination_lex_init -#endif - -#ifdef yylex_init_extra -#define gabc_score_determination_lex_init_extra_ALREADY_DEFINED -#else -#define yylex_init_extra gabc_score_determination_lex_init_extra -#endif - -#ifdef yylex_destroy -#define gabc_score_determination_lex_destroy_ALREADY_DEFINED -#else -#define yylex_destroy gabc_score_determination_lex_destroy -#endif - -#ifdef yyget_debug -#define gabc_score_determination_get_debug_ALREADY_DEFINED -#else -#define yyget_debug gabc_score_determination_get_debug -#endif - -#ifdef yyset_debug -#define gabc_score_determination_set_debug_ALREADY_DEFINED -#else -#define yyset_debug gabc_score_determination_set_debug -#endif - -#ifdef yyget_extra -#define gabc_score_determination_get_extra_ALREADY_DEFINED -#else -#define yyget_extra gabc_score_determination_get_extra -#endif - -#ifdef yyset_extra -#define gabc_score_determination_set_extra_ALREADY_DEFINED -#else -#define yyset_extra gabc_score_determination_set_extra -#endif - -#ifdef yyget_in -#define gabc_score_determination_get_in_ALREADY_DEFINED -#else -#define yyget_in gabc_score_determination_get_in -#endif - -#ifdef yyset_in -#define gabc_score_determination_set_in_ALREADY_DEFINED -#else -#define yyset_in gabc_score_determination_set_in -#endif - -#ifdef yyget_out -#define gabc_score_determination_get_out_ALREADY_DEFINED -#else -#define yyget_out gabc_score_determination_get_out -#endif - -#ifdef yyset_out -#define gabc_score_determination_set_out_ALREADY_DEFINED -#else -#define yyset_out gabc_score_determination_set_out -#endif - -#ifdef yyget_leng -#define gabc_score_determination_get_leng_ALREADY_DEFINED -#else -#define yyget_leng gabc_score_determination_get_leng -#endif - -#ifdef yyget_text -#define gabc_score_determination_get_text_ALREADY_DEFINED -#else -#define yyget_text gabc_score_determination_get_text -#endif - -#ifdef yyget_lineno -#define gabc_score_determination_get_lineno_ALREADY_DEFINED -#else -#define yyget_lineno gabc_score_determination_get_lineno -#endif - -#ifdef yyset_lineno -#define gabc_score_determination_set_lineno_ALREADY_DEFINED -#else -#define yyset_lineno gabc_score_determination_set_lineno -#endif - -#ifdef yywrap -#define gabc_score_determination_wrap_ALREADY_DEFINED -#else -#define yywrap gabc_score_determination_wrap -#endif - -#ifdef yyalloc -#define gabc_score_determination_alloc_ALREADY_DEFINED -#else -#define yyalloc gabc_score_determination_alloc -#endif - -#ifdef yyrealloc -#define gabc_score_determination_realloc_ALREADY_DEFINED -#else -#define yyrealloc gabc_score_determination_realloc -#endif - -#ifdef yyfree -#define gabc_score_determination_free_ALREADY_DEFINED -#else -#define yyfree gabc_score_determination_free -#endif - -#ifdef yytext -#define gabc_score_determination_text_ALREADY_DEFINED -#else -#define yytext gabc_score_determination_text -#endif - -#ifdef yyleng -#define gabc_score_determination_leng_ALREADY_DEFINED -#else -#define yyleng gabc_score_determination_leng -#endif - -#ifdef yyin -#define gabc_score_determination_in_ALREADY_DEFINED -#else -#define yyin gabc_score_determination_in -#endif - -#ifdef yyout -#define gabc_score_determination_out_ALREADY_DEFINED -#else -#define yyout gabc_score_determination_out -#endif - -#ifdef yy_flex_debug -#define gabc_score_determination__flex_debug_ALREADY_DEFINED -#else -#define yy_flex_debug gabc_score_determination__flex_debug -#endif - -#ifdef yylineno -#define gabc_score_determination_lineno_ALREADY_DEFINED -#else -#define yylineno gabc_score_determination_lineno -#endif - -/* First, we deal with platform-specific or compiler-specific issues. */ - -/* begin standard C headers. */ -#include <stdio.h> -#include <string.h> -#include <errno.h> -#include <stdlib.h> - -/* end standard C headers. */ - -/* flex integer type definitions */ - -#ifndef FLEXINT_H -#define FLEXINT_H - -/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */ - -#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L - -/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, - * if you want the limit (max/min) macros for int types. - */ -#ifndef __STDC_LIMIT_MACROS -#define __STDC_LIMIT_MACROS 1 -#endif - -#include <inttypes.h> -typedef int8_t flex_int8_t; -typedef uint8_t flex_uint8_t; -typedef int16_t flex_int16_t; -typedef uint16_t flex_uint16_t; -typedef int32_t flex_int32_t; -typedef uint32_t flex_uint32_t; -#else -typedef signed char flex_int8_t; -typedef short int flex_int16_t; -typedef int flex_int32_t; -typedef unsigned char flex_uint8_t; -typedef unsigned short int flex_uint16_t; -typedef unsigned int flex_uint32_t; - -/* Limits of integral types. */ -#ifndef INT8_MIN -#define INT8_MIN (-128) -#endif -#ifndef INT16_MIN -#define INT16_MIN (-32767-1) -#endif -#ifndef INT32_MIN -#define INT32_MIN (-2147483647-1) -#endif -#ifndef INT8_MAX -#define INT8_MAX (127) -#endif -#ifndef INT16_MAX -#define INT16_MAX (32767) -#endif -#ifndef INT32_MAX -#define INT32_MAX (2147483647) -#endif -#ifndef UINT8_MAX -#define UINT8_MAX (255U) -#endif -#ifndef UINT16_MAX -#define UINT16_MAX (65535U) -#endif -#ifndef UINT32_MAX -#define UINT32_MAX (4294967295U) -#endif - -#ifndef SIZE_MAX -#define SIZE_MAX (~(size_t)0) -#endif - -#endif /* ! C99 */ - -#endif /* ! FLEXINT_H */ - -/* begin standard C++ headers. */ - -/* TODO: this is always defined, so inline it */ -#define yyconst const - -#if defined(__GNUC__) && __GNUC__ >= 3 -#define yynoreturn __attribute__((__noreturn__)) -#else -#define yynoreturn -#endif - -/* Returned upon end-of-file. */ -#define YY_NULL 0 - -/* Promotes a possibly negative, possibly signed char to an - * integer in range [0..255] for use as an array index. - */ -#define YY_SC_TO_UI(c) ((YY_CHAR) (c)) - -/* Enter a start condition. This macro really ought to take a parameter, - * but we do it the disgusting crufty way forced on us by the ()-less - * definition of BEGIN. - */ -#define BEGIN (yy_start) = 1 + 2 * -/* Translate the current start state into a value that can be later handed - * to BEGIN to return to the state. The YYSTATE alias is for lex - * compatibility. - */ -#define YY_START (((yy_start) - 1) / 2) -#define YYSTATE YY_START -/* Action number for EOF rule of a given start state. */ -#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) -/* Special action meaning "start processing a new file". */ -#define YY_NEW_FILE yyrestart( yyin ) -#define YY_END_OF_BUFFER_CHAR 0 - -/* Size of default input buffer. */ -#ifndef YY_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k. - * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case. - * Ditto for the __ia64__ case accordingly. - */ -#define YY_BUF_SIZE 32768 -#else -#define YY_BUF_SIZE 16384 -#endif /* __ia64__ */ -#endif - -/* The state buf must be large enough to hold one state per character in the main buffer. - */ -#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type)) - -#ifndef YY_TYPEDEF_YY_BUFFER_STATE -#define YY_TYPEDEF_YY_BUFFER_STATE -typedef struct yy_buffer_state *YY_BUFFER_STATE; -#endif - -#ifndef YY_TYPEDEF_YY_SIZE_T -#define YY_TYPEDEF_YY_SIZE_T -typedef size_t yy_size_t; -#endif - -extern int yyleng; - -extern FILE *yyin, *yyout; - -#define EOB_ACT_CONTINUE_SCAN 0 -#define EOB_ACT_END_OF_FILE 1 -#define EOB_ACT_LAST_MATCH 2 - - #define YY_LESS_LINENO(n) - #define YY_LINENO_REWIND_TO(ptr) - -/* Return all but the first "n" matched characters back to the input stream. */ -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg);\ - *yy_cp = (yy_hold_char); \ - YY_RESTORE_YY_MORE_OFFSET \ - (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \ - YY_DO_BEFORE_ACTION; /* set up yytext again */ \ - } \ - while ( 0 ) -#define unput(c) yyunput( c, (yytext_ptr) ) - -#ifndef YY_STRUCT_YY_BUFFER_STATE -#define YY_STRUCT_YY_BUFFER_STATE -struct yy_buffer_state - { - FILE *yy_input_file; - - char *yy_ch_buf; /* input buffer */ - char *yy_buf_pos; /* current position in input buffer */ - - /* Size of input buffer in bytes, not including room for EOB - * characters. - */ - int yy_buf_size; - - /* Number of characters read into yy_ch_buf, not including EOB - * characters. - */ - int yy_n_chars; - - /* Whether we "own" the buffer - i.e., we know we created it, - * and can realloc() it to grow it, and should free() it to - * delete it. - */ - int yy_is_our_buffer; - - /* Whether this is an "interactive" input source; if so, and - * if we're using stdio for input, then we want to use getc() - * instead of fread(), to make sure we stop fetching input after - * each newline. - */ - int yy_is_interactive; - - /* Whether we're considered to be at the beginning of a line. - * If so, '^' rules will be active on the next match, otherwise - * not. - */ - int yy_at_bol; - - int yy_bs_lineno; /**< The line count. */ - int yy_bs_column; /**< The column count. */ - - /* Whether to try to fill the input buffer when we reach the - * end of it. - */ - int yy_fill_buffer; - - int yy_buffer_status; - -#define YY_BUFFER_NEW 0 -#define YY_BUFFER_NORMAL 1 - /* When an EOF's been seen but there's still some text to process - * then we mark the buffer as YY_EOF_PENDING, to indicate that we - * shouldn't try reading from the input source any more. We might - * still have a bunch of tokens to match, though, because of - * possible backing-up. - * - * When we actually see the EOF, we change the status to "new" - * (via yyrestart()), so that the user can continue scanning by - * just pointing yyin at a new input file. - */ -#define YY_BUFFER_EOF_PENDING 2 - - }; -#endif /* !YY_STRUCT_YY_BUFFER_STATE */ - -/* Stack of input buffers. */ -static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */ -static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */ -static YY_BUFFER_STATE * yy_buffer_stack = NULL; /**< Stack as an array. */ - -/* We provide macros for accessing buffer states in case in the - * future we want to put the buffer states in a more general - * "scanner state". - * - * Returns the top of the stack, or NULL. - */ -#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \ - ? (yy_buffer_stack)[(yy_buffer_stack_top)] \ - : NULL) -/* Same as previous macro, but useful when we know that the buffer stack is not - * NULL or when we need an lvalue. For internal use only. - */ -#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)] - -/* yy_hold_char holds the character lost when yytext is formed. */ -static char yy_hold_char; -static int yy_n_chars; /* number of characters read into yy_ch_buf */ -int yyleng; - -/* Points to current character in buffer. */ -static char *yy_c_buf_p = NULL; -static int yy_init = 0; /* whether we need to initialize */ -static int yy_start = 0; /* start state number */ - -/* Flag which is used to allow yywrap()'s to do buffer switches - * instead of setting up a fresh yyin. A bit of a hack ... - */ -static int yy_did_buffer_switch_on_eof; - -void yyrestart ( FILE *input_file ); -void yy_switch_to_buffer ( YY_BUFFER_STATE new_buffer ); -YY_BUFFER_STATE yy_create_buffer ( FILE *file, int size ); -void yy_delete_buffer ( YY_BUFFER_STATE b ); -void yy_flush_buffer ( YY_BUFFER_STATE b ); -void yypush_buffer_state ( YY_BUFFER_STATE new_buffer ); -void yypop_buffer_state ( void ); - -static void yyensure_buffer_stack ( void ); -static void yy_load_buffer_state ( void ); -static void yy_init_buffer ( YY_BUFFER_STATE b, FILE *file ); -#define YY_FLUSH_BUFFER yy_flush_buffer( YY_CURRENT_BUFFER ) - -YY_BUFFER_STATE yy_scan_buffer ( char *base, yy_size_t size ); -YY_BUFFER_STATE yy_scan_string ( const char *yy_str ); -YY_BUFFER_STATE yy_scan_bytes ( const char *bytes, int len ); - -void *yyalloc ( yy_size_t ); -void *yyrealloc ( void *, yy_size_t ); -void yyfree ( void * ); - -#define yy_new_buffer yy_create_buffer -#define yy_set_interactive(is_interactive) \ - { \ - if ( ! YY_CURRENT_BUFFER ){ \ - yyensure_buffer_stack (); \ - YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer( yyin, YY_BUF_SIZE ); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ - } -#define yy_set_bol(at_bol) \ - { \ - if ( ! YY_CURRENT_BUFFER ){\ - yyensure_buffer_stack (); \ - YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer( yyin, YY_BUF_SIZE ); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ - } -#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) - -/* Begin user sect3 */ - -#define gabc_score_determination_wrap() (/*CONSTCOND*/1) -#define YY_SKIP_YYWRAP -typedef flex_uint8_t YY_CHAR; - -FILE *yyin = NULL, *yyout = NULL; - -typedef int yy_state_type; - -extern int yylineno; -int yylineno = 1; - -extern char *yytext; -#ifdef yytext_ptr -#undef yytext_ptr -#endif -#define yytext_ptr yytext - -static yy_state_type yy_get_previous_state ( void ); -static yy_state_type yy_try_NUL_trans ( yy_state_type current_state ); -static int yy_get_next_buffer ( void ); -static void yynoreturn yy_fatal_error ( const char* msg ); - -/* Done after the current pattern has been matched and before the - * corresponding action - sets up yytext. - */ -#define YY_DO_BEFORE_ACTION \ - (yytext_ptr) = yy_bp; \ - yyleng = (int) (yy_cp - yy_bp); \ - (yy_hold_char) = *yy_cp; \ - *yy_cp = '\0'; \ - (yy_c_buf_p) = yy_cp; -#define YY_NUM_RULES 77 -#define YY_END_OF_BUFFER 78 -/* This struct is not used in this scanner, - but its presence is necessary. */ -struct yy_trans_info - { - flex_int32_t yy_verify; - flex_int32_t yy_nxt; - }; -static const flex_int32_t yy_accept[309] = - { 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 0, 78, 25, 76, 25, 23, 6, 23, 23, - 23, 23, 23, 23, 23, 23, 2, 2, 3, 3, - 1, 8, 9, 27, 26, 50, 71, 29, 28, 56, - 64, 65, 57, 58, 72, 74, 73, 49, 48, 77, - 77, 55, 56, 52, 51, 5, 4, 56, 77, 69, - 77, 77, 70, 0, 0, 23, 6, 23, 23, 23, - 23, 23, 23, 23, 23, 23, 23, 2, 1, 8, - 0, 7, 0, 27, 26, 0, 0, 0, 0, 0, - - 0, 0, 0, 0, 0, 0, 0, 0, 0, 72, - 75, 49, 48, 0, 55, 0, 52, 51, 5, 4, - 0, 69, 69, 69, 0, 0, 70, 0, 24, 23, - 23, 23, 23, 23, 23, 23, 23, 23, 23, 23, - 23, 0, 0, 0, 0, 0, 0, 0, 0, 0, - 0, 40, 38, 0, 44, 0, 32, 0, 0, 0, - 0, 0, 0, 53, 63, 0, 0, 0, 23, 23, - 0, 23, 23, 14, 23, 11, 23, 23, 23, 41, - 39, 45, 0, 33, 0, 0, 0, 0, 0, 0, - 61, 0, 0, 0, 68, 67, 42, 46, 34, 36, - - 0, 54, 0, 23, 23, 23, 0, 23, 0, 0, - 23, 23, 23, 62, 0, 43, 35, 37, 59, 0, - 0, 0, 68, 47, 0, 23, 18, 10, 23, 23, - 23, 23, 23, 23, 0, 0, 0, 0, 30, 60, - 23, 23, 23, 23, 23, 23, 23, 23, 23, 31, - 0, 0, 66, 23, 23, 19, 23, 23, 23, 0, - 23, 23, 0, 23, 23, 23, 23, 23, 23, 23, - 23, 17, 23, 23, 23, 21, 23, 23, 23, 23, - 23, 23, 23, 23, 20, 23, 23, 23, 23, 23, - 23, 23, 15, 23, 23, 13, 23, 23, 23, 23, - - 23, 12, 16, 23, 23, 23, 22, 0 - } ; - -static const YY_CHAR yy_ec[256] = - { 0, - 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, - 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 5, 1, 1, 6, 1, 7, 1, 1, 8, - 9, 1, 1, 10, 11, 12, 13, 14, 14, 14, - 14, 14, 14, 14, 14, 14, 14, 15, 16, 17, - 1, 18, 1, 1, 19, 19, 19, 19, 19, 19, - 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, - 19, 19, 19, 19, 19, 19, 19, 19, 19, 19, - 20, 1, 21, 1, 19, 1, 22, 23, 24, 25, - - 26, 27, 28, 29, 30, 19, 19, 31, 32, 33, - 34, 35, 19, 36, 37, 38, 39, 40, 19, 19, - 41, 19, 42, 43, 44, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 45, 1, 1, 1, - 46, 1, 1, 1, 1, 1, 1, 1, 1, 1, - - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 47, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1 - } ; - -static const YY_CHAR yy_meta[48] = - { 0, - 1, 1, 2, 2, 1, 1, 3, 3, 4, 3, - 5, 3, 1, 6, 3, 7, 8, 1, 6, 3, - 3, 6, 6, 6, 6, 6, 6, 6, 6, 6, - 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, - 6, 9, 4, 9, 1, 1, 1 - } ; - -static const flex_int32_t yy_base[326] = - { 0, - 0, 45, 707, 706, 90, 132, 41, 44, 71, 78, - 704, 703, 51, 53, 55, 57, 702, 701, 50, 51, - 65, 152, 717, 724, 724, 709, 704, 709, 75, 78, - 55, 74, 65, 101, 92, 107, 68, 76, 724, 706, - 79, 0, 156, 0, 164, 724, 724, 724, 724, 175, - 699, 724, 724, 724, 0, 179, 724, 0, 187, 698, - 724, 0, 697, 0, 113, 0, 126, 696, 694, 107, - 191, 214, 724, 134, 0, 696, 724, 140, 164, 135, - 200, 152, 139, 210, 176, 192, 209, 221, 182, 0, - 232, 236, 241, 0, 245, 249, 262, 675, 687, 237, - - 168, 686, 672, 666, 232, 663, 669, 681, 677, 0, - 255, 0, 259, 660, 0, 656, 0, 262, 0, 266, - 673, 680, 679, 260, 276, 300, 724, 304, 272, 681, - 276, 98, 680, 266, 285, 271, 287, 301, 280, 303, - 304, 659, 671, 670, 298, 669, 655, 661, 646, 652, - 644, 724, 724, 655, 724, 662, 724, 656, 330, 660, - 659, 658, 657, 724, 724, 639, 655, 641, 282, 308, - 639, 659, 310, 658, 657, 656, 312, 314, 317, 724, - 724, 724, 648, 724, 642, 646, 645, 644, 643, 638, - 724, 637, 348, 352, 369, 724, 724, 724, 724, 724, - - 633, 724, 604, 319, 347, 315, 615, 353, 335, 595, - 348, 608, 603, 724, 590, 724, 724, 724, 724, 575, - 589, 374, 386, 724, 507, 327, 510, 509, 313, 357, - 351, 335, 369, 371, 495, 487, 497, 391, 724, 724, - 373, 375, 386, 387, 390, 189, 503, 389, 391, 724, - 414, 426, 724, 400, 394, 500, 395, 396, 413, 476, - 402, 409, 443, 422, 414, 425, 427, 429, 432, 430, - 438, 498, 442, 441, 445, 495, 446, 447, 448, 451, - 452, 454, 456, 458, 491, 462, 459, 463, 470, 473, - 449, 475, 272, 478, 479, 260, 482, 483, 484, 485, - - 486, 219, 160, 487, 489, 493, 122, 724, 526, 535, - 544, 553, 562, 571, 580, 589, 594, 600, 609, 615, - 624, 631, 640, 649, 67 - } ; - -static const flex_int32_t yy_def[326] = - { 0, - 308, 1, 309, 309, 310, 310, 311, 311, 312, 312, - 313, 313, 314, 314, 315, 315, 313, 313, 316, 316, - 316, 316, 308, 308, 308, 308, 317, 308, 317, 317, - 317, 317, 317, 317, 317, 317, 308, 308, 308, 308, - 308, 318, 308, 319, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 320, 308, 308, 321, 308, 308, - 308, 322, 308, 323, 308, 324, 308, 308, 308, 308, - 308, 308, 308, 308, 325, 317, 308, 317, 317, 317, - 317, 317, 317, 317, 317, 317, 317, 308, 308, 318, - 308, 308, 308, 319, 308, 308, 308, 308, 308, 308, - - 308, 308, 308, 308, 308, 308, 308, 308, 308, 320, - 308, 321, 308, 308, 322, 308, 323, 308, 324, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 325, - 317, 317, 317, 317, 317, 317, 317, 317, 317, 317, - 317, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 317, 317, - 325, 317, 317, 317, 317, 317, 317, 317, 317, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - - 308, 308, 308, 317, 317, 325, 325, 317, 325, 325, - 317, 317, 317, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 317, 317, 325, 325, 317, - 325, 325, 325, 317, 325, 325, 308, 308, 308, 308, - 317, 325, 317, 325, 325, 325, 317, 325, 325, 308, - 308, 308, 308, 317, 325, 317, 325, 325, 325, 325, - 325, 325, 308, 317, 325, 325, 325, 325, 325, 325, - 325, 317, 325, 325, 325, 325, 325, 325, 325, 325, - 325, 325, 325, 325, 325, 325, 325, 325, 325, 325, - 325, 325, 325, 325, 325, 325, 325, 325, 325, 325, - - 325, 325, 325, 325, 325, 325, 325, 0, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308 - } ; - -static const flex_int32_t yy_nxt[772] = - { 0, - 24, 24, 25, 24, 24, 24, 26, 24, 24, 24, - 24, 24, 24, 27, 28, 24, 24, 24, 27, 24, - 24, 29, 27, 27, 30, 27, 27, 31, 27, 27, - 32, 33, 34, 35, 27, 27, 36, 27, 27, 27, - 27, 24, 24, 24, 24, 24, 24, 37, 38, 56, - 39, 40, 56, 65, 65, 65, 65, 67, 67, 67, - 67, 69, 69, 70, 70, 75, 71, 71, 71, 71, - 88, 88, 130, 59, 59, 75, 81, 72, 88, 88, - 59, 59, 73, 57, 75, 75, 57, 60, 75, 41, - 41, 41, 45, 45, 60, 82, 46, 47, 83, 48, - - 49, 48, 75, 80, 48, 48, 50, 78, 75, 51, - 52, 75, 61, 79, 61, 118, 118, 75, 123, 61, - 124, 61, 84, 89, 89, 89, 170, 85, 120, 120, - 86, 53, 75, 54, 45, 45, 129, 129, 46, 47, - 74, 48, 49, 48, 87, 75, 48, 48, 50, 75, - 75, 51, 52, 71, 71, 71, 71, 91, 92, 92, - 91, 133, 75, 136, 72, 95, 95, 95, 95, 73, - 75, 93, 131, 53, 75, 54, 96, 96, 96, 96, - 111, 111, 111, 111, 135, 155, 75, 97, 113, 113, - 113, 113, 125, 125, 125, 125, 98, 99, 100, 75, - - 101, 132, 75, 126, 102, 139, 156, 103, 127, 104, - 75, 105, 106, 107, 108, 128, 128, 128, 128, 75, - 75, 259, 134, 88, 88, 140, 89, 89, 89, 75, - 141, 127, 137, 91, 92, 92, 91, 91, 92, 92, - 91, 138, 91, 92, 92, 91, 95, 95, 95, 95, - 96, 96, 96, 96, 153, 160, 111, 111, 111, 111, - 113, 113, 113, 113, 118, 118, 161, 154, 120, 120, - 75, 123, 142, 124, 129, 129, 75, 125, 125, 125, - 125, 75, 75, 104, 143, 144, 75, 145, 126, 172, - 75, 146, 75, 127, 147, 75, 174, 75, 148, 149, - - 150, 128, 128, 128, 128, 128, 128, 128, 128, 169, - 175, 75, 173, 75, 75, 182, 177, 127, 75, 204, - 75, 127, 75, 75, 75, 75, 176, 75, 228, 75, - 179, 193, 193, 193, 193, 211, 183, 75, 178, 212, - 226, 205, 194, 213, 195, 75, 242, 196, 208, 193, - 193, 193, 193, 222, 222, 222, 222, 75, 75, 231, - 194, 75, 195, 75, 241, 196, 232, 75, 245, 196, - 223, 223, 223, 223, 230, 222, 222, 222, 222, 75, - 244, 75, 227, 75, 243, 75, 234, 223, 223, 223, - 223, 196, 251, 251, 251, 251, 75, 75, 246, 75, - - 75, 75, 254, 252, 75, 75, 75, 247, 253, 255, - 75, 256, 75, 257, 258, 251, 251, 251, 251, 75, - 262, 266, 261, 75, 75, 267, 252, 263, 263, 263, - 263, 253, 75, 264, 265, 75, 270, 75, 268, 75, - 75, 271, 75, 253, 263, 263, 263, 263, 75, 273, - 274, 75, 75, 275, 272, 75, 75, 75, 75, 75, - 253, 75, 75, 279, 75, 276, 75, 277, 75, 75, - 278, 280, 75, 75, 282, 283, 281, 287, 286, 288, - 75, 289, 284, 75, 285, 75, 296, 290, 75, 75, - 291, 292, 75, 75, 75, 75, 75, 75, 293, 75, - - 295, 75, 294, 75, 301, 75, 303, 299, 75, 269, - 75, 300, 297, 260, 250, 298, 305, 249, 248, 75, - 75, 302, 306, 304, 240, 307, 42, 42, 42, 42, - 42, 42, 42, 42, 42, 44, 44, 44, 44, 44, - 44, 44, 44, 44, 55, 55, 55, 55, 55, 55, - 55, 55, 55, 58, 58, 58, 58, 58, 58, 58, - 58, 58, 62, 62, 62, 62, 62, 62, 62, 62, - 62, 64, 64, 64, 64, 64, 64, 64, 64, 64, - 66, 66, 66, 66, 66, 66, 66, 66, 66, 61, - 61, 61, 61, 61, 61, 61, 61, 61, 76, 76, - - 90, 90, 90, 90, 90, 90, 239, 90, 90, 94, - 238, 237, 94, 236, 94, 110, 110, 110, 235, 110, - 110, 110, 110, 110, 112, 233, 112, 112, 112, 112, - 112, 115, 115, 115, 115, 115, 115, 115, 229, 115, - 117, 225, 117, 117, 117, 117, 117, 117, 117, 119, - 224, 119, 119, 119, 119, 119, 119, 119, 221, 220, - 219, 218, 217, 216, 215, 214, 75, 210, 209, 207, - 206, 203, 202, 201, 200, 199, 198, 197, 192, 191, - 190, 189, 188, 187, 186, 185, 184, 181, 180, 154, - 171, 75, 122, 122, 168, 167, 166, 165, 164, 163, - - 162, 159, 158, 157, 152, 151, 75, 122, 121, 116, - 114, 109, 74, 77, 75, 74, 308, 68, 68, 63, - 63, 43, 43, 23, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308 - } ; - -static const flex_int32_t yy_chk[772] = - { 0, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 2, 2, 7, - 2, 2, 8, 13, 13, 14, 14, 15, 15, 16, - 16, 19, 20, 19, 20, 31, 21, 21, 21, 21, - 37, 37, 325, 9, 9, 33, 31, 21, 38, 38, - 10, 10, 21, 7, 32, 29, 8, 9, 30, 2, - 2, 2, 5, 5, 10, 32, 5, 5, 33, 5, - - 5, 5, 35, 30, 5, 5, 5, 29, 132, 5, - 5, 34, 9, 29, 9, 65, 65, 36, 70, 10, - 70, 10, 34, 41, 41, 41, 132, 35, 67, 67, - 36, 5, 307, 5, 6, 6, 74, 74, 6, 6, - 74, 6, 6, 6, 36, 80, 6, 6, 6, 83, - 78, 6, 6, 22, 22, 22, 22, 43, 43, 43, - 43, 80, 82, 83, 22, 45, 45, 45, 45, 22, - 303, 43, 78, 6, 79, 6, 50, 50, 50, 50, - 56, 56, 56, 56, 82, 101, 85, 50, 59, 59, - 59, 59, 71, 71, 71, 71, 50, 50, 50, 246, - - 50, 79, 86, 71, 50, 85, 101, 50, 71, 50, - 81, 50, 50, 50, 50, 72, 72, 72, 72, 87, - 84, 246, 81, 88, 88, 86, 89, 89, 89, 302, - 87, 72, 84, 91, 91, 91, 91, 92, 92, 92, - 92, 84, 93, 93, 93, 93, 95, 95, 95, 95, - 96, 96, 96, 96, 100, 105, 111, 111, 111, 111, - 113, 113, 113, 113, 118, 118, 105, 100, 120, 120, - 296, 124, 96, 124, 129, 129, 134, 125, 125, 125, - 125, 136, 293, 96, 97, 97, 131, 97, 125, 134, - 139, 97, 169, 125, 97, 135, 136, 137, 97, 97, - - 97, 126, 126, 126, 126, 128, 128, 128, 128, 131, - 137, 138, 135, 140, 141, 145, 139, 126, 170, 169, - 173, 128, 177, 229, 178, 206, 138, 179, 206, 204, - 141, 159, 159, 159, 159, 177, 145, 226, 140, 178, - 204, 170, 159, 179, 159, 232, 229, 159, 173, 193, - 193, 193, 193, 194, 194, 194, 194, 205, 211, 209, - 193, 231, 193, 208, 226, 193, 209, 230, 232, 194, - 195, 195, 195, 195, 208, 222, 222, 222, 222, 233, - 231, 234, 205, 241, 230, 242, 211, 223, 223, 223, - 223, 222, 238, 238, 238, 238, 243, 244, 233, 248, - - 245, 249, 241, 238, 255, 257, 258, 234, 238, 242, - 254, 243, 261, 244, 245, 251, 251, 251, 251, 262, - 249, 257, 248, 259, 265, 258, 251, 252, 252, 252, - 252, 251, 264, 254, 255, 266, 261, 267, 259, 268, - 270, 262, 269, 252, 263, 263, 263, 263, 271, 265, - 266, 274, 273, 267, 264, 275, 277, 278, 279, 291, - 263, 280, 281, 271, 282, 268, 283, 269, 284, 287, - 270, 273, 286, 288, 275, 277, 274, 281, 280, 282, - 289, 283, 278, 290, 279, 292, 291, 284, 294, 295, - 286, 287, 297, 298, 299, 300, 301, 304, 288, 305, - - 290, 285, 289, 306, 298, 276, 300, 295, 272, 260, - 256, 297, 292, 247, 237, 294, 304, 236, 235, 228, - 227, 299, 305, 301, 225, 306, 309, 309, 309, 309, - 309, 309, 309, 309, 309, 310, 310, 310, 310, 310, - 310, 310, 310, 310, 311, 311, 311, 311, 311, 311, - 311, 311, 311, 312, 312, 312, 312, 312, 312, 312, - 312, 312, 313, 313, 313, 313, 313, 313, 313, 313, - 313, 314, 314, 314, 314, 314, 314, 314, 314, 314, - 315, 315, 315, 315, 315, 315, 315, 315, 315, 316, - 316, 316, 316, 316, 316, 316, 316, 316, 317, 317, - - 318, 318, 318, 318, 318, 318, 221, 318, 318, 319, - 220, 215, 319, 213, 319, 320, 320, 320, 212, 320, - 320, 320, 320, 320, 321, 210, 321, 321, 321, 321, - 321, 322, 322, 322, 322, 322, 322, 322, 207, 322, - 323, 203, 323, 323, 323, 323, 323, 323, 323, 324, - 201, 324, 324, 324, 324, 324, 324, 324, 192, 190, - 189, 188, 187, 186, 185, 183, 176, 175, 174, 172, - 171, 168, 167, 166, 163, 162, 161, 160, 158, 156, - 154, 151, 150, 149, 148, 147, 146, 144, 143, 142, - 133, 130, 123, 122, 121, 116, 114, 109, 108, 107, - - 106, 104, 103, 102, 99, 98, 76, 69, 68, 63, - 60, 51, 40, 28, 27, 26, 23, 18, 17, 12, - 11, 4, 3, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, - 308 - } ; - -static yy_state_type yy_last_accepting_state; -static char *yy_last_accepting_cpos; - -extern int yy_flex_debug; -int yy_flex_debug = 0; - -/* The intent behind this definition is that it'll catch - * any uses of REJECT which flex missed. - */ -#define REJECT reject_used_but_not_detected -#define yymore() yymore_used_but_not_detected -#define YY_MORE_ADJ 0 -#define YY_RESTORE_YY_MORE_OFFSET -char *yytext; -#line 1 "gabc/gabc-score-determination.l" -#line 2 "gabc/gabc-score-determination.l" -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the score lexer. - * - * Gregorio score determination in gabc input. - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include "struct.h" -#include "messages.h" -#include "bool.h" -#include "support.h" - -#include "gabc.h" -#include "gabc-score-determination.h" -#include "gabc-score-determination-y.h" - -static bool eof_found = false; - -#define START_STYLE(STYLE) \ - if (*styles & SB_ ## STYLE) { \ - gregorio_messagef("gabc_score_determination_lex", VERBOSITY_ERROR, 0, \ - _("style already started: %s"), gabc_score_determination_text); \ - } else { \ - *styles ^= SB_ ## STYLE; \ - return STYLE ## _BEGIN; \ - } - -#define END_STYLE(STYLE) \ - if (*styles & SB_ ## STYLE) { \ - *styles ^= SB_ ## STYLE; \ - return STYLE ## _END; \ - } else { \ - gregorio_messagef("gabc_score_determination_lex", VERBOSITY_ERROR, 0, \ - _("style not started: %s"), gabc_score_determination_text); \ - } - -#define RETURN_CHARACTERS \ - gabc_score_determination_lval.text = \ - gregorio_strdup(gabc_score_determination_text); \ - return CHARACTERS - -#define RETURN_SPACE \ - gabc_score_determination_lval.text = gregorio_strdup(" "); \ - return CHARACTERS - -#define YY_NO_INPUT - -#define YY_INPUT(buf,result,max_size) \ - if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) { \ - int c = '*'; \ - int n; \ - for (n = 0; n < max_size \ - && (c = getc(gabc_score_determination_in)) != EOF \ - && c != '\n'; ++n ) { \ - buf[n] = (char) c; \ - } \ - if (c == '\n') { \ - buf[n++] = (char) c; \ - } \ - if (c == EOF && ferror(gabc_score_determination_in)) { \ - YY_FATAL_ERROR("input in flex scanner failed"); \ - } \ - result = n; \ - } else { \ - errno=0; \ - while ((result = fread(buf, 1, max_size, gabc_score_determination_in)) \ - == 0 && ferror(gabc_score_determination_in)) { \ - if (errno != EINTR) { \ - YY_FATAL_ERROR("input in flex scanner failed"); \ - break; \ - } \ - errno = 0; \ - clearerr(gabc_score_determination_in); \ - } \ - } \ - gabc_digest(buf, result) - -#define YY_USER_ACTION gabc_update_location(&gabc_score_determination_lloc, \ - gabc_score_determination_text, gabc_score_determination_leng); - -#line 1079 "gabc/gabc-score-determination-l.c" - -/* The expression for attribute below is rather messy because we allow -for (a) single-line values, ending with a semicolon at end of line or a -double semicolon, (b) multi-line values, which end at a double -semicolon. */ -#line 1085 "gabc/gabc-score-determination-l.c" - -#define INITIAL 0 -#define attribute 1 -#define score 2 -#define notes 3 -#define sp 4 -#define verb 5 -#define comments 6 -#define inicomments 7 -#define alt 8 -#define protrusion_value 9 -#define protrusion_end 10 - -#ifndef YY_NO_UNISTD_H -/* Special case for "unistd.h", since it is non-ANSI. We include it way - * down here because we want the user's section 1 to have been scanned first. - * The user has a chance to override it with an option. - */ -#include <unistd.h> -#endif - -#ifndef YY_EXTRA_TYPE -#define YY_EXTRA_TYPE void * -#endif - -static int yy_init_globals ( void ); - -/* Accessor methods to globals. - These are made visible to non-reentrant scanners for convenience. */ - -int yylex_destroy ( void ); - -int yyget_debug ( void ); - -void yyset_debug ( int debug_flag ); - -YY_EXTRA_TYPE yyget_extra ( void ); - -void yyset_extra ( YY_EXTRA_TYPE user_defined ); - -FILE *yyget_in ( void ); - -void yyset_in ( FILE * _in_str ); - -FILE *yyget_out ( void ); - -void yyset_out ( FILE * _out_str ); - - int yyget_leng ( void ); - -char *yyget_text ( void ); - -int yyget_lineno ( void ); - -void yyset_lineno ( int _line_number ); - -/* Macros after this point can all be overridden by user definitions in - * section 1. - */ - -#ifndef YY_SKIP_YYWRAP -#ifdef __cplusplus -extern "C" int yywrap ( void ); -#else -extern int yywrap ( void ); -#endif -#endif - -#ifndef YY_NO_UNPUT - -#endif - -#ifndef yytext_ptr -static void yy_flex_strncpy ( char *, const char *, int ); -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen ( const char * ); -#endif - -#ifndef YY_NO_INPUT -#ifdef __cplusplus -static int yyinput ( void ); -#else -static int input ( void ); -#endif - -#endif - - static int yy_start_stack_ptr = 0; - static int yy_start_stack_depth = 0; - static int *yy_start_stack = NULL; - -/* Amount of stuff to slurp up with each read. */ -#ifndef YY_READ_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k */ -#define YY_READ_BUF_SIZE 16384 -#else -#define YY_READ_BUF_SIZE 8192 -#endif /* __ia64__ */ -#endif - -/* Copy whatever the last rule matched to the standard output. */ -#ifndef ECHO -/* This used to be an fputs(), but since the string might contain NUL's, - * we now use fwrite(). - */ -#define ECHO do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0) -#endif - -/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, - * is returned in "result". - */ -#ifndef YY_INPUT -#define YY_INPUT(buf,result,max_size) \ - if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ - { \ - int c = '*'; \ - int n; \ - for ( n = 0; n < max_size && \ - (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ - buf[n] = (char) c; \ - if ( c == '\n' ) \ - buf[n++] = (char) c; \ - if ( c == EOF && ferror( yyin ) ) \ - YY_FATAL_ERROR( "input in flex scanner failed" ); \ - result = n; \ - } \ - else \ - { \ - errno=0; \ - while ( (result = (int) fread(buf, 1, (yy_size_t) max_size, yyin)) == 0 && ferror(yyin)) \ - { \ - if( errno != EINTR) \ - { \ - YY_FATAL_ERROR( "input in flex scanner failed" ); \ - break; \ - } \ - errno=0; \ - clearerr(yyin); \ - } \ - }\ -\ - -#endif - -/* No semi-colon after return; correct usage is to write "yyterminate();" - - * we don't want an extra ';' after the "return" because that will cause - * some compilers to complain about unreachable statements. - */ -#ifndef yyterminate -#define yyterminate() return YY_NULL -#endif - -/* Number of entries by which start-condition stack grows. */ -#ifndef YY_START_STACK_INCR -#define YY_START_STACK_INCR 25 -#endif - -/* Report a fatal error. */ -#ifndef YY_FATAL_ERROR -#define YY_FATAL_ERROR(msg) yy_fatal_error( msg ) -#endif - -/* end tables serialization structures and prototypes */ - -/* Default declaration of generated scanner - a define so the user can - * easily add parameters. - */ -#ifndef YY_DECL -#define YY_DECL_IS_OURS 1 - -extern int yylex (void); - -#define YY_DECL int yylex (void) -#endif /* !YY_DECL */ - -/* Code executed at the beginning of each rule, after yytext and yyleng - * have been set up. - */ -#ifndef YY_USER_ACTION -#define YY_USER_ACTION -#endif - -/* Code executed at the end of each rule. */ -#ifndef YY_BREAK -#define YY_BREAK /*LINTED*/break; -#endif - -#define YY_RULE_SETUP \ - if ( yyleng > 0 ) \ - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \ - (yytext[yyleng - 1] == '\n'); \ - YY_USER_ACTION - -/** The main scanner function which does all the work. - */ -YY_DECL -{ - yy_state_type yy_current_state; - char *yy_cp, *yy_bp; - int yy_act; - - if ( !(yy_init) ) - { - (yy_init) = 1; - -#ifdef YY_USER_INIT - YY_USER_INIT; -#endif - - if ( ! (yy_start) ) - (yy_start) = 1; /* first start state */ - - if ( ! yyin ) - yyin = stdin; - - if ( ! yyout ) - yyout = stdout; - - if ( ! YY_CURRENT_BUFFER ) { - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer( yyin, YY_BUF_SIZE ); - } - - yy_load_buffer_state( ); - } - - { -#line 136 "gabc/gabc-score-determination.l" - -#line 1319 "gabc/gabc-score-determination-l.c" - - while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */ - { - yy_cp = (yy_c_buf_p); - - /* Support of yytext. */ - *yy_cp = (yy_hold_char); - - /* yy_bp points to the position in yy_ch_buf of the start of - * the current run. - */ - yy_bp = yy_cp; - - yy_current_state = (yy_start); - yy_current_state += YY_AT_BOL(); -yy_match: - do - { - YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ; - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 309 ) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - ++yy_cp; - } - while ( yy_base[yy_current_state] != 724 ); - -yy_find_action: - yy_act = yy_accept[yy_current_state]; - if ( yy_act == 0 ) - { /* have to back up */ - yy_cp = (yy_last_accepting_cpos); - yy_current_state = (yy_last_accepting_state); - yy_act = yy_accept[yy_current_state]; - } - - YY_DO_BEFORE_ACTION; - -do_action: /* This label is used only to access EOF actions. */ - - switch ( yy_act ) - { /* beginning of action switch */ - case 0: /* must back up */ - /* undo the effects of YY_DO_BEFORE_ACTION */ - *yy_cp = (yy_hold_char); - yy_cp = (yy_last_accepting_cpos); - yy_current_state = (yy_last_accepting_state); - goto yy_find_action; - -case 1: -YY_RULE_SETUP -#line 137 "gabc/gabc-score-determination.l" -{ - /* BOM written by a lot of windows softwares when they write UTF-8 */ - } - YY_BREAK -case 2: -/* rule 2 can match eol */ -YY_RULE_SETUP -#line 140 "gabc/gabc-score-determination.l" -{ - /* ignoring empty lines */ - } - YY_BREAK -case 3: -YY_RULE_SETUP -#line 143 "gabc/gabc-score-determination.l" -{ - BEGIN(inicomments); - } - YY_BREAK -case 4: -/* rule 4 can match eol */ -YY_RULE_SETUP -#line 146 "gabc/gabc-score-determination.l" -{ - BEGIN(INITIAL); - } - YY_BREAK -case 5: -YY_RULE_SETUP -#line 149 "gabc/gabc-score-determination.l" -{ - /* ignored */ - } - YY_BREAK -case 6: -YY_RULE_SETUP -#line 152 "gabc/gabc-score-determination.l" -{ - BEGIN(attribute); - return COLON; - } - YY_BREAK -case 7: -/* rule 7 can match eol */ -YY_RULE_SETUP -#line 156 "gabc/gabc-score-determination.l" -{ - BEGIN(INITIAL); - return SEMICOLON; - } - YY_BREAK -case 8: -/* rule 8 can match eol */ -YY_RULE_SETUP -#line 160 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return ATTRIBUTE; - } - YY_BREAK -case 9: -YY_RULE_SETUP -#line 165 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return ATTRIBUTE; -} - YY_BREAK -case 10: -YY_RULE_SETUP -#line 170 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.character = gabc_score_determination_text[5]; - return DEF_MACRO; - } - YY_BREAK -case 11: -YY_RULE_SETUP -#line 174 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return NAME; - } - YY_BREAK -case 12: -YY_RULE_SETUP -#line 179 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return SCORE_COPYRIGHT; - } - YY_BREAK -case 13: -YY_RULE_SETUP -#line 184 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return GABC_COPYRIGHT; - } - YY_BREAK -case 14: -YY_RULE_SETUP -#line 189 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return MODE; - } - YY_BREAK -case 15: -YY_RULE_SETUP -#line 194 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return MODE_MODIFIER; - } - YY_BREAK -case 16: -YY_RULE_SETUP -#line 199 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return MODE_DIFFERENTIA; - } - YY_BREAK -case 17: -YY_RULE_SETUP -#line 204 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return ANNOTATION; - } - YY_BREAK -case 18: -YY_RULE_SETUP -#line 209 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return AUTHOR; - } - YY_BREAK -case 19: -YY_RULE_SETUP -#line 214 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return LANGUAGE; - } - YY_BREAK -case 20: -YY_RULE_SETUP -#line 219 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return STAFF_LINES; - } - YY_BREAK -case 21: -YY_RULE_SETUP -#line 224 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return NABC_LINES; - } - YY_BREAK -case 22: -YY_RULE_SETUP -#line 229 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return ORISCUS_ORIENTATION; - } - YY_BREAK -case 23: -YY_RULE_SETUP -#line 234 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return OTHER_HEADER; - } - YY_BREAK -case 24: -/* rule 24 can match eol */ -YY_RULE_SETUP -#line 239 "gabc/gabc-score-determination.l" -{ - BEGIN(score); - return END_OF_DEFINITIONS; - } - YY_BREAK -case 25: -YY_RULE_SETUP -#line 243 "gabc/gabc-score-determination.l" -{ - gregorio_messagef("det_score", VERBOSITY_ERROR, 0, - _("unrecognized character: \"%c\" in definition part"), - gabc_score_determination_text[0]); - } - YY_BREAK -case 26: -/* rule 26 can match eol */ -YY_RULE_SETUP -#line 248 "gabc/gabc-score-determination.l" -{ - RETURN_SPACE; - } - YY_BREAK -case 27: -YY_RULE_SETUP -#line 251 "gabc/gabc-score-determination.l" -{ - RETURN_CHARACTERS; - } - YY_BREAK -case 28: -YY_RULE_SETUP -#line 254 "gabc/gabc-score-determination.l" -{ - return HYPHEN; - } - YY_BREAK -case 29: -YY_RULE_SETUP -#line 257 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return PROTRUDING_PUNCTUATION; - } - YY_BREAK -case 30: -YY_RULE_SETUP -#line 262 "gabc/gabc-score-determination.l" -{ - return NLBA_B; - } - YY_BREAK -case 31: -YY_RULE_SETUP -#line 265 "gabc/gabc-score-determination.l" -{ - return NLBA_E; - } - YY_BREAK -case 32: -YY_RULE_SETUP -#line 268 "gabc/gabc-score-determination.l" -{ - START_STYLE(I); - } - YY_BREAK -case 33: -YY_RULE_SETUP -#line 271 "gabc/gabc-score-determination.l" -{ - END_STYLE(I); - } - YY_BREAK -case 34: -YY_RULE_SETUP -#line 274 "gabc/gabc-score-determination.l" -{ - START_STYLE(TT); - } - YY_BREAK -case 35: -YY_RULE_SETUP -#line 277 "gabc/gabc-score-determination.l" -{ - END_STYLE(TT); - } - YY_BREAK -case 36: -YY_RULE_SETUP -#line 280 "gabc/gabc-score-determination.l" -{ - START_STYLE(UL); - } - YY_BREAK -case 37: -YY_RULE_SETUP -#line 283 "gabc/gabc-score-determination.l" -{ - END_STYLE(UL); - } - YY_BREAK -case 38: -YY_RULE_SETUP -#line 286 "gabc/gabc-score-determination.l" -{ - START_STYLE(C); - } - YY_BREAK -case 39: -YY_RULE_SETUP -#line 289 "gabc/gabc-score-determination.l" -{ - END_STYLE(C); - } - YY_BREAK -case 40: -YY_RULE_SETUP -#line 292 "gabc/gabc-score-determination.l" -{ - START_STYLE(B); - } - YY_BREAK -case 41: -YY_RULE_SETUP -#line 295 "gabc/gabc-score-determination.l" -{ - END_STYLE(B); - } - YY_BREAK -case 42: -YY_RULE_SETUP -#line 298 "gabc/gabc-score-determination.l" -{ - START_STYLE(SC); - } - YY_BREAK -case 43: -YY_RULE_SETUP -#line 301 "gabc/gabc-score-determination.l" -{ - END_STYLE(SC); - } - YY_BREAK -case 44: -YY_RULE_SETUP -#line 304 "gabc/gabc-score-determination.l" -{ - START_STYLE(ELISION); - } - YY_BREAK -case 45: -YY_RULE_SETUP -#line 307 "gabc/gabc-score-determination.l" -{ - END_STYLE(ELISION); - } - YY_BREAK -case 46: -YY_RULE_SETUP -#line 310 "gabc/gabc-score-determination.l" -{ - BEGIN(sp); - return SP_BEGIN; - } - YY_BREAK -case 47: -YY_RULE_SETUP -#line 314 "gabc/gabc-score-determination.l" -{ - BEGIN(score); - return SP_END; - } - YY_BREAK -case 48: -/* rule 48 can match eol */ -YY_RULE_SETUP -#line 318 "gabc/gabc-score-determination.l" -{ - RETURN_SPACE; - } - YY_BREAK -case 49: -YY_RULE_SETUP -#line 321 "gabc/gabc-score-determination.l" -{ - RETURN_CHARACTERS; - } - YY_BREAK -case 50: -YY_RULE_SETUP -#line 324 "gabc/gabc-score-determination.l" -{ - BEGIN(comments); - } - YY_BREAK -case 51: -/* rule 51 can match eol */ -YY_RULE_SETUP -#line 327 "gabc/gabc-score-determination.l" -{ - BEGIN(score); - } - YY_BREAK -case 52: -YY_RULE_SETUP -#line 330 "gabc/gabc-score-determination.l" -{ - /* ignored */ - } - YY_BREAK -case 53: -YY_RULE_SETUP -#line 333 "gabc/gabc-score-determination.l" -{ - BEGIN(verb); - return VERB_BEGIN; - } - YY_BREAK -case 54: -YY_RULE_SETUP -#line 337 "gabc/gabc-score-determination.l" -{ - BEGIN(score); - return VERB_END; - } - YY_BREAK -case 55: -/* rule 55 can match eol */ -YY_RULE_SETUP -#line 341 "gabc/gabc-score-determination.l" -{ - RETURN_CHARACTERS; - } - YY_BREAK -case 56: -YY_RULE_SETUP -#line 344 "gabc/gabc-score-determination.l" -{ - RETURN_CHARACTERS; - } - YY_BREAK -case 57: -YY_RULE_SETUP -#line 347 "gabc/gabc-score-determination.l" -{ - return CENTER_BEGIN; - } - YY_BREAK -case 58: -YY_RULE_SETUP -#line 350 "gabc/gabc-score-determination.l" -{ - return CENTER_END; - } - YY_BREAK -case 59: -YY_RULE_SETUP -#line 353 "gabc/gabc-score-determination.l" -{ - BEGIN(alt); - return ALT_BEGIN; - } - YY_BREAK -case 60: -YY_RULE_SETUP -#line 357 "gabc/gabc-score-determination.l" -{ - BEGIN(score); - return ALT_END; - } - YY_BREAK -case 61: -YY_RULE_SETUP -#line 361 "gabc/gabc-score-determination.l" -{ - return EUOUAE_B; - } - YY_BREAK -case 62: -YY_RULE_SETUP -#line 364 "gabc/gabc-score-determination.l" -{ - return EUOUAE_E; - } - YY_BREAK -case 63: -YY_RULE_SETUP -#line 367 "gabc/gabc-score-determination.l" -{ - return TRANSLATION_CENTER_END; - } - YY_BREAK -case 64: -YY_RULE_SETUP -#line 370 "gabc/gabc-score-determination.l" -{ - return TRANSLATION_BEGIN; - } - YY_BREAK -case 65: -YY_RULE_SETUP -#line 373 "gabc/gabc-score-determination.l" -{ - return TRANSLATION_END; - } - YY_BREAK -case 66: -/* rule 66 can match eol */ -YY_RULE_SETUP -#line 376 "gabc/gabc-score-determination.l" -{ - return CLEAR; - } - YY_BREAK -case 67: -/* rule 67 can match eol */ -YY_RULE_SETUP -#line 379 "gabc/gabc-score-determination.l" -{ - return PROTRUSION; - } - YY_BREAK -case 68: -/* rule 68 can match eol */ -YY_RULE_SETUP -#line 382 "gabc/gabc-score-determination.l" -{ - BEGIN(protrusion_value); - return PROTRUSION; - } - YY_BREAK -case 69: -YY_RULE_SETUP -#line 386 "gabc/gabc-score-determination.l" -{ - BEGIN(protrusion_end); - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return PROTRUSION_VALUE; - } - YY_BREAK -case 70: -/* rule 70 can match eol */ -YY_RULE_SETUP -#line 392 "gabc/gabc-score-determination.l" -{ - BEGIN(score); - return PROTRUSION_END; - } - YY_BREAK -case 71: -YY_RULE_SETUP -#line 396 "gabc/gabc-score-determination.l" -{ - BEGIN(notes); - return OPENING_BRACKET; - } - YY_BREAK -case 72: -/* rule 72 can match eol */ -YY_RULE_SETUP -#line 400 "gabc/gabc-score-determination.l" -{ - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return NOTES; - } - YY_BREAK -case 73: -YY_RULE_SETUP -#line 405 "gabc/gabc-score-determination.l" -{ - return NABC_CUT; - } - YY_BREAK -case 74: -YY_RULE_SETUP -#line 408 "gabc/gabc-score-determination.l" -{ - BEGIN(score); - return CLOSING_BRACKET; - } - YY_BREAK -case 75: -/* rule 75 can match eol */ -YY_RULE_SETUP -#line 412 "gabc/gabc-score-determination.l" -{ - BEGIN(score); - return CLOSING_BRACKET_WITH_SPACE; - } - YY_BREAK -case YY_STATE_EOF(INITIAL): -case YY_STATE_EOF(attribute): -case YY_STATE_EOF(score): -case YY_STATE_EOF(notes): -case YY_STATE_EOF(sp): -case YY_STATE_EOF(verb): -case YY_STATE_EOF(comments): -case YY_STATE_EOF(inicomments): -case YY_STATE_EOF(alt): -case YY_STATE_EOF(protrusion_value): -case YY_STATE_EOF(protrusion_end): -#line 416 "gabc/gabc-score-determination.l" -{ - if (!eof_found) { - eof_found = true; - return END_OF_FILE; - } else { - yyterminate(); - } - } - YY_BREAK -case 76: -/* rule 76 can match eol */ -YY_RULE_SETUP -#line 424 "gabc/gabc-score-determination.l" -{ - gregorio_messagef("gabc_score_determination_lex", VERBOSITY_ERROR, 0, - _("unrecognized character: \"%c\""), - gabc_score_determination_text[0]); - } - YY_BREAK -case 77: -YY_RULE_SETUP -#line 429 "gabc/gabc-score-determination.l" -ECHO; - YY_BREAK -#line 2007 "gabc/gabc-score-determination-l.c" - - case YY_END_OF_BUFFER: - { - /* Amount of text matched not including the EOB char. */ - int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1; - - /* Undo the effects of YY_DO_BEFORE_ACTION. */ - *yy_cp = (yy_hold_char); - YY_RESTORE_YY_MORE_OFFSET - - if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW ) - { - /* We're scanning a new file or input source. It's - * possible that this happened because the user - * just pointed yyin at a new source and called - * yylex(). If so, then we have to assure - * consistency between YY_CURRENT_BUFFER and our - * globals. Here is the right place to do so, because - * this is the first action (other than possibly a - * back-up) that will match for the new input source. - */ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL; - } - - /* Note that here we test for yy_c_buf_p "<=" to the position - * of the first EOB in the buffer, since yy_c_buf_p will - * already have been incremented past the NUL character - * (since all states make transitions on EOB to the - * end-of-buffer state). Contrast this with the test - * in input(). - */ - if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) - { /* This was really a NUL. */ - yy_state_type yy_next_state; - - (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state( ); - - /* Okay, we're now positioned to make the NUL - * transition. We couldn't have - * yy_get_previous_state() go ahead and do it - * for us because it doesn't know how to deal - * with the possibility of jamming (and we don't - * want to build jamming into it because then it - * will run more slowly). - */ - - yy_next_state = yy_try_NUL_trans( yy_current_state ); - - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - - if ( yy_next_state ) - { - /* Consume the NUL. */ - yy_cp = ++(yy_c_buf_p); - yy_current_state = yy_next_state; - goto yy_match; - } - - else - { - yy_cp = (yy_c_buf_p); - goto yy_find_action; - } - } - - else switch ( yy_get_next_buffer( ) ) - { - case EOB_ACT_END_OF_FILE: - { - (yy_did_buffer_switch_on_eof) = 0; - - if ( yywrap( ) ) - { - /* Note: because we've taken care in - * yy_get_next_buffer() to have set up - * yytext, we can now set up - * yy_c_buf_p so that if some total - * hoser (like flex itself) wants to - * call the scanner after we return the - * YY_NULL, it'll still work - another - * YY_NULL will get returned. - */ - (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ; - - yy_act = YY_STATE_EOF(YY_START); - goto do_action; - } - - else - { - if ( ! (yy_did_buffer_switch_on_eof) ) - YY_NEW_FILE; - } - break; - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = - (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state( ); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_match; - - case EOB_ACT_LAST_MATCH: - (yy_c_buf_p) = - &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]; - - yy_current_state = yy_get_previous_state( ); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_find_action; - } - break; - } - - default: - YY_FATAL_ERROR( - "fatal flex scanner internal error--no action found" ); - } /* end of action switch */ - } /* end of scanning one token */ - } /* end of user's declarations */ -} /* end of yylex */ - -/* yy_get_next_buffer - try to read in a new buffer - * - * Returns a code representing an action: - * EOB_ACT_LAST_MATCH - - * EOB_ACT_CONTINUE_SCAN - continue scanning from current position - * EOB_ACT_END_OF_FILE - end of file - */ -static int yy_get_next_buffer (void) -{ - char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; - char *source = (yytext_ptr); - int number_to_move, i; - int ret_val; - - if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] ) - YY_FATAL_ERROR( - "fatal flex scanner internal error--end of buffer missed" ); - - if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 ) - { /* Don't try to fill the buffer, so this is an EOF. */ - if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 ) - { - /* We matched a single character, the EOB, so - * treat this as a final EOF. - */ - return EOB_ACT_END_OF_FILE; - } - - else - { - /* We matched some text prior to the EOB, first - * process it. - */ - return EOB_ACT_LAST_MATCH; - } - } - - /* Try to read more data. */ - - /* First move last chars to start of buffer. */ - number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr) - 1); - - for ( i = 0; i < number_to_move; ++i ) - *(dest++) = *(source++); - - if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING ) - /* don't do the read, it's not guaranteed to return an EOF, - * just force an EOF - */ - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0; - - else - { - int num_to_read = - YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; - - while ( num_to_read <= 0 ) - { /* Not enough room in the buffer - grow it. */ - - /* just a shorter name for the current buffer */ - YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; - - int yy_c_buf_p_offset = - (int) ((yy_c_buf_p) - b->yy_ch_buf); - - if ( b->yy_is_our_buffer ) - { - int new_size = b->yy_buf_size * 2; - - if ( new_size <= 0 ) - b->yy_buf_size += b->yy_buf_size / 8; - else - b->yy_buf_size *= 2; - - b->yy_ch_buf = (char *) - /* Include room in for 2 EOB chars. */ - yyrealloc( (void *) b->yy_ch_buf, - (yy_size_t) (b->yy_buf_size + 2) ); - } - else - /* Can't grow it, we don't own it. */ - b->yy_ch_buf = NULL; - - if ( ! b->yy_ch_buf ) - YY_FATAL_ERROR( - "fatal error - scanner input buffer overflow" ); - - (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset]; - - num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - - number_to_move - 1; - - } - - if ( num_to_read > YY_READ_BUF_SIZE ) - num_to_read = YY_READ_BUF_SIZE; - - /* Read in more data. */ - YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), - (yy_n_chars), num_to_read ); - - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - if ( (yy_n_chars) == 0 ) - { - if ( number_to_move == YY_MORE_ADJ ) - { - ret_val = EOB_ACT_END_OF_FILE; - yyrestart( yyin ); - } - - else - { - ret_val = EOB_ACT_LAST_MATCH; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = - YY_BUFFER_EOF_PENDING; - } - } - - else - ret_val = EOB_ACT_CONTINUE_SCAN; - - if (((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { - /* Extend the array by 50%, plus the number we really need. */ - int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc( - (void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, (yy_size_t) new_size ); - if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" ); - /* "- 2" to take care of EOB's */ - YY_CURRENT_BUFFER_LVALUE->yy_buf_size = (int) (new_size - 2); - } - - (yy_n_chars) += number_to_move; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR; - - (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0]; - - return ret_val; -} - -/* yy_get_previous_state - get the state just before the EOB char was reached */ - - static yy_state_type yy_get_previous_state (void) -{ - yy_state_type yy_current_state; - char *yy_cp; - - yy_current_state = (yy_start); - yy_current_state += YY_AT_BOL(); - - for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) - { - YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 309 ) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - } - - return yy_current_state; -} - -/* yy_try_NUL_trans - try to make a transition on the NUL character - * - * synopsis - * next_state = yy_try_NUL_trans( current_state ); - */ - static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state ) -{ - int yy_is_jam; - char *yy_cp = (yy_c_buf_p); - - YY_CHAR yy_c = 1; - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 309 ) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - yy_is_jam = (yy_current_state == 308); - - return yy_is_jam ? 0 : yy_current_state; -} - -#ifndef YY_NO_UNPUT - -#endif - -#ifndef YY_NO_INPUT -#ifdef __cplusplus - static int yyinput (void) -#else - static int input (void) -#endif - -{ - int c; - - *(yy_c_buf_p) = (yy_hold_char); - - if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR ) - { - /* yy_c_buf_p now points to the character we want to return. - * If this occurs *before* the EOB characters, then it's a - * valid NUL; if not, then we've hit the end of the buffer. - */ - if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) - /* This was really a NUL. */ - *(yy_c_buf_p) = '\0'; - - else - { /* need more input */ - int offset = (int) ((yy_c_buf_p) - (yytext_ptr)); - ++(yy_c_buf_p); - - switch ( yy_get_next_buffer( ) ) - { - case EOB_ACT_LAST_MATCH: - /* This happens because yy_g_n_b() - * sees that we've accumulated a - * token and flags that we need to - * try matching the token before - * proceeding. But for input(), - * there's no matching to consider. - * So convert the EOB_ACT_LAST_MATCH - * to EOB_ACT_END_OF_FILE. - */ - - /* Reset buffer status. */ - yyrestart( yyin ); - - /*FALLTHROUGH*/ - - case EOB_ACT_END_OF_FILE: - { - if ( yywrap( ) ) - return 0; - - if ( ! (yy_did_buffer_switch_on_eof) ) - YY_NEW_FILE; -#ifdef __cplusplus - return yyinput(); -#else - return input(); -#endif - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = (yytext_ptr) + offset; - break; - } - } - } - - c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */ - *(yy_c_buf_p) = '\0'; /* preserve yytext */ - (yy_hold_char) = *++(yy_c_buf_p); - - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n'); - - return c; -} -#endif /* ifndef YY_NO_INPUT */ - -/** Immediately switch to a different input stream. - * @param input_file A readable stream. - * - * @note This function does not reset the start condition to @c INITIAL . - */ - void yyrestart (FILE * input_file ) -{ - - if ( ! YY_CURRENT_BUFFER ){ - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer( yyin, YY_BUF_SIZE ); - } - - yy_init_buffer( YY_CURRENT_BUFFER, input_file ); - yy_load_buffer_state( ); -} - -/** Switch to a different input buffer. - * @param new_buffer The new input buffer. - * - */ - void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ) -{ - - /* TODO. We should be able to replace this entire function body - * with - * yypop_buffer_state(); - * yypush_buffer_state(new_buffer); - */ - yyensure_buffer_stack (); - if ( YY_CURRENT_BUFFER == new_buffer ) - return; - - if ( YY_CURRENT_BUFFER ) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - YY_CURRENT_BUFFER_LVALUE = new_buffer; - yy_load_buffer_state( ); - - /* We don't actually know whether we did this switch during - * EOF (yywrap()) processing, but the only time this flag - * is looked at is after yywrap() is called, so it's safe - * to go ahead and always set it. - */ - (yy_did_buffer_switch_on_eof) = 1; -} - -static void yy_load_buffer_state (void) -{ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos; - yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file; - (yy_hold_char) = *(yy_c_buf_p); -} - -/** Allocate and initialize an input buffer state. - * @param file A readable stream. - * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE. - * - * @return the allocated buffer state. - */ - YY_BUFFER_STATE yy_create_buffer (FILE * file, int size ) -{ - YY_BUFFER_STATE b; - - b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); - if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); - - b->yy_buf_size = size; - - /* yy_ch_buf has to be 2 characters longer than the size given because - * we need to put in 2 end-of-buffer characters. - */ - b->yy_ch_buf = (char *) yyalloc( (yy_size_t) (b->yy_buf_size + 2) ); - if ( ! b->yy_ch_buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); - - b->yy_is_our_buffer = 1; - - yy_init_buffer( b, file ); - - return b; -} - -/** Destroy the buffer. - * @param b a buffer created with yy_create_buffer() - * - */ - void yy_delete_buffer (YY_BUFFER_STATE b ) -{ - - if ( ! b ) - return; - - if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */ - YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0; - - if ( b->yy_is_our_buffer ) - yyfree( (void *) b->yy_ch_buf ); - - yyfree( (void *) b ); -} - -/* Initializes or reinitializes a buffer. - * This function is sometimes called more than once on the same buffer, - * such as during a yyrestart() or at EOF. - */ - static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file ) - -{ - int oerrno = errno; - - yy_flush_buffer( b ); - - b->yy_input_file = file; - b->yy_fill_buffer = 1; - - /* If b is the current buffer, then yy_init_buffer was _probably_ - * called from yyrestart() or through yy_get_next_buffer. - * In that case, we don't want to reset the lineno or column. - */ - if (b != YY_CURRENT_BUFFER){ - b->yy_bs_lineno = 1; - b->yy_bs_column = 0; - } - - b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0; - - errno = oerrno; -} - -/** Discard all buffered characters. On the next scan, YY_INPUT will be called. - * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER. - * - */ - void yy_flush_buffer (YY_BUFFER_STATE b ) -{ - if ( ! b ) - return; - - b->yy_n_chars = 0; - - /* We always need two end-of-buffer characters. The first causes - * a transition to the end-of-buffer state. The second causes - * a jam in that state. - */ - b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; - b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; - - b->yy_buf_pos = &b->yy_ch_buf[0]; - - b->yy_at_bol = 1; - b->yy_buffer_status = YY_BUFFER_NEW; - - if ( b == YY_CURRENT_BUFFER ) - yy_load_buffer_state( ); -} - -/** Pushes the new state onto the stack. The new state becomes - * the current state. This function will allocate the stack - * if necessary. - * @param new_buffer The new state. - * - */ -void yypush_buffer_state (YY_BUFFER_STATE new_buffer ) -{ - if (new_buffer == NULL) - return; - - yyensure_buffer_stack(); - - /* This block is copied from yy_switch_to_buffer. */ - if ( YY_CURRENT_BUFFER ) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - /* Only push if top exists. Otherwise, replace top. */ - if (YY_CURRENT_BUFFER) - (yy_buffer_stack_top)++; - YY_CURRENT_BUFFER_LVALUE = new_buffer; - - /* copied from yy_switch_to_buffer. */ - yy_load_buffer_state( ); - (yy_did_buffer_switch_on_eof) = 1; -} - -/** Removes and deletes the top of the stack, if present. - * The next element becomes the new top. - * - */ -void yypop_buffer_state (void) -{ - if (!YY_CURRENT_BUFFER) - return; - - yy_delete_buffer(YY_CURRENT_BUFFER ); - YY_CURRENT_BUFFER_LVALUE = NULL; - if ((yy_buffer_stack_top) > 0) - --(yy_buffer_stack_top); - - if (YY_CURRENT_BUFFER) { - yy_load_buffer_state( ); - (yy_did_buffer_switch_on_eof) = 1; - } -} - -/* Allocates the stack if it does not exist. - * Guarantees space for at least one push. - */ -static void yyensure_buffer_stack (void) -{ - yy_size_t num_to_alloc; - - if (!(yy_buffer_stack)) { - - /* First allocation is just for 2 elements, since we don't know if this - * scanner will even need a stack. We use 2 instead of 1 to avoid an - * immediate realloc on the next call. - */ - num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */ - (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc - (num_to_alloc * sizeof(struct yy_buffer_state*) - ); - if ( ! (yy_buffer_stack) ) - YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); - - memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); - - (yy_buffer_stack_max) = num_to_alloc; - (yy_buffer_stack_top) = 0; - return; - } - - if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){ - - /* Increase the buffer to prepare for a possible push. */ - yy_size_t grow_size = 8 /* arbitrary grow size */; - - num_to_alloc = (yy_buffer_stack_max) + grow_size; - (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc - ((yy_buffer_stack), - num_to_alloc * sizeof(struct yy_buffer_state*) - ); - if ( ! (yy_buffer_stack) ) - YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); - - /* zero only the new slots.*/ - memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*)); - (yy_buffer_stack_max) = num_to_alloc; - } -} - -/** Setup the input buffer state to scan directly from a user-specified character buffer. - * @param base the character buffer - * @param size the size in bytes of the character buffer - * - * @return the newly allocated buffer state object. - */ -YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) -{ - YY_BUFFER_STATE b; - - if ( size < 2 || - base[size-2] != YY_END_OF_BUFFER_CHAR || - base[size-1] != YY_END_OF_BUFFER_CHAR ) - /* They forgot to leave room for the EOB's. */ - return NULL; - - b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); - if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); - - b->yy_buf_size = (int) (size - 2); /* "- 2" to take care of EOB's */ - b->yy_buf_pos = b->yy_ch_buf = base; - b->yy_is_our_buffer = 0; - b->yy_input_file = NULL; - b->yy_n_chars = b->yy_buf_size; - b->yy_is_interactive = 0; - b->yy_at_bol = 1; - b->yy_fill_buffer = 0; - b->yy_buffer_status = YY_BUFFER_NEW; - - yy_switch_to_buffer( b ); - - return b; -} - -/** Setup the input buffer state to scan a string. The next call to yylex() will - * scan from a @e copy of @a str. - * @param yystr a NUL-terminated string to scan - * - * @return the newly allocated buffer state object. - * @note If you want to scan bytes that may contain NUL values, then use - * yy_scan_bytes() instead. - */ -YY_BUFFER_STATE yy_scan_string (const char * yystr ) -{ - - return yy_scan_bytes( yystr, (int) strlen(yystr) ); -} - -/** Setup the input buffer state to scan the given bytes. The next call to yylex() will - * scan from a @e copy of @a bytes. - * @param yybytes the byte buffer to scan - * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes. - * - * @return the newly allocated buffer state object. - */ -YY_BUFFER_STATE yy_scan_bytes (const char * yybytes, int _yybytes_len ) -{ - YY_BUFFER_STATE b; - char *buf; - yy_size_t n; - int i; - - /* Get memory for full buffer, including space for trailing EOB's. */ - n = (yy_size_t) (_yybytes_len + 2); - buf = (char *) yyalloc( n ); - if ( ! buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); - - for ( i = 0; i < _yybytes_len; ++i ) - buf[i] = yybytes[i]; - - buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR; - - b = yy_scan_buffer( buf, n ); - if ( ! b ) - YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); - - /* It's okay to grow etc. this buffer, and we should throw it - * away when we're done. - */ - b->yy_is_our_buffer = 1; - - return b; -} - -#ifndef YY_EXIT_FAILURE -#define YY_EXIT_FAILURE 2 -#endif - -static void yynoreturn yy_fatal_error (const char* msg ) -{ - fprintf( stderr, "%s\n", msg ); - exit( YY_EXIT_FAILURE ); -} - -/* Redefine yyless() so it works in section 3 code. */ - -#undef yyless -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg);\ - yytext[yyleng] = (yy_hold_char); \ - (yy_c_buf_p) = yytext + yyless_macro_arg; \ - (yy_hold_char) = *(yy_c_buf_p); \ - *(yy_c_buf_p) = '\0'; \ - yyleng = yyless_macro_arg; \ - } \ - while ( 0 ) - -/* Accessor methods (get/set functions) to struct members. */ - -/** Get the current line number. - * - */ -int yyget_lineno (void) -{ - - return yylineno; -} - -/** Get the input stream. - * - */ -FILE *yyget_in (void) -{ - return yyin; -} - -/** Get the output stream. - * - */ -FILE *yyget_out (void) -{ - return yyout; -} - -/** Get the length of the current token. - * - */ -int yyget_leng (void) -{ - return yyleng; -} - -/** Get the current token. - * - */ - -char *yyget_text (void) -{ - return yytext; -} - -/** Set the current line number. - * @param _line_number line number - * - */ -void yyset_lineno (int _line_number ) -{ - - yylineno = _line_number; -} - -/** Set the input stream. This does not discard the current - * input buffer. - * @param _in_str A readable stream. - * - * @see yy_switch_to_buffer - */ -void yyset_in (FILE * _in_str ) -{ - yyin = _in_str ; -} - -void yyset_out (FILE * _out_str ) -{ - yyout = _out_str ; -} - -int yyget_debug (void) -{ - return yy_flex_debug; -} - -void yyset_debug (int _bdebug ) -{ - yy_flex_debug = _bdebug ; -} - -static int yy_init_globals (void) -{ - /* Initialization is the same as for the non-reentrant scanner. - * This function is called from yylex_destroy(), so don't allocate here. - */ - - (yy_buffer_stack) = NULL; - (yy_buffer_stack_top) = 0; - (yy_buffer_stack_max) = 0; - (yy_c_buf_p) = NULL; - (yy_init) = 0; - (yy_start) = 0; - - (yy_start_stack_ptr) = 0; - (yy_start_stack_depth) = 0; - (yy_start_stack) = NULL; - -/* Defined in main.c */ -#ifdef YY_STDINIT - yyin = stdin; - yyout = stdout; -#else - yyin = NULL; - yyout = NULL; -#endif - - /* For future reference: Set errno on error, since we are called by - * yylex_init() - */ - return 0; -} - -/* yylex_destroy is for both reentrant and non-reentrant scanners. */ -int yylex_destroy (void) -{ - - /* Pop the buffer stack, destroying each element. */ - while(YY_CURRENT_BUFFER){ - yy_delete_buffer( YY_CURRENT_BUFFER ); - YY_CURRENT_BUFFER_LVALUE = NULL; - yypop_buffer_state(); - } - - /* Destroy the stack itself. */ - yyfree((yy_buffer_stack) ); - (yy_buffer_stack) = NULL; - - /* Destroy the start condition stack. */ - yyfree( (yy_start_stack) ); - (yy_start_stack) = NULL; - - /* Reset the globals. This is important in a non-reentrant scanner so the next time - * yylex() is called, initialization will occur. */ - yy_init_globals( ); - - return 0; -} - -/* - * Internal utility routines. - */ - -#ifndef yytext_ptr -static void yy_flex_strncpy (char* s1, const char * s2, int n ) -{ - - int i; - for ( i = 0; i < n; ++i ) - s1[i] = s2[i]; -} -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen (const char * s ) -{ - int n; - for ( n = 0; s[n]; ++n ) - ; - - return n; -} -#endif - -void *yyalloc (yy_size_t size ) -{ - return malloc(size); -} - -void *yyrealloc (void * ptr, yy_size_t size ) -{ - - /* The cast to (char *) in the following accommodates both - * implementations that use char* generic pointers, and those - * that use void* generic pointers. It works with the latter - * because both ANSI C and C++ allow castless assignment from - * any pointer type to void*, and deal with argument conversions - * as though doing an assignment. - */ - return realloc(ptr, size); -} - -void yyfree (void * ptr ) -{ - free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ -} - -#define YYTABLES_NAME "yytables" - -#line 429 "gabc/gabc-score-determination.l" - - - diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-l.h b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-l.h deleted file mode 100644 index 7e311979a47..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-l.h +++ /dev/null @@ -1,721 +0,0 @@ -#ifndef gabc_score_determination_HEADER_H -#define gabc_score_determination_HEADER_H 1 -#define gabc_score_determination_IN_HEADER 1 - -#line 5 "gabc/gabc-score-determination-l.h" - -#line 7 "gabc/gabc-score-determination-l.h" - -#define YY_INT_ALIGNED long int - -/* A lexical scanner generated by flex */ - -#define FLEX_SCANNER -#define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 6 -#define YY_FLEX_SUBMINOR_VERSION 4 -#if YY_FLEX_SUBMINOR_VERSION > 0 -#define FLEX_BETA -#endif - -#ifdef yy_create_buffer -#define gabc_score_determination__create_buffer_ALREADY_DEFINED -#else -#define yy_create_buffer gabc_score_determination__create_buffer -#endif - -#ifdef yy_delete_buffer -#define gabc_score_determination__delete_buffer_ALREADY_DEFINED -#else -#define yy_delete_buffer gabc_score_determination__delete_buffer -#endif - -#ifdef yy_scan_buffer -#define gabc_score_determination__scan_buffer_ALREADY_DEFINED -#else -#define yy_scan_buffer gabc_score_determination__scan_buffer -#endif - -#ifdef yy_scan_string -#define gabc_score_determination__scan_string_ALREADY_DEFINED -#else -#define yy_scan_string gabc_score_determination__scan_string -#endif - -#ifdef yy_scan_bytes -#define gabc_score_determination__scan_bytes_ALREADY_DEFINED -#else -#define yy_scan_bytes gabc_score_determination__scan_bytes -#endif - -#ifdef yy_init_buffer -#define gabc_score_determination__init_buffer_ALREADY_DEFINED -#else -#define yy_init_buffer gabc_score_determination__init_buffer -#endif - -#ifdef yy_flush_buffer -#define gabc_score_determination__flush_buffer_ALREADY_DEFINED -#else -#define yy_flush_buffer gabc_score_determination__flush_buffer -#endif - -#ifdef yy_load_buffer_state -#define gabc_score_determination__load_buffer_state_ALREADY_DEFINED -#else -#define yy_load_buffer_state gabc_score_determination__load_buffer_state -#endif - -#ifdef yy_switch_to_buffer -#define gabc_score_determination__switch_to_buffer_ALREADY_DEFINED -#else -#define yy_switch_to_buffer gabc_score_determination__switch_to_buffer -#endif - -#ifdef yypush_buffer_state -#define gabc_score_determination_push_buffer_state_ALREADY_DEFINED -#else -#define yypush_buffer_state gabc_score_determination_push_buffer_state -#endif - -#ifdef yypop_buffer_state -#define gabc_score_determination_pop_buffer_state_ALREADY_DEFINED -#else -#define yypop_buffer_state gabc_score_determination_pop_buffer_state -#endif - -#ifdef yyensure_buffer_stack -#define gabc_score_determination_ensure_buffer_stack_ALREADY_DEFINED -#else -#define yyensure_buffer_stack gabc_score_determination_ensure_buffer_stack -#endif - -#ifdef yylex -#define gabc_score_determination_lex_ALREADY_DEFINED -#else -#define yylex gabc_score_determination_lex -#endif - -#ifdef yyrestart -#define gabc_score_determination_restart_ALREADY_DEFINED -#else -#define yyrestart gabc_score_determination_restart -#endif - -#ifdef yylex_init -#define gabc_score_determination_lex_init_ALREADY_DEFINED -#else -#define yylex_init gabc_score_determination_lex_init -#endif - -#ifdef yylex_init_extra -#define gabc_score_determination_lex_init_extra_ALREADY_DEFINED -#else -#define yylex_init_extra gabc_score_determination_lex_init_extra -#endif - -#ifdef yylex_destroy -#define gabc_score_determination_lex_destroy_ALREADY_DEFINED -#else -#define yylex_destroy gabc_score_determination_lex_destroy -#endif - -#ifdef yyget_debug -#define gabc_score_determination_get_debug_ALREADY_DEFINED -#else -#define yyget_debug gabc_score_determination_get_debug -#endif - -#ifdef yyset_debug -#define gabc_score_determination_set_debug_ALREADY_DEFINED -#else -#define yyset_debug gabc_score_determination_set_debug -#endif - -#ifdef yyget_extra -#define gabc_score_determination_get_extra_ALREADY_DEFINED -#else -#define yyget_extra gabc_score_determination_get_extra -#endif - -#ifdef yyset_extra -#define gabc_score_determination_set_extra_ALREADY_DEFINED -#else -#define yyset_extra gabc_score_determination_set_extra -#endif - -#ifdef yyget_in -#define gabc_score_determination_get_in_ALREADY_DEFINED -#else -#define yyget_in gabc_score_determination_get_in -#endif - -#ifdef yyset_in -#define gabc_score_determination_set_in_ALREADY_DEFINED -#else -#define yyset_in gabc_score_determination_set_in -#endif - -#ifdef yyget_out -#define gabc_score_determination_get_out_ALREADY_DEFINED -#else -#define yyget_out gabc_score_determination_get_out -#endif - -#ifdef yyset_out -#define gabc_score_determination_set_out_ALREADY_DEFINED -#else -#define yyset_out gabc_score_determination_set_out -#endif - -#ifdef yyget_leng -#define gabc_score_determination_get_leng_ALREADY_DEFINED -#else -#define yyget_leng gabc_score_determination_get_leng -#endif - -#ifdef yyget_text -#define gabc_score_determination_get_text_ALREADY_DEFINED -#else -#define yyget_text gabc_score_determination_get_text -#endif - -#ifdef yyget_lineno -#define gabc_score_determination_get_lineno_ALREADY_DEFINED -#else -#define yyget_lineno gabc_score_determination_get_lineno -#endif - -#ifdef yyset_lineno -#define gabc_score_determination_set_lineno_ALREADY_DEFINED -#else -#define yyset_lineno gabc_score_determination_set_lineno -#endif - -#ifdef yywrap -#define gabc_score_determination_wrap_ALREADY_DEFINED -#else -#define yywrap gabc_score_determination_wrap -#endif - -#ifdef yyalloc -#define gabc_score_determination_alloc_ALREADY_DEFINED -#else -#define yyalloc gabc_score_determination_alloc -#endif - -#ifdef yyrealloc -#define gabc_score_determination_realloc_ALREADY_DEFINED -#else -#define yyrealloc gabc_score_determination_realloc -#endif - -#ifdef yyfree -#define gabc_score_determination_free_ALREADY_DEFINED -#else -#define yyfree gabc_score_determination_free -#endif - -#ifdef yytext -#define gabc_score_determination_text_ALREADY_DEFINED -#else -#define yytext gabc_score_determination_text -#endif - -#ifdef yyleng -#define gabc_score_determination_leng_ALREADY_DEFINED -#else -#define yyleng gabc_score_determination_leng -#endif - -#ifdef yyin -#define gabc_score_determination_in_ALREADY_DEFINED -#else -#define yyin gabc_score_determination_in -#endif - -#ifdef yyout -#define gabc_score_determination_out_ALREADY_DEFINED -#else -#define yyout gabc_score_determination_out -#endif - -#ifdef yy_flex_debug -#define gabc_score_determination__flex_debug_ALREADY_DEFINED -#else -#define yy_flex_debug gabc_score_determination__flex_debug -#endif - -#ifdef yylineno -#define gabc_score_determination_lineno_ALREADY_DEFINED -#else -#define yylineno gabc_score_determination_lineno -#endif - -/* First, we deal with platform-specific or compiler-specific issues. */ - -/* begin standard C headers. */ -#include <stdio.h> -#include <string.h> -#include <errno.h> -#include <stdlib.h> - -/* end standard C headers. */ - -/* flex integer type definitions */ - -#ifndef FLEXINT_H -#define FLEXINT_H - -/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */ - -#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L - -/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, - * if you want the limit (max/min) macros for int types. - */ -#ifndef __STDC_LIMIT_MACROS -#define __STDC_LIMIT_MACROS 1 -#endif - -#include <inttypes.h> -typedef int8_t flex_int8_t; -typedef uint8_t flex_uint8_t; -typedef int16_t flex_int16_t; -typedef uint16_t flex_uint16_t; -typedef int32_t flex_int32_t; -typedef uint32_t flex_uint32_t; -#else -typedef signed char flex_int8_t; -typedef short int flex_int16_t; -typedef int flex_int32_t; -typedef unsigned char flex_uint8_t; -typedef unsigned short int flex_uint16_t; -typedef unsigned int flex_uint32_t; - -/* Limits of integral types. */ -#ifndef INT8_MIN -#define INT8_MIN (-128) -#endif -#ifndef INT16_MIN -#define INT16_MIN (-32767-1) -#endif -#ifndef INT32_MIN -#define INT32_MIN (-2147483647-1) -#endif -#ifndef INT8_MAX -#define INT8_MAX (127) -#endif -#ifndef INT16_MAX -#define INT16_MAX (32767) -#endif -#ifndef INT32_MAX -#define INT32_MAX (2147483647) -#endif -#ifndef UINT8_MAX -#define UINT8_MAX (255U) -#endif -#ifndef UINT16_MAX -#define UINT16_MAX (65535U) -#endif -#ifndef UINT32_MAX -#define UINT32_MAX (4294967295U) -#endif - -#ifndef SIZE_MAX -#define SIZE_MAX (~(size_t)0) -#endif - -#endif /* ! C99 */ - -#endif /* ! FLEXINT_H */ - -/* begin standard C++ headers. */ - -/* TODO: this is always defined, so inline it */ -#define yyconst const - -#if defined(__GNUC__) && __GNUC__ >= 3 -#define yynoreturn __attribute__((__noreturn__)) -#else -#define yynoreturn -#endif - -/* Size of default input buffer. */ -#ifndef YY_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k. - * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case. - * Ditto for the __ia64__ case accordingly. - */ -#define YY_BUF_SIZE 32768 -#else -#define YY_BUF_SIZE 16384 -#endif /* __ia64__ */ -#endif - -#ifndef YY_TYPEDEF_YY_BUFFER_STATE -#define YY_TYPEDEF_YY_BUFFER_STATE -typedef struct yy_buffer_state *YY_BUFFER_STATE; -#endif - -#ifndef YY_TYPEDEF_YY_SIZE_T -#define YY_TYPEDEF_YY_SIZE_T -typedef size_t yy_size_t; -#endif - -extern int yyleng; - -extern FILE *yyin, *yyout; - -#ifndef YY_STRUCT_YY_BUFFER_STATE -#define YY_STRUCT_YY_BUFFER_STATE -struct yy_buffer_state - { - FILE *yy_input_file; - - char *yy_ch_buf; /* input buffer */ - char *yy_buf_pos; /* current position in input buffer */ - - /* Size of input buffer in bytes, not including room for EOB - * characters. - */ - int yy_buf_size; - - /* Number of characters read into yy_ch_buf, not including EOB - * characters. - */ - int yy_n_chars; - - /* Whether we "own" the buffer - i.e., we know we created it, - * and can realloc() it to grow it, and should free() it to - * delete it. - */ - int yy_is_our_buffer; - - /* Whether this is an "interactive" input source; if so, and - * if we're using stdio for input, then we want to use getc() - * instead of fread(), to make sure we stop fetching input after - * each newline. - */ - int yy_is_interactive; - - /* Whether we're considered to be at the beginning of a line. - * If so, '^' rules will be active on the next match, otherwise - * not. - */ - int yy_at_bol; - - int yy_bs_lineno; /**< The line count. */ - int yy_bs_column; /**< The column count. */ - - /* Whether to try to fill the input buffer when we reach the - * end of it. - */ - int yy_fill_buffer; - - int yy_buffer_status; - - }; -#endif /* !YY_STRUCT_YY_BUFFER_STATE */ - -void yyrestart ( FILE *input_file ); -void yy_switch_to_buffer ( YY_BUFFER_STATE new_buffer ); -YY_BUFFER_STATE yy_create_buffer ( FILE *file, int size ); -void yy_delete_buffer ( YY_BUFFER_STATE b ); -void yy_flush_buffer ( YY_BUFFER_STATE b ); -void yypush_buffer_state ( YY_BUFFER_STATE new_buffer ); -void yypop_buffer_state ( void ); - -YY_BUFFER_STATE yy_scan_buffer ( char *base, yy_size_t size ); -YY_BUFFER_STATE yy_scan_string ( const char *yy_str ); -YY_BUFFER_STATE yy_scan_bytes ( const char *bytes, int len ); - -void *yyalloc ( yy_size_t ); -void *yyrealloc ( void *, yy_size_t ); -void yyfree ( void * ); - -/* Begin user sect3 */ - -#define gabc_score_determination_wrap() (/*CONSTCOND*/1) -#define YY_SKIP_YYWRAP - -extern int yylineno; - -extern char *yytext; -#ifdef yytext_ptr -#undef yytext_ptr -#endif -#define yytext_ptr yytext - -#ifdef YY_HEADER_EXPORT_START_CONDITIONS -#define INITIAL 0 -#define attribute 1 -#define score 2 -#define notes 3 -#define sp 4 -#define verb 5 -#define comments 6 -#define inicomments 7 -#define alt 8 -#define protrusion_value 9 -#define protrusion_end 10 - -#endif - -#ifndef YY_NO_UNISTD_H -/* Special case for "unistd.h", since it is non-ANSI. We include it way - * down here because we want the user's section 1 to have been scanned first. - * The user has a chance to override it with an option. - */ -#include <unistd.h> -#endif - -#ifndef YY_EXTRA_TYPE -#define YY_EXTRA_TYPE void * -#endif - -/* Accessor methods to globals. - These are made visible to non-reentrant scanners for convenience. */ - -int yylex_destroy ( void ); - -int yyget_debug ( void ); - -void yyset_debug ( int debug_flag ); - -YY_EXTRA_TYPE yyget_extra ( void ); - -void yyset_extra ( YY_EXTRA_TYPE user_defined ); - -FILE *yyget_in ( void ); - -void yyset_in ( FILE * _in_str ); - -FILE *yyget_out ( void ); - -void yyset_out ( FILE * _out_str ); - - int yyget_leng ( void ); - -char *yyget_text ( void ); - -int yyget_lineno ( void ); - -void yyset_lineno ( int _line_number ); - -/* Macros after this point can all be overridden by user definitions in - * section 1. - */ - -#ifndef YY_SKIP_YYWRAP -#ifdef __cplusplus -extern "C" int yywrap ( void ); -#else -extern int yywrap ( void ); -#endif -#endif - -#ifndef yytext_ptr -static void yy_flex_strncpy ( char *, const char *, int ); -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen ( const char * ); -#endif - -#ifndef YY_NO_INPUT - -#endif - -/* Amount of stuff to slurp up with each read. */ -#ifndef YY_READ_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k */ -#define YY_READ_BUF_SIZE 16384 -#else -#define YY_READ_BUF_SIZE 8192 -#endif /* __ia64__ */ -#endif - -/* Number of entries by which start-condition stack grows. */ -#ifndef YY_START_STACK_INCR -#define YY_START_STACK_INCR 25 -#endif - -/* Default declaration of generated scanner - a define so the user can - * easily add parameters. - */ -#ifndef YY_DECL -#define YY_DECL_IS_OURS 1 - -extern int yylex (void); - -#define YY_DECL int yylex (void) -#endif /* !YY_DECL */ - -/* yy_get_previous_state - get the state just before the EOB char was reached */ - -#undef YY_NEW_FILE -#undef YY_FLUSH_BUFFER -#undef yy_set_bol -#undef yy_new_buffer -#undef yy_set_interactive -#undef YY_DO_BEFORE_ACTION - -#ifdef YY_DECL_IS_OURS -#undef YY_DECL_IS_OURS -#undef YY_DECL -#endif - -#ifndef gabc_score_determination__create_buffer_ALREADY_DEFINED -#undef yy_create_buffer -#endif -#ifndef gabc_score_determination__delete_buffer_ALREADY_DEFINED -#undef yy_delete_buffer -#endif -#ifndef gabc_score_determination__scan_buffer_ALREADY_DEFINED -#undef yy_scan_buffer -#endif -#ifndef gabc_score_determination__scan_string_ALREADY_DEFINED -#undef yy_scan_string -#endif -#ifndef gabc_score_determination__scan_bytes_ALREADY_DEFINED -#undef yy_scan_bytes -#endif -#ifndef gabc_score_determination__init_buffer_ALREADY_DEFINED -#undef yy_init_buffer -#endif -#ifndef gabc_score_determination__flush_buffer_ALREADY_DEFINED -#undef yy_flush_buffer -#endif -#ifndef gabc_score_determination__load_buffer_state_ALREADY_DEFINED -#undef yy_load_buffer_state -#endif -#ifndef gabc_score_determination__switch_to_buffer_ALREADY_DEFINED -#undef yy_switch_to_buffer -#endif -#ifndef gabc_score_determination_push_buffer_state_ALREADY_DEFINED -#undef yypush_buffer_state -#endif -#ifndef gabc_score_determination_pop_buffer_state_ALREADY_DEFINED -#undef yypop_buffer_state -#endif -#ifndef gabc_score_determination_ensure_buffer_stack_ALREADY_DEFINED -#undef yyensure_buffer_stack -#endif -#ifndef gabc_score_determination_lex_ALREADY_DEFINED -#undef yylex -#endif -#ifndef gabc_score_determination_restart_ALREADY_DEFINED -#undef yyrestart -#endif -#ifndef gabc_score_determination_lex_init_ALREADY_DEFINED -#undef yylex_init -#endif -#ifndef gabc_score_determination_lex_init_extra_ALREADY_DEFINED -#undef yylex_init_extra -#endif -#ifndef gabc_score_determination_lex_destroy_ALREADY_DEFINED -#undef yylex_destroy -#endif -#ifndef gabc_score_determination_get_debug_ALREADY_DEFINED -#undef yyget_debug -#endif -#ifndef gabc_score_determination_set_debug_ALREADY_DEFINED -#undef yyset_debug -#endif -#ifndef gabc_score_determination_get_extra_ALREADY_DEFINED -#undef yyget_extra -#endif -#ifndef gabc_score_determination_set_extra_ALREADY_DEFINED -#undef yyset_extra -#endif -#ifndef gabc_score_determination_get_in_ALREADY_DEFINED -#undef yyget_in -#endif -#ifndef gabc_score_determination_set_in_ALREADY_DEFINED -#undef yyset_in -#endif -#ifndef gabc_score_determination_get_out_ALREADY_DEFINED -#undef yyget_out -#endif -#ifndef gabc_score_determination_set_out_ALREADY_DEFINED -#undef yyset_out -#endif -#ifndef gabc_score_determination_get_leng_ALREADY_DEFINED -#undef yyget_leng -#endif -#ifndef gabc_score_determination_get_text_ALREADY_DEFINED -#undef yyget_text -#endif -#ifndef gabc_score_determination_get_lineno_ALREADY_DEFINED -#undef yyget_lineno -#endif -#ifndef gabc_score_determination_set_lineno_ALREADY_DEFINED -#undef yyset_lineno -#endif -#ifndef gabc_score_determination_get_column_ALREADY_DEFINED -#undef yyget_column -#endif -#ifndef gabc_score_determination_set_column_ALREADY_DEFINED -#undef yyset_column -#endif -#ifndef gabc_score_determination_wrap_ALREADY_DEFINED -#undef yywrap -#endif -#ifndef gabc_score_determination_get_lval_ALREADY_DEFINED -#undef yyget_lval -#endif -#ifndef gabc_score_determination_set_lval_ALREADY_DEFINED -#undef yyset_lval -#endif -#ifndef gabc_score_determination_get_lloc_ALREADY_DEFINED -#undef yyget_lloc -#endif -#ifndef gabc_score_determination_set_lloc_ALREADY_DEFINED -#undef yyset_lloc -#endif -#ifndef gabc_score_determination_alloc_ALREADY_DEFINED -#undef yyalloc -#endif -#ifndef gabc_score_determination_realloc_ALREADY_DEFINED -#undef yyrealloc -#endif -#ifndef gabc_score_determination_free_ALREADY_DEFINED -#undef yyfree -#endif -#ifndef gabc_score_determination_text_ALREADY_DEFINED -#undef yytext -#endif -#ifndef gabc_score_determination_leng_ALREADY_DEFINED -#undef yyleng -#endif -#ifndef gabc_score_determination_in_ALREADY_DEFINED -#undef yyin -#endif -#ifndef gabc_score_determination_out_ALREADY_DEFINED -#undef yyout -#endif -#ifndef gabc_score_determination__flex_debug_ALREADY_DEFINED -#undef yy_flex_debug -#endif -#ifndef gabc_score_determination_lineno_ALREADY_DEFINED -#undef yylineno -#endif -#ifndef gabc_score_determination_tables_fload_ALREADY_DEFINED -#undef yytables_fload -#endif -#ifndef gabc_score_determination_tables_destroy_ALREADY_DEFINED -#undef yytables_destroy -#endif -#ifndef gabc_score_determination_TABLES_NAME_ALREADY_DEFINED -#undef yyTABLES_NAME -#endif - -#line 429 "gabc/gabc-score-determination.l" - - -#line 719 "gabc/gabc-score-determination-l.h" -#undef gabc_score_determination_IN_HEADER -#endif /* gabc_score_determination_HEADER_H */ diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-y.c b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-y.c deleted file mode 100644 index 9f4ddd2119c..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-y.c +++ /dev/null @@ -1,3178 +0,0 @@ -/* A Bison parser, made by GNU Bison 3.3.2. */ - -/* Bison implementation for Yacc-like parsers in C - - Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, - Inc. - - This program is free software: you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation, either version 3 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program. If not, see <http://www.gnu.org/licenses/>. */ - -/* As a special exception, you may create a larger work that contains - part or all of the Bison parser skeleton and distribute that work - under terms of your choice, so long as that work isn't itself a - parser generator using the skeleton or a modified version thereof - as a parser skeleton. Alternatively, if you modify or redistribute - the parser skeleton itself, you may (at your option) remove this - special exception, which will cause the skeleton and the resulting - Bison output files to be licensed under the GNU General Public - License without this special exception. - - This special exception was added by the Free Software Foundation in - version 2.2 of Bison. */ - -/* C LALR(1) parser skeleton written by Richard Stallman, by - simplifying the original so-called "semantic" parser. */ - -/* All symbols defined below should begin with yy or YY, to avoid - infringing on user name space. This should be done even for local - variables, as they might otherwise be expanded by user macros. - There are some unavoidable exceptions within include files to - define necessary library symbols; they are noted "INFRINGES ON - USER NAME SPACE" below. */ - -/* Undocumented macros, especially those whose name start with YY_, - are private implementation details. Do not rely on them. */ - -/* Identify Bison output. */ -#define YYBISON 1 - -/* Bison version. */ -#define YYBISON_VERSION "3.3.2" - -/* Skeleton name. */ -#define YYSKELETON_NAME "yacc.c" - -/* Pure parsers. */ -#define YYPURE 0 - -/* Push parsers. */ -#define YYPUSH 0 - -/* Pull parsers. */ -#define YYPULL 1 - - -/* Substitute the variable and function names. */ -#define yyparse gabc_score_determination_parse -#define yylex gabc_score_determination_lex -#define yyerror gabc_score_determination_error -#define yydebug gabc_score_determination_debug -#define yynerrs gabc_score_determination_nerrs - -#define yylval gabc_score_determination_lval -#define yychar gabc_score_determination_char -#define yylloc gabc_score_determination_lloc - -/* First part of user prologue. */ -#line 1 "gabc/gabc-score-determination.y" /* yacc.c:337 */ - -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the score parser. - * - * Gregorio score determination from gabc. - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -/* - * - * This file is certainly not the most easy to understand, it is a bison file. - * See the bison manual on gnu.org for further details. - * - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <assert.h> -#include "bool.h" -#include "struct.h" -#include "unicode.h" -#include "messages.h" -#include "characters.h" -#include "support.h" -#include "sha1.h" -#include "plugins.h" -#include "gabc.h" - -#define YYLLOC_DEFAULT(Current, Rhs, N) \ - if (N) { \ - (Current).first_line = YYRHSLOC(Rhs, 1).first_line; \ - (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ - (Current).first_offset = YYRHSLOC (Rhs, 1).first_offset; \ - (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ - (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ - (Current).last_offset = YYRHSLOC (Rhs, N).last_offset; \ - (Current).generate_point_and_click = YYRHSLOC (Rhs, 1).generate_point_and_click; \ - } else { \ - (Current).first_line = (Current).last_line = YYRHSLOC (Rhs, 0).last_line; \ - (Current).first_column = (Current).last_column = YYRHSLOC (Rhs, 0).last_column; \ - (Current).first_offset = (Current).last_offset = YYRHSLOC (Rhs, 0).last_offset; \ - (Current).first_offset = (Current).last_offset = YYRHSLOC (Rhs, 0).last_offset; \ - (Current).generate_point_and_click = YYRHSLOC (Rhs, 0).generate_point_and_click; \ - } - -#include "gabc-score-determination.h" -#include "gabc-score-determination-l.h" - -/* workaround for bison issue passing pointer to a "local" variable */ -#define STYLE_BITS &styles - -/* forward declaration of the flex/bison process function */ -static int gabc_score_determination_parse(void); - -/* uncomment it if you want to have an interactive shell to understand the - * details on how bison works for a certain input */ -/* int gabc_score_determination_debug=1; */ - -/* - * - * We will need some variables and functions through the entire file, we - * declare them there: - * - */ - -/* the score that we will determine and return */ -static gregorio_score *score; -/* an array of elements that we will use for each syllable */ -static gregorio_element **elements; -gregorio_element *current_element; -/* a table containing the macros to use in gabc file */ -static char *macros[10]; -/* other variables that we will have to use */ -static gregorio_character *current_character; -static gregorio_character *suspended_character; -static gregorio_character *first_text_character; -static gregorio_character *first_translation_character; -static gregorio_tr_centering translation_type; -static gregorio_nlba no_linebreak_area; -static gregorio_euouae euouae; -static gregorio_voice_info *current_voice_info; -static int number_of_voices; -static int voice; -/* see comments on text to understand this */ -static gregorio_center_determination center_is_determined; -/* current_key is... the current key... updated by each notes determination - * (for key changes) */ -static int current_key; -static bool got_language; -static bool got_staff_lines; -static bool started_first_word; -static struct sha1_ctx digester; -static gabc_style_bits styles; -static bool generate_point_and_click; -static bool clear_syllable_text; -static bool has_protrusion; - -/* punctum_inclinatum_orientation maintains the running punctum inclinatum - * orientation in order to decide if the glyph needs to be cut when a punctum - * inclinatum with forced orientation is encountered. This should be set to - * the shape of a non-liquescent punctum inclinatum with forced orientation - * when one is encountered, be left alone when a non-liquescent punctum - * inclinatum with undetermined orientation is encountered, or be reset to - * S_PUNCTUM_INCLINATUM_UNDETERMINED otherwise (because such ends any previous - * run of punctum inclinatum notes). Based on the assumption that a punctum - * inclinatum with forced orientation changes all the punctum inclinatum shapes - * with undetermined orientation in the same run of notes before and after it - * unless influenced by an earlier punctum inclinatum with forced orientation, - * the value of punctum_inclinatum_orientation can be used to determine if a - * punctum inclinatum with a forced orientation will have a different - * orientation than the punctum inclinatum immediately before it, which would - * require a cut of the glyph. */ -static gregorio_shape punctum_inclinatum_orientation; - -static __inline void check_multiple(const char *name, bool exists) { - if (exists) { - gregorio_messagef("det_score", VERBOSITY_WARNING, 0, - _("several %s definitions found, only the last will be taken " - "into consideration"), name); - } -} - -static void gabc_score_determination_error(const char *error_str) -{ - gregorio_message(error_str, (const char *) "gabc_score_determination_parse", - VERBOSITY_ERROR, 0); -} - -/* - * The function that will initialize the variables. - */ - -static void initialize_variables(bool point_and_click) -{ - int i; - /* build a brand new empty score */ - score = gregorio_new_score(); - /* initialization of the first voice info to an empty voice info */ - current_voice_info = NULL; - gregorio_add_voice_info(¤t_voice_info); - score->first_voice_info = current_voice_info; - /* other initializations */ - number_of_voices = 1; - voice = 0; /* first (and only) voice */ - current_character = NULL; - suspended_character = NULL; - first_translation_character = NULL; - first_text_character = NULL; - translation_type = TR_NORMAL; - no_linebreak_area = NLBA_NORMAL; - euouae = EUOUAE_NORMAL; - center_is_determined = CENTER_NOT_DETERMINED; - current_key = gregorio_calculate_new_key(gregorio_default_clef); - for (i = 0; i < 10; i++) { - macros[i] = NULL; - } - got_language = false; - got_staff_lines = false; - started_first_word = false; - styles = 0; - punctum_inclinatum_orientation = S_PUNCTUM_INCLINATUM_UNDETERMINED; - generate_point_and_click = point_and_click; - clear_syllable_text = false; - has_protrusion = false; -} - -/* - * function that frees the variables that need it, for when we have finished to - * determine the score - */ - -static void free_variables(void) -{ - int i; - free(elements); - for (i = 0; i < 10; i++) { - free(macros[i]); - } -} - -/* - * Function called when we have reached the end of the definitions, it tries to - * make the voice_infos coherent. - */ -static void end_definitions(void) -{ - int i; - - gregorio_assert_only(gabc_check_infos_integrity(score), end_definitions, - "can't determine valid infos on the score"); - - elements = (gregorio_element **) gregorio_malloc(number_of_voices * - sizeof(gregorio_element *)); - for (i = 0; i < number_of_voices; i++) { - elements[i] = NULL; - } - - if (!got_language) { - static char latin[] = "Latin"; - gregorio_set_centering_language(latin); - } -} - -/* - * Here starts the code for the determinations of the notes. The notes are not - * precisely determined here, we separate the text describing the notes of each - * voice, and we call determine_elements_from_string to really determine them. - */ -static char position = WORD_BEGINNING; -static gregorio_syllable *current_syllable = NULL; -static char *abovelinestext = NULL; - -/* - * Function called each time we find a space, it updates the current position. - */ -static void update_position_with_space(void) -{ - if (position == WORD_MIDDLE) { - position = WORD_END; - } - if (position == WORD_BEGINNING) { - position = WORD_ONE_SYLLABLE; - } -} - -/* - * When we encounter a translation center ending, we call this function that - * sets translation_type = TR_WITH_CENTER_BEGINNING on previous syllable with - * translation - */ -static void gregorio_set_translation_center_beginning( - gregorio_syllable *current_syllable) -{ - gregorio_syllable *syllable = current_syllable->previous_syllable; - while (syllable) { - if (syllable->translation_type == TR_WITH_CENTER_END) { - gregorio_message("encountering translation centering end but " - "cannot find translation centering beginning...", - "set_translation_center_beginning", VERBOSITY_ERROR, 0); - current_syllable->translation_type = TR_NORMAL; - return; - } - if (syllable->translation) { - syllable->translation_type = TR_WITH_CENTER_BEGINNING; - return; - } - syllable = syllable->previous_syllable; - } - /* we didn't find any beginning... */ - gregorio_message("encountering translation centering end but cannot find " - "translation centering beginning...", - "set_translation_center_beginning", VERBOSITY_ERROR, 0); - current_syllable->translation_type = TR_NORMAL; -} - -static void ready_characters(void) -{ - if (current_character) { - gregorio_go_to_first_character_c(¤t_character); - if (!score->first_syllable || (current_syllable - && !current_syllable->previous_syllable - && !current_syllable->text)) { - started_first_word = true; - } - } -} - -static void rebuild_score_characters(void) -{ - if (score->first_syllable) { - gregorio_syllable *syllable; - for (syllable = score->first_syllable; syllable; - syllable = syllable->next_syllable) { - const gregorio_character *t; - - /* find out if there is a forced center */ - gregorio_center_determination center = CENTER_NOT_DETERMINED; - for (t = syllable->text; t; t = t->next_character) { - if (!t->is_character && t->cos.s.style == ST_FORCED_CENTER) { - syllable->forced_center = true; - center = CENTER_FULLY_DETERMINED; - break; - } - } - - if (syllable == score->first_syllable) { - /* leave the first syllable text untouched at this time */ - continue; - } - - gregorio_rebuild_characters(&(syllable->text), center, false); - - if (syllable->first_word) { - gregorio_set_first_word(&(syllable->text)); - } - } - } -} - -/* - * - * The two functions called when lex returns a style, we simply add it. All the - * complex things will be done by the function after... - * - */ - -static void add_style(unsigned char style) -{ - gregorio_begin_style(¤t_character, style); -} - -static void end_style(unsigned char style) -{ - gregorio_end_style(¤t_character, style); -} - -static __inline void save_text(void) -{ - if (has_protrusion) { - end_style(ST_PROTRUSION); - } - ready_characters(); - first_text_character = current_character; -} - -/* a function called when we see a [, basically, all characters are added to - * the translation pointer instead of the text pointer */ -static void start_translation(unsigned char asked_translation_type) -{ - suspended_character = current_character; - /* the middle letters of the translation have no sense */ - /*center_is_determined = CENTER_FULLY_DETERMINED;*/ - current_character = NULL; - translation_type = asked_translation_type; -} - -static void end_translation(void) -{ - ready_characters(); - first_translation_character = current_character; - current_character = suspended_character; -} - -/* - * add_text is the function called when lex returns a char *. In - * this function we convert it into grewchar, and then we add the corresponding - * gregorio_characters in the list of gregorio_characters. - */ - -static void add_text(char *mbcharacters) -{ - if (!current_character) { - /* insert open styles, leaving out ELISION on purpose */ - if (styles & SB_I) { - add_style(ST_ITALIC); - } - if (styles & SB_B) { - add_style(ST_BOLD); - } - if (styles & SB_TT) { - add_style(ST_TT); - } - if (styles & SB_SC) { - add_style(ST_SMALL_CAPS); - } - if (styles & SB_UL) { - add_style(ST_UNDERLINED); - } - if (styles & SB_C) { - add_style(ST_COLORED); - } - } - if (current_character) { - current_character->next_character = gregorio_build_char_list_from_buf( - mbcharacters); - current_character->next_character->previous_character = - current_character; - } else { - current_character = gregorio_build_char_list_from_buf(mbcharacters); - } - while (current_character && current_character->next_character) { - current_character = current_character->next_character; - } - free(mbcharacters); -} - -static void add_protrusion(char *factor) -{ - if (has_protrusion) { - gregorio_message("syllable already has protrusion; pr tag ignored", - "det_score", VERBOSITY_WARNING, 0); - free(factor); - } else { - if (center_is_determined == CENTER_HALF_DETERMINED) { - gregorio_message("closing open syllable center before protrusion", - "det_score", VERBOSITY_WARNING, 0); - end_style(ST_FORCED_CENTER); - center_is_determined = CENTER_FULLY_DETERMINED; - } - - add_style(ST_PROTRUSION_FACTOR); - add_text(factor); - end_style(ST_PROTRUSION_FACTOR); - add_style(ST_PROTRUSION); - has_protrusion = true; - } -} - -static void add_auto_protrusion(char *protrusion) -{ - if (has_protrusion) { - add_text(protrusion); - } else { - add_style(ST_PROTRUSION_FACTOR); - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreProtrusionFactor{")); - - switch (*protrusion) { - case ',': - add_text(gregorio_strdup("comma")); - break; - case ';': - add_text(gregorio_strdup("semicolon")); - break; - case ':': - add_text(gregorio_strdup("colon")); - break; - case '.': - add_text(gregorio_strdup("period")); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(add_auto_protrusion, - "unsupported protruding punctuation: %c", *protrusion); - break; - /* LCOV_EXCL_STOP */ - } - - add_text(gregorio_strdup("}")); - end_style(ST_VERBATIM); - end_style(ST_PROTRUSION_FACTOR); - - add_style(ST_PROTRUSION); - add_text(protrusion); - end_style(ST_PROTRUSION); - - has_protrusion = true; - } -} - -/* - * Function to close a syllable and update the position. - */ - -static void close_syllable(YYLTYPE *loc) -{ - int i = 0; - gregorio_character *ch; - - /* make sure any elisions that are opened are closed within the syllable */ - for (ch = first_text_character; ch; ch = ch->next_character) { - if (!ch->is_character) { - switch (ch->cos.s.style) { - case ST_ELISION: - switch (ch->cos.s.type) { - case ST_T_BEGIN: - ++i; - /* the parser precludes this from falling here */ - gregorio_assert_only(i <= 1, close_syllable, - "elisions may not be nested"); - break; - - case ST_T_END: - --i; - /* the parser precludes this from failing here */ - gregorio_assert_only(i >= 0, close_syllable, - "encountered elision end with no beginning"); - break; - - case ST_T_NOTHING: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(close_syllable, "encountered ST_T_NOTHING"); - break; - /* LCOV_EXCL_STOP */ - } - break; - - case ST_FORCED_CENTER: - if (i > 0) { - gregorio_message( - _("forced center may not be within an elision"), - "close_syllable", VERBOSITY_ERROR, 0); - } - break; - - default: - break; - } - } - } - /* the parser precludes this from failing here */ - gregorio_assert_only(i == 0, close_syllable, - "encountered elision beginning with no end"); - - gregorio_add_syllable(¤t_syllable, number_of_voices, elements, - first_text_character, first_translation_character, position, - abovelinestext, translation_type, no_linebreak_area, euouae, loc, - started_first_word, clear_syllable_text); - if (!score->first_syllable) { - /* we rebuild the first syllable if we have to */ - score->first_syllable = current_syllable; - } - if (translation_type == TR_WITH_CENTER_END) { - gregorio_set_translation_center_beginning(current_syllable); - } - /* we update the position */ - if (position == WORD_BEGINNING) { - position = WORD_MIDDLE; - } - if (position == WORD_ONE_SYLLABLE || position == WORD_END) { - position = WORD_BEGINNING; - - if (started_first_word) { - started_first_word = false; - } - } - center_is_determined = CENTER_NOT_DETERMINED; - current_character = NULL; - suspended_character = NULL; - first_text_character = NULL; - first_translation_character = NULL; - translation_type = TR_NORMAL; - no_linebreak_area = NLBA_NORMAL; - euouae = EUOUAE_NORMAL; - abovelinestext = NULL; - for (i = 0; i < number_of_voices; i++) { - elements[i] = NULL; - } - current_element = NULL; - clear_syllable_text = false; - has_protrusion = false; -} - -void gabc_digest(const void *const buf, const size_t size) -{ - sha1_process_bytes(buf, size, &digester); -} - -/* - * The "main" function. It is the function that is called when we have to read - * a gabc file. It takes a file descriptor, that is to say a file that is - * aleady open. It returns a valid gregorio_score - */ - -gregorio_score *gabc_read_score(FILE *f_in, bool point_and_click) -{ - /* compute the SHA-1 digest while parsing, for I/O efficiency */ - sha1_init_ctx(&digester); - /* digest GREGORIO_VERSION to get a different value when the version - changes */ - sha1_process_bytes(GREGORIO_VERSION, strlen(GREGORIO_VERSION), &digester); - /* the input file that flex will parse */ - gabc_score_determination_in = f_in; - gregorio_assert(f_in, gabc_read_score, "can't read stream from NULL", - return NULL); - initialize_variables(point_and_click); - /* the flex/bison main call, it will build the score (that we have - * initialized) */ - gabc_score_determination_parse(); - if (!score->legacy_oriscus_orientation) { - gabc_determine_oriscus_orientation(score); - } - gabc_determine_punctum_inclinatum_orientation(score); - gabc_determine_ledger_lines(score); - gregorio_fix_initial_keys(score, gregorio_default_clef); - rebuild_score_characters(); - gabc_suppress_extra_custos_at_linebreak(score); - gabc_fix_custos_pitches(score); - gabc_det_notes_finish(); - free_variables(); - /* then we check the validity and integrity of the score we have built. */ - if (!gabc_check_score_integrity(score)) { - gregorio_message(_("unable to determine a valid score from file"), - "gabc_read_score", VERBOSITY_ERROR, 0); - } - sha1_finish_ctx(&digester, score->digest); - return score; -} - -unsigned char nabc_state = 0; -size_t nabc_lines = 0; - -static void gabc_y_add_notes(char *notes, YYLTYPE loc) { - if (nabc_state == 0) { - if (!elements[voice]) { - elements[voice] = gabc_det_elements_from_string(notes, ¤t_key, - macros, &loc, &punctum_inclinatum_orientation, score); - current_element = elements[voice]; - } else { - gregorio_element *new_elements = gabc_det_elements_from_string( - notes, ¤t_key, macros, &loc, - &punctum_inclinatum_orientation, score); - gregorio_element *last_element = elements[voice]; - while (last_element->next) { - last_element = last_element->next; - } - last_element->next = new_elements; - new_elements->previous = last_element; - current_element = new_elements; - } - } else { - if (!elements[voice]) { - gregorio_add_element(&elements[voice], NULL); - current_element = elements[voice]; - } - gregorio_assert(current_element, gabc_y_add_notes, - "current_element is null, this shouldn't happen!", - return); - if (!current_element->nabc) { - current_element->nabc = (char **) gregorio_calloc (nabc_lines, - sizeof (char *)); - } - current_element->nabc[nabc_state-1] = gregorio_strdup(notes); - current_element->nabc_lines = nabc_state; - } -} - -static char *concatenate(char *first, char *const second) { - first = (char *)gregorio_realloc(first, strlen(first) + strlen(second) + 1); - strcat(first, second); - free(second); - return first; -} - -#line 733 "gabc/gabc-score-determination-y.c" /* yacc.c:337 */ -# ifndef YY_NULLPTR -# if defined __cplusplus -# if 201103L <= __cplusplus -# define YY_NULLPTR nullptr -# else -# define YY_NULLPTR 0 -# endif -# else -# define YY_NULLPTR ((void*)0) -# endif -# endif - -/* Enabling verbose error messages. */ -#ifdef YYERROR_VERBOSE -# undef YYERROR_VERBOSE -# define YYERROR_VERBOSE 1 -#else -# define YYERROR_VERBOSE 0 -#endif - -/* In a future release of Bison, this section will be replaced - by #include "gabc-score-determination-y.h". */ -#ifndef YY_GABC_SCORE_DETERMINATION_GABC_GABC_SCORE_DETERMINATION_Y_H_INCLUDED -# define YY_GABC_SCORE_DETERMINATION_GABC_GABC_SCORE_DETERMINATION_Y_H_INCLUDED -/* Debug traces. */ -#ifndef YYDEBUG -# define YYDEBUG 0 -#endif -#if YYDEBUG -extern int gabc_score_determination_debug; -#endif - -/* Token type. */ -#ifndef YYTOKENTYPE -# define YYTOKENTYPE - enum yytokentype - { - NAME = 258, - AUTHOR = 259, - GABC_COPYRIGHT = 260, - SCORE_COPYRIGHT = 261, - LANGUAGE = 262, - STAFF_LINES = 263, - ORISCUS_ORIENTATION = 264, - DEF_MACRO = 265, - OTHER_HEADER = 266, - ANNOTATION = 267, - MODE = 268, - MODE_MODIFIER = 269, - MODE_DIFFERENTIA = 270, - END_OF_DEFINITIONS = 271, - END_OF_FILE = 272, - COLON = 273, - SEMICOLON = 274, - CHARACTERS = 275, - NOTES = 276, - HYPHEN = 277, - ATTRIBUTE = 278, - OPENING_BRACKET = 279, - CLOSING_BRACKET = 280, - CLOSING_BRACKET_WITH_SPACE = 281, - I_BEGIN = 282, - I_END = 283, - TT_BEGIN = 284, - TT_END = 285, - UL_BEGIN = 286, - UL_END = 287, - C_BEGIN = 288, - C_END = 289, - B_BEGIN = 290, - B_END = 291, - SC_BEGIN = 292, - SC_END = 293, - SP_BEGIN = 294, - SP_END = 295, - VERB_BEGIN = 296, - VERB_END = 297, - CENTER_BEGIN = 298, - CENTER_END = 299, - ELISION_BEGIN = 300, - ELISION_END = 301, - TRANSLATION_BEGIN = 302, - TRANSLATION_END = 303, - TRANSLATION_CENTER_END = 304, - ALT_BEGIN = 305, - ALT_END = 306, - NLBA_B = 307, - NLBA_E = 308, - EUOUAE_B = 309, - EUOUAE_E = 310, - NABC_CUT = 311, - NABC_LINES = 312, - CLEAR = 313, - PROTRUSION = 314, - PROTRUSION_VALUE = 315, - PROTRUSION_END = 316, - PROTRUDING_PUNCTUATION = 317 - }; -#endif -/* Tokens. */ -#define NAME 258 -#define AUTHOR 259 -#define GABC_COPYRIGHT 260 -#define SCORE_COPYRIGHT 261 -#define LANGUAGE 262 -#define STAFF_LINES 263 -#define ORISCUS_ORIENTATION 264 -#define DEF_MACRO 265 -#define OTHER_HEADER 266 -#define ANNOTATION 267 -#define MODE 268 -#define MODE_MODIFIER 269 -#define MODE_DIFFERENTIA 270 -#define END_OF_DEFINITIONS 271 -#define END_OF_FILE 272 -#define COLON 273 -#define SEMICOLON 274 -#define CHARACTERS 275 -#define NOTES 276 -#define HYPHEN 277 -#define ATTRIBUTE 278 -#define OPENING_BRACKET 279 -#define CLOSING_BRACKET 280 -#define CLOSING_BRACKET_WITH_SPACE 281 -#define I_BEGIN 282 -#define I_END 283 -#define TT_BEGIN 284 -#define TT_END 285 -#define UL_BEGIN 286 -#define UL_END 287 -#define C_BEGIN 288 -#define C_END 289 -#define B_BEGIN 290 -#define B_END 291 -#define SC_BEGIN 292 -#define SC_END 293 -#define SP_BEGIN 294 -#define SP_END 295 -#define VERB_BEGIN 296 -#define VERB_END 297 -#define CENTER_BEGIN 298 -#define CENTER_END 299 -#define ELISION_BEGIN 300 -#define ELISION_END 301 -#define TRANSLATION_BEGIN 302 -#define TRANSLATION_END 303 -#define TRANSLATION_CENTER_END 304 -#define ALT_BEGIN 305 -#define ALT_END 306 -#define NLBA_B 307 -#define NLBA_E 308 -#define EUOUAE_B 309 -#define EUOUAE_E 310 -#define NABC_CUT 311 -#define NABC_LINES 312 -#define CLEAR 313 -#define PROTRUSION 314 -#define PROTRUSION_VALUE 315 -#define PROTRUSION_END 316 -#define PROTRUDING_PUNCTUATION 317 - -/* Value type. */ -#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED -typedef int YYSTYPE; -# define YYSTYPE_IS_TRIVIAL 1 -# define YYSTYPE_IS_DECLARED 1 -#endif - -/* Location type. */ -#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED -typedef struct YYLTYPE YYLTYPE; -struct YYLTYPE -{ - int first_line; - int first_column; - int last_line; - int last_column; -}; -# define YYLTYPE_IS_DECLARED 1 -# define YYLTYPE_IS_TRIVIAL 1 -#endif - - -extern YYSTYPE gabc_score_determination_lval; -extern YYLTYPE gabc_score_determination_lloc; -int gabc_score_determination_parse (void); - -#endif /* !YY_GABC_SCORE_DETERMINATION_GABC_GABC_SCORE_DETERMINATION_Y_H_INCLUDED */ - - - -#ifdef short -# undef short -#endif - -#ifdef YYTYPE_UINT8 -typedef YYTYPE_UINT8 yytype_uint8; -#else -typedef unsigned char yytype_uint8; -#endif - -#ifdef YYTYPE_INT8 -typedef YYTYPE_INT8 yytype_int8; -#else -typedef signed char yytype_int8; -#endif - -#ifdef YYTYPE_UINT16 -typedef YYTYPE_UINT16 yytype_uint16; -#else -typedef unsigned short yytype_uint16; -#endif - -#ifdef YYTYPE_INT16 -typedef YYTYPE_INT16 yytype_int16; -#else -typedef short yytype_int16; -#endif - -#ifndef YYSIZE_T -# ifdef __SIZE_TYPE__ -# define YYSIZE_T __SIZE_TYPE__ -# elif defined size_t -# define YYSIZE_T size_t -# elif ! defined YYSIZE_T -# include <stddef.h> /* INFRINGES ON USER NAME SPACE */ -# define YYSIZE_T size_t -# else -# define YYSIZE_T unsigned -# endif -#endif - -#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) - -#ifndef YY_ -# if defined YYENABLE_NLS && YYENABLE_NLS -# if ENABLE_NLS -# include <libintl.h> /* INFRINGES ON USER NAME SPACE */ -# define YY_(Msgid) dgettext ("bison-runtime", Msgid) -# endif -# endif -# ifndef YY_ -# define YY_(Msgid) Msgid -# endif -#endif - -#ifndef YY_ATTRIBUTE -# if (defined __GNUC__ \ - && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ - || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C -# define YY_ATTRIBUTE(Spec) __attribute__(Spec) -# else -# define YY_ATTRIBUTE(Spec) /* empty */ -# endif -#endif - -#ifndef YY_ATTRIBUTE_PURE -# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) -#endif - -#ifndef YY_ATTRIBUTE_UNUSED -# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) -#endif - -/* Suppress unused-variable warnings by "using" E. */ -#if ! defined lint || defined __GNUC__ -# define YYUSE(E) ((void) (E)) -#else -# define YYUSE(E) /* empty */ -#endif - -#if defined __GNUC__ && ! defined __ICC && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ -/* Suppress an incorrect diagnostic about yylval being uninitialized. */ -# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ - _Pragma ("GCC diagnostic push") \ - _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ - _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") -# define YY_IGNORE_MAYBE_UNINITIALIZED_END \ - _Pragma ("GCC diagnostic pop") -#else -# define YY_INITIAL_VALUE(Value) Value -#endif -#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -# define YY_IGNORE_MAYBE_UNINITIALIZED_END -#endif -#ifndef YY_INITIAL_VALUE -# define YY_INITIAL_VALUE(Value) /* Nothing. */ -#endif - - -#if ! defined yyoverflow || YYERROR_VERBOSE - -/* The parser invokes alloca or malloc; define the necessary symbols. */ - -# ifdef YYSTACK_USE_ALLOCA -# if YYSTACK_USE_ALLOCA -# ifdef __GNUC__ -# define YYSTACK_ALLOC __builtin_alloca -# elif defined __BUILTIN_VA_ARG_INCR -# include <alloca.h> /* INFRINGES ON USER NAME SPACE */ -# elif defined _AIX -# define YYSTACK_ALLOC __alloca -# elif defined _MSC_VER -# include <malloc.h> /* INFRINGES ON USER NAME SPACE */ -# define alloca _alloca -# else -# define YYSTACK_ALLOC alloca -# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS -# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ - /* Use EXIT_SUCCESS as a witness for stdlib.h. */ -# ifndef EXIT_SUCCESS -# define EXIT_SUCCESS 0 -# endif -# endif -# endif -# endif -# endif - -# ifdef YYSTACK_ALLOC - /* Pacify GCC's 'empty if-body' warning. */ -# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) -# ifndef YYSTACK_ALLOC_MAXIMUM - /* The OS might guarantee only one guard page at the bottom of the stack, - and a page size can be as small as 4096 bytes. So we cannot safely - invoke alloca (N) if N exceeds 4096. Use a slightly smaller number - to allow for a few compiler-allocated temporary stack slots. */ -# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ -# endif -# else -# define YYSTACK_ALLOC YYMALLOC -# define YYSTACK_FREE YYFREE -# ifndef YYSTACK_ALLOC_MAXIMUM -# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM -# endif -# if (defined __cplusplus && ! defined EXIT_SUCCESS \ - && ! ((defined YYMALLOC || defined malloc) \ - && (defined YYFREE || defined free))) -# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ -# ifndef EXIT_SUCCESS -# define EXIT_SUCCESS 0 -# endif -# endif -# ifndef YYMALLOC -# define YYMALLOC malloc -# if ! defined malloc && ! defined EXIT_SUCCESS -void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ -# endif -# endif -# ifndef YYFREE -# define YYFREE free -# if ! defined free && ! defined EXIT_SUCCESS -void free (void *); /* INFRINGES ON USER NAME SPACE */ -# endif -# endif -# endif -#endif /* ! defined yyoverflow || YYERROR_VERBOSE */ - - -#if (! defined yyoverflow \ - && (! defined __cplusplus \ - || (defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL \ - && defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) - -/* A type that is properly aligned for any stack member. */ -union yyalloc -{ - yytype_int16 yyss_alloc; - YYSTYPE yyvs_alloc; - YYLTYPE yyls_alloc; -}; - -/* The size of the maximum gap between one aligned stack and the next. */ -# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) - -/* The size of an array large to enough to hold all stacks, each with - N elements. */ -# define YYSTACK_BYTES(N) \ - ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE) + sizeof (YYLTYPE)) \ - + 2 * YYSTACK_GAP_MAXIMUM) - -# define YYCOPY_NEEDED 1 - -/* Relocate STACK from its old location to the new one. The - local variables YYSIZE and YYSTACKSIZE give the old and new number of - elements in the stack, and YYPTR gives the new location of the - stack. Advance YYPTR to a properly aligned location for the next - stack. */ -# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ - do \ - { \ - YYSIZE_T yynewbytes; \ - YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ - Stack = &yyptr->Stack_alloc; \ - yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ - yyptr += yynewbytes / sizeof (*yyptr); \ - } \ - while (0) - -#endif - -#if defined YYCOPY_NEEDED && YYCOPY_NEEDED -/* Copy COUNT objects from SRC to DST. The source and destination do - not overlap. */ -# ifndef YYCOPY -# if defined __GNUC__ && 1 < __GNUC__ -# define YYCOPY(Dst, Src, Count) \ - __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) -# else -# define YYCOPY(Dst, Src, Count) \ - do \ - { \ - YYSIZE_T yyi; \ - for (yyi = 0; yyi < (Count); yyi++) \ - (Dst)[yyi] = (Src)[yyi]; \ - } \ - while (0) -# endif -# endif -#endif /* !YYCOPY_NEEDED */ - -/* YYFINAL -- State number of the termination state. */ -#define YYFINAL 4 -/* YYLAST -- Last index in YYTABLE. */ -#define YYLAST 247 - -/* YYNTOKENS -- Number of terminals. */ -#define YYNTOKENS 63 -/* YYNNTS -- Number of nonterminals. */ -#define YYNNTS 28 -/* YYNRULES -- Number of rules. */ -#define YYNRULES 101 -/* YYNSTATES -- Number of states. */ -#define YYNSTATES 145 - -#define YYUNDEFTOK 2 -#define YYMAXUTOK 317 - -/* YYTRANSLATE(TOKEN-NUM) -- Symbol number corresponding to TOKEN-NUM - as returned by yylex, with out-of-bounds checking. */ -#define YYTRANSLATE(YYX) \ - ((unsigned) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) - -/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM - as returned by yylex. */ -static const yytype_uint8 yytranslate[] = -{ - 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, - 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, - 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, - 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, - 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, - 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, - 55, 56, 57, 58, 59, 60, 61, 62 -}; - -#if YYDEBUG - /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ -static const yytype_uint16 yyrline[] = -{ - 0, 700, 700, 704, 709, 710, 714, 717, 723, 726, - 732, 737, 746, 752, 757, 762, 767, 772, 777, 785, - 793, 802, 807, 811, 816, 817, 821, 826, 832, 843, - 847, 855, 856, 857, 861, 864, 867, 870, 873, 876, - 879, 882, 888, 891, 894, 897, 900, 903, 906, 909, - 915, 918, 935, 938, 951, 954, 960, 963, 969, 972, - 978, 979, 982, 983, 984, 985, 986, 987, 988, 991, - 992, 995, 1001, 1002, 1006, 1009, 1010, 1011, 1014, 1020, - 1021, 1025, 1031, 1034, 1037, 1044, 1050, 1054, 1061, 1068, - 1073, 1078, 1082, 1089, 1096, 1101, 1109, 1112, 1118, 1119, - 1122, 1123 -}; -#endif - -#if YYDEBUG || YYERROR_VERBOSE || 0 -/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. - First, the terminals, then, starting at YYNTOKENS, nonterminals. */ -static const char *const yytname[] = -{ - "$end", "error", "$undefined", "NAME", "AUTHOR", "GABC_COPYRIGHT", - "SCORE_COPYRIGHT", "LANGUAGE", "STAFF_LINES", "ORISCUS_ORIENTATION", - "DEF_MACRO", "OTHER_HEADER", "ANNOTATION", "MODE", "MODE_MODIFIER", - "MODE_DIFFERENTIA", "END_OF_DEFINITIONS", "END_OF_FILE", "COLON", - "SEMICOLON", "CHARACTERS", "NOTES", "HYPHEN", "ATTRIBUTE", - "OPENING_BRACKET", "CLOSING_BRACKET", "CLOSING_BRACKET_WITH_SPACE", - "I_BEGIN", "I_END", "TT_BEGIN", "TT_END", "UL_BEGIN", "UL_END", - "C_BEGIN", "C_END", "B_BEGIN", "B_END", "SC_BEGIN", "SC_END", "SP_BEGIN", - "SP_END", "VERB_BEGIN", "VERB_END", "CENTER_BEGIN", "CENTER_END", - "ELISION_BEGIN", "ELISION_END", "TRANSLATION_BEGIN", "TRANSLATION_END", - "TRANSLATION_CENTER_END", "ALT_BEGIN", "ALT_END", "NLBA_B", "NLBA_E", - "EUOUAE_B", "EUOUAE_E", "NABC_CUT", "NABC_LINES", "CLEAR", "PROTRUSION", - "PROTRUSION_VALUE", "PROTRUSION_END", "PROTRUDING_PUNCTUATION", - "$accept", "score", "all_definitions", "definitions", "attribute_value", - "attribute", "definition", "notes", "note", "closing_bracket_with_space", - "style_beginning", "style_end", "special_style_beginning", - "special_style_end", "euouae", "linebreak_area", "protrusion", - "character", "text", "translation_character", "translation_text", - "translation_beginning", "translation", "above_line_text", - "syllable_with_notes", "notes_without_word", "syllable", "syllables", YY_NULLPTR -}; -#endif - -# ifdef YYPRINT -/* YYTOKNUM[NUM] -- (External) token number corresponding to the - (internal) symbol number NUM (which must be that of a token). */ -static const yytype_uint16 yytoknum[] = -{ - 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, - 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, - 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, - 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, - 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, - 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, - 315, 316, 317 -}; -# endif - -#define YYPACT_NINF -85 - -#define yypact_value_is_default(Yystate) \ - (!!((Yystate) == (-85))) - -#define YYTABLE_NINF -1 - -#define yytable_value_is_error(Yytable_value) \ - 0 - - /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing - STATE-NUM. */ -static const yytype_int16 yypact[] = -{ - -85, 11, -85, 69, -85, 66, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, -85, - 0, -85, -85, -20, -85, -85, -85, -85, -85, -85, - -85, -85, -85, -85, -85, -85, -85, -85, -85, -85, - -85, -85, -85, -85, -85, -85, -85, 4, -85, -85, - -85, -85, -85, -41, -19, -85, -85, -85, -85, -85, - -85, -85, -85, 107, 148, -4, -85, -85, -85, -85, - -7, -85, -85, -85, -85, -85, -85, -85, -85, -85, - -85, -85, -85, -85, -85, -85, 1, -11, -17, -29, - -85, 9, -2, -85, -1, -85, 13, -85, -85, -85, - -85, -85, -85, -85, 184, -85, -85, -85, -6, -11, - -85, -18, 27, 32, -85, -85, -85, -85, -11, -85, - -85, 26, -11, -85, 28, -85, -85, -85, -11, -85, - -85, -11, 27, -85, -85, -85, -85, -11, -11, -85, - -11, -85, -11, -11, -11 -}; - - /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. - Performed when YYTABLE does not specify something else to do. Zero - means the default is an error. */ -static const yytype_uint8 yydefact[] = -{ - 4, 0, 100, 0, 1, 2, 0, 0, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, - 0, 5, 61, 70, 24, 34, 42, 35, 43, 36, - 44, 37, 45, 38, 46, 39, 47, 41, 49, 40, - 48, 51, 53, 50, 52, 81, 84, 0, 56, 57, - 54, 55, 68, 59, 71, 62, 63, 64, 65, 67, - 66, 69, 72, 0, 0, 0, 60, 98, 99, 101, - 0, 11, 21, 13, 14, 12, 18, 22, 10, 23, - 20, 15, 16, 17, 19, 24, 0, 96, 0, 0, - 24, 0, 70, 24, 71, 73, 0, 74, 77, 82, - 78, 75, 76, 79, 0, 24, 9, 6, 0, 87, - 24, 0, 29, 31, 25, 30, 85, 58, 89, 24, - 24, 0, 86, 24, 0, 24, 83, 80, 97, 8, - 7, 92, 26, 28, 27, 33, 32, 94, 88, 24, - 90, 24, 91, 93, 95 -}; - - /* YYPGOTO[NTERM-NUM]. */ -static const yytype_int16 yypgoto[] = -{ - -85, -85, -85, -85, -85, 227, -85, -84, -85, -60, - -62, -61, -85, -85, -85, -85, -85, -10, -85, -50, - -85, -85, -23, -85, -85, -85, -85, -85 -}; - - /* YYDEFGOTO[NTERM-NUM]. */ -static const yytype_int8 yydefgoto[] = -{ - -1, 1, 2, 3, 108, 71, 21, 87, 114, 115, - 55, 56, 57, 58, 59, 60, 61, 62, 63, 103, - 104, 64, 65, 66, 67, 68, 69, 5 -}; - - /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If - positive, shift that token. If negative, reduce the rule whose - number is the opposite. If YYTABLE_NINF, syntax error. */ -static const yytype_uint8 yytable[] = -{ - 86, 109, 101, 102, 85, 90, 118, 132, 113, 122, - 111, 4, 106, 129, 112, 113, 107, 130, 70, 89, - 105, 128, 120, 123, 88, 110, 131, 45, 45, 46, - 46, 91, 117, 119, 116, 137, 138, 125, 133, 140, - 96, 142, 101, 102, 135, 45, 45, 46, 46, 136, - 139, 134, 141, 95, 127, 143, 0, 144, 0, 0, - 0, 0, 0, 0, 0, 0, 0, 0, 0, 121, - 0, 124, 6, 7, 8, 9, 10, 11, 12, 13, - 14, 15, 16, 17, 18, 19, 22, 0, 23, 0, - 24, 0, 0, 25, 26, 27, 28, 29, 30, 31, - 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, - 42, 43, 44, 45, 0, 46, 47, 0, 48, 49, - 50, 51, 0, 0, 52, 53, 20, 22, 54, 92, - 0, 93, 0, 0, 25, 26, 27, 28, 29, 30, - 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, - 41, 42, 43, 44, 45, 0, 46, 47, 0, 48, - 49, 50, 51, 0, 0, 52, 53, 0, 97, 94, - 98, 0, 0, 0, 0, 25, 26, 27, 28, 29, - 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, - 40, 0, 0, 0, 0, 0, 99, 0, 0, 0, - 0, 0, 0, 0, 97, 0, 98, 0, 0, 0, - 100, 25, 26, 27, 28, 29, 30, 31, 32, 33, - 34, 35, 36, 37, 38, 39, 40, 0, 0, 0, - 0, 0, 126, 0, 72, 73, 74, 75, 76, 77, - 78, 79, 80, 81, 82, 83, 100, 84 -}; - -static const yytype_int16 yycheck[] = -{ - 23, 85, 64, 64, 24, 24, 90, 25, 26, 93, - 21, 0, 19, 19, 25, 26, 23, 23, 18, 60, - 24, 105, 24, 24, 20, 24, 110, 47, 47, 49, - 49, 54, 61, 24, 51, 119, 120, 24, 56, 123, - 63, 125, 104, 104, 17, 47, 47, 49, 49, 17, - 24, 111, 24, 63, 104, 139, -1, 141, -1, -1, - -1, -1, -1, -1, -1, -1, -1, -1, -1, 92, - -1, 94, 3, 4, 5, 6, 7, 8, 9, 10, - 11, 12, 13, 14, 15, 16, 20, -1, 22, -1, - 24, -1, -1, 27, 28, 29, 30, 31, 32, 33, - 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, - 44, 45, 46, 47, -1, 49, 50, -1, 52, 53, - 54, 55, -1, -1, 58, 59, 57, 20, 62, 22, - -1, 24, -1, -1, 27, 28, 29, 30, 31, 32, - 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, - 43, 44, 45, 46, 47, -1, 49, 50, -1, 52, - 53, 54, 55, -1, -1, 58, 59, -1, 20, 62, - 22, -1, -1, -1, -1, 27, 28, 29, 30, 31, - 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, - 42, -1, -1, -1, -1, -1, 48, -1, -1, -1, - -1, -1, -1, -1, 20, -1, 22, -1, -1, -1, - 62, 27, 28, 29, 30, 31, 32, 33, 34, 35, - 36, 37, 38, 39, 40, 41, 42, -1, -1, -1, - -1, -1, 48, -1, 7, 8, 9, 10, 11, 12, - 13, 14, 15, 16, 17, 18, 62, 20 -}; - - /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing - symbol of state STATE-NUM. */ -static const yytype_uint8 yystos[] = -{ - 0, 64, 65, 66, 0, 90, 3, 4, 5, 6, - 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, - 57, 69, 20, 22, 24, 27, 28, 29, 30, 31, - 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, - 42, 43, 44, 45, 46, 47, 49, 50, 52, 53, - 54, 55, 58, 59, 62, 73, 74, 75, 76, 77, - 78, 79, 80, 81, 84, 85, 86, 87, 88, 89, - 18, 68, 68, 68, 68, 68, 68, 68, 68, 68, - 68, 68, 68, 68, 68, 24, 85, 70, 20, 60, - 24, 85, 22, 24, 62, 80, 85, 20, 22, 48, - 62, 73, 74, 82, 83, 24, 19, 23, 67, 70, - 24, 21, 25, 26, 71, 72, 51, 61, 70, 24, - 24, 85, 70, 24, 85, 24, 48, 82, 70, 19, - 23, 70, 25, 56, 72, 17, 17, 70, 70, 24, - 70, 24, 70, 70, 70 -}; - - /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ -static const yytype_uint8 yyr1[] = -{ - 0, 63, 64, 65, 66, 66, 67, 67, 68, 68, - 69, 69, 69, 69, 69, 69, 69, 69, 69, 69, - 69, 69, 69, 69, 70, 70, 71, 71, 71, 71, - 71, 72, 72, 72, 73, 73, 73, 73, 73, 73, - 73, 73, 74, 74, 74, 74, 74, 74, 74, 74, - 75, 75, 76, 76, 77, 77, 78, 78, 79, 79, - 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, - 80, 80, 81, 81, 82, 82, 82, 82, 82, 83, - 83, 84, 85, 85, 85, 86, 87, 87, 87, 87, - 87, 87, 87, 87, 87, 87, 88, 88, 89, 89, - 90, 90 -}; - - /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ -static const yytype_uint8 yyr2[] = -{ - 0, 2, 2, 2, 0, 2, 1, 2, 3, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 0, 2, 2, 2, 2, 1, - 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, - 2, 1, 2, 3, 1, 3, 3, 3, 4, 3, - 4, 4, 4, 5, 4, 5, 2, 3, 1, 1, - 0, 2 -}; - - -#define yyerrok (yyerrstatus = 0) -#define yyclearin (yychar = YYEMPTY) -#define YYEMPTY (-2) -#define YYEOF 0 - -#define YYACCEPT goto yyacceptlab -#define YYABORT goto yyabortlab -#define YYERROR goto yyerrorlab - - -#define YYRECOVERING() (!!yyerrstatus) - -#define YYBACKUP(Token, Value) \ - do \ - if (yychar == YYEMPTY) \ - { \ - yychar = (Token); \ - yylval = (Value); \ - YYPOPSTACK (yylen); \ - yystate = *yyssp; \ - goto yybackup; \ - } \ - else \ - { \ - yyerror (YY_("syntax error: cannot back up")); \ - YYERROR; \ - } \ - while (0) - -/* Error token number */ -#define YYTERROR 1 -#define YYERRCODE 256 - - -/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. - If N is 0, then set CURRENT to the empty location which ends - the previous symbol: RHS[0] (always defined). */ - -#ifndef YYLLOC_DEFAULT -# define YYLLOC_DEFAULT(Current, Rhs, N) \ - do \ - if (N) \ - { \ - (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \ - (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ - (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ - (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ - } \ - else \ - { \ - (Current).first_line = (Current).last_line = \ - YYRHSLOC (Rhs, 0).last_line; \ - (Current).first_column = (Current).last_column = \ - YYRHSLOC (Rhs, 0).last_column; \ - } \ - while (0) -#endif - -#define YYRHSLOC(Rhs, K) ((Rhs)[K]) - - -/* Enable debugging if requested. */ -#if YYDEBUG - -# ifndef YYFPRINTF -# include <stdio.h> /* INFRINGES ON USER NAME SPACE */ -# define YYFPRINTF fprintf -# endif - -# define YYDPRINTF(Args) \ -do { \ - if (yydebug) \ - YYFPRINTF Args; \ -} while (0) - - -/* YY_LOCATION_PRINT -- Print the location on the stream. - This macro was not mandated originally: define only if we know - we won't break user code: when these are the locations we know. */ - -#ifndef YY_LOCATION_PRINT -# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL - -/* Print *YYLOCP on YYO. Private, do not rely on its existence. */ - -YY_ATTRIBUTE_UNUSED -static int -yy_location_print_ (FILE *yyo, YYLTYPE const * const yylocp) -{ - int res = 0; - int end_col = 0 != yylocp->last_column ? yylocp->last_column - 1 : 0; - if (0 <= yylocp->first_line) - { - res += YYFPRINTF (yyo, "%d", yylocp->first_line); - if (0 <= yylocp->first_column) - res += YYFPRINTF (yyo, ".%d", yylocp->first_column); - } - if (0 <= yylocp->last_line) - { - if (yylocp->first_line < yylocp->last_line) - { - res += YYFPRINTF (yyo, "-%d", yylocp->last_line); - if (0 <= end_col) - res += YYFPRINTF (yyo, ".%d", end_col); - } - else if (0 <= end_col && yylocp->first_column < end_col) - res += YYFPRINTF (yyo, "-%d", end_col); - } - return res; - } - -# define YY_LOCATION_PRINT(File, Loc) \ - yy_location_print_ (File, &(Loc)) - -# else -# define YY_LOCATION_PRINT(File, Loc) ((void) 0) -# endif -#endif - - -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ -do { \ - if (yydebug) \ - { \ - YYFPRINTF (stderr, "%s ", Title); \ - yy_symbol_print (stderr, \ - Type, Value, Location); \ - YYFPRINTF (stderr, "\n"); \ - } \ -} while (0) - - -/*-----------------------------------. -| Print this symbol's value on YYO. | -`-----------------------------------*/ - -static void -yy_symbol_value_print (FILE *yyo, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp) -{ - FILE *yyoutput = yyo; - YYUSE (yyoutput); - YYUSE (yylocationp); - if (!yyvaluep) - return; -# ifdef YYPRINT - if (yytype < YYNTOKENS) - YYPRINT (yyo, yytoknum[yytype], *yyvaluep); -# endif - YYUSE (yytype); -} - - -/*---------------------------. -| Print this symbol on YYO. | -`---------------------------*/ - -static void -yy_symbol_print (FILE *yyo, int yytype, YYSTYPE const * const yyvaluep, YYLTYPE const * const yylocationp) -{ - YYFPRINTF (yyo, "%s %s (", - yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); - - YY_LOCATION_PRINT (yyo, *yylocationp); - YYFPRINTF (yyo, ": "); - yy_symbol_value_print (yyo, yytype, yyvaluep, yylocationp); - YYFPRINTF (yyo, ")"); -} - -/*------------------------------------------------------------------. -| yy_stack_print -- Print the state stack from its BOTTOM up to its | -| TOP (included). | -`------------------------------------------------------------------*/ - -static void -yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) -{ - YYFPRINTF (stderr, "Stack now"); - for (; yybottom <= yytop; yybottom++) - { - int yybot = *yybottom; - YYFPRINTF (stderr, " %d", yybot); - } - YYFPRINTF (stderr, "\n"); -} - -# define YY_STACK_PRINT(Bottom, Top) \ -do { \ - if (yydebug) \ - yy_stack_print ((Bottom), (Top)); \ -} while (0) - - -/*------------------------------------------------. -| Report that the YYRULE is going to be reduced. | -`------------------------------------------------*/ - -static void -yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, YYLTYPE *yylsp, int yyrule) -{ - unsigned long yylno = yyrline[yyrule]; - int yynrhs = yyr2[yyrule]; - int yyi; - YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", - yyrule - 1, yylno); - /* The symbols being reduced. */ - for (yyi = 0; yyi < yynrhs; yyi++) - { - YYFPRINTF (stderr, " $%d = ", yyi + 1); - yy_symbol_print (stderr, - yystos[yyssp[yyi + 1 - yynrhs]], - &yyvsp[(yyi + 1) - (yynrhs)] - , &(yylsp[(yyi + 1) - (yynrhs)]) ); - YYFPRINTF (stderr, "\n"); - } -} - -# define YY_REDUCE_PRINT(Rule) \ -do { \ - if (yydebug) \ - yy_reduce_print (yyssp, yyvsp, yylsp, Rule); \ -} while (0) - -/* Nonzero means print parse trace. It is left uninitialized so that - multiple parsers can coexist. */ -int yydebug; -#else /* !YYDEBUG */ -# define YYDPRINTF(Args) -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) -# define YY_STACK_PRINT(Bottom, Top) -# define YY_REDUCE_PRINT(Rule) -#endif /* !YYDEBUG */ - - -/* YYINITDEPTH -- initial size of the parser's stacks. */ -#ifndef YYINITDEPTH -# define YYINITDEPTH 200 -#endif - -/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only - if the built-in stack extension method is used). - - Do not make this value too large; the results are undefined if - YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) - evaluated with infinite-precision integer arithmetic. */ - -#ifndef YYMAXDEPTH -# define YYMAXDEPTH 10000 -#endif - - -#if YYERROR_VERBOSE - -# ifndef yystrlen -# if defined __GLIBC__ && defined _STRING_H -# define yystrlen strlen -# else -/* Return the length of YYSTR. */ -static YYSIZE_T -yystrlen (const char *yystr) -{ - YYSIZE_T yylen; - for (yylen = 0; yystr[yylen]; yylen++) - continue; - return yylen; -} -# endif -# endif - -# ifndef yystpcpy -# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE -# define yystpcpy stpcpy -# else -/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in - YYDEST. */ -static char * -yystpcpy (char *yydest, const char *yysrc) -{ - char *yyd = yydest; - const char *yys = yysrc; - - while ((*yyd++ = *yys++) != '\0') - continue; - - return yyd - 1; -} -# endif -# endif - -# ifndef yytnamerr -/* Copy to YYRES the contents of YYSTR after stripping away unnecessary - quotes and backslashes, so that it's suitable for yyerror. The - heuristic is that double-quoting is unnecessary unless the string - contains an apostrophe, a comma, or backslash (other than - backslash-backslash). YYSTR is taken from yytname. If YYRES is - null, do not copy; instead, return the length of what the result - would have been. */ -static YYSIZE_T -yytnamerr (char *yyres, const char *yystr) -{ - if (*yystr == '"') - { - YYSIZE_T yyn = 0; - char const *yyp = yystr; - - for (;;) - switch (*++yyp) - { - case '\'': - case ',': - goto do_not_strip_quotes; - - case '\\': - if (*++yyp != '\\') - goto do_not_strip_quotes; - else - goto append; - - append: - default: - if (yyres) - yyres[yyn] = *yyp; - yyn++; - break; - - case '"': - if (yyres) - yyres[yyn] = '\0'; - return yyn; - } - do_not_strip_quotes: ; - } - - if (! yyres) - return yystrlen (yystr); - - return (YYSIZE_T) (yystpcpy (yyres, yystr) - yyres); -} -# endif - -/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message - about the unexpected token YYTOKEN for the state stack whose top is - YYSSP. - - Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is - not large enough to hold the message. In that case, also set - *YYMSG_ALLOC to the required number of bytes. Return 2 if the - required number of bytes is too large to store. */ -static int -yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, - yytype_int16 *yyssp, int yytoken) -{ - YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); - YYSIZE_T yysize = yysize0; - enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; - /* Internationalized format string. */ - const char *yyformat = YY_NULLPTR; - /* Arguments of yyformat. */ - char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; - /* Number of reported tokens (one for the "unexpected", one per - "expected"). */ - int yycount = 0; - - /* There are many possibilities here to consider: - - If this state is a consistent state with a default action, then - the only way this function was invoked is if the default action - is an error action. In that case, don't check for expected - tokens because there are none. - - The only way there can be no lookahead present (in yychar) is if - this state is a consistent state with a default action. Thus, - detecting the absence of a lookahead is sufficient to determine - that there is no unexpected or expected token to report. In that - case, just report a simple "syntax error". - - Don't assume there isn't a lookahead just because this state is a - consistent state with a default action. There might have been a - previous inconsistent state, consistent state with a non-default - action, or user semantic action that manipulated yychar. - - Of course, the expected token list depends on states to have - correct lookahead information, and it depends on the parser not - to perform extra reductions after fetching a lookahead from the - scanner and before detecting a syntax error. Thus, state merging - (from LALR or IELR) and default reductions corrupt the expected - token list. However, the list is correct for canonical LR with - one exception: it will still contain any token that will not be - accepted due to an error action in a later state. - */ - if (yytoken != YYEMPTY) - { - int yyn = yypact[*yyssp]; - yyarg[yycount++] = yytname[yytoken]; - if (!yypact_value_is_default (yyn)) - { - /* Start YYX at -YYN if negative to avoid negative indexes in - YYCHECK. In other words, skip the first -YYN actions for - this state because they are default actions. */ - int yyxbegin = yyn < 0 ? -yyn : 0; - /* Stay within bounds of both yycheck and yytname. */ - int yychecklim = YYLAST - yyn + 1; - int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; - int yyx; - - for (yyx = yyxbegin; yyx < yyxend; ++yyx) - if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR - && !yytable_value_is_error (yytable[yyx + yyn])) - { - if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) - { - yycount = 1; - yysize = yysize0; - break; - } - yyarg[yycount++] = yytname[yyx]; - { - YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); - if (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM) - yysize = yysize1; - else - return 2; - } - } - } - } - - switch (yycount) - { -# define YYCASE_(N, S) \ - case N: \ - yyformat = S; \ - break - default: /* Avoid compiler warnings. */ - YYCASE_(0, YY_("syntax error")); - YYCASE_(1, YY_("syntax error, unexpected %s")); - YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); - YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); - YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); - YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); -# undef YYCASE_ - } - - { - YYSIZE_T yysize1 = yysize + yystrlen (yyformat); - if (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM) - yysize = yysize1; - else - return 2; - } - - if (*yymsg_alloc < yysize) - { - *yymsg_alloc = 2 * yysize; - if (! (yysize <= *yymsg_alloc - && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) - *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; - return 1; - } - - /* Avoid sprintf, as that infringes on the user's name space. - Don't have undefined behavior even if the translation - produced a string with the wrong number of "%s"s. */ - { - char *yyp = *yymsg; - int yyi = 0; - while ((*yyp = *yyformat) != '\0') - if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) - { - yyp += yytnamerr (yyp, yyarg[yyi++]); - yyformat += 2; - } - else - { - yyp++; - yyformat++; - } - } - return 0; -} -#endif /* YYERROR_VERBOSE */ - -/*-----------------------------------------------. -| Release the memory associated to this symbol. | -`-----------------------------------------------*/ - -static void -yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep, YYLTYPE *yylocationp) -{ - YYUSE (yyvaluep); - YYUSE (yylocationp); - if (!yymsg) - yymsg = "Deleting"; - YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); - - YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN - YYUSE (yytype); - YY_IGNORE_MAYBE_UNINITIALIZED_END -} - - - - -/* The lookahead symbol. */ -int yychar; - -/* The semantic value of the lookahead symbol. */ -YYSTYPE yylval; -/* Location data for the lookahead symbol. */ -YYLTYPE yylloc -# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL - = { 1, 1, 1, 1 } -# endif -; -/* Number of syntax errors so far. */ -int yynerrs; - - -/*----------. -| yyparse. | -`----------*/ - -int -yyparse (void) -{ - int yystate; - /* Number of tokens to shift before error messages enabled. */ - int yyerrstatus; - - /* The stacks and their tools: - 'yyss': related to states. - 'yyvs': related to semantic values. - 'yyls': related to locations. - - Refer to the stacks through separate pointers, to allow yyoverflow - to reallocate them elsewhere. */ - - /* The state stack. */ - yytype_int16 yyssa[YYINITDEPTH]; - yytype_int16 *yyss; - yytype_int16 *yyssp; - - /* The semantic value stack. */ - YYSTYPE yyvsa[YYINITDEPTH]; - YYSTYPE *yyvs; - YYSTYPE *yyvsp; - - /* The location stack. */ - YYLTYPE yylsa[YYINITDEPTH]; - YYLTYPE *yyls; - YYLTYPE *yylsp; - - /* The locations where the error started and ended. */ - YYLTYPE yyerror_range[3]; - - YYSIZE_T yystacksize; - - int yyn; - int yyresult; - /* Lookahead token as an internal (translated) token number. */ - int yytoken = 0; - /* The variables used to return semantic value and location from the - action routines. */ - YYSTYPE yyval; - YYLTYPE yyloc; - -#if YYERROR_VERBOSE - /* Buffer for error messages, and its allocated size. */ - char yymsgbuf[128]; - char *yymsg = yymsgbuf; - YYSIZE_T yymsg_alloc = sizeof yymsgbuf; -#endif - -#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N), yylsp -= (N)) - - /* The number of symbols on the RHS of the reduced rule. - Keep to zero when no symbol should be popped. */ - int yylen = 0; - - yyssp = yyss = yyssa; - yyvsp = yyvs = yyvsa; - yylsp = yyls = yylsa; - yystacksize = YYINITDEPTH; - - YYDPRINTF ((stderr, "Starting parse\n")); - - yystate = 0; - yyerrstatus = 0; - yynerrs = 0; - yychar = YYEMPTY; /* Cause a token to be read. */ - -/* User initialization code. */ -#line 655 "gabc/gabc-score-determination.y" /* yacc.c:1431 */ -{ - yylloc.first_line = 1; - yylloc.first_column = 0; - yylloc.first_offset = 0; - yylloc.last_line = 1; - yylloc.last_column = 0; - yylloc.last_offset = 0; - yylloc.generate_point_and_click = generate_point_and_click; -} - -#line 2058 "gabc/gabc-score-determination-y.c" /* yacc.c:1431 */ - yylsp[0] = yylloc; - goto yysetstate; - - -/*------------------------------------------------------------. -| yynewstate -- push a new state, which is found in yystate. | -`------------------------------------------------------------*/ -yynewstate: - /* In all cases, when you get here, the value and location stacks - have just been pushed. So pushing a state here evens the stacks. */ - yyssp++; - - -/*--------------------------------------------------------------------. -| yynewstate -- set current state (the top of the stack) to yystate. | -`--------------------------------------------------------------------*/ -yysetstate: - *yyssp = (yytype_int16) yystate; - - if (yyss + yystacksize - 1 <= yyssp) -#if !defined yyoverflow && !defined YYSTACK_RELOCATE - goto yyexhaustedlab; -#else - { - /* Get the current used size of the three stacks, in elements. */ - YYSIZE_T yysize = (YYSIZE_T) (yyssp - yyss + 1); - -# if defined yyoverflow - { - /* Give user a chance to reallocate the stack. Use copies of - these so that the &'s don't force the real ones into - memory. */ - YYSTYPE *yyvs1 = yyvs; - yytype_int16 *yyss1 = yyss; - YYLTYPE *yyls1 = yyls; - - /* Each stack pointer address is followed by the size of the - data in use in that stack, in bytes. This used to be a - conditional around just the two extra args, but that might - be undefined if yyoverflow is a macro. */ - yyoverflow (YY_("memory exhausted"), - &yyss1, yysize * sizeof (*yyssp), - &yyvs1, yysize * sizeof (*yyvsp), - &yyls1, yysize * sizeof (*yylsp), - &yystacksize); - yyss = yyss1; - yyvs = yyvs1; - yyls = yyls1; - } -# else /* defined YYSTACK_RELOCATE */ - /* Extend the stack our own way. */ - if (YYMAXDEPTH <= yystacksize) - goto yyexhaustedlab; - yystacksize *= 2; - if (YYMAXDEPTH < yystacksize) - yystacksize = YYMAXDEPTH; - - { - yytype_int16 *yyss1 = yyss; - union yyalloc *yyptr = - (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); - if (! yyptr) - goto yyexhaustedlab; - YYSTACK_RELOCATE (yyss_alloc, yyss); - YYSTACK_RELOCATE (yyvs_alloc, yyvs); - YYSTACK_RELOCATE (yyls_alloc, yyls); -# undef YYSTACK_RELOCATE - if (yyss1 != yyssa) - YYSTACK_FREE (yyss1); - } -# endif - - yyssp = yyss + yysize - 1; - yyvsp = yyvs + yysize - 1; - yylsp = yyls + yysize - 1; - - YYDPRINTF ((stderr, "Stack size increased to %lu\n", - (unsigned long) yystacksize)); - - if (yyss + yystacksize - 1 <= yyssp) - YYABORT; - } -#endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */ - - YYDPRINTF ((stderr, "Entering state %d\n", yystate)); - - if (yystate == YYFINAL) - YYACCEPT; - - goto yybackup; - - -/*-----------. -| yybackup. | -`-----------*/ -yybackup: - /* Do appropriate processing given the current state. Read a - lookahead token if we need one and don't already have one. */ - - /* First try to decide what to do without reference to lookahead token. */ - yyn = yypact[yystate]; - if (yypact_value_is_default (yyn)) - goto yydefault; - - /* Not known => get a lookahead token if don't already have one. */ - - /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ - if (yychar == YYEMPTY) - { - YYDPRINTF ((stderr, "Reading a token: ")); - yychar = yylex (STYLE_BITS); - } - - if (yychar <= YYEOF) - { - yychar = yytoken = YYEOF; - YYDPRINTF ((stderr, "Now at end of input.\n")); - } - else - { - yytoken = YYTRANSLATE (yychar); - YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); - } - - /* If the proper action on seeing token YYTOKEN is to reduce or to - detect an error, take that action. */ - yyn += yytoken; - if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) - goto yydefault; - yyn = yytable[yyn]; - if (yyn <= 0) - { - if (yytable_value_is_error (yyn)) - goto yyerrlab; - yyn = -yyn; - goto yyreduce; - } - - /* Count tokens shifted since error; after three, turn off error - status. */ - if (yyerrstatus) - yyerrstatus--; - - /* Shift the lookahead token. */ - YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); - - /* Discard the shifted token. */ - yychar = YYEMPTY; - - yystate = yyn; - YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN - *++yyvsp = yylval; - YY_IGNORE_MAYBE_UNINITIALIZED_END - *++yylsp = yylloc; - goto yynewstate; - - -/*-----------------------------------------------------------. -| yydefault -- do the default action for the current state. | -`-----------------------------------------------------------*/ -yydefault: - yyn = yydefact[yystate]; - if (yyn == 0) - goto yyerrlab; - goto yyreduce; - - -/*-----------------------------. -| yyreduce -- do a reduction. | -`-----------------------------*/ -yyreduce: - /* yyn is the number of a rule to reduce with. */ - yylen = yyr2[yyn]; - - /* If YYLEN is nonzero, implement the default value of the action: - '$$ = $1'. - - Otherwise, the following line sets YYVAL to garbage. - This behavior is undocumented and Bison - users should not rely upon it. Assigning to YYVAL - unconditionally makes the parser a bit smaller, and it avoids a - GCC warning that YYVAL may be used uninitialized. */ - yyval = yyvsp[1-yylen]; - - /* Default location. */ - YYLLOC_DEFAULT (yyloc, (yylsp - yylen), yylen); - yyerror_range[1] = yyloc; - YY_REDUCE_PRINT (yyn); - switch (yyn) - { - case 3: -#line 704 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_definitions(); - } -#line 2254 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 6: -#line 714 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - yyval.text = yyvsp[0].text; - } -#line 2262 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 7: -#line 717 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - yyval.text = concatenate(yyvsp[-1].text, yyvsp[0].text); - } -#line 2270 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 8: -#line 723 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - yyval.text = yyvsp[-1].text; - } -#line 2278 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 9: -#line 726 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - yyval.text = NULL; - } -#line 2286 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 10: -#line 732 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - /* these definitions are not passed through */ - free(macros[yyvsp[-1].character - '0']); - macros[yyvsp[-1].character - '0'] = yyvsp[0].text; - } -#line 2296 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 11: -#line 737 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - if (yyvsp[0].text == NULL) { - gregorio_message("name can't be empty","det_score", - VERBOSITY_WARNING, 0); - } - check_multiple("name", score->name != NULL); - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - score->name = yyvsp[0].text; - } -#line 2310 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 12: -#line 746 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("language", got_language); - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - gregorio_set_centering_language(yyvsp[0].text); - got_language = true; - } -#line 2321 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 13: -#line 752 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("gabc-copyright", score->gabc_copyright != NULL); - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - score->gabc_copyright = yyvsp[0].text; - } -#line 2331 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 14: -#line 757 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("score_copyright", score->score_copyright != NULL); - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - score->score_copyright = yyvsp[0].text; - } -#line 2341 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 15: -#line 762 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("mode", score->mode != 0); - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - score->mode = yyvsp[0].text; - } -#line 2351 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 16: -#line 767 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("mode-modifier", score->mode_modifier != NULL); - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - score->mode_modifier = yyvsp[0].text; - } -#line 2361 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 17: -#line 772 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("mode-differentia", score->mode_differentia != NULL); - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - score->mode_differentia = yyvsp[0].text; - } -#line 2371 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 18: -#line 777 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("staff-lines", got_staff_lines); - if (yyvsp[0].text) { - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - gregorio_set_score_staff_lines(score, atoi(yyvsp[0].text)); - got_staff_lines = true; - } - } -#line 2384 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 19: -#line 785 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("nabc lines", score->nabc_lines != 0); - if (yyvsp[0].text) { - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - nabc_lines=atoi(yyvsp[0].text); - score->nabc_lines=nabc_lines; - } - } -#line 2397 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 20: -#line 793 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - if (score->annotation [MAX_ANNOTATIONS - 1]) { - gregorio_messagef("det_score", VERBOSITY_WARNING, 0, - _("too many definitions of annotation found, only the " - "first %d will be taken"), MAX_ANNOTATIONS); - } - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - gregorio_set_score_annotation(score, yyvsp[0].text); - } -#line 2411 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 21: -#line 802 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - check_multiple("author", score->author != NULL); - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - score->author = yyvsp[0].text; - } -#line 2421 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 22: -#line 807 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - score->legacy_oriscus_orientation = (strcmp(yyvsp[0].text, "legacy") == 0); - } -#line 2430 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 23: -#line 811 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - gregorio_add_score_header(score, yyvsp[-1].text, yyvsp[0].text); - } -#line 2438 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 26: -#line 821 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - gabc_y_add_notes(yyvsp[-1].text, (yylsp[-1])); - free(yyvsp[-1].text); - nabc_state=0; - } -#line 2448 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 27: -#line 826 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - gabc_y_add_notes(yyvsp[-1].text, (yylsp[-1])); - free(yyvsp[-1].text); - nabc_state=0; - update_position_with_space(); - } -#line 2459 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 28: -#line 832 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - if (!nabc_lines) { - gregorio_message(_("You used character \"|\" in gabc without " - "setting \"nabc-lines\" parameter. Please " - "set it in your gabc header."), - "det_score", VERBOSITY_FATAL, 0); - } - gabc_y_add_notes(yyvsp[-1].text, (yylsp[-1])); - free(yyvsp[-1].text); - nabc_state = (nabc_state + 1) % (nabc_lines+1); - } -#line 2475 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 29: -#line 843 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - elements[voice]=NULL; - nabc_state=0; - } -#line 2484 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 30: -#line 847 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - elements[voice]=NULL; - nabc_state=0; - update_position_with_space(); - } -#line 2494 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 34: -#line 861 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_ITALIC); - } -#line 2502 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 35: -#line 864 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_TT); - } -#line 2510 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 36: -#line 867 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_UNDERLINED); - } -#line 2518 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 37: -#line 870 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_COLORED); - } -#line 2526 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 38: -#line 873 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_BOLD); - } -#line 2534 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 39: -#line 876 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_SMALL_CAPS); - } -#line 2542 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 40: -#line 879 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_VERBATIM); - } -#line 2550 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 41: -#line 882 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_SPECIAL_CHAR); - } -#line 2558 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 42: -#line 888 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_ITALIC); - } -#line 2566 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 43: -#line 891 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_TT); - } -#line 2574 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 44: -#line 894 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_UNDERLINED); - } -#line 2582 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 45: -#line 897 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_COLORED); - } -#line 2590 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 46: -#line 900 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_BOLD); - } -#line 2598 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 47: -#line 903 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_SMALL_CAPS); - } -#line 2606 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 48: -#line 906 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_VERBATIM); - } -#line 2614 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 49: -#line 909 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_SPECIAL_CHAR); - } -#line 2622 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 50: -#line 915 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_ELISION); - } -#line 2630 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 51: -#line 918 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - if (center_is_determined) { - gregorio_message( - "syllable already has center; ignoring additional center", - "det_score", VERBOSITY_WARNING, 0); - } else if (has_protrusion) { - gregorio_message( - "center not allowed after protrusion; ignored", - "det_score", VERBOSITY_WARNING, 0); - } else { - add_style(ST_FORCED_CENTER); - center_is_determined = CENTER_HALF_DETERMINED; - } - } -#line 2649 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 52: -#line 935 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_style(ST_ELISION); - } -#line 2657 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 53: -#line 938 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - if (center_is_determined == CENTER_HALF_DETERMINED) { - end_style(ST_FORCED_CENTER); - center_is_determined = CENTER_FULLY_DETERMINED; - } else { - gregorio_message( - "not within a syllable center", - "det_score", VERBOSITY_WARNING, 0); - } - } -#line 2672 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 54: -#line 951 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - euouae = EUOUAE_BEGINNING; - } -#line 2680 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 55: -#line 954 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - euouae = EUOUAE_END; - } -#line 2688 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 56: -#line 960 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - no_linebreak_area = NLBA_BEGINNING; - } -#line 2696 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 57: -#line 963 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - no_linebreak_area = NLBA_END; - } -#line 2704 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 58: -#line 969 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_protrusion(yyvsp[-1].text); - } -#line 2712 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 59: -#line 972 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_protrusion(gregorio_strdup("d")); /* d = default */ - } -#line 2720 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 61: -#line 979 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_text(yyvsp[0].text); - } -#line 2728 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 68: -#line 988 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - clear_syllable_text = true; - } -#line 2736 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 70: -#line 992 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_text(gregorio_strdup("-")); - } -#line 2744 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 71: -#line 995 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_text(yyvsp[0].text); - } -#line 2752 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 74: -#line 1006 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_text(yyvsp[0].text); - } -#line 2760 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 77: -#line 1011 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_text(gregorio_strdup("-")); - } -#line 2768 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 78: -#line 1014 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_text(yyvsp[0].text); - } -#line 2776 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 81: -#line 1025 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - start_translation(TR_NORMAL); - } -#line 2784 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 82: -#line 1031 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_translation(); - } -#line 2792 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 83: -#line 1034 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - end_translation(); - } -#line 2800 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 84: -#line 1037 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - start_translation(TR_WITH_CENTER_END); - end_translation(); - } -#line 2809 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 85: -#line 1044 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - abovelinestext = yyvsp[-1].text; - } -#line 2817 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 86: -#line 1050 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - save_text(); - close_syllable(&(yylsp[-2])); - } -#line 2826 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 87: -#line 1054 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreForceHyphen")); - end_style(ST_VERBATIM); - save_text(); - close_syllable(&(yylsp[-2])); - } -#line 2838 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 88: -#line 1061 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreForceHyphen")); - end_style(ST_VERBATIM); - save_text(); - close_syllable(&(yylsp[-3])); - } -#line 2850 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 89: -#line 1068 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_auto_protrusion(yyvsp[-2].text); - save_text(); - close_syllable(&(yylsp[-2])); - } -#line 2860 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 90: -#line 1073 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_auto_protrusion(yyvsp[-2].text); - save_text(); - close_syllable(&(yylsp[-3])); - } -#line 2870 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 91: -#line 1078 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - save_text(); - close_syllable(&(yylsp[-3])); - } -#line 2879 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 92: -#line 1082 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreForceHyphen")); - end_style(ST_VERBATIM); - save_text(); - close_syllable(&(yylsp[-3])); - } -#line 2891 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 93: -#line 1089 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreForceHyphen")); - end_style(ST_VERBATIM); - save_text(); - close_syllable(&(yylsp[-4])); - } -#line 2903 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 94: -#line 1096 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_auto_protrusion(yyvsp[-3].text); - save_text(); - close_syllable(&(yylsp[-3])); - } -#line 2913 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 95: -#line 1101 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - add_auto_protrusion(yyvsp[-3].text); - save_text(); - close_syllable(&(yylsp[-4])); - } -#line 2923 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 96: -#line 1109 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - close_syllable(NULL); - } -#line 2931 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - case 97: -#line 1112 "gabc/gabc-score-determination.y" /* yacc.c:1652 */ - { - close_syllable(NULL); - } -#line 2939 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - break; - - -#line 2943 "gabc/gabc-score-determination-y.c" /* yacc.c:1652 */ - default: break; - } - /* User semantic actions sometimes alter yychar, and that requires - that yytoken be updated with the new translation. We take the - approach of translating immediately before every use of yytoken. - One alternative is translating here after every semantic action, - but that translation would be missed if the semantic action invokes - YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or - if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an - incorrect destructor might then be invoked immediately. In the - case of YYERROR or YYBACKUP, subsequent parser actions might lead - to an incorrect destructor call or verbose syntax error message - before the lookahead is translated. */ - YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); - - YYPOPSTACK (yylen); - yylen = 0; - YY_STACK_PRINT (yyss, yyssp); - - *++yyvsp = yyval; - *++yylsp = yyloc; - - /* Now 'shift' the result of the reduction. Determine what state - that goes to, based on the state we popped back to and the rule - number reduced by. */ - { - const int yylhs = yyr1[yyn] - YYNTOKENS; - const int yyi = yypgoto[yylhs] + *yyssp; - yystate = (0 <= yyi && yyi <= YYLAST && yycheck[yyi] == *yyssp - ? yytable[yyi] - : yydefgoto[yylhs]); - } - - goto yynewstate; - - -/*--------------------------------------. -| yyerrlab -- here on detecting error. | -`--------------------------------------*/ -yyerrlab: - /* Make sure we have latest lookahead translation. See comments at - user semantic actions for why this is necessary. */ - yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); - - /* If not already recovering from an error, report this error. */ - if (!yyerrstatus) - { - ++yynerrs; -#if ! YYERROR_VERBOSE - yyerror (YY_("syntax error")); -#else -# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ - yyssp, yytoken) - { - char const *yymsgp = YY_("syntax error"); - int yysyntax_error_status; - yysyntax_error_status = YYSYNTAX_ERROR; - if (yysyntax_error_status == 0) - yymsgp = yymsg; - else if (yysyntax_error_status == 1) - { - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); - yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); - if (!yymsg) - { - yymsg = yymsgbuf; - yymsg_alloc = sizeof yymsgbuf; - yysyntax_error_status = 2; - } - else - { - yysyntax_error_status = YYSYNTAX_ERROR; - yymsgp = yymsg; - } - } - yyerror (yymsgp); - if (yysyntax_error_status == 2) - goto yyexhaustedlab; - } -# undef YYSYNTAX_ERROR -#endif - } - - yyerror_range[1] = yylloc; - - if (yyerrstatus == 3) - { - /* If just tried and failed to reuse lookahead token after an - error, discard it. */ - - if (yychar <= YYEOF) - { - /* Return failure if at end of input. */ - if (yychar == YYEOF) - YYABORT; - } - else - { - yydestruct ("Error: discarding", - yytoken, &yylval, &yylloc); - yychar = YYEMPTY; - } - } - - /* Else will try to reuse lookahead token after shifting the error - token. */ - goto yyerrlab1; - - -/*---------------------------------------------------. -| yyerrorlab -- error raised explicitly by YYERROR. | -`---------------------------------------------------*/ -yyerrorlab: - /* Pacify compilers when the user code never invokes YYERROR and the - label yyerrorlab therefore never appears in user code. */ - if (0) - YYERROR; - - /* Do not reclaim the symbols of the rule whose action triggered - this YYERROR. */ - YYPOPSTACK (yylen); - yylen = 0; - YY_STACK_PRINT (yyss, yyssp); - yystate = *yyssp; - goto yyerrlab1; - - -/*-------------------------------------------------------------. -| yyerrlab1 -- common code for both syntax error and YYERROR. | -`-------------------------------------------------------------*/ -yyerrlab1: - yyerrstatus = 3; /* Each real token shifted decrements this. */ - - for (;;) - { - yyn = yypact[yystate]; - if (!yypact_value_is_default (yyn)) - { - yyn += YYTERROR; - if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) - { - yyn = yytable[yyn]; - if (0 < yyn) - break; - } - } - - /* Pop the current state because it cannot handle the error token. */ - if (yyssp == yyss) - YYABORT; - - yyerror_range[1] = *yylsp; - yydestruct ("Error: popping", - yystos[yystate], yyvsp, yylsp); - YYPOPSTACK (1); - yystate = *yyssp; - YY_STACK_PRINT (yyss, yyssp); - } - - YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN - *++yyvsp = yylval; - YY_IGNORE_MAYBE_UNINITIALIZED_END - - yyerror_range[2] = yylloc; - /* Using YYLLOC is tempting, but would change the location of - the lookahead. YYLOC is available though. */ - YYLLOC_DEFAULT (yyloc, yyerror_range, 2); - *++yylsp = yyloc; - - /* Shift the error token. */ - YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); - - yystate = yyn; - goto yynewstate; - - -/*-------------------------------------. -| yyacceptlab -- YYACCEPT comes here. | -`-------------------------------------*/ -yyacceptlab: - yyresult = 0; - goto yyreturn; - - -/*-----------------------------------. -| yyabortlab -- YYABORT comes here. | -`-----------------------------------*/ -yyabortlab: - yyresult = 1; - goto yyreturn; - - -#if !defined yyoverflow || YYERROR_VERBOSE -/*-------------------------------------------------. -| yyexhaustedlab -- memory exhaustion comes here. | -`-------------------------------------------------*/ -yyexhaustedlab: - yyerror (YY_("memory exhausted")); - yyresult = 2; - /* Fall through. */ -#endif - - -/*-----------------------------------------------------. -| yyreturn -- parsing is finished, return the result. | -`-----------------------------------------------------*/ -yyreturn: - if (yychar != YYEMPTY) - { - /* Make sure we have latest lookahead translation. See comments at - user semantic actions for why this is necessary. */ - yytoken = YYTRANSLATE (yychar); - yydestruct ("Cleanup: discarding lookahead", - yytoken, &yylval, &yylloc); - } - /* Do not reclaim the symbols of the rule whose action triggered - this YYABORT or YYACCEPT. */ - YYPOPSTACK (yylen); - YY_STACK_PRINT (yyss, yyssp); - while (yyssp != yyss) - { - yydestruct ("Cleanup: popping", - yystos[*yyssp], yyvsp, yylsp); - YYPOPSTACK (1); - } -#ifndef yyoverflow - if (yyss != yyssa) - YYSTACK_FREE (yyss); -#endif -#if YYERROR_VERBOSE - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); -#endif - return yyresult; -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-y.h b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-y.h deleted file mode 100644 index df928d20667..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination-y.h +++ /dev/null @@ -1,202 +0,0 @@ -/* A Bison parser, made by GNU Bison 3.3.2. */ - -/* Bison interface for Yacc-like parsers in C - - Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, - Inc. - - This program is free software: you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation, either version 3 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program. If not, see <http://www.gnu.org/licenses/>. */ - -/* As a special exception, you may create a larger work that contains - part or all of the Bison parser skeleton and distribute that work - under terms of your choice, so long as that work isn't itself a - parser generator using the skeleton or a modified version thereof - as a parser skeleton. Alternatively, if you modify or redistribute - the parser skeleton itself, you may (at your option) remove this - special exception, which will cause the skeleton and the resulting - Bison output files to be licensed under the GNU General Public - License without this special exception. - - This special exception was added by the Free Software Foundation in - version 2.2 of Bison. */ - -/* Undocumented macros, especially those whose name start with YY_, - are private implementation details. Do not rely on them. */ - -#ifndef YY_GABC_SCORE_DETERMINATION_GABC_GABC_SCORE_DETERMINATION_Y_H_INCLUDED -# define YY_GABC_SCORE_DETERMINATION_GABC_GABC_SCORE_DETERMINATION_Y_H_INCLUDED -/* Debug traces. */ -#ifndef YYDEBUG -# define YYDEBUG 0 -#endif -#if YYDEBUG -extern int gabc_score_determination_debug; -#endif - -/* Token type. */ -#ifndef YYTOKENTYPE -# define YYTOKENTYPE - enum yytokentype - { - NAME = 258, - AUTHOR = 259, - GABC_COPYRIGHT = 260, - SCORE_COPYRIGHT = 261, - LANGUAGE = 262, - STAFF_LINES = 263, - ORISCUS_ORIENTATION = 264, - DEF_MACRO = 265, - OTHER_HEADER = 266, - ANNOTATION = 267, - MODE = 268, - MODE_MODIFIER = 269, - MODE_DIFFERENTIA = 270, - END_OF_DEFINITIONS = 271, - END_OF_FILE = 272, - COLON = 273, - SEMICOLON = 274, - CHARACTERS = 275, - NOTES = 276, - HYPHEN = 277, - ATTRIBUTE = 278, - OPENING_BRACKET = 279, - CLOSING_BRACKET = 280, - CLOSING_BRACKET_WITH_SPACE = 281, - I_BEGIN = 282, - I_END = 283, - TT_BEGIN = 284, - TT_END = 285, - UL_BEGIN = 286, - UL_END = 287, - C_BEGIN = 288, - C_END = 289, - B_BEGIN = 290, - B_END = 291, - SC_BEGIN = 292, - SC_END = 293, - SP_BEGIN = 294, - SP_END = 295, - VERB_BEGIN = 296, - VERB_END = 297, - CENTER_BEGIN = 298, - CENTER_END = 299, - ELISION_BEGIN = 300, - ELISION_END = 301, - TRANSLATION_BEGIN = 302, - TRANSLATION_END = 303, - TRANSLATION_CENTER_END = 304, - ALT_BEGIN = 305, - ALT_END = 306, - NLBA_B = 307, - NLBA_E = 308, - EUOUAE_B = 309, - EUOUAE_E = 310, - NABC_CUT = 311, - NABC_LINES = 312, - CLEAR = 313, - PROTRUSION = 314, - PROTRUSION_VALUE = 315, - PROTRUSION_END = 316, - PROTRUDING_PUNCTUATION = 317 - }; -#endif -/* Tokens. */ -#define NAME 258 -#define AUTHOR 259 -#define GABC_COPYRIGHT 260 -#define SCORE_COPYRIGHT 261 -#define LANGUAGE 262 -#define STAFF_LINES 263 -#define ORISCUS_ORIENTATION 264 -#define DEF_MACRO 265 -#define OTHER_HEADER 266 -#define ANNOTATION 267 -#define MODE 268 -#define MODE_MODIFIER 269 -#define MODE_DIFFERENTIA 270 -#define END_OF_DEFINITIONS 271 -#define END_OF_FILE 272 -#define COLON 273 -#define SEMICOLON 274 -#define CHARACTERS 275 -#define NOTES 276 -#define HYPHEN 277 -#define ATTRIBUTE 278 -#define OPENING_BRACKET 279 -#define CLOSING_BRACKET 280 -#define CLOSING_BRACKET_WITH_SPACE 281 -#define I_BEGIN 282 -#define I_END 283 -#define TT_BEGIN 284 -#define TT_END 285 -#define UL_BEGIN 286 -#define UL_END 287 -#define C_BEGIN 288 -#define C_END 289 -#define B_BEGIN 290 -#define B_END 291 -#define SC_BEGIN 292 -#define SC_END 293 -#define SP_BEGIN 294 -#define SP_END 295 -#define VERB_BEGIN 296 -#define VERB_END 297 -#define CENTER_BEGIN 298 -#define CENTER_END 299 -#define ELISION_BEGIN 300 -#define ELISION_END 301 -#define TRANSLATION_BEGIN 302 -#define TRANSLATION_END 303 -#define TRANSLATION_CENTER_END 304 -#define ALT_BEGIN 305 -#define ALT_END 306 -#define NLBA_B 307 -#define NLBA_E 308 -#define EUOUAE_B 309 -#define EUOUAE_E 310 -#define NABC_CUT 311 -#define NABC_LINES 312 -#define CLEAR 313 -#define PROTRUSION 314 -#define PROTRUSION_VALUE 315 -#define PROTRUSION_END 316 -#define PROTRUDING_PUNCTUATION 317 - -/* Value type. */ -#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED -typedef int YYSTYPE; -# define YYSTYPE_IS_TRIVIAL 1 -# define YYSTYPE_IS_DECLARED 1 -#endif - -/* Location type. */ -#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED -typedef struct YYLTYPE YYLTYPE; -struct YYLTYPE -{ - int first_line; - int first_column; - int last_line; - int last_column; -}; -# define YYLTYPE_IS_DECLARED 1 -# define YYLTYPE_IS_TRIVIAL 1 -#endif - - -extern YYSTYPE gabc_score_determination_lval; -extern YYLTYPE gabc_score_determination_lloc; -int gabc_score_determination_parse (void); - -#endif /* !YY_GABC_SCORE_DETERMINATION_GABC_GABC_SCORE_DETERMINATION_Y_H_INCLUDED */ diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.c b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.c deleted file mode 100644 index 38b88ad4799..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.c +++ /dev/null @@ -1,659 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the score parser. - * - * Gregorio score determination from gabc utilities. - * Copyright (C) 2016-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <assert.h> -#include "bool.h" -#include "struct.h" -#include "struct_iter.h" -#include "gabc.h" -#include "gabc-score-determination.h" -#include "messages.h" -#include "support.h" - -void gabc_suppress_extra_custos_at_linebreak(gregorio_score *score) -{ - gregorio_syllable *syllable; - gregorio_element **custos = NULL; - - for (syllable = score->first_syllable; syllable; - syllable = syllable->next_syllable) { - gregorio_element **element; - for (element = syllable->elements; element && *element; - element = &((*element)->next)) { - switch ((*element)->type) { - case GRE_CUSTOS: - if (!((*element)->u.misc.pitched.force_pitch)) { - /* save the encountered non-forced custos */ - custos = element; - } else { - /* forget the (previous) custos */ - custos = NULL; - } - break; - case GRE_CLEF: - case GRE_BAR: - /* remember the custos if only these appear before linebreak */ - break; - case GRE_END_OF_LINE: - if (custos) { - /* suppress the custos when linebreak follows */ - gregorio_free_one_element(custos); - } - /* fall through */ - default: - /* forget the custos */ - custos = NULL; - break; - } - } - } -} - -void gabc_fix_custos_pitches(gregorio_score *score_to_check) -{ - gregorio_syllable *current_syllable; - gregorio_element *current_element; - gregorio_element *custos_element; - int newkey; - int current_key; - - if (!score_to_check || !score_to_check->first_syllable - || !score_to_check->first_voice_info) { - return; - } - - current_key = gregorio_calculate_new_key( - score_to_check->first_voice_info->initial_clef); - for (current_syllable = score_to_check->first_syllable; current_syllable; - current_syllable = current_syllable->next_syllable) { - for (current_element = (current_syllable->elements)[0]; current_element; - current_element = current_element->next) { - if (current_element->type == GRE_CLEF) { - newkey = gregorio_calculate_new_key( - current_element->u.misc.clef); - current_element->u.misc.clef.pitch_difference = - (signed char) newkey - (signed char) current_key; - current_key = newkey; - } - } - } - - custos_element = NULL; - for (current_syllable = score_to_check->first_syllable; current_syllable; - current_syllable = current_syllable->next_syllable) { - for (current_element = (current_syllable->elements)[0]; current_element; - current_element = current_element->next) { - switch (current_element->type) { - case GRE_CUSTOS: - if (current_element->u.misc.pitched.force_pitch) { - /* forget about the preceding custos if a forced one is - * encountered */ - custos_element = NULL; - } else { - /* the pitch is not forced, so it may need to be adjusted */ - custos_element = current_element; - custos_element->u.misc.pitched.pitch = - gregorio_determine_next_pitch(current_syllable, - current_element, NULL, NULL); - } - break; - - case GRE_ELEMENT: - /* if it's an element, forget any preceding custos */ - custos_element = NULL; - break; - - case GRE_CLEF: - if (custos_element) { - /* adjust the preceding custos for the clef */ - custos_element->u.misc.pitched.pitch = - gregorio_adjust_pitch_into_staff(score_to_check, - custos_element->u.misc.pitched.pitch - - current_element->u.misc.clef.pitch_difference); - } - break; - - default: - /* to prevent the warning */ - break; - } - } - } -} - -/* - * A function that checks the score integrity. - */ - -bool gabc_check_score_integrity(gregorio_score *score_to_check) -{ - bool good = true; - - gregorio_assert(score_to_check, check_score_integrity, "score is NULL", - return false); - - if (score_to_check->first_syllable - && score_to_check->first_syllable->elements - && *(score_to_check->first_syllable->elements)) { - gregorio_character *ch; - if ((score_to_check->first_syllable->elements)[0]->type - == GRE_END_OF_LINE) { - gregorio_message( - "line break is not supported on the first syllable", - "check_score_integrity", VERBOSITY_ERROR, 0); - good = false; - } - if (gregorio_get_clef_change(score_to_check->first_syllable)) { - gregorio_message( - "clef change is not supported on the first syllable", - "check_score_integrity", VERBOSITY_ERROR, 0); - good = false; - } - /* check first syllable for elision at the beginning */ - for (ch = score_to_check->first_syllable->text; ch; - ch = ch->next_character) { - if (ch->is_character) { - break; - } else if (ch->cos.s.style == ST_VERBATIM - || ch->cos.s.style == ST_SPECIAL_CHAR) { - break; - } else if (ch->cos.s.style == ST_ELISION) { - gregorio_message( - _("score initial may not be in an elision"), - "check_score_integrity", VERBOSITY_ERROR, 0); - break; - } - } - } - - return good; -} - -/* - * Another function to be improved: this one checks the validity of the voice_infos. - */ - -bool gabc_check_infos_integrity(gregorio_score *score_to_check) -{ - if (!score_to_check->name) { - gregorio_message(_("no name specified, put `name:...;' at the " - "beginning of the file, can be dangerous with some output " - "formats"), "det_score", VERBOSITY_WARNING, 0); - } - return true; -} - -static void set_oriscus_descending(const gregorio_note_iter_position *const p, - void *const ignored __attribute__((unused))) -{ - switch(p->note->u.note.shape) { - case S_ORISCUS_UNDETERMINED: - p->note->u.note.shape = S_ORISCUS_DESCENDENS; - break; - case S_ORISCUS_SCAPUS_UNDETERMINED: - p->note->u.note.shape = S_ORISCUS_SCAPUS_DESCENDENS; - gregorio_assert_only(p->glyph->u.notes.glyph_type - != G_PES_DESCENDENS_ORISCUS, set_oriscus_descending, - "glyph type should not be G_PES_DESCENDENS_ORISCUS"); - if (p->glyph->u.notes.glyph_type == G_PES_ASCENDENS_ORISCUS) { - p->glyph->u.notes.glyph_type = G_PES_DESCENDENS_ORISCUS; - } - break; - default: - break; - } -} - -static void set_oriscus_ascending(const gregorio_note_iter_position *const p, - void *const ignored __attribute__((unused))) -{ - switch(p->note->u.note.shape) { - case S_ORISCUS_UNDETERMINED: - p->note->u.note.shape = S_ORISCUS_ASCENDENS; - break; - case S_ORISCUS_SCAPUS_UNDETERMINED: - p->note->u.note.shape = S_ORISCUS_SCAPUS_ASCENDENS; - gregorio_assert_only(p->glyph->u.notes.glyph_type - != G_PES_DESCENDENS_ORISCUS, set_oriscus_ascending, - "glyph type should not be G_PES_DESCENDENS_ORISCUS"); - break; - default: - break; - } -} - -/* data must be (gregorio_note_iter_position *) */ -static void oriscus_orientation_visit( - const gregorio_note_iter_position *const p, void *const data) -{ - gregorio_note *const note = p->note; - gregorio_note_iter_position *const oriscus = - (gregorio_note_iter_position *const)data; - - if (oriscus->note && note->u.note.pitch != oriscus->note->u.note.pitch) { - if (note->u.note.pitch <= oriscus->note->u.note.pitch) { - /* descending (or undetermined oriscus in unison) */ - gregorio_from_note_to_note(oriscus, p, false, - set_oriscus_descending, NULL, GRESTRUCT_NONE, NULL); - } else { - /* ascending */ - gregorio_from_note_to_note(oriscus, p, false, - set_oriscus_ascending, NULL, GRESTRUCT_NONE, NULL); - } - oriscus->syllable = NULL, - oriscus->element = NULL, - oriscus->note = NULL; - oriscus->glyph = NULL; - } - - if (!oriscus->note) { - switch (note->u.note.shape) { - case S_ORISCUS_UNDETERMINED: - case S_ORISCUS_SCAPUS_UNDETERMINED: - *oriscus = *p; - break; - - default: - break; - } - } -} - -void gabc_determine_oriscus_orientation(const gregorio_score *const score) -{ - gregorio_note_iter_position oriscus = { - /* .syllable = */ NULL, - /* .element = */ NULL, - /* .glyph = */ NULL, - /* .note = */ NULL - }; - - gregorio_for_each_note(score, oriscus_orientation_visit, NULL, - GRESTRUCT_NONE, &oriscus); - - if (oriscus.note) { - gregorio_from_note_to_note(&oriscus, NULL, true, - set_oriscus_descending, NULL, GRESTRUCT_NONE, NULL); - } -} - -typedef struct { - gregorio_note_iter_position first, previous; - gregorio_shape orientation; - int running; - int count; - bool unison; -} punctum_inclinatum_vars; - -/* data must be (gregorio_shape *) */ -static void set_shape(const gregorio_note_iter_position *const p, - void *const data) -{ - p->note->u.note.shape = *((gregorio_shape *)data); -} - -static __inline void set_punctum_inclinatum_orientation( - punctum_inclinatum_vars *const v) -{ - if (v->orientation == S_UNDETERMINED) { - if (v->unison && (v->count > 1 || (v->count == 1 && v->running == 0))) { - v->orientation = S_PUNCTUM_INCLINATUM_STANS; - } else if (v->running > 0) { - v->orientation = S_PUNCTUM_INCLINATUM_ASCENDENS; - } else { - v->orientation = S_PUNCTUM_INCLINATUM_DESCENDENS; - } - } -} - -static __inline void finalize_punctum_inclinatum_orientation( - punctum_inclinatum_vars *const v) -{ - if (v->first.note) { - set_punctum_inclinatum_orientation(v); - gregorio_assert_only(v->orientation != S_UNDETERMINED, - punctum_inclinatum_orientation_end_item, - "orientation should not be S_UNDETERMINED"); - gregorio_from_note_to_note(&v->first, &v->previous, true, set_shape, - NULL, GRESTRUCT_NONE, &v->orientation); - } - - v->first.syllable = NULL; - v->first.element = NULL; - v->first.glyph = NULL; - v->first.note = NULL; - v->unison = true; -} - -/* data must be (punctum_inclinatum_vars *) */ -static void punctum_inclinatum_orientation_visit( - const gregorio_note_iter_position *const p, void *const data) -{ - const gregorio_shape shape = p->note->u.note.shape; - punctum_inclinatum_vars *const v = (punctum_inclinatum_vars *)data; - if (shape == S_PUNCTUM_INCLINATUM_UNDETERMINED) { - if (v->orientation) { - p->note->u.note.shape = v->orientation; - } else { - /* any cases not covered here will not change running */ - if (v->previous.note - && (v->first.note || v->previous.syllable == p->syllable)) { - if (v->previous.note->u.note.pitch - < p->note->u.note.pitch) { - ++ v->running; - if (v->count > 0) { - v->unison = false; - } - } else if (v->previous.note->u.note.pitch - > p->note->u.note.pitch) { - -- v->running; - if (v->count > 0) { - v->unison = false; - } - } - } - if (!v->first.note) { - v->first = *p; - } - } - ++ v->count; - } else { /* non-inclinatum or determined inclinatum */ - bool is_punctum_inclinatum; - - /* shape can't be S_PUNCTUM_INCLINATUM_UNDETERMINED here */ - switch (shape) { - case S_PUNCTUM_INCLINATUM_ASCENDENS: - v->orientation = S_PUNCTUM_INCLINATUM_ASCENDENS; - is_punctum_inclinatum = true; - break; - case S_PUNCTUM_INCLINATUM_STANS: - v->orientation = S_PUNCTUM_INCLINATUM_STANS; - is_punctum_inclinatum = true; - break; - case S_PUNCTUM_INCLINATUM_DEMINUTUS: - case S_PUNCTUM_INCLINATUM_AUCTUS: - v->unison = false; - /* fall through */ - case S_PUNCTUM_INCLINATUM_DESCENDENS: - v->orientation = S_PUNCTUM_INCLINATUM_DESCENDENS; - is_punctum_inclinatum = true; - break; - default: - is_punctum_inclinatum = false; - break; - } - - if (v->first.note) { - if (!is_punctum_inclinatum) { - /* if v->first.note is not null, - * then v->previous.note is not null */ - if (v->previous.note->u.note.pitch - < p->note->u.note.pitch - && v->previous.syllable == p->syllable) { - ++ v->running; - } else if (v->previous.note->u.note.pitch - > p->note->u.note.pitch) { - -- v->running; - } - } - finalize_punctum_inclinatum_orientation(v); - } - - if (is_punctum_inclinatum) { - ++ v->count; - /* and leave orientation alone */ - } else { - v->running = 0; - v->count = 0; - v->orientation = S_UNDETERMINED; - } - } - - v->previous = *p; -} - -/* data must be (punctum_inclinatum_vars *) */ -static void punctum_inclinatum_orientation_end_item( - const gregorio_note_iter_position *const p __attribute__((__unused__)), - const gregorio_note_iter_item_type item_type, - void *const data) -{ - punctum_inclinatum_vars *const v = (punctum_inclinatum_vars *)data; - - gregorio_assert_only(item_type == GRESTRUCT_SYLLABLE, - punctum_inclinatum_orientation_end_item, - "item type should be GRESTRUCT_SYLLABLE"); - - finalize_punctum_inclinatum_orientation(v); - v->count = 0; -} - -void gabc_determine_punctum_inclinatum_orientation( - const gregorio_score *const score) -{ - punctum_inclinatum_vars v = { - /* .first = */ { - /* .syllable = */ NULL, - /* .element = */ NULL, - /* .glyph = */ NULL, - /* .note = */ NULL - }, - /* .previous = */ { - /* .syllable = */ NULL, - /* .element = */ NULL, - /* .glyph = */ NULL, - /* .note = */ NULL - }, - /* .orientation = */ S_UNDETERMINED, /* because it's 0 */ - /* .running = */ 0, - /* .count = */ 0, - /* .unison = */ true, - }; - - gregorio_for_each_note(score, punctum_inclinatum_orientation_visit, - punctum_inclinatum_orientation_end_item, GRESTRUCT_SYLLABLE, &v); - - if (v.first.note) { - set_punctum_inclinatum_orientation(&v); - gregorio_from_note_to_note(&v.first, &v.previous, true, set_shape, NULL, - GRESTRUCT_NONE, &v.orientation); - } -} - -typedef struct note_stack { - gregorio_note *note; - struct note_stack *prev; -} note_stack; - -static void note_stack_push(note_stack **const stack, gregorio_note *note) { - note_stack *item = gregorio_malloc(sizeof(note_stack)); - item->note = note; - item->prev = *stack; - *stack = item; -} - -static gregorio_note *note_stack_pop(note_stack **const stack) { - note_stack *item = *stack; - if (item) { - gregorio_note *note = item->note; - note_stack *prev = item->prev; - free(item); - *stack = prev; - return note; - } - return NULL; -} - -static void note_stack_clear(note_stack **const stack) { - note_stack *item = *stack; - while (item) { - note_stack *prev = item->prev; - free(item); - item = prev; - } - *stack = NULL; -} - -typedef struct { - note_stack *high, *low; - gregorio_note *prev_note; - signed char high_ledger_line_pitch; - bool running_high, running_low; -} ledger_line_vars; - -static __inline void clear_ledger_line_vars(ledger_line_vars *const v) { - note_stack_clear(&v->high); - note_stack_clear(&v->low); - v->prev_note = NULL; - v->running_high = false; - v->running_low = false; -} - -static __inline void adjust_ledger(const gregorio_note_iter_position *const p, - const gregorio_ledger_specificity specificity, bool ledger_line, - note_stack **const stack, bool *const running, gregorio_note *prev_note, - const signed char high_ledger_line_pitch, - bool (*extend_ledger)(gregorio_note *, const gregorio_note *, - const gregorio_note *, signed char)) -{ - if (specificity & LEDGER_DRAWN) { - if (ledger_line) { - gregorio_note *after = p->note; - gregorio_note *note; - /* process from this ledger backwards */ - while ((note = note_stack_pop(stack))) { - if (!extend_ledger(note, NULL, after, high_ledger_line_pitch)) { - /* ledger has ended */ - break; - } - after = note; - } - *running = true; - } else { - *running = false; - } - note_stack_clear(stack); - } else { - if (*running) { - if (!extend_ledger(p->note, prev_note, NULL, - high_ledger_line_pitch)) { - /* ledger has ended */ - note_stack_push(stack, p->note); - *running = false; - } - /* else stack should be empty, keep it that way */ - } else { - note_stack_push(stack, p->note); - } - } -} - -static bool extend_high_ledger(gregorio_note *const note, - const gregorio_note *const note_before, - const gregorio_note *const note_after, - const signed char high_ledger_line_pitch) -{ - bool extend = false; - - if (note_before) { - extend = note_before->u.note.pitch < note->u.note.pitch - || (note_before->u.note.pitch > high_ledger_line_pitch - && note->u.note.pitch < high_ledger_line_pitch); - } else if (note_after) { - extend = note_after->u.note.pitch < note->u.note.pitch - || (note_after->u.note.pitch > high_ledger_line_pitch - && note->u.note.pitch < high_ledger_line_pitch); - } - - if (extend) { - note->high_ledger_line = true; - note->high_ledger_specificity = LEDGER_DRAWN; - } - return extend; -} - -static bool extend_low_ledger(gregorio_note *const note, - const gregorio_note *const note_before, - const gregorio_note *const note_after, - const signed char high_ledger_line_pitch __attribute__((__unused__))) -{ - bool extend = false; - - if (note_before) { - extend = note_before->u.note.pitch < note->u.note.pitch - || (note_before->u.note.pitch > LOW_LEDGER_LINE_PITCH - && note->u.note.pitch < LOW_LEDGER_LINE_PITCH); - } else if (note_after) { - extend = note_after->u.note.pitch < note->u.note.pitch - || (note_after->u.note.pitch > LOW_LEDGER_LINE_PITCH - && note->u.note.pitch < LOW_LEDGER_LINE_PITCH); - } - - if (extend) { - note->low_ledger_line = true; - note->low_ledger_specificity = LEDGER_DRAWN; - } - return extend; -} - -/* data must be (ledger_line_vars *) */ -static void ledger_line_visit(const gregorio_note_iter_position *const p, - void *const data) -{ - ledger_line_vars *const v = (ledger_line_vars *)data; - - adjust_ledger(p, p->note->high_ledger_specificity, p->note->high_ledger_line, - &v->high, &v->running_high, v->prev_note, v->high_ledger_line_pitch, - &extend_high_ledger); - adjust_ledger(p, p->note->low_ledger_specificity, p->note->low_ledger_line, - &v->low, &v->running_low, v->prev_note, v->high_ledger_line_pitch, - &extend_low_ledger); - - v->prev_note = p->note; -} - -/* data must be (ledger_line_vars *) */ -static void ledger_line_end_item( - const gregorio_note_iter_position *const p __attribute__((__unused__)), - const gregorio_note_iter_item_type item_type, void *const data) -{ - if (item_type == GRESTRUCT_ELEMENT) { - clear_ledger_line_vars((ledger_line_vars *)data); - } -} - -void gabc_determine_ledger_lines(const gregorio_score *const score) -{ - ledger_line_vars v; - memset(&v, 0, sizeof v); - v.high_ledger_line_pitch = score->high_ledger_line_pitch; - - gregorio_for_each_note(score, ledger_line_visit, ledger_line_end_item, - GRESTRUCT_ELEMENT, &v); - - /* stacks should be cleared by ledger_line_end_item */ -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.h b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.h deleted file mode 100644 index 4474973c4d3..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.h +++ /dev/null @@ -1,64 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header shares definitions between the score parser and lexer. - * - * Gregorio score determination from gabc. - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef GABC_SCORE_DETERMINATION_H -#define GABC_SCORE_DETERMINATION_H - -#include "bool.h" -#include "struct.h" -#include "gabc.h" - -/* The bits in this enum are named to correspond with the _BEGIN/_END tokens */ -typedef enum { - SB_I = 0x01, - SB_B = 0x02, - SB_TT = 0x04, - SB_SC = 0x08, - SB_UL = 0x10, - SB_C = 0x20, - SB_ELISION = 0x40 -} gabc_style_bits; - -typedef union gabc_score_determination_lval_t { - char *text; - char character; -} gabc_score_determination_lval_t; - -#define YYSTYPE gabc_score_determination_lval_t -#define YYSTYPE_IS_DECLARED 1 - -#define YY_DECL \ - int gabc_score_determination_lex(gabc_style_bits *const styles) -YY_DECL; - -#define YYLTYPE gregorio_scanner_location - -void gabc_suppress_extra_custos_at_linebreak(gregorio_score *score); -void gabc_fix_custos_pitches(gregorio_score *score_to_check); -bool gabc_check_score_integrity(gregorio_score *score_to_check); -bool gabc_check_infos_integrity(gregorio_score *score_to_check); -void gabc_determine_oriscus_orientation(const gregorio_score *score); -void gabc_determine_punctum_inclinatum_orientation(const gregorio_score *score); -void gabc_determine_ledger_lines(const gregorio_score *const score); - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.l b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.l deleted file mode 100644 index c0d68c1148f..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.l +++ /dev/null @@ -1,430 +0,0 @@ -%{ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the score lexer. - * - * Gregorio score determination in gabc input. - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include "struct.h" -#include "messages.h" -#include "bool.h" -#include "support.h" - -#include "gabc.h" -#include "gabc-score-determination.h" -#include "gabc-score-determination-y.h" - -static bool eof_found = false; - -#define START_STYLE(STYLE) \ - if (*styles & SB_ ## STYLE) { \ - gregorio_messagef("gabc_score_determination_lex", VERBOSITY_ERROR, 0, \ - _("style already started: %s"), gabc_score_determination_text); \ - } else { \ - *styles ^= SB_ ## STYLE; \ - return STYLE ## _BEGIN; \ - } - -#define END_STYLE(STYLE) \ - if (*styles & SB_ ## STYLE) { \ - *styles ^= SB_ ## STYLE; \ - return STYLE ## _END; \ - } else { \ - gregorio_messagef("gabc_score_determination_lex", VERBOSITY_ERROR, 0, \ - _("style not started: %s"), gabc_score_determination_text); \ - } - -#define RETURN_CHARACTERS \ - gabc_score_determination_lval.text = \ - gregorio_strdup(gabc_score_determination_text); \ - return CHARACTERS - -#define RETURN_SPACE \ - gabc_score_determination_lval.text = gregorio_strdup(" "); \ - return CHARACTERS - -#define YY_NO_INPUT - -#define YY_INPUT(buf,result,max_size) \ - if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) { \ - int c = '*'; \ - int n; \ - for (n = 0; n < max_size \ - && (c = getc(gabc_score_determination_in)) != EOF \ - && c != '\n'; ++n ) { \ - buf[n] = (char) c; \ - } \ - if (c == '\n') { \ - buf[n++] = (char) c; \ - } \ - if (c == EOF && ferror(gabc_score_determination_in)) { \ - YY_FATAL_ERROR("input in flex scanner failed"); \ - } \ - result = n; \ - } else { \ - errno=0; \ - while ((result = fread(buf, 1, max_size, gabc_score_determination_in)) \ - == 0 && ferror(gabc_score_determination_in)) { \ - if (errno != EINTR) { \ - YY_FATAL_ERROR("input in flex scanner failed"); \ - break; \ - } \ - errno = 0; \ - clearerr(gabc_score_determination_in); \ - } \ - } \ - gabc_digest(buf, result) - -#define YY_USER_ACTION gabc_update_location(&gabc_score_determination_lloc, \ - gabc_score_determination_text, gabc_score_determination_leng); - -%} - -%x attribute -%x score -%x notes -%x sp -%x verb -%x comments -%x inicomments -%x alt -%x protrusion_value -%x protrusion_end - -%option stack -%option pointer -%option nounput -%option noyy_push_state -%option noyy_pop_state -%option noyy_top_state -%option align -%option noread -%option nomain -%option noalways-interactive -%option nonever-interactive -%option prefix="gabc_score_determination_" -%option noyywrap -%option 8bit - - -/* The expression for attribute below is rather messy because we allow -for (a) single-line values, ending with a semicolon at end of line or a -double semicolon, (b) multi-line values, which end at a double -semicolon. */ - -%% -<INITIAL>^(\xBB|\xEF|\xBF)+ { - /* BOM written by a lot of windows softwares when they write UTF-8 */ - } -<INITIAL>^[\n\r]+ { - /* ignoring empty lines */ - } -<INITIAL>^[\%#] { - BEGIN(inicomments); - } -<inicomments>(\n|\r)+ { - BEGIN(INITIAL); - } -<inicomments>[^\n\r]+ { - /* ignored */ - } -<INITIAL>:(\ )? { - BEGIN(attribute); - return COLON; - } -<attribute>;;?[\n\r \t]*[\n\r] { - BEGIN(INITIAL); - return SEMICOLON; - } -<attribute>[^;]+ { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return ATTRIBUTE; - } -<attribute>; { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return ATTRIBUTE; -} -<INITIAL>def-m[0-9] { - gabc_score_determination_lval.character = gabc_score_determination_text[5]; - return DEF_MACRO; - } -<INITIAL>name { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return NAME; - } -<INITIAL>score-copyright { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return SCORE_COPYRIGHT; - } -<INITIAL>gabc-copyright { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return GABC_COPYRIGHT; - } -<INITIAL>mode { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return MODE; - } -<INITIAL>mode-modifier { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return MODE_MODIFIER; - } -<INITIAL>mode-differentia { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return MODE_DIFFERENTIA; - } -<INITIAL>annotation { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return ANNOTATION; - } -<INITIAL>author { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return AUTHOR; - } -<INITIAL>language { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return LANGUAGE; - } -<INITIAL>staff-lines { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return STAFF_LINES; - } -<INITIAL>nabc-lines { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return NABC_LINES; - } -<INITIAL>oriscus-orientation { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return ORISCUS_ORIENTATION; - } -<INITIAL>[A-Za-z0-9_]+(-[A-Za-z0-9_]+)* { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return OTHER_HEADER; - } -<INITIAL>%%+(\n|\r)+ { - BEGIN(score); - return END_OF_DEFINITIONS; - } -<INITIAL>. { - gregorio_messagef("det_score", VERBOSITY_ERROR, 0, - _("unrecognized character: \"%c\" in definition part"), - gabc_score_determination_text[0]); - } -<score>[\n\r][\n\r \t]* { - RETURN_SPACE; - } -<score>[^-,;:.\{\}\(\[\]<%\n\r]+ { - RETURN_CHARACTERS; - } -<score>- { - return HYPHEN; - } -<score>[,;:.] { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return PROTRUDING_PUNCTUATION; - } -<score><nlba> { - return NLBA_B; - } -<score><\/nlba> { - return NLBA_E; - } -<score><i> { - START_STYLE(I); - } -<score><\/i> { - END_STYLE(I); - } -<score><tt> { - START_STYLE(TT); - } -<score><\/tt> { - END_STYLE(TT); - } -<score><ul> { - START_STYLE(UL); - } -<score><\/ul> { - END_STYLE(UL); - } -<score><c> { - START_STYLE(C); - } -<score><\/c> { - END_STYLE(C); - } -<score><b> { - START_STYLE(B); - } -<score><\/b> { - END_STYLE(B); - } -<score><sc> { - START_STYLE(SC); - } -<score><\/sc> { - END_STYLE(SC); - } -<score><e> { - START_STYLE(ELISION); - } -<score><\/e> { - END_STYLE(ELISION); - } -<score><sp> { - BEGIN(sp); - return SP_BEGIN; - } -<sp><\/sp> { - BEGIN(score); - return SP_END; - } -<sp>[\n\r][\n\r \t]* { - RETURN_SPACE; - } -<sp>[^<\{\}\n\r]+ { - RETURN_CHARACTERS; - } -<score>\% { - BEGIN(comments); - } -<comments>(\n|\r)+ { - BEGIN(score); - } -<comments>[^\n\r]+ { - /* ignored */ - } -<score><v> { - BEGIN(verb); - return VERB_BEGIN; - } -<verb><\/v> { - BEGIN(score); - return VERB_END; - } -<verb,alt>[^<]+ { - RETURN_CHARACTERS; - } -<verb,score,alt>< { - RETURN_CHARACTERS; - } -<score>\{ { - return CENTER_BEGIN; - } -<score>\} { - return CENTER_END; - } -<score><alt> { - BEGIN(alt); - return ALT_BEGIN; - } -<alt><\/alt> { - BEGIN(score); - return ALT_END; - } -<score><eu> { - return EUOUAE_B; - } -<score><\/eu> { - return EUOUAE_E; - } -<score>\[\/] { - return TRANSLATION_CENTER_END; - } -<score>\[ { - return TRANSLATION_BEGIN; - } -<score>\] { - return TRANSLATION_END; - } -<score><[\n\r \t]*clear[\n\r \t]*\/?[\n\r \t]*> { - return CLEAR; - } -<score><[\n\r \t]*pr[\n\r \t]*\/?[\n\r \t]*> { - return PROTRUSION; - } -<score><[\n\r \t]*pr[\n\r \t]*:[\n\r \t]* { - BEGIN(protrusion_value); - return PROTRUSION; - } -<protrusion_value>([0-9]*\.?[0-9]+|[0-9]+\.) { - BEGIN(protrusion_end); - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return PROTRUSION_VALUE; - } -<protrusion_end>[\n\r \t]*\/?[\n\r \t]*> { - BEGIN(score); - return PROTRUSION_END; - } -<score>\( { - BEGIN(notes); - return OPENING_BRACKET; - } -<notes>[^|\)]+ { - gabc_score_determination_lval.text = - gregorio_strdup(gabc_score_determination_text); - return NOTES; - } -<notes>\| { - return NABC_CUT; - } -<notes>\) { - BEGIN(score); - return CLOSING_BRACKET; - } -<notes>\)(\ |\t|\n|\r)+ { - BEGIN(score); - return CLOSING_BRACKET_WITH_SPACE; - } -<<EOF>> { - if (!eof_found) { - eof_found = true; - return END_OF_FILE; - } else { - yyterminate(); - } - } -.|\n { - gregorio_messagef("gabc_score_determination_lex", VERBOSITY_ERROR, 0, - _("unrecognized character: \"%c\""), - gabc_score_determination_text[0]); - } -%% - diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.y b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.y deleted file mode 100644 index e12c057ef68..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.y +++ /dev/null @@ -1,1124 +0,0 @@ -%{ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the score parser. - * - * Gregorio score determination from gabc. - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -/* - * - * This file is certainly not the most easy to understand, it is a bison file. - * See the bison manual on gnu.org for further details. - * - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <assert.h> -#include "bool.h" -#include "struct.h" -#include "unicode.h" -#include "messages.h" -#include "characters.h" -#include "support.h" -#include "sha1.h" -#include "plugins.h" -#include "gabc.h" - -#define YYLLOC_DEFAULT(Current, Rhs, N) \ - if (N) { \ - (Current).first_line = YYRHSLOC(Rhs, 1).first_line; \ - (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \ - (Current).first_offset = YYRHSLOC (Rhs, 1).first_offset; \ - (Current).last_line = YYRHSLOC (Rhs, N).last_line; \ - (Current).last_column = YYRHSLOC (Rhs, N).last_column; \ - (Current).last_offset = YYRHSLOC (Rhs, N).last_offset; \ - (Current).generate_point_and_click = YYRHSLOC (Rhs, 1).generate_point_and_click; \ - } else { \ - (Current).first_line = (Current).last_line = YYRHSLOC (Rhs, 0).last_line; \ - (Current).first_column = (Current).last_column = YYRHSLOC (Rhs, 0).last_column; \ - (Current).first_offset = (Current).last_offset = YYRHSLOC (Rhs, 0).last_offset; \ - (Current).first_offset = (Current).last_offset = YYRHSLOC (Rhs, 0).last_offset; \ - (Current).generate_point_and_click = YYRHSLOC (Rhs, 0).generate_point_and_click; \ - } - -#include "gabc-score-determination.h" -#include "gabc-score-determination-l.h" - -/* workaround for bison issue passing pointer to a "local" variable */ -#define STYLE_BITS &styles - -/* forward declaration of the flex/bison process function */ -static int gabc_score_determination_parse(void); - -/* uncomment it if you want to have an interactive shell to understand the - * details on how bison works for a certain input */ -/* int gabc_score_determination_debug=1; */ - -/* - * - * We will need some variables and functions through the entire file, we - * declare them there: - * - */ - -/* the score that we will determine and return */ -static gregorio_score *score; -/* an array of elements that we will use for each syllable */ -static gregorio_element **elements; -gregorio_element *current_element; -/* a table containing the macros to use in gabc file */ -static char *macros[10]; -/* other variables that we will have to use */ -static gregorio_character *current_character; -static gregorio_character *suspended_character; -static gregorio_character *first_text_character; -static gregorio_character *first_translation_character; -static gregorio_tr_centering translation_type; -static gregorio_nlba no_linebreak_area; -static gregorio_euouae euouae; -static gregorio_voice_info *current_voice_info; -static int number_of_voices; -static int voice; -/* see comments on text to understand this */ -static gregorio_center_determination center_is_determined; -/* current_key is... the current key... updated by each notes determination - * (for key changes) */ -static int current_key; -static bool got_language; -static bool got_staff_lines; -static bool started_first_word; -static struct sha1_ctx digester; -static gabc_style_bits styles; -static bool generate_point_and_click; -static bool clear_syllable_text; -static bool has_protrusion; - -/* punctum_inclinatum_orientation maintains the running punctum inclinatum - * orientation in order to decide if the glyph needs to be cut when a punctum - * inclinatum with forced orientation is encountered. This should be set to - * the shape of a non-liquescent punctum inclinatum with forced orientation - * when one is encountered, be left alone when a non-liquescent punctum - * inclinatum with undetermined orientation is encountered, or be reset to - * S_PUNCTUM_INCLINATUM_UNDETERMINED otherwise (because such ends any previous - * run of punctum inclinatum notes). Based on the assumption that a punctum - * inclinatum with forced orientation changes all the punctum inclinatum shapes - * with undetermined orientation in the same run of notes before and after it - * unless influenced by an earlier punctum inclinatum with forced orientation, - * the value of punctum_inclinatum_orientation can be used to determine if a - * punctum inclinatum with a forced orientation will have a different - * orientation than the punctum inclinatum immediately before it, which would - * require a cut of the glyph. */ -static gregorio_shape punctum_inclinatum_orientation; - -static __inline void check_multiple(const char *name, bool exists) { - if (exists) { - gregorio_messagef("det_score", VERBOSITY_WARNING, 0, - _("several %s definitions found, only the last will be taken " - "into consideration"), name); - } -} - -static void gabc_score_determination_error(const char *error_str) -{ - gregorio_message(error_str, (const char *) "gabc_score_determination_parse", - VERBOSITY_ERROR, 0); -} - -/* - * The function that will initialize the variables. - */ - -static void initialize_variables(bool point_and_click) -{ - int i; - /* build a brand new empty score */ - score = gregorio_new_score(); - /* initialization of the first voice info to an empty voice info */ - current_voice_info = NULL; - gregorio_add_voice_info(¤t_voice_info); - score->first_voice_info = current_voice_info; - /* other initializations */ - number_of_voices = 1; - voice = 0; /* first (and only) voice */ - current_character = NULL; - suspended_character = NULL; - first_translation_character = NULL; - first_text_character = NULL; - translation_type = TR_NORMAL; - no_linebreak_area = NLBA_NORMAL; - euouae = EUOUAE_NORMAL; - center_is_determined = CENTER_NOT_DETERMINED; - current_key = gregorio_calculate_new_key(gregorio_default_clef); - for (i = 0; i < 10; i++) { - macros[i] = NULL; - } - got_language = false; - got_staff_lines = false; - started_first_word = false; - styles = 0; - punctum_inclinatum_orientation = S_PUNCTUM_INCLINATUM_UNDETERMINED; - generate_point_and_click = point_and_click; - clear_syllable_text = false; - has_protrusion = false; -} - -/* - * function that frees the variables that need it, for when we have finished to - * determine the score - */ - -static void free_variables(void) -{ - int i; - free(elements); - for (i = 0; i < 10; i++) { - free(macros[i]); - } -} - -/* - * Function called when we have reached the end of the definitions, it tries to - * make the voice_infos coherent. - */ -static void end_definitions(void) -{ - int i; - - gregorio_assert_only(gabc_check_infos_integrity(score), end_definitions, - "can't determine valid infos on the score"); - - elements = (gregorio_element **) gregorio_malloc(number_of_voices * - sizeof(gregorio_element *)); - for (i = 0; i < number_of_voices; i++) { - elements[i] = NULL; - } - - if (!got_language) { - static char latin[] = "Latin"; - gregorio_set_centering_language(latin); - } -} - -/* - * Here starts the code for the determinations of the notes. The notes are not - * precisely determined here, we separate the text describing the notes of each - * voice, and we call determine_elements_from_string to really determine them. - */ -static char position = WORD_BEGINNING; -static gregorio_syllable *current_syllable = NULL; -static char *abovelinestext = NULL; - -/* - * Function called each time we find a space, it updates the current position. - */ -static void update_position_with_space(void) -{ - if (position == WORD_MIDDLE) { - position = WORD_END; - } - if (position == WORD_BEGINNING) { - position = WORD_ONE_SYLLABLE; - } -} - -/* - * When we encounter a translation center ending, we call this function that - * sets translation_type = TR_WITH_CENTER_BEGINNING on previous syllable with - * translation - */ -static void gregorio_set_translation_center_beginning( - gregorio_syllable *current_syllable) -{ - gregorio_syllable *syllable = current_syllable->previous_syllable; - while (syllable) { - if (syllable->translation_type == TR_WITH_CENTER_END) { - gregorio_message("encountering translation centering end but " - "cannot find translation centering beginning...", - "set_translation_center_beginning", VERBOSITY_ERROR, 0); - current_syllable->translation_type = TR_NORMAL; - return; - } - if (syllable->translation) { - syllable->translation_type = TR_WITH_CENTER_BEGINNING; - return; - } - syllable = syllable->previous_syllable; - } - /* we didn't find any beginning... */ - gregorio_message("encountering translation centering end but cannot find " - "translation centering beginning...", - "set_translation_center_beginning", VERBOSITY_ERROR, 0); - current_syllable->translation_type = TR_NORMAL; -} - -static void ready_characters(void) -{ - if (current_character) { - gregorio_go_to_first_character_c(¤t_character); - if (!score->first_syllable || (current_syllable - && !current_syllable->previous_syllable - && !current_syllable->text)) { - started_first_word = true; - } - } -} - -static void rebuild_score_characters(void) -{ - if (score->first_syllable) { - gregorio_syllable *syllable; - for (syllable = score->first_syllable; syllable; - syllable = syllable->next_syllable) { - const gregorio_character *t; - - /* find out if there is a forced center */ - gregorio_center_determination center = CENTER_NOT_DETERMINED; - for (t = syllable->text; t; t = t->next_character) { - if (!t->is_character && t->cos.s.style == ST_FORCED_CENTER) { - syllable->forced_center = true; - center = CENTER_FULLY_DETERMINED; - break; - } - } - - if (syllable == score->first_syllable) { - /* leave the first syllable text untouched at this time */ - continue; - } - - gregorio_rebuild_characters(&(syllable->text), center, false); - - if (syllable->first_word) { - gregorio_set_first_word(&(syllable->text)); - } - } - } -} - -/* - * - * The two functions called when lex returns a style, we simply add it. All the - * complex things will be done by the function after... - * - */ - -static void add_style(unsigned char style) -{ - gregorio_begin_style(¤t_character, style); -} - -static void end_style(unsigned char style) -{ - gregorio_end_style(¤t_character, style); -} - -static __inline void save_text(void) -{ - if (has_protrusion) { - end_style(ST_PROTRUSION); - } - ready_characters(); - first_text_character = current_character; -} - -/* a function called when we see a [, basically, all characters are added to - * the translation pointer instead of the text pointer */ -static void start_translation(unsigned char asked_translation_type) -{ - suspended_character = current_character; - /* the middle letters of the translation have no sense */ - /*center_is_determined = CENTER_FULLY_DETERMINED;*/ - current_character = NULL; - translation_type = asked_translation_type; -} - -static void end_translation(void) -{ - ready_characters(); - first_translation_character = current_character; - current_character = suspended_character; -} - -/* - * add_text is the function called when lex returns a char *. In - * this function we convert it into grewchar, and then we add the corresponding - * gregorio_characters in the list of gregorio_characters. - */ - -static void add_text(char *mbcharacters) -{ - if (!current_character) { - /* insert open styles, leaving out ELISION on purpose */ - if (styles & SB_I) { - add_style(ST_ITALIC); - } - if (styles & SB_B) { - add_style(ST_BOLD); - } - if (styles & SB_TT) { - add_style(ST_TT); - } - if (styles & SB_SC) { - add_style(ST_SMALL_CAPS); - } - if (styles & SB_UL) { - add_style(ST_UNDERLINED); - } - if (styles & SB_C) { - add_style(ST_COLORED); - } - } - if (current_character) { - current_character->next_character = gregorio_build_char_list_from_buf( - mbcharacters); - current_character->next_character->previous_character = - current_character; - } else { - current_character = gregorio_build_char_list_from_buf(mbcharacters); - } - while (current_character && current_character->next_character) { - current_character = current_character->next_character; - } - free(mbcharacters); -} - -static void add_protrusion(char *factor) -{ - if (has_protrusion) { - gregorio_message("syllable already has protrusion; pr tag ignored", - "det_score", VERBOSITY_WARNING, 0); - free(factor); - } else { - if (center_is_determined == CENTER_HALF_DETERMINED) { - gregorio_message("closing open syllable center before protrusion", - "det_score", VERBOSITY_WARNING, 0); - end_style(ST_FORCED_CENTER); - center_is_determined = CENTER_FULLY_DETERMINED; - } - - add_style(ST_PROTRUSION_FACTOR); - add_text(factor); - end_style(ST_PROTRUSION_FACTOR); - add_style(ST_PROTRUSION); - has_protrusion = true; - } -} - -static void add_auto_protrusion(char *protrusion) -{ - if (has_protrusion) { - add_text(protrusion); - } else { - add_style(ST_PROTRUSION_FACTOR); - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreProtrusionFactor{")); - - switch (*protrusion) { - case ',': - add_text(gregorio_strdup("comma")); - break; - case ';': - add_text(gregorio_strdup("semicolon")); - break; - case ':': - add_text(gregorio_strdup("colon")); - break; - case '.': - add_text(gregorio_strdup("period")); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(add_auto_protrusion, - "unsupported protruding punctuation: %c", *protrusion); - break; - /* LCOV_EXCL_STOP */ - } - - add_text(gregorio_strdup("}")); - end_style(ST_VERBATIM); - end_style(ST_PROTRUSION_FACTOR); - - add_style(ST_PROTRUSION); - add_text(protrusion); - end_style(ST_PROTRUSION); - - has_protrusion = true; - } -} - -/* - * Function to close a syllable and update the position. - */ - -static void close_syllable(YYLTYPE *loc) -{ - int i = 0; - gregorio_character *ch; - - /* make sure any elisions that are opened are closed within the syllable */ - for (ch = first_text_character; ch; ch = ch->next_character) { - if (!ch->is_character) { - switch (ch->cos.s.style) { - case ST_ELISION: - switch (ch->cos.s.type) { - case ST_T_BEGIN: - ++i; - /* the parser precludes this from falling here */ - gregorio_assert_only(i <= 1, close_syllable, - "elisions may not be nested"); - break; - - case ST_T_END: - --i; - /* the parser precludes this from failing here */ - gregorio_assert_only(i >= 0, close_syllable, - "encountered elision end with no beginning"); - break; - - case ST_T_NOTHING: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(close_syllable, "encountered ST_T_NOTHING"); - break; - /* LCOV_EXCL_STOP */ - } - break; - - case ST_FORCED_CENTER: - if (i > 0) { - gregorio_message( - _("forced center may not be within an elision"), - "close_syllable", VERBOSITY_ERROR, 0); - } - break; - - default: - break; - } - } - } - /* the parser precludes this from failing here */ - gregorio_assert_only(i == 0, close_syllable, - "encountered elision beginning with no end"); - - gregorio_add_syllable(¤t_syllable, number_of_voices, elements, - first_text_character, first_translation_character, position, - abovelinestext, translation_type, no_linebreak_area, euouae, loc, - started_first_word, clear_syllable_text); - if (!score->first_syllable) { - /* we rebuild the first syllable if we have to */ - score->first_syllable = current_syllable; - } - if (translation_type == TR_WITH_CENTER_END) { - gregorio_set_translation_center_beginning(current_syllable); - } - /* we update the position */ - if (position == WORD_BEGINNING) { - position = WORD_MIDDLE; - } - if (position == WORD_ONE_SYLLABLE || position == WORD_END) { - position = WORD_BEGINNING; - - if (started_first_word) { - started_first_word = false; - } - } - center_is_determined = CENTER_NOT_DETERMINED; - current_character = NULL; - suspended_character = NULL; - first_text_character = NULL; - first_translation_character = NULL; - translation_type = TR_NORMAL; - no_linebreak_area = NLBA_NORMAL; - euouae = EUOUAE_NORMAL; - abovelinestext = NULL; - for (i = 0; i < number_of_voices; i++) { - elements[i] = NULL; - } - current_element = NULL; - clear_syllable_text = false; - has_protrusion = false; -} - -void gabc_digest(const void *const buf, const size_t size) -{ - sha1_process_bytes(buf, size, &digester); -} - -/* - * The "main" function. It is the function that is called when we have to read - * a gabc file. It takes a file descriptor, that is to say a file that is - * aleady open. It returns a valid gregorio_score - */ - -gregorio_score *gabc_read_score(FILE *f_in, bool point_and_click) -{ - /* compute the SHA-1 digest while parsing, for I/O efficiency */ - sha1_init_ctx(&digester); - /* digest GREGORIO_VERSION to get a different value when the version - changes */ - sha1_process_bytes(GREGORIO_VERSION, strlen(GREGORIO_VERSION), &digester); - /* the input file that flex will parse */ - gabc_score_determination_in = f_in; - gregorio_assert(f_in, gabc_read_score, "can't read stream from NULL", - return NULL); - initialize_variables(point_and_click); - /* the flex/bison main call, it will build the score (that we have - * initialized) */ - gabc_score_determination_parse(); - if (!score->legacy_oriscus_orientation) { - gabc_determine_oriscus_orientation(score); - } - gabc_determine_punctum_inclinatum_orientation(score); - gabc_determine_ledger_lines(score); - gregorio_fix_initial_keys(score, gregorio_default_clef); - rebuild_score_characters(); - gabc_suppress_extra_custos_at_linebreak(score); - gabc_fix_custos_pitches(score); - gabc_det_notes_finish(); - free_variables(); - /* then we check the validity and integrity of the score we have built. */ - if (!gabc_check_score_integrity(score)) { - gregorio_message(_("unable to determine a valid score from file"), - "gabc_read_score", VERBOSITY_ERROR, 0); - } - sha1_finish_ctx(&digester, score->digest); - return score; -} - -unsigned char nabc_state = 0; -size_t nabc_lines = 0; - -static void gabc_y_add_notes(char *notes, YYLTYPE loc) { - if (nabc_state == 0) { - if (!elements[voice]) { - elements[voice] = gabc_det_elements_from_string(notes, ¤t_key, - macros, &loc, &punctum_inclinatum_orientation, score); - current_element = elements[voice]; - } else { - gregorio_element *new_elements = gabc_det_elements_from_string( - notes, ¤t_key, macros, &loc, - &punctum_inclinatum_orientation, score); - gregorio_element *last_element = elements[voice]; - while (last_element->next) { - last_element = last_element->next; - } - last_element->next = new_elements; - new_elements->previous = last_element; - current_element = new_elements; - } - } else { - if (!elements[voice]) { - gregorio_add_element(&elements[voice], NULL); - current_element = elements[voice]; - } - gregorio_assert(current_element, gabc_y_add_notes, - "current_element is null, this shouldn't happen!", - return); - if (!current_element->nabc) { - current_element->nabc = (char **) gregorio_calloc (nabc_lines, - sizeof (char *)); - } - current_element->nabc[nabc_state-1] = gregorio_strdup(notes); - current_element->nabc_lines = nabc_state; - } -} - -static char *concatenate(char *first, char *const second) { - first = (char *)gregorio_realloc(first, strlen(first) + strlen(second) + 1); - strcat(first, second); - free(second); - return first; -} -%} - -%initial-action { - @$.first_line = 1; - @$.first_column = 0; - @$.first_offset = 0; - @$.last_line = 1; - @$.last_column = 0; - @$.last_offset = 0; - @$.generate_point_and_click = generate_point_and_click; -} - -%lex-param { gabc_style_bits *STYLE_BITS } - -%token NAME AUTHOR GABC_COPYRIGHT SCORE_COPYRIGHT -%token LANGUAGE STAFF_LINES ORISCUS_ORIENTATION -%token DEF_MACRO OTHER_HEADER -%token ANNOTATION MODE MODE_MODIFIER MODE_DIFFERENTIA -%token END_OF_DEFINITIONS END_OF_FILE -%token COLON SEMICOLON CHARACTERS NOTES HYPHEN ATTRIBUTE -%token OPENING_BRACKET CLOSING_BRACKET CLOSING_BRACKET_WITH_SPACE -%token I_BEGIN I_END -%token TT_BEGIN TT_END -%token UL_BEGIN UL_END -%token C_BEGIN C_END -%token B_BEGIN B_END -%token SC_BEGIN SC_END -%token SP_BEGIN SP_END -%token VERB_BEGIN VERB_END -%token CENTER_BEGIN CENTER_END -%token ELISION_BEGIN ELISION_END -%token TRANSLATION_BEGIN TRANSLATION_END TRANSLATION_CENTER_END -%token ALT_BEGIN ALT_END -%token NLBA_B NLBA_E -%token EUOUAE_B EUOUAE_E -%token NABC_CUT NABC_LINES -%token CLEAR -%token PROTRUSION PROTRUSION_VALUE PROTRUSION_END PROTRUDING_PUNCTUATION - -%precedence HYPHEN PROTRUDING_PUNCTUATION -%precedence TRANSLATION_BEGIN TRANSLATION_CENTER_END -%precedence TRANSLATION_END -%precedence OPENING_BRACKET - -%% - -score: - all_definitions syllables - ; - -all_definitions: - definitions END_OF_DEFINITIONS { - end_definitions(); - } - ; - -definitions: - | definitions definition - ; - -attribute_value: - ATTRIBUTE { - $$.text = $1.text; - } - | attribute_value ATTRIBUTE { - $$.text = concatenate($1.text, $2.text); - } - ; - -attribute: - COLON attribute_value SEMICOLON { - $$.text = $2.text; - } - | COLON SEMICOLON { - $$.text = NULL; - } - ; - -definition: - DEF_MACRO attribute { - /* these definitions are not passed through */ - free(macros[$1.character - '0']); - macros[$1.character - '0'] = $2.text; - } - | NAME attribute { - if ($2.text == NULL) { - gregorio_message("name can't be empty","det_score", - VERBOSITY_WARNING, 0); - } - check_multiple("name", score->name != NULL); - gregorio_add_score_header(score, $1.text, $2.text); - score->name = $2.text; - } - | LANGUAGE attribute { - check_multiple("language", got_language); - gregorio_add_score_header(score, $1.text, $2.text); - gregorio_set_centering_language($2.text); - got_language = true; - } - | GABC_COPYRIGHT attribute { - check_multiple("gabc-copyright", score->gabc_copyright != NULL); - gregorio_add_score_header(score, $1.text, $2.text); - score->gabc_copyright = $2.text; - } - | SCORE_COPYRIGHT attribute { - check_multiple("score_copyright", score->score_copyright != NULL); - gregorio_add_score_header(score, $1.text, $2.text); - score->score_copyright = $2.text; - } - | MODE attribute { - check_multiple("mode", score->mode != 0); - gregorio_add_score_header(score, $1.text, $2.text); - score->mode = $2.text; - } - | MODE_MODIFIER attribute { - check_multiple("mode-modifier", score->mode_modifier != NULL); - gregorio_add_score_header(score, $1.text, $2.text); - score->mode_modifier = $2.text; - } - | MODE_DIFFERENTIA attribute { - check_multiple("mode-differentia", score->mode_differentia != NULL); - gregorio_add_score_header(score, $1.text, $2.text); - score->mode_differentia = $2.text; - } - | STAFF_LINES attribute { - check_multiple("staff-lines", got_staff_lines); - if ($2.text) { - gregorio_add_score_header(score, $1.text, $2.text); - gregorio_set_score_staff_lines(score, atoi($2.text)); - got_staff_lines = true; - } - } - | NABC_LINES attribute { - check_multiple("nabc lines", score->nabc_lines != 0); - if ($2.text) { - gregorio_add_score_header(score, $1.text, $2.text); - nabc_lines=atoi($2.text); - score->nabc_lines=nabc_lines; - } - } - | ANNOTATION attribute { - if (score->annotation [MAX_ANNOTATIONS - 1]) { - gregorio_messagef("det_score", VERBOSITY_WARNING, 0, - _("too many definitions of annotation found, only the " - "first %d will be taken"), MAX_ANNOTATIONS); - } - gregorio_add_score_header(score, $1.text, $2.text); - gregorio_set_score_annotation(score, $2.text); - } - | AUTHOR attribute { - check_multiple("author", score->author != NULL); - gregorio_add_score_header(score, $1.text, $2.text); - score->author = $2.text; - } - | ORISCUS_ORIENTATION attribute { - gregorio_add_score_header(score, $1.text, $2.text); - score->legacy_oriscus_orientation = (strcmp($2.text, "legacy") == 0); - } - | OTHER_HEADER attribute { - gregorio_add_score_header(score, $1.text, $2.text); - } - ; - -notes: - | notes note - ; - -note: - NOTES CLOSING_BRACKET { - gabc_y_add_notes($1.text, @1); - free($1.text); - nabc_state=0; - } - | NOTES closing_bracket_with_space { - gabc_y_add_notes($1.text, @1); - free($1.text); - nabc_state=0; - update_position_with_space(); - } - | NOTES NABC_CUT { - if (!nabc_lines) { - gregorio_message(_("You used character \"|\" in gabc without " - "setting \"nabc-lines\" parameter. Please " - "set it in your gabc header."), - "det_score", VERBOSITY_FATAL, 0); - } - gabc_y_add_notes($1.text, @1); - free($1.text); - nabc_state = (nabc_state + 1) % (nabc_lines+1); - } - | CLOSING_BRACKET { - elements[voice]=NULL; - nabc_state=0; - } - | closing_bracket_with_space { - elements[voice]=NULL; - nabc_state=0; - update_position_with_space(); - } - ; - -closing_bracket_with_space: - CLOSING_BRACKET_WITH_SPACE - | CLOSING_BRACKET_WITH_SPACE END_OF_FILE - | CLOSING_BRACKET END_OF_FILE - ; - -style_beginning: - I_BEGIN { - add_style(ST_ITALIC); - } - | TT_BEGIN { - add_style(ST_TT); - } - | UL_BEGIN { - add_style(ST_UNDERLINED); - } - | C_BEGIN { - add_style(ST_COLORED); - } - | B_BEGIN { - add_style(ST_BOLD); - } - | SC_BEGIN { - add_style(ST_SMALL_CAPS); - } - | VERB_BEGIN { - add_style(ST_VERBATIM); - } - | SP_BEGIN { - add_style(ST_SPECIAL_CHAR); - } - ; - -style_end: - I_END { - end_style(ST_ITALIC); - } - | TT_END { - end_style(ST_TT); - } - | UL_END { - end_style(ST_UNDERLINED); - } - | C_END { - end_style(ST_COLORED); - } - | B_END { - end_style(ST_BOLD); - } - | SC_END { - end_style(ST_SMALL_CAPS); - } - | VERB_END { - end_style(ST_VERBATIM); - } - | SP_END { - end_style(ST_SPECIAL_CHAR); - } - ; - -special_style_beginning: - ELISION_BEGIN { - add_style(ST_ELISION); - } - | CENTER_BEGIN { - if (center_is_determined) { - gregorio_message( - "syllable already has center; ignoring additional center", - "det_score", VERBOSITY_WARNING, 0); - } else if (has_protrusion) { - gregorio_message( - "center not allowed after protrusion; ignored", - "det_score", VERBOSITY_WARNING, 0); - } else { - add_style(ST_FORCED_CENTER); - center_is_determined = CENTER_HALF_DETERMINED; - } - } - ; - -special_style_end: - ELISION_END { - end_style(ST_ELISION); - } - | CENTER_END { - if (center_is_determined == CENTER_HALF_DETERMINED) { - end_style(ST_FORCED_CENTER); - center_is_determined = CENTER_FULLY_DETERMINED; - } else { - gregorio_message( - "not within a syllable center", - "det_score", VERBOSITY_WARNING, 0); - } - } - ; - -euouae: - EUOUAE_B { - euouae = EUOUAE_BEGINNING; - } - | EUOUAE_E { - euouae = EUOUAE_END; - } - ; - -linebreak_area: - NLBA_B { - no_linebreak_area = NLBA_BEGINNING; - } - | NLBA_E { - no_linebreak_area = NLBA_END; - } - ; - -protrusion: - PROTRUSION PROTRUSION_VALUE PROTRUSION_END { - add_protrusion($2.text); - } - | PROTRUSION { - add_protrusion(gregorio_strdup("d")); /* d = default */ - } - ; - -character: - above_line_text - | CHARACTERS { - add_text($1.text); - } - | style_beginning - | style_end - | special_style_beginning - | special_style_end - | linebreak_area - | euouae - | CLEAR { - clear_syllable_text = true; - } - | protrusion - | HYPHEN { - add_text(gregorio_strdup("-")); - } - | PROTRUDING_PUNCTUATION { - add_text($1.text); - } - ; - -text: - character - | text character - ; - -translation_character: - CHARACTERS { - add_text($1.text); - } - | style_beginning - | style_end - | HYPHEN { - add_text(gregorio_strdup("-")); - } - | PROTRUDING_PUNCTUATION { - add_text($1.text); - } - ; - -translation_text: - translation_character - | translation_text translation_character - ; - -translation_beginning: - TRANSLATION_BEGIN { - start_translation(TR_NORMAL); - } - ; - -translation: - translation_beginning TRANSLATION_END { - end_translation(); - } - | translation_beginning translation_text TRANSLATION_END { - end_translation(); - } - | TRANSLATION_CENTER_END { - start_translation(TR_WITH_CENTER_END); - end_translation(); - } - ; - -above_line_text: - ALT_BEGIN CHARACTERS ALT_END { - abovelinestext = $2.text; - } - ; - -syllable_with_notes: - text OPENING_BRACKET notes { - save_text(); - close_syllable(&@1); - } - | HYPHEN OPENING_BRACKET notes { - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreForceHyphen")); - end_style(ST_VERBATIM); - save_text(); - close_syllable(&@1); - } - | text HYPHEN OPENING_BRACKET notes { - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreForceHyphen")); - end_style(ST_VERBATIM); - save_text(); - close_syllable(&@1); - } - | PROTRUDING_PUNCTUATION OPENING_BRACKET notes { - add_auto_protrusion($1.text); - save_text(); - close_syllable(&@1); - } - | text PROTRUDING_PUNCTUATION OPENING_BRACKET notes { - add_auto_protrusion($2.text); - save_text(); - close_syllable(&@1); - } - | text translation OPENING_BRACKET notes { - save_text(); - close_syllable(&@1); - } - | HYPHEN translation OPENING_BRACKET notes { - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreForceHyphen")); - end_style(ST_VERBATIM); - save_text(); - close_syllable(&@1); - } - | text HYPHEN translation OPENING_BRACKET notes { - add_style(ST_VERBATIM); - add_text(gregorio_strdup("\\GreForceHyphen")); - end_style(ST_VERBATIM); - save_text(); - close_syllable(&@1); - } - | PROTRUDING_PUNCTUATION translation OPENING_BRACKET notes { - add_auto_protrusion($1.text); - save_text(); - close_syllable(&@1); - } - | text PROTRUDING_PUNCTUATION translation OPENING_BRACKET notes { - add_auto_protrusion($2.text); - save_text(); - close_syllable(&@1); - } - ; - -notes_without_word: - OPENING_BRACKET notes { - close_syllable(NULL); - } - | translation OPENING_BRACKET notes { - close_syllable(NULL); - } - ; - -syllable: - syllable_with_notes - | notes_without_word - ; - -syllables: - | syllables syllable - ; diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c deleted file mode 100644 index a6be28bad4a..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-write.c +++ /dev/null @@ -1,1171 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file provides functions for writing gabc from Gregorio structures. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - * - * This is a simple and easyly understandable output module. If you want to - * write a module, you can consider it as a model. - */ - -#include "config.h" -#include <ctype.h> -#include <stdio.h> -#include <string.h> /* for strchr */ -#include "bool.h" -#include "characters.h" -#include "struct.h" -#include "unicode.h" -#include "messages.h" -#include "plugins.h" - -#include "gabc.h" - -typedef enum { - GABC_NORMAL, - GABC_AT_PROTRUSION_FACTOR, - GABC_IN_PROTRUSION_FACTOR -} gabc_write_state; - -static gabc_write_state write_state; - -static __inline char pitch_letter(const char height) { - char result = height + 'a' - LOWEST_PITCH; - if (result == 'o') { - return 'p'; - } - return result; -} - -/* not reachable unless there's a programming error */ -/* 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); -} -/* LCOV_EXCL_STOP */ - -/* - * Output one attribute, allowing for multi-line values - */ -static void gabc_write_str_attribute(FILE *f, const char *name, - const char *attr) -{ - if (attr) { - fprintf(f, "%s: %s%s;\n", name, attr, strchr(attr, '\n') ? ";" : ""); - } -} - -/* - * - * Then we start the functions made to write the text of the syllable. See - * comments on struct.h and struct-utils.c to understand more deeply. - * - * This first function will be called each time we will encounter a - * gregorio_character which is the beginning of a style. - * - */ - -static void gabc_write_begin(FILE *f, grestyle_style style) -{ - switch (style) { - case ST_ITALIC: - fprintf(f, "<i>"); - break; - case ST_COLORED: - fprintf(f, "<c>"); - break; - case ST_SMALL_CAPS: - fprintf(f, "<sc>"); - break; - case ST_BOLD: - fprintf(f, "<b>"); - break; - case ST_FORCED_CENTER: - fprintf(f, "{"); - break; - case ST_TT: - fprintf(f, "<tt>"); - break; - case ST_UNDERLINED: - fprintf(f, "<ul>"); - break; - case ST_ELISION: - fprintf(f, "<e>"); - break; - case ST_PROTRUSION_FACTOR: - write_state = GABC_AT_PROTRUSION_FACTOR; - break; - case ST_INITIAL: - case ST_CENTER: - case ST_FIRST_WORD: - case ST_FIRST_SYLLABLE: - case ST_FIRST_SYLLABLE_INITIAL: - case ST_PROTRUSION: - /* nothing should be emitted for these */ - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_begin", __LINE__, "style", - grestyle_style_to_string(style)); - break; - /* LCOV_EXCL_STOP */ - } -} - -/* - * - * This function is about the same but for ends of styles. - * - */ - -static void gabc_write_end(FILE *f, grestyle_style style) -{ - switch (style) { - case ST_ITALIC: - fprintf(f, "</i>"); - break; - case ST_COLORED: - fprintf(f, "</c>"); - break; - case ST_SMALL_CAPS: - fprintf(f, "</sc>"); - break; - case ST_BOLD: - fprintf(f, "</b>"); - break; - case ST_FORCED_CENTER: - fprintf(f, "}"); - break; - case ST_TT: - fprintf(f, "</tt>"); - break; - case ST_UNDERLINED: - fprintf(f, "</ul>"); - break; - case ST_ELISION: - fprintf(f, "</e>"); - break; - case ST_PROTRUSION_FACTOR: - if (write_state == GABC_IN_PROTRUSION_FACTOR) { - fprintf(f, ">"); - } - break; - case ST_INITIAL: - case ST_CENTER: - case ST_FIRST_WORD: - case ST_FIRST_SYLLABLE: - case ST_FIRST_SYLLABLE_INITIAL: - case ST_PROTRUSION: - /* nothing should be emitted for these */ - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_end", __LINE__, "style", - grestyle_style_to_string(style)); - break; - /* LCOV_EXCL_STOP */ - } -} - -/* - * - * This function writes the special chars. As the specials chars are - * represented simply in gabc, this function is very simple, but for TeX output - * modules, this may be.. a little more difficult. - * - */ -static void gabc_write_special_char(FILE *f, const grewchar *first_char) -{ - fprintf(f, "<sp>"); - gregorio_print_unistring(f, first_char); - fprintf(f, "</sp>"); -} - -/* - * - * This functions writes verbatim output... but as the previous one it is very - * simple. - * - */ -static void gabc_write_verb(FILE *f, const grewchar *first_char) -{ - if (write_state == GABC_AT_PROTRUSION_FACTOR) { - /* this is an auto protrusion, so ignore it */ - write_state = GABC_NORMAL; - } else { - fprintf(f, "<v>"); - gregorio_print_unistring(f, first_char); - fprintf(f, "</v>"); - } -} - -/* - * - * The function called when we will encounter a character. There may be other - * representations of the character (for example for Omega), so it is necessary - * to have such a function defined in each module. - * - */ - -static void gabc_print_char(FILE *f, const grewchar to_print) -{ - if (write_state == GABC_AT_PROTRUSION_FACTOR) { - write_state = GABC_IN_PROTRUSION_FACTOR; - if (to_print == 'd') { - fprintf(f, "<pr"); - } else { - fprintf(f, "<pr:"); - gregorio_print_unichar(f, to_print); - } - } else { - gregorio_print_unichar(f, to_print); - } -} - -/* - * - * Quite important: the function that writes the liquescentia. It is called at - * the end of the function that writes one glyph. - * - */ - -static void gabc_write_end_liquescentia(FILE *f, char liquescentia) -{ - switch (liquescentia & TAIL_LIQUESCENTIA_MASK) { - case L_DEMINUTUS: - fprintf(f, "~"); - break; - case L_AUCTUS_ASCENDENS: - fprintf(f, "<"); - break; - case L_AUCTUS_DESCENDENS: - fprintf(f, ">"); - break; - } -} - -/* - * - * The function that writes a key change... quite simple. - * - */ - -static void gabc_write_clef(FILE *f, gregorio_clef_info clef) -{ - fprintf(f, "%c%s%d", clef.clef == CLEF_C? 'c' : 'f', clef.flatted? "b" : "", - clef.line); - if (clef.secondary_line) { - fprintf(f, "@%c%s%d", clef.secondary_clef == CLEF_C? 'c' : 'f', - clef.secondary_flatted? "b" : "", clef.secondary_line); - } -} - -/* - * - * The function that writes spaces, called when we encounter one. - * - */ - -static void gabc_write_space(FILE *f, gregorio_space type, char *factor, - bool next_is_space) -{ - switch (type) { - case SP_NEUMATIC_CUT: - if (next_is_space) { - /* if the following is not a space, we omit this because the - * code always puts a "/" between elements unless there is some - * other space there */ - fprintf (f, "/"); - } - break; - case SP_LARGER_SPACE: - fprintf(f, "//"); - break; - case SP_GLYPH_SPACE: - fprintf(f, " "); - break; - case SP_AD_HOC_SPACE: - fprintf(f, "/[%s]", factor); - break; - case SP_NEUMATIC_CUT_NB: - fprintf(f, "!/"); - break; - case SP_LARGER_SPACE_NB: - fprintf(f, "!//"); - break; - case SP_GLYPH_SPACE_NB: - fprintf(f, "! "); - break; - case SP_AD_HOC_SPACE_NB: - fprintf(f, "!/[%s]", factor); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_space", __LINE__, "space type", - gregorio_space_to_string(type)); - break; - /* LCOV_EXCL_STOP */ - } -} - -/* - * - * A function to write a bar. - * - */ - -static void gabc_write_bar(FILE *f, gregorio_bar type) -{ - switch (type) { - case B_VIRGULA: - fprintf(f, "`"); - break; - case B_DIVISIO_MINIMA: - fprintf(f, ","); - break; - case B_DIVISIO_MINOR: - fprintf(f, ";"); - break; - case B_DIVISIO_MAIOR: - fprintf(f, ":"); - break; - case B_DIVISIO_FINALIS: - fprintf(f, "::"); - break; - case B_DIVISIO_MINOR_D1: - fprintf(f, ";1"); - break; - case B_DIVISIO_MINOR_D2: - fprintf(f, ";2"); - break; - case B_DIVISIO_MINOR_D3: - fprintf(f, ";3"); - break; - case B_DIVISIO_MINOR_D4: - fprintf(f, ";4"); - break; - case B_DIVISIO_MINOR_D5: - fprintf(f, ";5"); - break; - case B_DIVISIO_MINOR_D6: - fprintf(f, ";6"); - break; - case B_DIVISIO_MINOR_D7: - fprintf(f, ";7"); - break; - case B_DIVISIO_MINOR_D8: - fprintf(f, ";8"); - break; - case B_VIRGULA_HIGH: - fprintf(f, "`0"); - break; - case B_DIVISIO_MINIMA_HIGH: - fprintf(f, ",0"); - break; - case B_DIVISIO_MAIOR_DOTTED: - fprintf(f, ":?"); - break; - case B_DIVISIO_MINIMIS: - fprintf(f, "^"); - break; - case B_DIVISIO_MINIMIS_HIGH: - fprintf(f, "^0"); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_bar", __LINE__, "bar type", - gregorio_bar_to_string(type)); - break; - /* LCOV_EXCL_STOP */ - } -} - -/* writing the signs of a bar */ - -static void gabc_write_bar_signs(FILE *f, gregorio_sign type) -{ - switch (type) { - case _V_EPISEMA: - fprintf(f, "'"); - break; - case _V_EPISEMA_BAR_H_EPISEMA: - fprintf(f, "'_"); - break; - case _BAR_H_EPISEMA: - fprintf(f, "_"); - break; - case _NO_SIGN: - /* if there's no sign, don't emit anything */ - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_bar_signs", __LINE__, "bar signs", - gregorio_sign_to_string(type)); - break; - /* LCOV_EXCL_STOP */ - } -} - -static void gabc_hepisema(FILE *f, const char *prefix, bool connect, - grehepisema_size size) -{ - fprintf(f, "_%s", prefix); - if (!connect) { - fprintf(f, "2"); - } - switch (size) { - case H_SMALL_LEFT: - fprintf(f, "3"); - break; - case H_SMALL_CENTRE: - fprintf(f, "4"); - break; - case H_SMALL_RIGHT: - fprintf(f, "5"); - break; - case H_NORMAL: - /* nothing to print */ - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_hepisema", __LINE__, "hepisema size", - grehepisema_size_to_string(size)); - break; - /* LCOV_EXCL_STOP */ - } -} - -static const char *vepisema_position(gregorio_note *note) -{ - if (!note->v_episema_height) { - return ""; - } - if (note->v_episema_height < note->u.note.pitch) { - return "0"; - } - return "1"; -} - -static const char *mora_vposition(gregorio_note *note) -{ - switch (note->mora_vposition) { - case VPOS_AUTO: - return ""; - case VPOS_ABOVE: - return "1"; - case VPOS_BELOW: - return "0"; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("mora_vposition", __LINE__, "vposition", - gregorio_vposition_to_string(note->mora_vposition)); - return ""; - /* LCOV_EXCL_STOP */ - } -} - -static void write_note_heuristics(FILE *f, gregorio_note *note) { - switch (note->high_ledger_specificity) { - case LEDGER_EXPLICIT: - fprintf(f, "[hl:%c]", note->high_ledger_line? '1' : '0'); - break; - case LEDGER_EXPLICITLY_DRAWN: - fprintf(f, "[oll:%c]", note->high_ledger_line? '1' : '0'); - break; - default: - break; - } - switch (note->low_ledger_specificity) { - case LEDGER_EXPLICIT: - fprintf(f, "[ll:%c]", note->low_ledger_line? '1' : '0'); - break; - case LEDGER_EXPLICITLY_DRAWN: - fprintf(f, "[ull:%c]", note->low_ledger_line? '1' : '0'); - break; - default: - break; - } -} - -typedef struct glyph_context { - gregorio_syllable *syllable; - gregorio_element *element; - unsigned short he_adjustment_index[2]; -} glyph_context; - -/* - * - * The function that writes one gregorio_note. - * - */ - -static void gabc_write_gregorio_note(FILE *f, gregorio_note *note, - const bool is_quadratum) -{ - char shape; - gregorio_assert(note, gabc_write_gregorio_note, "call with NULL argument", - return); - gregorio_assert(note->type == GRE_NOTE, gabc_write_gregorio_note, - "call with argument which type is not GRE_NOTE", return); - shape = note->u.note.shape; - switch (shape) { - /* first we write the letters that determine the shapes */ - case S_PUNCTUM: - if (is_quadratum) { - fprintf(f, "%cq", pitch_letter(note->u.note.pitch)); - } else { - fprintf(f, "%c", pitch_letter(note->u.note.pitch)); - } - break; - case S_PUNCTUM_INCLINATUM_ASCENDENS: - fprintf(f, "%c1", toupper((unsigned char)pitch_letter(note->u.note.pitch))); - break; - case S_PUNCTUM_INCLINATUM_DESCENDENS: - fprintf(f, "%c0", toupper((unsigned char)pitch_letter(note->u.note.pitch))); - break; - case S_PUNCTUM_INCLINATUM_STANS: - fprintf(f, "%c2", toupper((unsigned char)pitch_letter(note->u.note.pitch))); - break; - case S_PUNCTUM_INCLINATUM_DEMINUTUS: - if (note->next) { - fprintf(f, "%c~", toupper((unsigned char)pitch_letter(note->u.note.pitch))); - } else { - fprintf(f, "%c", toupper((unsigned char)pitch_letter(note->u.note.pitch))); - } - break; - case S_PUNCTUM_INCLINATUM_AUCTUS: - fprintf(f, "%c", toupper((unsigned char)pitch_letter(note->u.note.pitch))); - break; - case S_FLAT: - fprintf(f, "%cx", pitch_letter(note->u.note.pitch)); - break; - case S_NATURAL: - fprintf(f, "%cy", pitch_letter(note->u.note.pitch)); - break; - case S_SHARP: - fprintf(f, "%c#", pitch_letter(note->u.note.pitch)); - break; - case S_VIRGA: - fprintf(f, "%cv", pitch_letter(note->u.note.pitch)); - break; - case S_VIRGA_REVERSA: - fprintf(f, "%cV", pitch_letter(note->u.note.pitch)); - break; - case S_ORISCUS_ASCENDENS: - fprintf(f, "%co1", pitch_letter(note->u.note.pitch)); - break; - case S_ORISCUS_DESCENDENS: - fprintf(f, "%co0", pitch_letter(note->u.note.pitch)); - break; - case S_ORISCUS_DEMINUTUS: - fprintf(f, "%co", pitch_letter(note->u.note.pitch)); - /* Note: the DEMINUTUS is also in the liquescentia */ - break; - case S_QUILISMA: - if (is_quadratum) { - fprintf(f, "%cW", pitch_letter(note->u.note.pitch)); - } else { - fprintf(f, "%cw", pitch_letter(note->u.note.pitch)); - } - break; - case S_LINEA: - fprintf(f, "%c=", pitch_letter(note->u.note.pitch)); - break; - case S_LINEA_PUNCTUM: - fprintf(f, "%cR", pitch_letter(note->u.note.pitch)); - break; - case S_ORISCUS_SCAPUS_ASCENDENS: - fprintf(f, "%cO1", pitch_letter(note->u.note.pitch)); - break; - case S_ORISCUS_SCAPUS_DESCENDENS: - fprintf(f, "%cO0", pitch_letter(note->u.note.pitch)); - break; - case S_STROPHA: - case S_STROPHA_AUCTA: - fprintf(f, "%cs", pitch_letter(note->u.note.pitch)); - break; - default: - /* includes S_BIVIRGA, S_TRIVIRGA, S_DISTROPHA, and S_TRISTROPHA */ - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_gregorio_note", __LINE__, "shape", - gregorio_shape_to_string(shape)); - fprintf(f, "%c", pitch_letter(note->u.note.pitch)); - break; - /* LCOV_EXCL_STOP */ - } - if (note->u.note.is_cavum) { - fprintf(f, "r"); - } - switch (note->signs) { - case _PUNCTUM_MORA: - fprintf(f, ".%s", mora_vposition(note)); - break; - case _AUCTUM_DUPLEX: - fprintf(f, ".."); - break; - case _V_EPISEMA: - fprintf(f, "'%s", vepisema_position(note)); - break; - case _V_EPISEMA_PUNCTUM_MORA: - fprintf(f, "'%s.%s", vepisema_position(note), mora_vposition(note)); - break; - case _V_EPISEMA_AUCTUM_DUPLEX: - fprintf(f, "'%s..", vepisema_position(note)); - break; - case _NO_SIGN: - /* if there's no sign, don't emit anything */ - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_gregorio_note", __LINE__, "shape signs", - gregorio_sign_to_string(note->signs)); - break; - /* LCOV_EXCL_STOP */ - } - switch (note->special_sign) { - case _ACCENTUS: - fprintf(f, "r1"); - break; - case _ACCENTUS_REVERSUS: - fprintf(f, "r2"); - break; - case _CIRCULUS: - fprintf(f, "r3"); - break; - case _SEMI_CIRCULUS: - fprintf(f, "r4"); - break; - case _SEMI_CIRCULUS_REVERSUS: - fprintf(f, "r5"); - break; - case _MUSICA_FICTA_FLAT: - fprintf(f, "r6"); - break; - case _MUSICA_FICTA_NATURAL: - fprintf(f, "r7"); - break; - case _MUSICA_FICTA_SHARP: - fprintf(f, "r8"); - break; - case _NO_SIGN: - /* if there's no sign, don't emit anything */ - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_gregorio_note", __LINE__, "special sign", - gregorio_sign_to_string(note->special_sign)); - break; - /* LCOV_EXCL_STOP */ - } - if (note->h_episema_above == HEPISEMA_AUTO - && note->h_episema_below == HEPISEMA_AUTO) { - gabc_hepisema(f, "", note->h_episema_above_connect, - note->h_episema_above_size); - } else { - if (note->h_episema_below == HEPISEMA_FORCED) { - gabc_hepisema(f, "0", note->h_episema_below_connect, - note->h_episema_below_size); - } - if (note->h_episema_above == HEPISEMA_FORCED) { - gabc_hepisema(f, "1", note->h_episema_above_connect, - note->h_episema_above_size); - } - } - write_note_heuristics(f, note); - if (note->texverb) { - fprintf(f, "[nv:%s]", gregorio_texverb(note->texverb)); - } -} - -static void get_next_hepisema_adjustments(unsigned short *adjustment_index, - const gregorio_syllable *syllable, const gregorio_element *element, - const gregorio_glyph *glyph, const gregorio_note *note) -{ - while (note) { - note = note->next; - if (!note) { - while (glyph) { - glyph = glyph->next; - if (!glyph) { - while (element) { - element = element->next; - if (!element) { - syllable = syllable->next_syllable; - if (syllable) { - element = syllable->elements[0]; - } - } - if (element && element->type == GRE_ELEMENT) { - glyph = element->u.first_glyph; - break; - } - } - } - if (glyph && glyph->type == GRE_GLYPH) { - note = glyph->u.notes.first_note; - break; - } - } - } - if (note && note->type == GRE_NOTE) { - break; - } - } - - if (note) { - adjustment_index[SO_OVER] = note->he_adjustment_index[SO_OVER]; - adjustment_index[SO_UNDER] = note->he_adjustment_index[SO_UNDER]; - } else { - adjustment_index[SO_OVER] = 0; - adjustment_index[SO_UNDER] = 0; - } -} - -static __inline void emit_hepisema_adjustment(FILE *const f, - const gregorio_note *const note, const gregorio_sign_orientation index, - const char which, const bool open_brace) -{ - gregorio_hepisema_adjustment *adj = gregorio_get_hepisema_adjustment( - note->he_adjustment_index[index]); - - fprintf(f, "[%ch", which); - if (adj->vbasepos || adj->nudge) { - fputc(':', f); - switch (adj->vbasepos) { - case HVB_AUTO: - break; - case HVB_MIDDLE: - fputc('m', f); - break; - case HVB_O_LOW: - if (index == SO_OVER) { - fputc('l', f); - } else { - fprintf(f, "ol"); - } - break; - case HVB_O_HIGH: - if (index == SO_OVER) { - fputc('h', f); - } else { - fprintf(f, "oh"); - } - break; - case HVB_U_LOW: - if (index == SO_UNDER) { - fputc('l', f); - } else { - fprintf(f, "ul"); - } - break; - case HVB_U_HIGH: - if (index == SO_UNDER) { - fputc('h', f); - } else { - fprintf(f, "uh"); - } - break; - } - if (adj->nudge) { - fprintf(f, "%s", adj->nudge); - } - } - if (open_brace) { - fputc('{', f); - } - fputc(']', f); -} - -static __inline void open_hepisema_adjustment(FILE *const f, - const gregorio_note *const note, - const unsigned short *const prev_adjustment_index, - const unsigned short *const next_adjustment_index, - const gregorio_sign_orientation index, const char which) -{ - const unsigned short adjustment_index = - note->he_adjustment_index[index]; - - if (adjustment_index - && adjustment_index != prev_adjustment_index[index] - && adjustment_index == next_adjustment_index[index]) { - emit_hepisema_adjustment(f, note, index, which, true); - } -} - -static __inline void close_hepisema_adjustment(FILE *const f, - const gregorio_note *const note, - const unsigned short *const prev_adjustment_index, - const unsigned short *const next_adjustment_index, - const gregorio_sign_orientation index, const char which) -{ - const unsigned short adjustment_index = - note->he_adjustment_index[index]; - - if (adjustment_index) { - if (adjustment_index != next_adjustment_index[index]) { - if (adjustment_index == prev_adjustment_index[index]) { - fprintf(f, "[%ch}]", which); - } else { - emit_hepisema_adjustment(f, note, index, which, false); - } - } - } -} - -/* - * - * The function that writes one glyph. If it is really a glyph (meaning not a - * space or an alteration), we just do like always, a loop on the notes and a - * call to the function that writes one note on each of them. - * - */ - -static void gabc_write_gregorio_glyph(FILE *f, gregorio_glyph *glyph, - glyph_context *context) -{ - unsigned short next_adjustment_index[2] = { 0, 0 }; - gregorio_note *current_note; - - gregorio_assert(glyph, gabc_write_gregorio_glyph, "call with NULL argument", - return); - switch (glyph->type) { - case GRE_TEXVERB_GLYPH: - if (glyph->texverb) { - fprintf(f, "[gv:%s]", gregorio_texverb(glyph->texverb)); - } - break; - case GRE_SPACE: - if (glyph->next) { - switch (glyph->u.misc.unpitched.info.space) { - case SP_ZERO_WIDTH: - fprintf(f, "!"); - break; - case SP_HALF_SPACE: - fprintf(f, "/0"); - break; - case SP_INTERGLYPH_SPACE: - fprintf(f, "/!"); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_gregorio_glyph", __LINE__, "space type", - gregorio_space_to_string( - glyph->u.misc.unpitched.info.space)); - break; - /* LCOV_EXCL_STOP */ - } - } else { - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(gabc_write_gregorio_glyph, "bad space"); - /* LCOV_EXCL_STOP */ - } - break; - case GRE_GLYPH: - if (is_initio_debilis(glyph->u.notes.liquescentia)) { - fprintf(f, "-"); - } else if (is_fused(glyph->u.notes.liquescentia)) { - fprintf(f, "@"); - } - - current_note = glyph->u.notes.first_note; - while (current_note) { - get_next_hepisema_adjustments(next_adjustment_index, - context->syllable, context->element, glyph, current_note); - - open_hepisema_adjustment(f, current_note, - context->he_adjustment_index, next_adjustment_index, - SO_OVER, 'o'); - open_hepisema_adjustment(f, current_note, - context->he_adjustment_index, next_adjustment_index, - SO_UNDER, 'u'); - - /* third argument necessary for the special shape pes quadratum */ - gabc_write_gregorio_note(f, current_note, - glyph->u.notes.glyph_type == G_PES_QUADRATUM - && current_note == glyph->u.notes.first_note); - - close_hepisema_adjustment(f, current_note, - context->he_adjustment_index, next_adjustment_index, - SO_OVER, 'o'); - close_hepisema_adjustment(f, current_note, - context->he_adjustment_index, next_adjustment_index, - SO_UNDER, 'u'); - - context->he_adjustment_index[SO_OVER] = - current_note->he_adjustment_index[SO_OVER]; - context->he_adjustment_index[SO_UNDER] = - current_note->he_adjustment_index[SO_UNDER]; - - current_note = current_note->next; - } - gabc_write_end_liquescentia(f, glyph->u.notes.liquescentia); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_gregorio_glyph", __LINE__, "glyph type", - gregorio_type_to_string(glyph->type)); - break; - /* LCOV_EXCL_STOP */ - } -} - -/* - * - * To write an element, first we check the type of the element (if it is a bar, - * etc.), and if it is really an element, we make a loop on the list of glyphs - * inside the neume, and for each of them we call the function that will write - * one glyph. - * - */ - -static void gabc_write_gregorio_element(FILE *f, gregorio_element *element, - glyph_context *context) -{ - gregorio_glyph *current_glyph; - gregorio_assert(element, gabc_write_gregorio_element, - "call with NULL argument", return); - current_glyph = element->u.first_glyph; - switch (element->type) { - case GRE_ELEMENT: - while (current_glyph) { - gabc_write_gregorio_glyph(f, current_glyph, context); - current_glyph = current_glyph->next; - } - break; - case GRE_TEXVERB_ELEMENT: - if (element->texverb) { - fprintf(f, "[ev:%s]", gregorio_texverb(element->texverb)); - } - break; - case GRE_ALT: - if (element->texverb) { - fprintf(f, "[alt:%s]", gregorio_texverb(element->texverb)); - } - break; - case GRE_SPACE: - gabc_write_space(f, element->u.misc.unpitched.info.space, - element->u.misc.unpitched.info.ad_hoc_space_factor, - element->next && element->next->type == GRE_SPACE); - break; - case GRE_BAR: - gabc_write_bar(f, element->u.misc.unpitched.info.bar); - gabc_write_bar_signs(f, element->u.misc.unpitched.special_sign); - break; - case GRE_CLEF: - gabc_write_clef(f, element->u.misc.clef); - break; - case GRE_END_OF_LINE: - if (element->u.misc.unpitched.info.eol_ragged) { - fprintf(f, "Z"); - } else { - fprintf(f, "z"); - } - if (element->u.misc.unpitched.info.eol_forces_custos) { - fprintf(f, element->u.misc.unpitched.info.eol_forces_custos_on? "+" - : "-"); - } - break; - case GRE_CUSTOS: - if (element->u.misc.pitched.force_pitch) { - fprintf(f, "%c+", pitch_letter(element->u.misc.pitched.pitch)); - } else { - fprintf(f, "z0"); - } - break; - case GRE_SUPPRESS_CUSTOS: - fprintf(f, "[nocustos]"); - break; - case GRE_NLBA: - switch (element->u.misc.unpitched.info.nlba) { - case NLBA_BEGINNING: - fprintf(f, "<nlba>"); - break; - case NLBA_END: - fprintf(f, "</nlba>"); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_gregorio_element", __LINE__, "nlba type", - gregorio_nlba_to_string(element->u.misc.unpitched.info.nlba)); - break; - /* LCOV_EXCL_STOP */ - } - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - unsupported("gabc_write_gregorio_element", __LINE__, "element type", - gregorio_type_to_string(element->type)); - break; - /* LCOV_EXCL_STOP */ - } -} - -/* - * - * Here is defined the function that will write the list of gregorio_elements. - * It is very simple: it makes a loop in which it calls a function that writes - * one element. - * - */ - -static bool gabc_write_gregorio_elements(FILE *f, gregorio_element *element, - glyph_context *context) -{ - bool linebreak_or_bar_in_element = false; - while (element) { - context->element = element; - gabc_write_gregorio_element(f, element, context); - /* we don't want a bar after an end of line */ - if (element->type != GRE_END_OF_LINE - && (element->type != GRE_SPACE - || element->u.misc.unpitched.info.space == SP_NEUMATIC_CUT) - && element->next && element->next->type == GRE_ELEMENT) { - fprintf(f, "/"); - } - if (element->type == GRE_END_OF_LINE || element->type == GRE_BAR) - { - linebreak_or_bar_in_element = true; - } - element = element->next; - } - return linebreak_or_bar_in_element; -} - -/* - * - * Here it goes, we are writing a gregorio_syllable. - * - */ - -static void gabc_write_gregorio_syllable(FILE *f, gregorio_syllable *syllable, - glyph_context *context) -{ - bool linebreak_or_bar_in_element; - gregorio_assert(syllable, gabc_write_gregorio_syllable, - "call with NULL argument", return); - write_state = GABC_NORMAL; - if (syllable->no_linebreak_area == NLBA_BEGINNING) { - fprintf(f, "<nlba>"); - } - if (syllable->euouae == EUOUAE_BEGINNING) { - fprintf(f, "<eu>"); - } - if (syllable->clear) { - fprintf(f, "<clear>"); - } - if (syllable->text) { - /* we call the magic function (defined in struct_utils.c), that will - * write our text. */ - gregorio_write_text(WTP_NORMAL, syllable->text, f, &gabc_write_verb, - &gabc_print_char, &gabc_write_begin, &gabc_write_end, - &gabc_write_special_char); - } - if (syllable->translation) { - fprintf(f, "["); - gregorio_write_text(WTP_NORMAL, syllable->translation, f, - &gabc_write_verb, &gabc_print_char, &gabc_write_begin, - &gabc_write_end, &gabc_write_special_char); - fprintf(f, "]"); - } else if (syllable->translation_type == TR_WITH_CENTER_END) { - fprintf(f, "[/]"); - } - if (syllable->euouae == EUOUAE_END) { - fprintf(f, "</eu>"); - } - if (syllable->no_linebreak_area == NLBA_END) { - fprintf(f, "</nlba>"); - } - fprintf(f, "("); - /* we write all the elements of the syllable. */ - linebreak_or_bar_in_element = gabc_write_gregorio_elements(f, syllable->elements[0], context); - if (linebreak_or_bar_in_element) - { - fprintf(f, ")\n"); - } else { - if (syllable->position == WORD_END - || syllable->position == WORD_ONE_SYLLABLE - || gregorio_is_only_special(syllable->elements[0])) - { - fprintf(f, ") "); - } else { - fprintf(f, ")"); - } - } -} - -/* - * - * This is the top function, the one called when we want to write a - * gregorio_score in gabc. - * - */ - -void gabc_write_score(FILE *f, gregorio_score *score) -{ - glyph_context context; - gregorio_syllable *syllable; - gregorio_header *header; - - gregorio_assert(f, gabc_write_score, "call with NULL file", return); - - context.he_adjustment_index[0] = 0; - context.he_adjustment_index[1] = 0; - - for (header = score->headers; header; header = header->next) { - gabc_write_str_attribute(f, header->name, header->value); - } - /* And since the gabc is generated by this program, note this. */ - fprintf(f, "generated-by: %s %s;\n", "gregorio", GREGORIO_VERSION); - gregorio_assert(score->number_of_voices == 1, gabc_write_score, - "gregorio_score seems to be empty", return); - fprintf(f, "%%%%\n"); - /* at present we only allow for one clef at the start of the gabc */ - if (score->first_voice_info) { - fprintf(f, "("); - gabc_write_clef(f, score->first_voice_info->initial_clef); - fprintf(f, ")"); - } - syllable = score->first_syllable; - /* the we write every syllable */ - while (syllable) { - context.syllable = syllable; - gabc_write_gregorio_syllable(f, syllable, &context); - syllable = syllable->next_syllable; - } - fprintf(f, "\n"); -} - -/* And that's it... not really hard isn't it? */ diff --git a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc.h b/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc.h deleted file mode 100644 index 34c50e682e1..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc.h +++ /dev/null @@ -1,86 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header prototypes gabc-format handling data structures and entry points. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef GABC_H -#define GABC_H - -#include "struct.h" - -/* functions to read gabc */ -gregorio_note *gabc_det_notes_from_string(char *str, char *macros[10], - gregorio_scanner_location *loc, const gregorio_score *score); -void gabc_det_notes_finish(void); -gregorio_element *gabc_det_elements_from_string(char *str, int *current_key, - char *macros[10], gregorio_scanner_location *loc, - gregorio_shape *punctum_inclinatum_orientation, - const gregorio_score *const score); -gregorio_glyph *gabc_det_glyphs_from_notes(gregorio_note *current_note, - int *current_key, gregorio_shape *punctum_inclinatum_orientation, - const gregorio_score *score); -void gabc_digest(const void *buf, size_t size); -int gabc_score_determination_lex_destroy(void); -int gabc_notes_determination_lex_destroy(void); - -/* see comments on gregorio_add_note_to_a_glyph for meaning of these - * variables */ -typedef enum gabc_determination { - DET_NO_END, - DET_END_OF_CURRENT, - DET_END_OF_PREVIOUS, - DET_END_OF_BOTH -} gabc_determination; - -static __inline void gabc_update_location(gregorio_scanner_location *const loc, - const char *const bytes, const size_t length) -{ - size_t i; - - /* to be compatible with LilyPond, this algorithm is based on Lilypond's - * Source_file::get_counts */ - - /* possible future enhancement: make the tabstop size configurable */ - - loc->first_line = loc->last_line; - loc->first_column = loc->last_column; - loc->first_offset = loc->last_offset; - - for (i = 0; i < length; ++i) { - if (bytes[i] == '\n') { - ++loc->last_line; - loc->last_column = 0; - loc->last_offset = 0; - } else if (((unsigned char)bytes[i] & 0xc0u) != 0x80u) { - /* if two highest bits are 1 and 0, it's a continuation byte, - * so count everything else, which is either a single-byte - * character or the first byte of a multi-byte sequence */ - - if (bytes[i] == '\t') { - loc->last_column = (loc->last_column / 8 + 1) * 8; - } else { - ++loc->last_column; - } - ++loc->last_offset; - } - } -} - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/gregorio-utils.c b/Build/source/texk/gregorio/gregorio-src/src/gregorio-utils.c deleted file mode 100644 index 7d3aa1e00bd..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gregorio-utils.c +++ /dev/null @@ -1,721 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the command line interface of Gregorio. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -static const char *copyright = -"Copyright (C) 2006-2019 Gregorio Project authors (see CONTRIBUTORS.md)"; - -#include "config.h" -#include <stdio.h> -#include <unistd.h> -#include <stdlib.h> -#ifdef USE_KPSE -#include <kpathsea/kpathsea.h> -#else -#include <getopt.h> -#endif -#include <string.h> /* for strcmp */ -#include <locale.h> -#include <limits.h> -#include <errno.h> -#include <assert.h> -#include "struct.h" -#include "plugins.h" -#include "messages.h" -#include "characters.h" -#include "support.h" -#include "gabc/gabc.h" -#include "vowel/vowel.h" - -#ifndef MODULE_PATH_ENV -#define MODULE_PATH_ENV "MODULE_PATH" -#endif - -typedef enum gregorio_file_format { - FORMAT_UNSET = 0, - GABC, - GTEX, - DUMP -} gregorio_file_format; - -#define GABC_STR "gabc" -#define GTEX_STR "gtex" -#define DUMP_STR "dump" - -#define DEFAULT_INPUT_FORMAT GABC -#define DEFAULT_OUTPUT_FORMAT GTEX - -/* realpath is not in mingw32 */ -#ifdef _WIN32 -/* _MAX_PATH is being passed for the maxLength (third) argument of _fullpath, - * but we are always passing NULL for the absPath (first) argument, so it will - * be ignored per the MSDN documentation */ -#define gregorio_realpath(path,resolved_path) _fullpath(resolved_path,path,_MAX_PATH) -#else -#ifdef FUNC_REALPATH_WORKS -#define gregorio_realpath(path,resolved_path) realpath(path,resolved_path) -#else -/* When realpath doesn't work (on an older system), we are forced to use - * PATH_MAX to allocate a buffer */ -#define gregorio_realpath(path,resolved_path) realpath(path,gregorio_malloc(PATH_MAX)) -#endif /* FUNC_REALPATH_WORKS */ -#endif /* _WIN32 */ - -/* define_path attempts to canonicalize the pathname of a given string */ -static char *define_path(char *current_directory, char *string) -{ - int length; - char *file_name; - char *temp_name; - char *base_name; -#ifdef _WIN32 - char *last_backslash; -#endif - - temp_name = gregorio_strdup(string); - base_name = strrchr(temp_name, '/'); -#ifdef _WIN32 - last_backslash = strrchr(temp_name, '\\'); - if (last_backslash > base_name) { - base_name = last_backslash; - } -#endif - if (base_name) { - /* some path was supplied */ - - *base_name = '\0'; - base_name++; - - /* try to resolve it */ - file_name = gregorio_realpath(temp_name, NULL); - if (!file_name) { - /* it's not reasonable to cover this failure in testing */ - /* LCOV_EXCL_START */ - fprintf(stderr, "the directory %s for %s does not exist\n", - temp_name, base_name); - gregorio_exit(1); - /* LCOV_EXCL_STOP */ - } - } else { - /* no path was supplied */ - base_name = string; - file_name = gregorio_malloc( - strlen(current_directory) + strlen(base_name) + 2); - strcpy(file_name, current_directory); - } - - /* build the file name */ - length = strlen(file_name); - file_name = gregorio_realloc(file_name, length + strlen(base_name) + 2); - file_name[length] = '/'; - strcpy(file_name + length + 1, base_name); - - free(temp_name); - return file_name; -} - -/* function that returns the filename without the extension */ -static char *get_base_filename(char *fbasename) -{ - char *p; - int l; - char *ret; - p = strrchr(fbasename, '.'); - if (!p || strchr(p, '/') || strchr(p, '\\')) { - return gregorio_strdup(fbasename); - } - l = strlen(fbasename) - strlen(p); - ret = (char *) gregorio_malloc(l + 1); - gregorio_snprintf(ret, l + 1, "%s", fbasename); - ret[l] = '\0'; - return ret; -} - -/* function that adds the good extension to a basename (without extension) */ -static char *get_output_filename(char *fbasename, const char *extension) -{ - char *output_filename = NULL; - output_filename = - (char *) gregorio_malloc((strlen(extension) + strlen(fbasename) + 2)); - output_filename = strcpy(output_filename, fbasename); - output_filename = strcat(output_filename, "."); - output_filename = strcat(output_filename, extension); - return output_filename; -} - -static void print_licence(void) -{ - printf("Gregorio: Gregorian chant score engraving.\n\ -%s\n\ -\n\ -This program is free software: you can redistribute it and/or modify\n\ -it under the terms of the GNU General Public License as published by\n\ -the Free Software Foundation, either version 3 of the License, or\n\ -(at your option) any later version.\n\ -\n", copyright); - printf("This program is distributed in the hope that it will be useful,\n\ -but WITHOUT ANY WARRANTY; without even the implied warranty of\n\ -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n\ -GNU General Public License for more details.\n\ -\n\ -You should have received a copy of the GNU General Public License\n\ -along with this program. If not, see <http://www.gnu.org/licenses/>.\n\ -"); -} - -static void print_usage(char *name) -{ - printf(_("Usage: %s [OPTION]... [-s | INPUT_FILE]\n\ -\nEngrave Gregorian chant scores, convert a gabc file to GregorioTeX.\n\n\ -Options:\n\ - -o, --output-file FILE write output to FILE,\n\ - default is basename(INPUT_FILE).FORMAT\n\ - -S, --stdout write output to stdout\n\ - -s, --stdin read input from stdin\n\ - -l, --messages-file FILE output messages to FILE (default: stderr)\n\ - -F, --output-format FORMAT\n\ - specify output format (default: gtex)\n"), name); -printf(_(" -f, --input-format FORMAT\n\ - specify input format (default: gabc)\n\ - -p, --point-and-click generate Lilypond point and click information\n\ - -h, --help print this help message\n\ - -V, --version print version and exit\n")); - printf(_("\ - -L, --license print licence\n\ - -v, --verbose verbose mode\n\ - -W, --all-warnings output warnings\n\ - -D, --deprecation-errors treat deprecation warnings as errors\n\ - -d, --debug output debug information\n\ -\n\ -Formats:\n\ - gabc gabc\n\ - gtex GregorioTeX\n\ - dump plain text dump (for debugging purpose)\n\ -\n\ -See <" PACKAGE_URL "> for general documentation,\n\ -GregorioRef.pdf and GregorioNabcRef.pdf for full documentation.\ -\n")); -} - -static void print_short_usage(char *name) -{ - fprintf(stderr, "Usage: %s [OPTION]... [-s | INPUT_FILE]\n\ -Try '%s --help' for more information.\n", name, name); -} - -static void check_input_clobber(char *input_file_name, char *output_file_name) -{ - if (input_file_name && output_file_name) { - char *absolute_input_file_name; - char *absolute_output_file_name; - char *current_directory; - int file_cmp; - size_t bufsize = 128; - char *buf = gregorio_malloc(bufsize); - while ((current_directory = getcwd(buf, bufsize)) == NULL - && errno == ERANGE && bufsize < MAX_BUF_GROWTH) { - free(buf); - bufsize <<= 1; - buf = gregorio_malloc(bufsize); - } - if (current_directory == NULL) { - fprintf(stderr, _("can't determine current directory")); - free(buf); - gregorio_exit(1); - } - absolute_input_file_name = define_path(current_directory, input_file_name); - absolute_output_file_name = define_path(current_directory, output_file_name); - file_cmp = strcmp(absolute_input_file_name, absolute_output_file_name); - if (file_cmp == 0) { - fprintf(stderr, "error: refusing to overwrite the input file\n"); - } - free(buf); - free(absolute_input_file_name); - free(absolute_output_file_name); - if (file_cmp == 0) { - gregorio_exit(1); - } - } -} - -static char *encode_point_and_click_filename(char *input_file_name) -{ - /* percent-encoding favors capital hex digits */ - static const char *const hex = "0123456789ABCDEF"; - char *filename, *result = NULL, *r = NULL, *p; - - filename = gregorio_realpath(input_file_name, NULL); - if (!filename) { - /* it's not reasonable to generate the system error that would cause - * this to fail */ - /* LCOV_EXCL_START */ - fprintf(stderr, "error: unable to resolve %s\n", input_file_name); - gregorio_exit(1); - /* LCOV_EXCL_STOP */ - } - - /* 2 extra characters for a possible leading slash and final NUL */ - r = result = gregorio_malloc(strlen(filename) * 4 + 2); - -#ifdef _WIN32 - *(r++) = '/'; -#endif - - for (p = filename; *p; ++p) { -#ifdef _WIN32 - if (*p == '\\') { - *p = '/'; - } -#endif - - /* note that -, _ and ~ are conspicuously missing from this list - * because they cause trouble in TeX; we will percent-encode them */ - if ((*p >= 'A' && *p <= 'Z') || (*p >= 'a' && *p < 'z') - || (*p >= '0' && *p <= '9') || *p == '.' || *p == '/' -#ifdef _WIN32 - || *p == ':' -#endif - ) { - *(r++) = *p; - } - else { - /* percent-encode anything else */ - *(r++) = '\\'; /* must escape it because it's TeX */ - *(r++) = '%'; - *(r++) = hex[(*p >> 4) & 0x0FU]; - *(r++) = hex[*p & 0x0FU]; - } - } - - *r = '\0'; - - free(filename); - return result; -} - -int main(int argc, char **argv) -{ - int c; - - char *input_file_name = NULL; - char *output_file_name = NULL; - char *output_basename = NULL; - char *error_file_name = NULL; - FILE *input_file = NULL; - FILE *output_file = NULL; - FILE *error_file = NULL; - gregorio_file_format input_format = FORMAT_UNSET; - gregorio_file_format output_format = FORMAT_UNSET; - gregorio_verbosity verb_mode = 0; - bool deprecation_errors = false; - bool point_and_click = false; - char *point_and_click_filename = NULL; - bool debug = false; - bool must_print_short_usage = false; - int option_index = 0; - static struct option long_options[] = { - {"output-file", 1, 0, 'o'}, - {"stdout", 0, 0, 'S'}, - {"output-format", 1, 0, 'F'}, - {"messages-file", 1, 0, 'l'}, - {"input-format", 1, 0, 'f'}, - {"stdin", 0, 0, 's'}, - {"help", 0, 0, 'h'}, - {"version", 0, 0, 'V'}, - {"licence", 0, 0, 'L'}, - {"verbose", 0, 0, 'v'}, - {"all-warnings", 0, 0, 'W'}, - {"deprecation-errors", 0, 0, 'D'}, - {"point-and-click", 0, 0, 'p'}, - {"debug", 0, 0, 'd'}, - }; - gregorio_score *score = NULL; - - gregorio_support_init("gregorio", argv[0]); - - if (argc == 1) { - fprintf(stderr, "%s: missing file operand.\n", argv[0]); - print_short_usage(argv[0]); - gregorio_exit(0); - } - setlocale(LC_CTYPE, "C"); - - while (1) { - c = getopt_long(argc, argv, "o:SF:l:f:shOLVvWDpd", - long_options, &option_index); - if (c == -1) - break; - switch (c) { - case 'o': - if (output_file_name) { - fprintf(stderr, - "warning: several output files declared, %s taken\n", - output_file_name); - must_print_short_usage = true; - break; - } - if (output_file) { /* means that stdout is defined */ - fprintf(stderr, - "warning: can't write to file and stdout, writing on stdout\n"); - must_print_short_usage = true; - break; - } - output_file_name = optarg; - break; - case 'S': - if (output_file_name) { - fprintf(stderr, - "warning: can't write to file and stdout, writing on %s\n", - output_file_name); - must_print_short_usage = true; - break; - } - if (output_file) { /* means that stdout is defined */ - fprintf(stderr, "warning: option used several times: %c\n", c); - must_print_short_usage = true; - break; - } - output_file = stdout; - break; - case 'F': - if (output_format) { - fprintf(stderr, - "warning: several output formats declared, first taken\n"); - must_print_short_usage = true; - break; - } - if (!strcmp(optarg, GABC_STR)) { - output_format = GABC; - break; - } - if (!strcmp(optarg, GTEX_STR)) { - output_format = GTEX; - break; - } - if (!strcmp(optarg, DUMP_STR)) { - output_format = DUMP; - break; - } else { - fprintf(stderr, "error: unknown output format: %s\n", optarg); - print_short_usage(argv[0]); - gregorio_exit(1); - } - break; - case 'l': - if (error_file_name) { - fprintf(stderr, - "warning: several error files declared, %s taken\n", - error_file_name); - must_print_short_usage = true; - break; - } - error_file_name = optarg; - break; - case 'f': - if (input_format) { - gregorio_set_error_out(error_file); - fprintf(stderr, - "warning: several output formats declared, first taken\n"); - must_print_short_usage = true; - break; - } - if (!strcmp(optarg, GABC_STR)) { - input_format = GABC; - break; - } else { - fprintf(stderr, "error: unknown input format: %s\n", optarg); - print_short_usage(argv[0]); - gregorio_exit(1); - } - break; - case 's': - /* input_file_name will be null here because of the way - * we use getopt_long */ - assert(!input_file_name); - if (input_file) { /* means that stdin is defined */ - fprintf(stderr, "warning: option used several times: %c\n", c); - must_print_short_usage = true; - break; - } - input_file = stdin; - break; - case 'h': - print_usage(argv[0]); - gregorio_exit(0); - break; - case 'V': - gregorio_print_version(copyright); - gregorio_exit(0); - break; - case 'v': - if (verb_mode && verb_mode != VERBOSITY_WARNING) { - fprintf(stderr, "warning: verbose option passed several times\n"); - must_print_short_usage = true; - break; - } - verb_mode = VERBOSITY_INFO; - break; - case 'W': - if (verb_mode == VERBOSITY_WARNING) { - fprintf(stderr, - "warning: all-warnings option passed several times\n"); - must_print_short_usage = true; - break; - } - if (verb_mode != VERBOSITY_INFO) { - verb_mode = VERBOSITY_WARNING; - } - break; - case 'D': - if (deprecation_errors) { - fprintf(stderr, "warning: deprecation-errors option passed " - "several times\n"); - must_print_short_usage = true; - break; - } - deprecation_errors = true; - break; - case 'L': - print_licence(); - gregorio_exit(0); - break; - case 'p': - if (point_and_click) { - fprintf(stderr, - "warning: point-and-click option passed several times\n"); - must_print_short_usage = true; - break; - } - point_and_click = true; - break; - case 'd': - if (debug) { - fprintf(stderr, - "warning: debug option passed several times\n"); - must_print_short_usage = true; - break; - } - debug = true; - break; - case '?': - must_print_short_usage = true; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(main, "unknown option: %c", c); - print_short_usage(argv[0]); - gregorio_exit(1); - break; - /* LCOV_EXCL_STOP */ - } - } /* end of while */ - if (optind == argc) { - if (!input_file) { /* input not undefined (could be stdin) */ - fprintf(stderr, "%s: missing file operand.\n", argv[0]); - print_short_usage(argv[0]); - gregorio_exit(1); - } - } else { - input_file_name = argv[optind++]; - output_basename = get_base_filename(input_file_name); - if (input_file) { - fprintf(stderr, - "warning: can't read from both stdin and a file, reading from %s\n", - input_file_name); - input_file = NULL; - must_print_short_usage = true; - } - } - if (optind < argc) { - must_print_short_usage = true; - fprintf(stderr, "ignored arguments:"); - for (; optind < argc; ++optind) { - fprintf(stderr, " %s", argv[optind]); - } - fprintf(stderr, "\n"); - } - - if (must_print_short_usage) { - print_short_usage(argv[0]); - fprintf(stderr, "Proceeding anyway...\n"); - } - - gregorio_set_debug_messages(debug); - gregorio_set_deprecation_errors(deprecation_errors); - - if (!input_format) { - input_format = DEFAULT_INPUT_FORMAT; - } - - if (!output_format) { - output_format = DEFAULT_OUTPUT_FORMAT; - } - - /* then we act... */ - - if (!output_file_name && !output_file) { - if (!output_basename) { - output_file = stdout; - } else { - switch (output_format) { - case GABC: - output_file_name = - get_output_filename(output_basename, "gabc"); - break; - case GTEX: - output_file_name = - get_output_filename(output_basename, "gtex"); - break; - case DUMP: - output_file_name = - get_output_filename(output_basename, "dump"); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - fprintf(stderr, "error: unsupported format"); - print_short_usage(argv[0]); - gregorio_exit(1); - /* LCOV_EXCL_STOP */ - } - } - } - - if (output_basename) { - free(output_basename); - } - - if (!output_file) { - if (!input_file) { - check_input_clobber(input_file_name, output_file_name); - } - gregorio_check_file_access(write, output_file_name, ERROR, - gregorio_exit(1)); - output_file = fopen(output_file_name, "wb"); - if (!output_file) { - fprintf(stderr, "error: can't write in file %s", output_file_name); - gregorio_exit(1); - } - } - - /* we always have input_file or input_file_name */ - if (input_file) { - if (point_and_click) { - fprintf(stderr, - "warning: disabling point-and-click since reading from stdin\n"); - } - } else { - gregorio_check_file_access(read, input_file_name, ERROR, - gregorio_exit(1)); - input_file = fopen(input_file_name, "r"); - if (!input_file) { - fprintf(stderr, "error: can't open file %s for reading\n", - input_file_name); - gregorio_exit(1); - } - if (point_and_click) { - point_and_click_filename = encode_point_and_click_filename( - input_file_name); - } - } - - if (!error_file_name) { - error_file = stderr; - gregorio_set_error_out(error_file); - } else { - gregorio_check_file_access(write, error_file_name, ERROR, - gregorio_exit(1)); - error_file = fopen(error_file_name, "wb"); - if (!error_file) { - fprintf(stderr, "error: can't open file %s for writing\n", - error_file_name); - gregorio_exit(1); - } - gregorio_set_error_out(error_file); - } - - if (!verb_mode) { - verb_mode = VERBOSITY_DEPRECATION; - } - - gregorio_set_verbosity_mode(verb_mode); - - switch (input_format) { - case GABC: - score = gabc_read_score(input_file, point_and_click); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - fprintf(stderr, "error : invalid input format\n"); - fclose(input_file); - fclose(output_file); - gregorio_exit(1); - break; - /* LCOV_EXCL_STOP */ - } - - fclose(input_file); - if (score == NULL) { - /* score should never be NULL on return from gabc_read_score */ - /* LCOV_EXCL_START */ - fclose(output_file); - fprintf(stderr, "error in file parsing\n"); - gregorio_exit(1); - /* LCOV_EXCL_STOP */ - } - - switch (output_format) { - case GABC: - gabc_write_score(output_file, score); - break; - case GTEX: - gregoriotex_write_score(output_file, score, point_and_click_filename); - break; - case DUMP: - dump_write_score(output_file, score); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - fprintf(stderr, "error : invalid output format\n"); - gregorio_free_score(score); - fclose(output_file); - gregorio_exit(1); - break; - /* LCOV_EXCL_STOP */ - } - fclose(output_file); - if (point_and_click_filename) { - free(point_and_click_filename); - } - gregorio_free_score(score); - gregorio_vowel_tables_free(); - gabc_score_determination_lex_destroy(); - gabc_notes_determination_lex_destroy(); - gregorio_vowel_rulefile_lex_destroy(); - if (error_file_name) { - fclose(error_file); - } - - gregorio_exit(gregorio_get_return_value()); -} /* due to exit on prior line, this will never be reached; LCOV_EXCL_LINE */ diff --git a/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex-position.c b/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex-position.c deleted file mode 100644 index dd88699392b..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex-position.c +++ /dev/null @@ -1,1750 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file contains the logic for positioning signs on neumes. - * - * Copyright (C) 2008-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. */ - -#include "config.h" -#include <stdlib.h> -#include <assert.h> -#include "bool.h" -#include "struct.h" - -#include "gregoriotex.h" - -/* (loose) naming convention, employing camel case to be TeX-csname-compliant: - * {specific-glyph-shape}{note-position}{note-shape}{first-ambitus}{second-ambitus} - */ -OFFSET_CASE(FinalPunctum); -OFFSET_CASE(FinalDeminutus); -OFFSET_CASE(PenultBeforePunctumWide); -OFFSET_CASE(PenultBeforeDeminutus); -OFFSET_CASE(AntepenultBeforePunctum); -OFFSET_CASE(AntepenultBeforeDeminutus); -OFFSET_CASE(InitialPunctum); -OFFSET_CASE(InitioDebilis); -OFFSET_CASE(PorrNonAuctusInitialWide); -OFFSET_CASE(PorrNonAuctusInitialOne); -OFFSET_CASE(PorrAuctusInitialAny); -OFFSET_CASE(FinalInclinatum); -OFFSET_CASE(FinalInclinatumDeminutus); -OFFSET_CASE(FinalStropha); -OFFSET_CASE(FinalQuilisma); -OFFSET_CASE(FinalOriscus); -OFFSET_CASE(PenultBeforePunctumOne); -OFFSET_CASE(FinalUpperPunctum); -OFFSET_CASE(InitialOriscus); -OFFSET_CASE(InitialQuilisma); -OFFSET_CASE(TorcResNonAuctusSecondWideWide); -OFFSET_CASE(TorcResNonAuctusSecondOneWide); -OFFSET_CASE(TorcResDebilisNonAuctusSecondAnyWide); -OFFSET_CASE(FinalLineaPunctum); -OFFSET_CASE(TorcResQuilismaNonAuctusSecondWideWide); -OFFSET_CASE(TorcResOriscusNonAuctusSecondWideWide); -OFFSET_CASE(TorcResQuilismaNonAuctusSecondOneWide); -OFFSET_CASE(TorcResOriscusNonAuctusSecondOneWide); -OFFSET_CASE(TorcResNonAuctusSecondWideOne); -OFFSET_CASE(TorcResDebilisNonAuctusSecondAnyOne); -OFFSET_CASE(TorcResQuilismaNonAuctusSecondWideOne); -OFFSET_CASE(TorcResOriscusNonAuctusSecondWideOne); -OFFSET_CASE(TorcResNonAuctusSecondOneOne); -OFFSET_CASE(TorcResQuilismaNonAuctusSecondOneOne); -OFFSET_CASE(TorcResOriscusNonAuctusSecondOneOne); -OFFSET_CASE(TorcResAuctusSecondWideAny); -OFFSET_CASE(TorcResDebilisAuctusSecondAnyAny); -OFFSET_CASE(TorcResQuilismaAuctusSecondWideAny); -OFFSET_CASE(TorcResOriscusAuctusSecondWideAny); -OFFSET_CASE(TorcResAuctusSecondOneAny); -OFFSET_CASE(TorcResQuilismaAuctusSecondOneAny); -OFFSET_CASE(TorcResOriscusAuctusSecondOneAny); -OFFSET_CASE(ConnectedPenultBeforePunctumWide); -OFFSET_CASE(ConnectedPenultBeforePunctumOne); -OFFSET_CASE(InitialConnectedPunctum); -OFFSET_CASE(InitialConnectedVirga); -OFFSET_CASE(InitialConnectedQuilisma); -OFFSET_CASE(InitialConnectedOriscus); -OFFSET_CASE(FinalConnectedPunctum); -OFFSET_CASE(FinalConnectedAuctus); -OFFSET_CASE(FinalVirgaAuctus); -OFFSET_CASE(FinalConnectedVirga); -OFFSET_CASE(InitialVirga); -OFFSET_CASE(SalicusOriscusWide); -OFFSET_CASE(SalicusOriscusOne); -OFFSET_CASE(LeadingPunctum); -OFFSET_CASE(LeadingQuilisma); -OFFSET_CASE(LeadingOriscus); -OFFSET_CASE(Flat); -OFFSET_CASE(Sharp); -OFFSET_CASE(Natural); - -static __inline const char *note_before_last_note_case_ignoring_deminutus( - const gregorio_note *const current_note) -{ - assert(current_note->next); - if ((current_note->u.note.pitch - current_note->next->u.note.pitch) == 1 - || (current_note->u.note.pitch - - current_note->next->u.note.pitch) == -1) { - if (!current_note->previous || current_note->u.note.pitch - - current_note->previous->u.note.pitch > 1) { - return ConnectedPenultBeforePunctumOne; - } else { - return PenultBeforePunctumOne; - } - } else { - if (!current_note->previous || current_note->u.note.pitch - - current_note->previous->u.note.pitch > 1) { - return ConnectedPenultBeforePunctumWide; - } else { - return PenultBeforePunctumWide; - } - } -} - -static __inline const char *note_before_last_note_case( - const gregorio_glyph *const current_glyph, - const gregorio_note *const current_note) -{ - if ((current_glyph->u.notes.liquescentia & L_DEMINUTUS) - && current_note->next) { - return PenultBeforeDeminutus; - } else { - return note_before_last_note_case_ignoring_deminutus(current_note); - } -} - -/* num can be FinalPunctum or FinalUpperPunctum according if the last note is a - * standard punctum or a smaller punctum (for pes, porrectus and torculus - * resupinus */ -static __inline const char *last_note_case( - const gregorio_glyph *const current_glyph, const char* offset_pos, - gregorio_note *current_note, bool no_ambitus_one) -{ - if (current_glyph->u.notes.liquescentia & L_DEMINUTUS) { - /* - * may seem strange, but it is unlogical to typeset a small horizontal - * episema at the end of a flexus deminutus - */ - return FinalDeminutus; - } - if (!current_note->previous - || (!no_ambitus_one && (offset_pos == FinalUpperPunctum - || current_note->previous->u.note.pitch - - current_note->u.note.pitch == 1 || - current_note->u.note.pitch - current_note->previous->u.note.pitch - == 1))) { - return offset_pos; - } - if (current_note->previous->u.note.pitch < current_note->u.note.pitch) { - if (current_glyph->u.notes.liquescentia & - (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS)) { - return FinalConnectedAuctus; - } else { - return FinalConnectedVirga; - } - } else { - return FinalConnectedPunctum; - } -} - -static __inline const char *first_note_case( - const gregorio_note *const current_note, - const gregorio_glyph *const current_glyph) -{ - bool ambitus_one = true; - if (current_glyph->u.notes.liquescentia >= L_INITIO_DEBILIS) { - return InitioDebilis; - } else { - if (current_note->next && current_note->next->u.note.pitch - - current_note->u.note.pitch != 1 && - current_note->u.note.pitch - current_note->next->u.note.pitch - != 1) { - ambitus_one = false; - } - switch (current_note->u.note.shape) { - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - return ambitus_one ? InitialOriscus : InitialConnectedOriscus; - - case S_QUILISMA: - return ambitus_one ? InitialQuilisma : InitialConnectedQuilisma; - - default: - if (ambitus_one) { - return InitialPunctum; - } - if (current_note->u.note.pitch > current_note->next->u.note.pitch) { - return InitialConnectedVirga; - } else { - return InitialConnectedPunctum; - } - } - } -} - -static __inline const char *fused_single_note_case( - const gregorio_glyph *const glyph, const char *const unfused_case, - const char *const fused_case) { - int fuse_to_next_glyph = glyph->u.notes.fuse_to_next_glyph; - if (fuse_to_next_glyph < -1 || fuse_to_next_glyph > 1) { - return fused_case; - } - return unfused_case; -} - -static __inline gregorio_vposition below_if_auctus( - const gregorio_glyph *const glyph) -{ - if (glyph->u.notes.liquescentia & - (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS)) { - return VPOS_BELOW; - } - return VPOS_ABOVE; -} - -static __inline gregorio_vposition above_if_h_episema( - const gregorio_note *const note) -{ - if (note && note->h_episema_above) { - return VPOS_ABOVE; - } - return VPOS_BELOW; -} - -static __inline gregorio_vposition above_if_fused_next_h_episema( - const gregorio_glyph *glyph) -{ - const gregorio_glyph *next = gregorio_next_non_texverb_glyph(glyph); - gregorio_assert(next && next->type == GRE_GLYPH - && is_fused(next->u.notes.liquescentia), - above_if_fused_next_h_episema, - "expected this glyph to be fused to the next one", - return VPOS_BELOW); - return above_if_h_episema(next->u.notes.first_note); -} - -static __inline gregorio_vposition above_if_either_h_episema( - const gregorio_note *const note) -{ - if ((note->previous && note->previous->h_episema_above) - || (note->next && note->next->h_episema_above)) { - return VPOS_ABOVE; - } - return VPOS_BELOW; -} - -static __inline gregorio_vposition below_if_next_ambitus_allows( - const gregorio_note *const note) -{ - assert(note->next); - - if (!note->next || note->u.note.pitch - note->next->u.note.pitch > 2) { - return VPOS_BELOW; - } - return VPOS_ABOVE; -} - -static __inline void low_high_set_lower(const gregorio_glyph *const glyph, - gregorio_note *const note) -{ - if ((glyph->u.notes.liquescentia & L_DEMINUTUS) || - !(glyph->u.notes.liquescentia - & (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS))) { - note->is_lower_note = true; - } -} - -static __inline void low_high_set_upper(const gregorio_glyph *const glyph, - gregorio_note *const note) -{ - if ((glyph->u.notes.liquescentia & L_DEMINUTUS) || - !(glyph->u.notes.liquescentia - & (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS))) { - note->is_upper_note = true; - } -} - -static __inline void high_low_set_upper(const gregorio_glyph *const glyph, - gregorio_note *const note) -{ - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - note->is_upper_note = true; - } -} - -static __inline void high_low_set_lower(const gregorio_glyph *const glyph, - gregorio_note *const note) -{ - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - note->is_lower_note = true; - } -} - -/* a function that finds the good sign (additional line, vepisema or - * hepisema) number, according to the gregoriotex convention (described in - * gregoriotex.tex) - * this function is REALLY a pain in the ass, but it is sadly necessary */ -/* - * - * For the first note of a porrectus (flexus), this table summarizes the sign - * number (amb2 is the ambitus after the diagonal stroke): - * - * Porrectus | Porrectus | Porrectus | Porrectus - * non-auctus | non-auctus | auctus | Flexus - * amb2=1 | amb2>1 | | - * =================|=================|==============|============== - * PorrNonAuctus | PorrNonAuctus | PorrAuctus | PorrAuctus - * ~InitialOne | ~InitialWide | ~InitialAny | ~InitialAny - * - * For the second note of a torculus resupinus (flexus), this table summarizes - * the number (amb1 is the ambitus before the diagonal stroke and amb2 is the - * ambitus after the diagonal stroke): - * - * | | Torculus | Torculus | Torculus | Torculus - * | | Resupinus | Resupinus | Resupinus | Resupinus - * | Initial | non-auctus | non-auctus | auctus | Flexus - * amb1 | Note | amb2=1 | amb2>1 | | - * ======|============|=============|=============|============|============ - * 1 | Punctum | TorcRes | TorcRes | TorcRes | TorcRes - * | | ~NonAuctus | ~NonAuctus | ~Auctus | ~Auctus - * | | ~Second | ~Second | ~Second | ~Second - * | | ~OneOne | ~OneWide | ~OneAny | ~OneAny - * ------+------------+-------------+-------------+------------+------------ - * 1 | I. Debilis | TorcRes | TorcRes | TorcRes | TorcRes - * | | ~Debilis | ~Debilis | ~Debilis | ~Debilis - * | | ~NonAuctus | ~NonAuctus | ~Auctus | ~Auctus - * | | ~Second | ~Second | ~Second | ~Second - * | | ~AnyOne | ~AnyWide | ~AnyAny | ~AnyAny - * ------+------------+-------------+-------------+------------+------------ - * 1 | Quilisma | TorcRes | TorcRes | TorcRes | TorcRes - * | | ~Quilisma | ~Quilisma | ~Quilisma | ~Quilisma - * | | ~NonAuctus | ~NonAuctus | ~Auctus | ~Auctus - * | | ~Second | ~Second | ~Second | ~Second - * | | ~OneOne | ~OneWide | ~OneAny | ~OneAny - * ------+------------+-------------+-------------+------------+------------ - * 1 | Oriscus | TorcRes | TorcRes | TorcRes | TorcRes - * | | ~Oriscus | ~Oriscus | ~Oriscus | ~Oriscus - * | | ~NonAuctus | ~NonAuctus | ~Auctus | ~Auctus - * | | ~Second | ~Second | ~Second | ~Second - * | | ~OneOne | ~OneWide | ~OneAny | ~OneAny - * ======|============|=============|=============|============|============ - * >1 | Punctum | TorcRes | TorcRes | TorcRes | TorcRes - * | | ~NonAuctus | ~NonAuctus | ~Auctus | ~Auctus - * | | ~Second | ~Second | ~Second | ~Second - * | | ~WideOne | ~WideWide | ~WideAny | ~WideAny - * ------+------------+-------------+-------------+------------+------------ - * >1 | I. Debilis | TorcRes | TorcRes | TorcRes | TorcRes - * | | ~Debilis | ~Debilis | ~Debilis | ~Debilis - * | | ~NonAuctus | ~NonAuctus | ~Auctus | ~Auctus - * | | ~Second | ~Second | ~Second | ~Second - * | | ~AnyOne | ~AnyWide | ~AnyAny | ~AnyAny - * ------+------------+-------------+-------------+------------+------------ - * >1 | Quilisma | TorcRes | TorcRes | TorcRes | TorcRes - * | | ~Quilisma | ~Quilisma | ~Quilisma | ~Quilisma - * | | ~NonAuctus | ~NonAuctus | ~Auctus | ~Auctus - * | | ~Second | ~Second | ~Second | ~Second - * | | ~WideOne | ~WideWide | ~WideAny | ~WideAny - * ------+------------+-------------+-------------+------------+------------ - * >1 | Oriscus | TorcRes | TorcRes | TorcRes | TorcRes - * | | ~Oriscus | ~Oriscus | ~Oriscus | ~Oriscus - * | | ~NonAuctus | ~NonAuctus | ~Auctus | ~Auctus - * | | ~Second | ~Second | ~Second | ~Second - * | | ~WideOne | ~WideWide | ~WideAny | ~WideAny - * - */ -static gregorio_vposition advise_positioning(const gregorio_glyph *const glyph, - gregorio_note *const note, int i, const gtex_type type) -{ - gregorio_vposition h_episema = VPOS_AUTO, v_episema = VPOS_AUTO; - bool v_episema_below_is_lower = false, done; - const gregorio_glyph *previous; - - /* no need to clear is_lower_note/is_upper_note because we used calloc */ - - switch (type) { - case T_PES: - case T_QUILISMA_PES: - /* - * in the case of a pes, we put the episema just under the bottom note - */ - if (i == 1) { - if (glyph->u.notes.liquescentia & L_INITIO_DEBILIS) { - note->gtex_offset_case = InitioDebilis; - h_episema = above_if_h_episema(note->next); - } else { - note->is_lower_note = true; - if (note->u.note.shape == S_QUILISMA) { - note->gtex_offset_case = FinalQuilisma; - } else { - note->gtex_offset_case = FinalPunctum; - } - h_episema = VPOS_BELOW; - } - v_episema = VPOS_BELOW; - } else { /* i=2 */ - if (!(glyph->u.notes.liquescentia & L_INITIO_DEBILIS)) { - note->is_upper_note = true; - } - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - note->gtex_offset_case = FinalDeminutus; - } else { - note->gtex_offset_case = FinalUpperPunctum; - } - h_episema = VPOS_ABOVE; - v_episema = below_if_auctus(glyph); - } - break; - case T_PES_QUADRATUM: - case T_PES_QUASSUS: - case T_QUILISMA_PES_QUADRATUM: - if (i == 1) { - note->gtex_offset_case = first_note_case(note, glyph); - h_episema = above_if_h_episema(note->next); - v_episema = VPOS_BELOW; - } else { /* i=2 */ - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - note->gtex_offset_case = InitioDebilis; - } else { - note->gtex_offset_case = last_note_case(glyph, FinalPunctum, - note, true); - } - h_episema = VPOS_ABOVE; - v_episema = VPOS_BELOW; - } - break; - case T_FLEXUS: - case T_FLEXUS_ORISCUS: - if (i == 1) { - high_low_set_upper(glyph, note); - if (type == T_FLEXUS_ORISCUS) { - note->gtex_offset_case = InitialConnectedOriscus; - } else { - if (note->next && note->u.note.pitch - - note->next->u.note.pitch == 1) { - note->gtex_offset_case = InitialVirga; - } else { - note->gtex_offset_case = InitialConnectedVirga; - } - } - h_episema = VPOS_ABOVE; - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - v_episema = below_if_next_ambitus_allows(note); - } else { - v_episema = VPOS_BELOW; - } - } else { /* i=2 */ - high_low_set_lower(glyph, note); - note->gtex_offset_case = last_note_case(glyph, FinalPunctum, note, - false); - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - h_episema = VPOS_BELOW; - } else { - h_episema = above_if_h_episema(note->previous); - } - v_episema = VPOS_BELOW; - } - break; - case T_TORCULUS_RESUPINUS_FLEXUS: - done = true; - switch (i) { - case 1: - note->gtex_offset_case = first_note_case(note, glyph); - h_episema = above_if_h_episema(note->next); - v_episema = VPOS_BELOW; - break; - case HEPISEMA_FIRST_TWO: - case 2: - if (glyph->u.notes.liquescentia & L_INITIO_DEBILIS) { - note->gtex_offset_case = TorcResDebilisAuctusSecondAnyAny; - } else { - if (note->u.note.pitch - note->previous->u.note.pitch == 1) { - switch (note->previous->u.note.shape) { - case S_QUILISMA: - note->gtex_offset_case = - TorcResQuilismaAuctusSecondOneAny; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - note->gtex_offset_case = - TorcResOriscusAuctusSecondOneAny; - break; - default: - note->gtex_offset_case = TorcResAuctusSecondOneAny; - break; - } - } else { - switch (note->previous->u.note.shape) { - case S_QUILISMA: - note->gtex_offset_case = - TorcResQuilismaAuctusSecondWideAny; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - note->gtex_offset_case = - TorcResOriscusAuctusSecondWideAny; - break; - default: - note->gtex_offset_case = TorcResAuctusSecondWideAny; - break; - } - } - } - h_episema = VPOS_ABOVE; - v_episema = VPOS_BELOW; - v_episema_below_is_lower = true; - break; - default: - --i; - done = false; - break; - } - - if (done) { - break; - } - /* else fallthrough to the next case! */ - case T_PORRECTUS_FLEXUS: - switch (i) { - case HEPISEMA_FIRST_TWO: - case 1: - note->gtex_offset_case = PorrAuctusInitialAny; - h_episema = VPOS_ABOVE; - v_episema = VPOS_BELOW; - v_episema_below_is_lower = true; - break; - case 2: - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - note->gtex_offset_case = AntepenultBeforeDeminutus; - } else { - note->gtex_offset_case = AntepenultBeforePunctum; - } - h_episema = above_if_either_h_episema(note); - v_episema = VPOS_BELOW; - break; - case 3: - high_low_set_upper(glyph, note); - h_episema = VPOS_ABOVE; - if ((glyph->u.notes.liquescentia & L_DEMINUTUS) && note->next) { - v_episema = below_if_next_ambitus_allows(note); - note->gtex_offset_case = PenultBeforeDeminutus; - } else { - v_episema = VPOS_BELOW; - note->gtex_offset_case = note_before_last_note_case(glyph, - note); - } - break; - default: - high_low_set_lower(glyph, note); - note->gtex_offset_case = last_note_case(glyph, FinalPunctum, note, - false); - h_episema = above_if_h_episema(note->previous); - v_episema = VPOS_BELOW; - break; - } - break; - case T_TORCULUS_RESUPINUS: - done = true; - switch (i) { - case 1: - note->gtex_offset_case = first_note_case(note, glyph); - h_episema = above_if_h_episema(note->next); - v_episema = VPOS_BELOW; - break; - case HEPISEMA_FIRST_TWO: - case 2: - if (glyph->u.notes.liquescentia & - (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS)) { - /* auctus */ - if (glyph->u.notes.liquescentia & L_INITIO_DEBILIS) { - note->gtex_offset_case = TorcResDebilisAuctusSecondAnyAny; - } else { - if (note->u.note.pitch - - note->previous->u.note.pitch == 1) { - switch (note->previous->u.note.shape) { - case S_QUILISMA: - note->gtex_offset_case = - TorcResQuilismaAuctusSecondOneAny; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - note->gtex_offset_case = - TorcResOriscusAuctusSecondOneAny; - break; - default: - note->gtex_offset_case = TorcResAuctusSecondOneAny; - break; - } - } else { - switch (note->previous->u.note.shape) { - case S_QUILISMA: - note->gtex_offset_case = - TorcResQuilismaAuctusSecondWideAny; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - note->gtex_offset_case = - TorcResOriscusAuctusSecondWideAny; - break; - default: - note->gtex_offset_case = TorcResAuctusSecondWideAny; - break; - } - } - } - } else if (note->next->next->u.note.pitch - - note->next->u.note.pitch == 1) { - /* non-auctus with a second ambitus of 1 */ - if (glyph->u.notes.liquescentia & L_INITIO_DEBILIS) { - note->gtex_offset_case = - TorcResDebilisNonAuctusSecondAnyOne; - } else { - if (note->u.note.pitch - - note->previous->u.note.pitch == 1) { - switch (note->previous->u.note.shape) { - case S_QUILISMA: - note->gtex_offset_case = - TorcResQuilismaNonAuctusSecondOneOne; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - note->gtex_offset_case = - TorcResOriscusNonAuctusSecondOneOne; - break; - default: - note->gtex_offset_case = - TorcResNonAuctusSecondOneOne; - break; - } - } else { - switch (note->previous->u.note.shape) { - case S_QUILISMA: - note->gtex_offset_case = - TorcResQuilismaNonAuctusSecondWideOne; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - note->gtex_offset_case = - TorcResOriscusNonAuctusSecondWideOne; - break; - default: - note->gtex_offset_case = - TorcResNonAuctusSecondWideOne; - break; - } - } - } - } else { - /* non-auctus with a second ambitus of at least 2 */ - if (glyph->u.notes.liquescentia & L_INITIO_DEBILIS) { - note->gtex_offset_case = - TorcResDebilisNonAuctusSecondAnyWide; - } else { - if (note->u.note.pitch - - note->previous->u.note.pitch == 1) { - switch (note->previous->u.note.shape) { - case S_QUILISMA: - note->gtex_offset_case = - TorcResQuilismaNonAuctusSecondOneWide; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - note->gtex_offset_case = - TorcResOriscusNonAuctusSecondOneWide; - break; - default: - note->gtex_offset_case = - TorcResNonAuctusSecondOneWide; - break; - } - } else { - switch (note->previous->u.note.shape) { - case S_QUILISMA: - note->gtex_offset_case = - TorcResQuilismaNonAuctusSecondWideWide; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - note->gtex_offset_case = - TorcResOriscusNonAuctusSecondWideWide; - break; - default: - note->gtex_offset_case = - TorcResNonAuctusSecondWideWide; - break; - } - } - } - } - h_episema = VPOS_ABOVE; - v_episema = VPOS_BELOW; - v_episema_below_is_lower = true; - break; - default: - --i; - done = false; - break; - } - - if (done) { - break; - } - /* else fallthrough to the next case! */ - case T_PORRECTUS: /* or porrectus-like flexus */ - switch (i) { - case HEPISEMA_FIRST_TWO: - case 1: - if (glyph->u.notes.fuse_to_next_glyph || - (glyph->u.notes.liquescentia - & (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS))) { - /* auctus */ - note->gtex_offset_case = PorrAuctusInitialAny; - } else if (note->next->next->u.note.pitch - - note->next->u.note.pitch == 1) { - /* non-auctus with a second ambitus of 1 */ - note->gtex_offset_case = PorrNonAuctusInitialOne; - } else { - /* non-auctus with a second ambitus of at least 2 */ - note->gtex_offset_case = PorrNonAuctusInitialWide; - } - h_episema = VPOS_ABOVE; - v_episema = VPOS_BELOW; - v_episema_below_is_lower = true; - break; - case 2: - low_high_set_lower(glyph, note); - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - note->gtex_offset_case = PenultBeforeDeminutus; - } else if (glyph->u.notes.liquescentia - & (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS)) { - note->gtex_offset_case = PenultBeforePunctumWide; - } else { - note->gtex_offset_case = FinalPunctum; - } - h_episema = above_if_h_episema(note->previous); - if (h_episema == VPOS_BELOW && !note->next) { - /* handle porrectus-like flexus */ - h_episema = above_if_fused_next_h_episema(glyph); - } - v_episema = VPOS_BELOW; - break; - default: /* case 3 */ - low_high_set_upper(glyph, note); - note->gtex_offset_case = last_note_case(glyph, FinalUpperPunctum, - note, true); - h_episema = VPOS_ABOVE; - v_episema = below_if_auctus(glyph); - break; - } - break; - case T_SCANDICUS: - switch (i) { - case 1: - note->gtex_offset_case = first_note_case(note, glyph); - h_episema = VPOS_BELOW; - v_episema = VPOS_BELOW; - break; - case 2: - low_high_set_lower(glyph, note); - if (note->u.note.pitch - note->previous->u.note.pitch == 1) { - note->gtex_offset_case = FinalPunctum; - } else { - note->gtex_offset_case = FinalConnectedPunctum; - } - h_episema = VPOS_BELOW; - v_episema = VPOS_BELOW; - break; - default: - low_high_set_upper(glyph, note); - note->gtex_offset_case = last_note_case(glyph, FinalPunctum, note, - true); - h_episema = VPOS_ABOVE; - v_episema = VPOS_BELOW; - break; - } - break; - case T_SALICUS_FLEXUS: - done = true; - v_episema = VPOS_BELOW; - switch (i) { - case 3: - note->gtex_offset_case = note_before_last_note_case(glyph, note); - h_episema = VPOS_ABOVE; - break; - case 4: - note->gtex_offset_case = last_note_case(glyph, FinalPunctum, note, - false); - h_episema = VPOS_BELOW; - break; - default: - done = false; - break; - } - if (done) { - break; - } - /* else fallthrough to the next case! */ - case T_SALICUS: - v_episema = VPOS_BELOW; - switch (i) { - case 1: - note->gtex_offset_case = InitialConnectedPunctum; - h_episema = above_if_h_episema(note->next); - break; - case 2: - if (note->next->u.note.pitch - note->u.note.pitch == 1) { - note->gtex_offset_case = SalicusOriscusOne; - } else { - note->gtex_offset_case = SalicusOriscusWide; - } - h_episema = VPOS_ABOVE; - break; - default: - note->gtex_offset_case = last_note_case(glyph, FinalPunctum, note, - false); - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - v_episema = VPOS_ABOVE; - } - h_episema = VPOS_ABOVE; - break; - } - break; - case T_TORCULUS_LIQUESCENS: - done = true; - switch (i) { - case 1: - note->gtex_offset_case = first_note_case(note, glyph); - h_episema = above_if_h_episema(note->next); - v_episema = VPOS_BELOW; - break; - case 2: - note->gtex_offset_case = - note_before_last_note_case_ignoring_deminutus(note); - h_episema = VPOS_ABOVE; - v_episema = VPOS_BELOW; - break; - default: - --i; - done = false; - break; - } - - if (done) { - break; - } - /* else fallthrough to the next case! */ - case T_ANCUS: - switch (i) { - case 1: - note->gtex_offset_case = first_note_case(note, glyph); - h_episema = above_if_h_episema(note->next); - v_episema = VPOS_BELOW; - break; - case 2: - note->is_upper_note = true; - note->gtex_offset_case = note_before_last_note_case(glyph, note); - h_episema = VPOS_ABOVE; - v_episema = below_if_next_ambitus_allows(note); - break; - default: - note->is_lower_note = true; - note->gtex_offset_case = last_note_case(glyph, FinalPunctum, note, - false); - h_episema = VPOS_BELOW; - v_episema = VPOS_BELOW; - break; - } - break; - case T_TORCULUS: - switch (i) { - case 1: - note->gtex_offset_case = first_note_case(note, glyph); - h_episema = above_if_h_episema(note->next); - v_episema = VPOS_BELOW; - break; - case 2: - high_low_set_upper(glyph, note); - note->gtex_offset_case = note_before_last_note_case(glyph, note); - h_episema = VPOS_ABOVE; - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - v_episema = below_if_next_ambitus_allows(note); - } else { - v_episema = VPOS_BELOW; - } - break; - default: - high_low_set_lower(glyph, note); - note->gtex_offset_case = last_note_case(glyph, FinalPunctum, note, - false); - h_episema = above_if_h_episema(note->previous); - v_episema = VPOS_BELOW; - break; - } - break; - default: /* case T_ONE_NOTE */ - previous = gregorio_previous_non_texverb_glyph(glyph); - if ((!previous || previous->type != GRE_GLYPH - || previous->u.notes.fuse_to_next_glyph < 0) - && (glyph->u.notes.fuse_to_next_glyph > 0)) { - h_episema = above_if_fused_next_h_episema(glyph); - } else { - h_episema = VPOS_ABOVE; - } - v_episema = VPOS_BELOW; - switch (note->u.note.shape) { - case S_PUNCTUM_INCLINATUM_DEMINUTUS: - note->gtex_offset_case = FinalInclinatumDeminutus; - break; - case S_PUNCTUM_INCLINATUM_AUCTUS: - case S_PUNCTUM_INCLINATUM_ASCENDENS: - case S_PUNCTUM_INCLINATUM_DESCENDENS: - note->gtex_offset_case = FinalInclinatum; - break; - case S_STROPHA: - note->gtex_offset_case = FinalStropha; - break; - case S_QUILISMA: - note->gtex_offset_case = fused_single_note_case(glyph, - FinalQuilisma, LeadingQuilisma); - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - case S_ORISCUS_DEMINUTUS: - note->gtex_offset_case = fused_single_note_case(glyph, FinalOriscus, - LeadingOriscus); - break; - case S_VIRGA: - note->gtex_offset_case = InitialVirga; - break; - case S_VIRGA_REVERSA: - if (glyph->u.notes.liquescentia == L_AUCTUS_DESCENDENS) { - note->gtex_offset_case = FinalVirgaAuctus; - } else { - note->gtex_offset_case = InitialVirga; - } - break; - case S_LINEA_PUNCTUM: - note->gtex_offset_case = FinalLineaPunctum; - break; - case S_LINEA: - note->gtex_offset_case = FinalPunctum; - break; - case S_FLAT: - note->gtex_offset_case = Flat; - break; - case S_SHARP: - note->gtex_offset_case = Sharp; - break; - case S_NATURAL: - note->gtex_offset_case = Natural; - break; - default: - note->gtex_offset_case = last_note_case(glyph, - fused_single_note_case(glyph, FinalPunctum, LeadingPunctum), - note, true); - break; - } - break; - } - - if (note->signs & _V_EPISEMA) { - if (note->v_episema_height) { - if (note->v_episema_height > note->u.note.pitch) { - /* above is always higher because of GregorioTeX's design */ - note->v_episema_height += (int)VPOS_ABOVE; - } - } - else { - note->v_episema_height = note->u.note.pitch + (int)v_episema; - if ((v_episema == VPOS_BELOW && v_episema_below_is_lower) - || v_episema == VPOS_ABOVE) { - /* above is always higher because of GregorioTeX's design */ - note->v_episema_height += (int)v_episema; - } - } - } - - return h_episema; -} - -static __inline char compute_h_episema_height( - const gregorio_glyph *const glyph, const gregorio_note *const note, - const gregorio_vposition vpos) -{ - char height = note->u.note.pitch; - - if (note->signs & _V_EPISEMA) { - if ((vpos == VPOS_ABOVE && note->v_episema_height >= height) - || (vpos == VPOS_BELOW && note->v_episema_height <= height)) { - height = note->v_episema_height; - } - } - - if (vpos == VPOS_ABOVE && note->choral_sign - && !choral_sign_here_is_low(glyph, note, NULL)) { - ++height; - if (!is_on_a_line(note->u.note.pitch)) { - ++height; - } - } - - return height + (int)vpos; -} - -static bool is_bridgeable_space(const gregorio_element *const element) -{ - if (element->type == GRE_SPACE) { - switch (element->u.misc.unpitched.info.space) { - case SP_NEUMATIC_CUT: - case SP_LARGER_SPACE: - case SP_NEUMATIC_CUT_NB: - case SP_LARGER_SPACE_NB: - return true; - default: - /* do nothing */ - break; - } - } - - return false; -} - -typedef struct height_computation { - const gregorio_vposition vpos; - const gregorio_sign_orientation orientation; - bool (*const is_applicable)(const gregorio_note *); - bool (*const is_shown)(const gregorio_note *); - bool (*const is_connected)(const gregorio_note *); - grehepisema_size (*const get_size)(const gregorio_note *); - bool (*const is_better_height)(signed char, signed char); - void (*const position)(gregorio_note *, signed char, bool); - - bool active; - char height; - bool connected; - const gregorio_element *start_element; - const gregorio_glyph *start_glyph; - gregorio_note *start_note; - const gregorio_element *last_connected_element; - const gregorio_glyph *last_connected_glyph; - gregorio_note *last_connected_note; - unsigned short adjustment_index; -} height_computation; - -static bool is_h_episema_above_applicable(const gregorio_note *const note) -{ - return note->h_episema_above || !note->is_lower_note; -} - -static bool is_h_episema_below_applicable(const gregorio_note *const note) -{ - return note->h_episema_below || !note->is_upper_note; -} - -bool gtex_is_h_episema_above_shown(const gregorio_note *const note) -{ - return note->h_episema_above; -} - -bool gtex_is_h_episema_below_shown(const gregorio_note *const note) -{ - return note->h_episema_below; -} - -static bool is_h_episema_above_connected(const gregorio_note *const note) -{ - return note->h_episema_above_connect; -} - -static bool is_h_episema_below_connected(const gregorio_note *const note) -{ - return note->h_episema_below_connect; -} - -static grehepisema_size get_h_episema_above_size( - const gregorio_note *const note) -{ - return note->h_episema_above_size; -} - -static grehepisema_size get_h_episema_below_size( - const gregorio_note *const note) -{ - return note->h_episema_below_size; -} - -static bool is_h_episema_above_better_height(const signed char new_height, - const signed char old_height) -{ - return new_height > old_height; -} - -static bool is_h_episema_below_better_height(const signed char new_height, - const signed char old_height) -{ - return new_height < old_height; -} - -static void adjust_h_episema_above_if_better(gregorio_note *const note, - signed char potential_height) -{ - if (is_h_episema_above_better_height(potential_height, - note->h_episema_above)) { - note->h_episema_above = potential_height; - } -} - -static void adjust_h_episema_below_if_better(gregorio_note *const note, - signed char potential_height) -{ - if (is_h_episema_below_better_height(potential_height, - note->h_episema_below)) { - note->h_episema_below = potential_height; - } -} - -static __inline bool has_high_ledger_line(const signed char height, - bool is_sign, const gregorio_score *const score) -{ - if (is_sign) { - return height > score->high_ledger_line_pitch; - } - return height >= score->high_ledger_line_pitch; -} - -static __inline bool has_low_ledger_line(const signed char height, bool is_sign) -{ - if (is_sign) { - return height < LOW_LEDGER_LINE_PITCH; - } - return height <= LOW_LEDGER_LINE_PITCH; -} - -static __inline void start_h_episema(height_computation *const h, - const gregorio_element *const element, - const gregorio_glyph *const glyph, gregorio_note *const note) -{ - h->start_element = element; - h->start_glyph = glyph; - h->start_note = note; - h->active = true; - h->height = compute_h_episema_height(glyph, note, h->vpos); -} - -static __inline void position_h_episema(gregorio_note *const note, - const height_computation *const h, const bool connect, - const bool high_ledger_line, const bool low_ledger_line) -{ - const unsigned short adjustment_index = - note->he_adjustment_index[h->orientation]; - - h->position(note, h->height, connect); - if (adjustment_index) { - gregorio_hepisema_adjustment *adj = gregorio_get_hepisema_adjustment( - adjustment_index); - if (adj->pitch_extremum == NO_PITCH - || h->is_better_height(h->height, adj->pitch_extremum)) { - adj->pitch_extremum = h->height; - } - } - if (!note->high_ledger_specificity && !note->high_ledger_line) { - note->high_ledger_line = high_ledger_line; - } - if (!note->low_ledger_specificity && !note->low_ledger_line) { - note->low_ledger_line = low_ledger_line; - } -} - -static __inline void next_has_ledger_line( - const height_computation *const h, bool *high_ledger_line, - bool *low_ledger_line) -{ - const gregorio_element *element = h->last_connected_element; - const gregorio_glyph *glyph = h->last_connected_glyph; - gregorio_note *note = h->last_connected_note; - bool eat_upper_note = note->is_lower_note, keep_going = false; - - if (!*high_ledger_line || !*low_ledger_line) { - /* going forwards, we must iterate through any lower notes */ - do { - note = note->next; - if (!note) { - do { - glyph = glyph->next; - if (!glyph) { - do { - element = element->next; - if (!element) { - return; - } - } while (element->type != GRE_ELEMENT); - glyph = element->u.first_glyph; - } - } while (glyph->type != GRE_GLYPH); - note = glyph->u.notes.first_note; - } - - *high_ledger_line = *high_ledger_line || note->high_ledger_line; - *low_ledger_line = *low_ledger_line || note->low_ledger_line; - - if (keep_going) { - keep_going = false; - } - if (eat_upper_note && note->is_upper_note) { - eat_upper_note = false; - keep_going = true; - } - } while ((!*high_ledger_line || !*low_ledger_line) - && (note->is_lower_note || keep_going)); - } -} - -static __inline void previous_has_ledger_line( - const height_computation *const h, bool *high_ledger_line, - bool *low_ledger_line) -{ - const gregorio_element *element = h->start_element; - const gregorio_glyph *glyph = h->start_glyph; - gregorio_note *note = h->start_note; - bool eat_lower_note = note->is_upper_note, keep_going = false; - - if (!*high_ledger_line || !*low_ledger_line) { - /* going backwards, we must iterate through any upper notes */ - do { - note = note->previous; - if (!note) { - do { - glyph = glyph->previous; - if (!glyph) { - do { - element = element->previous; - if (!element) { - return; - } - } while (element->type != GRE_ELEMENT); - for (glyph = element->u.first_glyph; glyph->next; - glyph = glyph->next) { - /* just iterate to find the last glyph */ - } - } - } while (glyph->type != GRE_GLYPH); - note = gregorio_glyph_last_note(glyph); - } - *high_ledger_line = *high_ledger_line || note->high_ledger_line; - *low_ledger_line = *low_ledger_line || note->low_ledger_line; - - if (keep_going) { - keep_going = false; - } - if (eat_lower_note && note->is_lower_note) { - eat_lower_note = false; - keep_going = true; - } - } while ((!*high_ledger_line || !*low_ledger_line) - && (note->is_upper_note || keep_going)); - } -} - -static __inline void set_h_episema_height(const height_computation *const h, - gregorio_note *const end, const gregorio_score *const score) -{ - gregorio_note *last_note = NULL; - - const gregorio_element *element = h->start_element; - const gregorio_glyph *glyph = h->start_glyph; - gregorio_note *note = h->start_note; - - bool high_ledger_line = has_high_ledger_line(h->height, true, score) - || has_high_ledger_line(h->height - h->vpos, false, score); - bool low_ledger_line = has_low_ledger_line(h->height, true) - || has_low_ledger_line(h->height - h->vpos, false); - - next_has_ledger_line(h, &high_ledger_line, &low_ledger_line); - previous_has_ledger_line(h, &high_ledger_line, &low_ledger_line); - - for ( ; element; element = element->next) { - if (element->type == GRE_ELEMENT) { - for (glyph = glyph? glyph : element->u.first_glyph; glyph; - glyph = glyph->next) { - if (glyph && glyph->type == GRE_GLYPH) { - for (note = note? note : glyph->u.notes.first_note; note; - note = note->next) { - if (end && note == end) { - if (last_note) { - position_h_episema(last_note, h, false, - high_ledger_line, low_ledger_line); - } - return; - } - if (h->is_applicable(note)) { - position_h_episema(note, h, true, high_ledger_line, - low_ledger_line); - last_note = note; - } - } - } - } - } else if (!is_bridgeable_space(element)) { - break; - } - } - - if (last_note) { - position_h_episema(last_note, h, false, high_ledger_line, - low_ledger_line); - } -} - -static __inline bool is_connected_left(const grehepisema_size size) { - return size == H_NORMAL || size == H_SMALL_LEFT; -} - -static __inline bool is_connected_right(const grehepisema_size size) { - return size == H_NORMAL || size == H_SMALL_RIGHT; -} - -static __inline bool is_connectable_interglyph_ambitus(const signed char first, - const signed char second) -{ - return abs(first - second) < 3; -} - -static __inline bool is_connectable_interglyph_notes( - const gregorio_note *const first, const gregorio_note *const second) -{ - return first && second && is_connectable_interglyph_ambitus( - first->u.note.pitch, second->u.note.pitch); -} - -static __inline bool has_space_to_left(const gregorio_note *const note) { - switch (note->u.note.shape) { - case S_PUNCTUM_INCLINATUM_ASCENDENS: - case S_PUNCTUM_INCLINATUM_DESCENDENS: - case S_PUNCTUM_INCLINATUM_DEMINUTUS: - case S_PUNCTUM_INCLINATUM_AUCTUS: - return !is_connectable_interglyph_notes(note->previous, note); - - default: - return !note->previous; - } -} - -static __inline void end_h_episema(height_computation *const h, - gregorio_note *const end, const gregorio_score *const score) -{ - signed char proposed_height; - - if (h->active) { - /* don't let the episema clash with the note before or after */ - if (is_connected_left(h->get_size(h->start_note))) { - if (h->start_note->previous) { - if (!has_space_to_left(h->start_note) - && h->start_note->previous->type == GRE_NOTE - && is_connected_right(h->get_size( - h->start_note->previous))) { - proposed_height = h->start_note->previous->u.note.pitch + h->vpos; - if (h->is_better_height(proposed_height, h->height)) { - h->height = proposed_height; - } - } - } else { - const gregorio_glyph *previous = - gregorio_previous_non_texverb_glyph(h->start_glyph); - if (previous && previous->type == GRE_GLYPH - && is_fused(h->start_glyph->u.notes.liquescentia)) { - gregorio_note *note = gregorio_glyph_last_note( - h->start_glyph->previous); - if (note->type == GRE_NOTE - && is_connected_right(h->get_size(note))) { - proposed_height = note->u.note.pitch + h->vpos; - if (h->is_better_height(proposed_height, h->height)) { - h->height = proposed_height; - } - } - } - } - } - if (end && end->type == GRE_NOTE && is_connected_left(h->get_size(end)) - && !(end->u.note.liquescentia & L_DEMINUTUS) - && h->last_connected_note - && is_connected_right(h->get_size(h->last_connected_note))) { - if (h->last_connected_note->next) { - if (h->last_connected_note->next->type == GRE_NOTE - && !has_space_to_left(h->last_connected_note->next)) { - gregorio_note *note; - /* this loop checks that it's within the same glyph */ - for (note = end->previous; note; note = note->previous) { - if (note == h->start_note) { - proposed_height = end->u.note.pitch + h->vpos; - if (h->is_better_height(proposed_height, - h->height)) { - h->height = proposed_height; - } - break; - } - } - } - } else if (is_fused(end->u.note.liquescentia) && !end->previous) { - proposed_height = end->u.note.pitch + h->vpos; - if (h->is_better_height(proposed_height, h->height)) { - h->height = proposed_height; - } - } - } - - set_h_episema_height(h, end, score); - - h->active = false; - h->height = 0; - h->connected = false; - h->start_element = NULL; - h->start_glyph = NULL; - h->start_note = NULL; - h->last_connected_element = NULL; - h->last_connected_glyph = NULL; - h->last_connected_note = NULL; - } -} - -static __inline void compute_h_episema(height_computation *const h, - const gregorio_element *const element, - const gregorio_glyph *const glyph, gregorio_note *const note, - const int i, const gtex_type type, const gregorio_score *const score) -{ - grehepisema_size size; - - if (h->is_applicable(note)) { - if (h->is_shown(note)) { - size = h->get_size(note); - - if (h->active) { - const signed char next_height = compute_h_episema_height( - glyph, note, h->vpos); - if (h->connected && is_connected_left(size) - && (i != 1 || is_connectable_interglyph_ambitus( - next_height, h->height))) { - if (h->is_better_height(next_height, h->height)) { - h->height = next_height; - } - } - else { - end_h_episema(h, note, score); - start_h_episema(h, element, glyph, note); - } - } else { - start_h_episema(h, element, glyph, note); - } - - h->connected = h->is_connected(note) && is_connected_right(size); - h->last_connected_element = element; - h->last_connected_glyph = glyph; - h->last_connected_note = note; - } else { - end_h_episema(h, note, score); - } - } else if (!h->is_shown(note)) { - /* special handling for porrectus shapes because of their shape: - * the lower note of the porrectus stroke is normally not applicable, - * but we have to end the episema on the upper note if the episema - * on the lower note is not shown. */ - switch(type) { - case T_PORRECTUS: - case T_PORRECTUS_FLEXUS: - if (i == 2) { - end_h_episema(h, note, score); - } - break; - - case T_TORCULUS_RESUPINUS: - case T_TORCULUS_RESUPINUS_FLEXUS: - if (i == 3) { - end_h_episema(h, note, score); - } - break; - - default: - /* do nothing */ - break; - } - } -} - -static __inline void compute_note_positioning(height_computation *const above, - height_computation *const below, const gregorio_element *const element, - const gregorio_glyph *const glyph, gregorio_note *const note, - const int i, const gtex_type type, const gregorio_score *const score) -{ - gregorio_vposition default_vpos = advise_positioning(glyph, note, i, type); - - if (note->h_episema_above == HEPISEMA_AUTO - && note->h_episema_below == HEPISEMA_AUTO) { - if (default_vpos == VPOS_BELOW) { - note->h_episema_above = HEPISEMA_NONE; - } - else { /* default_vpos == VPOS_ABOVE */ - note->h_episema_below = HEPISEMA_NONE; - } - } - - compute_h_episema(above, element, glyph, note, i, type, score); - compute_h_episema(below, element, glyph, note, i, type, score); -} - -static __inline int compute_fused_shift(const gregorio_glyph *glyph) -{ - int shift; - gregorio_note *first_note, *prev_note; - const gregorio_glyph *next, *previous; - bool next_is_fused; - - if (!glyph || !is_fused(glyph->u.notes.liquescentia) - || glyph->type != GRE_GLYPH - || !(first_note = glyph->u.notes.first_note) - || first_note->type != GRE_NOTE - || !(previous = gregorio_previous_non_texverb_glyph(glyph)) - || previous->type != GRE_GLYPH - || previous->u.notes.liquescentia & TAIL_LIQUESCENTIA_MASK - || !previous->u.notes.first_note) { - /* base conditions prevent fusion */ - return 0; - } - - next = gregorio_next_non_texverb_glyph(glyph); - next_is_fused = next && next->type == GRE_GLYPH - && is_fused(next->u.notes.liquescentia); - - switch (glyph->u.notes.glyph_type) { - case G_PORRECTUS: - case G_PODATUS: - if (next_is_fused) { - return 0; - } - /* else it may be fused to the previous note */ - break; - - case G_PUNCTUM: - case G_FLEXA: - /* these may be fused to the previous note */ - break; - - default: - /* anything else may not be fused to the previous note */ - return 0; - } - - switch (first_note->u.note.shape) { - case S_QUILISMA: - case S_QUILISMA_QUADRATUM: - case S_FLAT: - case S_SHARP: - case S_NATURAL: - /* if this glyph starts with one of these, it's not fusible */ - return 0; - - default: - /* anything else is potentially fusible */ - break; - } - - switch (previous->u.notes.glyph_type) { - case G_PUNCTUM: - case G_FLEXA: - case G_VIRGA_REVERSA: - /* these are potentially fusible to this note */ - break; - - default: - /* everything else is not fusible */ - return 0; - } - - prev_note = gregorio_glyph_last_note(previous); - - gregorio_assert(prev_note->type == GRE_NOTE, compute_fused_shift, - "previous note wasn't a note", return 0); - - shift = first_note->u.note.pitch - prev_note->u.note.pitch; - gregorio_assert(shift >= -MAX_AMBITUS && shift <= MAX_AMBITUS, - compute_fused_shift, "ambitus too large to fuse", return 0); - - if (shift > 0 && previous->u.notes.glyph_type == G_VIRGA_REVERSA) { - /* virga reversa cannot fuse upwards */ - return 0; - } - - if (shift < 0) { - if (glyph->u.notes.glyph_type == G_PODATUS) { - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - /* podatus deminutus may be fused from above */ - return shift; - } - switch (first_note->u.note.shape) { - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - case S_ORISCUS_SCAPUS_ASCENDENS: - case S_ORISCUS_SCAPUS_DESCENDENS: - return shift; - default: - /* otherwise, podatus may not be fused from above */ - return 0; - } - } - - /* the FLEXA check below checks for a porrectus-like flexus, which is - * not fusible from above */ - if ((next_is_fused && glyph->u.notes.glyph_type == G_FLEXA) - || glyph->u.notes.glyph_type == G_PORRECTUS - || (previous->u.notes.glyph_type == G_PUNCTUM - && is_initio_debilis(previous->u.notes.liquescentia))) { - /* may not be fused from above */ - return 0; - } - } - - return shift; -} - -void gregoriotex_compute_positioning( - const gregorio_element *const param_element, - const gregorio_score *const score) -{ - height_computation above = { - /*.vpos =*/ VPOS_ABOVE, - /*.orientation =*/ SO_OVER, - /*.is_applicable =*/ &is_h_episema_above_applicable, - /*.is_shown =*/ >ex_is_h_episema_above_shown, - /*.is_connected =*/ &is_h_episema_above_connected, - /*.get_size =*/ &get_h_episema_above_size, - /*.is_better_height =*/ &is_h_episema_above_better_height, - /*.position =*/ &gregorio_position_h_episema_above, - - /*.active =*/ false, - /*.height =*/ 0, - /*.connected =*/ false, - /*.start_element =*/ NULL, - /*.start_glyph =*/ NULL, - /*.start_note =*/ NULL, - /*.last_connected_element =*/ NULL, - /*.last_connected_glyph =*/ NULL, - /*.last_connected_note =*/ NULL, - /*.adjustment_index =*/ 0, - }; - height_computation below = { - /*.vpos =*/ VPOS_BELOW, - /*.orientation =*/ SO_UNDER, - /*.is_applicable =*/ &is_h_episema_below_applicable, - /*.is_shown =*/ >ex_is_h_episema_below_shown, - /*.is_connected =*/ &is_h_episema_below_connected, - /*.get_size =*/ &get_h_episema_below_size, - /*.is_better_height =*/ &is_h_episema_below_better_height, - /*.position =*/ &gregorio_position_h_episema_below, - - /*.active =*/ false, - /*.height =*/ 0, - /*.connected =*/ false, - /*.start_element =*/ NULL, - /*.start_glyph =*/ NULL, - /*.start_note =*/ NULL, - /*.last_connected_element =*/ NULL, - /*.last_connected_glyph =*/ NULL, - /*.last_connected_note =*/ NULL, - /*.adjustment_index =*/ 0, - }; - int i; - gtex_alignment ignored; - gtex_type type; - const gregorio_element *element; - - for (element = param_element; element; element = element->next) { - if (element->type == GRE_ELEMENT) { - gregorio_glyph *glyph; - for (glyph = element->u.first_glyph; glyph; - glyph = glyph->next) { - if (glyph->type == GRE_GLYPH) { - gregorio_note *note; - glyph->u.notes.fuse_to_next_glyph = compute_fused_shift( - gregorio_next_non_texverb_glyph(glyph)); - i = 0; - gregoriotex_determine_glyph_name(glyph, &ignored, &type); - for (note = glyph->u.notes.first_note; note; - note = note->next) { - if (note->type == GRE_NOTE) { - compute_note_positioning(&above, &below, element, - glyph, note, ++i, type, score); - } - } - } - } - } else if (!is_bridgeable_space(element)) { - end_h_episema(&above, NULL, score); - end_h_episema(&below, NULL, score); - } - } - end_h_episema(&above, NULL, score); - end_h_episema(&below, NULL, score); -} - -static __inline void adjust_hepisema(gregorio_note *const note, - const gregorio_sign_orientation orientation, - bool (*const is_shown)(const gregorio_note *), - void (*const adjust_if_better)(gregorio_note *, signed char)) -{ - const unsigned short adjustment_index = - note->he_adjustment_index[orientation]; - - if (adjustment_index && is_shown(note)) { - gregorio_hepisema_adjustment *adj = gregorio_get_hepisema_adjustment( - adjustment_index); - - adjust_if_better(note, adj->pitch_extremum); - } -} - -void gregoriotex_compute_cross_syllable_positioning( - const gregorio_score *const score) -{ - gregorio_syllable *syllable; - for (syllable = score->first_syllable; syllable; - syllable = syllable->next_syllable) { - int voice; - for (voice = 0; voice < score->number_of_voices; ++voice) { - gregorio_element *element; - for (element = syllable->elements[voice]; element; - element = element->next) { - if (element->type == GRE_ELEMENT) { - gregorio_glyph *glyph; - for (glyph = element->u.first_glyph; glyph; - glyph = glyph->next) { - if (glyph->type == GRE_GLYPH) { - gregorio_note *note; - for (note = glyph->u.notes.first_note; note; - note = note->next) { - if (note->type == GRE_NOTE) { - adjust_hepisema(note, SO_OVER, - gtex_is_h_episema_above_shown, - adjust_h_episema_above_if_better); - adjust_hepisema(note, SO_UNDER, - gtex_is_h_episema_below_shown, - adjust_h_episema_below_if_better); - } - } - } - } - } - } - } - } -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex-write.c b/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex-write.c deleted file mode 100644 index 1f9b915a7e4..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex-write.c +++ /dev/null @@ -1,4539 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file contains functions for writing GregorioTeX from Gregorio structures. - * - * Copyright (C) 2008-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. */ - -/** - * @file - * @brief The plugin which writes a GregorioTeX score. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <assert.h> -#include <time.h> -#include "bool.h" -#include "struct.h" -#include "unicode.h" -#include "messages.h" -#include "characters.h" -#include "plugins.h" -#include "support.h" -#include "utf8strings.h" - -#include "gregoriotex.h" - -#define BUFSIZE 128 - -/* a structure containing the status */ -typedef struct gregoriotex_status { - bool point_and_click; - - /* true if the current_glyph will have an additional line under or not - * (useful to determine the length of the bar in case of a flexa starting - * at d */ - bool bottom_line; - - signed char top_height; - signed char bottom_height; - - /* indicates if there is a translation on the line */ - bool translation; - - /* indicates if there is "above lines text" on the line */ - bool abovelinestext; - - bool suppressed_custos; -} gregoriotex_status; - -#define UNDETERMINED_HEIGHT -127 - -#define MAX_AMBITUS 5 -static const char *tex_ambitus[] = { - "", "One", "Two", "Three", "Four", "Five" -}; - -#define SHAPE(NAME) static const char *const SHAPE_##NAME = #NAME -SHAPE(Ancus); -SHAPE(AncusLongqueue); -SHAPE(AscendensOriscus); -SHAPE(AscendensOriscusLineBL); -SHAPE(AscendensOriscusLineTL); -SHAPE(AscendensOriscusScapus); -SHAPE(AscendensOriscusScapusLongqueue); -SHAPE(AscendensOriscusScapusOpenqueue); -SHAPE(AscendensPunctumInclinatum); -SHAPE(DescendensOriscus); -SHAPE(DescendensOriscusLineBL); -SHAPE(DescendensOriscusLineTL); -SHAPE(DescendensOriscusScapus); -SHAPE(DescendensOriscusScapusLongqueue); -SHAPE(DescendensOriscusScapusOpenqueue); -SHAPE(DescendensPunctumInclinatum); -SHAPE(Flat); -SHAPE(Flexus); -SHAPE(FlexusLongqueue); -SHAPE(FlexusNobar); -SHAPE(FlexusOpenqueue); -SHAPE(FlexusOriscus); -SHAPE(FlexusOriscusInusitatus); -SHAPE(FlexusOriscusScapus); -SHAPE(FlexusOriscusScapusInusitatus); -SHAPE(FlexusOriscusScapusInusitatusLongqueue); -SHAPE(FlexusOriscusScapusInusitatusOpenqueue); -SHAPE(FlexusOriscusScapusLongqueue); -SHAPE(FlexusOriscusScapusOpenqueue); -SHAPE(Linea); -SHAPE(LineaPunctum); -SHAPE(Natural); -SHAPE(OriscusDeminutus); -SHAPE(Pes); -SHAPE(PesAscendensOriscus); -SHAPE(PesDescendensOriscus); -SHAPE(PesQuadratum); -SHAPE(PesQuadratumLongqueue); -SHAPE(PesQuadratumOpenqueue); -SHAPE(PesQuassus); -SHAPE(PesQuassusInusitatus); -SHAPE(PesQuassusInusitatusLongqueue); -SHAPE(PesQuassusInusitatusOpenqueue); -SHAPE(PesQuassusLongqueue); -SHAPE(PesQuassusOpenqueue); -SHAPE(Porrectus); -SHAPE(PorrectusFlexus); -SHAPE(PorrectusFlexusLongqueue); -SHAPE(PorrectusFlexusNobar); -SHAPE(PorrectusLongqueue); -SHAPE(PorrectusNobar); -SHAPE(Punctum); -SHAPE(PunctumAscendens); -SHAPE(PunctumDeminutus); -SHAPE(PunctumDescendens); -SHAPE(PunctumInclinatumAuctus); -SHAPE(PunctumInclinatumDeminutus); -SHAPE(PunctumLineBL); -SHAPE(PunctumLineTL); -SHAPE(Quilisma); -SHAPE(QuilismaPes); -SHAPE(QuilismaPesQuadratum); -SHAPE(QuilismaPesQuadratumLongqueue); -SHAPE(QuilismaPesQuadratumOpenqueue); -SHAPE(StansPunctumInclinatum); -SHAPE(Salicus); -SHAPE(SalicusFlexus); -SHAPE(SalicusLongqueue); -SHAPE(Scandicus); -SHAPE(Sharp); -SHAPE(Stropha); -SHAPE(StrophaAucta); -SHAPE(StrophaAuctaLongtail); -SHAPE(Torculus); -SHAPE(TorculusLiquescens); -SHAPE(TorculusLiquescensQuilisma); -SHAPE(TorculusQuilisma); -SHAPE(TorculusResupinus); -SHAPE(TorculusResupinusQuilisma); -SHAPE(Virga); -SHAPE(VirgaLongqueue); -SHAPE(VirgaOpenqueue); -SHAPE(VirgaReversa); -SHAPE(VirgaReversaAscendens); -SHAPE(VirgaReversaDescendens); -SHAPE(VirgaReversaLongqueue); -SHAPE(VirgaReversaLongqueueAscendens); -SHAPE(VirgaReversaLongqueueDescendens); -SHAPE(VirgaReversaOpenqueue); -SHAPE(VirgaReversaOpenqueueAscendens); -SHAPE(VirgaReversaOpenqueueDescendens); - -#define LIQ(NAME) static const char *const LIQ_##NAME = #NAME -LIQ(Deminutus); -LIQ(Ascendens); -LIQ(Descendens); -LIQ(InitioDebilis); -LIQ(InitioDebilisDeminutus); -LIQ(InitioDebilisAscendens); -LIQ(InitioDebilisDescendens); -LIQ(Nothing); - -#define FUSE(NAME) static const char *const FUSE_##NAME = #NAME -FUSE(Lower); -FUSE(LowerOblatus); -FUSE(Upper); -FUSE(UpperOblatus); -FUSE(Down); -FUSE(Up); - -/* the value indicating to GregorioTeX that there is no flat */ -#define NO_KEY_FLAT LOWEST_PITCH - -static __inline signed char pitch_value(const signed char height) { - /* right now height == pitch, but this function allows us to change - * the offset easily */ - return height; -} - -static __inline int bool_to_int(bool value) { - return value? 1 : 0; -} - -typedef enum queuetype { - Q_ON_SPACE_BELOW_BOTTOM_LINE, - Q_ON_SPACE_ABOVE_BOTTOM_LINE, - Q_ON_BOTTOM_LINE, - Q_ON_LINE_ABOVE_BOTTOM_LINE -} queuetype; - -static queuetype adjusted_queuetype_of(const gregorio_note *const note, - const gregorio_note *const queue_note, const signed char adjustment) -{ - switch (note->u.note.pitch + adjustment - LOWEST_PITCH) { - case 0: - return Q_ON_SPACE_BELOW_BOTTOM_LINE; - case 1: - return Q_ON_BOTTOM_LINE; - case 2: - return queue_note->low_ledger_line? - Q_ON_SPACE_ABOVE_BOTTOM_LINE : Q_ON_SPACE_BELOW_BOTTOM_LINE; - case 3: - return queue_note->low_ledger_line? - Q_ON_LINE_ABOVE_BOTTOM_LINE : Q_ON_BOTTOM_LINE; - case 5: - case 7: - case 9: - case 11: - case 13: - return Q_ON_LINE_ABOVE_BOTTOM_LINE; - default: - return Q_ON_SPACE_ABOVE_BOTTOM_LINE; - } -} - -static queuetype queuetype_of(const gregorio_note *const note) { - return adjusted_queuetype_of(note, note, 0); -} - -static grestyle_style gregoriotex_ignore_style = ST_NO_STYLE; -static grestyle_style gregoriotex_next_ignore_style = ST_NO_STYLE; - -/* - * The different liquescentiae are: - * 'Nothing' - * 'InitioDebilis' - * 'Deminutus - * 'Ascendens' - * 'Descendens' - * 'InitioDebilisDeminutus' - * 'InitioDebilisAscendens' - * 'InitioDebilisDescendens' - * - * They also are and must be the same as in squarize.py. - */ - -static const char *gregoriotex_determine_liquescentia( - gtex_glyph_liquescentia type, const gregorio_glyph *const glyph) -{ - gregorio_liquescentia liquescentia = glyph->u.notes.liquescentia; - - switch (type) { - case LG_ALL: - break; - case LG_NO_INITIO: - liquescentia &= ~L_INITIO_DEBILIS; - break; - case LG_ONLY_DEMINUTUS: - liquescentia &= L_INITIO_DEBILIS | L_DEMINUTUS; - break; - case LG_FUSIBLE_INITIO: - if (glyph->u.notes.fuse_to_next_glyph) { - liquescentia &= L_INITIO_DEBILIS; - break; - } - /* else fall through to next case */ - case LG_NONE: - liquescentia = L_NO_LIQUESCENTIA; - break; - } - - /* now we convert liquescentia into the good GregorioTeX liquescentia - * numbers */ - - switch (liquescentia & ~L_FUSED) { - case L_DEMINUTUS: - return LIQ_Deminutus; - case L_AUCTUS_ASCENDENS: - return LIQ_Ascendens; - case L_AUCTUS_DESCENDENS: - return LIQ_Descendens; - case L_INITIO_DEBILIS: - return LIQ_InitioDebilis; - case L_DEMINUTUS_INITIO_DEBILIS: - return LIQ_InitioDebilisDeminutus; - case L_AUCTUS_ASCENDENS_INITIO_DEBILIS: - return LIQ_InitioDebilisAscendens; - case L_AUCTUS_DESCENDENS_INITIO_DEBILIS: - return LIQ_InitioDebilisDescendens; - case L_NO_LIQUESCENTIA: - /* break out and return "Nothing" */ - break; - } - - return LIQ_Nothing; -} - -static __inline int compute_ambitus(const gregorio_note *const current_note) -{ - int first = current_note->u.note.pitch; - int second = current_note->next->u.note.pitch; - int ambitus; - if (first < second) { - ambitus = second - first; - } else { - ambitus = first - second; - } - gregorio_assert2(ambitus >= 1 && ambitus <= MAX_AMBITUS, compute_ambitus, - "unsupported ambitus: %d", ambitus, return 0); - return ambitus; -} - -static const char *compute_glyph_name(const gregorio_glyph *const glyph, - const char *shape, const gtex_glyph_liquescentia ltype, - bool is_single_note) -{ - static char buf[BUFSIZE]; - - const char *liquescentia = gregoriotex_determine_liquescentia(ltype, glyph); - const gregorio_note *current_note; - int ambitus1, ambitus2, ambitus3, fuse_ambitus = 0; - const char *fuse_head = "", *fuse_tail = ""; - const gregorio_glyph *previous = gregorio_previous_non_texverb_glyph(glyph); - int fuse_to_next_note, fuse_from_previous_note = - (previous && previous->type == GRE_GLYPH) - ? previous->u.notes.fuse_to_next_glyph : 0; - - /* then we start making our formula */ - gregorio_assert(glyph, compute_glyph_name, "called with NULL pointer", - return ""); - gregorio_assert(glyph->u.notes.first_note, compute_glyph_name, - "called with a glyph that have no note", return ""); - - fuse_to_next_note = glyph->u.notes.fuse_to_next_glyph; - - switch (glyph->u.notes.glyph_type) { - case G_PODATUS: - case G_PUNCTUM: - case G_FLEXA: - /* directionally head-fusible */ - if (fuse_from_previous_note < 0) { - if (glyph->u.notes.first_note->u.note.shape != S_QUILISMA - && glyph->u.notes.first_note->u.note.shape - != S_QUILISMA_QUADRATUM) { - if (fuse_from_previous_note < -1) { - fuse_head = FUSE_Lower; - } else if (glyph->u.notes.first_note->u.note.shape - == S_ORISCUS_DESCENDENS - || glyph->u.notes.first_note->u.note.shape - == S_ORISCUS_SCAPUS_DESCENDENS) { - /* fuse_from_previous_note will be -1 here */ - fuse_head = FUSE_LowerOblatus; - } - } - } else if (fuse_from_previous_note > 0) { - if (fuse_from_previous_note > 1) { - fuse_head = FUSE_Upper; - } else if (glyph->u.notes.first_note->u.note.shape - == S_ORISCUS_ASCENDENS - || glyph->u.notes.first_note->u.note.shape - == S_ORISCUS_SCAPUS_ASCENDENS) { - /* fuse_from_previous_note will be 1 here */ - fuse_head = FUSE_UpperOblatus; - } - } - break; - - default: - /* not directionally head-fusible */ - break; - } - - switch (glyph->u.notes.glyph_type) { - case G_FLEXA: - if (fuse_to_next_note <= 0) { - /* a flexa is only fusible up */ - break; - } - /* else fall through */ - case G_VIRGA_REVERSA: - case G_PUNCTUM: - /* tail-fusible */ - if (fuse_to_next_note < 0) { - fuse_tail = FUSE_Down; - fuse_ambitus = -fuse_to_next_note; - } else if (fuse_to_next_note > 0) { - fuse_tail = FUSE_Up; - fuse_ambitus = fuse_to_next_note; - } - - if (*fuse_tail && liquescentia == LIQ_Nothing) { - liquescentia = ""; - } - break; - - default: - /* not tail-fusible */ - break; - } - - if (is_fused(glyph->u.notes.liquescentia)) { - if (shape == SHAPE_AscendensOriscusScapus - || shape == SHAPE_AscendensOriscusScapusLongqueue - || shape == SHAPE_AscendensOriscusScapusOpenqueue) { - shape = SHAPE_AscendensOriscus; - } else if (shape == SHAPE_DescendensOriscusScapus - || shape == SHAPE_DescendensOriscusScapusLongqueue - || shape == SHAPE_DescendensOriscusScapusOpenqueue) { - shape = SHAPE_DescendensOriscus; - } else if (shape == SHAPE_FlexusOriscusScapus - || shape == SHAPE_FlexusOriscusScapusLongqueue - || shape == SHAPE_FlexusOriscusScapusOpenqueue) { - shape = SHAPE_FlexusOriscus; - } else if (shape == SHAPE_FlexusOriscusScapusInusitatus - || shape == SHAPE_FlexusOriscusScapusInusitatusLongqueue - || shape == SHAPE_FlexusOriscusScapusInusitatusOpenqueue) { - shape = SHAPE_FlexusOriscusInusitatus; - } - } - - current_note = glyph->u.notes.first_note; - if (is_single_note) { - if (liquescentia == LIQ_Nothing) { - liquescentia = ""; - } - if (!(*fuse_tail) && fuse_head != FUSE_UpperOblatus - && fuse_head != FUSE_LowerOblatus) { - /* single note fused shapes have weird names */ - if (fuse_head == FUSE_Upper) { - if (shape == SHAPE_Punctum) { - shape = SHAPE_PunctumLineBL; - } else if (shape == SHAPE_AscendensOriscus) { - shape = SHAPE_AscendensOriscusLineBL; - } else if (shape == SHAPE_DescendensOriscus) { - shape = SHAPE_DescendensOriscusLineBL; - } - } else if (fuse_head == FUSE_Lower) { - if (shape == SHAPE_Punctum) { - shape = SHAPE_PunctumLineTL; - } else if (shape == SHAPE_AscendensOriscus) { - shape = SHAPE_AscendensOriscusLineTL; - } else if (shape == SHAPE_DescendensOriscus) { - shape = SHAPE_DescendensOriscusLineTL; - } - } - fuse_head = ""; - } - gregorio_snprintf(buf, BUFSIZE, "%s%s%s%s%s", fuse_head, shape, - tex_ambitus[fuse_ambitus], liquescentia, fuse_tail); - return buf; - } - gregorio_assert(current_note->next, compute_glyph_name, - "called with a multi-note glyph that has only one note", return ""); - gregorio_assert((ambitus1 = compute_ambitus(current_note)), - compute_glyph_name, "unexpected unison on multi-note glyph", - return ""); - if (is_fused(glyph->u.notes.liquescentia)) { - if (shape == SHAPE_Flexus || shape == SHAPE_FlexusLongqueue - || shape == SHAPE_FlexusOpenqueue) { - if (fuse_to_next_note) { - fuse_head = ""; - } - if (*fuse_head) { - shape = SHAPE_Flexus; - } else { - shape = SHAPE_FlexusNobar; - } - } else if (shape == SHAPE_Porrectus - || shape == SHAPE_PorrectusLongqueue) { - shape = SHAPE_PorrectusNobar; - } - } else { - if (fuse_to_next_note && (shape == SHAPE_FlexusLongqueue - || shape == SHAPE_FlexusOpenqueue)) { - /* a porrectus-like flexus has no longqueue variant */ - shape = SHAPE_Flexus; - } - } - if (shape == SHAPE_SalicusLongqueue && liquescentia != LIQ_Nothing) { - /* the salicus queue is at the end of the glyph, and it doesn't exist - * for the liquescent forms */ - shape = SHAPE_Salicus; - } - current_note = current_note->next; - if (!current_note->next) { - gregorio_snprintf(buf, BUFSIZE, "%s%s%s%s%s%s", fuse_head, shape, - tex_ambitus[ambitus1], tex_ambitus[fuse_ambitus], - liquescentia, fuse_tail); - return buf; - } - gregorio_assert((ambitus2 = compute_ambitus(current_note)), - compute_glyph_name, "unexpected unison on multi-note glyph", - return ""); - current_note = current_note->next; - if (!current_note->next) { - gregorio_snprintf(buf, BUFSIZE, "%s%s%s%s%s%s%s", fuse_head, shape, - tex_ambitus[ambitus1], tex_ambitus[ambitus2], - tex_ambitus[fuse_ambitus], liquescentia, fuse_tail); - return buf; - } - gregorio_assert((ambitus3 = compute_ambitus(current_note)), - compute_glyph_name, "unexpected unison on multi-note glyph", - return ""); - gregorio_snprintf(buf, BUFSIZE, "%s%s%s%s%s%s%s%s", fuse_head, shape, - tex_ambitus[ambitus1], tex_ambitus[ambitus2], tex_ambitus[ambitus3], - tex_ambitus[fuse_ambitus], liquescentia, fuse_tail); - return buf; -} - -static const char *fusible_queued_shape(const gregorio_note *const note, - const gregorio_glyph *const glyph, - const char *const base_shape, const char *const longqueue_shape, - const char *const openqueue_shape) -{ - const char *name = NULL; - if (glyph->u.notes.fuse_to_next_glyph < 0) { - /* queue size depends on the following note if fused down */ - bool ambitus_one = (glyph->u.notes.fuse_to_next_glyph == -1); - switch (adjusted_queuetype_of(note, note, - glyph->u.notes.fuse_to_next_glyph)) { - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - if (ambitus_one) { - name = openqueue_shape; - break; - } - /* else fall through */ - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - /* at ambitus one, long and short are swapped becuase the queue where - * the second note is on a space is longer than on a line */ - name = ambitus_one? longqueue_shape : base_shape; - break; - case Q_ON_BOTTOM_LINE: - if (ambitus_one) { - name = openqueue_shape; - break; - } - /* else fall through */ - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - /* at ambitus one, long and short are swapped becuase the queue where - * the second note is on a line is shorter than on a space */ - name = ambitus_one? base_shape : longqueue_shape; - break; - } - } else if (glyph->u.notes.fuse_to_next_glyph) { - /* TODO (5.0?) handle queue size on upwards fusion */ - switch (queuetype_of(note)) { - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - case Q_ON_BOTTOM_LINE: - name = base_shape; - break; - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - name = longqueue_shape; - break; - } - } else { - switch (queuetype_of(note)) { - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - name = base_shape; - break; - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - case Q_ON_BOTTOM_LINE: - name = openqueue_shape; - break; - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - name = longqueue_shape; - break; - } - } - gregorio_not_null(name, fusible_queued_shape, return base_shape); - return compute_glyph_name(glyph, name, LG_NONE, true); -} - -static __inline char *code_point(const char *const shape, const bool is_cavum, - char *const buf, const size_t bufsize) -{ - if (is_cavum) { - gregorio_snprintf(buf, bufsize, "\\GreCavum{%s}", shape); - } else { - gregorio_snprintf(buf, bufsize, "\\GreCP%s", shape); - } - return buf; -} - -static const char *determine_note_glyph_name(const gregorio_note *const note, - const gregorio_glyph *glyph, gtex_alignment *type) -{ - static char buf[128], cpbuf[96]; - const char *name = ""; - - gregorio_assert(note, determine_note_glyph_name, "called with NULL pointer", - return ""); - - *type = AT_ONE_NOTE; - switch (note->u.note.shape) { - case S_PUNCTUM_INCLINATUM_ASCENDENS: - *type = AT_PUNCTUM_INCLINATUM; - return SHAPE_AscendensPunctumInclinatum; - case S_PUNCTUM_INCLINATUM_STANS: - *type = AT_PUNCTUM_INCLINATUM; - return SHAPE_StansPunctumInclinatum; - case S_PUNCTUM_INCLINATUM_DESCENDENS: - *type = AT_PUNCTUM_INCLINATUM; - return SHAPE_DescendensPunctumInclinatum; - case S_PUNCTUM_INCLINATUM_DEMINUTUS: - return SHAPE_PunctumInclinatumDeminutus; - case S_PUNCTUM_INCLINATUM_AUCTUS: - return SHAPE_PunctumInclinatumAuctus; - case S_PUNCTUM: - return compute_glyph_name(glyph, SHAPE_Punctum, LG_FUSIBLE_INITIO, true); - case S_PUNCTUM_AUCTUS_ASCENDENS: - return SHAPE_PunctumAscendens; - case S_PUNCTUM_AUCTUS_DESCENDENS: - return SHAPE_PunctumDescendens; - case S_PUNCTUM_DEMINUTUS: - return SHAPE_PunctumDeminutus; - case S_LINEA: - return SHAPE_Linea; - case S_LINEA_PUNCTUM: - return SHAPE_LineaPunctum; - case S_VIRGA: - switch (queuetype_of(note)) { - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - return SHAPE_Virga; - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - case Q_ON_BOTTOM_LINE: - return SHAPE_VirgaOpenqueue; - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - return SHAPE_VirgaLongqueue; - } /* all cases return, so this line is not hit; LCOV_EXCL_LINE */ - case S_VIRGA_REVERSA: - switch (note->u.note.liquescentia) { - case L_AUCTUS_ASCENDENS: - switch (queuetype_of(note)) { - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - name = SHAPE_VirgaReversaAscendens; - break; - case Q_ON_BOTTOM_LINE: - name = SHAPE_VirgaReversaOpenqueueAscendens; - break; - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - name = SHAPE_VirgaReversaLongqueueAscendens; - break; - } - if (note->u.note.pitch - LOWEST_PITCH == 3) { - /* if we're on the 'd' line, the queue could be long or short */ - gregorio_snprintf(buf, sizeof buf, - "VirgaReversaAscendensOnDLine{%s}", code_point(name, - glyph->u.notes.is_cavum, cpbuf, sizeof cpbuf)); - return buf; - } - return name; - case L_AUCTUS_DESCENDENS: - switch (queuetype_of(note)) { - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - return SHAPE_VirgaReversaDescendens; - case Q_ON_BOTTOM_LINE: - return SHAPE_VirgaReversaOpenqueueDescendens; - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - return SHAPE_VirgaReversaLongqueueDescendens; - } /* all cases return, so this line is not hit; LCOV_EXCL_LINE */ - default: - return fusible_queued_shape(note, glyph, SHAPE_VirgaReversa, - SHAPE_VirgaReversaLongqueue, SHAPE_VirgaReversaOpenqueue); - } - case S_ORISCUS_ASCENDENS: - *type = AT_ORISCUS; - return compute_glyph_name(glyph, SHAPE_AscendensOriscus, LG_NONE, true); - case S_ORISCUS_DESCENDENS: - *type = AT_ORISCUS; - return compute_glyph_name(glyph, SHAPE_DescendensOriscus, LG_NONE, true); - case S_ORISCUS_DEMINUTUS: - *type = AT_ORISCUS; - return SHAPE_OriscusDeminutus; - case S_QUILISMA: - *type = AT_QUILISMA; - return compute_glyph_name(glyph, SHAPE_Quilisma, LG_NONE, true); - case S_ORISCUS_SCAPUS_ASCENDENS: - return fusible_queued_shape(note, glyph, SHAPE_AscendensOriscusScapus, - SHAPE_AscendensOriscusScapusLongqueue, - SHAPE_AscendensOriscusScapusOpenqueue); - case S_ORISCUS_SCAPUS_DESCENDENS: - return fusible_queued_shape(note, glyph, SHAPE_DescendensOriscusScapus, - SHAPE_DescendensOriscusScapusLongqueue, - SHAPE_DescendensOriscusScapusOpenqueue); - case S_STROPHA: - *type = AT_STROPHA; - if (!(note->u.note.liquescentia & - (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS))) { - return SHAPE_Stropha; - } - /* else fall through to next case */ - case S_STROPHA_AUCTA: - *type = AT_STROPHA; - switch (queuetype_of(note)) { - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - return SHAPE_StrophaAucta; - case Q_ON_BOTTOM_LINE: - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - return SHAPE_StrophaAuctaLongtail; - } /* all cases return, so this line is not hit; LCOV_EXCL_LINE */ - case S_FLAT: - return SHAPE_Flat; - case S_SHARP: - return SHAPE_Sharp; - case S_NATURAL: - return SHAPE_Natural; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(determine_note_glyph_name, - "called with unknown shape: %s", - gregorio_shape_to_string(note->u.note.shape)); - return ""; - /* LCOV_EXCL_STOP */ - } -} - -static __inline gregorio_note *first_note_of( - const gregorio_glyph *const glyph) { - assert(glyph->type == GRE_GLYPH); - assert(glyph->u.notes.first_note); - assert(glyph->u.notes.first_note->type == GRE_NOTE); - return glyph->u.notes.first_note; -} - -static __inline signed char first_pitch_of(const gregorio_glyph *const glyph) { - return first_note_of(glyph)->u.note.pitch; -} - -static __inline gregorio_note *second_note_of( - const gregorio_glyph *const glyph) { - assert(glyph->type == GRE_GLYPH); - assert(glyph->u.notes.first_note); - assert(glyph->u.notes.first_note->type == GRE_NOTE); - assert(glyph->u.notes.first_note->next); - assert(glyph->u.notes.first_note->next->type == GRE_NOTE); - return glyph->u.notes.first_note->next; -} - -static __inline signed char second_pitch_of(const gregorio_glyph *const glyph) { - return second_note_of(glyph)->u.note.pitch; -} - -static __inline gregorio_note *third_note_of( - const gregorio_glyph *const glyph) { - assert(glyph->type == GRE_GLYPH); - assert(glyph->u.notes.first_note); - assert(glyph->u.notes.first_note->type == GRE_NOTE); - assert(glyph->u.notes.first_note->next); - assert(glyph->u.notes.first_note->next->type == GRE_NOTE); - assert(glyph->u.notes.first_note->next->next); - assert(glyph->u.notes.first_note->next->next->type == GRE_NOTE); - return glyph->u.notes.first_note->next->next; -} - -static __inline signed char third_pitch_of(const gregorio_glyph *const glyph) { - return third_note_of(glyph)->u.note.pitch; -} - -static __inline const char *porrectus_shape(const gregorio_glyph *const glyph, - const char *base_shape, const char *longqueue_shape) { - const gregorio_note *const first_note = first_note_of(glyph); - if ((glyph->u.notes.glyph_type == G_PORRECTUS - && (glyph->u.notes.liquescentia & L_DEMINUTUS)) - || first_note->u.note.pitch - second_pitch_of(glyph) == 1) { - switch (queuetype_of(first_note)) { - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - case Q_ON_BOTTOM_LINE: - return base_shape; - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - return longqueue_shape; - } - } /* must be optimized out; LCOV_EXCL_LINE */ - return base_shape; -} - -static __inline const char *flexus_shape(const gregorio_glyph *const glyph, - const signed char ambitus, const char *base_shape, - const char *longqueue_shape, const char *openqueue_shape) { - const bool ambitus_one = (ambitus == 1); - switch (adjusted_queuetype_of(second_note_of(glyph), first_note_of(glyph), - 0)) { - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - if (ambitus_one) { - return openqueue_shape; - } - /* else fall through */ - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - /* at ambitus one, long and short are swapped becuase the queue where - * the second note is on a space is longer than on a line */ - return ambitus_one? longqueue_shape : base_shape; - case Q_ON_BOTTOM_LINE: - if (ambitus_one) { - return openqueue_shape; - } - /* else fall through */ - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - /* at ambitus one, long and short are swapped becuase the queue where - * the second note is on a line is shorter than on a space */ - return ambitus_one? base_shape : longqueue_shape; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(flexus_shape, "unexpected queue length"); - return base_shape; - /* LCOV_EXCL_STOP */ -} - -static __inline const char *quadratum_shape(const gregorio_glyph *const glyph, - const char *base_shape, const char *longqueue_shape, - const char *openqueue_shape) { - const bool ambitus_one = - (second_pitch_of(glyph) - first_pitch_of(glyph) == 1); - if (!is_tail_liquescentia(glyph->u.notes.liquescentia)) { - switch (adjusted_queuetype_of(first_note_of(glyph), - second_note_of(glyph), 0)) { - case Q_ON_SPACE_BELOW_BOTTOM_LINE: - if (ambitus_one) { - return openqueue_shape; - } - /* else fall through */ - case Q_ON_SPACE_ABOVE_BOTTOM_LINE: - /* at ambitus one, long and short are swapped becuase the queue - * where the first note is on a space is longer than on a line */ - return ambitus_one? longqueue_shape : base_shape; - case Q_ON_BOTTOM_LINE: - if (ambitus_one) { - return openqueue_shape; - } - /* else fall through */ - case Q_ON_LINE_ABOVE_BOTTOM_LINE: - /* at ambitus one, long and short are swapped becuase the queue - * where the first note is on a line is shorter than on a space */ - return ambitus_one? base_shape : longqueue_shape; - } - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(quadratum_shape, "unexpected queue length"); - /* fall out of the conditional */ - } - /* LCOV_EXCL_STOP */ - return base_shape; -} - -/* the function that calculates the number of the glyph. It also - * calculates the type, used for determining the position of signs. Type is - * very basic, it is only the global dimensions : torculus, one_note, etc. */ - -const char *gregoriotex_determine_glyph_name(const gregorio_glyph *const glyph, - gtex_alignment *const type, gtex_type *const gtype) -{ - const char *shape = NULL; - gtex_glyph_liquescentia ltype; - signed char ambitus; - const gregorio_note *second_note; - gregorio_assert(glyph, gregoriotex_determine_glyph_name, - "called with NULL pointer", return ""); - gregorio_assert(glyph->u.notes.first_note, gregoriotex_determine_glyph_name, - "called with a glyph that has no note", return ""); - *gtype = T_ONE_NOTE; - switch (glyph->u.notes.glyph_type) { - case G_PODATUS: - switch (glyph->u.notes.first_note->u.note.shape) { - case S_QUILISMA: - *type = AT_QUILISMA; - /* the next if is because we made the choice that AUCTUS shapes - * look like pes quadratum. */ - if (glyph->u.notes.liquescentia - & (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS)) { - *gtype = T_QUILISMA_PES_QUADRATUM; - shape = SHAPE_QuilismaPesQuadratum; - } else { - *gtype = T_QUILISMA_PES; - shape = SHAPE_QuilismaPes; - } - ltype = LG_NO_INITIO; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_SCAPUS_ASCENDENS: - *type = AT_ORISCUS; - *gtype = T_PES_QUASSUS; - shape = quadratum_shape(glyph, SHAPE_PesQuassus, - SHAPE_PesQuassusLongqueue, SHAPE_PesQuassusOpenqueue); - ltype = LG_NO_INITIO; - break; - case S_ORISCUS_DESCENDENS: - case S_ORISCUS_SCAPUS_DESCENDENS: - *type = AT_ORISCUS; - *gtype = T_PES_QUASSUS; - shape = quadratum_shape(glyph, SHAPE_PesQuassusInusitatus, - SHAPE_PesQuassusInusitatusLongqueue, - SHAPE_PesQuassusInusitatusOpenqueue); - ltype = LG_NO_INITIO; - break; - default: - *type = AT_ONE_NOTE; - if (glyph->u.notes.liquescentia - & (L_AUCTUS_ASCENDENS | L_AUCTUS_DESCENDENS)) { - *gtype = T_PES_QUADRATUM; - shape = SHAPE_PesQuadratum; - } else { - *gtype = T_PES; - shape = SHAPE_Pes; - } - ltype = LG_ALL; - break; - } - break; - case G_PES_QUADRATUM: - switch (glyph->u.notes.first_note->u.note.shape) { - case S_QUILISMA: - *type = AT_QUILISMA; - *gtype = T_QUILISMA_PES_QUADRATUM; - shape = quadratum_shape(glyph, SHAPE_QuilismaPesQuadratum, - SHAPE_QuilismaPesQuadratumLongqueue, - SHAPE_QuilismaPesQuadratumOpenqueue); - ltype = LG_NO_INITIO; - break; - default: - *type = AT_ONE_NOTE; - *gtype = T_PES_QUADRATUM; - shape = quadratum_shape(glyph, SHAPE_PesQuadratum, - SHAPE_PesQuadratumLongqueue, SHAPE_PesQuadratumOpenqueue); - ltype = LG_ALL; - break; - } - break; - case G_PES_ASCENDENS_ORISCUS: - *type = AT_ONE_NOTE; - *gtype = T_PES_ORISCUS; - shape = SHAPE_PesAscendensOriscus; - ltype = LG_ALL; - break; - case G_PES_DESCENDENS_ORISCUS: - *type = AT_ONE_NOTE; - *gtype = T_PES_ORISCUS; - shape = SHAPE_PesDescendensOriscus; - ltype = LG_ALL; - break; - case G_FLEXA: - ambitus = first_pitch_of(glyph) - second_pitch_of(glyph); - if (glyph->u.notes.liquescentia & L_DEMINUTUS) { - *type = AT_FLEXUS_DEMINUTUS; - } else { - if (ambitus == 1) { - *type = AT_FLEXUS_1; - } else { - *type = AT_FLEXUS; - } - } - switch (glyph->u.notes.first_note->u.note.shape) { - case S_ORISCUS_ASCENDENS: - *gtype = T_FLEXUS_ORISCUS; - shape = SHAPE_FlexusOriscusInusitatus; - ltype = LG_NO_INITIO; - break; - - case S_ORISCUS_DESCENDENS: - *gtype = T_FLEXUS_ORISCUS; - shape = SHAPE_FlexusOriscus; - ltype = LG_NO_INITIO; - break; - - case S_ORISCUS_SCAPUS_ASCENDENS: - *gtype = T_FLEXUS_ORISCUS_SCAPUS; - shape = flexus_shape(glyph, ambitus, - SHAPE_FlexusOriscusScapusInusitatus, - SHAPE_FlexusOriscusScapusInusitatusLongqueue, - SHAPE_FlexusOriscusScapusInusitatusOpenqueue); - ltype = LG_NO_INITIO; - break; - - case S_ORISCUS_SCAPUS_DESCENDENS: - *gtype = T_FLEXUS_ORISCUS_SCAPUS; - shape = flexus_shape(glyph, ambitus, SHAPE_FlexusOriscusScapus, - SHAPE_FlexusOriscusScapusLongqueue, - SHAPE_FlexusOriscusScapusOpenqueue); - ltype = LG_NO_INITIO; - break; - - default: - *gtype = glyph->u.notes.fuse_to_next_glyph? T_PORRECTUS : T_FLEXUS; - shape = flexus_shape(glyph, ambitus, SHAPE_Flexus, - SHAPE_FlexusLongqueue, SHAPE_FlexusOpenqueue); - ltype = LG_NO_INITIO; - break; - } - break; - case G_TORCULUS: - *gtype = T_TORCULUS; - if (glyph->u.notes.first_note->u.note.shape == S_QUILISMA) { - *type = AT_QUILISMA; - shape = SHAPE_TorculusQuilisma; - ltype = LG_NO_INITIO; - } else { - *type = AT_ONE_NOTE; - shape = SHAPE_Torculus; - ltype = LG_ALL; - } - break; - case G_TORCULUS_LIQUESCENS: - *gtype = T_TORCULUS_LIQUESCENS; - if (glyph->u.notes.first_note->u.note.shape == S_QUILISMA) { - *type = AT_QUILISMA; - shape = SHAPE_TorculusLiquescensQuilisma; - } else { - *type = AT_ONE_NOTE; - shape = SHAPE_TorculusLiquescens; - } - ltype = LG_ONLY_DEMINUTUS; - break; - case G_TORCULUS_RESUPINUS_FLEXUS: - *type = AT_ONE_NOTE; - *gtype = T_TORCULUS_RESUPINUS_FLEXUS; - break; - case G_PORRECTUS: - *type = AT_PORRECTUS; - *gtype = T_PORRECTUS; - shape = porrectus_shape(glyph, SHAPE_Porrectus, - SHAPE_PorrectusLongqueue); - ltype = LG_NO_INITIO; - break; - case G_TORCULUS_RESUPINUS: - *gtype = T_TORCULUS_RESUPINUS; - if (glyph->u.notes.first_note->u.note.shape == S_QUILISMA) { - *type = AT_QUILISMA; - shape = SHAPE_TorculusResupinusQuilisma; - } else { - *type = AT_ONE_NOTE; - shape = SHAPE_TorculusResupinus; - } - ltype = LG_ALL; - break; - case G_PORRECTUS_FLEXUS: - *type = AT_PORRECTUS; - *gtype = T_PORRECTUS_FLEXUS; - shape = porrectus_shape(glyph, SHAPE_PorrectusFlexus, - SHAPE_PorrectusFlexusLongqueue); - ltype = LG_NO_INITIO; - break; - case G_PORRECTUS_NO_BAR: - *type = AT_PORRECTUS; - *gtype = T_TORCULUS_RESUPINUS; - shape = SHAPE_PorrectusNobar; - ltype = LG_NO_INITIO; - break; - case G_PORRECTUS_FLEXUS_NO_BAR: - *type = AT_PORRECTUS; - *gtype = T_TORCULUS_RESUPINUS_FLEXUS; - shape = SHAPE_PorrectusFlexusNobar; - ltype = LG_NO_INITIO; - break; - case G_ANCUS: - *type = AT_ONE_NOTE; - gregorio_assert(glyph->u.notes.liquescentia & L_DEMINUTUS, - gregoriotex_determine_glyph_name, - "encountered non-deminutus ancus", break); - second_note = second_note_of(glyph); - if (first_pitch_of(glyph) - second_note->u.note.pitch == 1) { - *type = AT_FLEXUS_1; - } else { - *type = AT_FLEXUS; - } - *gtype = T_ANCUS; - ambitus = first_pitch_of(glyph) - second_pitch_of(glyph); - shape = flexus_shape(glyph, ambitus, SHAPE_Ancus, - SHAPE_AncusLongqueue, SHAPE_Ancus); - ltype = LG_ONLY_DEMINUTUS; - break; - case G_SCANDICUS: - *type = AT_ONE_NOTE; - *gtype = T_SCANDICUS; - shape = SHAPE_Scandicus; - ltype = LG_NO_INITIO; - break; - case G_SALICUS: - *type = AT_ONE_NOTE; - *gtype = T_SALICUS; - ambitus = third_pitch_of(glyph) - second_pitch_of(glyph); - shape = flexus_shape(glyph, ambitus, SHAPE_Salicus, - SHAPE_SalicusLongqueue, SHAPE_Salicus); - ltype = LG_NO_INITIO; - break; - case G_SALICUS_FLEXUS: - *type = AT_ONE_NOTE; - *gtype = T_SALICUS_FLEXUS; - shape = SHAPE_SalicusFlexus; - ltype = LG_NO_INITIO; - break; - case G_PUNCTUM_INCLINATUM: - case G_PUNCTA_INCLINATA: - case G_2_PUNCTA_INCLINATA_DESCENDENS: - case G_3_PUNCTA_INCLINATA_DESCENDENS: - case G_4_PUNCTA_INCLINATA_DESCENDENS: - case G_5_PUNCTA_INCLINATA_DESCENDENS: - case G_2_PUNCTA_INCLINATA_ASCENDENS: - case G_3_PUNCTA_INCLINATA_ASCENDENS: - case G_4_PUNCTA_INCLINATA_ASCENDENS: - case G_5_PUNCTA_INCLINATA_ASCENDENS: - case G_PUNCTUM: - case G_STROPHA: - case G_VIRGA: - case G_VIRGA_REVERSA: - case G_STROPHA_AUCTA: - case G_DISTROPHA: - case G_DISTROPHA_AUCTA: - case G_TRISTROPHA: - case G_TRISTROPHA_AUCTA: - case G_BIVIRGA: - case G_TRIVIRGA: - case G_ALTERATION: - *type = AT_ONE_NOTE; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(gregoriotex_determine_glyph_name, - "called with unknown glyph: %s", - gregorio_glyph_type_to_string(glyph->u.notes.glyph_type)); - break; - /* LCOV_EXCL_STOP */ - } - if (shape) { - shape = compute_glyph_name(glyph, shape, ltype, false); - } - /* we fix *type with initio_debilis */ - if (*type == AT_ONE_NOTE) { - if (is_initio_debilis(glyph->u.notes.liquescentia)) { - *type = AT_INITIO_DEBILIS; - } - } - - return shape; -} - -/** - * This now does nothing useful, but we keep it here in case it may - * be needed in future. - */ -static void gregoriotex_write_voice_info(FILE *f, gregorio_voice_info *voice_info) -{ - gregorio_assert(f && voice_info, gregoriotex_write_voice_info, - "file or voice_info passed as NULL", return); -} - -/* this function indicates if the syllable is the last of the line or score. */ -static bool is_last_of_line(gregorio_syllable *syllable) -{ - gregorio_element *current_element = NULL; - if (!(syllable->next_syllable) || ((syllable->next_syllable->elements)[0] - && (syllable->next_syllable->elements)[0]->type - == GRE_END_OF_LINE)) { - /* the next syllable start by an end of line */ - return true; - } - if (syllable->elements) { - current_element = (syllable->elements)[0]; - while (current_element) { - if (current_element->type == GRE_END_OF_LINE) { - /* we return true only if the end of line is the last element */ - if (!(current_element->next)) { - return true; - } else { - return false; - } - } else { - current_element = current_element->next; - } - } - } - return false; -} - -/* - * ! @brief Prints the beginning of each text style - */ -static void gtex_write_begin(FILE *f, grestyle_style style) -{ - if (style == gregoriotex_ignore_style) { - return; - } - switch (style) { - case ST_ITALIC: - fprintf(f, "\\GreItalic{"); - break; - case ST_SMALL_CAPS: - fprintf(f, "\\GreSmallCaps{"); - break; - case ST_BOLD: - fprintf(f, "\\GreBold{"); - break; - case ST_FORCED_CENTER: - case ST_CENTER: - fprintf(f, "}{"); - break; - case ST_TT: - fprintf(f, "\\GreTypewriter{"); - break; - case ST_UNDERLINED: - fprintf(f, "\\GreUnderline{"); - break; - case ST_COLORED: - fprintf(f, "\\GreColored{"); - break; - case ST_ELISION: - fprintf(f, "\\GreElision{"); - break; - case ST_FIRST_WORD: - fprintf(f, "\\GreFirstWord{"); - break; - case ST_FIRST_SYLLABLE: - fprintf(f, "\\GreFirstSyllable{"); - break; - case ST_FIRST_SYLLABLE_INITIAL: - fprintf(f, "\\GreFirstSyllableInitial{"); - break; - case ST_PROTRUSION_FACTOR: - fprintf(f, "\\GreProtrusion{"); - break; - case ST_PROTRUSION: - fprintf(f, "{"); - break; - default: - break; - } -} - -/** - * @brief Ends each text style - */ -static void gtex_write_end(FILE *f, grestyle_style style) -{ - if (style == gregoriotex_ignore_style) { - return; - } - switch (style) { - case ST_FORCED_CENTER: - case ST_CENTER: - case ST_SYLLABLE_INITIAL: - fprintf(f, "}{"); - break; - case ST_INITIAL: - break; - default: - fprintf(f, "}"); - break; - } -} - -static __inline void tex_escape_text(FILE *const f, const char *text) -{ - /* We escape these characters into \string\ddd (where ddd is the decimal - * ASCII value of the character) for most escapes, and into \string\n for - * newlines. We do it this way to get the "raw" string values through TeX - * and into Lua, where the sequences become \ddd and \n respectively and - * are translated into their byte values. Lua can then decide whether the - * full strings should be evaluated by TeX as TeX or as strings */ - for (; *text; ++text) { - switch (*text) { - case '\\': - case '{': - case '}': - case '~': - case '%': /* currently, we'll never get %, but handle it anyway */ - case '#': - case '"': - /* these characters have special meaning to TeX */ - fprintf(f, "\\string\\%03d", *text); - break; - case '\n': - fprintf(f, "\\string\\n"); - break; - case '\r': - /* ignore */ - break; - default: - /* UTF-8 multibyte sequences will fall into here, which is fine */ - fputc(*text, f); - break; - } - } -} - -static __inline void tex_escape_wtext(FILE *const f, const grewchar *text) -{ - /* We escape these characters into \string\ddd (where ddd is the decimal - * ASCII value of the character) for most escapes, and into \string\n for - * newlines. We do it this way to get the "raw" string values through TeX - * and into Lua, where the sequences become \ddd and \n respectively and - * are translated into their byte values. Lua can then decide whether the - * full strings should be evaluated by TeX as TeX or as strings */ - for (; *text; ++text) { - switch (*text) { - case L'\\': - case L'{': - case L'}': - case L'~': - case L'%': /* currently, we'll never get %, but handle it anyway */ - case L'#': - case L'"': - /* these characters have special meaning to TeX */ - fprintf(f, "\\string\\%03d", *text); - break; - /* There is currently no way to get a carriage return or a newline into - * an <sp>, but we'll leave this code here, but #if'd out, in case we - * need this function in a different context */ -#if 0 - case L'\n': - fprintf(f, "\\string\\n"); - break; - case L'\r': - / * ignore * / - break; -#endif - default: - gregorio_print_unichar(f, *text); - break; - } - } -} - -/* - * ! @brief Writes GregorioTeX special characters. This function takes the - * special characters as input (i.e. from gabc representation), and writes them - * * in GregorioTeX form. - */ -static void gtex_write_special_char(FILE *f, const grewchar *special_char) -{ - fprintf(f, "\\GreSpecial{"); - tex_escape_wtext(f, special_char); - fprintf(f, "}"); -} - -static void gtex_write_verb(FILE *f, const grewchar *first_char) -{ - gregorio_print_unistring(f, first_char); -} - -static void gtex_print_char(FILE *f, const grewchar to_print) -{ - switch (to_print) { - case L'*': - fprintf(f, "\\GreStar{}"); - break; - case L'%': - /* there's currently no way to get a % into gabc, so this wont be hit, - * but we leave it here for safety and possible future use */ - /* LCOV_EXCL_START */ - fprintf(f, "\\%%{}"); - break; - /* LCOV_EXCL_STOP */ - case L'\\': - fprintf(f, "\\textbackslash{}"); - break; - case L'&': - fprintf(f, "\\&{}"); - break; - case L'#': - fprintf(f, "\\#{}"); - break; - case L'+': - fprintf(f, "\\GreDagger{}"); - break; - case L'_': - fprintf(f, "\\_{}"); - break; - case L'-': - fprintf(f, "\\GreHyph{}"); - break; - default: - gregorio_print_unichar(f, to_print); - break; - } - return; -} - -/* a function to map the internal ST_* styles to gregoriotex styles as defined - * in gregoriotex-syllables.tex */ -static unsigned char gregoriotex_internal_style_to_gregoriotex( - const grestyle_style style) -{ - switch (style) { - case ST_ITALIC: - return 1; - case ST_BOLD: - return 2; - case ST_SMALL_CAPS: - return 3; - case ST_TT: - return 4; - case ST_UNDERLINED: - return 5; - case ST_COLORED: - return 6; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(gregoriotex_internal_style_to_gregoriotex, - "unrecognized style: %s", grestyle_style_to_string(style)); - return 0; - /* LCOV_EXCL_STOP */ - } -} - -/* - * A quite hacky function: when we have only one style (typically italic) and - * when this style is on all the parts, then we return this style. - * - */ -static grestyle_style gregoriotex_fix_style( - const gregorio_character *current_char) -{ - grestyle_style possible_fixed_style = ST_NO_STYLE; - grestyle_style in_fixed_style = ST_NO_STYLE; - while (current_char) { - if (!in_fixed_style) { - /* before the first style */ - if (current_char->is_character) { - /* got some character, so no future style can apply to the - * entire syllable */ - return ST_NO_STYLE; - } - if (current_char->cos.s.type == ST_T_BEGIN) { - switch (current_char->cos.s.style) { - case ST_VERBATIM: - case ST_SPECIAL_CHAR: - /* these are pseudo-characters, and if they appear - * before the first style, then the style does not - * apply to the entire syllable */ - return ST_NO_STYLE; - - case ST_ITALIC: - case ST_BOLD: - case ST_TT: - case ST_SMALL_CAPS: - case ST_UNDERLINED: - case ST_COLORED: - if (possible_fixed_style) { - if (current_char->cos.s.style != possible_fixed_style) { - /* found a differing style */ - return ST_NO_STYLE; - } else { - /* same style which may apply to the entire - * syllable */ - in_fixed_style = possible_fixed_style; - } - } else { - /* we found a candidate fixed style */ - in_fixed_style = possible_fixed_style = - current_char->cos.s.style; - } - break; - - default: - /* anything else is "transparent" before the first real - * or pseudo-character */ - break; - } - } - /* else it's an end of a style, which we treat as "transparent" - * noise */ - } else { - /* we have a possible style */ - if (!current_char->is_character) { - if (current_char->cos.s.type == ST_T_BEGIN) { - switch (current_char->cos.s.style) { - case ST_ITALIC: - case ST_BOLD: - case ST_TT: - case ST_SMALL_CAPS: - case ST_UNDERLINED: - case ST_COLORED: - if (current_char->cos.s.style != possible_fixed_style) { - /* found a differing style */ - return ST_NO_STYLE; - } - /* else it's a (nested) open of the same style, which - * doesn't change the style; however, nested styles - * (should) have been eliminated by now */ - /* LCOV_EXCL_START */ - gregorio_fail(gregoriotex_fix_style, "encountered a " - "nested style which should have been removed " - "by now"); - break; - /* LCOV_EXCL_STOP */ - - default: - /* anything else is a pseudo-character or a - * "transparent" style, which don't affect the fixed - * style */ - break; - } - } else if (current_char->cos.s.type == ST_T_END) { - if (current_char->cos.s.style == possible_fixed_style) { - /* we closed the possible fixed style; we don't return - * yet to give it the chance to re-open */ - in_fixed_style = ST_NO_STYLE; - } - /* else it's a close of something we don't care about or a - * style that wasn't opened, so for the purposes of this - * function, these are "transparent" and don't affect the - * fixed style */ - } - } - /* else it's a character, and that doesn't affect the fixed style */ - } - current_char = current_char->next_character; - } - return possible_fixed_style; -} - -/* - * @brief Writes the translation. - * - * There is no special handling of translation text; that is, we just print the - * entire string of text under the normal text line, without considering any - * special centering or linebreaks. - */ -static __inline void write_translation(FILE *f, - gregorio_character *translation) -{ - gregorio_not_null(translation, write_translation, return); - gregorio_write_text(WTP_NORMAL, translation, f, >ex_write_verb, - >ex_print_char, >ex_write_begin, >ex_write_end, - >ex_write_special_char); -} - -/* a function to compute the height of the flat of a key - * the flat is always on the line of the */ - -static char clef_flat_height(gregorio_clef clef, signed char line, bool flatted) -{ - char offset = 6; - - if (!flatted) { - return NO_KEY_FLAT; - } - - switch (clef) { - case CLEF_C: - switch (line) { - case 1: - offset = 2; - break; - case 2: - offset = 4; - break; - case 3: - offset = 6; - break; - case 4: - offset = 8; - break; - case 5: - offset = 10; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(clef_flat_height, "unknown line number: %d", line); - break; - /* LCOV_EXCL_STOP */ - } - break; - case CLEF_F: - switch (line) { - case 1: - offset = 6; - break; - case 2: - offset = 8; - break; - case 3: - offset = 3; - break; - case 4: - offset = 5; - break; - case 5: - offset = 7; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(clef_flat_height, "unknown line number: %d", line); - break; - /* LCOV_EXCL_STOP */ - } - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(clef_flat_height, "unknown clef type: %d", clef); - break; - /* LCOV_EXCL_STOP */ - } - - return pitch_value(LOWEST_PITCH + offset); -} - -static __inline bool is_manual_custos(const gregorio_element *const element) -{ - return element->type == GRE_CUSTOS && element->u.misc.pitched.force_pitch; -} - -OFFSET_CASE(BarStandard); -OFFSET_CASE(BarVirgula); -OFFSET_CASE(BarDivisioFinalis); - -static void write_bar(FILE *f, const gregorio_score *const score, - const gregorio_syllable *const syllable, - const gregorio_element *const element, - const unsigned char first_of_disc) -{ - const gregorio_bar type = element->u.misc.unpitched.info.bar; - const gregorio_sign signs = element->u.misc.unpitched.special_sign; - const bool is_inside_bar = element->next && !is_manual_custos(element->next) - && element->next->type != GRE_END_OF_LINE; - const bool has_text = !element->previous && syllable->text; - /* the type number of function vepisemaorrare */ - const char *offset_case = BarStandard; - signed char far_pitch_adjustment = 0; - /* don't use "In" version of bars in the first argument of a GreDiscretionary */ - if (is_inside_bar && first_of_disc != 1) { - fprintf(f, "\\GreIn"); - } else { - fprintf(f, "\\Gre"); - } - switch (type) { - case B_VIRGULA: - fprintf(f, "Virgula"); - offset_case = BarVirgula; - break; - case B_DIVISIO_MINIMA: - fprintf(f, "DivisioMinima"); - break; - case B_DIVISIO_MINOR: - fprintf(f, "DivisioMinor"); - break; - case B_DIVISIO_MAIOR: - fprintf(f, "DivisioMaior"); - break; - case B_DIVISIO_FINALIS: - fprintf(f, "DivisioFinalis"); - offset_case = BarDivisioFinalis; - break; - case B_DIVISIO_MINOR_D1: - fprintf(f, "Dominica{1}"); - break; - case B_DIVISIO_MINOR_D2: - fprintf(f, "Dominica{2}"); - break; - case B_DIVISIO_MINOR_D3: - fprintf(f, "Dominica{3}"); - break; - case B_DIVISIO_MINOR_D4: - fprintf(f, "Dominica{4}"); - break; - case B_DIVISIO_MINOR_D5: - fprintf(f, "Dominica{5}"); - break; - case B_DIVISIO_MINOR_D6: - fprintf(f, "Dominica{6}"); - break; - case B_DIVISIO_MINOR_D7: - fprintf(f, "Dominica{7}"); - break; - case B_DIVISIO_MINOR_D8: - fprintf(f, "Dominica{8}"); - break; - case B_VIRGULA_HIGH: - fprintf(f, "VirgulaHigh"); - offset_case = BarVirgula; - break; - case B_DIVISIO_MINIMA_HIGH: - fprintf(f, "DivisioMinimaHigh"); - break; - case B_DIVISIO_MAIOR_DOTTED: - fprintf(f, "DivisioMaiorDotted"); - break; - case B_DIVISIO_MINIMIS: - fprintf(f, "DivisioMinimis"); - break; - case B_DIVISIO_MINIMIS_HIGH: - fprintf(f, "DivisioMinimisHigh"); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(write_bar, "unknown bar type: %d", type); - break; - /* LCOV_EXCL_STOP */ - } - fprintf(f, "{%c}", has_text? '1' : '0'); - switch (signs) { - case _V_EPISEMA: - fprintf(f, "{\\GreBarVEpisema{\\GreOCase%s}}", offset_case); - break; - case _BAR_H_EPISEMA: - fprintf(f, "{\\GreBarBrace{\\GreOCase%s}}", offset_case); - break; - case _V_EPISEMA_BAR_H_EPISEMA: - fprintf(f, "{\\GreBarBrace{\\GreOCase%s}" - "\\GreBarVEpisema{\\GreOCase%s}}", - offset_case, offset_case); - break; - default: - fprintf(f, "{}"); - break; - } - switch (type) { - case B_DIVISIO_MINIMIS_HIGH: - ++ far_pitch_adjustment; - /* fall through */ - - case B_VIRGULA_HIGH: - case B_DIVISIO_MINIMA_HIGH: - ++ far_pitch_adjustment; - /* fall through */ - - case B_DIVISIO_MINIMIS: - ++ far_pitch_adjustment; - /* fall through */ - - case B_VIRGULA: - case B_DIVISIO_MINIMA: - { - char is_far = '0'; - const gregorio_element *e; - const gregorio_syllable *s; - const gregorio_glyph *g; - const gregorio_note *n; - signed char pitch; - - /* find the prior element */ - e = element->previous; - if (!e) { - for (s = syllable->previous_syllable; s; s = s->previous_syllable) { - /* loop to find the previous syllable with elements */ - if (s->elements && *s->elements) { - for (e = *s->elements; e->next; e = e->next) { - /* just loop to find the last element */ - } - break; - } - } - } - if (e && e->type == GRE_ELEMENT) { - g = e->u.first_glyph; - if (g) { - while (g->next) { - /* loop to find the last glyph in the prior element */ - g = g->next; - } - } - if (g && g->type == GRE_GLYPH && (n = g->u.notes.first_note)) { - while (n->next) { - /* loop to find the last note */ - n = n->next; - } - pitch = n->u.note.pitch; - if (g->u.notes.liquescentia & L_DEMINUTUS && n->previous - && n->previous->u.note.pitch > pitch) { - pitch = n->previous->u.note.pitch; - } - if (pitch < score->virgula_far_pitch + far_pitch_adjustment) { - /* find next element */ - e = element->next; - if (!e) { - for (s = syllable->next_syllable; s; - s = s->next_syllable) { - /* loop to find the next syllable with elements */ - if (s->elements && *s->elements) { - e = *s->elements; - break; - } - } - } - if (e) { - if (e->type == GRE_END_OF_LINE) { - is_far = '1'; - } else if (e->type == GRE_ELEMENT) { - g = e->u.first_glyph; - if (g && g->type == GRE_GLYPH) { - n = g->u.notes.first_note; - if (n) { - if (g->u.notes.glyph_type == G_PODATUS - && n->next) { - n = n->next; - } - if (n->u.note.pitch - < score->virgula_far_pitch - + far_pitch_adjustment) { - is_far = '1'; - } - } - } - } - } - } - } - } - fprintf(f, "{%c}%%\n", is_far); - } - break; - - default: - fprintf(f, "%%\n"); - break; - } -} - -static __inline char *suppose_high_ledger_line(const gregorio_note *const note) -{ - return note->high_ledger_line? "\\GreSupposeHighLedgerLine" : ""; -} - -static __inline char *suppose_low_ledger_line(const gregorio_note *const note) -{ - return note->low_ledger_line? "\\GreSupposeLowLedgerLine" : ""; -} - -/* - * ! @brief Writes augmentum duplexes (double dots) We suppose we are on the - * last note. \n The algorithm is the following: if there is a previous note, - * we consider that the two puncta of the augumentum duplex must correspond to - * the last note and the previous note. If we are adding to a single note - * glyph, which would be weird but sure why not, we just typeset two puncta - * spaced of 2. - */ -static void write_auctum_duplex(FILE *f, - const gregorio_note *const current_note) -{ - char pitch = current_note->u.note.pitch; - char previous_pitch = 0; - /* second_pitch is the second argument of the \augmentumduplex macro, - * that's what this function is all about. */ - char second_pitch = 0; - /* this variable will be set to 1 if we are on the note before the last - * note of a podatus or a porrectus or a torculus resupinus */ - unsigned char special_punctum = 0; - if (current_note->previous) { - if (current_note->previous->u.note.pitch - current_note->u.note.pitch == - -1 - || current_note->previous->u.note.pitch - - current_note->u.note.pitch == 1) { - special_punctum = 1; - } - second_pitch = current_note->previous->u.note.pitch; - previous_pitch = second_pitch; - } - - if (!previous_pitch || previous_pitch == pitch) { - if (is_on_a_line(pitch)) { - second_pitch = pitch; - special_punctum = 1; - } else { - second_pitch = pitch + 1; - } - } - /* the first argument should always be the lowest one, that's what we do - * here: */ - if (pitch > second_pitch) { - previous_pitch = pitch; - pitch = second_pitch; - second_pitch = previous_pitch; - } - /* maybe the third argument should be changed */ - fprintf(f, "\\GreAugmentumDuplex{%d}{%d}{%d}%%\n", pitch_value(pitch), - pitch_value(second_pitch), special_punctum); -} - -/** - * @brief Adds a dot. - * - * Writes \c \\GrePunctumMora in the gtex file, with the appropriate arguments. You might think this function - * more straightforward than it actually is... - */ -static void write_punctum_mora(FILE *f, const gregorio_glyph *glyph, - const gregorio_note *current_note, const int fuse_to_next_note) -{ - /* in this if we consider that the puncta are only on the last two notes - * (maybe it would be useful to consider it more entirely, but it would be - * really weird...) */ - /* the variable that will be set to true if we have to shift the punctum - * inclinatum before the last note */ - bool shift_before = false; - /* this variable will be set to 1 if we are on the note before the last - * note of a podatus or a porrectus or a torculus resupinus */ - unsigned char special_punctum = 0; - /* 0 if space is normal, 1 if there should be no space after a punctum */ - unsigned char no_space = 0; - /* the pitch where to set the punctum */ - char pitch = current_note->u.note.pitch; - /* a variable to know if we are on a punctum inclinatum or not */ - unsigned char punctum_inclinatum = 0; - /* a temp variable */ - const gregorio_note *tmpnote; - /* we go into this switch only if it is the note before the last note */ - if (current_note->next) { - switch (glyph->u.notes.glyph_type) { - case G_FLEXA: - case G_TORCULUS: - case G_TORCULUS_RESUPINUS_FLEXUS: - case G_PORRECTUS_FLEXUS: - if (!(glyph->u.notes.liquescentia & L_DEMINUTUS)) { - shift_before = true; - } - if (is_between_lines(pitch) - && pitch - current_note->next->u.note.pitch == 1) { - special_punctum = 2; - } - break; - case G_PODATUS: - if ((current_note->u.note.shape != S_PUNCTUM - && current_note->u.note.shape != S_QUILISMA) - || (glyph->u.notes.liquescentia - & (L_AUCTUS_DESCENDENS | L_AUCTUS_ASCENDENS))) { - shift_before = true; - /* fine tuning */ - if (current_note->next->u.note.pitch - - current_note->u.note.pitch == 1) { - if (is_on_a_line(current_note->u.note.pitch)) { - special_punctum = 1; - } else { - pitch = current_note->u.note.pitch - 1; - } - } - } else { - /* case for f.g */ - if (current_note->next->u.note.pitch - - current_note->u.note.pitch == 1) { - special_punctum = 1; - } - } - break; - case G_PES_QUADRATUM: - shift_before = true; - if (current_note->next->u.note.pitch - current_note->u.note.pitch == - 1) { - if (is_on_a_line(current_note->u.note.pitch)) { - special_punctum = 1; - } else { - pitch = current_note->u.note.pitch - 1; - } - } - break; - case G_PORRECTUS: - case G_TORCULUS_RESUPINUS: - /* this case is only for the note before the previous note */ - if ((current_note->next->u.note.pitch - - current_note->u.note.pitch == -1 - || current_note->next->u.note.pitch - - current_note->u.note.pitch == 1) - && !(current_note->next->next)) - special_punctum = 1; - break; - default: - break; - } - } - /* we enter here in any case */ - switch (glyph->u.notes.glyph_type) { - case G_PUNCTA_INCLINATA: - case G_2_PUNCTA_INCLINATA_DESCENDENS: - case G_3_PUNCTA_INCLINATA_DESCENDENS: - case G_4_PUNCTA_INCLINATA_DESCENDENS: - case G_5_PUNCTA_INCLINATA_DESCENDENS: - case G_TORCULUS: - if (!current_note->next) { - special_punctum = 1; - } - break; - default: - break; - } - switch (current_note->u.note.shape) { - case S_PUNCTUM_INCLINATUM_ASCENDENS: - case S_PUNCTUM_INCLINATUM_STANS: - case S_PUNCTUM_INCLINATUM_DESCENDENS: - case S_PUNCTUM_INCLINATUM_DEMINUTUS: - punctum_inclinatum = 1; - break; - default: - break; - } - /* when the punctum mora is on a note on a line, and the prior note is on - * the space immediately above, the dot is placed on the space below the - * line instead */ - if (current_note->previous - && (current_note->previous->u.note.pitch - - current_note->u.note.pitch == 1) - && is_on_a_line(current_note->u.note.pitch) - && (current_note->previous->signs == _PUNCTUM_MORA - || current_note->previous->signs == _V_EPISEMA_PUNCTUM_MORA - || current_note->previous->choral_sign)) { - special_punctum = 1; - } - - if (current_note->mora_vposition) { - special_punctum = current_note->mora_vposition == VPOS_BELOW? 1 : 0; - } - - if (shift_before) { - if (current_note->next->u.note.pitch - current_note->u.note.pitch == -1 - || current_note->next->u.note.pitch - - current_note->u.note.pitch == 1) { - fprintf(f, "\\GrePunctumMora{%d}{3}{%d}{%d}%%\n", - pitch_value(pitch), special_punctum, punctum_inclinatum); - } else { - fprintf(f, "\\GrePunctumMora{%d}{2}{%d}{%d}%%\n", - pitch_value(pitch), special_punctum, punctum_inclinatum); - } - return; - } - /* There are two special cases. The first: if the next glyph is a - * ZERO_WIDTH_SPACE, and the current glyph is a PES, and the punctum mora - * is on the first note, and the first note of the next glyph is at least - * two (or three depending on something) pitches higher than the current - * note. - * You'll all have understood, this case is quite rare... but when it - * appears, we pass 1 as a second argument of \punctummora so that it - * removes the space introduced by the punctummora. */ - if (glyph->u.notes.glyph_type == G_PODATUS && glyph->next - && glyph->next->type == GRE_SPACE - && glyph->next->u.misc.unpitched.info.space == SP_ZERO_WIDTH - && current_note->next && glyph->next->next - && glyph->next->next->type == GRE_GLYPH - && glyph->next->next->u.notes.first_note - && (glyph->next->next->u.notes.first_note->u.note.pitch - - current_note->u.note.pitch > 1)) { - fprintf(f, "\\GrePunctumMora{%d}{1}{%d}{%d}%%\n", pitch_value(pitch), - special_punctum, punctum_inclinatum); - return; - } - /* if there is a punctum or a auctum dumplex on a note after, we put a - * zero-width punctum */ - tmpnote = current_note->next; - while (tmpnote) { - if (tmpnote->signs == _PUNCTUM_MORA || tmpnote->signs == _AUCTUM_DUPLEX - || tmpnote->signs == _V_EPISEMA_PUNCTUM_MORA - || tmpnote->signs == _V_EPISEMA_AUCTUM_DUPLEX - || tmpnote->choral_sign) { - no_space = 1; - break; - } - tmpnote = tmpnote->next; - } - /* use a special no-space punctum mora for ascending fusion */ - if (fuse_to_next_note) { - no_space = 1; - if (fuse_to_next_note > 0) { - special_punctum = 1; - } - } - - /* the normal operation */ - fprintf(f, "\\GrePunctumMora{%d}{%d}{%d}{%d}%%\n", pitch_value(pitch), - no_space, special_punctum, punctum_inclinatum); -} - -static __inline int get_punctum_inclinatum_space_case( - const gregorio_note *const note) -{ - char temp; - - switch (note->u.note.shape) { - case S_PUNCTUM_INCLINATUM_ASCENDENS: - if (note->previous) { - /* means that it is not the first note of the puncta inclinata - * sequence */ - temp = note->previous->u.note.pitch - note->u.note.pitch; - /* negative values = ascending ambitus */ - /* not sure we ever need to consider a larger ambitus here */ - switch (temp) { - case 1: - case 2: - case 3: - case 4: - return 25; - case -1: - default: - return 12; - case -2: - return 14; - case -3: - case -4: - return 15; - } - } - break; - case S_PUNCTUM_INCLINATUM_STANS: - if (note->previous) { - /* means that it is not the first note of the puncta inclinata - * sequence */ - return 26; - } - break; - case S_PUNCTUM_INCLINATUM_DESCENDENS: - if (note->previous) { - /* means that it is not the first note of the puncta inclinata - * sequence */ - temp = note->previous->u.note.pitch - note->u.note.pitch; - /* negative values = ascending ambitus */ - /* not sure we ever need to consider a larger ambitus here */ - switch (temp) { - case 1: - default: - return 3; - case 2: - return 10; - case 3: - case 4: - return 11; - case -1: - case -2: - case -3: - case -4: - return 24; - } - } - break; - case S_PUNCTUM_INCLINATUM_DEMINUTUS: - if (note->previous) { - /* means that it is not the first note of the puncta inclinata - * sequence */ - temp = note->previous->u.note.pitch - note->u.note.pitch; - if (temp < -2) { - return 15; - } else if (temp > 2) { - return 11; - } else { - if (note->previous - && note->previous->u.note.shape == - S_PUNCTUM_INCLINATUM_DEMINUTUS) { - if (temp < -1) { - /* really if the ambitus = 3rd at this point */ - return 14; - } else if (temp > 1) { - /* really if the ambitus = 3rd at this point */ - return 10; - } else { - /* temp == 0, so there is no ascending case */ - return 8; - } - } else { - if (temp < 0) { - /* puncta inclinatum followed by puncta inclinatum - * debilis */ - return 13; - } else if (temp > 0) { - /* puncta inclinatum followed by puncta inclinatum - * debilis */ - return 7; - } - } - } - } /* LCOV_EXCL_LINE */ - break; - case S_PUNCTUM_INCLINATUM_AUCTUS: - if (note->previous) { - /* means that it is not the first note of the puncta inclinata - * sequence */ - temp = note->previous->u.note.pitch - note->u.note.pitch; - if (temp < -1 || temp > 1) { - /* this is the normal interglyph space, so we'll use it for - * either direction */ - return 1; - } else { - /* temp == 0, so there is no ascending case */ - /* we approximate that it is the same space */ - return 3; - } - } - break; - default: - break; - } - - return -1; -} - -static __inline int get_punctum_inclinatum_to_nobar_space_case( - const gregorio_glyph *const glyph) -{ - if (glyph->u.notes.glyph_type <= G_PUNCTA_INCLINATA) { - const gregorio_glyph *next = gregorio_next_non_texverb_glyph(glyph); - if (next && next->type == GRE_GLYPH - && (next->u.notes.glyph_type == G_PUNCTUM - || (next->u.notes.glyph_type == G_FLEXA - && !next->u.notes.fuse_to_next_glyph))) { - int descent; - const gregorio_note *note = gregorio_glyph_last_note(glyph); - descent = note->u.note.pitch - - glyph->next->u.notes.first_note->u.note.pitch; - /* a negative descent is an ascent */ - switch(descent) { - case -1: - return 19; - case 1: - return 16; - case -2: - return 20; - case 2: - return 17; - case -3: - case -4: - return 21; - case 3: - case 4: - return 18; - } - } - } - - return -1; -} - -static __inline void write_single_hepisema(FILE *const f, int hepisema_case, - const gregorio_note *const note, gregorio_sign_orientation orientation, - bool connect, char height, const grehepisema_size size, const int i, - const gregorio_glyph *const glyph, - const int porrectus_long_episema_index, - bool (*const is_episema_shown)(const gregorio_note *)) -{ - if (height) { - const gregorio_hepisema_adjustment *adj = - gregorio_get_hepisema_adjustment( - note->he_adjustment_index[orientation]); - char ambitus = 0; - char size_arg; - - switch (size) { - case H_SMALL_LEFT: - size_arg = 'l'; - connect = false; - break; - case H_SMALL_CENTRE: - size_arg = 'c'; - connect = false; - break; - case H_SMALL_RIGHT: - size_arg = 'r'; - break; - default: - size_arg = 'f'; - break; - } - - if (i == porrectus_long_episema_index && note->next - && is_episema_shown(note->next)) { - ambitus = compute_ambitus(note); - } - - if (i - 1 != porrectus_long_episema_index || !note->previous - || !is_episema_shown(note->previous)) { - if (connect) { - const gregorio_glyph *next; - if (!note->next - && (!(next = gregorio_next_non_texverb_glyph(glyph)) - || next->type != GRE_SPACE - || next->u.misc.unpitched.info.space - != SP_ZERO_WIDTH)) { - /* not followed by a zero-width space */ - /* try to fuse from punctum inclinatum to nobar glyph */ - fprintf(f, - "\\GreHEpisemaBridge{%d}{%d}{%d}{%s%s}{%s}{%d}%%\n", - pitch_value(height), hepisema_case, - get_punctum_inclinatum_to_nobar_space_case(glyph), - suppose_high_ledger_line(note), - suppose_low_ledger_line(note), - adj->nudge? adj->nudge : "", adj->vbasepos); - } else if (note->next - && (note->next->u.note.shape - == S_PUNCTUM_INCLINATUM_ASCENDENS - || note->next->u.note.shape - == S_PUNCTUM_INCLINATUM_DESCENDENS - || note->next->u.note.shape - == S_PUNCTUM_INCLINATUM_DEMINUTUS - || note->next->u.note.shape - == S_PUNCTUM_INCLINATUM_AUCTUS)) { - /* is a punctum inclinatum of some sort */ - fprintf(f, "\\GreHEpisemaBridge{%d}{%d}{%d}{%s%s}{%s}{%d}%%\n", - pitch_value(height), hepisema_case, - get_punctum_inclinatum_space_case(note->next), - suppose_high_ledger_line(note), - suppose_low_ledger_line(note), - adj->nudge? adj->nudge : "", adj->vbasepos); - } - } - fprintf(f, "\\GreHEpisema{%d}{\\GreOCase%s}{%d}{%d}{%c}{%d}" - "{%s%s}{%s}{%d}%%\n", pitch_value(height), - note->gtex_offset_case, ambitus, hepisema_case, size_arg, - pitch_value(height), suppose_high_ledger_line(note), - suppose_low_ledger_line(note), adj->nudge? adj->nudge : "", - adj->vbasepos); - } - } -} - -/** - * @brief A function that writes the good \c \\hepisema in GregorioTeX. - * @param i The position of the note in the glyph. - */ -static void gregoriotex_write_hepisema(FILE *const f, - const gregorio_note *const note, const int i, const gtex_type type, - const gregorio_glyph *const glyph) -{ - int porrectus_long_episema_index = -1; - - gregorio_assert(note, gregoriotex_write_hepisema, - "called with NULL pointer", return); - - switch (type) { - case T_PORRECTUS: - case T_PORRECTUS_FLEXUS: - porrectus_long_episema_index = 1; - break; - case T_TORCULUS_RESUPINUS: - case T_TORCULUS_RESUPINUS_FLEXUS: - porrectus_long_episema_index = 2; - break; - default: - /* do nothing */ - break; - } - - write_single_hepisema(f, 1, note, SO_UNDER, note->h_episema_below_connect, - note->h_episema_below, note->h_episema_below_size, i, glyph, - porrectus_long_episema_index, >ex_is_h_episema_below_shown); - write_single_hepisema(f, 0, note, SO_OVER, note->h_episema_above_connect, - note->h_episema_above, note->h_episema_above_size, i, glyph, - porrectus_long_episema_index, >ex_is_h_episema_above_shown); -} - -/* a macro to write an additional line */ - -static void write_additional_line(FILE *f, int i, gtex_type type, bool bottom, - const gregorio_note *current_note, const gregorio_score *const score) -{ - char ambitus = 0; - gregorio_assert(current_note, write_additional_line, "called with no note", - return); - /* patch to get a line under the full glyph in the case of dbc (for - * example) */ - switch (type) { - case T_PORRECTUS: - case T_PORRECTUS_FLEXUS: - switch (i) { - case 1: - i = HEPISEMA_FIRST_TWO; - break; - case 2: - if (current_note->previous->u.note.pitch > LOW_LEDGER_LINE_PITCH - && current_note->previous->u.note.pitch - < score->high_ledger_line_pitch) { - i = HEPISEMA_FIRST_TWO; - /* HEPISEMA_FIRST_TWO works only for first note */ - current_note = current_note->previous; - } else { - return; - } - break; - case 3: - if (bottom || current_note->previous->u.note.pitch - >= score->high_ledger_line_pitch) { - /* we don't need to add twice the same line */ - return; - } - break; - } - break; - case T_TORCULUS_RESUPINUS: - case T_TORCULUS_RESUPINUS_FLEXUS: - switch (i) { - case 2: - i = HEPISEMA_FIRST_TWO; - break; - case 3: - if (current_note->previous->u.note.pitch > LOW_LEDGER_LINE_PITCH - && current_note->previous->u.note.pitch - < score->high_ledger_line_pitch) { - i = HEPISEMA_FIRST_TWO; - /* HEPISEMA_FIRST_TWO works only for first note */ - current_note = current_note->previous; - } else { - return; - } - break; - case 4: - if (bottom || current_note->previous->u.note.pitch - >= score->high_ledger_line_pitch) { - /* we don't need to add twice the same line */ - return; - } - break; - } - break; - default: - break; - } - - if (i == HEPISEMA_FIRST_TWO) { - /* here we must compare the first note of the big bar with the second - * one, but it may be tricky sometimes, because of the previous patch */ - gregorio_assert_only(!current_note->previous || - current_note->u.note.pitch - > current_note->previous->u.note.pitch, - write_additional_line, "HEPISEMA_FIRST_TWO on the wrong note"); - ambitus = current_note->u.note.pitch - current_note->next->u.note.pitch; - } - fprintf(f, "\\GreAdditionalLine{\\GreOCase%s}{%d}{%d}%%\n", - current_note->gtex_offset_case, ambitus, bottom ? 3 : 2); -} - -/* - * - * a function that writes the good value of \vepisema in GregorioTeX. i is the - * position of the note in the glyph - * - */ - -static void write_vepisema(FILE *f, const gregorio_note *const note) -{ - fprintf(f, "\\GreVEpisema{%d}{\\GreOCase%s}%%\n", - pitch_value(note->v_episema_height), note->gtex_offset_case); -} - -/* - * a function that writes the rare signs in GregorioTeX. i is the position of - * the note in the glyph */ - -static void write_rare_sign(FILE *f, const gregorio_note *const current_note, - const gregorio_sign rare) -{ - switch (rare) { - case _ACCENTUS: - fprintf(f, "\\GreAccentus{%d}{\\GreOCase%s}%%\n", - pitch_value(current_note->u.note.pitch), - current_note->gtex_offset_case); - break; - case _ACCENTUS_REVERSUS: - fprintf(f, "\\GreReversedAccentus{%d}{\\GreOCase%s}%%\n", - pitch_value(current_note->u.note.pitch), - current_note->gtex_offset_case); - break; - case _CIRCULUS: - fprintf(f, "\\GreCirculus{%d}{\\GreOCase%s}%%\n", - pitch_value(current_note->u.note.pitch), - current_note->gtex_offset_case); - break; - case _SEMI_CIRCULUS: - fprintf(f, "\\GreSemicirculus{%d}{\\GreOCase%s}%%\n", - pitch_value(current_note->u.note.pitch), - current_note->gtex_offset_case); - break; - case _SEMI_CIRCULUS_REVERSUS: - fprintf(f, "\\GreReversedSemicirculus{%d}{\\GreOCase%s}%%\n", - pitch_value(current_note->u.note.pitch), - current_note->gtex_offset_case); - break; - case _MUSICA_FICTA_FLAT: - fprintf(f, "\\GreMusicaFictaFlat{%d}{\\GreOCase%s}%%\n", - pitch_value(current_note->u.note.pitch), - current_note->gtex_offset_case); - break; - case _MUSICA_FICTA_NATURAL: - fprintf(f, "\\GreMusicaFictaNatural{%d}{\\GreOCase%s}%%\n", - pitch_value(current_note->u.note.pitch), - current_note->gtex_offset_case); - break; - case _MUSICA_FICTA_SHARP: - fprintf(f, "\\GreMusicaFictaSharp{%d}{\\GreOCase%s}%%\n", - pitch_value(current_note->u.note.pitch), - current_note->gtex_offset_case); - break; - /* the cases of the bar signs are dealt in another function - * (write_bar) */ - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - assert(false); - break; - /* LCOV_EXCL_STOP */ - } -} - -static __inline const char *alteration_name( - const gregorio_shape next_note_alteration) -{ - switch (next_note_alteration) { - case S_FLAT: - return "Flat"; - case S_SHARP: - return "Sharp"; - case S_NATURAL: - return "Natural"; - default: - return ""; - } -} - -static const char *next_custos(const signed char next_note_pitch, - const gregorio_shape next_note_alteration, - gregoriotex_status *const status) -{ - static char buf[50]; - - gregorio_snprintf(buf, sizeof buf, "%s\\GreNextCustos{%d}{%s}", - status->suppressed_custos? "\\GreResetEolCustos" : "", - pitch_value(next_note_pitch), - alteration_name(next_note_alteration)); - - status->suppressed_custos = false; - - return buf; -} - -/* - * function used when the glyph is only one note long - */ - -static void write_note(FILE *f, gregorio_note *note, - const gregorio_glyph *glyph, const char next_note_pitch, - const gregorio_shape next_note_alteration, - gregoriotex_status *const status) -{ - unsigned int initial_shape = note->u.note.shape; - const char *shape; - int space_case; - static char cpbuf[96]; - /* type in the sense of GregorioTeX alignment type */ - gtex_alignment type = AT_ONE_NOTE; - gregorio_assert(note, write_note, "called with NULL pointer", - return); - if (note->u.note.shape == S_PUNCTUM) { - switch (note->u.note.liquescentia) { - case L_AUCTUS_ASCENDENS: - note->u.note.shape = S_PUNCTUM_AUCTUS_ASCENDENS; - break; - case L_AUCTUS_DESCENDENS: - note->u.note.shape = S_PUNCTUM_AUCTUS_DESCENDENS; - break; - case L_INITIO_DEBILIS: - if (glyph->u.notes.fuse_to_next_glyph > 0) { - break; - } - /* else fall through to next case */ - case L_DEMINUTUS: - /* this is a currenly unused, but we keep it as a fallback case */ - /* LCOV_EXCL_START */ - note->u.note.shape = S_PUNCTUM_DEMINUTUS; - break; - /* LCOV_EXCL_STOP */ - default: - break; - } - } - shape = determine_note_glyph_name(note, glyph, &type); - note->u.note.shape = initial_shape; - /* special things for puncta inclinata */ - space_case = get_punctum_inclinatum_space_case(note); - if (space_case >= 0) { - fprintf(f, "\\GreEndOfGlyph{%d}%%\n", space_case); - } - - switch (note->u.note.shape) { - case S_FLAT: - fprintf(f, "\\GreFlat{%d}{0}", pitch_value(note->u.note.pitch)); - break; - case S_NATURAL: - fprintf(f, "\\GreNatural{%d}{0}", pitch_value(note->u.note.pitch)); - break; - case S_SHARP: - fprintf(f, "\\GreSharp{%d}{0}", pitch_value(note->u.note.pitch)); - break; - default: - fprintf(f, "\\GreGlyph{%s}{%d}{%s}{%d}", - code_point(shape, glyph->u.notes.is_cavum, cpbuf, sizeof cpbuf), - pitch_value(note->u.note.pitch), - next_custos(next_note_pitch, next_note_alteration, status), - type); - break; - } -} - -static int gregoriotex_syllable_first_type(gregorio_syllable *syllable) -{ - int result = 0; - gtex_alignment type = AT_ONE_NOTE; - gtex_type gtype = T_ONE_NOTE; - /* alteration says if there is a flat or a natural first in the next - * syllable, see gregoriotex.tex for more details */ - int alteration = 0; - gregorio_glyph *glyph; - gregorio_element *element; - gregorio_assert(syllable && syllable->elements, - gregoriotex_syllable_first_type, "called with a NULL argument", - return 0); - for (element = syllable->elements[0]; element; element = element->next) { - if (element->type == GRE_BAR) { - switch (element->u.misc.unpitched.info.bar) { - case B_NO_BAR: - case B_VIRGULA: - case B_VIRGULA_HIGH: - result = 10; - break; - case B_DIVISIO_MINIMIS: - case B_DIVISIO_MINIMIS_HIGH: - case B_DIVISIO_MINIMA: - case B_DIVISIO_MINIMA_HIGH: - result = 11; - break; - case B_DIVISIO_MINOR: - result = 12; - break; - case B_DIVISIO_MAIOR: - case B_DIVISIO_MAIOR_DOTTED: - result = 13; - break; - case B_DIVISIO_MINOR_D1: - case B_DIVISIO_MINOR_D2: - case B_DIVISIO_MINOR_D3: - case B_DIVISIO_MINOR_D4: - case B_DIVISIO_MINOR_D5: - case B_DIVISIO_MINOR_D6: - case B_DIVISIO_MINOR_D7: - case B_DIVISIO_MINOR_D8: - result = 14; - break; - case B_DIVISIO_FINALIS: - result = 15; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(gregoriotex_syllable_first_type, "invalid bar"); - result = 0; - break; - /* LCOV_EXCL_STOP */ - } - return result; - } - if (element->type == GRE_ELEMENT && element->u.first_glyph) { - for (glyph = element->u.first_glyph; glyph; glyph = glyph->next) { - if (glyph->type == GRE_GLYPH && glyph->u.notes.first_note) { - switch (glyph->u.notes.glyph_type) { - case G_ALTERATION: - if (alteration == 0) { - switch (glyph->u.notes.first_note->u.note.shape) { - case S_FLAT: - alteration = 20; - break; - case S_NATURAL: - alteration = 40; - break; - case S_SHARP: - alteration = 60; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(gregoriotex_syllable_first_type, - "invalid alteration"); - break; - /* LCOV_EXCL_STOP */ - } - } - continue; - case G_PUNCTA_INCLINATA: - case G_2_PUNCTA_INCLINATA_DESCENDENS: - case G_3_PUNCTA_INCLINATA_DESCENDENS: - case G_4_PUNCTA_INCLINATA_DESCENDENS: - case G_5_PUNCTA_INCLINATA_DESCENDENS: - case G_2_PUNCTA_INCLINATA_ASCENDENS: - case G_3_PUNCTA_INCLINATA_ASCENDENS: - case G_4_PUNCTA_INCLINATA_ASCENDENS: - case G_5_PUNCTA_INCLINATA_ASCENDENS: - case G_PUNCTUM: - case G_STROPHA: - case G_VIRGA: - case G_VIRGA_REVERSA: - case G_STROPHA_AUCTA: - case G_DISTROPHA: - case G_DISTROPHA_AUCTA: - case G_TRISTROPHA: - case G_TRISTROPHA_AUCTA: - case G_BIVIRGA: - case G_TRIVIRGA: - determine_note_glyph_name - (glyph->u.notes.first_note, glyph, &type); - break; - default: - gregoriotex_determine_glyph_name(glyph, &type, >ype); - break; - } - return type + alteration; - } - } - } - } - if (syllable->elements[0]) { - /* if there is anything else in the next syllable */ - return 0; - } - /* the only thing that should reach this point is an empty next syllable - * we treat that kind of syllable as a bar */ - return 16; -} - -static __inline void write_low_choral_sign(FILE *const f, - const gregorio_note *const note, int special) -{ - if (note->choral_sign_is_nabc) { - fprintf(f, "\\GreLowChoralSign{%d}{\\GreNABCChar{", - pitch_value(note->u.note.pitch)); - tex_escape_text(f, note->choral_sign); - fprintf(f, "}}{%d}%%\n", special); - } else { - fprintf(f, "\\GreLowChoralSign{%d}{%s}{%d}%%\n", - pitch_value(note->u.note.pitch), note->choral_sign, - special); - } -} - -static __inline void write_high_choral_sign(FILE *const f, - const gregorio_note *const note, int pitch_offset) -{ - if (note->choral_sign_is_nabc) { - fprintf(f, "\\GreHighChoralSign{%d}{\\GreNABCChar{", - pitch_value(note->u.note.pitch + pitch_offset)); - tex_escape_text(f, note->choral_sign); - fprintf(f, "}}{\\GreOCase%s}%%\n", note->gtex_offset_case); - } else { - fprintf(f, "\\GreHighChoralSign{%d}{%s}{\\GreOCase%s}%%\n", - pitch_value(note->u.note.pitch + pitch_offset), - note->choral_sign, note->gtex_offset_case); - } -} - -static void write_choral_sign(FILE *f, const gregorio_glyph *glyph, - const gregorio_note *current_note, bool low) -{ - bool kind_of_pes; - /* false in the normal case (sign above the note), true in the case of it's - * next to the note (same height as a punctum) */ - bool low_sign = choral_sign_here_is_low(glyph, current_note, &kind_of_pes); - - /* the low choral signs must be typeset after the punctum, whereas the high - * must be typeset before the h episema */ - if ((low_sign && !low) || (!low_sign && low)) { - return; - } - - if (low_sign) { - /* very approximative heuristic, some things may have to be adapted - * here... */ - if (is_on_a_line(current_note->u.note.pitch)) { - if (kind_of_pes && current_note->u.note.pitch - - current_note->next->u.note.pitch == -1) { - write_low_choral_sign(f, current_note, 1); - return; - } - if (current_note->previous - && (current_note->previous->signs == _PUNCTUM_MORA - || current_note->previous->signs == - _V_EPISEMA_PUNCTUM_MORA)) { - write_low_choral_sign(f, current_note, 1); - return; - } - } - - write_low_choral_sign(f, current_note, 0); - } else { - /* let's cheat a little */ - if (is_on_a_line(current_note->u.note.pitch)) { - write_high_choral_sign(f, current_note, 0); - } else { - write_high_choral_sign(f, current_note, 2); - } - } -} - -/* - * - * A function that write the signs of a glyph, which has the type type (T_*, - * not G_*, which is in the glyph->glyph_type), and (important), we start only - * at the note current_note. It is due to the way we call it : if type is - * T_ONE_NOTE, we just do the signs on current_note, not all. This is the case - * for example for the first note of the torculus resupinus, or the - * G_*_PUNCTA_INCLINATA. - * - */ - -/* small helper */ -static __inline bool _found(FILE *const f, const bool found) -{ - if (!found) { - fprintf (f, "%%\n");\ - return true; - } - return found; -} - -static void compute_height_extrema(const gregorio_glyph *const glyph, - const gregorio_note *note, signed char *const top_height, - signed char *const bottom_height) -{ - char height; - /* get the minima/maxima pitches */ - for (; note; note = note->next) { - if (note->h_episema_above) { - height = note->h_episema_above; - } else { - if (note->v_episema_height && note->v_episema_height - > note->u.note.pitch) { - height = note->v_episema_height; - } else { - height = note->u.note.pitch; - } - - if (note->choral_sign - && !choral_sign_here_is_low(glyph, note, NULL)) { - ++height; - } - } - if (*top_height == UNDETERMINED_HEIGHT || height > *top_height) { - *top_height = height; - } - - if (note->h_episema_below) { - height = note->h_episema_below; - } else if (note->v_episema_height && note->v_episema_height - < note->u.note.pitch) { - height = note->v_episema_height; - } else { - height = note->u.note.pitch; - - /* no vertical episema, so we need to check for a stem */ - gregorio_assert(glyph->type == GRE_GLYPH, compute_height_extrema, - "glyph->type must be GRE_GLYPH here", return); - switch (glyph->u.notes.glyph_type) { - case G_BIVIRGA: - case G_TRIVIRGA: - case G_VIRGA: - case G_VIRGA_REVERSA: - --height; - break; - - case G_PUNCTUM: - switch (note->u.note.shape) { - case S_ORISCUS_SCAPUS_ASCENDENS: - case S_ORISCUS_SCAPUS_DESCENDENS: - --height; - break; - - default: - /* default to avoid the warning */ - break; - } - break; - - default: - /* default to avoid the warning */ - - /* other shapes like the porrectus have stems, but the height - * computation will cover other notes in the shape, negating - * the need to account for the stem on the shape */ - break; - } - } - - if (*bottom_height == UNDETERMINED_HEIGHT || height < *bottom_height) { - *bottom_height = height; - } - } -} - -static void compute_element_height_extrema( - const gregorio_element *const element, signed char *const top_height, - signed char *const bottom_height) -{ - const gregorio_glyph *glyph; - gregorio_not_null(element, compute_element_height_extrema, return); - if (element->type != GRE_ELEMENT) { - return; - } - /* get the minima/maxima pitches */ - for (glyph = element->u.first_glyph; glyph; glyph = glyph->next) { - if (glyph->type == GRE_GLYPH) { - compute_height_extrema(glyph, glyph->u.notes.first_note, - top_height, bottom_height); - } - } -} - -static __inline void fixup_height_extrema(signed char *const top_height, - signed char *const bottom_height) -{ - if (*top_height == UNDETERMINED_HEIGHT) { - *top_height = 9; /* 'g' */ - } - if (*bottom_height == UNDETERMINED_HEIGHT) { - *bottom_height = 9; /* 'g' */ - } -} - -static __inline bool is_ledger_drawn(const bool setting, - const gregorio_ledger_specificity specificity) -{ - return ((specificity & LEDGER_DRAWN) && setting); -} - -static void write_signs(FILE *f, gtex_type type, - const gregorio_glyph *glyph, const gregorio_note *note, - int fuse_to_next_note, gregoriotex_status *const status, - const gregorio_score *const score) -{ - /* i is the number of the note for which we are typesetting the sign. */ - int i; - const gregorio_note *current_note; - signed char high_pitch = UNDETERMINED_HEIGHT; - signed char low_pitch = UNDETERMINED_HEIGHT; - bool found = false; - compute_height_extrema(glyph, note, &high_pitch, &low_pitch); - fixup_height_extrema(&high_pitch, &low_pitch); - fprintf(f, "%%\n{%%\n\\GreGlyphHeights{%d}{%d}%%\n", - pitch_value(high_pitch), pitch_value(low_pitch)); - for (current_note = note, i = 1; current_note; - current_note = current_note->next, ++i) { - /* we start by the additional lines */ - if (is_ledger_drawn(current_note->low_ledger_line, - current_note->low_ledger_specificity)) { - write_additional_line(f, i, type, true, current_note, score); - status->bottom_line = 1; - } - if (is_ledger_drawn(current_note->high_ledger_line, - current_note->high_ledger_specificity)) { - write_additional_line(f, i, type, false, current_note, score); - } - if (current_note->texverb) { - fprintf(f, "%% verbatim text at note level:\n%s%%\n" - "%% end of verbatim text\n", - gregorio_texverb(current_note->texverb)); - } - if (type == T_ONE_NOTE) { - break; - } - } - fprintf(f, "}{"); - /* now a first loop for the choral signs, because high signs must be taken - * into account before any hepisema */ - for (current_note = note, i = 1; current_note; - current_note = current_note->next, ++i) { - if (current_note->choral_sign) { - found = _found(f, found); - write_choral_sign(f, glyph, current_note, false); - } - if (type == T_ONE_NOTE) { - break; - } - } - /* a loop for rare signs, vertical episema, and horizontal episema */ - for (current_note = note, i = 1; current_note; - current_note = current_note->next, ++i) { - /* we continue with the hepisema */ - if (current_note->h_episema_above || current_note->h_episema_below) { - found = _found(f, found); - gregoriotex_write_hepisema(f, current_note, i, type, glyph); - } - /* write_rare_sign also writes the vepisema */ - if (current_note->special_sign) { - found = _found(f, found); - write_rare_sign(f, current_note, current_note->special_sign); - } - if (current_note->signs != _NO_SIGN) { - found = _found(f, found); - } - switch (current_note->signs) { - case _V_EPISEMA: - case _V_EPISEMA_PUNCTUM_MORA: - case _V_EPISEMA_AUCTUM_DUPLEX: - write_vepisema(f, current_note); - break; - default: - /* do nothing */ - break; - } - if (type == T_ONE_NOTE) { - break; - } - } - /* final loop for choral signs and punctum mora */ - for (current_note = note, i = 1; current_note; - current_note = current_note->next, ++i) { - switch (current_note->signs) { - case _PUNCTUM_MORA: - case _V_EPISEMA_PUNCTUM_MORA: - write_punctum_mora(f, glyph, current_note, fuse_to_next_note); - break; - case _AUCTUM_DUPLEX: - case _V_EPISEMA_AUCTUM_DUPLEX: - write_auctum_duplex(f, current_note); - break; - default: - break; - } - if (current_note->choral_sign) { - found = _found(f, found); - write_choral_sign(f, glyph, current_note, true); - } - if (type == T_ONE_NOTE) { - break; - } - } - fprintf(f, "}{"); - if (status->point_and_click) { - fprintf(f, "%u:%u:%u", note->src_line, note->src_offset, - note->src_column + 1); - } - fprintf(f, "}%%\n"); -} - -static char *determine_leading_shape(const gregorio_glyph *const glyph) -{ - static char buf[BUFSIZE]; - int ambitus = compute_ambitus(glyph->u.notes.first_note); - const char *head, *head_liquescence; - - switch (glyph->u.notes.first_note->u.note.shape) { - case S_QUILISMA: - head = "Quilisma"; - break; - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - head = "Oriscus"; - break; - default: - head = "Punctum"; - break; - } - - if (glyph->u.notes.liquescentia & L_INITIO_DEBILIS) { - head_liquescence = "InitioDebilis"; - } else { - head_liquescence = ""; - } - - gregorio_snprintf(buf, BUFSIZE, "Leading%s%s%s", head, tex_ambitus[ambitus], - head_liquescence); - return buf; -} - -static __inline void write_composed_multinote_glyph(FILE *const f, - gregorio_note *current_note, const gregorio_glyph *glyph, - const signed char next_note_pitch, - const gregorio_shape next_note_alteration, - const int fuse_to_next_note, gregoriotex_status *const status, - const gregorio_score *const score, const char *glyph_end_between_notes) -{ - while (current_note) { - const bool has_next = current_note->next != NULL; - if (has_next) { - write_note(f, current_note, glyph, current_note->next->u.note.pitch, - S_UNDETERMINED, status); - } else { - write_note(f, current_note, glyph, next_note_pitch, - next_note_alteration, status); - } - write_signs(f, T_ONE_NOTE, glyph, current_note, - has_next ? 0 : fuse_to_next_note, status, score); - current_note = current_note->next; - if (current_note && glyph_end_between_notes) { - fputs(glyph_end_between_notes, f); - } - } -} - -static void write_glyph(FILE *const f, const gregorio_syllable *const syllable, - const gregorio_element *const element, - gregorio_glyph *const glyph, - gregoriotex_status *const status, const gregorio_score *const score) -{ - static char cpbuf[96], cpbuf2[96]; - /* type is the type of the glyph. Understand the type of the glyph for - * gregoriotex, for the alignement between text and notes. (AT_ONE_NOTE, - * etc.) */ - gtex_alignment type = 0; - /* the type of the glyph, in the sense of the shape (T_PES, etc.) */ - gtex_type gtype = 0; - signed char next_note_pitch = 0; - gregorio_note *current_note; - const char *leading_shape, *shape; - const gregorio_glyph *prev_glyph = - gregorio_previous_non_texverb_glyph(glyph); - int fuse_to_next_note, fuse_from_previous_note = - (prev_glyph && prev_glyph->type == GRE_GLYPH) - ? prev_glyph->u.notes.fuse_to_next_glyph : 0; - gregorio_shape next_note_alteration; - gregorio_assert(glyph, write_glyph, "called with NULL pointer", return); - gregorio_assert(glyph->type == GRE_GLYPH && glyph->u.notes.first_note, - write_glyph, "called with glyph without note", return); - fuse_to_next_note = glyph->u.notes.fuse_to_next_glyph; - if (fuse_from_previous_note) { - fprintf(f, "\\GreFuse"); - } - next_note_pitch = gregorio_determine_next_pitch(syllable, element, glyph, - &next_note_alteration); - current_note = glyph->u.notes.first_note; - /* first we check if it is really a unique glyph in gregoriotex... the - * glyphs that are not a unique glyph are : trigonus and pucta inclinata - * in general, and torculus resupinus and torculus resupinus flexus, so - * we first divide the glyph into real gregoriotex glyphs */ - switch (glyph->u.notes.glyph_type) { - case G_PUNCTA_INCLINATA: - case G_2_PUNCTA_INCLINATA_DESCENDENS: - case G_3_PUNCTA_INCLINATA_DESCENDENS: - case G_4_PUNCTA_INCLINATA_DESCENDENS: - case G_5_PUNCTA_INCLINATA_DESCENDENS: - case G_2_PUNCTA_INCLINATA_ASCENDENS: - case G_3_PUNCTA_INCLINATA_ASCENDENS: - case G_4_PUNCTA_INCLINATA_ASCENDENS: - case G_5_PUNCTA_INCLINATA_ASCENDENS: - write_composed_multinote_glyph(f, current_note, glyph, - next_note_pitch, next_note_alteration, fuse_to_next_note, - status, score, NULL); - break; - case G_SCANDICUS: - if ((glyph->u.notes.liquescentia & L_DEMINUTUS) - || glyph->u.notes.liquescentia == L_NO_LIQUESCENTIA - || glyph->u.notes.liquescentia == L_FUSED) { - shape = gregoriotex_determine_glyph_name(glyph, &type, >ype); - fprintf(f, "\\GreGlyph{%s}{%d}{%s}{%d}", code_point(shape, - glyph->u.notes.is_cavum, cpbuf, sizeof cpbuf), - pitch_value(glyph->u.notes.first_note->u.note.pitch), - next_custos(next_note_pitch, next_note_alteration, status), - type); - write_signs(f, gtype, glyph, glyph->u.notes.first_note, - fuse_to_next_note, status, score); - } else { - write_composed_multinote_glyph(f, current_note, glyph, - next_note_pitch, next_note_alteration, fuse_to_next_note, - status, score, NULL); - } - break; - case G_ANCUS: - gregorio_assert(glyph->u.notes.liquescentia & L_DEMINUTUS, - write_glyph, "encountered a non-deminutus ancus", break); - shape = gregoriotex_determine_glyph_name(glyph, &type, >ype); - fprintf(f, "\\GreGlyph{%s}{%d}{%s}{%d}", code_point(shape, - glyph->u.notes.is_cavum, cpbuf, sizeof cpbuf), - pitch_value(glyph->u.notes.first_note->u.note.pitch), - next_custos(next_note_pitch, next_note_alteration, status), - type); - write_signs(f, gtype, glyph, glyph->u.notes.first_note, - fuse_to_next_note, status, score); - break; - case G_TORCULUS_RESUPINUS_FLEXUS: - /* we retain this "old-style" fusion as it does look marginally better - * on screen */ - leading_shape = determine_leading_shape(glyph); - /* trick to have the good position for these glyphs */ - glyph->u.notes.glyph_type = G_PORRECTUS_FLEXUS_NO_BAR; - glyph->u.notes.first_note = current_note->next; - shape = gregoriotex_determine_glyph_name(glyph, &type, >ype); - fprintf(f, "\\GreGlyph{\\GreFuseTwo{%s}{%s}}{%d}{%s}{%d}", - code_point(leading_shape, glyph->u.notes.is_cavum, cpbuf, - sizeof cpbuf), - code_point(shape, glyph->u.notes.is_cavum, cpbuf2, - sizeof cpbuf2), - pitch_value(glyph->u.notes.first_note->u.note.pitch), - next_custos(next_note_pitch, next_note_alteration, status), - type); - glyph->u.notes.first_note = current_note; - glyph->u.notes.glyph_type = G_TORCULUS_RESUPINUS_FLEXUS; - write_signs(f, gtype, glyph, glyph->u.notes.first_note, - fuse_to_next_note, status, score); - break; - case G_BIVIRGA: - case G_TRIVIRGA: - write_composed_multinote_glyph(f, current_note, glyph, - next_note_pitch, next_note_alteration, fuse_to_next_note, - status, score, "\\GreEndOfGlyph{4}%%\n"); - break; - case G_TRISTROPHA: - case G_TRISTROPHA_AUCTA: - case G_DISTROPHA: - case G_DISTROPHA_AUCTA: - write_composed_multinote_glyph(f, current_note, glyph, - next_note_pitch, next_note_alteration, fuse_to_next_note, - status, score, "\\GreEndOfGlyph{5}%%\n"); - break; - - case G_PUNCTUM: - switch (glyph->u.notes.first_note->u.note.shape) { - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - case S_ORISCUS_DEMINUTUS: - case S_ORISCUS_SCAPUS_ASCENDENS: - case S_ORISCUS_SCAPUS_DESCENDENS: - /* don't change the oriscus */ - break; - - default: - switch (glyph->u.notes.liquescentia) { - case L_AUCTUS_ASCENDENS: - glyph->u.notes.first_note->u.note.shape = - S_PUNCTUM_AUCTUS_ASCENDENS; - break; - case L_AUCTUS_DESCENDENS: - glyph->u.notes.first_note->u.note.shape = - S_PUNCTUM_AUCTUS_DESCENDENS; - break; - case L_INITIO_DEBILIS: - if (glyph->u.notes.fuse_to_next_glyph > 0) { - break; - } - /* else fall through to next case */ - case L_DEMINUTUS: - glyph->u.notes.first_note->u.note.shape = S_PUNCTUM_DEMINUTUS; - default: - break; - } - break; - } - - /* fall into the next case */ - case G_PUNCTUM_INCLINATUM: - case G_VIRGA: - case G_VIRGA_REVERSA: - case G_STROPHA: - case G_STROPHA_AUCTA: - case G_ALTERATION: - write_note(f, glyph->u.notes.first_note, glyph, next_note_pitch, - next_note_alteration, status); - write_signs(f, T_ONE_NOTE, glyph, current_note, fuse_to_next_note, - status, score); - break; - default: - /* we retain this "old-style" fusion as it does look marginally better - * on screen */ - /* special case of the torculus resupinus which first note is not a - * punctum */ - if (glyph->u.notes.glyph_type == G_TORCULUS_RESUPINUS - && current_note->u.note.shape != S_PUNCTUM - && current_note->u.note.shape != S_QUILISMA) { - leading_shape = determine_leading_shape(glyph); - /* trick to have the good position for these glyphs */ - glyph->u.notes.glyph_type = G_PORRECTUS_NO_BAR; - glyph->u.notes.first_note = current_note->next; - shape = gregoriotex_determine_glyph_name(glyph, &type, >ype); - fprintf(f, "\\GreGlyph{\\GreFuseTwo{%s}{%s}}{%d}{%s}{%d}", - code_point(leading_shape, glyph->u.notes.is_cavum, cpbuf, - sizeof cpbuf), - code_point(shape, glyph->u.notes.is_cavum, cpbuf2, - sizeof cpbuf2), - pitch_value(glyph->u.notes.first_note->u.note.pitch), - next_custos(next_note_pitch, next_note_alteration, status), - type); - glyph->u.notes.first_note = current_note; - glyph->u.notes.glyph_type = G_TORCULUS_RESUPINUS; - write_signs(f, gtype, glyph, glyph->u.notes.first_note, - fuse_to_next_note, status, score); - break; - } else { - shape = gregoriotex_determine_glyph_name(glyph, &type, >ype); - fprintf(f, "\\GreGlyph{%s}{%d}{%s}{%d}", code_point(shape, - glyph->u.notes.is_cavum, cpbuf, sizeof cpbuf), - pitch_value(glyph->u.notes.first_note->u.note.pitch), - next_custos(next_note_pitch, next_note_alteration, status), - type); - write_signs(f, gtype, glyph, glyph->u.notes.first_note, - fuse_to_next_note, status, score); - break; - } - } -} - -static __inline unsigned int glyph_note_units(const gregorio_glyph *glyph) -{ - unsigned int count = 0; - const gregorio_note *note; - if (glyph->u.notes.glyph_type != G_ALTERATION) { - for (note = glyph->u.notes.first_note; note; note = note->next) { - ++count; - } - } - return count; -} - -/* here we absolutely need to pass the syllable as an argument, because we - * will need the next note, that may be contained in the next syllable */ - -static unsigned int write_element(FILE *const f, - const gregorio_syllable *const syllable, - const gregorio_element *const element, - gregoriotex_status *const status, - const gregorio_score *const score) -{ - unsigned int note_unit_count = 0; - if (element->type == GRE_ELEMENT) { - gregorio_glyph *glyph; - for (glyph = element->u.first_glyph; glyph; glyph = glyph->next) { - switch (glyph->type) { - case GRE_SPACE: - switch (glyph->u.misc.unpitched.info.space) { - case SP_ZERO_WIDTH: - fprintf(f, "\\GreEndOfGlyph{1}%%\n"); - break; - case SP_HALF_SPACE: - fprintf(f, "\\GreEndOfGlyph{22}%%\n"); - break; - case SP_INTERGLYPH_SPACE: - fprintf(f, "\\GreEndOfGlyph{0}%%\n"); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(write_element, - "encountered an unexpected glyph-level space"); - break; - /* LCOV_EXCL_STOP */ - } - break; - - case GRE_TEXVERB_GLYPH: - if (glyph->texverb) { - fprintf(f, "%% verbatim text at glyph level:\n%s%%\n" - "%% end of verbatim text\n", - gregorio_texverb(glyph->texverb)); - } - break; - - default: - /* at this point glyph->type is GRE_GLYPH */ - assert(glyph->type == GRE_GLYPH); - write_glyph(f, syllable, element, glyph, status, score); - note_unit_count += glyph_note_units(glyph); - if (glyph->next && glyph->next->type == GRE_GLYPH && - glyph->next->u.notes.glyph_type != G_ALTERATION) { - if (is_fused(glyph->next->u.notes.liquescentia)) { - int space_case = - get_punctum_inclinatum_to_nobar_space_case(glyph); - if (space_case >= 0) { - /* fuse from punctum inclinatum to nobar glyph */ - fprintf(f, "\\GreEndOfGlyph{%d}%%\n", space_case); - } else { - fprintf(f, "\\GreEndOfGlyph{1}%%\n"); - } - } else if (is_puncta_inclinata( - glyph->next->u.notes.glyph_type) - || glyph->next->u.notes.glyph_type - == G_PUNCTA_INCLINATA) { - if ((is_puncta_inclinata(glyph->u.notes.glyph_type) - || glyph->u.notes.glyph_type - == G_PUNCTA_INCLINATA) - && glyph->next->u.notes.first_note->u.note.pitch - == gregorio_glyph_last_note(glyph)->u.note.pitch) { - /* special case for unison puncta inclinata */ - fprintf(f, "\\GreEndOfGlyph{23}%%\n"); - } else { - fprintf(f, "\\GreEndOfGlyph{9}%%\n"); - } - } else if (glyph->u.notes.glyph_type != G_ALTERATION - || !glyph->next) { - fprintf(f, "\\GreEndOfGlyph{0}%%\n"); - } - } - break; - } - } - } - return note_unit_count; -} - -static void write_fixed_text_styles(FILE *f, gregorio_character *syllable_text, - gregorio_character *next_syllable_text) -{ - if (syllable_text) { - gregoriotex_ignore_style = gregoriotex_fix_style(syllable_text); - if (gregoriotex_ignore_style) { - fprintf(f, "\\GreSetFixedTextFormat{%d}", - gregoriotex_internal_style_to_gregoriotex - (gregoriotex_ignore_style)); - } - } - if (next_syllable_text) { - gregoriotex_next_ignore_style = gregoriotex_fix_style( - next_syllable_text); - if (gregoriotex_next_ignore_style) { - fprintf(f, "\\GreSetFixedNextTextFormat{%d}", - gregoriotex_internal_style_to_gregoriotex - (gregoriotex_next_ignore_style)); - } - } -} - -static void write_text(FILE *const f, const gregorio_character *const text) -{ - if (text == NULL) { - fprintf(f, "{}{}{}{}{}"); - return; - } - fprintf(f, "{"); - gregorio_write_text(WTP_NORMAL, text, f, >ex_write_verb, - >ex_print_char, >ex_write_begin, >ex_write_end, - >ex_write_special_char); - fprintf(f, "}{"); - gregorio_write_first_letter_alignment_text(WTP_NORMAL, text, - f, >ex_write_verb, >ex_print_char, >ex_write_begin, - >ex_write_end, >ex_write_special_char); - gregoriotex_ignore_style = gregoriotex_next_ignore_style; - gregoriotex_next_ignore_style = ST_NO_STYLE; - fprintf(f, "}"); -} - -/* - * Function printing the line clef change (only updating \localleftbox, not - * printing the key). Useful for \GreDiscretionary. - * TODO: I'm not sure about the third argument, but that's how it's called in - * \GreChangeClef. - */ -static void gregoriotex_print_change_line_clef(FILE *f, - const gregorio_element *const current_element) -{ - if (current_element->type == GRE_CLEF) { - /* the third argument is 0 or 1 according to the need for a space - * before the clef */ - fprintf(f, "\\GreSetLinesClef{%c}{%d}{1}{%d}{%c}{%d}{%d}%%\n", - gregorio_clef_to_char(current_element->u.misc.clef.clef), - current_element->u.misc.clef.line, - clef_flat_height(current_element->u.misc.clef.clef, - current_element->u.misc.clef.line, - current_element->u.misc.clef.flatted), - gregorio_clef_to_char( - current_element->u.misc.clef.secondary_clef), - current_element->u.misc.clef.secondary_line, - clef_flat_height(current_element->u.misc.clef.secondary_clef, - current_element->u.misc.clef.secondary_line, - current_element->u.misc.clef.secondary_flatted)); - } -} - -static __inline bool next_is_bar(const gregorio_syllable *syllable, - const gregorio_element *element) -{ - bool got_custos = false; - if (element) { - element = element->next; - } - - while (syllable) { - if (element) { - if (element->type == GRE_BAR) { - return true; - } - /* allow no more than one manual custos before a bar */ - if (got_custos || !is_manual_custos(element)) { - return false; - } - got_custos = true; - if (element->next) { - /* look at the next element */ - element = element->next; - continue; - } - } - - syllable = syllable->next_syllable; - if (!syllable) { - return false; - } - - element = syllable->elements[0]; - } - - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(next_is_bar, "unexpected end of syllables/elements"); - return false; - /* LCOV_EXCL_STOP */ -} - -static void finish_syllable(FILE *f, gregorio_syllable *syllable) { - /* Very last, if the syllable is the end of a no-linebreak area: */ - if (syllable->no_linebreak_area == NLBA_END) { - fprintf(f, "\\GreEndNLBArea{%d}{0}%%\n", - next_is_bar(syllable, NULL)? 3 : 1); - } - if (syllable->euouae == EUOUAE_END) { - fprintf(f, "\\GreEndEUOUAE{%d}%%\n", - next_is_bar(syllable, NULL)? 3 : 1); - } -} - -static void handle_final_bar(FILE *f, const char *type, gregorio_syllable *syllable) -{ - gregorio_element *element; - fprintf(f, "\\GreFinal%s{%%\n", type); - /* first element will be the bar, which we just handled, so skip it */ - for (element = (*syllable->elements)->next; element; - element = element->next) { - switch (element->type) { - case GRE_TEXVERB_ELEMENT: - if (element->texverb) { - fprintf(f, "%% verbatim text at element level:\n%s%%\n" - "%% end of verbatim text\n", - gregorio_texverb(element->texverb)); - } - break; - - case GRE_CUSTOS: - assert(element->u.misc.pitched.force_pitch); - fprintf(f, "\\GreFinalCustos{%d}{}%%\n", - pitch_value(element->u.misc.pitched.pitch)); - break; - - case GRE_END_OF_LINE: - fprintf(f, "\\GreFinalNewLine%%\n"); - break; - - default: - /* do nothing */ - break; - } - } - fprintf(f, "}%%\n"); - finish_syllable(f, syllable); -} - -static __inline void write_syllable_point_and_click(FILE *const f, - const gregorio_syllable *const syllable, - const gregoriotex_status *const status) -{ - if (status->point_and_click && syllable->src_line) { - fprintf(f, "%u:%u:%u", syllable->src_line, syllable->src_offset, - syllable->src_column + 1); - } -} - -static void write_syllable_text(FILE *f, const char *const syllable_type, - const gregorio_syllable *const syllable, - const bool ignored __attribute__((unused))) -{ - if (syllable_type != NULL) { - fprintf(f, "%s{%s%s\\GreSetThisSyllable", syllable_type, - syllable->clear? "\\GreClearSyllableText" : "", - syllable->forced_center? "\\GreGABCForceCenters" : ""); - write_text(f, syllable->text); - fprintf(f, "}"); - } -} - -static void write_first_syllable_text(FILE *f, const char *const syllable_type, - const gregorio_syllable *const syllable, - const bool end_of_word) -{ - const gregorio_character *const text = syllable->text; - gregorio_not_null(syllable_type, write_first_syllable_text, return); - if (text == NULL) { - fprintf(f, "}{%s}{\\GreSetNoFirstSyllableText}", syllable_type); - } else { - gregorio_character *text_with_initial = gregorio_clone_characters(text), - *text_without_initial = gregorio_clone_characters(text); - const gregorio_character *t; - - /* find out if there is a forced center -> has_forced_center */ - gregorio_center_determination center = syllable->forced_center? - CENTER_FULLY_DETERMINED : CENTER_NOT_DETERMINED; - - gregorio_rebuild_first_syllable(&text_with_initial, false); - gregorio_rebuild_characters(&text_with_initial, center, false); - gregorio_set_first_word(&text_with_initial); - - gregorio_rebuild_first_syllable(&text_without_initial, true); - gregorio_rebuild_characters(&text_without_initial, center, true); - gregorio_set_first_word(&text_without_initial); - - fprintf(f, "}{%s}{%s%s\\GreSetFirstSyllableText", syllable_type, - syllable->clear? "\\GreClearSyllableText" : "", - syllable->forced_center? "\\GreGABCForceCenters" : ""); - - fprintf(f, "{"); - gregorio_write_first_letter_alignment_text(WTP_FIRST_SYLLABLE, - text_with_initial, f, >ex_write_verb, >ex_print_char, - >ex_write_begin, >ex_write_end, >ex_write_special_char); - fprintf(f, "}{{"); - gregorio_write_text(WTP_FIRST_SYLLABLE, text_without_initial, f, - >ex_write_verb, >ex_print_char, >ex_write_begin, - >ex_write_end, >ex_write_special_char); - fprintf(f, "}}{{"); - gregorio_write_text(WTP_NORMAL, text_with_initial, f, >ex_write_verb, - >ex_print_char, >ex_write_begin, >ex_write_end, - >ex_write_special_char); - gregoriotex_ignore_style = gregoriotex_next_ignore_style; - gregoriotex_next_ignore_style = ST_NO_STYLE; - fprintf(f, "}}"); - - /* Check to see if we need to force a hyphen (empty first syllable) */ - for (t = text_without_initial; t; t = t->next_character) { - if (t->is_character) { - break; - } else if (t->cos.s.type == ST_T_BEGIN) { - if (t->cos.s.style == ST_VERBATIM || - t->cos.s.style == ST_SPECIAL_CHAR) { - break; - } else if (t->cos.s.style == ST_INITIAL) { - for (; t; t = t->next_character) { - if (!t->is_character && t->cos.s.type == ST_T_END - && t->cos.s.style == ST_INITIAL) { - break; - } - } - if (!t) break; - } - } - } - if (t || end_of_word) { - fprintf(f, "{}"); - } else { - fprintf(f, "{\\GreEmptyFirstSyllableHyphen}"); - } - - fprintf(f, "}"); - - gregorio_free_characters(text_with_initial); - gregorio_free_characters(text_without_initial); - } -} - -static __inline void scan_syllable_for_eol( - const gregorio_syllable *const syllable, char *const eol_forces_custos) -{ - const gregorio_element *element; - if (syllable->elements) { - for (element = *(syllable->elements); element; element = element->next) { - if (element->type == GRE_END_OF_LINE) { - if (element->u.misc.unpitched.info.eol_forces_custos) { - *eol_forces_custos = element->u.misc.unpitched.info - .eol_forces_custos_on? '1' : '0'; - } - } - } - } -} - -/* - * euouae_follows will be - * - '\0' if no euouae follows - * - '0' if euouae follows with no intervening linebreak - * - '1' if euouae follows with an intervening linebreak - * - * eol_forces_custos will be - * - '\0' if no linebreak follows or doesn't force a custos - * - '0' if a linebreak follows and forces custos off - * - '1' if a linebreak follows and forces custos on - */ -static __inline void anticipate_event(gregorio_syllable *syllable, - char *const euouae_follows, char *const eol_forces_custos, - unsigned short *const next_euouae_id) -{ - bool has_intervening_linebreak = false; - - *euouae_follows = '\0'; - *eol_forces_custos = '\0'; - *next_euouae_id = 0; - - if (syllable->next_syllable) { - for (syllable = syllable->next_syllable; - syllable && syllable->elements && *(syllable->elements) - && (*(syllable->elements))->type == GRE_END_OF_LINE; - syllable = syllable->next_syllable) { - has_intervening_linebreak = true; - /* we are at an end-of-line, so check if custos is forced */ - scan_syllable_for_eol(syllable, eol_forces_custos); - } - if (syllable) { - scan_syllable_for_eol(syllable, eol_forces_custos); - - if (syllable->euouae == EUOUAE_BEGINNING) { - *next_euouae_id = syllable->euouae_id = ++tex_position_id; - *euouae_follows = has_intervening_linebreak? '1' : '0'; - } - } - } -} - -static __inline void write_anticipated_event(FILE *f, const char euouae_follows, - const char eol_forces_custos, const short next_euouae_id) -{ - if (euouae_follows) { - fprintf(f, "%%\n\\GreNextSyllableBeginsEUOUAE{%hu}{%c}%%\n", - next_euouae_id, euouae_follows); - } - if (eol_forces_custos) { - fprintf(f, "%%\n\\GreUpcomingNewLineForcesCustos{%c}%%\n", - eol_forces_custos); - } -} - -static __inline unsigned int count_note_units(const gregorio_element *element) -{ - unsigned int count = 0; - for (; element; element = element->next) { - if (element->type == GRE_ELEMENT) { - const gregorio_glyph *glyph; - for (glyph = element->u.first_glyph; glyph; glyph = glyph->next) { - if (glyph->type == GRE_GLYPH) { - count += glyph_note_units(glyph); - } - } - } - } - return count; -} - -static __inline void handle_last_of_voice(FILE *const f, - const gregorio_syllable *syllable, - const gregorio_element *const element, - const gregorio_element *const last_of_voice) -{ - if (element == last_of_voice) { - if (syllable->next_syllable) { - /* check for no-element syllables that follow */ - for (syllable = syllable->next_syllable; - syllable && (!syllable->elements || !*(syllable->elements)); - syllable = syllable->next_syllable) { - /* just loop */ - } - /* if syllable is NULL here, then all syllables that follow - * have no elements */ - } - /* emit GreLastOfScore if we are either on the last syllable (and - * thus the loop above is not executed, leaving syllable at the - * current syllable) or if a syllable which follows the current - * syllable has an element of some sort (and thus the loop above - * stopped before running out of syllables); in any case, the check - * is that syllable, at this point, is not NULL */ - if (syllable) { - fprintf(f, "\\GreLastOfScore"); - } - } -} - -static bool is_before_linebreak(const gregorio_syllable *syllable, - const gregorio_element *element) -{ - if (element) { - element = element->next; - } - - while (syllable) { - if (element) { - if (element->type == GRE_END_OF_LINE) { - return true; - } - break; - } - - syllable = syllable->next_syllable; - if (syllable) { - element = syllable->elements[0]; - } - } - - return false; -} - -/* - * Arguments are relatively obvious. The most obscure is certainly first_of_disc - * which is 0 all the time, except in the case of a "clef change syllable". In - * this case we make a \GreDiscretionary with two arguments: - * 1.what should be printed if the syllable is the last of its line (which - * basically means everything but clefs and custos), and - * 2. what should be printed if it's in a middle of a line (which means - * everything) - * So the first_of_disc argument is: - * 0 if we don't know (general case) - * 1 in case of the first argument of a \GreDiscretionary - * 2 if we are in the second argument (necessary in order to avoid infinite loops) - */ -static void write_syllable(FILE *f, gregorio_syllable *syllable, - unsigned char first_of_disc, gregoriotex_status *const status, - const gregorio_score *const score, - const gregorio_element *const *const last_of_voice, - void (*const write_this_syllable_text) - (FILE *, const char *, const gregorio_syllable *, bool)) -{ - const gregorio_element *clef_change_element = NULL, *element; - const char *syllable_type = NULL; - bool anticipated_event_written = false; - bool end_of_word; - bool end_of_line; - char euouae_follows; - char eol_forces_custos; - unsigned short next_euouae_id; - unsigned int note_unit_count; - - gregorio_not_null(syllable, write_syllable, return); - end_of_word = syllable->position == WORD_END - || syllable->position == WORD_ONE_SYLLABLE || !syllable->text - || !syllable->next_syllable; - /* Very first: before anything, if the syllable is the beginning of a - * no-linebreak area: */ - if (syllable->no_linebreak_area == NLBA_BEGINNING) { - fprintf(f, "\\GreBeginNLBArea{1}{0}%%\n"); - } - if (syllable->euouae == EUOUAE_BEGINNING) { - fprintf(f, "\\GreBeginEUOUAE{%hu}%%\n", syllable->euouae_id); - } - if (syllable->elements && *(syllable->elements)) { - /* - * first we check if the syllable is only a end of line. If it is the - * case, we don't print anything but a comment (to be able to read it - * if we read GregorioTeX). The end of lines are treated separately in - * GregorioTeX, it is buit inside the TeX structure. - */ - if ((syllable->elements)[0]->type == GRE_END_OF_LINE) { - gregorio_assert(syllable != score->first_syllable, write_syllable, - "line break is not supported on the first syllable", - return); - if ((syllable->elements)[0]->u.misc.unpitched.info.eol_ragged) { - fprintf(f, "%%\n%%\n\\GreNewParLine %%\n%%\n%%\n"); - } else { - fprintf(f, "%%\n%%\n\\GreNewLine %%\n%%\n%%\n"); - } - write_this_syllable_text(f, NULL, syllable, end_of_word); - return; - } - /* - * This case is not simple: if the syllable contains a clef change, - * whether it is (c4) or (::c4) or (z0::c4), we put it in a - * discretionary. Warning: only these three cases will have the expected - * effect. So first we detect it: - */ - if (first_of_disc == 0) { /* to avoid infinite loops */ - clef_change_element = gregorio_get_clef_change(syllable); - if (clef_change_element) { - gregorio_assert(syllable != score->first_syllable, - write_syllable, - "clef change is not supported on the first syllable", - return); - /* - * In this case, the first thing to do is to change the line clef - */ - gregoriotex_print_change_line_clef(f, clef_change_element); - fprintf(f, "\\GreDiscretionary{0}{%%\n"); - write_syllable(f, syllable, 1, status, score, last_of_voice, - write_syllable_text); - fprintf(f, "}{%%\n"); - write_syllable(f, syllable, 2, status, score, last_of_voice, - write_syllable_text); - fprintf(f, "}%%\n"); - write_this_syllable_text(f, NULL, syllable, end_of_word); - return; - } - } - write_fixed_text_styles(f, syllable->text, - syllable->next_syllable? syllable->next_syllable->text : NULL); - if ((syllable->elements)[0]->type == GRE_BAR) { - if (syllable != score->first_syllable) { - if (!syllable->next_syllable && !syllable->text - && (syllable->elements)[0]->u.misc.unpitched.info.bar - == B_DIVISIO_FINALIS) { - handle_final_bar(f, "DivisioFinalis", syllable); - write_this_syllable_text(f, NULL, syllable, end_of_word); - return; - } - if (!syllable->next_syllable && !syllable->text - && (syllable->elements)[0]->u.misc.unpitched.info.bar - == B_DIVISIO_MAIOR) { - handle_final_bar(f, "DivisioMaior", syllable); - write_this_syllable_text(f, NULL, syllable, end_of_word); - return; - } - } - /* the special case of first syllable will be treated as a normal - * bar syllable */ - syllable_type = "\\GreBarSyllable"; - } else { - if (first_of_disc != 0) { - syllable_type = "\\GreBarSyllable"; - } else { - syllable_type = "\\GreSyllable"; - } - } - } else { - write_fixed_text_styles(f, syllable->text, - syllable->next_syllable? syllable->next_syllable->text : NULL); - syllable_type = "\\GreNoNoteSyllable"; - } - write_this_syllable_text(f, syllable_type, syllable, end_of_word); - fprintf(f, "{}{\\Gre%s}", syllable->first_word ? "FirstWord" : "Unstyled"); - if (end_of_word) { - fprintf(f, "{1}"); - } else { - fprintf(f, "{0}"); - } - end_of_line = is_last_of_line(syllable); - anticipate_event(syllable, &euouae_follows, &eol_forces_custos, - &next_euouae_id); - if (syllable->next_syllable) { - fprintf(f, "{%s\\GreSetNextSyllable", - syllable->next_syllable->forced_center? - "\\GreGABCNextForceCenters" : ""); - write_text(f, syllable->next_syllable->text); - if (end_of_line || first_of_disc == 1) { - fprintf(f, "\\GreLastOfLine"); - } else if (euouae_follows) { - fprintf(f, "\\GreLastSyllableBeforeEUOUAE{%hu}{%c}", - next_euouae_id, euouae_follows); - } - fprintf(f, "}{"); - write_syllable_point_and_click(f, syllable, status); - fprintf(f, "}{%d}{", - gregoriotex_syllable_first_type(syllable->next_syllable)); - } else { - fprintf(f, "{\\GreSetNextSyllable{}{}{}{}{}"); - if (end_of_line || first_of_disc == 1) { - fprintf(f, "\\GreLastOfLine"); - } - fprintf(f, "}{"); - write_syllable_point_and_click(f, syllable, status); - fprintf(f, "}{16}{"); - } - if (syllable->translation) { - if (syllable->translation_type == TR_WITH_CENTER_BEGINNING) { - fprintf(f, "%%\n\\GreWriteTranslationWithCenterBeginning{"); - } else { - fprintf(f, "%%\n\\GreWriteTranslation{"); - } - write_translation(f, syllable->translation); - fprintf(f, "}%%\n"); - } - if (syllable->translation_type) { - if (syllable->translation_type == TR_WITH_CENTER_END) - fprintf(f, "%%\n\\GreTranslationCenterEnd %%\n"); - } - if (syllable->abovelinestext) { - fprintf(f, "%%\n\\GreSetTextAboveLines{%s}%%\n", - syllable->abovelinestext); - } - fprintf(f, "}{%%\n"); - - fprintf(f, "\\GreSyllableNoteCount{%u}%%\n", syllable->elements? - count_note_units(*syllable->elements) : 0); - - note_unit_count = 0; - if (syllable->elements) { - for (element = *syllable->elements; element; element = element->next) { - if (element->nabc_lines && element->nabc) { - signed char high_pitch = UNDETERMINED_HEIGHT; - signed char low_pitch = UNDETERMINED_HEIGHT; - size_t i; - compute_element_height_extrema(element, &high_pitch, - &low_pitch); - fixup_height_extrema(&high_pitch, &low_pitch); - for (i = 0; i < element->nabc_lines; i++) { - if (element->nabc[i]) { - fprintf(f, "\\GreNABCNeumes{%d}{", (int)(i+1)); - tex_escape_text(f, element->nabc[i]); - fprintf(f, "}{%d}{%d}%%\n", pitch_value(high_pitch), - pitch_value(low_pitch)); - } - } - } - switch (element->type) { - case GRE_SPACE: - switch (element->u.misc.unpitched.info.space) { - case SP_LARGER_SPACE: - fprintf(f, "\\GreEndOfElement{1}{0}{%u}%%\n", - note_unit_count); - break; - case SP_GLYPH_SPACE: - fprintf(f, "\\GreEndOfElement{2}{0}{%u}%%\n", - note_unit_count); - break; - case SP_NEUMATIC_CUT: - fprintf(f, "\\GreEndOfElement{0}{0}{%u}%%\n", - note_unit_count); - break; - case SP_AD_HOC_SPACE: - fprintf(f, "\\GreAdHocSpaceEndOfElement{%s}{0}{%u}%%\n", - element->u.misc.unpitched.info.ad_hoc_space_factor, - note_unit_count); - break; - case SP_GLYPH_SPACE_NB: - fprintf(f, "\\GreEndOfElement{2}{1}{%u}%%\n", - note_unit_count); - break; - case SP_LARGER_SPACE_NB: - fprintf(f, "\\GreEndOfElement{1}{1}{%u}%%\n", - note_unit_count); - break; - case SP_NEUMATIC_CUT_NB: - fprintf(f, "\\GreEndOfElement{0}{1}{%u}%%\n", - note_unit_count); - break; - case SP_AD_HOC_SPACE_NB: - fprintf(f, "\\GreAdHocSpaceEndOfElement{%s}{1}{%u}%%\n", - element->u.misc.unpitched.info.ad_hoc_space_factor, - note_unit_count); - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(write_syllable, - "encountered an unexpected element-level space"); - break; - /* LCOV_EXCL_STOP */ - } - break; - - case GRE_TEXVERB_ELEMENT: - if (element->texverb) { - fprintf(f, "%% verbatim text at element level:\n%s%%\n" - "%% end of verbatim text\n", - gregorio_texverb(element->texverb)); - } - break; - - case GRE_NLBA: - if (element->u.misc.unpitched.info.nlba == NLBA_BEGINNING) { - fprintf(f, "\\GreBeginNLBArea{0}{0}%%\n"); - } else { - fprintf(f, "\\GreEndNLBArea{%d}{0}%%\n", - next_is_bar(syllable, element)? 3 : 0); - } - break; - - case GRE_ALT: - if (element->texverb) { - fprintf(f, "\\GreSetTextAboveLines{%s}%%\n", - gregorio_texverb(element->texverb)); - } - break; - - case GRE_CLEF: - /* We don't print clef changes at the end of a line */ - if (first_of_disc != 1) { - if (is_before_linebreak(syllable, element)) { - signed char next_note_pitch; - gregorio_shape next_note_alteration; - - next_note_pitch = gregorio_adjust_pitch_into_staff( - score, gregorio_determine_next_pitch( - syllable, element, NULL, &next_note_alteration) - - element->u.misc.clef.pitch_difference); - - fputs(next_custos(next_note_pitch, next_note_alteration, - status), f); - gregoriotex_print_change_line_clef(f, element); - } else { - /* the third argument is 0 or 1 according to the need - * for a space before the clef */ - fprintf(f, "\\GreChangeClef{%c}{%d}{%c}{%d}{%c}{%d}{%d}%%\n", - gregorio_clef_to_char(element->u.misc.clef.clef), - element->u.misc.clef.line, - (!element->previous || element->previous->type - == GRE_BAR)? '0' : '1', - clef_flat_height(element->u.misc.clef.clef, - element->u.misc.clef.line, - element->u.misc.clef.flatted), - gregorio_clef_to_char( - element->u.misc.clef.secondary_clef), - element->u.misc.clef.secondary_line, - clef_flat_height( - element->u.misc.clef.secondary_clef, - element->u.misc.clef.secondary_line, - element->u.misc.clef.secondary_flatted)); - } - } - break; - - case GRE_CUSTOS: - if (first_of_disc != 1) { - signed char next_note_pitch; - gregorio_shape next_note_alteration; - const char *alteration = ""; - /* We don't print custos before a bar at the end of a line. - * We also print an unbreakable larger space before the - * custos */ - handle_last_of_voice(f, syllable, element, *last_of_voice); - next_note_pitch = gregorio_determine_next_pitch(syllable, - element, NULL, &next_note_alteration); - if (!element->u.misc.pitched.force_pitch) { - alteration = alteration_name(next_note_alteration); - } - fprintf(f, "\\GreCustos{%d}{%s}%s%%\n", - pitch_value(element->u.misc.pitched.pitch), alteration, - next_custos(next_note_pitch, next_note_alteration, - status)); - ++note_unit_count; - } - break; - - case GRE_SUPPRESS_CUSTOS: - handle_last_of_voice(f, syllable, element, *last_of_voice); - fprintf(f, "\\GreSuppressEolCustos %%\n"); - status->suppressed_custos = true; - break; - - case GRE_BAR: - handle_last_of_voice(f, syllable, element, *last_of_voice); - write_bar(f, score, syllable, element, first_of_disc); - break; - - case GRE_END_OF_LINE: - if (!element->next) { - write_anticipated_event(f, euouae_follows, - eol_forces_custos, next_euouae_id); - anticipated_event_written = true; - } - /* here we suppose we don't have two linebreaks in the same - * syllable */ - if (element->u.misc.unpitched.info.eol_ragged) { - fprintf(f, "%%\n%%\n\\GreNewParLine %%\n%%\n%%\n"); - } else { - fprintf(f, "%%\n%%\n\\GreNewLine %%\n%%\n%%\n"); - } - break; - - default: - /* here current_element->type is GRE_ELEMENT */ - assert(element->type == GRE_ELEMENT); - handle_last_of_voice(f, syllable, element, *last_of_voice); - note_unit_count += write_element(f, syllable, element, status, - score); - if (element->next && (element->next->type == GRE_ELEMENT - || (element->next->next - && element->next->type == GRE_ALT - && element->next->next->type == - GRE_ELEMENT))) { - fprintf(f, "\\GreEndOfElement{0}{0}{%u}%%\n", - note_unit_count); - } - break; - } - } - } - if (!anticipated_event_written) { - write_anticipated_event(f, euouae_follows, eol_forces_custos, - next_euouae_id); - } - fprintf(f, "}%%\n"); - if (syllable->position == WORD_END - || syllable->position == WORD_ONE_SYLLABLE || !syllable->text) { - fprintf(f, "%%\n"); - } - finish_syllable(f, syllable); -} - -static char *digest_to_hex(const unsigned char digest[SHA1_DIGEST_SIZE]) -{ - static const char *const hex = "0123456789abcdef"; - static char result[41]; - - char *p = result; - unsigned char byte; - - int i; - for (i = 0; i < SHA1_DIGEST_SIZE; ++i) { - byte = digest[i]; - - *(p++) = hex[(byte >> 4) & 0x0FU]; - *(p++) = hex[byte & 0x0FU]; - } - - *p = '\0'; - - return result; -} - -static void initialize_score(gregoriotex_status *const status, - gregorio_score *score, const bool point_and_click, - const gregorio_element **const last_of_voice) -{ - gregorio_syllable *syllable; - - status->bottom_line = false; - status->top_height = status->bottom_height = UNDETERMINED_HEIGHT; - status->abovelinestext = status->translation = false; - status->suppressed_custos = false; - - /* first pass to compute positioning */ - for (syllable = score->first_syllable; syllable; - syllable = syllable->next_syllable) { - int voice; - - for (voice = 0; voice < score->number_of_voices; ++voice) { - gregoriotex_compute_positioning(syllable->elements[voice], score); - } - } - - gregoriotex_compute_cross_syllable_positioning(score); - - for (syllable = score->first_syllable; syllable; - syllable = syllable->next_syllable) { - int voice; - - if (syllable->translation) { - status->translation = true; - } - - if (syllable->abovelinestext) { - status->abovelinestext = true; - } - - /* simultaneously compute height extrema and determine the last "real" - * element in each voice */ - for (voice = 0; voice < score->number_of_voices; ++voice) { - gregorio_element *element; - - for (element = syllable->elements[voice]; element; - element = element->next) { - gregorio_glyph *glyph; - - switch (element->type) { - case GRE_ALT: - status->abovelinestext = true; - break; - - case GRE_CUSTOS: - last_of_voice[voice] = element; - break; - - case GRE_ELEMENT: - for (glyph = element->u.first_glyph; glyph; - glyph = glyph->next) { - if (glyph->type == GRE_GLYPH) { - last_of_voice[voice] = element; - compute_height_extrema(glyph, - glyph->u.notes.first_note, - &(status->top_height), - &(status->bottom_height)); - } - } - break; - - case GRE_BAR: - last_of_voice[voice] = element; - break; - - default: - /* to eliminate the warning */ - break; - } - } - } - } - - fixup_height_extrema(&(status->top_height), &(status->bottom_height)); - - status->point_and_click = point_and_click; -} - -static void write_header(FILE *const f, const char *const name, - const char *const value) -{ - if (value) { - fprintf(f, "\\GreHeader{"); - tex_escape_text(f, name); - fprintf(f, "}{"); - tex_escape_text(f, value); - fprintf(f, "}%%\n"); - } -} - -static void write_headers(FILE *const f, gregorio_score *const score) -{ - gregorio_header *header; - - fprintf(f, "\\GreBeginHeaders %%\n"); - for (header = score->headers; header; header = header->next) { - write_header(f, header->name, header->value); - } - fprintf(f, "\\GreEndHeaders %%\n"); -} - -static void suppress_expansion(FILE *const f, const char *text) -{ - if (!text) { - return; - } - - for (; *text; ++text) { - if (*text == '\\') { - fprintf(f, "\\noexpand"); - } - fputc(*text, f); - } -} - -static int first_note_near_clef(const gregorio_score *const score) { - gregorio_clef_info clef = gregorio_default_clef; - if (score->first_voice_info) { - clef = score->first_voice_info->initial_clef; - if (!clef.secondary_line && !clef.flatted && score->first_syllable - && score->first_syllable->elements) { - const gregorio_element *element = score->first_syllable->elements[0]; - if (element && element->type == GRE_ELEMENT) { - const gregorio_glyph *glyph = element->u.first_glyph; - if (glyph && glyph->type == GRE_GLYPH) { - const signed char clef_pitch = LOW_LINE_PITCH - + ((clef.line - 1) * 2); - const gregorio_note *low_note = glyph->u.notes.first_note; - const gregorio_note *high_note = low_note; - switch (glyph->u.notes.glyph_type) { - case G_PODATUS: - /* next note is above the previous */ - if (low_note->next) { - high_note = low_note->next; - } - break; - case G_FLEXA: - case G_PORRECTUS: - case G_PORRECTUS_FLEXUS: - /* there is a stem the size of the ambitus */ - if (high_note->next) { - low_note = high_note->next; - } - break; - default: - /* to prevent the enum warning */ - break; - } - if (high_note->u.note.pitch < clef_pitch - 3 - || low_note->u.note.pitch > clef_pitch + 3) { - return 0; - } - } - } - } - } - return 1; -} - -static int clef_size(const gregorio_clef_info *const clef) -{ - /* this is a heuristic clef size approximation: - * C-clef = 1 - * F-clef = 2 - * flatted = +2 - * unstacked double-clef = +1 (plus the clef size) - */ - /* purposely making line signed */ - int line_diff = clef->line - clef->secondary_line; - int size; - if (clef->clef == CLEF_F) { - size = 2; - } else { - size = 1; - } - if (clef->flatted) { - size += 2; - } - if (clef->secondary_line) { - if (line_diff < -1 || line_diff > 1) { /* stacked */ - int secondary_size; - if (clef->secondary_clef == CLEF_F) { - secondary_size = 2; - } else { - secondary_size = 1; - } - if (clef->secondary_flatted) { - secondary_size += 2; - } - if (secondary_size > size) { - size = secondary_size; - } - } else { /* unstacked */ - size += 1; - if (clef->secondary_clef == CLEF_F) { - size += 2; - } else { - size += 1; - } - if (clef->secondary_flatted) { - size += 2; - } - } - } - return size; -} - -static void write_largest_clef(FILE *const f, gregorio_score *const score) -{ - const gregorio_syllable *syllable; - const gregorio_element *element; - gregorio_clef_info clef = gregorio_default_clef; - int size; - - if (score->first_voice_info) { - clef = score->first_voice_info->initial_clef; - } - size = clef_size(&clef); - - for (syllable = score->first_syllable; syllable; - syllable = syllable->next_syllable) { - if (syllable->elements) { - for (element = *syllable->elements; element; - element = element->next) { - if (element->type == GRE_CLEF) { - const int this_size = clef_size(&element->u.misc.clef); - if (this_size > size) { - clef = element->u.misc.clef; - size = this_size; - } - } - } - } - } - - fprintf(f, "\\GreSetLargestClef{%c}{%d}{%d}{%c}{%d}{%d}%%\n", - gregorio_clef_to_char(clef.clef), clef.line, - clef_flat_height(clef.clef, clef.line, clef.flatted), - gregorio_clef_to_char(clef.secondary_clef), clef.secondary_line, - clef_flat_height(clef.secondary_clef, clef.secondary_line, - clef.secondary_flatted)); -} - -void gregoriotex_write_score(FILE *const f, gregorio_score *const score, - const char *const point_and_click_filename) -{ - gregorio_clef_info clef = gregorio_default_clef; - gregorio_syllable *current_syllable; - int annotation_num; - gregoriotex_status status; - const gregorio_element *last_of_voice[MAX_NUMBER_OF_VOICES]; - - memset(last_of_voice, 0, sizeof last_of_voice); - initialize_score(&status, score, point_and_click_filename != NULL, - last_of_voice); - - gregorio_assert(f, gregoriotex_write_score, "call with NULL file", return); - - gregorio_assert_only(score->number_of_voices == 1, gregoriotex_write_score, - "gregoriotex only works in monophony (for the moment)"); - - fprintf(f, "%% File generated by gregorio %s\n", GREGORIO_VERSION); - fprintf(f, "\\GregorioTeXAPIVersion{%s}%%\n", VERSION); - - if (score->name) { - fprintf(f, "%% Name: %s\n", score->name); - } - if (score->author) { - fprintf(f, "%% Author: %s\n", score->author); - } - if (score->gabc_copyright) { - fprintf(f, "%% The copyright of this gabc is: %s\n", - score->gabc_copyright); - } - if (score->score_copyright) { - fprintf(f, "%% The copyright of the score is: %s\n", - score->score_copyright); - } - - write_headers(f, score); - - if (score->first_voice_info) { - clef = score->first_voice_info->initial_clef; - } - fprintf(f, "\\GreBeginScore{%s}{%d}{%d}{%d}{%d}{%s}{%u}" - "{\\GreInitialClefPosition{%d}{%d}}%%\n", - digest_to_hex(score->digest), status.top_height, - status.bottom_height, bool_to_int(status.translation), - bool_to_int(status.abovelinestext), - point_and_click_filename? point_and_click_filename : "", - score->staff_lines, clef.line, clef.secondary_line); - if (score->nabc_lines) { - fprintf(f, "\\GreScoreNABCLines{%d}", (int)score->nabc_lines); - } - if (score->annotation[0]) { - fprintf(f, "\\GreAnnotationLines"); - for (annotation_num = 0; annotation_num < MAX_ANNOTATIONS; - ++annotation_num) { - if (score->annotation[annotation_num]) { - fprintf(f, "{%s}", - score->annotation[annotation_num]); - } - else { - fprintf(f, "{}"); - } - } - fprintf(f, "%%\n"); - } - if (score->mode) { - fprintf(f, "\\GreMode{"); - if (*(score->mode) >= '1' && *(score->mode) <= '8') { - fprintf(f, "\\GreModeNumber{%c}%s", *(score->mode), score->mode + 1); - } else { - fprintf(f, "%s", score->mode); - } - fprintf(f, "}{"); - suppress_expansion(f, score->mode_modifier); - fprintf(f, "}{"); - suppress_expansion(f, score->mode_differentia); - fprintf(f, "}%%\n"); - } - - write_largest_clef(f, score); - fprintf(f, "\\GreScoreOpening{%%\n"); /* GreScoreOpening#1 */ - if (score->first_voice_info) { - gregoriotex_write_voice_info(f, score->first_voice_info); - } - fprintf(f, "}{%%\n"); /* GreScoreOpening#2 */ - fprintf(f, "\\GreSetInitialClef{%c}{%d}{%d}{%c}{%d}{%d}{%d}%%\n", - gregorio_clef_to_char(clef.clef), clef.line, - clef_flat_height(clef.clef, clef.line, clef.flatted), - gregorio_clef_to_char(clef.secondary_clef), clef.secondary_line, - clef_flat_height(clef.secondary_clef, clef.secondary_line, - clef.secondary_flatted), - first_note_near_clef(score)); - fprintf(f, "}{%%\n"); /* GreScoreOpening#3 */ - current_syllable = score->first_syllable; - if (current_syllable) { - write_syllable(f, current_syllable, 0, &status, score, last_of_voice, - write_first_syllable_text); - current_syllable = current_syllable->next_syllable; - } else { - /* edge case: a score with no syllables */ - fprintf(f, "}{}{\\GreSetNoFirstSyllableText}%%\n"); - } - while (current_syllable) { - write_syllable(f, current_syllable, 0, &status, score, last_of_voice, - write_syllable_text); - current_syllable = current_syllable->next_syllable; - } - fprintf(f, "\\GreEndScore %%\n\\endinput %%\n"); -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex.h b/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex.h deleted file mode 100644 index dc662b25ffe..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/gregoriotex/gregoriotex.h +++ /dev/null @@ -1,151 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header prototypes GregorioTeX writing data structures and entry points. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef GREGORIOTEX_H -#define GREGORIOTEX_H - -#include "bool.h" - -#define OFFSET_CASE(name) static const char *const name = #name - -/* - * Here are the different types, they must be the same as in squarize.py - */ - -typedef enum gtex_type { - T_ONE_NOTE = 1, - /* two note neumes */ - T_PES, - T_PES_QUADRATUM, - T_QUILISMA_PES, - T_PES_QUASSUS, - T_QUILISMA_PES_QUADRATUM, - T_FLEXUS, - T_FLEXUS_ORISCUS, - T_FLEXUS_ORISCUS_SCAPUS, - T_PES_ORISCUS, - /* three note neumes */ - T_PORRECTUS, - T_TORCULUS, - T_TORCULUS_QUILISMA, - T_SCANDICUS, /* only deminutus */ - T_ANCUS, /* only deminutus */ - T_SALICUS, - /* four note neumes */ - T_SALICUS_FLEXUS, - T_PORRECTUS_FLEXUS, - T_TORCULUS_RESUPINUS, - T_TORCULUS_LIQUESCENS, - T_TORCULUS_RESUPINUS_FLEXUS -} gtex_type; - -/* the different types for the alignment of the notes in GregorioTeX - * these values are numbers coded into GregorioTeX */ -typedef enum gtex_alignment { - AT_ONE_NOTE = 0, - AT_FLEXUS = 1, - AT_PORRECTUS = 2, - AT_INITIO_DEBILIS = 3, - AT_QUILISMA = 4, - AT_ORISCUS = 5, - AT_PUNCTUM_INCLINATUM = 6, - AT_STROPHA = 7, - AT_FLEXUS_1 = 8, - AT_FLEXUS_DEMINUTUS = 9 -} gtex_alignment; - -/* Here we define a function that will determine the number of the - * liquescentia that we will add to the glyph number. There are several types - * as all glyphs can't have all liquescentiae. Let's first define the - * different types: */ - -typedef enum gtex_glyph_liquescentia { - LG_ALL = 0, /* for glyphs that accept all liquecentiae */ - LG_NO_INITIO, /* for glyphs that don't accept initio debilis */ - LG_NONE, /* for glyphs that don't accept liquescentia */ - LG_ONLY_DEMINUTUS, - LG_FUSIBLE_INITIO -} gtex_glyph_liquescentia; - -typedef enum gtex_sign_type { - ST_H_EPISEMA = 0, - ST_V_EPISEMA = 1 -} gtex_sign_type; - -#define HEPISEMA_FIRST_TWO 12 - -static __inline bool choral_sign_here_is_low(const gregorio_glyph *const glyph, - const gregorio_note *const note, bool *const kind_of_pes) -{ - if (kind_of_pes) { - *kind_of_pes = false; - } - - switch (glyph->u.notes.glyph_type) { - case G_FLEXA: - case G_TORCULUS: - case G_TORCULUS_LIQUESCENS: - case G_TORCULUS_RESUPINUS_FLEXUS: - case G_PORRECTUS_FLEXUS: - if (!note->next) { - return true; - } - break; - - case G_PODATUS: - case G_PORRECTUS: - case G_TORCULUS_RESUPINUS: - if (!note->next || note->next->next) { - break; - } - if (kind_of_pes) { - *kind_of_pes = true; - } - return true; - - default: - break; - } - - return false; -} - -static __inline bool is_on_a_line(const char pitch) -{ - return pitch % 2 == 0; -} - -static __inline bool is_between_lines(const char pitch) -{ - return pitch % 2 == 1; -} - -bool gtex_is_h_episema_above_shown(const gregorio_note *const note); -bool gtex_is_h_episema_below_shown(const gregorio_note *const note); -const char *gregoriotex_determine_glyph_name(const gregorio_glyph *const glyph, - gtex_alignment *const type, gtex_type *const gtype); -void gregoriotex_compute_positioning(const gregorio_element *element, - const gregorio_score *score); -void gregoriotex_compute_cross_syllable_positioning( - const gregorio_score *score); - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/messages.c b/Build/source/texk/gregorio/gregorio-src/src/messages.c deleted file mode 100644 index d8b7cecab53..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/messages.c +++ /dev/null @@ -1,172 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file contains functions for logging messages, warnings, and errors. - * - * Copyright (C) 2009-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <assert.h> -#include <stdarg.h> -#include "bool.h" -#include "messages.h" -#include "support.h" - -static FILE *error_out; -static gregorio_verbosity verbosity_mode = 0; -static bool debug_messages = false; -static bool deprecation_is_warning = true; -static int return_value = 0; - -int gregorio_get_return_value(void) -{ - return return_value; -} - -void gregorio_set_error_out(FILE *const f) -{ - error_out = f; -} - -void gregorio_set_verbosity_mode(const gregorio_verbosity verbosity) -{ - verbosity_mode = verbosity; -} - -void gregorio_set_debug_messages(bool debug) -{ - debug_messages = debug; -} - -void gregorio_set_deprecation_errors(bool deprecation_errors) -{ - deprecation_is_warning = !deprecation_errors; -} - -static const char *verbosity_to_str(const gregorio_verbosity verbosity) -{ - const char *str; - switch (verbosity) { - case VERBOSITY_WARNING: - str = _("warning:"); - break; - case VERBOSITY_DEPRECATION: - /* if there is no deprecation, these lines will not be hit */ - /* LCOV_EXCL_START */ - str = _("deprecation:"); - break; - /* LCOV_EXCL_STOP */ - case VERBOSITY_ERROR: - str = _("error:"); - break; - case VERBOSITY_ASSERTION: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - str = _("assertion:"); - break; - /* LCOV_EXCL_STOP */ - case VERBOSITY_FATAL: - /* all fatal errors should not be reasonably testable */ - /* LCOV_EXCL_START */ - str = _("fatal error:"); - break; - /* LCOV_EXCL_STOP */ - default: - /* INFO, for example */ - str = " "; - break; - } - return str; -} - -void gregorio_messagef(const char *function_name, - gregorio_verbosity verbosity, int line_number, - const char *format, ...) -{ - va_list args; - const char *verbosity_str; - - if (!debug_messages && verbosity != VERBOSITY_ASSERTION) { - line_number = 0; - function_name = NULL; - } - - /* if these assertions fail, the program is not using this code correctly */ - assert(error_out); - assert(verbosity_mode); - - if (verbosity < verbosity_mode) { - return; - } - if (verbosity == VERBOSITY_ASSERTION && return_value) { - /* if something has already caused the system to fail, demote any - * assertions coming after to warnings */ - verbosity = VERBOSITY_WARNING; - } - verbosity_str = verbosity_to_str(verbosity); - if (line_number) { - /* if line number is specified, function_name must be specified */ - assert(function_name); - if (function_name) { - fprintf(error_out, "%d: in function `%s': %s", line_number, - function_name, verbosity_str); - } - } else { - if (function_name) { - fprintf(error_out, "in function `%s': %s", function_name, - verbosity_str); - } else { - fprintf(error_out, "%s", verbosity_str); - } - } - va_start(args, format); - vfprintf(error_out, format, args); - va_end(args); - fprintf(error_out, "\n"); - - switch (verbosity) { - case VERBOSITY_DEPRECATION: - /* if there is no deprecation, these lines will not be hit */ - /* LCOV_EXCL_START */ - if (deprecation_is_warning) { - break; - } - /* LCOV_EXCL_STOP */ - /* else fall through */ - case VERBOSITY_ERROR: - case VERBOSITY_ASSERTION: - return_value = 1; - break; - case VERBOSITY_FATAL: - /* all fatal errors should not be reasonably testable */ - /* LCOV_EXCL_START */ - gregorio_exit(1); - break; - /* LCOV_EXCL_STOP */ - default: - break; - } -} - -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); -} - diff --git a/Build/source/texk/gregorio/gregorio-src/src/messages.h b/Build/source/texk/gregorio/gregorio-src/src/messages.h deleted file mode 100644 index c89bbbe5484..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/messages.h +++ /dev/null @@ -1,90 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header prototypes the message logging functions. - * - * Copyright (C) 2009-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef MESSAGES_H -#define MESSAGES_H - -#ifndef ENABLE_NLS -#define ENABLE_NLS 0 -#endif -#if ENABLE_NLS == 1 -#include "gettext.h" -#define _(str) gettext(str) -#define N_(str) (str) -#define ngt_(str, strtwo, count) ngettext(str, strtwo, count) -#else -#define _(str) (str) -#define N_(str) (str) -#define ngt_(str, strtwo, count) (str) -#endif - -typedef enum gregorio_verbosity { - VERBOSITY_INFO = 1, - VERBOSITY_WARNING, - VERBOSITY_DEPRECATION, - VERBOSITY_ERROR, - VERBOSITY_ASSERTION, - VERBOSITY_FATAL -} gregorio_verbosity; - -void gregorio_message(const char *string, const char *function_name, - gregorio_verbosity verbosity, int line_number); -void gregorio_messagef(const char *function_name, - gregorio_verbosity verbosity, - int line_number, const char *format, ...) - __attribute__ ((__format__ (__printf__, 4, 5))); -void gregorio_set_verbosity_mode(gregorio_verbosity verbosity); -void gregorio_set_debug_messages(bool debug); -void gregorio_set_deprecation_errors(bool deprecation_errors); -void gregorio_set_error_out(FILE *f); -int gregorio_get_return_value(void); - -#define gregorio_assert_only(TEST,FUNCTION,MESSAGE) \ - if (!(TEST)) { \ - gregorio_message(_(MESSAGE), #FUNCTION, VERBOSITY_ASSERTION, __LINE__); \ - } - -#define gregorio_assert(TEST,FUNCTION,MESSAGE,ON_FALSE) \ - if (!(TEST)) { \ - gregorio_message(_(MESSAGE), #FUNCTION, VERBOSITY_ASSERTION, __LINE__); \ - ON_FALSE; \ - } - -#define gregorio_assert2(TEST,FUNCTION,FORMAT,ARG,ON_FALSE) \ - if (!(TEST)) { \ - gregorio_messagef(#FUNCTION, VERBOSITY_ASSERTION, __LINE__, FORMAT, ARG); \ - ON_FALSE; \ - } - -#define gregorio_not_null(VARIABLE,FUNCTION,ON_FALSE) \ - gregorio_assert(VARIABLE, FUNCTION, #VARIABLE " may not be null", ON_FALSE) - -#define gregorio_not_null_ptr(VARIABLE,FUNCTION,ON_FALSE) \ - gregorio_assert(VARIABLE && *VARIABLE, FUNCTION, #VARIABLE " may not be null", ON_FALSE) - -#define gregorio_fail(FUNCTION,MESSAGE) \ - gregorio_message(_(MESSAGE), #FUNCTION, VERBOSITY_ASSERTION, __LINE__) - -#define gregorio_fail2(FUNCTION,FORMAT,ARG) \ - gregorio_messagef(#FUNCTION, VERBOSITY_ASSERTION, __LINE__, FORMAT, ARG) - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/plugins.h b/Build/source/texk/gregorio/gregorio-src/src/plugins.h deleted file mode 100644 index 7af3aa61c71..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/plugins.h +++ /dev/null @@ -1,40 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header prototypes the "main" entry points for reading and writing data. - * - * Copyright (C) 2008-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef PLUGINS_H -#define PLUGINS_H - -#include "bool.h" - -void dump_write_score(FILE *f, gregorio_score *score); - -void dump_write_characters(FILE *const f, - const gregorio_character *current_character); - -gregorio_score *gabc_read_score(FILE *f_in, bool point_and_click); - -void gabc_write_score(FILE *f, gregorio_score *score); - -void gregoriotex_write_score(FILE *f, gregorio_score *score, - const char *point_and_click_filename); - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/sha1.c b/Build/source/texk/gregorio/gregorio-src/src/sha1.c deleted file mode 100644 index 4420bd35327..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/sha1.c +++ /dev/null @@ -1,346 +0,0 @@ -/* - * sha1.c - Functions to compute SHA1 message digest of files or - * memory blocks according to the NIST specification FIPS-180-1. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * Copyright (C) 2000-2001, 2003-2006, 2008-2014 Free Software Foundation, Inc. - * - * This file is part of Gregorio. - * This file has been adapted from GNU coreutils to fit Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -/* Written by Scott G. Miller - Credits: - Robert Klep <robert@ilse.nl> -- Expansion function fix -*/ - -#include "config.h" -#include "sha1.h" -#ifdef HAVE_STDINT_H -#include <stdint.h> -#else -#include <inttypes.h> -#endif -#include <stdlib.h> -#include <string.h> - -#ifdef WORDS_BIGENDIAN -#define SWAP(n) (n) -#else -#define SWAP(n) \ - (((n) << 24) | (((n) & 0xff00) << 8) | (((n) >> 8) & 0xff00) | ((n) >> 24)) -#endif - -#define BLOCKSIZE 32768 -#if BLOCKSIZE % 64 != 0 -#error "invalid BLOCKSIZE" -#endif - -/* This array contains the bytes used to pad the buffer to the next - 64-byte boundary. (RFC 1321, 3.1: Step 1) */ -static const unsigned char fillbuf[64] = { 0x80, 0 /* , 0, 0, ... */ }; - -/* Take a pointer to a 160 bit block of data (five 32 bit ints) and - initialize it to the start constants of the SHA1 algorithm. This - must be called before using hash in the call to sha1_hash. */ -void sha1_init_ctx(struct sha1_ctx *ctx) -{ - ctx->A = 0x67452301; - ctx->B = 0xefcdab89; - ctx->C = 0x98badcfe; - ctx->D = 0x10325476; - ctx->E = 0xc3d2e1f0; - - ctx->total[0] = ctx->total[1] = 0; - ctx->buflen = 0; -} - -/* Copy the 4 byte value from v into the memory location pointed to by *cp, - If your architecture allows unaligned access this is equivalent to - * (uint32_t *) cp = v */ -static void set_uint32(char *cp, uint32_t v) -{ - memcpy(cp, &v, sizeof v); -} - -/* Put result from CTX in first 20 bytes following RESBUF. The result - must be in little endian byte order. */ -void *sha1_read_ctx(const struct sha1_ctx *ctx, void *resbuf) -{ - char *r = resbuf; - set_uint32(r + 0 * sizeof ctx->A, SWAP(ctx->A)); - set_uint32(r + 1 * sizeof ctx->B, SWAP(ctx->B)); - set_uint32(r + 2 * sizeof ctx->C, SWAP(ctx->C)); - set_uint32(r + 3 * sizeof ctx->D, SWAP(ctx->D)); - set_uint32(r + 4 * sizeof ctx->E, SWAP(ctx->E)); - - return resbuf; -} - -/* Process the remaining bytes in the internal buffer and the usual - prolog according to the standard and write the result to RESBUF. */ -void *sha1_finish_ctx(struct sha1_ctx *ctx, void *resbuf) -{ - /* - * Take yet unprocessed bytes into account. - */ - uint32_t bytes = ctx->buflen; - size_t size = (bytes < 56) ? 64 / 4 : 64 * 2 / 4; - - /* - * Now count remaining bytes. - */ - ctx->total[0] += bytes; - if (ctx->total[0] < bytes) - ++ctx->total[1]; /* data-sepcific; LCOV_EXCL_LINE */ - - /* - * Put the 64-bit file length in *bits* at the end of the buffer. - */ - ctx->buffer[size - 2] = SWAP((ctx->total[1] << 3) | (ctx->total[0] >> 29)); - ctx->buffer[size - 1] = SWAP(ctx->total[0] << 3); - - memcpy(&((char *) ctx->buffer)[bytes], fillbuf, (size - 2) * 4 - bytes); - - /* - * Process last bytes. - */ - sha1_process_block(ctx->buffer, size * 4, ctx); - - return sha1_read_ctx(ctx, resbuf); -} - -void sha1_process_bytes(const void *buffer, size_t len, struct sha1_ctx *ctx) -{ - /* - * When we already have some bits in our internal buffer concatenate - * both inputs first. - */ - if (ctx->buflen != 0) { - size_t left_over = ctx->buflen; - size_t add = 128 - left_over > len ? len : 128 - left_over; - - memcpy(&((char *) ctx->buffer)[left_over], buffer, add); - ctx->buflen += add; - - if (ctx->buflen > 64) { - sha1_process_block(ctx->buffer, ctx->buflen & ~63, ctx); - - ctx->buflen &= 63; - /* - * The regions in the following copy operation cannot overlap. - */ - memcpy(ctx->buffer, - &((char *) ctx->buffer)[(left_over + add) & ~63], - ctx->buflen); - } - - buffer = (const char *) buffer + add; - len -= add; - } - - /* - * Process available complete blocks. - */ - if (len >= 64) { - /* architecture and data-specific; LCOV_EXCL_START */ -#if !_STRING_ARCH_unaligned -#define UNALIGNED_P(p) ((uintptr_t) (p) % ALIGNOF_UINT32_T != 0) - if (UNALIGNED_P(buffer)) { - while (len > 64) { - sha1_process_block(memcpy(ctx->buffer, buffer, 64), 64, ctx); - buffer = (const char *) buffer + 64; - len -= 64; - } - } else -#endif - { - sha1_process_block(buffer, len & ~63, ctx); - buffer = (const char *) buffer + (len & ~63); - len &= 63; - } - /* LCOV_EXCL_STOP */ - } - - /* - * Move remaining bytes in internal buffer. - */ - if (len > 0) { - size_t left_over = ctx->buflen; - - memcpy(&((char *) ctx->buffer)[left_over], buffer, len); - left_over += len; - if (left_over >= 64) { - /* data-specific; LCOV_EXCL_START */ - sha1_process_block(ctx->buffer, 64, ctx); - left_over -= 64; - memcpy(ctx->buffer, &ctx->buffer[16], left_over); - } - /* LCOV_EXCL_STOP */ - ctx->buflen = left_over; - } -} - -/* --- Code below is the primary difference between md5.c and sha1.c --- */ - -/* SHA1 round constants */ -#define K1 0x5a827999 -#define K2 0x6ed9eba1 -#define K3 0x8f1bbcdc -#define K4 0xca62c1d6 - -/* Round functions. Note that F2 is the same as F4. */ -#define F1(B,C,D) ( D ^ ( B & ( C ^ D ) ) ) -#define F2(B,C,D) (B ^ C ^ D) -#define F3(B,C,D) ( ( B & C ) | ( D & ( B | C ) ) ) -#define F4(B,C,D) (B ^ C ^ D) - -/* Process LEN bytes of BUFFER, accumulating context into CTX. - It is assumed that LEN % 64 == 0. - Most of this code comes from GnuPG's cipher/sha1.c. */ - -void sha1_process_block(const void *buffer, size_t len, struct sha1_ctx *ctx) -{ - const uint32_t *words = buffer; - size_t nwords = len / sizeof(uint32_t); - const uint32_t *endp = words + nwords; - uint32_t x[16]; - uint32_t a = ctx->A; - uint32_t b = ctx->B; - uint32_t c = ctx->C; - uint32_t d = ctx->D; - uint32_t e = ctx->E; - uint32_t lolen = len; - - /* - * First increment the byte count. RFC 1321 specifies the possible - * length of the file up to 2^64 bits. Here we only compute the - * number of bytes. Do a double word increment. - */ - ctx->total[0] += lolen; - ctx->total[1] += (len >> 31 >> 1) + (ctx->total[0] < lolen); - -#define rol(x, n) (((x) << (n)) | ((uint32_t) (x) >> (32 - (n)))) - -#define M(I) ( tm = x[I&0x0f] ^ x[(I-14)&0x0f] \ - ^ x[(I-8)&0x0f] ^ x[(I-3)&0x0f] \ - , (x[I&0x0f] = rol(tm, 1)) ) - -#define R(A,B,C,D,E,F,K,M) do { E += rol( A, 5 ) \ - + F( B, C, D ) \ - + K \ - + M; \ - B = rol( B, 30 ); \ - } while(0) - - while (words < endp) { - uint32_t tm; - int t; - uint32_t v; - for (t = 0; t < 16; t++) { - memcpy(&v, words, sizeof(uint32_t)); - x[t] = SWAP(v); - words++; - } - - R(a, b, c, d, e, F1, K1, x[0]); - R(e, a, b, c, d, F1, K1, x[1]); - R(d, e, a, b, c, F1, K1, x[2]); - R(c, d, e, a, b, F1, K1, x[3]); - R(b, c, d, e, a, F1, K1, x[4]); - R(a, b, c, d, e, F1, K1, x[5]); - R(e, a, b, c, d, F1, K1, x[6]); - R(d, e, a, b, c, F1, K1, x[7]); - R(c, d, e, a, b, F1, K1, x[8]); - R(b, c, d, e, a, F1, K1, x[9]); - R(a, b, c, d, e, F1, K1, x[10]); - R(e, a, b, c, d, F1, K1, x[11]); - R(d, e, a, b, c, F1, K1, x[12]); - R(c, d, e, a, b, F1, K1, x[13]); - R(b, c, d, e, a, F1, K1, x[14]); - R(a, b, c, d, e, F1, K1, x[15]); - R(e, a, b, c, d, F1, K1, M(16)); - R(d, e, a, b, c, F1, K1, M(17)); - R(c, d, e, a, b, F1, K1, M(18)); - R(b, c, d, e, a, F1, K1, M(19)); - R(a, b, c, d, e, F2, K2, M(20)); - R(e, a, b, c, d, F2, K2, M(21)); - R(d, e, a, b, c, F2, K2, M(22)); - R(c, d, e, a, b, F2, K2, M(23)); - R(b, c, d, e, a, F2, K2, M(24)); - R(a, b, c, d, e, F2, K2, M(25)); - R(e, a, b, c, d, F2, K2, M(26)); - R(d, e, a, b, c, F2, K2, M(27)); - R(c, d, e, a, b, F2, K2, M(28)); - R(b, c, d, e, a, F2, K2, M(29)); - R(a, b, c, d, e, F2, K2, M(30)); - R(e, a, b, c, d, F2, K2, M(31)); - R(d, e, a, b, c, F2, K2, M(32)); - R(c, d, e, a, b, F2, K2, M(33)); - R(b, c, d, e, a, F2, K2, M(34)); - R(a, b, c, d, e, F2, K2, M(35)); - R(e, a, b, c, d, F2, K2, M(36)); - R(d, e, a, b, c, F2, K2, M(37)); - R(c, d, e, a, b, F2, K2, M(38)); - R(b, c, d, e, a, F2, K2, M(39)); - R(a, b, c, d, e, F3, K3, M(40)); - R(e, a, b, c, d, F3, K3, M(41)); - R(d, e, a, b, c, F3, K3, M(42)); - R(c, d, e, a, b, F3, K3, M(43)); - R(b, c, d, e, a, F3, K3, M(44)); - R(a, b, c, d, e, F3, K3, M(45)); - R(e, a, b, c, d, F3, K3, M(46)); - R(d, e, a, b, c, F3, K3, M(47)); - R(c, d, e, a, b, F3, K3, M(48)); - R(b, c, d, e, a, F3, K3, M(49)); - R(a, b, c, d, e, F3, K3, M(50)); - R(e, a, b, c, d, F3, K3, M(51)); - R(d, e, a, b, c, F3, K3, M(52)); - R(c, d, e, a, b, F3, K3, M(53)); - R(b, c, d, e, a, F3, K3, M(54)); - R(a, b, c, d, e, F3, K3, M(55)); - R(e, a, b, c, d, F3, K3, M(56)); - R(d, e, a, b, c, F3, K3, M(57)); - R(c, d, e, a, b, F3, K3, M(58)); - R(b, c, d, e, a, F3, K3, M(59)); - R(a, b, c, d, e, F4, K4, M(60)); - R(e, a, b, c, d, F4, K4, M(61)); - R(d, e, a, b, c, F4, K4, M(62)); - R(c, d, e, a, b, F4, K4, M(63)); - R(b, c, d, e, a, F4, K4, M(64)); - R(a, b, c, d, e, F4, K4, M(65)); - R(e, a, b, c, d, F4, K4, M(66)); - R(d, e, a, b, c, F4, K4, M(67)); - R(c, d, e, a, b, F4, K4, M(68)); - R(b, c, d, e, a, F4, K4, M(69)); - R(a, b, c, d, e, F4, K4, M(70)); - R(e, a, b, c, d, F4, K4, M(71)); - R(d, e, a, b, c, F4, K4, M(72)); - R(c, d, e, a, b, F4, K4, M(73)); - R(b, c, d, e, a, F4, K4, M(74)); - R(a, b, c, d, e, F4, K4, M(75)); - R(e, a, b, c, d, F4, K4, M(76)); - R(d, e, a, b, c, F4, K4, M(77)); - R(c, d, e, a, b, F4, K4, M(78)); - R(b, c, d, e, a, F4, K4, M(79)); - - a = ctx->A += a; - b = ctx->B += b; - c = ctx->C += c; - d = ctx->D += d; - e = ctx->E += e; - } -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/sha1.h b/Build/source/texk/gregorio/gregorio-src/src/sha1.h deleted file mode 100644 index 078fd7a17ea..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/sha1.h +++ /dev/null @@ -1,85 +0,0 @@ -/* - * Declarations of functions and data types used for SHA1 sum - * library functions. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * Copyright (C) 2000-2001, 2003, 2005-2006, 2008-2014 Free Software - * Foundation, Inc. - * - * This file is part of Gregorio. - * This file has been adapted from GNU coreutils to fit Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef SHA1_H -#define SHA1_H 1 - -#include <stddef.h> -#ifdef HAVE_STDINT_H -#include <stdint.h> -#else -#include <inttypes.h> -#endif - -#define SHA1_DIGEST_SIZE 20 - -/* Structure to save state of computation between the single steps. */ -struct sha1_ctx { - uint32_t A; - uint32_t B; - uint32_t C; - uint32_t D; - uint32_t E; - - uint32_t total[2]; - uint32_t buflen; - uint32_t buffer[32]; -}; - -/* Initialize structure containing state of computation. */ -extern void sha1_init_ctx(struct sha1_ctx *ctx); - -/* Starting with the result of former calls of this function (or the - initialization function update the context for the next LEN bytes - starting at BUFFER. - It is necessary that LEN is a multiple of 64!!! */ -extern void sha1_process_block(const void *buffer, size_t len, - struct sha1_ctx *ctx); - -/* Starting with the result of former calls of this function (or the - initialization function update the context for the next LEN bytes - starting at BUFFER. - It is NOT required that LEN is a multiple of 64. */ -extern void sha1_process_bytes(const void *buffer, size_t len, - struct sha1_ctx *ctx); - -/* Process the remaining bytes in the buffer and put result from CTX - in first 20 bytes following RESBUF. The result is always in little - endian byte order, so that a byte-wise output yields to the wanted - ASCII representation of the message digest. */ -extern void *sha1_finish_ctx(struct sha1_ctx *ctx, void *resbuf); - -/* Put result from CTX in first 20 bytes following RESBUF. The result is - always in little endian byte order, so that a byte-wise output yields - to the wanted ASCII representation of the message digest. */ -extern void *sha1_read_ctx(const struct sha1_ctx *ctx, void *resbuf); - -/* Compute SHA1 message digest for LEN bytes beginning at BUFFER. The - result is always in little endian byte order, so that a byte-wise - output yields to the wanted ASCII representation of the message - digest. */ -extern void *sha1_buffer(const char *buffer, size_t len, void *resblock); - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/struct.c b/Build/source/texk/gregorio/gregorio-src/src/struct.c deleted file mode 100644 index eabc5cb57ad..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/struct.c +++ /dev/null @@ -1,1609 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the Gregorio data structures. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -/** - * @file - * @brief This file contains a set of function to manipulate the gregorio - * structure. - * - * It starts by simple add/delete functions for almost all - * structs, and ends with more complex functions for manipulating - * horizontal episema, keys, etc. - * - * The first functions are not commented, but they always act like - * this : we give them a pointer to the pointer to the current element - * (by element I mean a struct which can be gregorio_note, - * gregorio_element, etc.), they add an element and the update the - * pointer to the element so that it points to the new element (may - * seem a bit strange). - * - * All the delete functions are recursive and free all memory. - * - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <limits.h> -#include <assert.h> -#include "struct.h" -#include "unicode.h" -#include "messages.h" -#include "support.h" -#include "characters.h" -#include "support.h" - -unsigned short tex_position_id = 0; - -gregorio_clef_info gregorio_default_clef = { - /*.line =*/ 3, - /*.secondary_line =*/ 0, - /*.pitch_difference =*/ 0, - /*.clef =*/ CLEF_C, - /*.flatted =*/ false, - /*.secondary_clef =*/ CLEF_C, /* not used since secondary_line is 0 */ - /*.secondary_flatted =*/ false, -}; - -static size_t hepisema_adjustments_capacity = 0; -static unsigned short hepisema_adjustments_last = 0; -static gregorio_hepisema_adjustment *hepisema_adjustments = NULL; - -static size_t texverbs_capacity = 0; -static unsigned short texverbs_last = 0; -static char **texverbs = NULL; - -void gregorio_struct_init(void) -{ - hepisema_adjustments_capacity = 8; - hepisema_adjustments = gregorio_grow_buffer(NULL, - &hepisema_adjustments_capacity, gregorio_hepisema_adjustment); - hepisema_adjustments[0].vbasepos = HVB_AUTO; - hepisema_adjustments[0].nudge = NULL; - - texverbs_capacity = 32; - texverbs = gregorio_grow_buffer(NULL, &texverbs_capacity, char *); - texverbs[0] = NULL; -} - -void gregorio_struct_destroy(void) -{ - size_t i; - gregorio_hepisema_adjustment *adj; - char **texverb; - - for (i = 0, adj = hepisema_adjustments; i <= hepisema_adjustments_last; - ++i, ++adj) { - if (adj->nudge) { - free(adj->nudge); - } - } - free(hepisema_adjustments); - - for (i = 0, texverb = texverbs; i <= texverbs_last; ++i, ++texverb) { - if (*texverb) { - /* If the code falls here, this is a programming error. */ - /* LCOV_EXCL_START */ - gregorio_fail(gregorio_struct_destroy, "unfreed texverb"); - free(*texverb); - } - /* LCOV_EXCL_STOP */ - } - free(texverbs); -} - -static unsigned short register_texverb(char *const texverb) -{ - if (texverbs_last == USHRT_MAX) { - /* It's not reasonable to trigger this condition while testing */ - /* LCOV_EXCL_START */ - gregorio_message(_("too many texverbs"), "register_texverb", - VERBOSITY_ERROR, 0); - return 0; - /* LCOV_EXCL_STOP */ - } - ++texverbs_last; - if (texverbs_last >= texverbs_capacity) { - texverbs = gregorio_grow_buffer(texverbs, &texverbs_capacity, char *); - } - texverbs[texverbs_last] = texverb; - return texverbs_last; -} - -static void free_one_texverb(unsigned short index) -{ - if (index) { - gregorio_assert(index <= texverbs_last, gregorio_texverb, - "array index out of bounds", return); - free(texverbs[index]); - texverbs[index] = NULL; - } -} - -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; -} - -void gregorio_position_h_episema_above(gregorio_note *note, signed char height, - bool connect) -{ - assert(note && (note->type == GRE_NOTE || note->type == GRE_BAR)); - note->h_episema_above = height; - note->h_episema_above_connect = connect; -} - -static void set_h_episema_above(gregorio_note *note, signed char height, - grehepisema_size size, bool connect) -{ - gregorio_position_h_episema_above(note, height, connect); - note->h_episema_above_size = size; -} - -void gregorio_position_h_episema_below(gregorio_note *note, signed char height, - bool connect) -{ - assert(note && (note->type == GRE_NOTE || note->type == GRE_BAR)); - note->h_episema_below = height; - note->h_episema_below_connect = connect; -} - -static void set_h_episema_below(gregorio_note *note, signed char height, - grehepisema_size size, bool connect) -{ - gregorio_position_h_episema_below(note, height, connect); - note->h_episema_below_size = size; -} - -void gregorio_add_note(gregorio_note **current_note, signed char pitch, - gregorio_shape shape, gregorio_sign signs, - gregorio_liquescentia liquescentia, gregorio_note *prototype, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_NOTE; - element->u.note.pitch = pitch; - element->u.note.shape = shape; - element->signs = signs; - element->special_sign = _NO_SIGN; - element->u.note.liquescentia = liquescentia; - if (prototype) { - set_h_episema_above(element, prototype->h_episema_above, - prototype->h_episema_above_size, - prototype->h_episema_above_connect); - set_h_episema_below(element, prototype->h_episema_below, - prototype->h_episema_below_size, - prototype->h_episema_below_connect); - element->he_adjustment_index[SO_OVER] = - prototype->he_adjustment_index[SO_OVER]; - element->he_adjustment_index[SO_UNDER] = - prototype->he_adjustment_index[SO_UNDER]; - element->high_ledger_line = prototype->high_ledger_line; - element->high_ledger_specificity = prototype->high_ledger_specificity; - element->low_ledger_line = prototype->low_ledger_line; - element->low_ledger_specificity = prototype->low_ledger_specificity; - } - element->texverb = 0; - element->choral_sign = NULL; -} - -static void add_pitched_item_as_note(gregorio_note **current_note, - gregorio_type type, signed char pitch, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = type; - element->u.note.pitch = pitch; -} - -void gregorio_add_end_of_line_as_note(gregorio_note **current_note, - bool eol_ragged, bool eol_forces_custos, bool eol_forces_custos_on, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_END_OF_LINE; - element->u.other.eol_ragged = eol_ragged; - element->u.other.eol_forces_custos = eol_forces_custos; - element->u.other.eol_forces_custos_on = eol_forces_custos_on; -} - -void gregorio_add_custos_as_note(gregorio_note **current_note, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_CUSTOS; -} - -void gregorio_add_manual_custos_as_note(gregorio_note **current_note, - signed char pitch, const gregorio_scanner_location *const loc) -{ - add_pitched_item_as_note(current_note, GRE_MANUAL_CUSTOS, pitch, loc); -} - -void gregorio_add_suppress_custos_as_note(gregorio_note **current_note, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_SUPPRESS_CUSTOS; -} - -void gregorio_add_clef_as_note(gregorio_note **current_note, - gregorio_clef clef, signed char clef_line, bool flatted, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_CLEF; - element->u.clef.clef = clef; - element->u.clef.line = clef_line; - element->u.clef.flatted = flatted; -} - -void gregorio_add_secondary_clef_to_note(gregorio_note *current_note, - gregorio_clef clef, signed char clef_line, bool flatted) -{ - gregorio_not_null(current_note, gregorio_add_secondary_clef_to_note, - return); - if (current_note->type != GRE_CLEF) { - gregorio_message(_("trying to add a secondary clef to something that " - "is not a clef"), "gregorio_add_secondary_clef_to_note", - VERBOSITY_ERROR, 0); - return; - } - - if (current_note->u.clef.secondary_line) { - gregorio_message(_("secondary clef already exists"), - "gregorio_add_secondary_clef_to_note", VERBOSITY_ERROR, 0); - return; - } - - current_note->u.clef.secondary_clef = clef; - current_note->u.clef.secondary_line = clef_line; - current_note->u.clef.secondary_flatted = flatted; -} - -void gregorio_add_bar_as_note(gregorio_note **current_note, gregorio_bar bar, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_BAR; - element->u.other.bar = bar; -} - -void gregorio_add_space_as_note(gregorio_note **current_note, - const gregorio_space space, char *factor, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_SPACE; - element->u.other.space = space; - element->u.other.ad_hoc_space_factor = factor; -} - -unsigned short gregorio_add_texverb_as_note(gregorio_note **current_note, - char *str, gregorio_type type, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element; - /* gregorio_not_null(str, gregorio_add_texverb_as_note, return NULL); */ - element = create_and_link_note(current_note, loc); - assert(type == GRE_TEXVERB_GLYPH || type == GRE_TEXVERB_ELEMENT - || type == GRE_ALT); - element->type = type; - element->texverb = register_texverb(str); - return element->texverb; -} - -void gregorio_add_nlba_as_note(gregorio_note **current_note, gregorio_nlba type, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_NLBA; - element->u.other.nlba = type; -} - -void gregorio_start_autofuse(gregorio_note **current_note, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_AUTOFUSE_START; -} - -void gregorio_end_autofuse(gregorio_note **current_note, - const gregorio_scanner_location *const loc) -{ - gregorio_note *element = create_and_link_note(current_note, loc); - element->type = GRE_AUTOFUSE_END; -} - -static __inline void change_note_texverb(gregorio_note *note, char *str) -{ - if (note->texverb) { - gregorio_change_texverb(note->texverb, str); - } else { - note->texverb = register_texverb(str); - } -} - -void gregorio_add_texverb_to_note(gregorio_note *current_note, char *str) -{ - size_t len; - char *res; - gregorio_not_null(str, gregorio_add_texverb_as_note, return); - if (current_note) { - const char *texverb = gregorio_texverb(current_note->texverb); - if (texverb) { - len = strlen(texverb) + strlen(str) + 1; - res = gregorio_malloc(len); - strcpy(res, texverb); - strcat(res, str); - free(str); - change_note_texverb(current_note, res); - } else { - change_note_texverb(current_note, str); - } - } -} - -void gregorio_add_cs_to_note(gregorio_note *const*const current_note, - char *const str, const bool nabc) -{ - if (*current_note) { - (*current_note)->choral_sign = str; - (*current_note)->choral_sign_is_nabc = nabc; - } -} - -void gregorio_add_special_sign(gregorio_note *note, gregorio_sign sign) -{ - if (!note || note->type != GRE_NOTE) { - gregorio_message(_("trying to add a special sign to something that is " - "not a note"), "gregorio_add_special_sign", VERBOSITY_ERROR, - 0); - return; - } - note->special_sign = sign; -} - -static void fix_oriscus_liquescentia(gregorio_note *const note, - const bool legacy_oriscus_orientation) -{ - if (legacy_oriscus_orientation) { - switch (note->u.note.liquescentia) { - case L_AUCTUS_ASCENDENS: - note->u.note.liquescentia = - (note->u.note.liquescentia & ~TAIL_LIQUESCENTIA_MASK) - | L_AUCTUS_DESCENDENS; - /* fall through */ - case L_AUCTUS_DESCENDENS: - note->u.note.shape = S_ORISCUS_DESCENDENS; - break; - case L_DEMINUTUS: - note->u.note.shape = S_ORISCUS_DEMINUTUS; - break; - default: - note->u.note.shape = S_ORISCUS_ASCENDENS; - break; - } - } else { - note->u.note.liquescentia &= ((~TAIL_LIQUESCENTIA_MASK) | L_DEMINUTUS); - if (note->u.note.liquescentia & L_DEMINUTUS) { - note->u.note.shape = S_ORISCUS_DEMINUTUS; - } - } -} - -static void fix_oriscus_scapus_liquescentia(gregorio_note *const note, - const bool legacy_oriscus_orientation) -{ - if (legacy_oriscus_orientation) { - switch (note->u.note.liquescentia) { - case L_AUCTUS_ASCENDENS: - note->u.note.liquescentia = - (note->u.note.liquescentia & ~TAIL_LIQUESCENTIA_MASK) - | L_AUCTUS_DESCENDENS; - /* fall through */ - case L_AUCTUS_DESCENDENS: - note->u.note.shape = S_ORISCUS_SCAPUS_DESCENDENS; - break; - default: - note->u.note.shape = S_ORISCUS_SCAPUS_ASCENDENS; - break; - } - } else { - note->u.note.liquescentia &= ~TAIL_LIQUESCENTIA_MASK; - } -} - -void gregorio_change_shape(gregorio_note *const note, - const gregorio_shape shape, const bool legacy_oriscus_orientation) -{ - if (!note || note->type != GRE_NOTE) { - gregorio_message(_("trying to change the shape of something that is " - "not a note"), "change_shape", VERBOSITY_ERROR, 0); - return; - } - - note->u.note.shape = shape; - switch (shape) { - case S_STROPHA: - case S_DISTROPHA: - case S_TRISTROPHA: - note->u.note.liquescentia &= L_AUCTUS_ASCENDENS | L_INITIO_DEBILIS; - break; - - case S_ORISCUS_UNDETERMINED: - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - fix_oriscus_liquescentia(note, legacy_oriscus_orientation); - break; - - case S_ORISCUS_SCAPUS_UNDETERMINED: - case S_ORISCUS_SCAPUS_ASCENDENS: - case S_ORISCUS_SCAPUS_DESCENDENS: - fix_oriscus_scapus_liquescentia(note, legacy_oriscus_orientation); - break; - - default: - break; - } -} - -void gregorio_add_cavum(gregorio_note *const note) -{ - if (!note || note->type != GRE_NOTE) { - gregorio_message(_("trying to add cavum to something that is " - "not a note"), "change_shape", VERBOSITY_ERROR, 0); - return; - } - note->u.note.is_cavum = true; -} - -void gregorio_add_tail_liquescentia(gregorio_note *note, - gregorio_liquescentia liq, const bool legacy_oriscus_orientation) -{ - if (!note || note->type != GRE_NOTE) { - gregorio_message(_("trying to make a liquescence on something that " - "is not a note"), "add_liquescentia", VERBOSITY_ERROR, 0); - return; - } - - note->u.note.liquescentia = - (note->u.note.liquescentia & ~TAIL_LIQUESCENTIA_MASK) - | (liq & TAIL_LIQUESCENTIA_MASK); - - switch (note->u.note.shape) { - case S_STROPHA: - case S_DISTROPHA: - case S_TRISTROPHA: - if (note->u.note.liquescentia & L_AUCTUS_DESCENDENS) { - note->u.note.liquescentia = - (note->u.note.liquescentia & ~TAIL_LIQUESCENTIA_MASK) - | L_AUCTUS_ASCENDENS; - } - break; - - case S_ORISCUS_UNDETERMINED: - case S_ORISCUS_ASCENDENS: - case S_ORISCUS_DESCENDENS: - case S_ORISCUS_DEMINUTUS: - fix_oriscus_liquescentia(note, legacy_oriscus_orientation); - break; - - case S_ORISCUS_SCAPUS_UNDETERMINED: - case S_ORISCUS_SCAPUS_ASCENDENS: - case S_ORISCUS_SCAPUS_DESCENDENS: - fix_oriscus_scapus_liquescentia(note, legacy_oriscus_orientation); - break; - - default: - break; - } -} - -static void apply_auto_h_episema(gregorio_note *const note, - const grehepisema_size size, const bool disable_bridge) -{ - if (note->h_episema_above == HEPISEMA_NONE - && note->h_episema_below == HEPISEMA_NONE) { - /* if both are unset, set both to auto */ - set_h_episema_above(note, HEPISEMA_AUTO, size, !disable_bridge); - set_h_episema_below(note, HEPISEMA_AUTO, size, !disable_bridge); - } else if (note->h_episema_above == HEPISEMA_AUTO - && note->h_episema_below == HEPISEMA_AUTO) { - /* if both are auto, then force both */ - /* the upper episema keeps its settings */ - note->h_episema_above = HEPISEMA_FORCED; - - set_h_episema_below(note, HEPISEMA_FORCED, size, !disable_bridge); - } else { - /* force whichever is not already forced */ - if (note->h_episema_above != HEPISEMA_FORCED) { - set_h_episema_above(note, HEPISEMA_FORCED, size, !disable_bridge); - } - if (note->h_episema_below != HEPISEMA_FORCED) { - set_h_episema_below(note, HEPISEMA_FORCED, size, !disable_bridge); - } - } -} - -/********************************** - * - * Activate_isolated_h_episema is used when we see an "isolated" - * horizontal episema: when we type ab__ lex see a then b then _ then _, so - * we must put the _ on the a (kind of backward process), and say the - * the episema on the b is a multi episema. Here n is the length of - * the isolated episema we found (can be up to 4). - * - *********************************/ -static void gregorio_activate_isolated_h_episema(gregorio_note *note, - const grehepisema_size size, const bool disable_bridge, int n) -{ - gregorio_not_null(note, gregorio_activate_isolated_h_episema, return); - if (note->type != GRE_NOTE) { - gregorio_message(ngt_("isolated horizontal episema after something " - "that is not a note, ignored", - "isolated horizontal episema after something that is not " - "a note, ignored", n), "activate_h_isolated_episema", - VERBOSITY_ERROR, 0); - return; - } - for (; n > 0; --n) { - note = note->previous; - if (!note || note->type != GRE_NOTE) { - gregorio_message(_("found more horizontal episema than notes " - "able to be under"), "activate_h_isolated_episema", - VERBOSITY_ERROR, 0); - return; - } - } - apply_auto_h_episema(note, size, disable_bridge); -} - -void gregorio_add_h_episema(gregorio_note *note, - grehepisema_size size, gregorio_vposition vposition, - bool disable_bridge, unsigned int *nbof_isolated_episema) -{ - if (!note || (note->type != GRE_NOTE && note->type != GRE_BAR)) { - gregorio_message(_("trying to add a horizontal episema on something " - "that is not a note"), "add_h_episema", - VERBOSITY_ERROR, 0); - return; - } - gregorio_not_null(nbof_isolated_episema, gregorio_add_h_episema, return); - if (vposition && *nbof_isolated_episema) { - gregorio_message(_("trying to add a forced horizontal episema on a " - "note which already has an automatic horizontal " - "episema"), "add_h_episema", VERBOSITY_ERROR, 0); - return; - } - - if (vposition || !*nbof_isolated_episema) { - switch (vposition) { - case VPOS_ABOVE: - set_h_episema_above(note, HEPISEMA_FORCED, size, !disable_bridge); - break; - - case VPOS_BELOW: - set_h_episema_below(note, HEPISEMA_FORCED, size, !disable_bridge); - break; - - default: /* VPOS_AUTO */ - apply_auto_h_episema(note, size, disable_bridge); - *nbof_isolated_episema = 1; - break; - } - } else { - gregorio_activate_isolated_h_episema(note, size, disable_bridge, - (*nbof_isolated_episema)++); - } -} - -void gregorio_add_sign(gregorio_note *note, gregorio_sign sign, - gregorio_vposition vposition) -{ - if (!note) { - gregorio_message(_("trying to add a sign to something that is " - "not a note"), "gregorio_add_sign", VERBOSITY_ERROR, 0); - return; - } - switch (sign) { - case _PUNCTUM_MORA: - switch (note->signs) { - case _NO_SIGN: - note->signs = _PUNCTUM_MORA; - break; - case _V_EPISEMA: - note->signs = _V_EPISEMA_PUNCTUM_MORA; - break; - case _PUNCTUM_MORA: - note->signs = _AUCTUM_DUPLEX; - break; - case _V_EPISEMA_PUNCTUM_MORA: - note->signs = _V_EPISEMA_AUCTUM_DUPLEX; - break; - default: - break; - } - - note->mora_vposition = vposition; - break; - - case _V_EPISEMA: - switch (note->signs) { - case _NO_SIGN: - note->signs = _V_EPISEMA; - break; - case _PUNCTUM_MORA: - note->signs = _V_EPISEMA_PUNCTUM_MORA; - break; - case _AUCTUM_DUPLEX: - note->signs = _V_EPISEMA_AUCTUM_DUPLEX; - break; - default: - break; - } - - if (note->type == GRE_NOTE && vposition) { - note->v_episema_height = note->u.note.pitch + vposition; - } - break; - - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(gregorio_add_sign, "unexpected sign to add: %s", - gregorio_sign_to_string(sign)); - break; - /* LCOV_EXCL_STOP */ - } -} - -void gregorio_go_to_first_note(gregorio_note **note) -{ - gregorio_note *tmp; - gregorio_not_null_ptr(note, gregorio_go_to_first_note, return); - tmp = *note; - while (tmp->previous) { - tmp = tmp->previous; - } - *note = tmp; -} - -static __inline void free_one_note(gregorio_note *note) -{ - if (note->type == GRE_SPACE) { - free(note->u.other.ad_hoc_space_factor); - } - free_one_texverb(note->texverb); - free(note->choral_sign); - free(note); -} - -void gregorio_free_one_note(gregorio_note **note) -{ - gregorio_note *next = NULL; - gregorio_not_null_ptr(note, gregorio_free_one_note, return); - if ((*note)->next) { - (*note)->next->previous = (*note)->previous; - next = (*note)->next; - } - if ((*note)->previous) { - (*note)->previous->next = (*note)->next; - } - free_one_note(*note); - *note = next; -} - -static void gregorio_free_notes(gregorio_note **note) -{ - gregorio_note *tmp; - while (*note) { - tmp = (*note)->next; - free_one_note(*note); - *note = tmp; - } -} - -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_glyph(gregorio_glyph **current_glyph, - gregorio_glyph_type type, gregorio_note *first_note, - gregorio_liquescentia liquescentia, bool is_cavum) -{ - gregorio_glyph *next_glyph = create_and_link_glyph(current_glyph); - next_glyph->type = GRE_GLYPH; - next_glyph->u.notes.glyph_type = type; - next_glyph->u.notes.liquescentia = liquescentia; - next_glyph->u.notes.is_cavum = is_cavum; - next_glyph->u.notes.first_note = first_note; -} - -void gregorio_add_clef_as_glyph(gregorio_glyph **current_glyph, - gregorio_clef_info clef, unsigned short texverb) -{ - gregorio_glyph *next_glyph = create_and_link_glyph(current_glyph); - next_glyph->type = GRE_CLEF; - next_glyph->u.misc.clef = clef; - next_glyph->texverb = texverb; -} - -void gregorio_add_pitched_element_as_glyph(gregorio_glyph **current_glyph, - gregorio_type type, signed char pitch, bool force_pitch, - unsigned short texverb) -{ - gregorio_glyph *next_glyph = create_and_link_glyph(current_glyph); - assert(type == GRE_CUSTOS); - next_glyph->type = type; - next_glyph->u.misc.pitched.pitch = pitch; - next_glyph->u.misc.pitched.force_pitch = force_pitch; - next_glyph->texverb = texverb; -} - -void gregorio_add_unpitched_element_as_glyph(gregorio_glyph **current_glyph, - gregorio_type type, gregorio_extra_info *info, gregorio_sign sign, - unsigned short texverb) -{ - gregorio_glyph *next_glyph = create_and_link_glyph(current_glyph); - assert(type != GRE_NOTE && type != GRE_GLYPH && type != GRE_ELEMENT - && type != GRE_CLEF && type != GRE_CUSTOS); - next_glyph->type = type; - next_glyph->u.misc.unpitched.info = *info; - next_glyph->u.misc.unpitched.special_sign = sign; - next_glyph->texverb = texverb; - - /* this was copied into the glyph, so we need to clear it to avoid a - * double-free */ - info->ad_hoc_space_factor = NULL; -} - -void gregorio_go_to_first_glyph(gregorio_glyph **glyph) -{ - gregorio_glyph *tmp; - gregorio_not_null_ptr(glyph, gregorio_go_to_first_glyph, return); - tmp = *glyph; - while (tmp->previous) { - tmp = tmp->previous; - } - *glyph = tmp; -} - -static __inline void free_one_glyph(gregorio_glyph *glyph) -{ - free_one_texverb(glyph->texverb); - switch (glyph->type) { - case GRE_GLYPH: - gregorio_free_notes(&glyph->u.notes.first_note); - break; - case GRE_SPACE: - free(glyph->u.misc.unpitched.info.ad_hoc_space_factor); - break; - default: - /* nothing to do */ - break; - } - free(glyph); -} - -void gregorio_free_one_glyph(gregorio_glyph **glyph) -{ - gregorio_glyph *next = NULL; - gregorio_not_null_ptr(glyph, gregorio_free_one_glyph, return); - if ((*glyph)->next) { - (*glyph)->next->previous = NULL; - next = (*glyph)->next; - } - if ((*glyph)->previous) { - (*glyph)->previous->next = NULL; - } - free_one_glyph(*glyph); - *glyph = next; -} - -static void gregorio_free_glyphs(gregorio_glyph **glyph) -{ - gregorio_glyph *next_glyph; - gregorio_not_null(glyph, gregorio_free_glyphs, return); - while (*glyph) { - next_glyph = (*glyph)->next; - free_one_glyph(*glyph); - *glyph = next_glyph; - } -} - -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; -} - -void gregorio_add_element(gregorio_element **current_element, - gregorio_glyph *first_glyph) -{ - gregorio_element *next = create_and_link_element(current_element); - next->type = GRE_ELEMENT; - next->u.first_glyph = first_glyph; -} - -void gregorio_add_misc_element(gregorio_element **current_element, - gregorio_type type, gregorio_misc_element_info *info, - unsigned short texverb) -{ - gregorio_element *special = create_and_link_element(current_element); - special->type = type; - special->u.misc = *info; - special->texverb = texverb; - - if (type == GRE_SPACE) { - /* this was copied into the glyph, so we need to clear it to avoid a - * double-free */ - info->unpitched.info.ad_hoc_space_factor = NULL; - } -} - -static __inline void free_one_element(gregorio_element *element) -{ - size_t i; - free_one_texverb(element->texverb); - for (i = 0; i < element->nabc_lines; i++) { - free(element->nabc[i]); - } - free(element->nabc); - switch (element->type) { - case GRE_ELEMENT: - gregorio_free_glyphs(&element->u.first_glyph); - break; - case GRE_SPACE: - free(element->u.misc.unpitched.info.ad_hoc_space_factor); - break; - default: - /* nothing to do */ - break; - } - free(element); -} - -void gregorio_free_one_element(gregorio_element **element) -{ - gregorio_element *next = NULL; - gregorio_element *to_free; - gregorio_not_null_ptr(element, gregorio_free_one_element, return); - to_free = *element; - if (to_free->next) { - to_free->next->previous = NULL; - next = to_free->next; - } - if (to_free->previous) { - to_free->previous->next = NULL; - } - /* The previous line is probably optimized out */ - /* LCOV_EXCL_STOP */ - free_one_element(to_free); - *element = next; -} - -static void gregorio_free_elements(gregorio_element **element) -{ - gregorio_element *next; - if (!element || !*element) { - return; - } - while (*element) { - next = (*element)->next; - free_one_element(*element); - *element = 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; -} - -static void gregorio_free_one_character(gregorio_character *current_character) -{ - free(current_character); -} - -void gregorio_free_characters(gregorio_character *current_character) -{ - gregorio_character *next_character; - gregorio_not_null(current_character, gregorio_free_characters, return); - while (current_character) { - next_character = current_character->next_character; - gregorio_free_one_character(current_character); - current_character = next_character; - } -} - -void gregorio_go_to_first_character(const gregorio_character **character) -{ - const gregorio_character *tmp; - gregorio_not_null_ptr(character, gregorio_free_characters, return); - tmp = *character; - while (tmp->previous_character) { - tmp = tmp->previous_character; - } - *character = tmp; -} - -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; -} - -void gregorio_end_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_END; - element->cos.s.style = style; - element->next_character = NULL; - element->previous_character = *current_character; - if (*current_character) { - (*current_character)->next_character = element; - } - *current_character = element; -} - -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; -} - -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, const bool clear) -{ - gregorio_syllable *next; - gregorio_element **tab; - int i; - gregorio_not_null(elements, gregorio_add_syllable, return); - gregorio_assert(number_of_voices == 1, gregorio_add_syllable, - "gregorio only supports one voice", return); - next = gregorio_calloc(1, sizeof(gregorio_syllable)); - 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; - next->clear = clear; - 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 *)); - for (i = 0; i < number_of_voices; i++) { - tab[i] = elements[i]; - } - next->elements = tab; - if (*current_syllable) { - (*current_syllable)->next_syllable = next; - } - *current_syllable = next; -} - -static void gregorio_free_one_syllable(gregorio_syllable **syllable, - int number_of_voices) -{ - int i; - gregorio_syllable *next; - gregorio_not_null_ptr(syllable, gregorio_free_one_syllable, return); - for (i = 0; i < number_of_voices; i++) { - gregorio_free_elements((struct gregorio_element **) - &((*syllable)->elements[i])); - } - if ((*syllable)->text) { - gregorio_free_characters((*syllable)->text); - } - if ((*syllable)->translation) { - gregorio_free_characters((*syllable)->translation); - } - free((*syllable)->abovelinestext); - next = (*syllable)->next_syllable; - if (next) { - next->previous_syllable = NULL; - } - free((*syllable)->elements); - free(*syllable); - *syllable = next; -} - -static void gregorio_free_syllables(gregorio_syllable **syllable, - int number_of_voices) -{ - gregorio_not_null_ptr(syllable, gregorio_free_one_syllable, return); - while (*syllable) { - gregorio_free_one_syllable(syllable, number_of_voices); - } -} - -gregorio_score *gregorio_new_score(void) -{ - gregorio_score *new_score = gregorio_calloc(1, sizeof(gregorio_score)); - new_score->number_of_voices = 1; - gregorio_set_score_staff_lines(new_score, 4); - return new_score; -} - -static void gregorio_free_score_infos(gregorio_score *score) -{ - gregorio_not_null(score, gregorio_free_score_infos, return); - /* don't free the strings coming from headers; they will be freed when the - * headers themselves are freed */ - if (score->first_voice_info) { - gregorio_free_voice_infos(score->first_voice_info); - } -} - -static void free_headers(gregorio_score *score) { - gregorio_header *header = score->headers; - while (header) { - gregorio_header *next = header->next; - free(header->name); - free(header->value); - free(header); - header = next; - } -} - -void gregorio_free_score(gregorio_score *score) -{ - gregorio_not_null(score, gregorio_free_score, return); - if (score->first_syllable) { - gregorio_free_syllables(&(score->first_syllable), - score->number_of_voices); - } - gregorio_free_score_infos(score); - free_headers(score); - free(score); -} - -void gregorio_add_voice_info(gregorio_voice_info **current_voice_info) -{ - gregorio_voice_info *next = gregorio_calloc(1, sizeof(gregorio_voice_info)); - gregorio_assert(!*current_voice_info, gregorio_add_voice_info, - "since gregorio only supports once voice, this should only be " - "called once", (*current_voice_info)->next_voice_info = next); - *current_voice_info = next; -} - -void gregorio_free_voice_infos(gregorio_voice_info *voice_info) -{ - gregorio_voice_info *next; - gregorio_not_null(voice_info, gregorio_free_voice_infos, return); - while (voice_info) { - next = voice_info->next_voice_info; - free(voice_info); - voice_info = next; - } -} - -void gregorio_set_score_annotation(gregorio_score *score, char *annotation) -{ - int annotation_num; - gregorio_not_null(score, gregorio_set_score_annotation, return); - /* save the annotation in the first spare place. */ - for (annotation_num = 0; annotation_num < MAX_ANNOTATIONS; ++annotation_num) { - if (score->annotation[annotation_num] == NULL) { - score->annotation[annotation_num] = annotation; - break; - } - } - if (annotation_num >= MAX_ANNOTATIONS) { - gregorio_message(_("too many annotations"), - "gregorio_set_annotation", VERBOSITY_WARNING, 0); - } -} - -void gregorio_set_score_staff_lines(gregorio_score *const score, - const char staff_lines) -{ - gregorio_not_null(score, gregorio_set_score_staff_lines, return); - if (staff_lines < 2 || staff_lines > 5) { - gregorio_message(_("invalid number of staff lines"), - "gregorio_set_score_staff_lines", VERBOSITY_ERROR, 0); - return; - } - score->staff_lines = staff_lines; - score->highest_pitch = LOWEST_PITCH + 4 + (2 * staff_lines); - score->high_ledger_line_pitch = score->highest_pitch - 1; - score->virgula_far_pitch = score->highest_pitch - 6; - - gregorio_assert(score->highest_pitch <= MAX_PITCH, - gregorio_set_score_staff_lines, "highest pitch exceeds MAX_PITCH", - return); -} - -void gregorio_add_score_header(gregorio_score *score, char *name, char *value) -{ - gregorio_header *header; - gregorio_not_null(score, gregorio_add_score_header, return); - header = (gregorio_header *)gregorio_malloc(sizeof(gregorio_header)); - header->name = name; - header->value = value; - header->next = NULL; - if (score->last_header) { - score->last_header->next = header; - } else { - score->headers = header; - } - score->last_header = header; -} - -/********************************** - * - * A function to build an integer from a key, very useful to represent - * it in the structure. - * - *The representation is : - * - * * 1 for a C key on the first (bottom) line - * * 3 for a C key on the second line - * * 5 for a C key on the third line (default key) - * * 7 for a C key on the fourth line - * * 9 for a C key on the fifth line - * - * * -2 for a F key on the first line - * * 0 for a F key on the second line - * * 2 for a F key on the third line - * * 4 for a F key on the fourth line - * * 6 for a F key on the fifth line - * - *********************************/ - -int gregorio_calculate_new_key(gregorio_clef_info clef) -{ - switch (clef.clef) { - case CLEF_C: - return (2 * clef.line) - 1; - break; - case CLEF_F: - return (2 * clef.line) - 4; - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail(gregorio_calculate_new_key, "can't calculate key"); - return NO_KEY; - /* LCOV_EXCL_STOP */ - } -} - -/* shape is an output parameter */ -static __inline signed char next_pitch_from_glyph(const gregorio_glyph *glyph, - gregorio_shape *const alterations, gregorio_shape *const shape) -{ - while (glyph) { - if (glyph->type == GRE_GLYPH) { - if (glyph->u.notes.glyph_type == G_ALTERATION) { - const gregorio_note *note; - for (note = glyph->u.notes.first_note; note; - note = note->next) { - switch (note->u.note.shape) { - case S_FLAT: - case S_SHARP: - case S_NATURAL: - if (note->u.note.pitch >= LOWEST_PITCH && - note->u.note.pitch <= MAX_PITCH) { - alterations[note->u.note.pitch] = - note->u.note.shape; - } - break; - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_fail2(next_pitch_from_glyph, - "unrecognized alteration shape: %s", - gregorio_shape_to_string(note->u.note.shape)); - break; - /* LCOV_EXCL_STOP */ - } - } - } else if (glyph->u.notes.first_note) { - assert(glyph->u.notes.first_note->type == GRE_NOTE); - if (shape) { - *shape = alterations[ - glyph->u.notes.first_note->u.note.pitch]; - } - return glyph->u.notes.first_note->u.note.pitch; - } - } - glyph = glyph->next; - } - return 0; -} - -/* shape is an output parameter */ -static signed char syllable_first_note(const gregorio_syllable *syllable, - gregorio_shape *const alterations, gregorio_shape *const shape) -{ - gregorio_element *element; - gregorio_glyph *glyph; - signed char pitch; - gregorio_not_null(syllable, syllable_first_note, return 0); - element = syllable->elements[0]; - while (element) { - if (element->type == GRE_CUSTOS) { - return element->u.misc.pitched.pitch; - } - if (element->type == GRE_ELEMENT && element->u.first_glyph) { - glyph = element->u.first_glyph; - pitch = next_pitch_from_glyph(glyph, alterations, shape); - if (pitch) { - return pitch; - } - } - element = element->next; - } - return 0; -} - -/* shape is an output parameter */ -signed char gregorio_determine_next_pitch(const gregorio_syllable *syllable, - const gregorio_element *element, const gregorio_glyph *glyph, - gregorio_shape *const shape) -{ - signed char pitch; - gregorio_shape alterations[MAX_PITCH + 1]; - - memset(alterations, 0, sizeof alterations); - - if (shape) { - *shape = S_UNDETERMINED; - } - gregorio_not_null(element, gregorio_determine_next_pitch, - return DUMMY_PITCH); - gregorio_not_null(syllable, gregorio_determine_next_pitch, - return DUMMY_PITCH); - /* we first explore the next glyphs to find a note, if there is one */ - if (glyph) { - glyph = glyph->next; - pitch = next_pitch_from_glyph(glyph, alterations, shape); - if (pitch) { - return pitch; - } - } - /* then we do the same with the elements */ - element = element->next; - while (element) { - if (element->type == GRE_CUSTOS) { - return element->u.misc.pitched.pitch; - } - if (element->type == GRE_ELEMENT && element->u.first_glyph) { - glyph = element->u.first_glyph; - pitch = next_pitch_from_glyph(glyph, alterations, shape); - if (pitch) { - return pitch; - } - } /* I think this is optimized out; LCOV_EXCL_LINE */ - element = element->next; - } - - /* then we do the same with the syllables */ - syllable = syllable->next_syllable; - while (syllable) { - /* we call another function that will return the pitch of the first - * note if syllable has a note, and 0 else */ - pitch = syllable_first_note(syllable, alterations, shape); - if (pitch) { - return pitch; - } - syllable = syllable->next_syllable; - } - /* here it means that there is no next note, so we return a stupid value, - * but it won' t be used */ - if (shape) { - *shape = S_UNDETERMINED; - } - return DUMMY_PITCH; -} - -/********************************** - * - * A function called after the entire score is determined : we check - * if the first element is a key change, if it is the case we delete - * it and we update the score->voice-info->initial_key. Works in - * polyphony. - * - ******************************/ - -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; - - gregorio_not_null(score, gregorio_fix_initial_keys, return); - gregorio_not_null(score->first_voice_info, gregorio_fix_initial_keys, - return); - if (!score->first_syllable) { - /* valid but almost nonsense: a score with no syllables */ - return; - } - voice_info = score->first_voice_info; - for (i = 0; i < score->number_of_voices; i++) { - element = score->first_syllable->elements[i]; - if (element && 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; - } -} - -/********************************** - * - * A small function to determine if an element list contains only - * special elements (bar, key-change, etc.), useful because the - * representation (in xml for example) may vary according to it. - * - *********************************/ - -bool gregorio_is_only_special(gregorio_element *element) -{ - gregorio_not_null(element, gregorio_is_only_special, return 0); - while (element) { - if (element->type == GRE_ELEMENT) { - return 0; - } - element = element->next; - } - return 1; -} - -/* This should only be called when an unknown enum value is encountered; as - * such, this is a programming error */ -/* LCOV_EXCL_START */ -const char *gregorio_unknown(int value) { - static char buf[20]; - gregorio_snprintf(buf, sizeof buf, "?%d", value); - return buf; -} -/* LCOV_EXCL_STOP */ - -/* - * A small helper for the following function - */ - -static __inline bool is_clef(gregorio_type x) -{ - return x == GRE_CLEF; -} - -/* - * This function is used in write_syllable, it detects if the syllable is like - * (c4), (::c4), (z0c4) or (z0::c4). It returns the gregorio_element of the - * clef change. - */ -gregorio_element *gregorio_get_clef_change(gregorio_syllable *syllable) -{ - gregorio_element *element; - gregorio_assert(syllable && syllable->elements && syllable->elements[0], - gregoriotex_syllable_is_clef_change, "invalid syllable", - return NULL); - element = syllable->elements[0]; - /* we just detect the foud cases */ - if (element->type == GRE_CUSTOS && element->next - && (is_clef(element->next->type)) && !element->next->next) { - return element->next; - } - if (element->type == GRE_BAR && element->next - && (is_clef(element->next->type)) && !element->next->next) { - return element->next; - } - if ((is_clef(element->type)) && !element->next) { - return element; - } - if (element->type == GRE_CUSTOS && element->next - && element->next->type == GRE_BAR && element->next->next - && (is_clef(element->next->next->type)) - && !element->next->next->next) { - return element->next->next; - } - return NULL; -} - -unsigned short gregorio_add_hepisema_adjustment( - const gregorio_hepisema_vbasepos vbasepos, char *const nudge) -{ - if (hepisema_adjustments_last == USHRT_MAX) { - /* It's not reasonable to trigger this condition while testing */ - /* LCOV_EXCL_START */ - gregorio_message(_("too many horizontal episema adjustments"), - "gregorio_add_hepisema_adjustment", VERBOSITY_ERROR, 0); - return 0; - /* LCOV_EXCL_STOP */ - } - ++hepisema_adjustments_last; - if (hepisema_adjustments_last >= hepisema_adjustments_capacity) { - hepisema_adjustments = gregorio_grow_buffer(hepisema_adjustments, - &hepisema_adjustments_capacity, gregorio_hepisema_adjustment); - } - hepisema_adjustments[hepisema_adjustments_last].vbasepos = vbasepos; - hepisema_adjustments[hepisema_adjustments_last].nudge = nudge; - hepisema_adjustments[hepisema_adjustments_last].pitch_extremum = NO_PITCH; - return hepisema_adjustments_last; -} - -gregorio_hepisema_adjustment *gregorio_get_hepisema_adjustment( - const unsigned short index) -{ - gregorio_assert(index <= hepisema_adjustments_last, - gregorio_get_hepisema_adjustment, "array index out of bounds", - return &hepisema_adjustments[0]); - return &hepisema_adjustments[index]; -} - -const char *gregorio_texverb(unsigned short index) -{ - gregorio_assert(index <= texverbs_last, gregorio_texverb, - "array index out of bounds", return NULL); - return texverbs[index]; -} - -void gregorio_change_texverb(unsigned short index, char *texverb) -{ - /* not allowed to change index 0 (== NULL) */ - gregorio_assert(index != 0, gregorio_texverb, - "array index 0 may not be changed", return); - gregorio_assert(index <= texverbs_last, gregorio_texverb, - "array index out of bounds", return); - if (texverbs[index]) { - free(texverbs[index]); - } - texverbs[index] = texverb; -} - -ENUM_TO_STRING(gregorio_type, GREGORIO_TYPE) -ENUM_TO_STRING(gregorio_shape, GREGORIO_SHAPE) -ENUM_TO_STRING(gregorio_bar, GREGORIO_BAR) -ENUM_TO_STRING(gregorio_sign, GREGORIO_SIGN) -ENUM_TO_STRING(gregorio_space, GREGORIO_SPACE) -ENUM_TO_STRING(gregorio_liquescentia, GREGORIO_LIQUESCENTIA) -ENUM_TO_STRING(grehepisema_size, GREHEPISEMA_SIZE) -ENUM_TO_STRING(gregorio_vposition, GREGORIO_VPOSITION) -ENUM_TO_STRING(gregorio_glyph_type, GREGORIO_GLYPH_TYPE) -ENUM_TO_STRING(grestyle_style, GRESTYLE_STYLE) -ENUM_TO_STRING(gregorio_tr_centering, GREGORIO_TR_CENTERING) -ENUM_TO_STRING(gregorio_nlba, GREGORIO_NLBA) -ENUM_TO_STRING(gregorio_euouae, GREGORIO_EUOUAE) -ENUM_TO_STRING(gregorio_word_position, GREGORIO_WORD_POSITION) -ENUM_TO_STRING(gregorio_hepisema_vbasepos, GREGORIO_HEPISEMA_VBASEPOS) diff --git a/Build/source/texk/gregorio/gregorio-src/src/struct.h b/Build/source/texk/gregorio/gregorio-src/src/struct.h deleted file mode 100644 index 39fc7fbde29..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/struct.h +++ /dev/null @@ -1,984 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header defines the Gregorio data structures and functions. - * - * Copyright (C) 2006-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -/** - * @file - * The file starts by the definition of all the structures used in - * gregorio. As it is certainly the most important file for - * understanding, read it carefully. - */ - -#include "unicode.h" - -#ifndef STRUCT_H -#define STRUCT_H - -#include <assert.h> -#include "enum_generator.h" -#include "bool.h" -#include "sha1.h" -#include "messages.h" - -#ifdef __cplusplus -#define ENUM_BITFIELD(TYPE) enum TYPE -#elif defined(__GNUC__) && __GNUC__ >= 2 -#define ENUM_BITFIELD(TYPE) __extension__ enum TYPE -#else -#define ENUM_BITFIELD(TYPE) unsigned int -#endif - -/* Lilypond-compatible location counters */ -typedef struct gregorio_scanner_location { - /* - line is the 1-based line number - * - column is the 0-based* column number, tabs expanded to 8-column stops - * - offset is the 0-based number of characters from the start of the line - * - * * = column is calculated and stored as a 0-based number so the tabstop - * math is simpler; it should be printed 1-based */ - - unsigned short first_line; - unsigned short first_column; - unsigned short first_offset; - unsigned short last_line; - unsigned short last_column; - unsigned short last_offset; - bool generate_point_and_click:1; -} gregorio_scanner_location; - -/* all the different types of things a gregorio_* can be */ - -#define GREGORIO_TYPE(A,E,X,L) \ - A(GRE_NOTE, 1) \ - E(GRE_GLYPH) \ - E(GRE_ELEMENT) \ - E(GRE_CLEF) \ - E(GRE_END_OF_LINE) \ - E(GRE_SPACE) \ - E(GRE_BAR) \ - E(GRE_CUSTOS) \ - E(GRE_MANUAL_CUSTOS) \ - E(GRE_SUPPRESS_CUSTOS) \ - /* I don't really know how I could use the a TEXVERB_NOTE in gregoriotex, - * as we don't write note by note... */ \ - /* GRE_TEXVERB_NOTE, */ \ - E(GRE_TEXVERB_GLYPH) \ - E(GRE_TEXVERB_ELEMENT) \ - /* above lines text, quite the same as GRE_TEXVERB_ELEMENT, but counted - * differently for the spaces above the lines */ \ - E(GRE_ALT) \ - E(GRE_NLBA) \ - E(GRE_AUTOFUSE_START) \ - L(GRE_AUTOFUSE_END) -ENUM(gregorio_type, GREGORIO_TYPE); - -#define GREGORIO_CLEF(A,E,X,L) \ - A(CLEF_C, 0) \ - X(CLEF_F, 1) -ENUM(gregorio_clef, GREGORIO_CLEF); - -/* the different shapes, only for notes */ - -#define GREGORIO_SHAPE(A,E,X,L) \ - A(S_UNDETERMINED, 0) \ - E(S_PUNCTUM) \ - E(S_PUNCTUM_END_OF_GLYPH) \ - E(S_PUNCTUM_INCLINATUM_ASCENDENS) \ - E(S_PUNCTUM_INCLINATUM_STANS) \ - E(S_PUNCTUM_INCLINATUM_DESCENDENS) \ - E(S_PUNCTUM_INCLINATUM_DEMINUTUS) \ - E(S_PUNCTUM_INCLINATUM_AUCTUS) \ - E(S_VIRGA) \ - E(S_VIRGA_REVERSA) \ - E(S_BIVIRGA) \ - E(S_TRIVIRGA) \ - E(S_ORISCUS_ASCENDENS) \ - E(S_ORISCUS_DESCENDENS) \ - E(S_ORISCUS_DEMINUTUS) \ - E(S_ORISCUS_SCAPUS_ASCENDENS) \ - E(S_ORISCUS_SCAPUS_DESCENDENS) \ - E(S_QUILISMA) \ - E(S_STROPHA) \ - E(S_STROPHA_AUCTA) \ - E(S_DISTROPHA) \ - E(S_TRISTROPHA) \ - E(S_LINEA_PUNCTUM) \ - E(S_FLAT) \ - E(S_SHARP) \ - E(S_NATURAL) \ - /* special shapes that must not appear in the final form of the score : - * quadratum is the shape of the first note of a punctum quadratum - * and quilisma quadratum is the shape of the first note of a pes - * quislisma quadratum */ \ - E(S_ORISCUS_UNDETERMINED) \ - E(S_ORISCUS_SCAPUS_UNDETERMINED) \ - E(S_QUADRATUM) \ - E(S_PUNCTUM_INCLINATUM_UNDETERMINED) \ - /* those shapes are for now used only in gregoriotex */ \ - E(S_QUILISMA_QUADRATUM) \ - E(S_PUNCTUM_AUCTUS_ASCENDENS) \ - E(S_PUNCTUM_AUCTUS_DESCENDENS) \ - E(S_PUNCTUM_DEMINUTUS) \ - L(S_LINEA) -ENUM(gregorio_shape, GREGORIO_SHAPE); - -/* the different kind of bars */ - -#define GREGORIO_BAR(A,E,X,L) \ - A(B_NO_BAR, 0) \ - E(B_VIRGULA) \ - E(B_DIVISIO_MINIMA) \ - E(B_DIVISIO_MINOR) \ - E(B_DIVISIO_MAIOR) \ - E(B_DIVISIO_FINALIS) \ - E(B_DIVISIO_MINOR_D1) \ - E(B_DIVISIO_MINOR_D2) \ - E(B_DIVISIO_MINOR_D3) \ - E(B_DIVISIO_MINOR_D4) \ - E(B_DIVISIO_MINOR_D5) \ - E(B_DIVISIO_MINOR_D6) \ - E(B_DIVISIO_MINOR_D7) \ - E(B_DIVISIO_MINOR_D8) \ - E(B_VIRGULA_HIGH) \ - E(B_DIVISIO_MINIMA_HIGH) \ - E(B_DIVISIO_MAIOR_DOTTED) \ - E(B_DIVISIO_MINIMIS) \ - L(B_DIVISIO_MINIMIS_HIGH) -ENUM(gregorio_bar, GREGORIO_BAR); - -/* definition of the signs. You can notice that the values are made so - * that if you wan to add a vertical episema to a note, you juste - * make note->signs+=_V_EPISEMA, so please don't change the value as - * this trick is used. */ - -#define GREGORIO_SIGN(A,E,X,L) \ - A(_NO_SIGN, 0x00) \ - A(_PUNCTUM_MORA, 0x01) \ - A(_AUCTUM_DUPLEX, 0x02) \ - A(_V_EPISEMA, 0x10) \ - A(_V_EPISEMA_PUNCTUM_MORA, 0x11) \ - A(_V_EPISEMA_AUCTUM_DUPLEX, 0x12) \ - /* more rare signs, for now they can't be used with the others */ \ - A(_ACCENTUS, 0x03) \ - A(_ACCENTUS_REVERSUS, 0x04) \ - A(_CIRCULUS, 0x05) \ - A(_SEMI_CIRCULUS, 0x06) \ - A(_SEMI_CIRCULUS_REVERSUS, 0x07) \ - /* signs of a bar */ \ - A(_BAR_H_EPISEMA, 0x08) \ - A(_V_EPISEMA_BAR_H_EPISEMA, 0x18) \ - /* musica ficta */ \ - A(_MUSICA_FICTA_FLAT, 0x09) \ - A(_MUSICA_FICTA_NATURAL, 0x0a) \ - X(_MUSICA_FICTA_SHARP, 0x0b) -ENUM(gregorio_sign, GREGORIO_SIGN); - -/* the different spaces */ - -#define GREGORIO_SPACE(A,E,X,L) \ - A(SP_DEFAULT, 1) \ - E(SP_NO_SPACE) \ - E(SP_ZERO_WIDTH) \ - E(SP_HALF_SPACE) \ - E(SP_INTERGLYPH_SPACE) \ - E(SP_NEUMATIC_CUT) \ - E(SP_LARGER_SPACE) \ - E(SP_GLYPH_SPACE) \ - E(SP_AD_HOC_SPACE) \ - E(SP_NEUMATIC_CUT_NB) \ - E(SP_LARGER_SPACE_NB) \ - E(SP_GLYPH_SPACE_NB) \ - L(SP_AD_HOC_SPACE_NB) -ENUM(gregorio_space, GREGORIO_SPACE); - -/* the different liquescences, like for the signs, have special - * values: to say that something is initio_debilis, just do - * glyph->liquescentia+=L_INITIO_DEBILIS. So don't change the value, - * the trick is much used */ - -#define TAIL_LIQUESCENTIA_MASK 0x07 - -#define GREGORIO_LIQUESCENTIA(A,E,X,L) \ - A(L_NO_LIQUESCENTIA, 0x00) \ - A(L_DEMINUTUS, 0x01) \ - A(L_AUCTUS_ASCENDENS, 0x02) \ - A(L_AUCTUS_DESCENDENS, 0x04) \ - A(L_INITIO_DEBILIS, 0x10) \ - A(L_DEMINUTUS_INITIO_DEBILIS, 0x11) \ - A(L_AUCTUS_ASCENDENS_INITIO_DEBILIS, 0x12) \ - A(L_AUCTUS_DESCENDENS_INITIO_DEBILIS, 0x14) \ - A(L_FUSED, 0x20) \ - A(L_FUSED_DEMINUTUS, 0x21) \ - A(L_FUSED_AUCTUS_ASCENDENS, 0x22) \ - X(L_FUSED_AUCTUS_DESCENDENS, 0x24) -ENUM(gregorio_liquescentia, GREGORIO_LIQUESCENTIA); - -#define GREHEPISEMA_SIZE(A,E,X,L) \ - A(H_NORMAL, 0) \ - E(H_SMALL_LEFT) \ - E(H_SMALL_CENTRE) \ - L(H_SMALL_RIGHT) -ENUM(grehepisema_size, GREHEPISEMA_SIZE); - -/* values are chosen so BELOW/ABOVE can be added to a pitch */ -#define GREGORIO_VPOSITION(A,E,X,L) \ - A(VPOS_AUTO, 0) \ - A(VPOS_BELOW, -1) \ - X(VPOS_ABOVE, 1) -ENUM(gregorio_vposition, GREGORIO_VPOSITION); - -/* The different types of glyph */ - -#define GREGORIO_GLYPH_TYPE(A,E,X,L) \ - A(G_PUNCTUM_INCLINATUM, 1) \ - E(G_2_PUNCTA_INCLINATA_DESCENDENS) \ - E(G_3_PUNCTA_INCLINATA_DESCENDENS) \ - E(G_4_PUNCTA_INCLINATA_DESCENDENS) \ - E(G_5_PUNCTA_INCLINATA_DESCENDENS) \ - E(G_2_PUNCTA_INCLINATA_ASCENDENS) \ - E(G_3_PUNCTA_INCLINATA_ASCENDENS) \ - E(G_4_PUNCTA_INCLINATA_ASCENDENS) \ - E(G_5_PUNCTA_INCLINATA_ASCENDENS) \ - E(G_PUNCTA_INCLINATA) \ - /* !!! DO NOT CHANGE THE ENUM ORDERING BEFORE THIS LINE !!! */ \ - E(G_UNDETERMINED) \ - E(G_VIRGA) \ - E(G_STROPHA) \ - E(G_STROPHA_AUCTA) \ - E(G_PUNCTUM) \ - E(G_ALTERATION) \ - E(G_PODATUS) \ - E(G_PES_QUADRATUM) \ - E(G_FLEXA) \ - E(G_TORCULUS) \ - E(G_TORCULUS_RESUPINUS) \ - E(G_TORCULUS_RESUPINUS_FLEXUS) \ - E(G_PORRECTUS) \ - E(G_PORRECTUS_FLEXUS) \ - E(G_BIVIRGA) \ - E(G_TRIVIRGA) \ - E(G_DISTROPHA) \ - E(G_DISTROPHA_AUCTA) \ - E(G_TRISTROPHA) \ - E(G_TRISTROPHA_AUCTA) \ - E(G_PES_QUADRATUM_FIRST_PART) \ - E(G_SCANDICUS) \ - E(G_PES_QUILISMA_QUADRATUM_FIRST_PART) \ - E(G_ANCUS) \ - E(G_PUNCTA_ASCENDENS) \ - E(G_PUNCTA_DESCENDENS) \ - E(G_VIRGA_REVERSA) \ - E(G_SALICUS) \ - E(G_SALICUS_FLEXUS) \ - E(G_PES_ASCENDENS_ORISCUS) \ - E(G_PES_DESCENDENS_ORISCUS) \ - E(G_TORCULUS_LIQUESCENS) \ - /* additional glyph types, necessary for determination */ \ - E(G_PORRECTUS_NO_BAR) \ - E(G_PORRECTUS_FLEXUS_NO_BAR) \ - L(G_FUSED) -ENUM(gregorio_glyph_type, GREGORIO_GLYPH_TYPE); - -/* - * - * The we define the characters. First we define the different styles. You - * can notice that center is just a style like the others - * - */ - -#define GRESTYLE_STYLE(A,E,X,L) \ - A(ST_NO_STYLE, 0) \ - E(ST_ITALIC) \ - E(ST_CENTER) \ - /* when the user types a {}, basically the same behaviour, except for - * the initial */ \ - E(ST_FORCED_CENTER) \ - E(ST_BOLD) \ - E(ST_TT) \ - E(ST_SMALL_CAPS) \ - E(ST_SPECIAL_CHAR) \ - E(ST_VERBATIM) \ - E(ST_INITIAL) /* a style used to determine the initial */ \ - E(ST_UNDERLINED) \ - E(ST_COLORED) \ - E(ST_ELISION) \ - E(ST_FIRST_WORD) \ - E(ST_FIRST_SYLLABLE) \ - E(ST_FIRST_SYLLABLE_INITIAL) \ - E(ST_SYLLABLE_INITIAL) \ - /* protrusion is implemented a PROTRUSION_FACTOR followed by a PROTRUSION; - * an automatic protrusion will have a verbatim TeX macro as factor */ \ - E(ST_PROTRUSION_FACTOR) \ - E(ST_PROTRUSION) \ - L(ST_SENTINEL) /* a temporary style to signify the end of a syllable */ -ENUM(grestyle_style, GRESTYLE_STYLE); - -/* - * Then the different types of styles. See the next comments for further - * readings. - */ - -#define GRESTYLE_TYPE(A,E,X,L) \ - A(ST_T_NOTHING, 0) \ - E(ST_T_BEGIN) \ - L(ST_T_END) -ENUM(grestyle_type, GRESTYLE_TYPE); - -/* - * The different types of translation centerings - */ - -#define GREGORIO_TR_CENTERING(A,E,X,L) \ - A(TR_NORMAL, 0) \ - E(TR_WITH_CENTER_BEGINNING) \ - L(TR_WITH_CENTER_END) -ENUM(gregorio_tr_centering, GREGORIO_TR_CENTERING); - -/* - * Nothing, beginning or end of area without linebreak - */ - -#define GREGORIO_NLBA(A,E,X,L) \ - A(NLBA_NORMAL, 0) \ - E(NLBA_BEGINNING) \ - L(NLBA_END) -ENUM(gregorio_nlba, GREGORIO_NLBA); - -#define GREGORIO_EUOUAE(A,E,X,L) \ - A(EUOUAE_NORMAL, 0) \ - E(EUOUAE_BEGINNING) \ - L(EUOUAE_END) -ENUM(gregorio_euouae, GREGORIO_EUOUAE); - -#define GREGORIO_WORD_POSITION(A,E,X,L) \ - A(WORD_BEGINNING, 1) \ - E(WORD_MIDDLE) \ - E(WORD_END) \ - L(WORD_ONE_SYLLABLE) -ENUM(gregorio_word_position, GREGORIO_WORD_POSITION); - -#define GREGORIO_SIGN_ORIENTATION(A,E,X,L) \ - A(SO_OVER, 0) \ - X(SO_UNDER, 1) -ENUM(gregorio_sign_orientation, GREGORIO_SIGN_ORIENTATION); - -/* the numeric values will be directly passed to TeX */ -#define GREGORIO_HEPISEMA_VBASEPOS(A,E,X,L) \ - A(HVB_AUTO, 0) \ - A(HVB_MIDDLE, 1) \ - A(HVB_O_LOW, 2) \ - A(HVB_O_HIGH, 3) \ - A(HVB_U_LOW, 4) \ - X(HVB_U_HIGH, 5) -ENUM(gregorio_hepisema_vbasepos, GREGORIO_HEPISEMA_VBASEPOS); - -/* these may be used as bit fields, with LEDGER_EXPLICIT and LEDGER_DRAWN being - * the bits */ -#define GREGORIO_LEDGER_SPECIFICITY(A,E,X,L) \ - A(LEDGER_SUPPOSED, 0) \ - A(LEDGER_EXPLICIT, 1) \ - A(LEDGER_DRAWN, 2) \ - X(LEDGER_EXPLICITLY_DRAWN, 3) -ENUM(gregorio_ledger_specificity, GREGORIO_LEDGER_SPECIFICITY); - -typedef struct gregorio_extra_info { - char *ad_hoc_space_factor; - ENUM_BITFIELD(gregorio_bar) bar:5; - ENUM_BITFIELD(gregorio_space) space:4; - ENUM_BITFIELD(gregorio_nlba) nlba:2; - bool eol_ragged:1; - bool eol_forces_custos:1; - bool eol_forces_custos_on:1; -} gregorio_extra_info; - -typedef struct gregorio_clef_info { - signed char line; - signed char secondary_line; - signed char pitch_difference; - ENUM_BITFIELD(gregorio_clef) clef:1; - bool flatted:1; - ENUM_BITFIELD(gregorio_clef) secondary_clef:1; - bool secondary_flatted:1; -} gregorio_clef_info; - -typedef union gregorio_misc_element_info { - /* pitched is used for GRE_CUSTOS */ - struct { - /* The pitch of the glyph. */ - signed char pitch; - /* boolean indicating whether the pitch is forced */ - bool force_pitch:1; - } pitched; - /* clef is used for GRE_CLEF */ - struct gregorio_clef_info clef; - /* unpitched is used for everything else */ - struct { - struct gregorio_extra_info info; - /* an element might carry a sign. */ - ENUM_BITFIELD(gregorio_sign) special_sign:8; - } unpitched; -} gregorio_misc_element_info; - -/* - * ! We start with the most precise structure, the note structure. The - * note is always a real note (we'll see that glyphs and elements can be - * other things). - */ -typedef struct gregorio_note { - /* then two pointer to other notes, to make a chained list. */ - struct gregorio_note *previous; - struct gregorio_note *next; - /* choral sign is a letter that appears next to a note in some choral - * scores we put it as char* because sometimes two letters appear */ - char *choral_sign; - union { - /* note is used for GRE_NOTE */ - struct { - /* the pitch is the height of the note on the score, that is to - * say the letter it is represented by in gabc. If a clef - * change, pitch will be a number indicating the line of the - * clef. */ - signed char pitch; - /* shape is the shape of the note... if you want to know the - * different possible shapes, see above. */ - ENUM_BITFIELD(gregorio_shape) shape:8; - /* liquescentia is the liquescence on the note, it is not really - * used in the final score, but it is, like type, used in the - * determination of glyphs. */ - ENUM_BITFIELD(gregorio_liquescentia) liquescentia:7; - bool is_cavum:1; - } note; - /* clef is used for GRE_CLEF */ - struct gregorio_clef_info clef; - /* other is used for everything else */ - struct gregorio_extra_info other; - } u; - - /* these go to the end for structure alignment */ - /* index to a string containing a possible TeX verbatim; necessary during - * structure generation. */ - unsigned short texverb; - unsigned short src_line, src_column, src_offset; - unsigned short he_adjustment_index[2]; - - /* we have seen that notes are always real notes, that is to say - * GRE_NOTE. the type is always that in the final structure. But there - * is however this field in the structure because of the temporary - * states that can appear in the determination, where notes can be - * other things. This is the case for example in gabc reading. */ - ENUM_BITFIELD(gregorio_type) type:8; - /* signs is the signs on the notes, see above for all possible values */ - ENUM_BITFIELD(gregorio_sign) signs:8; - /* special_sign is the sign we sometimes encounter on punctum cavum, like - * accentus, semi-circulus, etc. */ - ENUM_BITFIELD(gregorio_sign) special_sign:8; - /* h_episema_type is the type of horizontal episema, possible values - * are H_ALONE for an isolated horizontal episema, H_MULTI_BEGINNING - * if the note is the first note of an episema on several notes, - * H_MULTI_MIDDLE if it is inside an episema on several notes. I let - * you guess what could be the use of H_MULTI_END. Other values are - * temporary values used in determination, they must not appear in the - * final structure. */ - - const char *gtex_offset_case; - signed char v_episema_height; - signed char h_episema_above; - signed char h_episema_below; - ENUM_BITFIELD(grehepisema_size) h_episema_above_size:2; - ENUM_BITFIELD(grehepisema_size) h_episema_below_size:2; - bool h_episema_above_connect:1; - bool h_episema_below_connect:1; - /* the "specificity" field indicates how to interpret the line flag */ - bool high_ledger_line:1; - ENUM_BITFIELD(gregorio_ledger_specificity) high_ledger_specificity:2; - bool low_ledger_line:1; - ENUM_BITFIELD(gregorio_ledger_specificity) low_ledger_specificity:2; - bool is_lower_note:1; - bool is_upper_note:1; - ENUM_BITFIELD(gregorio_vposition) mora_vposition:2; - bool choral_sign_is_nabc:1; -} gregorio_note; - -/* - * ! @brief The gregorio glyph structure Unlike gregorio_note, gregorio_glyph - * can be other things besides GRE_GLYPH: it can also be GRE_SPACE - */ -typedef struct gregorio_glyph { - /* two pointer to make a chained list */ - struct gregorio_glyph *previous; - struct gregorio_glyph *next; - union { - /* glyph is used for GRE_GLYPH */ - struct { - /* a pointer to a (chained list of) gregorio_notes, the first of - * the glyph. */ - struct gregorio_note *first_note; - signed char fuse_to_next_glyph; - /* The glyph type for a GRE_GLYPH (porrectus, pes, etc.). They - * are all listed above. */ - ENUM_BITFIELD(gregorio_glyph_type) glyph_type:8; - /* liquescentia is really used, because that will determine the - * shape we will have to use. */ - ENUM_BITFIELD(gregorio_liquescentia) liquescentia:7; - bool is_cavum:1; - } notes; - union gregorio_misc_element_info misc; - } u; - - /* index to a string containing a possible TeX verbatim; necessary during - * structure generation. */ - unsigned short texverb; - - /* type can have the values explained in the comment just above. */ - ENUM_BITFIELD(gregorio_type) type:8; - - /* There is no additional parameter for GRE_SPACE in a gregorio_glyph - * because gregorio_space in this case can have only one value: - * SP_ZERO_WIDTH, as other spaces would break the glyphs into - * different elements. */ -} gregorio_glyph; - -typedef struct gregorio_element { - /* pointers to the next and previous elements. */ - struct gregorio_element *previous; - struct gregorio_element *next; - /* The nabc string */ - char **nabc; - /* we put it here to get the length of the array here too */ - size_t nabc_lines; - union { - /* first_glyph is used for GRE_ELEMENT */ - /* a pointer to the first glyph of the element. */ - struct gregorio_glyph *first_glyph; - union gregorio_misc_element_info misc; - } u; - - /* index to a string containing a possible TeX verbatim; necessary during - * structure generation. */ - unsigned short texverb; - /* type can have the values GRE_ELEMENT, GRE_BAR, GRE_CLEF, GRE_CUSTOS, - * GRE_END_OF_LINE, GRE_SPACE, GRE_TEXVERB_ELEMENT or GRE_NLBA */ - ENUM_BITFIELD(gregorio_type) type:8; -} gregorio_element; - -/* - * - * gregorio_characters are a bit specials. As there can be styles in the - * text, I had to find a structure mode adapted that just grewchar *. So - * basically a gregorio_character is a double-chained list of things that - * can be grewchar or gregorio_styles. For example if you type (in gabc) - * p<i>o</i>t, the corresponding gregorio_character list will be - * P->style(type: beginning, style italic) -> o -> style(type:end, style: - * italic). But for this list to be coherent, it is mandatory that it is - * xml-compliant, that is to say that a<b>c<i>d</b>e</i> will be - * interpreted as a<b>c<i>d</i></b><i>e</i>. This MUST be done when reading - * a file, so that the structure in memory is coherent. It makes input - * modules more comple, but output modules muche more simpler. The last - * particularity is that center must also be determined in the input - * modules, so that it is already defined in memory. But it is a bit more - * complex, because for TeX-like output modules, we need to close all - * styles before the center style: if the user types <i>pot</i> it must be - * represented as <i>p</i>{<i>o</i>}<i>t</i>. - * - * Here is the declaration of the gregorio_style struct. It is simply two - * chars, one telling the type of style character it is (beginning for a - * character that marks the beginning of a style, and end for a character - * marking the end of a style). The other char simply is the style - * represented by the character (italic, etc.) - * - */ - -typedef struct gregorio_style { - ENUM_BITFIELD(grestyle_style) style:6; - ENUM_BITFIELD(grestyle_type) type:2; -} gregorio_style; - -/* - * - * This union is quite ugly... but necessary for a gregorio_character to be - * able to be a grewchar or gregorio_style. - * - */ -typedef union character_or_style { - grewchar character; - struct gregorio_style s; -} character_or_style; - -/* - * - * Finally the gregorio_character structure in itself, It is first a char - * determining the type (character or gregorio_style). This char is 0 when - * it is a style and something else when it is a character. Then the two - * pointers to build the double chained list, and finally the union. So - * when you want to access to the style of a gregorio_character (when you - * know it is a character of style), you must access to - * mygregoriochar.cos.s.style, and for the character - * mygregoriochar.cos.character . - * - */ - -typedef struct gregorio_character { - bool is_character; - struct gregorio_character *next_character; - struct gregorio_character *previous_character; - union character_or_style cos; -} gregorio_character; - -typedef struct gregorio_syllable { - /* pointer to a gregorio_text structure corresponding to the text. */ - struct gregorio_character *text; - /* pointer to a gregorio_text structure corresponding to the - * translation */ - struct gregorio_character *translation; - /* a string representing the text above the lines (raw TeX) */ - char *abovelinestext; - /* pointer to the next and previous syllable */ - struct gregorio_syllable *next_syllable; - struct gregorio_syllable *previous_syllable; - /* and finally a pointer to the elements of the structure. Here we see - * that we point to an array of elements. In fact it is the array of - * the first elements of the different voices of the syllable, for the - * case of polyphonic score. In most scores (monophonic), the array - * has only one element. */ - struct gregorio_element **elements; - unsigned short euouae_id; - unsigned short src_line, src_column, src_offset; - /* type of translation (with center beginning or only center end) */ - ENUM_BITFIELD(gregorio_tr_centering) translation_type:2; - /* beginning or end of area without linebreak? */ - ENUM_BITFIELD(gregorio_nlba) no_linebreak_area:2; - /* beginning or end of euouae area */ - ENUM_BITFIELD(gregorio_euouae) euouae:2; - /* position is WORD_BEGINNING for the beginning of a multi-syllable - * word, WORD_ONE_SYLLABLE for syllable that are alone in their word, - * and i let you gess what are WORD_MIDDLE and WORD_END. */ - ENUM_BITFIELD(gregorio_word_position) position:3; - bool first_word:1; - bool forced_center:1; - bool clear:1; -} gregorio_syllable; - -/* Stores a header in a singly-linked list */ -typedef struct gregorio_header { - char *name; - char *value; - struct gregorio_header *next; -} gregorio_header; - -/* - * - * Score is the top structure, the structure in which we will convert - * everything, and from which we will construct XML - * - */ - -#define MAX_ANNOTATIONS 2 - -typedef struct gregorio_score { - unsigned char digest[SHA1_DIGEST_SIZE]; - /* the structure starts by a pointer to the first syllable of the - * score. */ - struct gregorio_syllable *first_syllable; - /* the number of voices is very important. In monophony it is one. If - * there are more voices thant number_of_voices, the additional voices - * won't be taken into consideration. */ - int number_of_voices; - /* then start some metadata: */ - char *name; - char *gabc_copyright; - char *score_copyright; - char *mode; - char *mode_modifier; - char *mode_differentia; - char *author; - /* There is one annotation for each line above the initial letter */ - char *annotation[MAX_ANNOTATIONS]; - /* field giving informations on the initial (no initial, normal initial - * or two lines initial) */ - size_t nabc_lines; - char *user_notes; - /* the determination method (maximal ambitus, etc.) */ - unsigned char det_method; - /* then, as there are some metadata that are voice-specific, we add a - * pointer to the first voice_info. (see comments below) */ - struct gregorio_voice_info *first_voice_info; - struct gregorio_header *headers; - struct gregorio_header *last_header; - unsigned char staff_lines; - signed char highest_pitch; - signed char high_ledger_line_pitch; - signed char virgula_far_pitch; - bool legacy_oriscus_orientation; -} gregorio_score; - -/* - * - * gregorio_voice info contains everything that is voice_specific, for - * example the key, etc. that can be different from one voice to another. - * The order of the voice_info (it is a chained list) is the same as the - * order of the voices (from top to bottom in their representation on the - * score). - * - */ - -typedef struct gregorio_voice_info { - gregorio_clef_info initial_clef; - struct gregorio_voice_info *next_voice_info; -} gregorio_voice_info; - -typedef struct gregorio_hepisema_adjustment { - gregorio_hepisema_vbasepos vbasepos; - char *nudge; - signed char pitch_extremum; -} gregorio_hepisema_adjustment; - -/* the maximum number of voices, more than this is total nonsense in - * gregorian chant. */ -#define MAX_NUMBER_OF_VOICES 10 - -#define MAX_TEXT_LENGTH 200 - -#define C_KEY 'c' -#define F_KEY 'f' -#define NO_KEY -5 - -extern unsigned short tex_position_id; -extern gregorio_clef_info gregorio_default_clef; - -#define MONOPHONY 0 - -#define USELESS_VALUE 0 - -static __inline bool is_puncta_inclinata(char glyph) -{ - return glyph <= G_5_PUNCTA_INCLINATA_ASCENDENS; -} - -#define IS_INITIO_DEBILIS 5 -#define NO_INITIO_DEBILIS 0 - -static __inline bool is_tail_liquescentia(char liquescentia) -{ - return liquescentia & TAIL_LIQUESCENTIA_MASK; -} - -static __inline bool is_initio_debilis(char liquescentia) -{ - return liquescentia & L_INITIO_DEBILIS; -} - -static __inline bool is_fused(char liquescentia) -{ - return liquescentia & L_FUSED; -} - -#define HEPISEMA_NONE 0 -#define HEPISEMA_AUTO -1 -#define HEPISEMA_FORCED -2 - -/* The first pitch MUST be an odd number */ -#define LOWEST_PITCH 3 -#define DUMMY_PITCH (LOWEST_PITCH + 6) -#define LOW_LEDGER_LINE_PITCH (LOWEST_PITCH + 1) -#define LOW_LINE_PITCH (LOWEST_PITCH + 3) -#define MAX_PITCH (LOWEST_PITCH + 4 + (2 * 5)) - -#define NO_PITCH -128 - -/* defines the maximal interval between two notes of the same glyph */ -#define MAX_AMBITUS 5 - -void gregorio_struct_init(void); -void gregorio_struct_destroy(void); -gregorio_score *gregorio_new_score(void); -void gregorio_add_note(gregorio_note **current_note, signed char pitch, - gregorio_shape shape, gregorio_sign signs, - gregorio_liquescentia liquescentia, gregorio_note* prototype, - const gregorio_scanner_location *loc); -void gregorio_add_glyph(gregorio_glyph **current_glyph, - gregorio_glyph_type type, gregorio_note *first_note, - gregorio_liquescentia liquescentia, bool is_cavum); -void gregorio_add_element(gregorio_element **current_element, - gregorio_glyph *first_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 *loc, - bool first_word, bool clear); -void gregorio_add_special_sign(gregorio_note *current_note, gregorio_sign sign); -void gregorio_change_shape(gregorio_note *note, gregorio_shape shape, - bool legacy_oriscus_orientation); -void gregorio_add_cavum(gregorio_note *note); -void gregorio_position_h_episema_above(gregorio_note *note, signed char height, - bool connect); -void gregorio_position_h_episema_below(gregorio_note *note, signed char height, - bool connect); -void gregorio_add_h_episema(gregorio_note *note, grehepisema_size size, - gregorio_vposition vposition, bool disable_bridge, - unsigned int *nbof_isolated_episema); -void gregorio_add_sign(gregorio_note *note, gregorio_sign sign, - gregorio_vposition vposition); -void gregorio_add_tail_liquescentia(gregorio_note *note, - gregorio_liquescentia liquescentia, bool legacy_oriscus_orientation); -void gregorio_add_voice_info(gregorio_voice_info **current_voice_info); -void gregorio_free_voice_infos(gregorio_voice_info *voice_info); -void gregorio_free_one_note(gregorio_note **note); -void gregorio_free_one_glyph(gregorio_glyph **glyph); -void gregorio_free_one_element(gregorio_element **element); -void gregorio_free_score(gregorio_score *score); -void gregorio_free_characters(gregorio_character *current_character); -void gregorio_go_to_first_character(const gregorio_character **character); -void gregorio_add_clef_as_glyph(gregorio_glyph **current_glyph, - gregorio_clef_info clef, unsigned short texverb); -void gregorio_add_pitched_element_as_glyph(gregorio_glyph **current_glyph, - gregorio_type type, signed char pitch, bool force_pitch, - unsigned short texverb); -void gregorio_add_unpitched_element_as_glyph(gregorio_glyph **current_glyph, - gregorio_type type, gregorio_extra_info *info, gregorio_sign sign, - unsigned short texverb); -void gregorio_add_end_of_line_as_note(gregorio_note **current_note, - bool eol_ragged, bool eol_forces_custos, bool eol_forces_custos_on, - const gregorio_scanner_location *loc); -void gregorio_add_custos_as_note(gregorio_note **current_note, - const gregorio_scanner_location *loc); -void gregorio_add_manual_custos_as_note(gregorio_note **current_note, - signed char pitch, const gregorio_scanner_location *loc); -void gregorio_add_suppress_custos_as_note(gregorio_note **current_note, - const gregorio_scanner_location *loc); -void gregorio_add_clef_as_note(gregorio_note **current_note, - gregorio_clef clef, signed char clef_line, bool flatted, - const gregorio_scanner_location *loc); -void gregorio_add_secondary_clef_to_note(gregorio_note *current_note, - gregorio_clef clef, signed char clef_line, bool flatted); -void gregorio_add_bar_as_note(gregorio_note **current_note, gregorio_bar bar, - const gregorio_scanner_location *loc); -void gregorio_add_space_as_note(gregorio_note **current_note, - gregorio_space space, char *factor, - const gregorio_scanner_location *loc); -unsigned short gregorio_add_texverb_as_note(gregorio_note **current_note, - char *str, gregorio_type type, const gregorio_scanner_location *loc); -void gregorio_add_nlba_as_note(gregorio_note **current_note, - gregorio_nlba type, const gregorio_scanner_location *loc); -void gregorio_start_autofuse(gregorio_note **current_note, - const gregorio_scanner_location *loc); -void gregorio_end_autofuse(gregorio_note **current_note, - const gregorio_scanner_location *loc); -void gregorio_add_texverb_to_note(gregorio_note *current_note, char *str); -void gregorio_add_cs_to_note(gregorio_note *const*current_note, char *str, - bool nabc); -void gregorio_add_misc_element(gregorio_element **current_element, - gregorio_type type, gregorio_misc_element_info *info, - unsigned short texverb); -void gregorio_set_score_annotation(gregorio_score *score, char *annotation); -void gregorio_set_score_staff_lines(gregorio_score *score, char staff_lines); -void gregorio_add_score_header(gregorio_score *score, char *name, - char *value); -void gregorio_fix_initial_keys(gregorio_score *score, - gregorio_clef_info default_clef); -void gregorio_go_to_first_note(gregorio_note **note); -void gregorio_go_to_first_glyph(gregorio_glyph **glyph); -bool gregorio_is_only_special(gregorio_element *element); -int gregorio_calculate_new_key(gregorio_clef_info clef); -void gregorio_add_character(gregorio_character **current_character, - grewchar wcharacter); -void gregorio_begin_style(gregorio_character **current_character, - grestyle_style style); -void gregorio_end_style(gregorio_character **current_character, - grestyle_style style); -gregorio_character *gregorio_clone_characters(const gregorio_character *source); -signed char gregorio_determine_next_pitch(const gregorio_syllable *syllable, - const gregorio_element *element, const gregorio_glyph *glyph, - gregorio_shape *next_pitch_alteration); -const char *gregorio_unknown(int value); -gregorio_element *gregorio_get_clef_change(gregorio_syllable *syllable); -unsigned short gregorio_add_hepisema_adjustment( - gregorio_hepisema_vbasepos vbasepos, char *nudge); -gregorio_hepisema_adjustment *gregorio_get_hepisema_adjustment( - unsigned short index); -const char *gregorio_texverb(unsigned short index); -void gregorio_change_texverb(unsigned short index, char *texverb); - -static __inline void gregorio_go_to_first_character_c(gregorio_character **character) -{ - gregorio_go_to_first_character((const gregorio_character **)character); -} - -static __inline gregorio_note *gregorio_glyph_last_note( - const gregorio_glyph *const glyph) -{ - gregorio_note *note; - gregorio_assert(glyph && glyph->type == GRE_GLYPH, gregorio_glyph_last_note, - "trying to find the last note of something that is not a glyph", - return NULL); - for (note = glyph->u.notes.first_note; note->next; note = note->next) { - /* iterate to find the last note */ - } - return note; -} - -static __inline const gregorio_glyph *gregorio_next_non_texverb_glyph( - const gregorio_glyph *glyph) -{ - if (glyph) { - for (glyph = glyph->next; glyph; glyph = glyph->next) { - if (glyph->type != GRE_TEXVERB_GLYPH) { - return glyph; - } - } - } - return NULL; -} - -static __inline const gregorio_glyph *gregorio_previous_non_texverb_glyph( - const gregorio_glyph *glyph) -{ - if (glyph) { - for (glyph = glyph->previous; glyph; glyph = glyph->previous) { - if (glyph->type != GRE_TEXVERB_GLYPH) { - return glyph; - } - } - } - return NULL; -} - -static __inline char gregorio_clef_to_char(gregorio_clef clef) -{ - return (clef == CLEF_C)? 'c' : 'f'; -} - -static __inline signed char gregorio_adjust_pitch_into_staff( - const gregorio_score *score, signed char pitch) -{ - while (pitch < LOWEST_PITCH) { - pitch += 7; - } - while (pitch > score->highest_pitch) { - pitch -= 7; - } - assert(pitch >= LOWEST_PITCH && pitch <= score->highest_pitch); - return pitch; -} - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/struct_iter.h b/Build/source/texk/gregorio/gregorio-src/src/struct_iter.h deleted file mode 100644 index f0b19040655..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/struct_iter.h +++ /dev/null @@ -1,191 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header defines the Gregorio data structures and functions. - * - * Copyright (C) 2016-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -/** - * @file - * The file starts by the definition of all the structures used in - * gregorio. As it is certainly the most important file for - * understanding, read it carefully. - */ - -#ifndef STRUCT_ITER_H -#define STRUCT_ITER_H - -#include "struct.h" - -/* This enum defines bitfields selecting the node types that should be passed - * to end_item in gregorio_from_note_to_note */ -typedef enum { - GRESTRUCT_NONE = 0, - GRESTRUCT_NOTE = 1 << 0, - GRESTRUCT_GLYPH = 1 << 1, - GRESTRUCT_ELEMENT = 1 << 2, - GRESTRUCT_SYLLABLE = 1 << 3 -} gregorio_note_iter_item_type; - -typedef struct { - gregorio_syllable *syllable; - gregorio_element *element; - gregorio_glyph *glyph; - gregorio_note *note; -} gregorio_note_iter_position; - -static __inline void gregorio_from_note_to_note( - const gregorio_note_iter_position *const start, - const gregorio_note_iter_position *const end, bool include_end, - void (*const visit)(const gregorio_note_iter_position *, void *), - void (*const end_item)(const gregorio_note_iter_position *, - gregorio_note_iter_item_type, void *), - const gregorio_note_iter_item_type desired_end_items, void *data) -{ - /* Note: include_end is effectively ignored if end is NULL */ - - gregorio_note_iter_position p = *start; - - while (p.syllable) { - if (!p.element) { - p.element = p.syllable->elements[0]; - } - while (p.element) { - if (p.element->type == GRE_ELEMENT) { - if (!p.glyph) { - p.glyph = p.element->u.first_glyph; - } - while (p.glyph) { - if (p.glyph->type == GRE_GLYPH) { - if (!p.note) { - p.note = p.glyph->u.notes.first_note; - } - while (p.note) { - bool at_end = (end && p.note == end->note); - - if (p.note->type == GRE_NOTE - && (!at_end || include_end)) { - visit(&p, data); - } - - if (at_end) { - if (end_item) { - gregorio_fail(gregorio_from_note_to_note, - "unused code path"); - if (desired_end_items & GRESTRUCT_NOTE) { - /* currently unused */ - /* LCOV_EXCL_START */ - /* to enable the real code, delete this - * assertion: */ - gregorio_fail(gregorio_from_note_to_note, - "unused code path"); - end_item(&p, GRESTRUCT_NOTE, data); - } - /* LCOV_EXCL_END */ - if (desired_end_items & GRESTRUCT_GLYPH) { - /* currently unused */ - /* LCOV_EXCL_START */ - /* to enable the real code, delete this - * assertion: */ - gregorio_fail(gregorio_from_note_to_note, - "unused code path"); - end_item(&p, GRESTRUCT_GLYPH, data); - } - /* LCOV_EXCL_END */ - if (desired_end_items - & GRESTRUCT_ELEMENT) { - /* currently unused */ - /* LCOV_EXCL_START */ - /* to enable the real code, delete this - * assertion: */ - gregorio_fail(gregorio_from_note_to_note, - "unused code path"); - end_item(&p, GRESTRUCT_ELEMENT, data); - } - /* LCOV_EXCL_END */ - if (desired_end_items - & GRESTRUCT_SYLLABLE) { - end_item(&p, GRESTRUCT_SYLLABLE, data); - } - } - return; - } - - if (end_item - && (desired_end_items & GRESTRUCT_NOTE)) { - /* in 4.2.0, this code is never hit, as the only - * usage that gets through to here does not - * include GRESTRUCT_NOTE in desired_end_items */ - /* LCOV_EXCL_START */ - /* to enable the real code, delete this - * assertion: */ - gregorio_fail(gregorio_from_note_to_note, - "unused code path"); - end_item(&p, GRESTRUCT_NOTE, data); - - } - /* LCOV_EXCL_STOP */ - p.note = p.note->next; - } /* note */ - } - if (end_item && (desired_end_items & GRESTRUCT_GLYPH)) { - /* in 4.2.0, this code is never hit, as the only usage - * that gets through to here does not include - * GRESTRUCT_GLYPH in desired_end_items */ - /* LCOV_EXCL_START */ - /* to enable the real code, delete this assertion: */ - gregorio_fail(gregorio_from_note_to_note, - "unused code path"); - end_item(&p, GRESTRUCT_GLYPH, data); - } - /* LCOV_EXCL_STOP */ - p.glyph = p.glyph->next; - } /* glyph */ - } - if (end_item && (desired_end_items & GRESTRUCT_ELEMENT)) { - end_item(&p, GRESTRUCT_ELEMENT, data); - } - p.element = p.element->next; - } /* element */ - if (end_item && (desired_end_items & GRESTRUCT_SYLLABLE)) { - end_item(&p, GRESTRUCT_SYLLABLE, data); - } - p.syllable = p.syllable->next_syllable; - } /* syllable */ -} - -static __inline void gregorio_for_each_note(const gregorio_score *score, - void (*const visit)(const gregorio_note_iter_position *, void *), - void (*const end_item)(const gregorio_note_iter_position *, - gregorio_note_iter_item_type, void *), - const gregorio_note_iter_item_type desired_end_items, void *data) -{ - gregorio_note_iter_position p = { - /* .syllable = */ NULL, - /* .element = */ NULL, - /* .glyph = */ NULL, - /* .note = */ NULL - }; - - p.syllable = score->first_syllable; - - gregorio_from_note_to_note(&p, NULL, true, visit, end_item, - desired_end_items, data); -} - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/support.c b/Build/source/texk/gregorio/gregorio-src/src/support.c deleted file mode 100644 index a169cbaac9c..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/support.c +++ /dev/null @@ -1,282 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file contains miscellaneous support functions. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdarg.h> -#include <stdlib.h> -#include <string.h> -#include <ctype.h> -#include <errno.h> -#include "support.h" -#include "struct.h" -#include "messages.h" - -/* Our version of snprintf; this is NOT semantically the same as C99's - * snprintf; rather, it's a "lowest common denominator" implementation - * blending C99 and MS-C */ -void gregorio_snprintf(char *s, size_t size, const char *format, ...) -{ - va_list args; - -#ifdef _MSC_VER - memset(s, 0, size); -#endif - - va_start(args, format); -#ifdef _MSC_VER - _vsnprintf_s(s, size, _TRUNCATE, format, args); -#else - vsnprintf(s, size, format, args); -#endif - va_end(args); -} - -static __inline void *assert_successful_allocation(void *ptr, char *funcname) { - if (!ptr) { - /* it's not realistic to test this for coverage */ - /* LCOV_EXCL_START */ - gregorio_message(_("error in memory allocation"), - funcname, VERBOSITY_FATAL, 0); - gregorio_exit(1); - } - /* LCOV_EXCL_STOP */ - return ptr; -} - -void *gregorio_malloc(size_t size) -{ - return assert_successful_allocation(malloc(size), "gregorio_malloc"); -} - -void *gregorio_calloc(size_t nmemb, size_t size) -{ - return assert_successful_allocation(calloc(nmemb, size), "gregorio_calloc"); -} - -void *gregorio_realloc(void *ptr, size_t size) -{ - return assert_successful_allocation(realloc(ptr, size), "gregorio_realloc"); -} - -char *gregorio_strdup(const char *s) -{ - return (char *)assert_successful_allocation(strdup(s), "gregorio_strdup"); -} - -void *_gregorio_grow_buffer(void *buffer, size_t *nmemb, size_t size) -{ - if (buffer == NULL) { - return gregorio_malloc(*nmemb * size); - } - if (*nmemb >= MAX_BUF_GROWTH) { - /* it's not realistic to test this case */ - /* LCOV_EXCL_START */ - gregorio_message(_("buffer too large"), "gregorio_grow_buffer", - VERBOSITY_FATAL, 0); - gregorio_exit(1); - /* LCOV_EXCL_STOP */ - } - *nmemb <<= 1; - return gregorio_realloc(buffer, *nmemb * size); -} - -#ifdef USE_KPSE -static kpathsea kpse = NULL; -#define USED_FOR_KPSE -#else -#define USED_FOR_KPSE __attribute__((unused)) -#endif - -void gregorio_support_init(const char *const program USED_FOR_KPSE, - const char *const argv0 USED_FOR_KPSE) -{ - gregorio_set_error_out(stderr); - gregorio_set_verbosity_mode(VERBOSITY_ERROR); - gregorio_struct_init(); -#ifdef USE_KPSE - kpse = kpathsea_new(); - kpathsea_set_program_name(kpse, argv0, program); -#endif -} - -void gregorio_print_version(const char *copyright) -{ -#ifdef USE_KPSE - printf("Gregorio %s (%s).\n%s\n", GREGORIO_VERSION, - kpathsea_version_string, copyright); -#else - printf("Gregorio %s.\n%s\n", GREGORIO_VERSION, - copyright); -#endif - printf("License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>\n\ -This is free software: you are free to change and redistribute it.\n\ -There is NO WARRANTY, to the extent permitted by law.\n"); -} - -#ifdef USE_KPSE -bool gregorio_read_ok(const char *const filename, - const gregorio_verbosity verbosity) -{ - if (kpathsea_in_name_ok_silent(kpse, filename)) { - return true; - } - gregorio_messagef("gregorio_in_name_ok", verbosity, __LINE__, - _("kpse prohibits read from file %s"), filename); - return false; -} - -bool gregorio_write_ok(const char *const filename, - const gregorio_verbosity verbosity) -{ - if (kpathsea_out_name_ok_silent(kpse, filename)) { - return true; - } - gregorio_messagef("gregorio_out_name_ok", verbosity, __LINE__, - _("kpse prohibits write to file %s"), filename); - return false; -} -#endif - -#ifndef USE_KPSE -static __inline void rtrim(char *buf) -{ - char *p; - for (p = buf + strlen(buf) - 1; p >= buf && isspace(*p); --p) { - *p = '\0'; - } -} - -static bool gregorio_readline(char **buf, size_t *bufsize, FILE *file) -{ - size_t oldsize; - if (*buf == NULL) { - *bufsize = 128; - *buf = gregorio_grow_buffer(NULL, bufsize, char); - } else { - if (*bufsize < 128) { - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - gregorio_message(_("invalid buffer size"), "gregorio_getline", - VERBOSITY_FATAL, 0); - gregorio_exit(1); - /* LCOV_EXCL_STOP */ - } - } - (*buf)[0] = '\0'; - oldsize = 1; - for (;;) { - (*buf)[*bufsize - 2] = '\0'; - - if (feof(file) || ferror(file) - || !fgets((*buf) + oldsize - 1, (int)(*bufsize - oldsize + 1), - file) - || (*buf)[*bufsize - 2] == '\0') { - if (ferror(file)) { - /* it's not realistic to simulate the system error required to - * cover this case */ - /* LCOV_EXCL_START */ - gregorio_message(_("Error reading from the file"), - "gregorio_getline", VERBOSITY_FATAL, 0); - gregorio_exit(1); - /* LCOV_EXCL_STOP */ - } - return (*buf)[0] != '\0'; - } - - oldsize = *bufsize; - *buf = gregorio_grow_buffer(*buf, bufsize, char); - } -} -#endif - - -char **gregorio_kpse_find(const char *filename) -{ - char **filenames; -#ifdef USE_KPSE - filenames = kpathsea_find_file_generic(kpse, filename, kpse_tex_format, - true, true); - if (!filenames) { - /* It's not reasonable to break kpse in such a way that this would - * fail. */ - /* LCOV_EXCL_START */ - gregorio_messagef("gregorio_kpse_find", VERBOSITY_WARNING, 0, - _("kpathsea_find_file_generic returned NULL: %s"), filename); - return NULL; - /* LCOV_EXCL_STOP */ - } -#else - FILE *file; - size_t bufsize = 0; - char *buf = NULL; - size_t capacity = 16, size = 0; -#define KPSE_COMMAND "kpsewhich -must-exist -all " - size_t command_size = sizeof(KPSE_COMMAND) + strlen(filename); - char *command = gregorio_malloc(command_size); - - strcpy(command, KPSE_COMMAND); - strcpy(command + sizeof(KPSE_COMMAND) - 1, filename); - file = popen(command, "r"); - free(command); - command = NULL; /* just to be sure */ - if (!file) { - /* it's not reasonable to cause popen to fail */ - /* LCOV_EXCL_START */ - gregorio_messagef("gregorio_kpse_find", VERBOSITY_WARNING, 0, - _("unable to run kpsewhich %s: %s"), filename, - strerror(errno)); - return NULL; - /* LCOV_EXCL_STOP */ - } - filenames = gregorio_malloc(capacity * sizeof(char *)); - while (gregorio_readline(&buf, &bufsize, file)) { - rtrim(buf); - if (strlen(buf) > 0) { - filenames[size++] = gregorio_strdup(buf); - if (size >= capacity) { - capacity <<= 1; - filenames = gregorio_realloc(filenames, - capacity * sizeof(char *)); - } - } else { - gregorio_messagef("read_patterns", VERBOSITY_WARNING, 0, - _("kpsewhich returned bad value for %s"), filename); - } - } - free(buf); - filenames[size] = NULL; - pclose(file); -#endif - return filenames; -} - -void gregorio_exit(int status) -{ -#ifdef USE_KPSE - if (kpse) { - kpathsea_finish(kpse); - } -#endif - gregorio_struct_destroy(); - exit(status); -} /* the prior line exits; LCOV_EXCL_LINE */ diff --git a/Build/source/texk/gregorio/gregorio-src/src/support.h b/Build/source/texk/gregorio/gregorio-src/src/support.h deleted file mode 100644 index 28b4e11bec1..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/support.h +++ /dev/null @@ -1,76 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header prototypes the miscellaneous support functions. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef SUPPORT_H -#define SUPPORT_H - -#include <stdlib.h> -#include <limits.h> -#ifdef USE_KPSE -#include <kpathsea/kpathsea.h> -#endif -#include "bool.h" -#include "config.h" -#include "messages.h" - -#define GREGORIO_SZ_MAX (~((size_t)0)) -#define MAX_BUF_GROWTH \ - ((size_t)((((INT_MAX < GREGORIO_SZ_MAX)? INT_MAX : GREGORIO_SZ_MAX) >> 1) + 1)) - -void gregorio_snprintf(char *s, size_t size, const char *format, ...) - __attribute__((__format__ (__printf__, 3, 4))); -void *gregorio_malloc(size_t size) __attribute__((malloc)); -void *gregorio_calloc(size_t nmemb, size_t size) __attribute__((malloc)); -void *gregorio_realloc(void *ptr, size_t size) - __attribute__((warn_unused_result)); -char *gregorio_strdup(const char *s) __attribute__((malloc)); -void *_gregorio_grow_buffer(void *buffer, size_t *nmemb, size_t size) - __attribute__((warn_unused_result)); -void gregorio_support_init(const char *program, const char *argv0); -void gregorio_print_version(const char *copyright); -char **gregorio_kpse_find(const char *filename); -void gregorio_exit(int status) __attribute__((noreturn)); - -#define gregorio_grow_buffer(BUFFER, NMEMB, TYPE) \ - ((TYPE *)_gregorio_grow_buffer(BUFFER, NMEMB, sizeof(TYPE))) - -#ifdef USE_KPSE -bool gregorio_read_ok(const char *filename, gregorio_verbosity verbosity); -bool gregorio_write_ok(const char *filename, gregorio_verbosity verbosity); - -#define gregorio_check_file_access(DIR, FILENAME, LEVEL, ON_NOT_ALLOWED) \ - if (!gregorio_ ## DIR ## _ok(FILENAME, VERBOSITY_ ## LEVEL)) { \ - ON_NOT_ALLOWED; \ - } -#define gregorio_kpse_find_or_else(VAR, FILENAME, ON_FAIL) \ - VAR = gregorio_kpse_find(FILENAME); \ - if (!VAR) { \ - ON_FAIL; \ - } -#else -#define gregorio_check_file_access(DIRECTION, FILENAME, LEVEL, ON_NOT_ALLOWED) -#define gregorio_kpse_find_or_else(VAR, FILENAME, ON_FAIL) \ - VAR = gregorio_kpse_find(FILENAME); \ - gregorio_not_null(VAR, gregorio_kpse_find, ON_FAIL) -#endif - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/unicode.c b/Build/source/texk/gregorio/gregorio-src/src/unicode.c deleted file mode 100644 index fa9e2a4ac87..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/unicode.c +++ /dev/null @@ -1,174 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file contains functions providing UTF-8 support. - * - * Copyright (C) 2008-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <string.h> /* for strlen */ -#include <stdlib.h> -#include "struct.h" -#include "unicode.h" -#include "messages.h" -#include "support.h" - -/* - * - * This file contains some functions to handle UTF-8 correctly. We chose to - * embed them instead of relying on locale or glib, for simplification: with - * these functions we don't rely on anything locale-dependant (such as - * wchar_t). The reason is that Windows XP (...) is not UTF-8 and thus would - * need the glib in oder to run, which make dependencies much bigger. - * - */ - -/* an utf8 version of mbstowcs */ - -/* expects a buffer of size n + 1 */ -static bool gregorio_mbstowcs(grewchar *dest, const char *src, size_t n) -{ - bool success = true; - unsigned char bytes_to_come; - grewchar result = 0; - unsigned char c; - size_t res = 0; /* number of bytes we've done so far */ - gregorio_not_null(src, gregorio_mbstowcs, return false); - gregorio_not_null(dest, gregorio_mbstowcs, return false); - while (success && *src && res < n) { - c = (unsigned char) (*src); - if (c < 128) { /* 0100xxxx */ - /* one-byte symbol */ - bytes_to_come = 0; - result = c; - } else if (c >= 240) { /* 1111xxxx */ - /* start of a four-byte symbol */ - /* printf("%d\n", c); */ - bytes_to_come = 3; - result = (result << 3) | (c & 7); - } else if (c >= 224) { /* 1110xxxx */ - /* start of a three-byte symbol */ - /* printf("%d\n", c); */ - bytes_to_come = 2; - result = (result << 4) | (c & 15); - } else if (c >= 192) { /* 1100xxxx */ - /* start of a two-byte symbol */ - /* printf("%d\n", c); */ - bytes_to_come = 1; - result = (result << 5) | (c & 31); - } else { - /* printf("%s %d %d\n", src, res, c); */ - gregorio_message(_("malformed UTF-8 sequence1"), - "gregorio_mbstowcs", VERBOSITY_ERROR, 0); - success = false; - break; - } - while (bytes_to_come > 0) { - bytes_to_come--; - src++; - c = (unsigned char) (*src); - if (c < 192 && c >= 128) /* 1000xxxx */ - { - result = (result << 6) | (c & 63); - } else { - gregorio_message(_("malformed UTF-8 sequence2"), - "gregorio_mbstowcs", VERBOSITY_ERROR, 0); - success = false; - break; - } - } - dest[res] = result; - - res++; - result = 0; - src++; - } - dest[res] = 0; - return success; -} - -/* the value returned by this function must be freed! */ -grewchar *gregorio_build_grewchar_string_from_buf(const char *const buf) -{ - size_t len; - grewchar *gwstring; - /* this doesn't currently happen, but it's safer to keep this check */ - if (buf == NULL) { - return NULL; /* LCOV_EXCL_LINE */ - } - len = strlen(buf); /* to get the length of the syllable in ASCII */ - gwstring = (grewchar *) gregorio_malloc((len + 1) * sizeof(grewchar)); - gregorio_mbstowcs(gwstring, buf, len); /* converting into grewchar */ - /* no need to check the return code; if it failed, the error state would - * already be in place */ - return gwstring; -} - -/* the function to build a gregorio_character list from a buffer. */ - -gregorio_character *gregorio_build_char_list_from_buf(const char *const buf) -{ - int i = 0; - grewchar *gwstring; - gregorio_character *current_character = NULL; - /* this doesn't currently happen, but it's safer to keep this check */ - if (buf == NULL) { - return NULL; /* LCOV_EXCL_LINE */ - } - gwstring = gregorio_build_grewchar_string_from_buf(buf); - /* we add the corresponding characters in the list of gregorio_characters */ - while (gwstring[i]) { - gregorio_add_character(¤t_character, gwstring[i]); - i++; - } - free(gwstring); - gregorio_go_to_first_character_c(¤t_character); - return current_character; -} - -void gregorio_print_unichar(FILE *f, const grewchar to_print) -{ - if (to_print <= 0x7F) { - fprintf(f, "%c", (unsigned char) to_print); - return; - } - if (to_print >= 0x80 && to_print <= 0x7FF) { - fprintf(f, "%c%c", 0xC0 | (to_print >> 6), 0x80 | (to_print & 0x3F)); - return; - } - if ((to_print >= 0x800 && to_print <= 0xD7FF) || - (to_print >= 0xE000 && to_print <= 0xFFFF)) { - fprintf(f, "%c%c%c", 0xE0 | (to_print >> 12), - 0x80 | ((to_print >> 6) & 0x3F), 0x80 | (to_print & 0x3F)); - return; - } - if (to_print >= 0x10000 && to_print <= 0x10FFFF) { - fprintf(f, "%c%c%c%c", 0xF0 | (to_print >> 18), - 0x80 | ((to_print >> 12) & 0x3F), - 0x80 | ((to_print >> 6) & 0x3F), 0x80 | (to_print & 0x3F)); - } -} - -void gregorio_print_unistring(FILE *f, const grewchar *first_char) -{ - while (*first_char != 0) { - gregorio_print_unichar(f, *first_char); - first_char++; - } -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/unicode.h b/Build/source/texk/gregorio/gregorio-src/src/unicode.h deleted file mode 100644 index e2ae1505967..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/unicode.h +++ /dev/null @@ -1,69 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header prototypes the UTF-8 support functions. - * - * Copyright (C) 2008-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef UNICODE_H_FIRST_PART -#define UNICODE_H_FIRST_PART -#define UNICODE_H - -#include <stdio.h> -#ifdef HAVE_STDINT_H -#include <stdint.h> -#else -#include <inttypes.h> -#endif - -typedef uint32_t grewchar; - -void gregorio_print_unichar(FILE *f, grewchar to_print); -void gregorio_print_unistring(FILE *f, const grewchar *first_char); -grewchar *gregorio_build_grewchar_string_from_buf(const char *buf); - -static __inline size_t gregorio_wcstrlen(const grewchar *wstr) -{ - size_t length = 0; - - while (*(wstr++)) { - ++length; - } - - return length; -} - -/* this macro is for portability under windows, where L'x' is only two-bytes - * long, and thus needs to be cast to a 4-bytes integer. */ -#define GL(wc) ((const grewchar) L'wc') - -#endif - -/* we enter the second part only if struct.h has already been included, because - * we need gregorio_character */ - -#ifdef STRUCT_H - -#ifndef UNICODE_H_SECOND_PART -#define UNICODE_H_SECOND_PART - -gregorio_character *gregorio_build_char_list_from_buf(const char *buf); - -#endif - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/utf8strings.h b/Build/source/texk/gregorio/gregorio-src/src/utf8strings.h deleted file mode 100644 index e472a048eb6..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/utf8strings.h +++ /dev/null @@ -1,36 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header file contains UTF-8 encoded strings used by Gregorio - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef UTF8STRINGS_H -#define UTF8STRINGS_H - -#define ACCENTED_AE "'\303\246" -#define ACCENTED_OE "'\305\223" - -/* This is a superset of Latin vowels which includes some French, Vietnamese, - * Slavic, Hungarian, and Norwegian vowels which don't interfere with Latin - * itself. For something more accurate, the user should consider the use of - * custom centering rules. */ -#define DEFAULT_VOWELS "a\303\240\303\241\303\242\304\203\304\205\303\245A\303\200\303\201\303\202\304\202\304\204\303\205e\303\250\303\251\303\252\303\253\304\233\304\231E\303\210\303\211\303\212\303\213\304\232\304\230i\303\254\303\255\303\256I\303\214\303\215\303\216" \ - "o\303\262\303\263\303\264\306\241\305\221\303\270O\303\222\303\223\303\224\306\240\305\220\303\230u\303\271\303\272\303\273\306\260\305\257\305\261U\303\231\303\232\303\233\306\257\305\256\305\260y\341\273\263\303\275Y\341\273\262\303\235\303\246\307\275\303\206\307\274\305\223\305\222" - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/utf8strings.h.in b/Build/source/texk/gregorio/gregorio-src/src/utf8strings.h.in deleted file mode 100644 index acfed30159f..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/utf8strings.h.in +++ /dev/null @@ -1,36 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header file contains UTF-8 encoded strings used by Gregorio - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * Gregorio is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * Gregorio is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with Gregorio. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef UTF8STRINGS_H -#define UTF8STRINGS_H - -#define ACCENTED_AE "'æ" -#define ACCENTED_OE "'œ" - -/* This is a superset of Latin vowels which includes some French, Vietnamese, - * Slavic, Hungarian, and Norwegian vowels which don't interfere with Latin - * itself. For something more accurate, the user should consider the use of - * custom centering rules. */ -#define DEFAULT_VOWELS "aàáâăąåAÀÁÂĂĄÅeèéêëěęEÈÉÊËĚĘiìíîIÌÍÎ" \ - "oòóôơőøOÒÓÔƠŐØuùúûưůűUÙÚÛƯŮŰyỳýYỲÝæǽÆǼœŒ" - -#endif diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-l.c b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-l.c deleted file mode 100644 index 4d1906b3a02..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-l.c +++ /dev/null @@ -1,2166 +0,0 @@ -#line 1 "vowel/vowel-rules-l.c" - -#line 3 "vowel/vowel-rules-l.c" - -#define YY_INT_ALIGNED long int - -/* A lexical scanner generated by flex */ - -#define yy_create_buffer gregorio_vowel_rulefile__create_buffer -#define yy_delete_buffer gregorio_vowel_rulefile__delete_buffer -#define yy_scan_buffer gregorio_vowel_rulefile__scan_buffer -#define yy_scan_string gregorio_vowel_rulefile__scan_string -#define yy_scan_bytes gregorio_vowel_rulefile__scan_bytes -#define yy_init_buffer gregorio_vowel_rulefile__init_buffer -#define yy_flush_buffer gregorio_vowel_rulefile__flush_buffer -#define yy_load_buffer_state gregorio_vowel_rulefile__load_buffer_state -#define yy_switch_to_buffer gregorio_vowel_rulefile__switch_to_buffer -#define yypush_buffer_state gregorio_vowel_rulefile_push_buffer_state -#define yypop_buffer_state gregorio_vowel_rulefile_pop_buffer_state -#define yyensure_buffer_stack gregorio_vowel_rulefile_ensure_buffer_stack -#define yy_flex_debug gregorio_vowel_rulefile__flex_debug -#define yyin gregorio_vowel_rulefile_in -#define yyleng gregorio_vowel_rulefile_leng -#define yylex gregorio_vowel_rulefile_lex -#define yylineno gregorio_vowel_rulefile_lineno -#define yyout gregorio_vowel_rulefile_out -#define yyrestart gregorio_vowel_rulefile_restart -#define yytext gregorio_vowel_rulefile_text -#define yywrap gregorio_vowel_rulefile_wrap -#define yyalloc gregorio_vowel_rulefile_alloc -#define yyrealloc gregorio_vowel_rulefile_realloc -#define yyfree gregorio_vowel_rulefile_free - -#define FLEX_SCANNER -#define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 6 -#define YY_FLEX_SUBMINOR_VERSION 4 -#if YY_FLEX_SUBMINOR_VERSION > 0 -#define FLEX_BETA -#endif - -#ifdef yy_create_buffer -#define gregorio_vowel_rulefile__create_buffer_ALREADY_DEFINED -#else -#define yy_create_buffer gregorio_vowel_rulefile__create_buffer -#endif - -#ifdef yy_delete_buffer -#define gregorio_vowel_rulefile__delete_buffer_ALREADY_DEFINED -#else -#define yy_delete_buffer gregorio_vowel_rulefile__delete_buffer -#endif - -#ifdef yy_scan_buffer -#define gregorio_vowel_rulefile__scan_buffer_ALREADY_DEFINED -#else -#define yy_scan_buffer gregorio_vowel_rulefile__scan_buffer -#endif - -#ifdef yy_scan_string -#define gregorio_vowel_rulefile__scan_string_ALREADY_DEFINED -#else -#define yy_scan_string gregorio_vowel_rulefile__scan_string -#endif - -#ifdef yy_scan_bytes -#define gregorio_vowel_rulefile__scan_bytes_ALREADY_DEFINED -#else -#define yy_scan_bytes gregorio_vowel_rulefile__scan_bytes -#endif - -#ifdef yy_init_buffer -#define gregorio_vowel_rulefile__init_buffer_ALREADY_DEFINED -#else -#define yy_init_buffer gregorio_vowel_rulefile__init_buffer -#endif - -#ifdef yy_flush_buffer -#define gregorio_vowel_rulefile__flush_buffer_ALREADY_DEFINED -#else -#define yy_flush_buffer gregorio_vowel_rulefile__flush_buffer -#endif - -#ifdef yy_load_buffer_state -#define gregorio_vowel_rulefile__load_buffer_state_ALREADY_DEFINED -#else -#define yy_load_buffer_state gregorio_vowel_rulefile__load_buffer_state -#endif - -#ifdef yy_switch_to_buffer -#define gregorio_vowel_rulefile__switch_to_buffer_ALREADY_DEFINED -#else -#define yy_switch_to_buffer gregorio_vowel_rulefile__switch_to_buffer -#endif - -#ifdef yypush_buffer_state -#define gregorio_vowel_rulefile_push_buffer_state_ALREADY_DEFINED -#else -#define yypush_buffer_state gregorio_vowel_rulefile_push_buffer_state -#endif - -#ifdef yypop_buffer_state -#define gregorio_vowel_rulefile_pop_buffer_state_ALREADY_DEFINED -#else -#define yypop_buffer_state gregorio_vowel_rulefile_pop_buffer_state -#endif - -#ifdef yyensure_buffer_stack -#define gregorio_vowel_rulefile_ensure_buffer_stack_ALREADY_DEFINED -#else -#define yyensure_buffer_stack gregorio_vowel_rulefile_ensure_buffer_stack -#endif - -#ifdef yylex -#define gregorio_vowel_rulefile_lex_ALREADY_DEFINED -#else -#define yylex gregorio_vowel_rulefile_lex -#endif - -#ifdef yyrestart -#define gregorio_vowel_rulefile_restart_ALREADY_DEFINED -#else -#define yyrestart gregorio_vowel_rulefile_restart -#endif - -#ifdef yylex_init -#define gregorio_vowel_rulefile_lex_init_ALREADY_DEFINED -#else -#define yylex_init gregorio_vowel_rulefile_lex_init -#endif - -#ifdef yylex_init_extra -#define gregorio_vowel_rulefile_lex_init_extra_ALREADY_DEFINED -#else -#define yylex_init_extra gregorio_vowel_rulefile_lex_init_extra -#endif - -#ifdef yylex_destroy -#define gregorio_vowel_rulefile_lex_destroy_ALREADY_DEFINED -#else -#define yylex_destroy gregorio_vowel_rulefile_lex_destroy -#endif - -#ifdef yyget_debug -#define gregorio_vowel_rulefile_get_debug_ALREADY_DEFINED -#else -#define yyget_debug gregorio_vowel_rulefile_get_debug -#endif - -#ifdef yyset_debug -#define gregorio_vowel_rulefile_set_debug_ALREADY_DEFINED -#else -#define yyset_debug gregorio_vowel_rulefile_set_debug -#endif - -#ifdef yyget_extra -#define gregorio_vowel_rulefile_get_extra_ALREADY_DEFINED -#else -#define yyget_extra gregorio_vowel_rulefile_get_extra -#endif - -#ifdef yyset_extra -#define gregorio_vowel_rulefile_set_extra_ALREADY_DEFINED -#else -#define yyset_extra gregorio_vowel_rulefile_set_extra -#endif - -#ifdef yyget_in -#define gregorio_vowel_rulefile_get_in_ALREADY_DEFINED -#else -#define yyget_in gregorio_vowel_rulefile_get_in -#endif - -#ifdef yyset_in -#define gregorio_vowel_rulefile_set_in_ALREADY_DEFINED -#else -#define yyset_in gregorio_vowel_rulefile_set_in -#endif - -#ifdef yyget_out -#define gregorio_vowel_rulefile_get_out_ALREADY_DEFINED -#else -#define yyget_out gregorio_vowel_rulefile_get_out -#endif - -#ifdef yyset_out -#define gregorio_vowel_rulefile_set_out_ALREADY_DEFINED -#else -#define yyset_out gregorio_vowel_rulefile_set_out -#endif - -#ifdef yyget_leng -#define gregorio_vowel_rulefile_get_leng_ALREADY_DEFINED -#else -#define yyget_leng gregorio_vowel_rulefile_get_leng -#endif - -#ifdef yyget_text -#define gregorio_vowel_rulefile_get_text_ALREADY_DEFINED -#else -#define yyget_text gregorio_vowel_rulefile_get_text -#endif - -#ifdef yyget_lineno -#define gregorio_vowel_rulefile_get_lineno_ALREADY_DEFINED -#else -#define yyget_lineno gregorio_vowel_rulefile_get_lineno -#endif - -#ifdef yyset_lineno -#define gregorio_vowel_rulefile_set_lineno_ALREADY_DEFINED -#else -#define yyset_lineno gregorio_vowel_rulefile_set_lineno -#endif - -#ifdef yywrap -#define gregorio_vowel_rulefile_wrap_ALREADY_DEFINED -#else -#define yywrap gregorio_vowel_rulefile_wrap -#endif - -#ifdef yyalloc -#define gregorio_vowel_rulefile_alloc_ALREADY_DEFINED -#else -#define yyalloc gregorio_vowel_rulefile_alloc -#endif - -#ifdef yyrealloc -#define gregorio_vowel_rulefile_realloc_ALREADY_DEFINED -#else -#define yyrealloc gregorio_vowel_rulefile_realloc -#endif - -#ifdef yyfree -#define gregorio_vowel_rulefile_free_ALREADY_DEFINED -#else -#define yyfree gregorio_vowel_rulefile_free -#endif - -#ifdef yytext -#define gregorio_vowel_rulefile_text_ALREADY_DEFINED -#else -#define yytext gregorio_vowel_rulefile_text -#endif - -#ifdef yyleng -#define gregorio_vowel_rulefile_leng_ALREADY_DEFINED -#else -#define yyleng gregorio_vowel_rulefile_leng -#endif - -#ifdef yyin -#define gregorio_vowel_rulefile_in_ALREADY_DEFINED -#else -#define yyin gregorio_vowel_rulefile_in -#endif - -#ifdef yyout -#define gregorio_vowel_rulefile_out_ALREADY_DEFINED -#else -#define yyout gregorio_vowel_rulefile_out -#endif - -#ifdef yy_flex_debug -#define gregorio_vowel_rulefile__flex_debug_ALREADY_DEFINED -#else -#define yy_flex_debug gregorio_vowel_rulefile__flex_debug -#endif - -#ifdef yylineno -#define gregorio_vowel_rulefile_lineno_ALREADY_DEFINED -#else -#define yylineno gregorio_vowel_rulefile_lineno -#endif - -/* First, we deal with platform-specific or compiler-specific issues. */ - -/* begin standard C headers. */ -#include <stdio.h> -#include <string.h> -#include <errno.h> -#include <stdlib.h> - -/* end standard C headers. */ - -/* flex integer type definitions */ - -#ifndef FLEXINT_H -#define FLEXINT_H - -/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */ - -#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L - -/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, - * if you want the limit (max/min) macros for int types. - */ -#ifndef __STDC_LIMIT_MACROS -#define __STDC_LIMIT_MACROS 1 -#endif - -#include <inttypes.h> -typedef int8_t flex_int8_t; -typedef uint8_t flex_uint8_t; -typedef int16_t flex_int16_t; -typedef uint16_t flex_uint16_t; -typedef int32_t flex_int32_t; -typedef uint32_t flex_uint32_t; -#else -typedef signed char flex_int8_t; -typedef short int flex_int16_t; -typedef int flex_int32_t; -typedef unsigned char flex_uint8_t; -typedef unsigned short int flex_uint16_t; -typedef unsigned int flex_uint32_t; - -/* Limits of integral types. */ -#ifndef INT8_MIN -#define INT8_MIN (-128) -#endif -#ifndef INT16_MIN -#define INT16_MIN (-32767-1) -#endif -#ifndef INT32_MIN -#define INT32_MIN (-2147483647-1) -#endif -#ifndef INT8_MAX -#define INT8_MAX (127) -#endif -#ifndef INT16_MAX -#define INT16_MAX (32767) -#endif -#ifndef INT32_MAX -#define INT32_MAX (2147483647) -#endif -#ifndef UINT8_MAX -#define UINT8_MAX (255U) -#endif -#ifndef UINT16_MAX -#define UINT16_MAX (65535U) -#endif -#ifndef UINT32_MAX -#define UINT32_MAX (4294967295U) -#endif - -#ifndef SIZE_MAX -#define SIZE_MAX (~(size_t)0) -#endif - -#endif /* ! C99 */ - -#endif /* ! FLEXINT_H */ - -/* begin standard C++ headers. */ - -/* TODO: this is always defined, so inline it */ -#define yyconst const - -#if defined(__GNUC__) && __GNUC__ >= 3 -#define yynoreturn __attribute__((__noreturn__)) -#else -#define yynoreturn -#endif - -/* Returned upon end-of-file. */ -#define YY_NULL 0 - -/* Promotes a possibly negative, possibly signed char to an - * integer in range [0..255] for use as an array index. - */ -#define YY_SC_TO_UI(c) ((YY_CHAR) (c)) - -/* Enter a start condition. This macro really ought to take a parameter, - * but we do it the disgusting crufty way forced on us by the ()-less - * definition of BEGIN. - */ -#define BEGIN (yy_start) = 1 + 2 * -/* Translate the current start state into a value that can be later handed - * to BEGIN to return to the state. The YYSTATE alias is for lex - * compatibility. - */ -#define YY_START (((yy_start) - 1) / 2) -#define YYSTATE YY_START -/* Action number for EOF rule of a given start state. */ -#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) -/* Special action meaning "start processing a new file". */ -#define YY_NEW_FILE yyrestart( yyin ) -#define YY_END_OF_BUFFER_CHAR 0 - -/* Size of default input buffer. */ -#ifndef YY_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k. - * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case. - * Ditto for the __ia64__ case accordingly. - */ -#define YY_BUF_SIZE 32768 -#else -#define YY_BUF_SIZE 16384 -#endif /* __ia64__ */ -#endif - -/* The state buf must be large enough to hold one state per character in the main buffer. - */ -#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type)) - -#ifndef YY_TYPEDEF_YY_BUFFER_STATE -#define YY_TYPEDEF_YY_BUFFER_STATE -typedef struct yy_buffer_state *YY_BUFFER_STATE; -#endif - -#ifndef YY_TYPEDEF_YY_SIZE_T -#define YY_TYPEDEF_YY_SIZE_T -typedef size_t yy_size_t; -#endif - -extern int yyleng; - -extern FILE *yyin, *yyout; - -#define EOB_ACT_CONTINUE_SCAN 0 -#define EOB_ACT_END_OF_FILE 1 -#define EOB_ACT_LAST_MATCH 2 - - #define YY_LESS_LINENO(n) - #define YY_LINENO_REWIND_TO(ptr) - -/* Return all but the first "n" matched characters back to the input stream. */ -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg);\ - *yy_cp = (yy_hold_char); \ - YY_RESTORE_YY_MORE_OFFSET \ - (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \ - YY_DO_BEFORE_ACTION; /* set up yytext again */ \ - } \ - while ( 0 ) -#define unput(c) yyunput( c, (yytext_ptr) ) - -#ifndef YY_STRUCT_YY_BUFFER_STATE -#define YY_STRUCT_YY_BUFFER_STATE -struct yy_buffer_state - { - FILE *yy_input_file; - - char *yy_ch_buf; /* input buffer */ - char *yy_buf_pos; /* current position in input buffer */ - - /* Size of input buffer in bytes, not including room for EOB - * characters. - */ - int yy_buf_size; - - /* Number of characters read into yy_ch_buf, not including EOB - * characters. - */ - int yy_n_chars; - - /* Whether we "own" the buffer - i.e., we know we created it, - * and can realloc() it to grow it, and should free() it to - * delete it. - */ - int yy_is_our_buffer; - - /* Whether this is an "interactive" input source; if so, and - * if we're using stdio for input, then we want to use getc() - * instead of fread(), to make sure we stop fetching input after - * each newline. - */ - int yy_is_interactive; - - /* Whether we're considered to be at the beginning of a line. - * If so, '^' rules will be active on the next match, otherwise - * not. - */ - int yy_at_bol; - - int yy_bs_lineno; /**< The line count. */ - int yy_bs_column; /**< The column count. */ - - /* Whether to try to fill the input buffer when we reach the - * end of it. - */ - int yy_fill_buffer; - - int yy_buffer_status; - -#define YY_BUFFER_NEW 0 -#define YY_BUFFER_NORMAL 1 - /* When an EOF's been seen but there's still some text to process - * then we mark the buffer as YY_EOF_PENDING, to indicate that we - * shouldn't try reading from the input source any more. We might - * still have a bunch of tokens to match, though, because of - * possible backing-up. - * - * When we actually see the EOF, we change the status to "new" - * (via yyrestart()), so that the user can continue scanning by - * just pointing yyin at a new input file. - */ -#define YY_BUFFER_EOF_PENDING 2 - - }; -#endif /* !YY_STRUCT_YY_BUFFER_STATE */ - -/* Stack of input buffers. */ -static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */ -static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */ -static YY_BUFFER_STATE * yy_buffer_stack = NULL; /**< Stack as an array. */ - -/* We provide macros for accessing buffer states in case in the - * future we want to put the buffer states in a more general - * "scanner state". - * - * Returns the top of the stack, or NULL. - */ -#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \ - ? (yy_buffer_stack)[(yy_buffer_stack_top)] \ - : NULL) -/* Same as previous macro, but useful when we know that the buffer stack is not - * NULL or when we need an lvalue. For internal use only. - */ -#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)] - -/* yy_hold_char holds the character lost when yytext is formed. */ -static char yy_hold_char; -static int yy_n_chars; /* number of characters read into yy_ch_buf */ -int yyleng; - -/* Points to current character in buffer. */ -static char *yy_c_buf_p = NULL; -static int yy_init = 0; /* whether we need to initialize */ -static int yy_start = 0; /* start state number */ - -/* Flag which is used to allow yywrap()'s to do buffer switches - * instead of setting up a fresh yyin. A bit of a hack ... - */ -static int yy_did_buffer_switch_on_eof; - -void yyrestart ( FILE *input_file ); -void yy_switch_to_buffer ( YY_BUFFER_STATE new_buffer ); -YY_BUFFER_STATE yy_create_buffer ( FILE *file, int size ); -void yy_delete_buffer ( YY_BUFFER_STATE b ); -void yy_flush_buffer ( YY_BUFFER_STATE b ); -void yypush_buffer_state ( YY_BUFFER_STATE new_buffer ); -void yypop_buffer_state ( void ); - -static void yyensure_buffer_stack ( void ); -static void yy_load_buffer_state ( void ); -static void yy_init_buffer ( YY_BUFFER_STATE b, FILE *file ); -#define YY_FLUSH_BUFFER yy_flush_buffer( YY_CURRENT_BUFFER ) - -YY_BUFFER_STATE yy_scan_buffer ( char *base, yy_size_t size ); -YY_BUFFER_STATE yy_scan_string ( const char *yy_str ); -YY_BUFFER_STATE yy_scan_bytes ( const char *bytes, int len ); - -void *yyalloc ( yy_size_t ); -void *yyrealloc ( void *, yy_size_t ); -void yyfree ( void * ); - -#define yy_new_buffer yy_create_buffer -#define yy_set_interactive(is_interactive) \ - { \ - if ( ! YY_CURRENT_BUFFER ){ \ - yyensure_buffer_stack (); \ - YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer( yyin, YY_BUF_SIZE ); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \ - } -#define yy_set_bol(at_bol) \ - { \ - if ( ! YY_CURRENT_BUFFER ){\ - yyensure_buffer_stack (); \ - YY_CURRENT_BUFFER_LVALUE = \ - yy_create_buffer( yyin, YY_BUF_SIZE ); \ - } \ - YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \ - } -#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol) - -/* Begin user sect3 */ - -#define gregorio_vowel_rulefile_wrap() (/*CONSTCOND*/1) -#define YY_SKIP_YYWRAP -typedef flex_uint8_t YY_CHAR; - -FILE *yyin = NULL, *yyout = NULL; - -typedef int yy_state_type; - -extern int yylineno; -int yylineno = 1; - -extern char *yytext; -#ifdef yytext_ptr -#undef yytext_ptr -#endif -#define yytext_ptr yytext - -static yy_state_type yy_get_previous_state ( void ); -static yy_state_type yy_try_NUL_trans ( yy_state_type current_state ); -static int yy_get_next_buffer ( void ); -static void yynoreturn yy_fatal_error ( const char* msg ); - -/* Done after the current pattern has been matched and before the - * corresponding action - sets up yytext. - */ -#define YY_DO_BEFORE_ACTION \ - (yytext_ptr) = yy_bp; \ - yyleng = (int) (yy_cp - yy_bp); \ - (yy_hold_char) = *yy_cp; \ - *yy_cp = '\0'; \ - (yy_c_buf_p) = yy_cp; -#define YY_NUM_RULES 17 -#define YY_END_OF_BUFFER 18 -/* This struct is not used in this scanner, - but its presence is necessary. */ -struct yy_trans_info - { - flex_int32_t yy_verify; - flex_int32_t yy_nxt; - }; -static const flex_int32_t yy_accept[71] = - { 0, - 0, 0, 0, 0, 0, 0, 0, 0, 18, 16, - 15, 15, 13, 7, 16, 16, 16, 16, 16, 16, - 12, 9, 16, 10, 10, 10, 10, 7, 11, 13, - 0, 0, 0, 0, 0, 0, 0, 12, 8, 10, - 10, 0, 0, 0, 0, 0, 0, 14, 0, 0, - 0, 0, 0, 0, 6, 0, 0, 0, 0, 2, - 0, 3, 0, 4, 0, 0, 1, 0, 5, 0 - } ; - -static const YY_CHAR yy_ec[256] = - { 0, - 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, - 2, 2, 4, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 2, 1, 1, 5, 1, 1, 1, 1, 1, - 1, 1, 1, 6, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 7, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 8, 1, 9, 1, 1, 1, 10, 1, 11, 12, - - 13, 14, 15, 1, 16, 1, 1, 17, 1, 18, - 19, 20, 1, 21, 22, 23, 24, 25, 26, 27, - 28, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 29, 1, 1, 1, - 30, 1, 1, 1, 1, 1, 1, 1, 1, 1, - - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 31, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1 - } ; - -static const YY_CHAR yy_meta[32] = - { 0, - 1, 2, 3, 3, 2, 2, 2, 1, 4, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 1 - } ; - -static const flex_int32_t yy_base[78] = - { 0, - 0, 30, 60, 66, 72, 0, 94, 102, 92, 139, - 139, 139, 0, 139, 74, 80, 68, 0, 69, 58, - 0, 139, 67, 0, 0, 0, 5, 0, 139, 0, - 69, 66, 70, 71, 67, 52, 30, 0, 139, 0, - 12, 49, 43, 43, 37, 40, 40, 139, 29, 25, - 32, 28, 29, 27, 139, 33, 15, 29, 12, 139, - 23, 139, 26, 139, 17, 8, 139, 0, 139, 139, - 111, 115, 119, 123, 127, 131, 134 - } ; - -static const flex_int32_t yy_def[78] = - { 0, - 71, 71, 72, 72, 71, 5, 73, 73, 70, 70, - 70, 70, 74, 70, 70, 70, 70, 70, 70, 70, - 75, 70, 70, 76, 76, 76, 77, 76, 70, 74, - 70, 70, 70, 70, 70, 70, 70, 75, 70, 76, - 77, 70, 70, 70, 70, 70, 70, 70, 70, 70, - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, - 70, 70, 70, 70, 70, 70, 70, 70, 70, 0, - 70, 70, 70, 70, 70, 70, 70 - } ; - -static const flex_int32_t yy_nxt[171] = - { 0, - 70, 11, 12, 11, 13, 70, 14, 40, 40, 15, - 70, 70, 34, 30, 40, 40, 16, 70, 70, 17, - 30, 18, 70, 35, 19, 70, 70, 69, 68, 67, - 20, 11, 12, 11, 13, 66, 14, 65, 64, 15, - 63, 62, 61, 60, 59, 58, 16, 57, 56, 17, - 55, 18, 54, 53, 19, 52, 51, 50, 49, 48, - 20, 11, 12, 11, 13, 10, 14, 11, 12, 11, - 13, 10, 14, 11, 12, 11, 13, 47, 14, 22, - 46, 45, 44, 43, 42, 39, 37, 36, 33, 32, - 31, 70, 70, 70, 23, 25, 26, 25, 27, 70, - - 28, 70, 29, 25, 26, 25, 27, 70, 28, 70, - 29, 10, 10, 10, 10, 21, 21, 21, 21, 24, - 24, 24, 24, 30, 30, 70, 30, 38, 70, 70, - 38, 40, 40, 40, 41, 41, 41, 41, 9, 70, - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70 - } ; - -static const flex_int32_t yy_chk[171] = - { 0, - 0, 1, 1, 1, 1, 0, 1, 27, 27, 1, - 0, 0, 18, 27, 41, 41, 1, 0, 0, 1, - 41, 1, 0, 18, 1, 0, 0, 68, 66, 65, - 1, 2, 2, 2, 2, 63, 2, 61, 59, 2, - 58, 57, 56, 54, 53, 52, 2, 51, 50, 2, - 49, 2, 47, 46, 2, 45, 44, 43, 42, 37, - 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, - 4, 4, 4, 5, 5, 5, 5, 36, 5, 5, - 35, 34, 33, 32, 31, 23, 20, 19, 17, 16, - 15, 9, 0, 0, 5, 7, 7, 7, 7, 0, - - 7, 0, 7, 8, 8, 8, 8, 0, 8, 0, - 8, 71, 71, 71, 71, 72, 72, 72, 72, 73, - 73, 73, 73, 74, 74, 0, 74, 75, 0, 0, - 75, 76, 76, 76, 77, 77, 77, 77, 70, 70, - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70, - 70, 70, 70, 70, 70, 70, 70, 70, 70, 70 - } ; - -static yy_state_type yy_last_accepting_state; -static char *yy_last_accepting_cpos; - -extern int yy_flex_debug; -int yy_flex_debug = 0; - -/* The intent behind this definition is that it'll catch - * any uses of REJECT which flex missed. - */ -#define REJECT reject_used_but_not_detected -#define yymore() yymore_used_but_not_detected -#define YY_MORE_ADJ 0 -#define YY_RESTORE_YY_MORE_OFFSET -char *yytext; -#line 1 "vowel/vowel-rules.l" -#line 2 "vowel/vowel-rules.l" -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the vowel rule lexer. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include "struct.h" -#include "messages.h" -#include "support.h" - -#include "vowel.h" - -#include "vowel-rules.h" -#include "vowel-rules-y.h" - -#define YY_NO_INPUT - -static __inline void save_lval(void) -{ - gregorio_vowel_rulefile_lval = - gregorio_malloc(gregorio_vowel_rulefile_leng + 1); - strncpy(gregorio_vowel_rulefile_lval, gregorio_vowel_rulefile_text, - gregorio_vowel_rulefile_leng); - gregorio_vowel_rulefile_lval[gregorio_vowel_rulefile_leng] = '\0'; -} - -static __inline void invalid(void) -{ - gregorio_messagef("gregorio_vowel_rulefile_lex", VERBOSITY_WARNING, 0, - _("invalid character in vowel file: %c"), - *gregorio_vowel_rulefile_text); -} -#line 813 "vowel/vowel-rules-l.c" - -#line 815 "vowel/vowel-rules-l.c" - -#define INITIAL 0 -#define chars 1 -#define lang 2 -#define langname 3 - -#ifndef YY_NO_UNISTD_H -/* Special case for "unistd.h", since it is non-ANSI. We include it way - * down here because we want the user's section 1 to have been scanned first. - * The user has a chance to override it with an option. - */ -#include <unistd.h> -#endif - -#ifndef YY_EXTRA_TYPE -#define YY_EXTRA_TYPE void * -#endif - -static int yy_init_globals ( void ); - -/* Accessor methods to globals. - These are made visible to non-reentrant scanners for convenience. */ - -int yylex_destroy ( void ); - -int yyget_debug ( void ); - -void yyset_debug ( int debug_flag ); - -YY_EXTRA_TYPE yyget_extra ( void ); - -void yyset_extra ( YY_EXTRA_TYPE user_defined ); - -FILE *yyget_in ( void ); - -void yyset_in ( FILE * _in_str ); - -FILE *yyget_out ( void ); - -void yyset_out ( FILE * _out_str ); - - int yyget_leng ( void ); - -char *yyget_text ( void ); - -int yyget_lineno ( void ); - -void yyset_lineno ( int _line_number ); - -/* Macros after this point can all be overridden by user definitions in - * section 1. - */ - -#ifndef YY_SKIP_YYWRAP -#ifdef __cplusplus -extern "C" int yywrap ( void ); -#else -extern int yywrap ( void ); -#endif -#endif - -#ifndef YY_NO_UNPUT - -#endif - -#ifndef yytext_ptr -static void yy_flex_strncpy ( char *, const char *, int ); -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen ( const char * ); -#endif - -#ifndef YY_NO_INPUT -#ifdef __cplusplus -static int yyinput ( void ); -#else -static int input ( void ); -#endif - -#endif - - static int yy_start_stack_ptr = 0; - static int yy_start_stack_depth = 0; - static int *yy_start_stack = NULL; - -/* Amount of stuff to slurp up with each read. */ -#ifndef YY_READ_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k */ -#define YY_READ_BUF_SIZE 16384 -#else -#define YY_READ_BUF_SIZE 8192 -#endif /* __ia64__ */ -#endif - -/* Copy whatever the last rule matched to the standard output. */ -#ifndef ECHO -/* This used to be an fputs(), but since the string might contain NUL's, - * we now use fwrite(). - */ -#define ECHO do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0) -#endif - -/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL, - * is returned in "result". - */ -#ifndef YY_INPUT -#define YY_INPUT(buf,result,max_size) \ - if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \ - { \ - int c = '*'; \ - int n; \ - for ( n = 0; n < max_size && \ - (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ - buf[n] = (char) c; \ - if ( c == '\n' ) \ - buf[n++] = (char) c; \ - if ( c == EOF && ferror( yyin ) ) \ - YY_FATAL_ERROR( "input in flex scanner failed" ); \ - result = n; \ - } \ - else \ - { \ - errno=0; \ - while ( (result = (int) fread(buf, 1, (yy_size_t) max_size, yyin)) == 0 && ferror(yyin)) \ - { \ - if( errno != EINTR) \ - { \ - YY_FATAL_ERROR( "input in flex scanner failed" ); \ - break; \ - } \ - errno=0; \ - clearerr(yyin); \ - } \ - }\ -\ - -#endif - -/* No semi-colon after return; correct usage is to write "yyterminate();" - - * we don't want an extra ';' after the "return" because that will cause - * some compilers to complain about unreachable statements. - */ -#ifndef yyterminate -#define yyterminate() return YY_NULL -#endif - -/* Number of entries by which start-condition stack grows. */ -#ifndef YY_START_STACK_INCR -#define YY_START_STACK_INCR 25 -#endif - -/* Report a fatal error. */ -#ifndef YY_FATAL_ERROR -#define YY_FATAL_ERROR(msg) yy_fatal_error( msg ) -#endif - -/* end tables serialization structures and prototypes */ - -/* Default declaration of generated scanner - a define so the user can - * easily add parameters. - */ -#ifndef YY_DECL -#define YY_DECL_IS_OURS 1 - -extern int yylex (void); - -#define YY_DECL int yylex (void) -#endif /* !YY_DECL */ - -/* Code executed at the beginning of each rule, after yytext and yyleng - * have been set up. - */ -#ifndef YY_USER_ACTION -#define YY_USER_ACTION -#endif - -/* Code executed at the end of each rule. */ -#ifndef YY_BREAK -#define YY_BREAK /*LINTED*/break; -#endif - -#define YY_RULE_SETUP \ - YY_USER_ACTION - -/** The main scanner function which does all the work. - */ -YY_DECL -{ - yy_state_type yy_current_state; - char *yy_cp, *yy_bp; - int yy_act; - - if ( !(yy_init) ) - { - (yy_init) = 1; - -#ifdef YY_USER_INIT - YY_USER_INIT; -#endif - - if ( ! (yy_start) ) - (yy_start) = 1; /* first start state */ - - if ( ! yyin ) - yyin = stdin; - - if ( ! yyout ) - yyout = stdout; - - if ( ! YY_CURRENT_BUFFER ) { - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer( yyin, YY_BUF_SIZE ); - } - - yy_load_buffer_state( ); - } - - { -#line 75 "vowel/vowel-rules.l" - - -#line 1040 "vowel/vowel-rules-l.c" - - while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */ - { - yy_cp = (yy_c_buf_p); - - /* Support of yytext. */ - *yy_cp = (yy_hold_char); - - /* yy_bp points to the position in yy_ch_buf of the start of - * the current run. - */ - yy_bp = yy_cp; - - yy_current_state = (yy_start); -yy_match: - do - { - YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)] ; - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 71 ) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - ++yy_cp; - } - while ( yy_base[yy_current_state] != 139 ); - -yy_find_action: - yy_act = yy_accept[yy_current_state]; - if ( yy_act == 0 ) - { /* have to back up */ - yy_cp = (yy_last_accepting_cpos); - yy_current_state = (yy_last_accepting_state); - yy_act = yy_accept[yy_current_state]; - } - - YY_DO_BEFORE_ACTION; - -do_action: /* This label is used only to access EOF actions. */ - - switch ( yy_act ) - { /* beginning of action switch */ - case 0: /* must back up */ - /* undo the effects of YY_DO_BEFORE_ACTION */ - *yy_cp = (yy_hold_char); - yy_cp = (yy_last_accepting_cpos); - yy_current_state = (yy_last_accepting_state); - goto yy_find_action; - -case 1: -YY_RULE_SETUP -#line 77 "vowel/vowel-rules.l" -{ BEGIN(lang); return LANGUAGE; } - YY_BREAK -case 2: -YY_RULE_SETUP -#line 78 "vowel/vowel-rules.l" -{ BEGIN(chars); return VOWEL; } - YY_BREAK -case 3: -YY_RULE_SETUP -#line 79 "vowel/vowel-rules.l" -{ BEGIN(chars); return PREFIX; } - YY_BREAK -case 4: -YY_RULE_SETUP -#line 80 "vowel/vowel-rules.l" -{ BEGIN(chars); return SUFFIX; } - YY_BREAK -case 5: -YY_RULE_SETUP -#line 81 "vowel/vowel-rules.l" -{ BEGIN(chars); return SECONDARY; } - YY_BREAK -case 6: -YY_RULE_SETUP -#line 82 "vowel/vowel-rules.l" -{ BEGIN(lang); return ALIAS; } - YY_BREAK -case 7: -YY_RULE_SETUP -#line 83 "vowel/vowel-rules.l" -{ BEGIN(INITIAL); return SEMICOLON; } - YY_BREAK -case 8: -YY_RULE_SETUP -#line 84 "vowel/vowel-rules.l" -{ return TO; } - YY_BREAK -case 9: -YY_RULE_SETUP -#line 85 "vowel/vowel-rules.l" -{ BEGIN(langname); } - YY_BREAK -case 10: -/* rule 10 can match eol */ -YY_RULE_SETUP -#line 86 "vowel/vowel-rules.l" -{ save_lval(); return NAME; } - YY_BREAK -case 11: -YY_RULE_SETUP -#line 87 "vowel/vowel-rules.l" -{ BEGIN(lang); } - YY_BREAK -case 12: -YY_RULE_SETUP -#line 88 "vowel/vowel-rules.l" -{ save_lval(); return CHARACTERS; } - YY_BREAK -case 13: -YY_RULE_SETUP -#line 89 "vowel/vowel-rules.l" -{ } - YY_BREAK -case 14: -YY_RULE_SETUP -#line 90 "vowel/vowel-rules.l" -{ } - YY_BREAK -case 15: -/* rule 15 can match eol */ -YY_RULE_SETUP -#line 91 "vowel/vowel-rules.l" -{ } - YY_BREAK -case 16: -YY_RULE_SETUP -#line 92 "vowel/vowel-rules.l" -{ invalid(); return INVALID; } - YY_BREAK -case 17: -YY_RULE_SETUP -#line 94 "vowel/vowel-rules.l" -ECHO; - YY_BREAK -#line 1184 "vowel/vowel-rules-l.c" -case YY_STATE_EOF(INITIAL): -case YY_STATE_EOF(chars): -case YY_STATE_EOF(lang): -case YY_STATE_EOF(langname): - yyterminate(); - - case YY_END_OF_BUFFER: - { - /* Amount of text matched not including the EOB char. */ - int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1; - - /* Undo the effects of YY_DO_BEFORE_ACTION. */ - *yy_cp = (yy_hold_char); - YY_RESTORE_YY_MORE_OFFSET - - if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW ) - { - /* We're scanning a new file or input source. It's - * possible that this happened because the user - * just pointed yyin at a new source and called - * yylex(). If so, then we have to assure - * consistency between YY_CURRENT_BUFFER and our - * globals. Here is the right place to do so, because - * this is the first action (other than possibly a - * back-up) that will match for the new input source. - */ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL; - } - - /* Note that here we test for yy_c_buf_p "<=" to the position - * of the first EOB in the buffer, since yy_c_buf_p will - * already have been incremented past the NUL character - * (since all states make transitions on EOB to the - * end-of-buffer state). Contrast this with the test - * in input(). - */ - if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) - { /* This was really a NUL. */ - yy_state_type yy_next_state; - - (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state( ); - - /* Okay, we're now positioned to make the NUL - * transition. We couldn't have - * yy_get_previous_state() go ahead and do it - * for us because it doesn't know how to deal - * with the possibility of jamming (and we don't - * want to build jamming into it because then it - * will run more slowly). - */ - - yy_next_state = yy_try_NUL_trans( yy_current_state ); - - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - - if ( yy_next_state ) - { - /* Consume the NUL. */ - yy_cp = ++(yy_c_buf_p); - yy_current_state = yy_next_state; - goto yy_match; - } - - else - { - yy_cp = (yy_c_buf_p); - goto yy_find_action; - } - } - - else switch ( yy_get_next_buffer( ) ) - { - case EOB_ACT_END_OF_FILE: - { - (yy_did_buffer_switch_on_eof) = 0; - - if ( yywrap( ) ) - { - /* Note: because we've taken care in - * yy_get_next_buffer() to have set up - * yytext, we can now set up - * yy_c_buf_p so that if some total - * hoser (like flex itself) wants to - * call the scanner after we return the - * YY_NULL, it'll still work - another - * YY_NULL will get returned. - */ - (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ; - - yy_act = YY_STATE_EOF(YY_START); - goto do_action; - } - - else - { - if ( ! (yy_did_buffer_switch_on_eof) ) - YY_NEW_FILE; - } - break; - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = - (yytext_ptr) + yy_amount_of_matched_text; - - yy_current_state = yy_get_previous_state( ); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_match; - - case EOB_ACT_LAST_MATCH: - (yy_c_buf_p) = - &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)]; - - yy_current_state = yy_get_previous_state( ); - - yy_cp = (yy_c_buf_p); - yy_bp = (yytext_ptr) + YY_MORE_ADJ; - goto yy_find_action; - } - break; - } - - default: - YY_FATAL_ERROR( - "fatal flex scanner internal error--no action found" ); - } /* end of action switch */ - } /* end of scanning one token */ - } /* end of user's declarations */ -} /* end of yylex */ - -/* yy_get_next_buffer - try to read in a new buffer - * - * Returns a code representing an action: - * EOB_ACT_LAST_MATCH - - * EOB_ACT_CONTINUE_SCAN - continue scanning from current position - * EOB_ACT_END_OF_FILE - end of file - */ -static int yy_get_next_buffer (void) -{ - char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf; - char *source = (yytext_ptr); - int number_to_move, i; - int ret_val; - - if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] ) - YY_FATAL_ERROR( - "fatal flex scanner internal error--end of buffer missed" ); - - if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 ) - { /* Don't try to fill the buffer, so this is an EOF. */ - if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 ) - { - /* We matched a single character, the EOB, so - * treat this as a final EOF. - */ - return EOB_ACT_END_OF_FILE; - } - - else - { - /* We matched some text prior to the EOB, first - * process it. - */ - return EOB_ACT_LAST_MATCH; - } - } - - /* Try to read more data. */ - - /* First move last chars to start of buffer. */ - number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr) - 1); - - for ( i = 0; i < number_to_move; ++i ) - *(dest++) = *(source++); - - if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING ) - /* don't do the read, it's not guaranteed to return an EOF, - * just force an EOF - */ - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0; - - else - { - int num_to_read = - YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1; - - while ( num_to_read <= 0 ) - { /* Not enough room in the buffer - grow it. */ - - /* just a shorter name for the current buffer */ - YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; - - int yy_c_buf_p_offset = - (int) ((yy_c_buf_p) - b->yy_ch_buf); - - if ( b->yy_is_our_buffer ) - { - int new_size = b->yy_buf_size * 2; - - if ( new_size <= 0 ) - b->yy_buf_size += b->yy_buf_size / 8; - else - b->yy_buf_size *= 2; - - b->yy_ch_buf = (char *) - /* Include room in for 2 EOB chars. */ - yyrealloc( (void *) b->yy_ch_buf, - (yy_size_t) (b->yy_buf_size + 2) ); - } - else - /* Can't grow it, we don't own it. */ - b->yy_ch_buf = NULL; - - if ( ! b->yy_ch_buf ) - YY_FATAL_ERROR( - "fatal error - scanner input buffer overflow" ); - - (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset]; - - num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size - - number_to_move - 1; - - } - - if ( num_to_read > YY_READ_BUF_SIZE ) - num_to_read = YY_READ_BUF_SIZE; - - /* Read in more data. */ - YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]), - (yy_n_chars), num_to_read ); - - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - if ( (yy_n_chars) == 0 ) - { - if ( number_to_move == YY_MORE_ADJ ) - { - ret_val = EOB_ACT_END_OF_FILE; - yyrestart( yyin ); - } - - else - { - ret_val = EOB_ACT_LAST_MATCH; - YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = - YY_BUFFER_EOF_PENDING; - } - } - - else - ret_val = EOB_ACT_CONTINUE_SCAN; - - if (((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) { - /* Extend the array by 50%, plus the number we really need. */ - int new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1); - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc( - (void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf, (yy_size_t) new_size ); - if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" ); - /* "- 2" to take care of EOB's */ - YY_CURRENT_BUFFER_LVALUE->yy_buf_size = (int) (new_size - 2); - } - - (yy_n_chars) += number_to_move; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR; - YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR; - - (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0]; - - return ret_val; -} - -/* yy_get_previous_state - get the state just before the EOB char was reached */ - - static yy_state_type yy_get_previous_state (void) -{ - yy_state_type yy_current_state; - char *yy_cp; - - yy_current_state = (yy_start); - - for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp ) - { - YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1); - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 71 ) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - } - - return yy_current_state; -} - -/* yy_try_NUL_trans - try to make a transition on the NUL character - * - * synopsis - * next_state = yy_try_NUL_trans( current_state ); - */ - static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state ) -{ - int yy_is_jam; - char *yy_cp = (yy_c_buf_p); - - YY_CHAR yy_c = 1; - if ( yy_accept[yy_current_state] ) - { - (yy_last_accepting_state) = yy_current_state; - (yy_last_accepting_cpos) = yy_cp; - } - while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state ) - { - yy_current_state = (int) yy_def[yy_current_state]; - if ( yy_current_state >= 71 ) - yy_c = yy_meta[yy_c]; - } - yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c]; - yy_is_jam = (yy_current_state == 70); - - return yy_is_jam ? 0 : yy_current_state; -} - -#ifndef YY_NO_UNPUT - -#endif - -#ifndef YY_NO_INPUT -#ifdef __cplusplus - static int yyinput (void) -#else - static int input (void) -#endif - -{ - int c; - - *(yy_c_buf_p) = (yy_hold_char); - - if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR ) - { - /* yy_c_buf_p now points to the character we want to return. - * If this occurs *before* the EOB characters, then it's a - * valid NUL; if not, then we've hit the end of the buffer. - */ - if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] ) - /* This was really a NUL. */ - *(yy_c_buf_p) = '\0'; - - else - { /* need more input */ - int offset = (int) ((yy_c_buf_p) - (yytext_ptr)); - ++(yy_c_buf_p); - - switch ( yy_get_next_buffer( ) ) - { - case EOB_ACT_LAST_MATCH: - /* This happens because yy_g_n_b() - * sees that we've accumulated a - * token and flags that we need to - * try matching the token before - * proceeding. But for input(), - * there's no matching to consider. - * So convert the EOB_ACT_LAST_MATCH - * to EOB_ACT_END_OF_FILE. - */ - - /* Reset buffer status. */ - yyrestart( yyin ); - - /*FALLTHROUGH*/ - - case EOB_ACT_END_OF_FILE: - { - if ( yywrap( ) ) - return 0; - - if ( ! (yy_did_buffer_switch_on_eof) ) - YY_NEW_FILE; -#ifdef __cplusplus - return yyinput(); -#else - return input(); -#endif - } - - case EOB_ACT_CONTINUE_SCAN: - (yy_c_buf_p) = (yytext_ptr) + offset; - break; - } - } - } - - c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */ - *(yy_c_buf_p) = '\0'; /* preserve yytext */ - (yy_hold_char) = *++(yy_c_buf_p); - - return c; -} -#endif /* ifndef YY_NO_INPUT */ - -/** Immediately switch to a different input stream. - * @param input_file A readable stream. - * - * @note This function does not reset the start condition to @c INITIAL . - */ - void yyrestart (FILE * input_file ) -{ - - if ( ! YY_CURRENT_BUFFER ){ - yyensure_buffer_stack (); - YY_CURRENT_BUFFER_LVALUE = - yy_create_buffer( yyin, YY_BUF_SIZE ); - } - - yy_init_buffer( YY_CURRENT_BUFFER, input_file ); - yy_load_buffer_state( ); -} - -/** Switch to a different input buffer. - * @param new_buffer The new input buffer. - * - */ - void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ) -{ - - /* TODO. We should be able to replace this entire function body - * with - * yypop_buffer_state(); - * yypush_buffer_state(new_buffer); - */ - yyensure_buffer_stack (); - if ( YY_CURRENT_BUFFER == new_buffer ) - return; - - if ( YY_CURRENT_BUFFER ) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - YY_CURRENT_BUFFER_LVALUE = new_buffer; - yy_load_buffer_state( ); - - /* We don't actually know whether we did this switch during - * EOF (yywrap()) processing, but the only time this flag - * is looked at is after yywrap() is called, so it's safe - * to go ahead and always set it. - */ - (yy_did_buffer_switch_on_eof) = 1; -} - -static void yy_load_buffer_state (void) -{ - (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars; - (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos; - yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file; - (yy_hold_char) = *(yy_c_buf_p); -} - -/** Allocate and initialize an input buffer state. - * @param file A readable stream. - * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE. - * - * @return the allocated buffer state. - */ - YY_BUFFER_STATE yy_create_buffer (FILE * file, int size ) -{ - YY_BUFFER_STATE b; - - b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); - if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); - - b->yy_buf_size = size; - - /* yy_ch_buf has to be 2 characters longer than the size given because - * we need to put in 2 end-of-buffer characters. - */ - b->yy_ch_buf = (char *) yyalloc( (yy_size_t) (b->yy_buf_size + 2) ); - if ( ! b->yy_ch_buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" ); - - b->yy_is_our_buffer = 1; - - yy_init_buffer( b, file ); - - return b; -} - -/** Destroy the buffer. - * @param b a buffer created with yy_create_buffer() - * - */ - void yy_delete_buffer (YY_BUFFER_STATE b ) -{ - - if ( ! b ) - return; - - if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */ - YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0; - - if ( b->yy_is_our_buffer ) - yyfree( (void *) b->yy_ch_buf ); - - yyfree( (void *) b ); -} - -/* Initializes or reinitializes a buffer. - * This function is sometimes called more than once on the same buffer, - * such as during a yyrestart() or at EOF. - */ - static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file ) - -{ - int oerrno = errno; - - yy_flush_buffer( b ); - - b->yy_input_file = file; - b->yy_fill_buffer = 1; - - /* If b is the current buffer, then yy_init_buffer was _probably_ - * called from yyrestart() or through yy_get_next_buffer. - * In that case, we don't want to reset the lineno or column. - */ - if (b != YY_CURRENT_BUFFER){ - b->yy_bs_lineno = 1; - b->yy_bs_column = 0; - } - - b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0; - - errno = oerrno; -} - -/** Discard all buffered characters. On the next scan, YY_INPUT will be called. - * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER. - * - */ - void yy_flush_buffer (YY_BUFFER_STATE b ) -{ - if ( ! b ) - return; - - b->yy_n_chars = 0; - - /* We always need two end-of-buffer characters. The first causes - * a transition to the end-of-buffer state. The second causes - * a jam in that state. - */ - b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR; - b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR; - - b->yy_buf_pos = &b->yy_ch_buf[0]; - - b->yy_at_bol = 1; - b->yy_buffer_status = YY_BUFFER_NEW; - - if ( b == YY_CURRENT_BUFFER ) - yy_load_buffer_state( ); -} - -/** Pushes the new state onto the stack. The new state becomes - * the current state. This function will allocate the stack - * if necessary. - * @param new_buffer The new state. - * - */ -void yypush_buffer_state (YY_BUFFER_STATE new_buffer ) -{ - if (new_buffer == NULL) - return; - - yyensure_buffer_stack(); - - /* This block is copied from yy_switch_to_buffer. */ - if ( YY_CURRENT_BUFFER ) - { - /* Flush out information for old buffer. */ - *(yy_c_buf_p) = (yy_hold_char); - YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p); - YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars); - } - - /* Only push if top exists. Otherwise, replace top. */ - if (YY_CURRENT_BUFFER) - (yy_buffer_stack_top)++; - YY_CURRENT_BUFFER_LVALUE = new_buffer; - - /* copied from yy_switch_to_buffer. */ - yy_load_buffer_state( ); - (yy_did_buffer_switch_on_eof) = 1; -} - -/** Removes and deletes the top of the stack, if present. - * The next element becomes the new top. - * - */ -void yypop_buffer_state (void) -{ - if (!YY_CURRENT_BUFFER) - return; - - yy_delete_buffer(YY_CURRENT_BUFFER ); - YY_CURRENT_BUFFER_LVALUE = NULL; - if ((yy_buffer_stack_top) > 0) - --(yy_buffer_stack_top); - - if (YY_CURRENT_BUFFER) { - yy_load_buffer_state( ); - (yy_did_buffer_switch_on_eof) = 1; - } -} - -/* Allocates the stack if it does not exist. - * Guarantees space for at least one push. - */ -static void yyensure_buffer_stack (void) -{ - yy_size_t num_to_alloc; - - if (!(yy_buffer_stack)) { - - /* First allocation is just for 2 elements, since we don't know if this - * scanner will even need a stack. We use 2 instead of 1 to avoid an - * immediate realloc on the next call. - */ - num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */ - (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc - (num_to_alloc * sizeof(struct yy_buffer_state*) - ); - if ( ! (yy_buffer_stack) ) - YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); - - memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*)); - - (yy_buffer_stack_max) = num_to_alloc; - (yy_buffer_stack_top) = 0; - return; - } - - if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){ - - /* Increase the buffer to prepare for a possible push. */ - yy_size_t grow_size = 8 /* arbitrary grow size */; - - num_to_alloc = (yy_buffer_stack_max) + grow_size; - (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc - ((yy_buffer_stack), - num_to_alloc * sizeof(struct yy_buffer_state*) - ); - if ( ! (yy_buffer_stack) ) - YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" ); - - /* zero only the new slots.*/ - memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*)); - (yy_buffer_stack_max) = num_to_alloc; - } -} - -/** Setup the input buffer state to scan directly from a user-specified character buffer. - * @param base the character buffer - * @param size the size in bytes of the character buffer - * - * @return the newly allocated buffer state object. - */ -YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size ) -{ - YY_BUFFER_STATE b; - - if ( size < 2 || - base[size-2] != YY_END_OF_BUFFER_CHAR || - base[size-1] != YY_END_OF_BUFFER_CHAR ) - /* They forgot to leave room for the EOB's. */ - return NULL; - - b = (YY_BUFFER_STATE) yyalloc( sizeof( struct yy_buffer_state ) ); - if ( ! b ) - YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" ); - - b->yy_buf_size = (int) (size - 2); /* "- 2" to take care of EOB's */ - b->yy_buf_pos = b->yy_ch_buf = base; - b->yy_is_our_buffer = 0; - b->yy_input_file = NULL; - b->yy_n_chars = b->yy_buf_size; - b->yy_is_interactive = 0; - b->yy_at_bol = 1; - b->yy_fill_buffer = 0; - b->yy_buffer_status = YY_BUFFER_NEW; - - yy_switch_to_buffer( b ); - - return b; -} - -/** Setup the input buffer state to scan a string. The next call to yylex() will - * scan from a @e copy of @a str. - * @param yystr a NUL-terminated string to scan - * - * @return the newly allocated buffer state object. - * @note If you want to scan bytes that may contain NUL values, then use - * yy_scan_bytes() instead. - */ -YY_BUFFER_STATE yy_scan_string (const char * yystr ) -{ - - return yy_scan_bytes( yystr, (int) strlen(yystr) ); -} - -/** Setup the input buffer state to scan the given bytes. The next call to yylex() will - * scan from a @e copy of @a bytes. - * @param yybytes the byte buffer to scan - * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes. - * - * @return the newly allocated buffer state object. - */ -YY_BUFFER_STATE yy_scan_bytes (const char * yybytes, int _yybytes_len ) -{ - YY_BUFFER_STATE b; - char *buf; - yy_size_t n; - int i; - - /* Get memory for full buffer, including space for trailing EOB's. */ - n = (yy_size_t) (_yybytes_len + 2); - buf = (char *) yyalloc( n ); - if ( ! buf ) - YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" ); - - for ( i = 0; i < _yybytes_len; ++i ) - buf[i] = yybytes[i]; - - buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR; - - b = yy_scan_buffer( buf, n ); - if ( ! b ) - YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" ); - - /* It's okay to grow etc. this buffer, and we should throw it - * away when we're done. - */ - b->yy_is_our_buffer = 1; - - return b; -} - -#ifndef YY_EXIT_FAILURE -#define YY_EXIT_FAILURE 2 -#endif - -static void yynoreturn yy_fatal_error (const char* msg ) -{ - fprintf( stderr, "%s\n", msg ); - exit( YY_EXIT_FAILURE ); -} - -/* Redefine yyless() so it works in section 3 code. */ - -#undef yyless -#define yyless(n) \ - do \ - { \ - /* Undo effects of setting up yytext. */ \ - int yyless_macro_arg = (n); \ - YY_LESS_LINENO(yyless_macro_arg);\ - yytext[yyleng] = (yy_hold_char); \ - (yy_c_buf_p) = yytext + yyless_macro_arg; \ - (yy_hold_char) = *(yy_c_buf_p); \ - *(yy_c_buf_p) = '\0'; \ - yyleng = yyless_macro_arg; \ - } \ - while ( 0 ) - -/* Accessor methods (get/set functions) to struct members. */ - -/** Get the current line number. - * - */ -int yyget_lineno (void) -{ - - return yylineno; -} - -/** Get the input stream. - * - */ -FILE *yyget_in (void) -{ - return yyin; -} - -/** Get the output stream. - * - */ -FILE *yyget_out (void) -{ - return yyout; -} - -/** Get the length of the current token. - * - */ -int yyget_leng (void) -{ - return yyleng; -} - -/** Get the current token. - * - */ - -char *yyget_text (void) -{ - return yytext; -} - -/** Set the current line number. - * @param _line_number line number - * - */ -void yyset_lineno (int _line_number ) -{ - - yylineno = _line_number; -} - -/** Set the input stream. This does not discard the current - * input buffer. - * @param _in_str A readable stream. - * - * @see yy_switch_to_buffer - */ -void yyset_in (FILE * _in_str ) -{ - yyin = _in_str ; -} - -void yyset_out (FILE * _out_str ) -{ - yyout = _out_str ; -} - -int yyget_debug (void) -{ - return yy_flex_debug; -} - -void yyset_debug (int _bdebug ) -{ - yy_flex_debug = _bdebug ; -} - -static int yy_init_globals (void) -{ - /* Initialization is the same as for the non-reentrant scanner. - * This function is called from yylex_destroy(), so don't allocate here. - */ - - (yy_buffer_stack) = NULL; - (yy_buffer_stack_top) = 0; - (yy_buffer_stack_max) = 0; - (yy_c_buf_p) = NULL; - (yy_init) = 0; - (yy_start) = 0; - - (yy_start_stack_ptr) = 0; - (yy_start_stack_depth) = 0; - (yy_start_stack) = NULL; - -/* Defined in main.c */ -#ifdef YY_STDINIT - yyin = stdin; - yyout = stdout; -#else - yyin = NULL; - yyout = NULL; -#endif - - /* For future reference: Set errno on error, since we are called by - * yylex_init() - */ - return 0; -} - -/* yylex_destroy is for both reentrant and non-reentrant scanners. */ -int yylex_destroy (void) -{ - - /* Pop the buffer stack, destroying each element. */ - while(YY_CURRENT_BUFFER){ - yy_delete_buffer( YY_CURRENT_BUFFER ); - YY_CURRENT_BUFFER_LVALUE = NULL; - yypop_buffer_state(); - } - - /* Destroy the stack itself. */ - yyfree((yy_buffer_stack) ); - (yy_buffer_stack) = NULL; - - /* Destroy the start condition stack. */ - yyfree( (yy_start_stack) ); - (yy_start_stack) = NULL; - - /* Reset the globals. This is important in a non-reentrant scanner so the next time - * yylex() is called, initialization will occur. */ - yy_init_globals( ); - - return 0; -} - -/* - * Internal utility routines. - */ - -#ifndef yytext_ptr -static void yy_flex_strncpy (char* s1, const char * s2, int n ) -{ - - int i; - for ( i = 0; i < n; ++i ) - s1[i] = s2[i]; -} -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen (const char * s ) -{ - int n; - for ( n = 0; s[n]; ++n ) - ; - - return n; -} -#endif - -void *yyalloc (yy_size_t size ) -{ - return malloc(size); -} - -void *yyrealloc (void * ptr, yy_size_t size ) -{ - - /* The cast to (char *) in the following accommodates both - * implementations that use char* generic pointers, and those - * that use void* generic pointers. It works with the latter - * because both ANSI C and C++ allow castless assignment from - * any pointer type to void*, and deal with argument conversions - * as though doing an assignment. - */ - return realloc(ptr, size); -} - -void yyfree (void * ptr ) -{ - free( (char *) ptr ); /* see yyrealloc() for (char *) cast */ -} - -#define YYTABLES_NAME "yytables" - -#line 94 "vowel/vowel-rules.l" - - - diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-l.h b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-l.h deleted file mode 100644 index cecacf9603c..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-l.h +++ /dev/null @@ -1,714 +0,0 @@ -#ifndef gregorio_vowel_rulefile_HEADER_H -#define gregorio_vowel_rulefile_HEADER_H 1 -#define gregorio_vowel_rulefile_IN_HEADER 1 - -#line 5 "vowel/vowel-rules-l.h" - -#line 7 "vowel/vowel-rules-l.h" - -#define YY_INT_ALIGNED long int - -/* A lexical scanner generated by flex */ - -#define FLEX_SCANNER -#define YY_FLEX_MAJOR_VERSION 2 -#define YY_FLEX_MINOR_VERSION 6 -#define YY_FLEX_SUBMINOR_VERSION 4 -#if YY_FLEX_SUBMINOR_VERSION > 0 -#define FLEX_BETA -#endif - -#ifdef yy_create_buffer -#define gregorio_vowel_rulefile__create_buffer_ALREADY_DEFINED -#else -#define yy_create_buffer gregorio_vowel_rulefile__create_buffer -#endif - -#ifdef yy_delete_buffer -#define gregorio_vowel_rulefile__delete_buffer_ALREADY_DEFINED -#else -#define yy_delete_buffer gregorio_vowel_rulefile__delete_buffer -#endif - -#ifdef yy_scan_buffer -#define gregorio_vowel_rulefile__scan_buffer_ALREADY_DEFINED -#else -#define yy_scan_buffer gregorio_vowel_rulefile__scan_buffer -#endif - -#ifdef yy_scan_string -#define gregorio_vowel_rulefile__scan_string_ALREADY_DEFINED -#else -#define yy_scan_string gregorio_vowel_rulefile__scan_string -#endif - -#ifdef yy_scan_bytes -#define gregorio_vowel_rulefile__scan_bytes_ALREADY_DEFINED -#else -#define yy_scan_bytes gregorio_vowel_rulefile__scan_bytes -#endif - -#ifdef yy_init_buffer -#define gregorio_vowel_rulefile__init_buffer_ALREADY_DEFINED -#else -#define yy_init_buffer gregorio_vowel_rulefile__init_buffer -#endif - -#ifdef yy_flush_buffer -#define gregorio_vowel_rulefile__flush_buffer_ALREADY_DEFINED -#else -#define yy_flush_buffer gregorio_vowel_rulefile__flush_buffer -#endif - -#ifdef yy_load_buffer_state -#define gregorio_vowel_rulefile__load_buffer_state_ALREADY_DEFINED -#else -#define yy_load_buffer_state gregorio_vowel_rulefile__load_buffer_state -#endif - -#ifdef yy_switch_to_buffer -#define gregorio_vowel_rulefile__switch_to_buffer_ALREADY_DEFINED -#else -#define yy_switch_to_buffer gregorio_vowel_rulefile__switch_to_buffer -#endif - -#ifdef yypush_buffer_state -#define gregorio_vowel_rulefile_push_buffer_state_ALREADY_DEFINED -#else -#define yypush_buffer_state gregorio_vowel_rulefile_push_buffer_state -#endif - -#ifdef yypop_buffer_state -#define gregorio_vowel_rulefile_pop_buffer_state_ALREADY_DEFINED -#else -#define yypop_buffer_state gregorio_vowel_rulefile_pop_buffer_state -#endif - -#ifdef yyensure_buffer_stack -#define gregorio_vowel_rulefile_ensure_buffer_stack_ALREADY_DEFINED -#else -#define yyensure_buffer_stack gregorio_vowel_rulefile_ensure_buffer_stack -#endif - -#ifdef yylex -#define gregorio_vowel_rulefile_lex_ALREADY_DEFINED -#else -#define yylex gregorio_vowel_rulefile_lex -#endif - -#ifdef yyrestart -#define gregorio_vowel_rulefile_restart_ALREADY_DEFINED -#else -#define yyrestart gregorio_vowel_rulefile_restart -#endif - -#ifdef yylex_init -#define gregorio_vowel_rulefile_lex_init_ALREADY_DEFINED -#else -#define yylex_init gregorio_vowel_rulefile_lex_init -#endif - -#ifdef yylex_init_extra -#define gregorio_vowel_rulefile_lex_init_extra_ALREADY_DEFINED -#else -#define yylex_init_extra gregorio_vowel_rulefile_lex_init_extra -#endif - -#ifdef yylex_destroy -#define gregorio_vowel_rulefile_lex_destroy_ALREADY_DEFINED -#else -#define yylex_destroy gregorio_vowel_rulefile_lex_destroy -#endif - -#ifdef yyget_debug -#define gregorio_vowel_rulefile_get_debug_ALREADY_DEFINED -#else -#define yyget_debug gregorio_vowel_rulefile_get_debug -#endif - -#ifdef yyset_debug -#define gregorio_vowel_rulefile_set_debug_ALREADY_DEFINED -#else -#define yyset_debug gregorio_vowel_rulefile_set_debug -#endif - -#ifdef yyget_extra -#define gregorio_vowel_rulefile_get_extra_ALREADY_DEFINED -#else -#define yyget_extra gregorio_vowel_rulefile_get_extra -#endif - -#ifdef yyset_extra -#define gregorio_vowel_rulefile_set_extra_ALREADY_DEFINED -#else -#define yyset_extra gregorio_vowel_rulefile_set_extra -#endif - -#ifdef yyget_in -#define gregorio_vowel_rulefile_get_in_ALREADY_DEFINED -#else -#define yyget_in gregorio_vowel_rulefile_get_in -#endif - -#ifdef yyset_in -#define gregorio_vowel_rulefile_set_in_ALREADY_DEFINED -#else -#define yyset_in gregorio_vowel_rulefile_set_in -#endif - -#ifdef yyget_out -#define gregorio_vowel_rulefile_get_out_ALREADY_DEFINED -#else -#define yyget_out gregorio_vowel_rulefile_get_out -#endif - -#ifdef yyset_out -#define gregorio_vowel_rulefile_set_out_ALREADY_DEFINED -#else -#define yyset_out gregorio_vowel_rulefile_set_out -#endif - -#ifdef yyget_leng -#define gregorio_vowel_rulefile_get_leng_ALREADY_DEFINED -#else -#define yyget_leng gregorio_vowel_rulefile_get_leng -#endif - -#ifdef yyget_text -#define gregorio_vowel_rulefile_get_text_ALREADY_DEFINED -#else -#define yyget_text gregorio_vowel_rulefile_get_text -#endif - -#ifdef yyget_lineno -#define gregorio_vowel_rulefile_get_lineno_ALREADY_DEFINED -#else -#define yyget_lineno gregorio_vowel_rulefile_get_lineno -#endif - -#ifdef yyset_lineno -#define gregorio_vowel_rulefile_set_lineno_ALREADY_DEFINED -#else -#define yyset_lineno gregorio_vowel_rulefile_set_lineno -#endif - -#ifdef yywrap -#define gregorio_vowel_rulefile_wrap_ALREADY_DEFINED -#else -#define yywrap gregorio_vowel_rulefile_wrap -#endif - -#ifdef yyalloc -#define gregorio_vowel_rulefile_alloc_ALREADY_DEFINED -#else -#define yyalloc gregorio_vowel_rulefile_alloc -#endif - -#ifdef yyrealloc -#define gregorio_vowel_rulefile_realloc_ALREADY_DEFINED -#else -#define yyrealloc gregorio_vowel_rulefile_realloc -#endif - -#ifdef yyfree -#define gregorio_vowel_rulefile_free_ALREADY_DEFINED -#else -#define yyfree gregorio_vowel_rulefile_free -#endif - -#ifdef yytext -#define gregorio_vowel_rulefile_text_ALREADY_DEFINED -#else -#define yytext gregorio_vowel_rulefile_text -#endif - -#ifdef yyleng -#define gregorio_vowel_rulefile_leng_ALREADY_DEFINED -#else -#define yyleng gregorio_vowel_rulefile_leng -#endif - -#ifdef yyin -#define gregorio_vowel_rulefile_in_ALREADY_DEFINED -#else -#define yyin gregorio_vowel_rulefile_in -#endif - -#ifdef yyout -#define gregorio_vowel_rulefile_out_ALREADY_DEFINED -#else -#define yyout gregorio_vowel_rulefile_out -#endif - -#ifdef yy_flex_debug -#define gregorio_vowel_rulefile__flex_debug_ALREADY_DEFINED -#else -#define yy_flex_debug gregorio_vowel_rulefile__flex_debug -#endif - -#ifdef yylineno -#define gregorio_vowel_rulefile_lineno_ALREADY_DEFINED -#else -#define yylineno gregorio_vowel_rulefile_lineno -#endif - -/* First, we deal with platform-specific or compiler-specific issues. */ - -/* begin standard C headers. */ -#include <stdio.h> -#include <string.h> -#include <errno.h> -#include <stdlib.h> - -/* end standard C headers. */ - -/* flex integer type definitions */ - -#ifndef FLEXINT_H -#define FLEXINT_H - -/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */ - -#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L - -/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h, - * if you want the limit (max/min) macros for int types. - */ -#ifndef __STDC_LIMIT_MACROS -#define __STDC_LIMIT_MACROS 1 -#endif - -#include <inttypes.h> -typedef int8_t flex_int8_t; -typedef uint8_t flex_uint8_t; -typedef int16_t flex_int16_t; -typedef uint16_t flex_uint16_t; -typedef int32_t flex_int32_t; -typedef uint32_t flex_uint32_t; -#else -typedef signed char flex_int8_t; -typedef short int flex_int16_t; -typedef int flex_int32_t; -typedef unsigned char flex_uint8_t; -typedef unsigned short int flex_uint16_t; -typedef unsigned int flex_uint32_t; - -/* Limits of integral types. */ -#ifndef INT8_MIN -#define INT8_MIN (-128) -#endif -#ifndef INT16_MIN -#define INT16_MIN (-32767-1) -#endif -#ifndef INT32_MIN -#define INT32_MIN (-2147483647-1) -#endif -#ifndef INT8_MAX -#define INT8_MAX (127) -#endif -#ifndef INT16_MAX -#define INT16_MAX (32767) -#endif -#ifndef INT32_MAX -#define INT32_MAX (2147483647) -#endif -#ifndef UINT8_MAX -#define UINT8_MAX (255U) -#endif -#ifndef UINT16_MAX -#define UINT16_MAX (65535U) -#endif -#ifndef UINT32_MAX -#define UINT32_MAX (4294967295U) -#endif - -#ifndef SIZE_MAX -#define SIZE_MAX (~(size_t)0) -#endif - -#endif /* ! C99 */ - -#endif /* ! FLEXINT_H */ - -/* begin standard C++ headers. */ - -/* TODO: this is always defined, so inline it */ -#define yyconst const - -#if defined(__GNUC__) && __GNUC__ >= 3 -#define yynoreturn __attribute__((__noreturn__)) -#else -#define yynoreturn -#endif - -/* Size of default input buffer. */ -#ifndef YY_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k. - * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case. - * Ditto for the __ia64__ case accordingly. - */ -#define YY_BUF_SIZE 32768 -#else -#define YY_BUF_SIZE 16384 -#endif /* __ia64__ */ -#endif - -#ifndef YY_TYPEDEF_YY_BUFFER_STATE -#define YY_TYPEDEF_YY_BUFFER_STATE -typedef struct yy_buffer_state *YY_BUFFER_STATE; -#endif - -#ifndef YY_TYPEDEF_YY_SIZE_T -#define YY_TYPEDEF_YY_SIZE_T -typedef size_t yy_size_t; -#endif - -extern int yyleng; - -extern FILE *yyin, *yyout; - -#ifndef YY_STRUCT_YY_BUFFER_STATE -#define YY_STRUCT_YY_BUFFER_STATE -struct yy_buffer_state - { - FILE *yy_input_file; - - char *yy_ch_buf; /* input buffer */ - char *yy_buf_pos; /* current position in input buffer */ - - /* Size of input buffer in bytes, not including room for EOB - * characters. - */ - int yy_buf_size; - - /* Number of characters read into yy_ch_buf, not including EOB - * characters. - */ - int yy_n_chars; - - /* Whether we "own" the buffer - i.e., we know we created it, - * and can realloc() it to grow it, and should free() it to - * delete it. - */ - int yy_is_our_buffer; - - /* Whether this is an "interactive" input source; if so, and - * if we're using stdio for input, then we want to use getc() - * instead of fread(), to make sure we stop fetching input after - * each newline. - */ - int yy_is_interactive; - - /* Whether we're considered to be at the beginning of a line. - * If so, '^' rules will be active on the next match, otherwise - * not. - */ - int yy_at_bol; - - int yy_bs_lineno; /**< The line count. */ - int yy_bs_column; /**< The column count. */ - - /* Whether to try to fill the input buffer when we reach the - * end of it. - */ - int yy_fill_buffer; - - int yy_buffer_status; - - }; -#endif /* !YY_STRUCT_YY_BUFFER_STATE */ - -void yyrestart ( FILE *input_file ); -void yy_switch_to_buffer ( YY_BUFFER_STATE new_buffer ); -YY_BUFFER_STATE yy_create_buffer ( FILE *file, int size ); -void yy_delete_buffer ( YY_BUFFER_STATE b ); -void yy_flush_buffer ( YY_BUFFER_STATE b ); -void yypush_buffer_state ( YY_BUFFER_STATE new_buffer ); -void yypop_buffer_state ( void ); - -YY_BUFFER_STATE yy_scan_buffer ( char *base, yy_size_t size ); -YY_BUFFER_STATE yy_scan_string ( const char *yy_str ); -YY_BUFFER_STATE yy_scan_bytes ( const char *bytes, int len ); - -void *yyalloc ( yy_size_t ); -void *yyrealloc ( void *, yy_size_t ); -void yyfree ( void * ); - -/* Begin user sect3 */ - -#define gregorio_vowel_rulefile_wrap() (/*CONSTCOND*/1) -#define YY_SKIP_YYWRAP - -extern int yylineno; - -extern char *yytext; -#ifdef yytext_ptr -#undef yytext_ptr -#endif -#define yytext_ptr yytext - -#ifdef YY_HEADER_EXPORT_START_CONDITIONS -#define INITIAL 0 -#define chars 1 -#define lang 2 -#define langname 3 - -#endif - -#ifndef YY_NO_UNISTD_H -/* Special case for "unistd.h", since it is non-ANSI. We include it way - * down here because we want the user's section 1 to have been scanned first. - * The user has a chance to override it with an option. - */ -#include <unistd.h> -#endif - -#ifndef YY_EXTRA_TYPE -#define YY_EXTRA_TYPE void * -#endif - -/* Accessor methods to globals. - These are made visible to non-reentrant scanners for convenience. */ - -int yylex_destroy ( void ); - -int yyget_debug ( void ); - -void yyset_debug ( int debug_flag ); - -YY_EXTRA_TYPE yyget_extra ( void ); - -void yyset_extra ( YY_EXTRA_TYPE user_defined ); - -FILE *yyget_in ( void ); - -void yyset_in ( FILE * _in_str ); - -FILE *yyget_out ( void ); - -void yyset_out ( FILE * _out_str ); - - int yyget_leng ( void ); - -char *yyget_text ( void ); - -int yyget_lineno ( void ); - -void yyset_lineno ( int _line_number ); - -/* Macros after this point can all be overridden by user definitions in - * section 1. - */ - -#ifndef YY_SKIP_YYWRAP -#ifdef __cplusplus -extern "C" int yywrap ( void ); -#else -extern int yywrap ( void ); -#endif -#endif - -#ifndef yytext_ptr -static void yy_flex_strncpy ( char *, const char *, int ); -#endif - -#ifdef YY_NEED_STRLEN -static int yy_flex_strlen ( const char * ); -#endif - -#ifndef YY_NO_INPUT - -#endif - -/* Amount of stuff to slurp up with each read. */ -#ifndef YY_READ_BUF_SIZE -#ifdef __ia64__ -/* On IA-64, the buffer size is 16k, not 8k */ -#define YY_READ_BUF_SIZE 16384 -#else -#define YY_READ_BUF_SIZE 8192 -#endif /* __ia64__ */ -#endif - -/* Number of entries by which start-condition stack grows. */ -#ifndef YY_START_STACK_INCR -#define YY_START_STACK_INCR 25 -#endif - -/* Default declaration of generated scanner - a define so the user can - * easily add parameters. - */ -#ifndef YY_DECL -#define YY_DECL_IS_OURS 1 - -extern int yylex (void); - -#define YY_DECL int yylex (void) -#endif /* !YY_DECL */ - -/* yy_get_previous_state - get the state just before the EOB char was reached */ - -#undef YY_NEW_FILE -#undef YY_FLUSH_BUFFER -#undef yy_set_bol -#undef yy_new_buffer -#undef yy_set_interactive -#undef YY_DO_BEFORE_ACTION - -#ifdef YY_DECL_IS_OURS -#undef YY_DECL_IS_OURS -#undef YY_DECL -#endif - -#ifndef gregorio_vowel_rulefile__create_buffer_ALREADY_DEFINED -#undef yy_create_buffer -#endif -#ifndef gregorio_vowel_rulefile__delete_buffer_ALREADY_DEFINED -#undef yy_delete_buffer -#endif -#ifndef gregorio_vowel_rulefile__scan_buffer_ALREADY_DEFINED -#undef yy_scan_buffer -#endif -#ifndef gregorio_vowel_rulefile__scan_string_ALREADY_DEFINED -#undef yy_scan_string -#endif -#ifndef gregorio_vowel_rulefile__scan_bytes_ALREADY_DEFINED -#undef yy_scan_bytes -#endif -#ifndef gregorio_vowel_rulefile__init_buffer_ALREADY_DEFINED -#undef yy_init_buffer -#endif -#ifndef gregorio_vowel_rulefile__flush_buffer_ALREADY_DEFINED -#undef yy_flush_buffer -#endif -#ifndef gregorio_vowel_rulefile__load_buffer_state_ALREADY_DEFINED -#undef yy_load_buffer_state -#endif -#ifndef gregorio_vowel_rulefile__switch_to_buffer_ALREADY_DEFINED -#undef yy_switch_to_buffer -#endif -#ifndef gregorio_vowel_rulefile_push_buffer_state_ALREADY_DEFINED -#undef yypush_buffer_state -#endif -#ifndef gregorio_vowel_rulefile_pop_buffer_state_ALREADY_DEFINED -#undef yypop_buffer_state -#endif -#ifndef gregorio_vowel_rulefile_ensure_buffer_stack_ALREADY_DEFINED -#undef yyensure_buffer_stack -#endif -#ifndef gregorio_vowel_rulefile_lex_ALREADY_DEFINED -#undef yylex -#endif -#ifndef gregorio_vowel_rulefile_restart_ALREADY_DEFINED -#undef yyrestart -#endif -#ifndef gregorio_vowel_rulefile_lex_init_ALREADY_DEFINED -#undef yylex_init -#endif -#ifndef gregorio_vowel_rulefile_lex_init_extra_ALREADY_DEFINED -#undef yylex_init_extra -#endif -#ifndef gregorio_vowel_rulefile_lex_destroy_ALREADY_DEFINED -#undef yylex_destroy -#endif -#ifndef gregorio_vowel_rulefile_get_debug_ALREADY_DEFINED -#undef yyget_debug -#endif -#ifndef gregorio_vowel_rulefile_set_debug_ALREADY_DEFINED -#undef yyset_debug -#endif -#ifndef gregorio_vowel_rulefile_get_extra_ALREADY_DEFINED -#undef yyget_extra -#endif -#ifndef gregorio_vowel_rulefile_set_extra_ALREADY_DEFINED -#undef yyset_extra -#endif -#ifndef gregorio_vowel_rulefile_get_in_ALREADY_DEFINED -#undef yyget_in -#endif -#ifndef gregorio_vowel_rulefile_set_in_ALREADY_DEFINED -#undef yyset_in -#endif -#ifndef gregorio_vowel_rulefile_get_out_ALREADY_DEFINED -#undef yyget_out -#endif -#ifndef gregorio_vowel_rulefile_set_out_ALREADY_DEFINED -#undef yyset_out -#endif -#ifndef gregorio_vowel_rulefile_get_leng_ALREADY_DEFINED -#undef yyget_leng -#endif -#ifndef gregorio_vowel_rulefile_get_text_ALREADY_DEFINED -#undef yyget_text -#endif -#ifndef gregorio_vowel_rulefile_get_lineno_ALREADY_DEFINED -#undef yyget_lineno -#endif -#ifndef gregorio_vowel_rulefile_set_lineno_ALREADY_DEFINED -#undef yyset_lineno -#endif -#ifndef gregorio_vowel_rulefile_get_column_ALREADY_DEFINED -#undef yyget_column -#endif -#ifndef gregorio_vowel_rulefile_set_column_ALREADY_DEFINED -#undef yyset_column -#endif -#ifndef gregorio_vowel_rulefile_wrap_ALREADY_DEFINED -#undef yywrap -#endif -#ifndef gregorio_vowel_rulefile_get_lval_ALREADY_DEFINED -#undef yyget_lval -#endif -#ifndef gregorio_vowel_rulefile_set_lval_ALREADY_DEFINED -#undef yyset_lval -#endif -#ifndef gregorio_vowel_rulefile_get_lloc_ALREADY_DEFINED -#undef yyget_lloc -#endif -#ifndef gregorio_vowel_rulefile_set_lloc_ALREADY_DEFINED -#undef yyset_lloc -#endif -#ifndef gregorio_vowel_rulefile_alloc_ALREADY_DEFINED -#undef yyalloc -#endif -#ifndef gregorio_vowel_rulefile_realloc_ALREADY_DEFINED -#undef yyrealloc -#endif -#ifndef gregorio_vowel_rulefile_free_ALREADY_DEFINED -#undef yyfree -#endif -#ifndef gregorio_vowel_rulefile_text_ALREADY_DEFINED -#undef yytext -#endif -#ifndef gregorio_vowel_rulefile_leng_ALREADY_DEFINED -#undef yyleng -#endif -#ifndef gregorio_vowel_rulefile_in_ALREADY_DEFINED -#undef yyin -#endif -#ifndef gregorio_vowel_rulefile_out_ALREADY_DEFINED -#undef yyout -#endif -#ifndef gregorio_vowel_rulefile__flex_debug_ALREADY_DEFINED -#undef yy_flex_debug -#endif -#ifndef gregorio_vowel_rulefile_lineno_ALREADY_DEFINED -#undef yylineno -#endif -#ifndef gregorio_vowel_rulefile_tables_fload_ALREADY_DEFINED -#undef yytables_fload -#endif -#ifndef gregorio_vowel_rulefile_tables_destroy_ALREADY_DEFINED -#undef yytables_destroy -#endif -#ifndef gregorio_vowel_rulefile_TABLES_NAME_ALREADY_DEFINED -#undef yyTABLES_NAME -#endif - -#line 94 "vowel/vowel-rules.l" - - -#line 712 "vowel/vowel-rules-l.h" -#undef gregorio_vowel_rulefile_IN_HEADER -#endif /* gregorio_vowel_rulefile_HEADER_H */ diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-y.c b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-y.c deleted file mode 100644 index d57e881735e..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-y.c +++ /dev/null @@ -1,1610 +0,0 @@ -/* A Bison parser, made by GNU Bison 3.3.2. */ - -/* Bison implementation for Yacc-like parsers in C - - Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, - Inc. - - This program is free software: you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation, either version 3 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program. If not, see <http://www.gnu.org/licenses/>. */ - -/* As a special exception, you may create a larger work that contains - part or all of the Bison parser skeleton and distribute that work - under terms of your choice, so long as that work isn't itself a - parser generator using the skeleton or a modified version thereof - as a parser skeleton. Alternatively, if you modify or redistribute - the parser skeleton itself, you may (at your option) remove this - special exception, which will cause the skeleton and the resulting - Bison output files to be licensed under the GNU General Public - License without this special exception. - - This special exception was added by the Free Software Foundation in - version 2.2 of Bison. */ - -/* C LALR(1) parser skeleton written by Richard Stallman, by - simplifying the original so-called "semantic" parser. */ - -/* All symbols defined below should begin with yy or YY, to avoid - infringing on user name space. This should be done even for local - variables, as they might otherwise be expanded by user macros. - There are some unavoidable exceptions within include files to - define necessary library symbols; they are noted "INFRINGES ON - USER NAME SPACE" below. */ - -/* Undocumented macros, especially those whose name start with YY_, - are private implementation details. Do not rely on them. */ - -/* Identify Bison output. */ -#define YYBISON 1 - -/* Bison version. */ -#define YYBISON_VERSION "3.3.2" - -/* Skeleton name. */ -#define YYSKELETON_NAME "yacc.c" - -/* Pure parsers. */ -#define YYPURE 0 - -/* Push parsers. */ -#define YYPUSH 0 - -/* Pull parsers. */ -#define YYPULL 1 - - -/* Substitute the variable and function names. */ -#define yyparse gregorio_vowel_rulefile_parse -#define yylex gregorio_vowel_rulefile_lex -#define yyerror gregorio_vowel_rulefile_error -#define yydebug gregorio_vowel_rulefile_debug -#define yynerrs gregorio_vowel_rulefile_nerrs - -#define yylval gregorio_vowel_rulefile_lval -#define yychar gregorio_vowel_rulefile_char - -/* First part of user prologue. */ -#line 1 "vowel/vowel-rules.y" /* yacc.c:337 */ - -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the vowel rule parser. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <assert.h> -#include "bool.h" -#include "struct.h" -#include "unicode.h" -#include "messages.h" - -#include "vowel.h" - -#include "vowel-rules.h" -#include "vowel-rules-l.h" - -/* NOTE: This parser might allocate a new value for language; this value MUST - * BE FREED after the parser returns (if the value of the language pointer - * changes, then free the pointer). This parser DOES free the language - * pointer before changing it, if status points to RFPS_ALIASED. */ - -/* uncomment it if you want to have an interactive shell to understand the - * details on how bison works for a certain input */ -/*int gregorio_vowel_rulefile_debug=1;*/ - -static void gregorio_vowel_rulefile_error(const char *const filename, - char **const language __attribute__((__unused__)), - rulefile_parse_status *const status __attribute__((__unused__)), - const char *const error_str) -{ - gregorio_messagef("gregorio_vowel_rulefile_parse", VERBOSITY_ERROR, 0, - _("%s: %s"), filename, error_str); -} - -/* this returns false until the language *after* the desired language */ -static __inline bool match_language(char **language, - rulefile_parse_status *status, char *const name) -{ - if (*status == RFPS_FOUND) { - free(name); - return true; - } - - if (strcmp(*language, name) == 0) { - *status = RFPS_FOUND; - } - - free(name); - return false; -} - -static __inline void alias(char **const language, - rulefile_parse_status *const status, char *const name, - char *const target) -{ - if (strcmp(*language, name) == 0) { - gregorio_messagef("alias", VERBOSITY_INFO, 0, _("Aliasing %s to %s"), - name, target); - if (*status == RFPS_ALIASED) { - free(*language); - } - *language = target; - *status = RFPS_ALIASED; - } else { - free(target); - } - free(name); -} - -static __inline void add(const rulefile_parse_status *const status, - void (*const fn)(const char *), char *const value) -{ - if (*status == RFPS_FOUND) { - fn(value); - } - free(value); -} - -#define _MATCH(NAME) if (match_language(language, status, NAME)) YYACCEPT -#define _ALIAS(NAME, TARGET) alias(language, status, NAME, TARGET) -#define _ADD(TABLE, CHARS) add(status, gregorio_##TABLE##_table_add, CHARS) - - -#line 181 "vowel/vowel-rules-y.c" /* yacc.c:337 */ -# ifndef YY_NULLPTR -# if defined __cplusplus -# if 201103L <= __cplusplus -# define YY_NULLPTR nullptr -# else -# define YY_NULLPTR 0 -# endif -# else -# define YY_NULLPTR ((void*)0) -# endif -# endif - -/* Enabling verbose error messages. */ -#ifdef YYERROR_VERBOSE -# undef YYERROR_VERBOSE -# define YYERROR_VERBOSE 1 -#else -# define YYERROR_VERBOSE 0 -#endif - -/* In a future release of Bison, this section will be replaced - by #include "vowel-rules-y.h". */ -#ifndef YY_GREGORIO_VOWEL_RULEFILE_VOWEL_VOWEL_RULES_Y_H_INCLUDED -# define YY_GREGORIO_VOWEL_RULEFILE_VOWEL_VOWEL_RULES_Y_H_INCLUDED -/* Debug traces. */ -#ifndef YYDEBUG -# define YYDEBUG 0 -#endif -#if YYDEBUG -extern int gregorio_vowel_rulefile_debug; -#endif - -/* Token type. */ -#ifndef YYTOKENTYPE -# define YYTOKENTYPE - enum yytokentype - { - LANGUAGE = 258, - VOWEL = 259, - PREFIX = 260, - SUFFIX = 261, - SECONDARY = 262, - ALIAS = 263, - SEMICOLON = 264, - TO = 265, - NAME = 266, - CHARACTERS = 267, - INVALID = 268 - }; -#endif -/* Tokens. */ -#define LANGUAGE 258 -#define VOWEL 259 -#define PREFIX 260 -#define SUFFIX 261 -#define SECONDARY 262 -#define ALIAS 263 -#define SEMICOLON 264 -#define TO 265 -#define NAME 266 -#define CHARACTERS 267 -#define INVALID 268 - -/* Value type. */ -#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED -typedef int YYSTYPE; -# define YYSTYPE_IS_TRIVIAL 1 -# define YYSTYPE_IS_DECLARED 1 -#endif - - -extern YYSTYPE gregorio_vowel_rulefile_lval; - -int gregorio_vowel_rulefile_parse (const char *const filename, char **language, rulefile_parse_status *const status); - -#endif /* !YY_GREGORIO_VOWEL_RULEFILE_VOWEL_VOWEL_RULES_Y_H_INCLUDED */ - - - -#ifdef short -# undef short -#endif - -#ifdef YYTYPE_UINT8 -typedef YYTYPE_UINT8 yytype_uint8; -#else -typedef unsigned char yytype_uint8; -#endif - -#ifdef YYTYPE_INT8 -typedef YYTYPE_INT8 yytype_int8; -#else -typedef signed char yytype_int8; -#endif - -#ifdef YYTYPE_UINT16 -typedef YYTYPE_UINT16 yytype_uint16; -#else -typedef unsigned short yytype_uint16; -#endif - -#ifdef YYTYPE_INT16 -typedef YYTYPE_INT16 yytype_int16; -#else -typedef short yytype_int16; -#endif - -#ifndef YYSIZE_T -# ifdef __SIZE_TYPE__ -# define YYSIZE_T __SIZE_TYPE__ -# elif defined size_t -# define YYSIZE_T size_t -# elif ! defined YYSIZE_T -# include <stddef.h> /* INFRINGES ON USER NAME SPACE */ -# define YYSIZE_T size_t -# else -# define YYSIZE_T unsigned -# endif -#endif - -#define YYSIZE_MAXIMUM ((YYSIZE_T) -1) - -#ifndef YY_ -# if defined YYENABLE_NLS && YYENABLE_NLS -# if ENABLE_NLS -# include <libintl.h> /* INFRINGES ON USER NAME SPACE */ -# define YY_(Msgid) dgettext ("bison-runtime", Msgid) -# endif -# endif -# ifndef YY_ -# define YY_(Msgid) Msgid -# endif -#endif - -#ifndef YY_ATTRIBUTE -# if (defined __GNUC__ \ - && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \ - || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C -# define YY_ATTRIBUTE(Spec) __attribute__(Spec) -# else -# define YY_ATTRIBUTE(Spec) /* empty */ -# endif -#endif - -#ifndef YY_ATTRIBUTE_PURE -# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__)) -#endif - -#ifndef YY_ATTRIBUTE_UNUSED -# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__)) -#endif - -/* Suppress unused-variable warnings by "using" E. */ -#if ! defined lint || defined __GNUC__ -# define YYUSE(E) ((void) (E)) -#else -# define YYUSE(E) /* empty */ -#endif - -#if defined __GNUC__ && ! defined __ICC && 407 <= __GNUC__ * 100 + __GNUC_MINOR__ -/* Suppress an incorrect diagnostic about yylval being uninitialized. */ -# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \ - _Pragma ("GCC diagnostic push") \ - _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\ - _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"") -# define YY_IGNORE_MAYBE_UNINITIALIZED_END \ - _Pragma ("GCC diagnostic pop") -#else -# define YY_INITIAL_VALUE(Value) Value -#endif -#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN -# define YY_IGNORE_MAYBE_UNINITIALIZED_END -#endif -#ifndef YY_INITIAL_VALUE -# define YY_INITIAL_VALUE(Value) /* Nothing. */ -#endif - - -#if ! defined yyoverflow || YYERROR_VERBOSE - -/* The parser invokes alloca or malloc; define the necessary symbols. */ - -# ifdef YYSTACK_USE_ALLOCA -# if YYSTACK_USE_ALLOCA -# ifdef __GNUC__ -# define YYSTACK_ALLOC __builtin_alloca -# elif defined __BUILTIN_VA_ARG_INCR -# include <alloca.h> /* INFRINGES ON USER NAME SPACE */ -# elif defined _AIX -# define YYSTACK_ALLOC __alloca -# elif defined _MSC_VER -# include <malloc.h> /* INFRINGES ON USER NAME SPACE */ -# define alloca _alloca -# else -# define YYSTACK_ALLOC alloca -# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS -# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ - /* Use EXIT_SUCCESS as a witness for stdlib.h. */ -# ifndef EXIT_SUCCESS -# define EXIT_SUCCESS 0 -# endif -# endif -# endif -# endif -# endif - -# ifdef YYSTACK_ALLOC - /* Pacify GCC's 'empty if-body' warning. */ -# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0) -# ifndef YYSTACK_ALLOC_MAXIMUM - /* The OS might guarantee only one guard page at the bottom of the stack, - and a page size can be as small as 4096 bytes. So we cannot safely - invoke alloca (N) if N exceeds 4096. Use a slightly smaller number - to allow for a few compiler-allocated temporary stack slots. */ -# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */ -# endif -# else -# define YYSTACK_ALLOC YYMALLOC -# define YYSTACK_FREE YYFREE -# ifndef YYSTACK_ALLOC_MAXIMUM -# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM -# endif -# if (defined __cplusplus && ! defined EXIT_SUCCESS \ - && ! ((defined YYMALLOC || defined malloc) \ - && (defined YYFREE || defined free))) -# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ -# ifndef EXIT_SUCCESS -# define EXIT_SUCCESS 0 -# endif -# endif -# ifndef YYMALLOC -# define YYMALLOC malloc -# if ! defined malloc && ! defined EXIT_SUCCESS -void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ -# endif -# endif -# ifndef YYFREE -# define YYFREE free -# if ! defined free && ! defined EXIT_SUCCESS -void free (void *); /* INFRINGES ON USER NAME SPACE */ -# endif -# endif -# endif -#endif /* ! defined yyoverflow || YYERROR_VERBOSE */ - - -#if (! defined yyoverflow \ - && (! defined __cplusplus \ - || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL))) - -/* A type that is properly aligned for any stack member. */ -union yyalloc -{ - yytype_int16 yyss_alloc; - YYSTYPE yyvs_alloc; -}; - -/* The size of the maximum gap between one aligned stack and the next. */ -# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1) - -/* The size of an array large to enough to hold all stacks, each with - N elements. */ -# define YYSTACK_BYTES(N) \ - ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \ - + YYSTACK_GAP_MAXIMUM) - -# define YYCOPY_NEEDED 1 - -/* Relocate STACK from its old location to the new one. The - local variables YYSIZE and YYSTACKSIZE give the old and new number of - elements in the stack, and YYPTR gives the new location of the - stack. Advance YYPTR to a properly aligned location for the next - stack. */ -# define YYSTACK_RELOCATE(Stack_alloc, Stack) \ - do \ - { \ - YYSIZE_T yynewbytes; \ - YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \ - Stack = &yyptr->Stack_alloc; \ - yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ - yyptr += yynewbytes / sizeof (*yyptr); \ - } \ - while (0) - -#endif - -#if defined YYCOPY_NEEDED && YYCOPY_NEEDED -/* Copy COUNT objects from SRC to DST. The source and destination do - not overlap. */ -# ifndef YYCOPY -# if defined __GNUC__ && 1 < __GNUC__ -# define YYCOPY(Dst, Src, Count) \ - __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) -# else -# define YYCOPY(Dst, Src, Count) \ - do \ - { \ - YYSIZE_T yyi; \ - for (yyi = 0; yyi < (Count); yyi++) \ - (Dst)[yyi] = (Src)[yyi]; \ - } \ - while (0) -# endif -# endif -#endif /* !YYCOPY_NEEDED */ - -/* YYFINAL -- State number of the termination state. */ -#define YYFINAL 2 -/* YYLAST -- Last index in YYTABLE. */ -#define YYLAST 21 - -/* YYNTOKENS -- Number of terminals. */ -#define YYNTOKENS 14 -/* YYNNTS -- Number of nonterminals. */ -#define YYNNTS 7 -/* YYNRULES -- Number of rules. */ -#define YYNRULES 17 -/* YYNSTATES -- Number of states. */ -#define YYNSTATES 28 - -#define YYUNDEFTOK 2 -#define YYMAXUTOK 268 - -/* YYTRANSLATE(TOKEN-NUM) -- Symbol number corresponding to TOKEN-NUM - as returned by yylex, with out-of-bounds checking. */ -#define YYTRANSLATE(YYX) \ - ((unsigned) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) - -/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM - as returned by yylex. */ -static const yytype_uint8 yytranslate[] = -{ - 0, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, - 2, 2, 2, 2, 2, 2, 1, 2, 3, 4, - 5, 6, 7, 8, 9, 10, 11, 12, 13 -}; - -#if YYDEBUG - /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */ -static const yytype_uint8 yyrline[] = -{ - 0, 114, 114, 116, 120, 121, 122, 123, 124, 125, - 128, 130, 133, 135, 138, 140, 143, 145 -}; -#endif - -#if YYDEBUG || YYERROR_VERBOSE || 0 -/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. - First, the terminals, then, starting at YYNTOKENS, nonterminals. */ -static const char *const yytname[] = -{ - "$end", "error", "$undefined", "LANGUAGE", "VOWEL", "PREFIX", "SUFFIX", - "SECONDARY", "ALIAS", "SEMICOLON", "TO", "NAME", "CHARACTERS", "INVALID", - "$accept", "rules", "rule", "vowels", "prefixes", "suffixes", - "secondaries", YY_NULLPTR -}; -#endif - -# ifdef YYPRINT -/* YYTOKNUM[NUM] -- (External) token number corresponding to the - (internal) symbol number NUM (which must be that of a token). */ -static const yytype_uint16 yytoknum[] = -{ - 0, 256, 257, 258, 259, 260, 261, 262, 263, 264, - 265, 266, 267, 268 -}; -# endif - -#define YYPACT_NINF -11 - -#define yypact_value_is_default(Yystate) \ - (!!((Yystate) == (-11))) - -#define YYTABLE_NINF -1 - -#define yytable_value_is_error(Yytable_value) \ - 0 - - /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing - STATE-NUM. */ -static const yytype_int8 yypact[] = -{ - -11, 0, -11, -10, -11, -11, -11, -11, -9, -11, - 8, 1, 2, 3, 7, -1, -11, -11, -11, -11, - -11, -11, -11, -11, -11, 9, 12, -11 -}; - - /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. - Performed when YYTABLE does not specify something else to do. Zero - means the default is an error. */ -static const yytype_uint8 yydefact[] = -{ - 2, 0, 1, 0, 10, 12, 14, 16, 0, 3, - 0, 0, 0, 0, 0, 0, 4, 6, 11, 7, - 13, 8, 15, 9, 17, 0, 0, 5 -}; - - /* YYPGOTO[NTERM-NUM]. */ -static const yytype_int8 yypgoto[] = -{ - -11, -11, -11, -11, -11, -11, -11 -}; - - /* YYDEFGOTO[NTERM-NUM]. */ -static const yytype_int8 yydefgoto[] = -{ - -1, 1, 9, 11, 12, 13, 14 -}; - - /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If - positive, shift that token. If negative, reduce the rule whose - number is the opposite. If YYTABLE_NINF, syntax error. */ -static const yytype_uint8 yytable[] = -{ - 2, 10, 15, 3, 4, 5, 6, 7, 8, 25, - 17, 19, 21, 18, 20, 22, 23, 16, 0, 24, - 26, 27 -}; - -static const yytype_int8 yycheck[] = -{ - 0, 11, 11, 3, 4, 5, 6, 7, 8, 10, - 9, 9, 9, 12, 12, 12, 9, 9, -1, 12, - 11, 9 -}; - - /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing - symbol of state STATE-NUM. */ -static const yytype_uint8 yystos[] = -{ - 0, 15, 0, 3, 4, 5, 6, 7, 8, 16, - 11, 17, 18, 19, 20, 11, 9, 9, 12, 9, - 12, 9, 12, 9, 12, 10, 11, 9 -}; - - /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */ -static const yytype_uint8 yyr1[] = -{ - 0, 14, 15, 15, 16, 16, 16, 16, 16, 16, - 17, 17, 18, 18, 19, 19, 20, 20 -}; - - /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */ -static const yytype_uint8 yyr2[] = -{ - 0, 2, 0, 2, 3, 5, 3, 3, 3, 3, - 0, 2, 0, 2, 0, 2, 0, 2 -}; - - -#define yyerrok (yyerrstatus = 0) -#define yyclearin (yychar = YYEMPTY) -#define YYEMPTY (-2) -#define YYEOF 0 - -#define YYACCEPT goto yyacceptlab -#define YYABORT goto yyabortlab -#define YYERROR goto yyerrorlab - - -#define YYRECOVERING() (!!yyerrstatus) - -#define YYBACKUP(Token, Value) \ - do \ - if (yychar == YYEMPTY) \ - { \ - yychar = (Token); \ - yylval = (Value); \ - YYPOPSTACK (yylen); \ - yystate = *yyssp; \ - goto yybackup; \ - } \ - else \ - { \ - yyerror (filename, language, status, YY_("syntax error: cannot back up")); \ - YYERROR; \ - } \ - while (0) - -/* Error token number */ -#define YYTERROR 1 -#define YYERRCODE 256 - - - -/* Enable debugging if requested. */ -#if YYDEBUG - -# ifndef YYFPRINTF -# include <stdio.h> /* INFRINGES ON USER NAME SPACE */ -# define YYFPRINTF fprintf -# endif - -# define YYDPRINTF(Args) \ -do { \ - if (yydebug) \ - YYFPRINTF Args; \ -} while (0) - -/* This macro is provided for backward compatibility. */ -#ifndef YY_LOCATION_PRINT -# define YY_LOCATION_PRINT(File, Loc) ((void) 0) -#endif - - -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \ -do { \ - if (yydebug) \ - { \ - YYFPRINTF (stderr, "%s ", Title); \ - yy_symbol_print (stderr, \ - Type, Value, filename, language, status); \ - YYFPRINTF (stderr, "\n"); \ - } \ -} while (0) - - -/*-----------------------------------. -| Print this symbol's value on YYO. | -`-----------------------------------*/ - -static void -yy_symbol_value_print (FILE *yyo, int yytype, YYSTYPE const * const yyvaluep, const char *const filename, char **language, rulefile_parse_status *const status) -{ - FILE *yyoutput = yyo; - YYUSE (yyoutput); - YYUSE (filename); - YYUSE (language); - YYUSE (status); - if (!yyvaluep) - return; -# ifdef YYPRINT - if (yytype < YYNTOKENS) - YYPRINT (yyo, yytoknum[yytype], *yyvaluep); -# endif - YYUSE (yytype); -} - - -/*---------------------------. -| Print this symbol on YYO. | -`---------------------------*/ - -static void -yy_symbol_print (FILE *yyo, int yytype, YYSTYPE const * const yyvaluep, const char *const filename, char **language, rulefile_parse_status *const status) -{ - YYFPRINTF (yyo, "%s %s (", - yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]); - - yy_symbol_value_print (yyo, yytype, yyvaluep, filename, language, status); - YYFPRINTF (yyo, ")"); -} - -/*------------------------------------------------------------------. -| yy_stack_print -- Print the state stack from its BOTTOM up to its | -| TOP (included). | -`------------------------------------------------------------------*/ - -static void -yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) -{ - YYFPRINTF (stderr, "Stack now"); - for (; yybottom <= yytop; yybottom++) - { - int yybot = *yybottom; - YYFPRINTF (stderr, " %d", yybot); - } - YYFPRINTF (stderr, "\n"); -} - -# define YY_STACK_PRINT(Bottom, Top) \ -do { \ - if (yydebug) \ - yy_stack_print ((Bottom), (Top)); \ -} while (0) - - -/*------------------------------------------------. -| Report that the YYRULE is going to be reduced. | -`------------------------------------------------*/ - -static void -yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule, const char *const filename, char **language, rulefile_parse_status *const status) -{ - unsigned long yylno = yyrline[yyrule]; - int yynrhs = yyr2[yyrule]; - int yyi; - YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n", - yyrule - 1, yylno); - /* The symbols being reduced. */ - for (yyi = 0; yyi < yynrhs; yyi++) - { - YYFPRINTF (stderr, " $%d = ", yyi + 1); - yy_symbol_print (stderr, - yystos[yyssp[yyi + 1 - yynrhs]], - &yyvsp[(yyi + 1) - (yynrhs)] - , filename, language, status); - YYFPRINTF (stderr, "\n"); - } -} - -# define YY_REDUCE_PRINT(Rule) \ -do { \ - if (yydebug) \ - yy_reduce_print (yyssp, yyvsp, Rule, filename, language, status); \ -} while (0) - -/* Nonzero means print parse trace. It is left uninitialized so that - multiple parsers can coexist. */ -int yydebug; -#else /* !YYDEBUG */ -# define YYDPRINTF(Args) -# define YY_SYMBOL_PRINT(Title, Type, Value, Location) -# define YY_STACK_PRINT(Bottom, Top) -# define YY_REDUCE_PRINT(Rule) -#endif /* !YYDEBUG */ - - -/* YYINITDEPTH -- initial size of the parser's stacks. */ -#ifndef YYINITDEPTH -# define YYINITDEPTH 200 -#endif - -/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only - if the built-in stack extension method is used). - - Do not make this value too large; the results are undefined if - YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH) - evaluated with infinite-precision integer arithmetic. */ - -#ifndef YYMAXDEPTH -# define YYMAXDEPTH 10000 -#endif - - -#if YYERROR_VERBOSE - -# ifndef yystrlen -# if defined __GLIBC__ && defined _STRING_H -# define yystrlen strlen -# else -/* Return the length of YYSTR. */ -static YYSIZE_T -yystrlen (const char *yystr) -{ - YYSIZE_T yylen; - for (yylen = 0; yystr[yylen]; yylen++) - continue; - return yylen; -} -# endif -# endif - -# ifndef yystpcpy -# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE -# define yystpcpy stpcpy -# else -/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in - YYDEST. */ -static char * -yystpcpy (char *yydest, const char *yysrc) -{ - char *yyd = yydest; - const char *yys = yysrc; - - while ((*yyd++ = *yys++) != '\0') - continue; - - return yyd - 1; -} -# endif -# endif - -# ifndef yytnamerr -/* Copy to YYRES the contents of YYSTR after stripping away unnecessary - quotes and backslashes, so that it's suitable for yyerror. The - heuristic is that double-quoting is unnecessary unless the string - contains an apostrophe, a comma, or backslash (other than - backslash-backslash). YYSTR is taken from yytname. If YYRES is - null, do not copy; instead, return the length of what the result - would have been. */ -static YYSIZE_T -yytnamerr (char *yyres, const char *yystr) -{ - if (*yystr == '"') - { - YYSIZE_T yyn = 0; - char const *yyp = yystr; - - for (;;) - switch (*++yyp) - { - case '\'': - case ',': - goto do_not_strip_quotes; - - case '\\': - if (*++yyp != '\\') - goto do_not_strip_quotes; - else - goto append; - - append: - default: - if (yyres) - yyres[yyn] = *yyp; - yyn++; - break; - - case '"': - if (yyres) - yyres[yyn] = '\0'; - return yyn; - } - do_not_strip_quotes: ; - } - - if (! yyres) - return yystrlen (yystr); - - return (YYSIZE_T) (yystpcpy (yyres, yystr) - yyres); -} -# endif - -/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message - about the unexpected token YYTOKEN for the state stack whose top is - YYSSP. - - Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is - not large enough to hold the message. In that case, also set - *YYMSG_ALLOC to the required number of bytes. Return 2 if the - required number of bytes is too large to store. */ -static int -yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, - yytype_int16 *yyssp, int yytoken) -{ - YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]); - YYSIZE_T yysize = yysize0; - enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; - /* Internationalized format string. */ - const char *yyformat = YY_NULLPTR; - /* Arguments of yyformat. */ - char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; - /* Number of reported tokens (one for the "unexpected", one per - "expected"). */ - int yycount = 0; - - /* There are many possibilities here to consider: - - If this state is a consistent state with a default action, then - the only way this function was invoked is if the default action - is an error action. In that case, don't check for expected - tokens because there are none. - - The only way there can be no lookahead present (in yychar) is if - this state is a consistent state with a default action. Thus, - detecting the absence of a lookahead is sufficient to determine - that there is no unexpected or expected token to report. In that - case, just report a simple "syntax error". - - Don't assume there isn't a lookahead just because this state is a - consistent state with a default action. There might have been a - previous inconsistent state, consistent state with a non-default - action, or user semantic action that manipulated yychar. - - Of course, the expected token list depends on states to have - correct lookahead information, and it depends on the parser not - to perform extra reductions after fetching a lookahead from the - scanner and before detecting a syntax error. Thus, state merging - (from LALR or IELR) and default reductions corrupt the expected - token list. However, the list is correct for canonical LR with - one exception: it will still contain any token that will not be - accepted due to an error action in a later state. - */ - if (yytoken != YYEMPTY) - { - int yyn = yypact[*yyssp]; - yyarg[yycount++] = yytname[yytoken]; - if (!yypact_value_is_default (yyn)) - { - /* Start YYX at -YYN if negative to avoid negative indexes in - YYCHECK. In other words, skip the first -YYN actions for - this state because they are default actions. */ - int yyxbegin = yyn < 0 ? -yyn : 0; - /* Stay within bounds of both yycheck and yytname. */ - int yychecklim = YYLAST - yyn + 1; - int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; - int yyx; - - for (yyx = yyxbegin; yyx < yyxend; ++yyx) - if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR - && !yytable_value_is_error (yytable[yyx + yyn])) - { - if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) - { - yycount = 1; - yysize = yysize0; - break; - } - yyarg[yycount++] = yytname[yyx]; - { - YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR, yytname[yyx]); - if (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM) - yysize = yysize1; - else - return 2; - } - } - } - } - - switch (yycount) - { -# define YYCASE_(N, S) \ - case N: \ - yyformat = S; \ - break - default: /* Avoid compiler warnings. */ - YYCASE_(0, YY_("syntax error")); - YYCASE_(1, YY_("syntax error, unexpected %s")); - YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); - YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); - YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); - YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); -# undef YYCASE_ - } - - { - YYSIZE_T yysize1 = yysize + yystrlen (yyformat); - if (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM) - yysize = yysize1; - else - return 2; - } - - if (*yymsg_alloc < yysize) - { - *yymsg_alloc = 2 * yysize; - if (! (yysize <= *yymsg_alloc - && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) - *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; - return 1; - } - - /* Avoid sprintf, as that infringes on the user's name space. - Don't have undefined behavior even if the translation - produced a string with the wrong number of "%s"s. */ - { - char *yyp = *yymsg; - int yyi = 0; - while ((*yyp = *yyformat) != '\0') - if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) - { - yyp += yytnamerr (yyp, yyarg[yyi++]); - yyformat += 2; - } - else - { - yyp++; - yyformat++; - } - } - return 0; -} -#endif /* YYERROR_VERBOSE */ - -/*-----------------------------------------------. -| Release the memory associated to this symbol. | -`-----------------------------------------------*/ - -static void -yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep, const char *const filename, char **language, rulefile_parse_status *const status) -{ - YYUSE (yyvaluep); - YYUSE (filename); - YYUSE (language); - YYUSE (status); - if (!yymsg) - yymsg = "Deleting"; - YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); - - YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN - YYUSE (yytype); - YY_IGNORE_MAYBE_UNINITIALIZED_END -} - - - - -/* The lookahead symbol. */ -int yychar; - -/* The semantic value of the lookahead symbol. */ -YYSTYPE yylval; -/* Number of syntax errors so far. */ -int yynerrs; - - -/*----------. -| yyparse. | -`----------*/ - -int -yyparse (const char *const filename, char **language, rulefile_parse_status *const status) -{ - int yystate; - /* Number of tokens to shift before error messages enabled. */ - int yyerrstatus; - - /* The stacks and their tools: - 'yyss': related to states. - 'yyvs': related to semantic values. - - Refer to the stacks through separate pointers, to allow yyoverflow - to reallocate them elsewhere. */ - - /* The state stack. */ - yytype_int16 yyssa[YYINITDEPTH]; - yytype_int16 *yyss; - yytype_int16 *yyssp; - - /* The semantic value stack. */ - YYSTYPE yyvsa[YYINITDEPTH]; - YYSTYPE *yyvs; - YYSTYPE *yyvsp; - - YYSIZE_T yystacksize; - - int yyn; - int yyresult; - /* Lookahead token as an internal (translated) token number. */ - int yytoken = 0; - /* The variables used to return semantic value and location from the - action routines. */ - YYSTYPE yyval; - -#if YYERROR_VERBOSE - /* Buffer for error messages, and its allocated size. */ - char yymsgbuf[128]; - char *yymsg = yymsgbuf; - YYSIZE_T yymsg_alloc = sizeof yymsgbuf; -#endif - -#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N)) - - /* The number of symbols on the RHS of the reduced rule. - Keep to zero when no symbol should be popped. */ - int yylen = 0; - - yyssp = yyss = yyssa; - yyvsp = yyvs = yyvsa; - yystacksize = YYINITDEPTH; - - YYDPRINTF ((stderr, "Starting parse\n")); - - yystate = 0; - yyerrstatus = 0; - yynerrs = 0; - yychar = YYEMPTY; /* Cause a token to be read. */ - goto yysetstate; - - -/*------------------------------------------------------------. -| yynewstate -- push a new state, which is found in yystate. | -`------------------------------------------------------------*/ -yynewstate: - /* In all cases, when you get here, the value and location stacks - have just been pushed. So pushing a state here evens the stacks. */ - yyssp++; - - -/*--------------------------------------------------------------------. -| yynewstate -- set current state (the top of the stack) to yystate. | -`--------------------------------------------------------------------*/ -yysetstate: - *yyssp = (yytype_int16) yystate; - - if (yyss + yystacksize - 1 <= yyssp) -#if !defined yyoverflow && !defined YYSTACK_RELOCATE - goto yyexhaustedlab; -#else - { - /* Get the current used size of the three stacks, in elements. */ - YYSIZE_T yysize = (YYSIZE_T) (yyssp - yyss + 1); - -# if defined yyoverflow - { - /* Give user a chance to reallocate the stack. Use copies of - these so that the &'s don't force the real ones into - memory. */ - YYSTYPE *yyvs1 = yyvs; - yytype_int16 *yyss1 = yyss; - - /* Each stack pointer address is followed by the size of the - data in use in that stack, in bytes. This used to be a - conditional around just the two extra args, but that might - be undefined if yyoverflow is a macro. */ - yyoverflow (YY_("memory exhausted"), - &yyss1, yysize * sizeof (*yyssp), - &yyvs1, yysize * sizeof (*yyvsp), - &yystacksize); - yyss = yyss1; - yyvs = yyvs1; - } -# else /* defined YYSTACK_RELOCATE */ - /* Extend the stack our own way. */ - if (YYMAXDEPTH <= yystacksize) - goto yyexhaustedlab; - yystacksize *= 2; - if (YYMAXDEPTH < yystacksize) - yystacksize = YYMAXDEPTH; - - { - yytype_int16 *yyss1 = yyss; - union yyalloc *yyptr = - (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize)); - if (! yyptr) - goto yyexhaustedlab; - YYSTACK_RELOCATE (yyss_alloc, yyss); - YYSTACK_RELOCATE (yyvs_alloc, yyvs); -# undef YYSTACK_RELOCATE - if (yyss1 != yyssa) - YYSTACK_FREE (yyss1); - } -# endif - - yyssp = yyss + yysize - 1; - yyvsp = yyvs + yysize - 1; - - YYDPRINTF ((stderr, "Stack size increased to %lu\n", - (unsigned long) yystacksize)); - - if (yyss + yystacksize - 1 <= yyssp) - YYABORT; - } -#endif /* !defined yyoverflow && !defined YYSTACK_RELOCATE */ - - YYDPRINTF ((stderr, "Entering state %d\n", yystate)); - - if (yystate == YYFINAL) - YYACCEPT; - - goto yybackup; - - -/*-----------. -| yybackup. | -`-----------*/ -yybackup: - /* Do appropriate processing given the current state. Read a - lookahead token if we need one and don't already have one. */ - - /* First try to decide what to do without reference to lookahead token. */ - yyn = yypact[yystate]; - if (yypact_value_is_default (yyn)) - goto yydefault; - - /* Not known => get a lookahead token if don't already have one. */ - - /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */ - if (yychar == YYEMPTY) - { - YYDPRINTF ((stderr, "Reading a token: ")); - yychar = yylex (); - } - - if (yychar <= YYEOF) - { - yychar = yytoken = YYEOF; - YYDPRINTF ((stderr, "Now at end of input.\n")); - } - else - { - yytoken = YYTRANSLATE (yychar); - YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc); - } - - /* If the proper action on seeing token YYTOKEN is to reduce or to - detect an error, take that action. */ - yyn += yytoken; - if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken) - goto yydefault; - yyn = yytable[yyn]; - if (yyn <= 0) - { - if (yytable_value_is_error (yyn)) - goto yyerrlab; - yyn = -yyn; - goto yyreduce; - } - - /* Count tokens shifted since error; after three, turn off error - status. */ - if (yyerrstatus) - yyerrstatus--; - - /* Shift the lookahead token. */ - YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); - - /* Discard the shifted token. */ - yychar = YYEMPTY; - - yystate = yyn; - YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN - *++yyvsp = yylval; - YY_IGNORE_MAYBE_UNINITIALIZED_END - - goto yynewstate; - - -/*-----------------------------------------------------------. -| yydefault -- do the default action for the current state. | -`-----------------------------------------------------------*/ -yydefault: - yyn = yydefact[yystate]; - if (yyn == 0) - goto yyerrlab; - goto yyreduce; - - -/*-----------------------------. -| yyreduce -- do a reduction. | -`-----------------------------*/ -yyreduce: - /* yyn is the number of a rule to reduce with. */ - yylen = yyr2[yyn]; - - /* If YYLEN is nonzero, implement the default value of the action: - '$$ = $1'. - - Otherwise, the following line sets YYVAL to garbage. - This behavior is undocumented and Bison - users should not rely upon it. Assigning to YYVAL - unconditionally makes the parser a bit smaller, and it avoids a - GCC warning that YYVAL may be used uninitialized. */ - yyval = yyvsp[1-yylen]; - - - YY_REDUCE_PRINT (yyn); - switch (yyn) - { - case 4: -#line 120 "vowel/vowel-rules.y" /* yacc.c:1652 */ - { _MATCH(yyvsp[-1]); } -#line 1347 "vowel/vowel-rules-y.c" /* yacc.c:1652 */ - break; - - case 5: -#line 121 "vowel/vowel-rules.y" /* yacc.c:1652 */ - { _ALIAS(yyvsp[-3], yyvsp[-1]); } -#line 1353 "vowel/vowel-rules-y.c" /* yacc.c:1652 */ - break; - - case 11: -#line 130 "vowel/vowel-rules.y" /* yacc.c:1652 */ - { _ADD(vowel, yyvsp[0]); } -#line 1359 "vowel/vowel-rules-y.c" /* yacc.c:1652 */ - break; - - case 13: -#line 135 "vowel/vowel-rules.y" /* yacc.c:1652 */ - { _ADD(prefix, yyvsp[0]); } -#line 1365 "vowel/vowel-rules-y.c" /* yacc.c:1652 */ - break; - - case 15: -#line 140 "vowel/vowel-rules.y" /* yacc.c:1652 */ - { _ADD(suffix, yyvsp[0]); } -#line 1371 "vowel/vowel-rules-y.c" /* yacc.c:1652 */ - break; - - case 17: -#line 145 "vowel/vowel-rules.y" /* yacc.c:1652 */ - { _ADD(secondary, yyvsp[0]); } -#line 1377 "vowel/vowel-rules-y.c" /* yacc.c:1652 */ - break; - - -#line 1381 "vowel/vowel-rules-y.c" /* yacc.c:1652 */ - default: break; - } - /* User semantic actions sometimes alter yychar, and that requires - that yytoken be updated with the new translation. We take the - approach of translating immediately before every use of yytoken. - One alternative is translating here after every semantic action, - but that translation would be missed if the semantic action invokes - YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or - if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an - incorrect destructor might then be invoked immediately. In the - case of YYERROR or YYBACKUP, subsequent parser actions might lead - to an incorrect destructor call or verbose syntax error message - before the lookahead is translated. */ - YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); - - YYPOPSTACK (yylen); - yylen = 0; - YY_STACK_PRINT (yyss, yyssp); - - *++yyvsp = yyval; - - /* Now 'shift' the result of the reduction. Determine what state - that goes to, based on the state we popped back to and the rule - number reduced by. */ - { - const int yylhs = yyr1[yyn] - YYNTOKENS; - const int yyi = yypgoto[yylhs] + *yyssp; - yystate = (0 <= yyi && yyi <= YYLAST && yycheck[yyi] == *yyssp - ? yytable[yyi] - : yydefgoto[yylhs]); - } - - goto yynewstate; - - -/*--------------------------------------. -| yyerrlab -- here on detecting error. | -`--------------------------------------*/ -yyerrlab: - /* Make sure we have latest lookahead translation. See comments at - user semantic actions for why this is necessary. */ - yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); - - /* If not already recovering from an error, report this error. */ - if (!yyerrstatus) - { - ++yynerrs; -#if ! YYERROR_VERBOSE - yyerror (filename, language, status, YY_("syntax error")); -#else -# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ - yyssp, yytoken) - { - char const *yymsgp = YY_("syntax error"); - int yysyntax_error_status; - yysyntax_error_status = YYSYNTAX_ERROR; - if (yysyntax_error_status == 0) - yymsgp = yymsg; - else if (yysyntax_error_status == 1) - { - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); - yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); - if (!yymsg) - { - yymsg = yymsgbuf; - yymsg_alloc = sizeof yymsgbuf; - yysyntax_error_status = 2; - } - else - { - yysyntax_error_status = YYSYNTAX_ERROR; - yymsgp = yymsg; - } - } - yyerror (filename, language, status, yymsgp); - if (yysyntax_error_status == 2) - goto yyexhaustedlab; - } -# undef YYSYNTAX_ERROR -#endif - } - - - - if (yyerrstatus == 3) - { - /* If just tried and failed to reuse lookahead token after an - error, discard it. */ - - if (yychar <= YYEOF) - { - /* Return failure if at end of input. */ - if (yychar == YYEOF) - YYABORT; - } - else - { - yydestruct ("Error: discarding", - yytoken, &yylval, filename, language, status); - yychar = YYEMPTY; - } - } - - /* Else will try to reuse lookahead token after shifting the error - token. */ - goto yyerrlab1; - - -/*---------------------------------------------------. -| yyerrorlab -- error raised explicitly by YYERROR. | -`---------------------------------------------------*/ -yyerrorlab: - /* Pacify compilers when the user code never invokes YYERROR and the - label yyerrorlab therefore never appears in user code. */ - if (0) - YYERROR; - - /* Do not reclaim the symbols of the rule whose action triggered - this YYERROR. */ - YYPOPSTACK (yylen); - yylen = 0; - YY_STACK_PRINT (yyss, yyssp); - yystate = *yyssp; - goto yyerrlab1; - - -/*-------------------------------------------------------------. -| yyerrlab1 -- common code for both syntax error and YYERROR. | -`-------------------------------------------------------------*/ -yyerrlab1: - yyerrstatus = 3; /* Each real token shifted decrements this. */ - - for (;;) - { - yyn = yypact[yystate]; - if (!yypact_value_is_default (yyn)) - { - yyn += YYTERROR; - if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR) - { - yyn = yytable[yyn]; - if (0 < yyn) - break; - } - } - - /* Pop the current state because it cannot handle the error token. */ - if (yyssp == yyss) - YYABORT; - - - yydestruct ("Error: popping", - yystos[yystate], yyvsp, filename, language, status); - YYPOPSTACK (1); - yystate = *yyssp; - YY_STACK_PRINT (yyss, yyssp); - } - - YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN - *++yyvsp = yylval; - YY_IGNORE_MAYBE_UNINITIALIZED_END - - - /* Shift the error token. */ - YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp); - - yystate = yyn; - goto yynewstate; - - -/*-------------------------------------. -| yyacceptlab -- YYACCEPT comes here. | -`-------------------------------------*/ -yyacceptlab: - yyresult = 0; - goto yyreturn; - - -/*-----------------------------------. -| yyabortlab -- YYABORT comes here. | -`-----------------------------------*/ -yyabortlab: - yyresult = 1; - goto yyreturn; - - -#if !defined yyoverflow || YYERROR_VERBOSE -/*-------------------------------------------------. -| yyexhaustedlab -- memory exhaustion comes here. | -`-------------------------------------------------*/ -yyexhaustedlab: - yyerror (filename, language, status, YY_("memory exhausted")); - yyresult = 2; - /* Fall through. */ -#endif - - -/*-----------------------------------------------------. -| yyreturn -- parsing is finished, return the result. | -`-----------------------------------------------------*/ -yyreturn: - if (yychar != YYEMPTY) - { - /* Make sure we have latest lookahead translation. See comments at - user semantic actions for why this is necessary. */ - yytoken = YYTRANSLATE (yychar); - yydestruct ("Cleanup: discarding lookahead", - yytoken, &yylval, filename, language, status); - } - /* Do not reclaim the symbols of the rule whose action triggered - this YYABORT or YYACCEPT. */ - YYPOPSTACK (yylen); - YY_STACK_PRINT (yyss, yyssp); - while (yyssp != yyss) - { - yydestruct ("Cleanup: popping", - yystos[*yyssp], yyvsp, filename, language, status); - YYPOPSTACK (1); - } -#ifndef yyoverflow - if (yyss != yyssa) - YYSTACK_FREE (yyss); -#endif -#if YYERROR_VERBOSE - if (yymsg != yymsgbuf) - YYSTACK_FREE (yymsg); -#endif - return yyresult; -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-y.h b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-y.h deleted file mode 100644 index 6d808829b3a..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules-y.h +++ /dev/null @@ -1,90 +0,0 @@ -/* A Bison parser, made by GNU Bison 3.3.2. */ - -/* Bison interface for Yacc-like parsers in C - - Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, - Inc. - - This program is free software: you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation, either version 3 of the License, or - (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program. If not, see <http://www.gnu.org/licenses/>. */ - -/* As a special exception, you may create a larger work that contains - part or all of the Bison parser skeleton and distribute that work - under terms of your choice, so long as that work isn't itself a - parser generator using the skeleton or a modified version thereof - as a parser skeleton. Alternatively, if you modify or redistribute - the parser skeleton itself, you may (at your option) remove this - special exception, which will cause the skeleton and the resulting - Bison output files to be licensed under the GNU General Public - License without this special exception. - - This special exception was added by the Free Software Foundation in - version 2.2 of Bison. */ - -/* Undocumented macros, especially those whose name start with YY_, - are private implementation details. Do not rely on them. */ - -#ifndef YY_GREGORIO_VOWEL_RULEFILE_VOWEL_VOWEL_RULES_Y_H_INCLUDED -# define YY_GREGORIO_VOWEL_RULEFILE_VOWEL_VOWEL_RULES_Y_H_INCLUDED -/* Debug traces. */ -#ifndef YYDEBUG -# define YYDEBUG 0 -#endif -#if YYDEBUG -extern int gregorio_vowel_rulefile_debug; -#endif - -/* Token type. */ -#ifndef YYTOKENTYPE -# define YYTOKENTYPE - enum yytokentype - { - LANGUAGE = 258, - VOWEL = 259, - PREFIX = 260, - SUFFIX = 261, - SECONDARY = 262, - ALIAS = 263, - SEMICOLON = 264, - TO = 265, - NAME = 266, - CHARACTERS = 267, - INVALID = 268 - }; -#endif -/* Tokens. */ -#define LANGUAGE 258 -#define VOWEL 259 -#define PREFIX 260 -#define SUFFIX 261 -#define SECONDARY 262 -#define ALIAS 263 -#define SEMICOLON 264 -#define TO 265 -#define NAME 266 -#define CHARACTERS 267 -#define INVALID 268 - -/* Value type. */ -#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED -typedef int YYSTYPE; -# define YYSTYPE_IS_TRIVIAL 1 -# define YYSTYPE_IS_DECLARED 1 -#endif - - -extern YYSTYPE gregorio_vowel_rulefile_lval; - -int gregorio_vowel_rulefile_parse (const char *const filename, char **language, rulefile_parse_status *const status); - -#endif /* !YY_GREGORIO_VOWEL_RULEFILE_VOWEL_VOWEL_RULES_Y_H_INCLUDED */ diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.h b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.h deleted file mode 100644 index f53bb66d681..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.h +++ /dev/null @@ -1,28 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header shares definitions between the vowel parser and lexer. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#define YYSTYPE char * -#define YYSTYPE_IS_DECLARED 1 - -int gregorio_vowel_rulefile_lex(void); -#define YY_DECL int gregorio_vowel_rulefile_lex(void) - diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.l b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.l deleted file mode 100644 index 89215af0af8..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.l +++ /dev/null @@ -1,95 +0,0 @@ -%{ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the vowel rule lexer. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include "struct.h" -#include "messages.h" -#include "support.h" - -#include "vowel.h" - -#include "vowel-rules.h" -#include "vowel-rules-y.h" - -#define YY_NO_INPUT - -static __inline void save_lval(void) -{ - gregorio_vowel_rulefile_lval = - gregorio_malloc(gregorio_vowel_rulefile_leng + 1); - strncpy(gregorio_vowel_rulefile_lval, gregorio_vowel_rulefile_text, - gregorio_vowel_rulefile_leng); - gregorio_vowel_rulefile_lval[gregorio_vowel_rulefile_leng] = '\0'; -} - -static __inline void invalid(void) -{ - gregorio_messagef("gregorio_vowel_rulefile_lex", VERBOSITY_WARNING, 0, - _("invalid character in vowel file: %c"), - *gregorio_vowel_rulefile_text); -} -%} - -%x chars -%x lang -%x langname - -%option stack -%option pointer -%option nounput -%option noyy_push_state -%option noyy_pop_state -%option noyy_top_state -%option align -%option noread -%option nomain -%option noalways-interactive -%option nonever-interactive -%option prefix="gregorio_vowel_rulefile_" -%option noyywrap -%option 8bit - -%% - -<INITIAL>language { BEGIN(lang); return LANGUAGE; } -<INITIAL>vowel { BEGIN(chars); return VOWEL; } -<INITIAL>prefix { BEGIN(chars); return PREFIX; } -<INITIAL>suffix { BEGIN(chars); return SUFFIX; } -<INITIAL>secondary { BEGIN(chars); return SECONDARY; } -<INITIAL>alias { BEGIN(lang); return ALIAS; } -<*>; { BEGIN(INITIAL); return SEMICOLON; } -<lang>to { return TO; } -<lang>"[" { BEGIN(langname); } -<langname>[^\]]+ { save_lval(); return NAME; } -<langname>"]" { BEGIN(lang); } -<chars>[^;,# \t\n\r\v\f]+ { save_lval(); return CHARACTERS; } -<*>#[^\n\r]* { } -<INITIAL>\xEF\xBB\xBF { } -<*>[\ \t\n\r\v\f] { } -<*>. { invalid(); return INVALID; } - -%% - diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.y b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.y deleted file mode 100644 index bcdfb77c74a..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel-rules.y +++ /dev/null @@ -1,146 +0,0 @@ -%{ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements the vowel rule parser. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <assert.h> -#include "bool.h" -#include "struct.h" -#include "unicode.h" -#include "messages.h" - -#include "vowel.h" - -#include "vowel-rules.h" -#include "vowel-rules-l.h" - -/* NOTE: This parser might allocate a new value for language; this value MUST - * BE FREED after the parser returns (if the value of the language pointer - * changes, then free the pointer). This parser DOES free the language - * pointer before changing it, if status points to RFPS_ALIASED. */ - -/* uncomment it if you want to have an interactive shell to understand the - * details on how bison works for a certain input */ -/*int gregorio_vowel_rulefile_debug=1;*/ - -static void gregorio_vowel_rulefile_error(const char *const filename, - char **const language __attribute__((__unused__)), - rulefile_parse_status *const status __attribute__((__unused__)), - const char *const error_str) -{ - gregorio_messagef("gregorio_vowel_rulefile_parse", VERBOSITY_ERROR, 0, - _("%s: %s"), filename, error_str); -} - -/* this returns false until the language *after* the desired language */ -static __inline bool match_language(char **language, - rulefile_parse_status *status, char *const name) -{ - if (*status == RFPS_FOUND) { - free(name); - return true; - } - - if (strcmp(*language, name) == 0) { - *status = RFPS_FOUND; - } - - free(name); - return false; -} - -static __inline void alias(char **const language, - rulefile_parse_status *const status, char *const name, - char *const target) -{ - if (strcmp(*language, name) == 0) { - gregorio_messagef("alias", VERBOSITY_INFO, 0, _("Aliasing %s to %s"), - name, target); - if (*status == RFPS_ALIASED) { - free(*language); - } - *language = target; - *status = RFPS_ALIASED; - } else { - free(target); - } - free(name); -} - -static __inline void add(const rulefile_parse_status *const status, - void (*const fn)(const char *), char *const value) -{ - if (*status == RFPS_FOUND) { - fn(value); - } - free(value); -} - -#define _MATCH(NAME) if (match_language(language, status, NAME)) YYACCEPT -#define _ALIAS(NAME, TARGET) alias(language, status, NAME, TARGET) -#define _ADD(TABLE, CHARS) add(status, gregorio_##TABLE##_table_add, CHARS) - -%} - -%name-prefix "gregorio_vowel_rulefile_" -%parse-param { const char *const filename } -%parse-param { char **language } -%parse-param { rulefile_parse_status *const status } - -%token LANGUAGE VOWEL PREFIX SUFFIX SECONDARY ALIAS SEMICOLON TO -%token NAME CHARACTERS INVALID - -%% - -rules - : - | rules rule - ; - -rule - : LANGUAGE NAME SEMICOLON { _MATCH($2); } - | ALIAS NAME TO NAME SEMICOLON { _ALIAS($2, $4); } - | VOWEL vowels SEMICOLON - | PREFIX prefixes SEMICOLON - | SUFFIX suffixes SEMICOLON - | SECONDARY secondaries SEMICOLON - ; - -vowels - : - | vowels CHARACTERS { _ADD(vowel, $2); } - ; - -prefixes - : - | prefixes CHARACTERS { _ADD(prefix, $2); } - ; - -suffixes - : - | suffixes CHARACTERS { _ADD(suffix, $2); } - ; - -secondaries - : - | secondaries CHARACTERS { _ADD(secondary, $2); } - ; diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel.c b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel.c deleted file mode 100644 index a765ee77b1f..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel.c +++ /dev/null @@ -1,447 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This file implements vowel rule handling (aside from parsing). - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "config.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <assert.h> -#include <errno.h> -#include "bool.h" -#include "vowel.h" -#include "unicode.h" -#include "messages.h" -#include "support.h" - -typedef struct character_set { - grewchar *table; - struct character_set **next; - grewchar mask; - unsigned int bins; - unsigned int size; - bool is_final; -} character_set; - -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; -} - -static void character_set_free(character_set *const set); - -static __inline void character_set_next_elements_free(character_set *const set) -{ - unsigned int i; - assert(set && set->next); - for (i = 0; i < set->bins; ++i) { - if (set->next[i]) { - character_set_free(set->next[i]); - } - } -} - -static void character_set_free(character_set *const set) -{ - if (set) { - if (set->next) { - character_set_next_elements_free(set); - free(set->next); - } - free(set->table); - free(set); - } -} - -static bool character_set_contains(character_set *const set, - const grewchar character, character_set **const next) -{ - unsigned int index; - assert(set); - - if (next) { - *next = NULL; - } - for (index = ((unsigned long)character) & set->mask; set->table[index]; - index = (index + 1) & set->mask) { - if (set->table[index] == character) { - if (next && set->next) { - *next = set->next[index]; - } - return true; - } - } - return false; -} - -static __inline void character_set_put(character_set *const set, - const grewchar character, character_set *next) -{ - unsigned int index; - - assert(set); - - index = ((unsigned long)character) & set->mask; - while (set->table[index]) { - index = (index + 1) & set->mask; - } - - set->table[index] = character; - if (set->next) { - set->next[index] = next; - } -} - -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); - } -} - -static character_set *character_set_add(character_set *const set, - const grewchar character) -{ - character_set *next = NULL; - - if (!character_set_contains(set, character, &next)) { - if (((++(set->size) * 10) / set->bins) >= 7) { - character_set_grow(set); - } - - if (set->next) { - next = character_set_new(true); - } - - character_set_put(set, character, next); - } - - return next; -} - -static __inline void character_set_clear(character_set *const set) -{ - if (set) { - memset(set->table, 0, set->bins * sizeof(grewchar)); - - if (set->next) { - character_set_next_elements_free(set); - memset(set->next, 0, set->bins * sizeof(character_set *)); - } - - set->size = 0; - } -} - -static character_set *vowel_table = NULL; -static character_set *prefix_table = NULL; -static character_set *suffix_table = NULL; -static character_set *secondary_table = NULL; -static grewchar *prefix_buffer = NULL; -static size_t prefix_buffer_size; -static size_t prefix_buffer_mask; - -extern FILE *gregorio_vowel_rulefile_in; - -static void prefix_buffer_grow(size_t required_size) -{ - while (required_size > prefix_buffer_size) { - prefix_buffer_size <<= 1; - prefix_buffer_mask = (prefix_buffer_mask << 1) | 0x01; - } - prefix_buffer = gregorio_realloc(prefix_buffer, - prefix_buffer_size * sizeof(grewchar)); -} - -void gregorio_vowel_tables_init(void) -{ - if (vowel_table) { - character_set_clear(vowel_table); - character_set_clear(prefix_table); - character_set_clear(suffix_table); - character_set_clear(secondary_table); - } else { - vowel_table = character_set_new(false); - prefix_table = character_set_new(true); - suffix_table = character_set_new(true); - secondary_table = character_set_new(true); - - prefix_buffer_size = 16; - prefix_buffer_mask = 0x0f; - prefix_buffer = (grewchar *)gregorio_malloc( - prefix_buffer_size * sizeof(grewchar)); - } -} - -void gregorio_vowel_tables_load(const char *const filename, - char **const language, rulefile_parse_status *status) -{ - gregorio_check_file_access(read, filename, WARNING, return); - gregorio_vowel_rulefile_in = fopen(filename, "r"); - if (gregorio_vowel_rulefile_in) { - gregorio_vowel_rulefile_parse(filename, language, status); - fclose(gregorio_vowel_rulefile_in); - gregorio_vowel_rulefile_in = NULL; - } else { - /* tests cannot be expected to simulate the system error that would - * cause gregorio_vowel_rulefile_in to be NULL */ - /* LCOV_EXCL_START */ - gregorio_messagef("gregorio_vowel_tables_load", VERBOSITY_WARNING, 0, - _("unable to open %s: %s"), filename, strerror(errno)); - /* LCOV_EXCL_STOP */ - } -} - -void gregorio_vowel_tables_free(void) -{ - if (vowel_table) { - character_set_free(vowel_table); - } - if (prefix_table) { - character_set_free(prefix_table); - } - if (suffix_table) { - character_set_free(suffix_table); - } - if (secondary_table) { - character_set_free(secondary_table); - } - if (prefix_buffer) { - free(prefix_buffer); - } -} - -void gregorio_vowel_table_add(const char *vowels) -{ - if (vowels) { - grewchar *str = gregorio_build_grewchar_string_from_buf(vowels), *p; - for (p = str; *p; ++p) { - character_set_add(vowel_table, *p); - } - free(str); - } -} - -void gregorio_prefix_table_add(const char *prefix) -{ - character_set *set = prefix_table; - grewchar *str, *p; - - /* store prefixes backwards */ - if (prefix && *prefix) { - str = gregorio_build_grewchar_string_from_buf(prefix); - p = str; - - while (*(++p)) ; - - while (p > str) { - set = character_set_add(set, *(--p)); - } - - set->is_final = true; - prefix_buffer_grow(gregorio_wcstrlen(str)); - free(str); - } -} - -void gregorio_suffix_table_add(const char *suffix) -{ - character_set *set = suffix_table; - grewchar *str, *p; - - if (suffix && *suffix) { - str = gregorio_build_grewchar_string_from_buf(suffix); - p = str; - - while (*p) { - set = character_set_add(set, *(p++)); - } - - set->is_final = true; - free(str); - } -} - -void gregorio_secondary_table_add(const char *secondary) -{ - character_set *set = secondary_table; - grewchar *str, *p; - - if (secondary && *secondary) { - str = gregorio_build_grewchar_string_from_buf(secondary); - p = str; - - while (*p) { - set = character_set_add(set, *(p++)); - } - - set->is_final = true; - free(str); - } -} - -typedef enum { - VWL_BEFORE = 0, - VWL_WITHIN, - VWL_SUFFIX -} vowel_group_state; - -static __inline bool is_in_prefix(size_t bufpos) { - character_set *previous = prefix_table, *prefix; - - while (character_set_contains(previous, prefix_buffer[bufpos], &prefix)) { - bufpos = (bufpos + prefix_buffer_size - 1) & prefix_buffer_mask; - previous = prefix; - } - - return previous->is_final; -} - -bool gregorio_find_vowel_group(const grewchar *const string, int *const start, - int *const end) -{ - size_t bufpos = 0; - vowel_group_state state = VWL_BEFORE; - character_set *cset = NULL; - const grewchar *subject; - int i; - - /* stick the 0 in here to avoid overruns from is_in_prefix */ - prefix_buffer[0] = 0; - - for (i = 0, subject = string; true; ++i, ++subject) { - switch (state) { - case VWL_BEFORE: - bufpos = (bufpos + 1) & prefix_buffer_mask; - prefix_buffer[bufpos] = *subject; - if (character_set_contains(vowel_table, *subject, NULL)) { - /* we found a vowel */ - if ((!character_set_contains(vowel_table, *(subject + 1), NULL) - && *(subject + 1) != GREVOWEL_ELISION_MARK) - || !is_in_prefix(bufpos)) { - /* no vowel/elision after, or not in prefix, so this is the - * start */ - *start = i; - state = VWL_WITHIN; - } - } - break; - - case VWL_WITHIN: - if (!character_set_contains(vowel_table, *subject, NULL)) { - /* not a vowel; is it a suffix? */ - *end = i; - if (character_set_contains(suffix_table, *subject, &cset)) { - /* it's the start of a suffix */ - state = VWL_SUFFIX; - } else { - /* neither a vowel nor a suffix, so this is the end */ - return true; - } - } - break; - - case VWL_SUFFIX: - if (cset->is_final) { - /* remember the last final position */ - *end = i; - } - if (!character_set_contains(cset, *subject, &cset)) { - /* no longer in valid suffix */ - return true; - } - break; - - default: - /* not reachable unless there's a programming error */ - /* LCOV_EXCL_START */ - assert(false); - break; - /* LCOV_EXCL_STOP */ - } - - if (!*subject) { - break; - } - } - - /* no vowel found; look for a secondary */ - *end = -1; - for (*start = 0; *(subject = string + *start); ++ *start) { - for (cset = secondary_table, i = *start; - character_set_contains(cset, *subject, &cset); ++i, ++subject) { - if (cset->is_final) { - /* remember the last final position */ - *end = i + 1; - } - } - if (*end >= 0) { - return true; - } - } - - /* no center found */ - *start = -1; - return false; -} diff --git a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel.h b/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel.h deleted file mode 100644 index a149f4214d5..00000000000 --- a/Build/source/texk/gregorio/gregorio-src/src/vowel/vowel.h +++ /dev/null @@ -1,52 +0,0 @@ -/* - * Gregorio is a program that translates gabc files to GregorioTeX - * This header prototypes the vowel handling data structures and entry points. - * - * Copyright (C) 2015-2019 The Gregorio Project (see CONTRIBUTORS.md) - * - * This file is part of Gregorio. - * - * This program is free software: you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the Free - * Software Foundation, either version 3 of the License, or (at your option) - * any later version. - * - * This program is distributed in the hope that it will be useful, but WITHOUT - * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or - * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for - * more details. - * - * You should have received a copy of the GNU General Public License along with - * this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#ifndef _VOWEL_H -#define _VOWEL_H - -#include <stdio.h> -#include "bool.h" -#include "unicode.h" - -/* Use unicode 0xfffe, which is guaranteed not to be a character */ -#define GREVOWEL_ELISION_MARK ((grewchar)0xfffe) - -typedef enum rulefile_parse_status { - RFPS_NOT_FOUND = 0, - RFPS_FOUND, - RFPS_ALIASED -} rulefile_parse_status; - -int gregorio_vowel_rulefile_parse(const char *filename, char **language, - rulefile_parse_status *status); -int gregorio_vowel_rulefile_lex_destroy(void); -void gregorio_vowel_tables_init(void); -void gregorio_vowel_tables_load(const char *filename, char **language, - rulefile_parse_status *status); -void gregorio_vowel_tables_free(void); -void gregorio_vowel_table_add(const char *vowels); -void gregorio_prefix_table_add(const char *prefix); -void gregorio_suffix_table_add(const char *suffix); -void gregorio_secondary_table_add(const char *secondary); -bool gregorio_find_vowel_group(const grewchar *subject, int *start, int *end); - -#endif |