summaryrefslogtreecommitdiff
path: root/Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.l
diff options
context:
space:
mode:
authorAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-01-23 22:38:00 +0000
committerAkira Kakuto <kakuto@fuk.kindai.ac.jp>2016-01-23 22:38:00 +0000
commitfaa5f31c4901212372d2dcf7080d9f0a23d5f195 (patch)
treecda02ce149a95cfa5d20f01943eceae7ff256b7b /Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.l
parent21d19604dc80efef1747f4a048c9dae5e8e810b1 (diff)
gregorio 4.1.0-beta1
git-svn-id: svn://tug.org/texlive/trunk@39470 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.l')
-rw-r--r--Build/source/texk/gregorio/gregorio-src/src/gabc/gabc-score-determination.l112
1 files changed, 56 insertions, 56 deletions
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
index 1001a2f72a6..b0c695f383f 100644
--- 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
@@ -28,6 +28,7 @@
#include <string.h>
#include "struct.h"
#include "messages.h"
+#include "bool.h"
#include "support.h"
#include "gabc.h"
@@ -35,6 +36,7 @@
#include "gabc-score-determination-y.h"
static unsigned char style_stack = 0;
+static bool eof_found = false;
#define YY_NO_INPUT
@@ -137,91 +139,78 @@ semicolon. */
return DEF_MACRO;
}
<INITIAL>number-of-voices {
+ gabc_score_determination_lval.text =
+ gregorio_strdup(gabc_score_determination_text);
return NUMBER_OF_VOICES;
}
<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>office-part {
- return OFFICE_PART;
- }
-<INITIAL>occasion {
- return OCCASION;
- }
-<INITIAL>meter {
- return METER;
- }
-<INITIAL>commentary {
- return COMMENTARY;
- }
-<INITIAL>arranger {
- return ARRANGER;
- }
-<INITIAL>gabc-version {
- return GABC_VERSION;
- }
<INITIAL>initial-style {
+ /* DEPRECATED by 4.1 */
return INITIAL_STYLE;
}
<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>date {
- return DATE;
- }
-<INITIAL>manuscript {
- return MANUSCRIPT;
- }
-<INITIAL>manuscript-reference {
- return MANUSCRIPT_REFERENCE;
- }
-<INITIAL>manuscript-storage-place {
- return MANUSCRIPT_STORAGE_PLACE;
- }
-<INITIAL>book {
- return BOOK;
- }
-<INITIAL>transcriber {
- return TRANSCRIBER;
- }
-<INITIAL>generated-by {
- return GENERATED_BY;
- }
-<INITIAL>centering-scheme {
- return CENTERING_SCHEME;
- }
<INITIAL>language {
+ gabc_score_determination_lval.text =
+ gregorio_strdup(gabc_score_determination_text);
return LANGUAGE;
}
-<INITIAL>transcription-date {
- return TRANSCRIPTION_DATE;
- }
-<INITIAL>style {
- return STYLE;
- }
-<INITIAL>virgula-position {
- return VIRGULA_POSITION;
- }
-<INITIAL>gregoriotex-font {
- return GREGORIOTEX_FONT;
+<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>user-notes {
- return USER_NOTES;
+<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>--(.*) {
return VOICE_CHANGE;
@@ -235,11 +224,14 @@ semicolon. */
_("unrecognized character: \"%c\" in definition part"),
gabc_score_determination_text[0]);
}
-<score>[^\{\}\(\[\]<%]+ {
+<score>[^-\{\}\(\[\]<%]+ {
gabc_score_determination_lval.text =
gregorio_strdup(gabc_score_determination_text);
return CHARACTERS;
}
+<score>- {
+ return HYPHEN;
+ }
<score,style><i> {
BEGIN(style);
style_stack ++;
@@ -423,5 +415,13 @@ semicolon. */
BEGIN(score);
return CLOSING_BRACKET_WITH_SPACE;
}
+<<EOF>> {
+ if (!eof_found) {
+ eof_found = true;
+ return END_OF_FILE;
+ } else {
+ yyterminate();
+ }
+ }
%%