src/scriptvm/scanner.l

/*
 * Copyright (c) 2014-2017 Christian Schoenebeck and Andreas Persson
 *
 * http://www.linuxsampler.org
 *
 * This file is part of LinuxSampler and released under the same terms.
 * See README file for details.
 */

/* Token scanner for NKSP real-time instrument script language. */

%{

#include "parser_shared.h"
#include <math.h>
// reentrant scanner data context
#define YY_EXTRA_TYPE ParserContext*
// set line number each time a token is recognized
#define YY_USER_ACTION                  \
{                                       \
    yylloc->first_line = yylineno;      \
    yylloc->last_line  = yylineno;      \
    yylloc->first_column = yycolumn;    \
    yylloc->first_byte = yyextra->nbytes; \
    yylloc->length_bytes = (int) yyleng;  \
    yycolumn += yyleng;                 \
    yyextra->nbytes += (int) yyleng;    \
    yylloc->last_column = yycolumn - 1; \
    /*printf("lex: line '%s'\n", yytext);*/  \
}
// custom (f)lex input for reading from std::istream object
#define YY_INPUT(buf,result,max_size)   \
{                                       \
    char c = yyextra->is->get();        \
    if (yyextra->is->eof())             \
        result = YY_NULL;               \
    else {                              \
        buf[0] = c;                     \
        result = 1;                     \
    }                                   \
}

static void scanner_error(YYLTYPE* locp, LinuxSampler::ParserContext* context, const char* err) {
    context->addErr(locp->first_line, locp->last_line, locp->first_column,
                    locp->last_column, locp->first_byte, locp->length_bytes,
                    err);
}

static void scanner_warning(YYLTYPE* locp, LinuxSampler::ParserContext* context, const char* txt) {
    context->addWrn(locp->first_line, locp->last_line, locp->first_column,
                    locp->last_column, locp->first_byte, locp->length_bytes,
                    txt);
}

#define SCANNER_ERR(txt)  scanner_error(yylloc, yyextra, txt)
#define SCANNER_WRN(txt)  scanner_warning(yylloc, yyextra, txt)

// shut up warning that 'register' keyword is deprecated as of C++11
#if defined(__cplusplus) && __cplusplus >= 201103L
# define register
#endif

using namespace LinuxSampler;

static int countNewLineChars(const char* txt) {
    int n = 0;
    for (int i = 0; txt[i]; ++i)
        if (txt[i] == '\n') ++n;
    return n;
}

static int countCharsPastLastNewLine(const char* txt) {
    const int n = (int)strlen(txt);
    for (int i = n - 1; i >= 0; --i)
        if (txt[i] == '\n')
            return n - i - 1;
    return n;
}

#define processLocation() { \
    const int nl = countNewLineChars(yytext); \
    yylineno += nl; \
    if (nl) yycolumn = countCharsPastLastNewLine(yytext); \
}

// if compiled for debugging, throw an exception instead of exiting on fatal
// lexer errors (so the debugger may pause with the appropriate back trace)
#if DEBUG
# include <stdexcept>
# define YY_FATAL_ERROR(msg) throw std::runtime_error(msg)
#endif

%}

/* use Flex's built-in support for line numbers
   (disabled, because it seems to be unreliable, so we are using our own
   tracking code in the respective scanner rules below) */
/*%option yylineno*/
/* generate a reentrant safe scanner */
%option reentrant
/* avoid symbol collision with other (i.e. future) scanner symbols */
%option prefix="InstrScript_"
/* bison-bridge adds an argument yylval to yylex, and bison-locations adds an
   argument code yylloc for location tracking. */
%option bison-bridge
%option bison-locations
/* yywrap() would be called at EOF, we don't need it */
%option noyywrap
/* enable functions yy_push_state(), yy_pop_state(), yy_top_state() */
%option stack

/* inclusive scanner conditions */
%s PREPROC_BODY_USE
/* exclusive scanner conditions */
%x PREPROC_SET_COND PREPROC_RESET_COND PREPROC_IF PREPROC_IF_NOT PREPROC_BODY_EAT PREPROC_PRE_BODY_USE PREPROC_PRE_BODY_EAT

DIGIT    [0-9]
ID       [a-zA-Z][a-zA-Z0-9_]*
METRIC   (k|h|(da)|d|c|m|u)
UNIT     (s|(Hz)|B)

%%

\"[^"]*\" {
    char* s = strdup(yytext + 1);
    s[strlen(s) - 1] = '\0';
    yylval->sValue = s;
    yyextra->autoFreeAfterParse(s);
    return STRING;
}

{DIGIT}+ {
    if (sizeof(vmint) < 8)
        yylval->iValue = atoi(yytext);
    else
        yylval->iValue = atoll(yytext);
    return INTEGER;
}

{DIGIT}+"."{DIGIT}+ {
    yylval->fValue = atof(yytext);
    return REAL;
}

{DIGIT}+({METRIC}{1,2}|({METRIC}{0,2}{UNIT}?)) {
    int pos = 0;

    // parse number portion
    vmint value = 0;
    for (; yytext[pos] >= '0' && yytext[pos] <= '9'; ++pos) {
        value *= 10;
        value += yytext[pos] - '0';
    }
    yylval->iUnitValue.iValue = value;

    // parse metric prefix portion
    for (int i = 0; i < 2; ++i, ++pos) {
        switch (yytext[pos]) {
            case 'k': yylval->iUnitValue.prefix[i] = VM_KILO;  continue;
            case 'h': yylval->iUnitValue.prefix[i] = VM_HECTO; continue;
            case 'c': yylval->iUnitValue.prefix[i] = VM_CENTI; continue;
            case 'm': yylval->iUnitValue.prefix[i] = VM_MILLI; continue;
            case 'u': yylval->iUnitValue.prefix[i] = VM_MICRO; continue;
            case 'd':
                if (yytext[pos+1] == 'a') {
                    yylval->iUnitValue.prefix[i] = VM_DECA;
                    ++pos;
                } else {
                    yylval->iUnitValue.prefix[i] = VM_DECI;
                }
                continue;
            default:
                yylval->iUnitValue.prefix[i] = VM_NO_PREFIX;
                goto parseIntStdUnit;
        }
    }

    parseIntStdUnit:

    // parse standard measurement unit
    switch (yytext[pos]) {
        case 's': yylval->iUnitValue.unit = VM_SECOND;  break;
        case 'H': yylval->iUnitValue.unit = VM_HERTZ;   break;
        case 'B': yylval->iUnitValue.unit = VM_BEL;     break;
        default:  yylval->iUnitValue.unit = VM_NO_UNIT; break;
    }

    return INTEGER_UNIT;
}

{DIGIT}+"."{DIGIT}+({METRIC}{1,2}|({METRIC}{0,2}{UNIT}?)) {
    int pos = 0;

    // parse number portion
    for (; (yytext[pos] >= '0' && yytext[pos] <= '9') || yytext[pos] == '.'; ++pos) {
    }
    {
        const char tmp = yytext[pos];
        yytext[pos] = 0; // mark temporary end of string
        yylval->fUnitValue.fValue = atof(yytext);
        yytext[pos] = tmp; // restore
    }

    // parse metric prefix portion
    for (int i = 0; i < 2; ++i, ++pos) {
        switch (yytext[pos]) {
            case 'k': yylval->fUnitValue.prefix[i] = VM_KILO;  continue;
            case 'h': yylval->fUnitValue.prefix[i] = VM_HECTO; continue;
            case 'c': yylval->fUnitValue.prefix[i] = VM_CENTI; continue;
            case 'm': yylval->fUnitValue.prefix[i] = VM_MILLI; continue;
            case 'u': yylval->fUnitValue.prefix[i] = VM_MICRO; continue;
            case 'd':
                if (yytext[pos+1] == 'a') {
                    yylval->fUnitValue.prefix[i] = VM_DECA;
                    ++pos;
                } else {
                    yylval->fUnitValue.prefix[i] = VM_DECI;
                }
                continue;
            default:
                yylval->fUnitValue.prefix[i] = VM_NO_PREFIX;
                goto parseRealStdUnit;
        }
    }

    parseRealStdUnit:

    // parse standard measurement unit
    switch (yytext[pos]) {
        case 's': yylval->fUnitValue.unit = VM_SECOND;  break;
        case 'H': yylval->fUnitValue.unit = VM_HERTZ;   break;
        case 'B': yylval->fUnitValue.unit = VM_BEL;     break;
        default:  yylval->fUnitValue.unit = VM_NO_UNIT; break;
    }

    return REAL_UNIT;
}


 /* Preprocessor statement:  SET_CONDITION(name) */

<*>"SET_CONDITION"[ \t]*"(" {
    //printf("SET_CONDITION\n");
    yy_push_state(PREPROC_SET_COND, yyscanner);
}
<PREPROC_SET_COND>{ID} {
    //printf("preproc set condition '%s'\n", yytext);
    bool success = yyextra->setPreprocessorCondition(yytext);
    if (!success) {
        SCANNER_WRN((String("Preprocessor: Condition '") +
                    yytext + "' is already set.").c_str());
    }
}
<PREPROC_SET_COND>[ \t]*")" {
    //printf("End of PREPROC_SET_COND\n");
    yy_pop_state(yyscanner);
}


 /* Preprocessor statement:  RESET_CONDITION(name) */

<*>"RESET_CONDITION"[ \t]*"(" {
    //printf("RESET_CONDITION\n");
    yy_push_state(PREPROC_RESET_COND, yyscanner);
}
<PREPROC_RESET_COND>{ID} {
    //printf("preproc reset condition '%s'\n", yytext);
    bool success = yyextra->resetPreprocessorCondition(yytext);
    if (!success) {
        SCANNER_ERR((String("Preprocessor: could not reset condition '") +
                    yytext + "' (either not set or a built-in condition).").c_str());
    }
}
<PREPROC_RESET_COND>[ \t]*")" {
    //printf("End of RESET_CONDITION\n");
    yy_pop_state(yyscanner);
}


 /* Preprocessor conditional statements:

    USE_CODE_IF(name)
      ...
    END_USE_CODE

    and:

    USE_CODE_IF_NOT(name)
      ...
    END_USE_CODE    
 */

<*>"USE_CODE_IF"[ \t]*"(" {
    //printf("{%s}\n", yytext);
    yy_push_state(PREPROC_IF, yyscanner);
}
<PREPROC_BODY_EAT>"USE_CODE_IF"[ \t]*"("{ID}")" {
    //printf("[EAT{%s}\n", yytext);
    yy_push_state(PREPROC_BODY_EAT, yyscanner);
}
<*>"USE_CODE_IF_NOT"[ \t]*"(" {
    //printf("USE_CODE_IF_NOT\n");
    yy_push_state(PREPROC_IF_NOT, yyscanner);
}
<PREPROC_BODY_EAT>"USE_CODE_IF_NOT"[ \t]*"("{ID}")" {
    //printf("[EAT{%s}\n", yytext);
    yy_push_state(PREPROC_BODY_EAT, yyscanner);
}
<PREPROC_IF>{ID} {
    //printf("preproc use code if '%s'\n", yytext);
    yy_pop_state(yyscanner);
    if (yyextra->isPreprocessorConditionSet(yytext))
        yy_push_state(PREPROC_PRE_BODY_USE, yyscanner);
    else
        yy_push_state(PREPROC_PRE_BODY_EAT, yyscanner);
}
<PREPROC_IF_NOT>{ID} {
    //printf("preproc use code if not '%s'\n", yytext);
    yy_pop_state(yyscanner);
    if (!yyextra->isPreprocessorConditionSet(yytext))
        yy_push_state(PREPROC_PRE_BODY_USE, yyscanner);
    else
        yy_push_state(PREPROC_PRE_BODY_EAT, yyscanner);
}
<PREPROC_PRE_BODY_USE>[ \t]*")" {
    yy_pop_state(yyscanner);
    yy_push_state(PREPROC_BODY_USE, yyscanner);
}
<PREPROC_PRE_BODY_EAT>[ \t]*")" {
    //printf("PREPROCESSOR EAT : {%s}\n", yytext);
    yy_pop_state(yyscanner);
    yy_push_state(PREPROC_BODY_EAT, yyscanner);
}
<PREPROC_BODY_EAT,PREPROC_BODY_USE>"END_USE_CODE" {
    //printf("-->END_USE_CODE\n");
    yy_pop_state(yyscanner);
}
<PREPROC_BODY_EAT>[ \t\r\n]* { /* eat up code block filtered out by preprocessor */
    //printf("PREPROCESSOR EAT2 : {%s}\n", yytext);
    processLocation();
}
<PREPROC_BODY_EAT>.* { /* eat up code block filtered out by preprocessor */
    //printf("PREPROCESSOR EAT3 : {%s}\n", yytext);
    yyextra->addPreprocessorComment(yylloc->first_line, yylloc->last_line,
                                    yylloc->first_column+1, yylloc->last_column+1,
                                    yylloc->first_byte, yylloc->length_bytes);
}


 /* Language keywords */

"on" return ON;
"end" return END;
"note" return NOTE;
"init" return INIT;
"declare" return DECLARE;
"while" return WHILE;
"if" return IF;
".or." return BITWISE_OR;
"or" return OR;
"release" return RELEASE;
".and." return BITWISE_AND;
"and" return AND;
".not." return BITWISE_NOT;
"not" return NOT;
"else" return ELSE;
"controller" return CONTROLLER;
"rpn" return RPN;
"nrpn" return NRPN;
"case" return CASE;
"select" return SELECT;
"to" return TO;
"<=" return LE;
">=" return GE;
"const" return CONST_; // note: "CONST" is already defined for C/C++ compilers on Windows by default
"polyphonic" return POLYPHONIC;
"patch" return PATCH;
"mod" return MOD;
"function" return FUNCTION;
"call" return CALL;
"synchronized" return SYNCHRONIZED;

[&,!()[\]<>=*+#\/-] {
    return *yytext;
}

("$"|"@"|"%"|"~"|"?"){ID} {
    yylval->sValue = strdup(yytext);
    yyextra->autoFreeAfterParse(yylval->sValue);
    return VARIABLE;
}

{ID} {
    yylval->sValue = strdup(yytext);
    yyextra->autoFreeAfterParse(yylval->sValue);
    return IDENTIFIER;
}

":=" return ASSIGNMENT;

\n+ {
     yylineno += countNewLineChars(yytext);
     yycolumn = 0;
    //printf("lex: new line %d\n", yylineno, yytext);
    //return LF;
}

"{"[^}]*"}" { /* eat up comments */
    processLocation();
}

[ \t\r]+ /* eat up whitespace */

. {
    printf( "Unrecognized character: '%s' (line %d, column %d)\n", yytext, yylineno, yycolumn);
    return UNKNOWN_CHAR;
}

%%

namespace LinuxSampler {

void ParserContext::createScanner(std::istream* is) {
   if (scanner) destroyScanner();
   this->is = is;
   yylex_init(&scanner);
   yyset_extra(this, scanner);
}

void ParserContext::destroyScanner() {
   if (!scanner) return;
   yylex_destroy(scanner);
   scanner = NULL;
}

} // namespace LinuxSampler
1	schoenebeck	2581	/*
2	schoenebeck	3259	* Copyright (c) 2014-2017 Christian Schoenebeck and Andreas Persson
3	schoenebeck	2581	*
4			* http://www.linuxsampler.org
5			*
6			* This file is part of LinuxSampler and released under the same terms.
7			* See README file for details.
8			*/
9
10	schoenebeck	2888	/* Token scanner for NKSP real-time instrument script language. */
11	schoenebeck	2581
12			%{
13
14			#include "parser_shared.h"
15			#include <math.h>
16			// reentrant scanner data context
17			#define YY_EXTRA_TYPE ParserContext*
18			// set line number each time a token is recognized
19			#define YY_USER_ACTION \
20			{ \
21			yylloc->first_line = yylineno; \
22			yylloc->last_line = yylineno; \
23	schoenebeck	2888	yylloc->first_column = yycolumn; \
24	schoenebeck	3729	yylloc->first_byte = yyextra->nbytes; \
25			yylloc->length_bytes = (int) yyleng; \
26	schoenebeck	2888	yycolumn += yyleng; \
27	schoenebeck	3729	yyextra->nbytes += (int) yyleng; \
28	schoenebeck	2888	yylloc->last_column = yycolumn - 1; \
29	schoenebeck	2581	/printf("lex: line '%s'\n", yytext);/ \
30			}
31			// custom (f)lex input for reading from std::istream object
32			#define YY_INPUT(buf,result,max_size) \
33			{ \
34			char c = yyextra->is->get(); \
35			if (yyextra->is->eof()) \
36			result = YY_NULL; \
37			else { \
38			buf[0] = c; \
39			result = 1; \
40			} \
41			}
42
43			static void scanner_error(YYLTYPE* locp, LinuxSampler::ParserContext* context, const char* err) {
44	schoenebeck	3729	context->addErr(locp->first_line, locp->last_line, locp->first_column,
45			locp->last_column, locp->first_byte, locp->length_bytes,
46			err);
47	schoenebeck	2581	}
48
49			static void scanner_warning(YYLTYPE* locp, LinuxSampler::ParserContext* context, const char* txt) {
50	schoenebeck	3729	context->addWrn(locp->first_line, locp->last_line, locp->first_column,
51			locp->last_column, locp->first_byte, locp->length_bytes,
52			txt);
53	schoenebeck	2581	}
54
55			#define SCANNER_ERR(txt) scanner_error(yylloc, yyextra, txt)
56			#define SCANNER_WRN(txt) scanner_warning(yylloc, yyextra, txt)
57
58	schoenebeck	3054	// shut up warning that 'register' keyword is deprecated as of C++11
59			#if defined(__cplusplus) && __cplusplus >= 201103L
60			# define register
61			#endif
62
63	schoenebeck	2581	using namespace LinuxSampler;
64
65	schoenebeck	2888	static int countNewLineChars(const char* txt) {
66			int n = 0;
67			for (int i = 0; txt[i]; ++i)
68			if (txt[i] == '\n') ++n;
69			return n;
70			}
71
72			static int countCharsPastLastNewLine(const char* txt) {
73	schoenebeck	3054	const int n = (int)strlen(txt);
74	schoenebeck	2888	for (int i = n - 1; i >= 0; --i)
75			if (txt[i] == '\n')
76			return n - i - 1;
77			return n;
78			}
79
80			#define processLocation() { \
81			const int nl = countNewLineChars(yytext); \
82			yylineno += nl; \
83			if (nl) yycolumn = countCharsPastLastNewLine(yytext); \
84			}
85
86	schoenebeck	3308	// if compiled for debugging, throw an exception instead of exiting on fatal
87			// lexer errors (so the debugger may pause with the appropriate back trace)
88			#if DEBUG
89			# include <stdexcept>
90			# define YY_FATAL_ERROR(msg) throw std::runtime_error(msg)
91			#endif
92
93	schoenebeck	2581	%}
94
95	schoenebeck	2888	/* use Flex's built-in support for line numbers
96			(disabled, because it seems to be unreliable, so we are using our own
97			tracking code in the respective scanner rules below) */
98			/%option yylineno/
99	schoenebeck	2581	/* generate a reentrant safe scanner */
100			%option reentrant
101			/* avoid symbol collision with other (i.e. future) scanner symbols */
102			%option prefix="InstrScript_"
103			/* bison-bridge adds an argument yylval to yylex, and bison-locations adds an
104			argument code yylloc for location tracking. */
105			%option bison-bridge
106			%option bison-locations
107			/* yywrap() would be called at EOF, we don't need it */
108			%option noyywrap
109			/* enable functions yy_push_state(), yy_pop_state(), yy_top_state() */
110			%option stack
111
112			/* inclusive scanner conditions */
113			%s PREPROC_BODY_USE
114			/* exclusive scanner conditions */
115			%x PREPROC_SET_COND PREPROC_RESET_COND PREPROC_IF PREPROC_IF_NOT PREPROC_BODY_EAT PREPROC_PRE_BODY_USE PREPROC_PRE_BODY_EAT
116
117			DIGIT [0-9]
118	schoenebeck	3561	ID [a-zA-Z][a-zA-Z0-9_]*
119			METRIC (k\|h\|(da)\|d\|c\|m\|u)
120			UNIT (s\|(Hz)\|B)
121	schoenebeck	2581
122			%%
123
124			\"[^"]*\" {
125	schoenebeck	3836	char* s = strdup(yytext + 1);
126			s[strlen(s) - 1] = '\0';
127			yylval->sValue = s;
128			yyextra->autoFreeAfterParse(s);
129	schoenebeck	2581	return STRING;
130			}
131
132			{DIGIT}+ {
133	schoenebeck	3557	if (sizeof(vmint) < 8)
134			yylval->iValue = atoi(yytext);
135			else
136			yylval->iValue = atoll(yytext);
137	schoenebeck	2581	return INTEGER;
138			}
139
140	schoenebeck	3573	{DIGIT}+"."{DIGIT}+ {
141			yylval->fValue = atof(yytext);
142			return REAL;
143			}
144
145	schoenebeck	3561	{DIGIT}+({METRIC}{1,2}\|({METRIC}{0,2}{UNIT}?)) {
146			int pos = 0;
147
148			// parse number portion
149			vmint value = 0;
150			for (; yytext[pos] >= '0' && yytext[pos] <= '9'; ++pos) {
151			value *= 10;
152			value += yytext[pos] - '0';
153			}
154			yylval->iUnitValue.iValue = value;
155
156			// parse metric prefix portion
157			for (int i = 0; i < 2; ++i, ++pos) {
158			switch (yytext[pos]) {
159			case 'k': yylval->iUnitValue.prefix[i] = VM_KILO; continue;
160			case 'h': yylval->iUnitValue.prefix[i] = VM_HECTO; continue;
161			case 'c': yylval->iUnitValue.prefix[i] = VM_CENTI; continue;
162			case 'm': yylval->iUnitValue.prefix[i] = VM_MILLI; continue;
163			case 'u': yylval->iUnitValue.prefix[i] = VM_MICRO; continue;
164			case 'd':
165			if (yytext[pos+1] == 'a') {
166			yylval->iUnitValue.prefix[i] = VM_DECA;
167			++pos;
168			} else {
169			yylval->iUnitValue.prefix[i] = VM_DECI;
170			}
171			continue;
172			default:
173			yylval->iUnitValue.prefix[i] = VM_NO_PREFIX;
174	schoenebeck	3573	goto parseIntStdUnit;
175	schoenebeck	3561	}
176			}
177
178	schoenebeck	3573	parseIntStdUnit:
179	schoenebeck	3561
180			// parse standard measurement unit
181			switch (yytext[pos]) {
182			case 's': yylval->iUnitValue.unit = VM_SECOND; break;
183			case 'H': yylval->iUnitValue.unit = VM_HERTZ; break;
184			case 'B': yylval->iUnitValue.unit = VM_BEL; break;
185			default: yylval->iUnitValue.unit = VM_NO_UNIT; break;
186			}
187
188			return INTEGER_UNIT;
189			}
190
191	schoenebeck	3573	{DIGIT}+"."{DIGIT}+({METRIC}{1,2}\|({METRIC}{0,2}{UNIT}?)) {
192			int pos = 0;
193	schoenebeck	2581
194	schoenebeck	3573	// parse number portion
195			for (; (yytext[pos] >= '0' && yytext[pos] <= '9') \|\| yytext[pos] == '.'; ++pos) {
196			}
197			{
198			const char tmp = yytext[pos];
199			yytext[pos] = 0; // mark temporary end of string
200			yylval->fUnitValue.fValue = atof(yytext);
201			yytext[pos] = tmp; // restore
202			}
203	schoenebeck	2581
204	schoenebeck	3573	// parse metric prefix portion
205			for (int i = 0; i < 2; ++i, ++pos) {
206			switch (yytext[pos]) {
207			case 'k': yylval->fUnitValue.prefix[i] = VM_KILO; continue;
208			case 'h': yylval->fUnitValue.prefix[i] = VM_HECTO; continue;
209			case 'c': yylval->fUnitValue.prefix[i] = VM_CENTI; continue;
210			case 'm': yylval->fUnitValue.prefix[i] = VM_MILLI; continue;
211			case 'u': yylval->fUnitValue.prefix[i] = VM_MICRO; continue;
212			case 'd':
213			if (yytext[pos+1] == 'a') {
214			yylval->fUnitValue.prefix[i] = VM_DECA;
215			++pos;
216			} else {
217			yylval->fUnitValue.prefix[i] = VM_DECI;
218			}
219			continue;
220			default:
221			yylval->fUnitValue.prefix[i] = VM_NO_PREFIX;
222			goto parseRealStdUnit;
223			}
224			}
225
226			parseRealStdUnit:
227
228			// parse standard measurement unit
229			switch (yytext[pos]) {
230			case 's': yylval->fUnitValue.unit = VM_SECOND; break;
231			case 'H': yylval->fUnitValue.unit = VM_HERTZ; break;
232			case 'B': yylval->fUnitValue.unit = VM_BEL; break;
233			default: yylval->fUnitValue.unit = VM_NO_UNIT; break;
234			}
235
236			return REAL_UNIT;
237			}
238
239
240	schoenebeck	2581	/* Preprocessor statement: SET_CONDITION(name) */
241
242			<>"SET_CONDITION"[ \t]"(" {
243	schoenebeck	2588	//printf("SET_CONDITION\n");
244	schoenebeck	2581	yy_push_state(PREPROC_SET_COND, yyscanner);
245			}
246			<PREPROC_SET_COND>{ID} {
247	schoenebeck	2588	//printf("preproc set condition '%s'\n", yytext);
248	schoenebeck	2581	bool success = yyextra->setPreprocessorCondition(yytext);
249			if (!success) {
250			SCANNER_WRN((String("Preprocessor: Condition '") +
251			yytext + "' is already set.").c_str());
252			}
253			}
254			<PREPROC_SET_COND>[ \t]*")" {
255	schoenebeck	2588	//printf("End of PREPROC_SET_COND\n");
256	schoenebeck	2581	yy_pop_state(yyscanner);
257			}
258
259
260			/* Preprocessor statement: RESET_CONDITION(name) */
261
262			<>"RESET_CONDITION"[ \t]"(" {
263	schoenebeck	2588	//printf("RESET_CONDITION\n");
264	schoenebeck	2581	yy_push_state(PREPROC_RESET_COND, yyscanner);
265			}
266			<PREPROC_RESET_COND>{ID} {
267	schoenebeck	2588	//printf("preproc reset condition '%s'\n", yytext);
268	schoenebeck	2581	bool success = yyextra->resetPreprocessorCondition(yytext);
269			if (!success) {
270			SCANNER_ERR((String("Preprocessor: could not reset condition '") +
271			yytext + "' (either not set or a built-in condition).").c_str());
272			}
273			}
274			<PREPROC_RESET_COND>[ \t]*")" {
275	schoenebeck	2588	//printf("End of RESET_CONDITION\n");
276	schoenebeck	2581	yy_pop_state(yyscanner);
277			}
278
279
280			/* Preprocessor conditional statements:
281
282			USE_CODE_IF(name)
283			...
284			END_USE_CODE
285
286			and:
287
288			USE_CODE_IF_NOT(name)
289			...
290			END_USE_CODE
291			*/
292
293			<>"USE_CODE_IF"[ \t]"(" {
294	schoenebeck	3308	//printf("{%s}\n", yytext);
295	schoenebeck	2581	yy_push_state(PREPROC_IF, yyscanner);
296			}
297	schoenebeck	3308	<PREPROC_BODY_EAT>"USE_CODE_IF"[ \t]*"("{ID}")" {
298			//printf("[EAT{%s}\n", yytext);
299			yy_push_state(PREPROC_BODY_EAT, yyscanner);
300			}
301	schoenebeck	2581	<>"USE_CODE_IF_NOT"[ \t]"(" {
302	schoenebeck	2588	//printf("USE_CODE_IF_NOT\n");
303	schoenebeck	2581	yy_push_state(PREPROC_IF_NOT, yyscanner);
304			}
305	schoenebeck	3308	<PREPROC_BODY_EAT>"USE_CODE_IF_NOT"[ \t]*"("{ID}")" {
306			//printf("[EAT{%s}\n", yytext);
307			yy_push_state(PREPROC_BODY_EAT, yyscanner);
308			}
309	schoenebeck	2581	<PREPROC_IF>{ID} {
310	schoenebeck	2588	//printf("preproc use code if '%s'\n", yytext);
311	schoenebeck	2581	yy_pop_state(yyscanner);
312			if (yyextra->isPreprocessorConditionSet(yytext))
313			yy_push_state(PREPROC_PRE_BODY_USE, yyscanner);
314			else
315			yy_push_state(PREPROC_PRE_BODY_EAT, yyscanner);
316			}
317			<PREPROC_IF_NOT>{ID} {
318	schoenebeck	2588	//printf("preproc use code if not '%s'\n", yytext);
319	schoenebeck	2581	yy_pop_state(yyscanner);
320			if (!yyextra->isPreprocessorConditionSet(yytext))
321			yy_push_state(PREPROC_PRE_BODY_USE, yyscanner);
322			else
323			yy_push_state(PREPROC_PRE_BODY_EAT, yyscanner);
324			}
325			<PREPROC_PRE_BODY_USE>[ \t]*")" {
326			yy_pop_state(yyscanner);
327			yy_push_state(PREPROC_BODY_USE, yyscanner);
328			}
329			<PREPROC_PRE_BODY_EAT>[ \t]*")" {
330	schoenebeck	3308	//printf("PREPROCESSOR EAT : {%s}\n", yytext);
331	schoenebeck	2581	yy_pop_state(yyscanner);
332			yy_push_state(PREPROC_BODY_EAT, yyscanner);
333			}
334	schoenebeck	3308	<PREPROC_BODY_EAT,PREPROC_BODY_USE>"END_USE_CODE" {
335	schoenebeck	2588	//printf("-->END_USE_CODE\n");
336	schoenebeck	2581	yy_pop_state(yyscanner);
337			}
338	schoenebeck	2888	<PREPROC_BODY_EAT>[ \t\r\n]* { /* eat up code block filtered out by preprocessor */
339	schoenebeck	3308	//printf("PREPROCESSOR EAT2 : {%s}\n", yytext);
340	schoenebeck	2888	processLocation();
341			}
342			<PREPROC_BODY_EAT>.* { /* eat up code block filtered out by preprocessor */
343	schoenebeck	3308	//printf("PREPROCESSOR EAT3 : {%s}\n", yytext);
344	schoenebeck	3285	yyextra->addPreprocessorComment(yylloc->first_line, yylloc->last_line,
345	schoenebeck	3729	yylloc->first_column+1, yylloc->last_column+1,
346			yylloc->first_byte, yylloc->length_bytes);
347	schoenebeck	2888	}
348	schoenebeck	2581
349
350			/* Language keywords */
351
352			"on" return ON;
353			"end" return END;
354			"note" return NOTE;
355			"init" return INIT;
356			"declare" return DECLARE;
357			"while" return WHILE;
358			"if" return IF;
359	schoenebeck	2935	".or." return BITWISE_OR;
360	schoenebeck	2581	"or" return OR;
361			"release" return RELEASE;
362	schoenebeck	2935	".and." return BITWISE_AND;
363	schoenebeck	2581	"and" return AND;
364	schoenebeck	2935	".not." return BITWISE_NOT;
365	schoenebeck	2581	"not" return NOT;
366			"else" return ELSE;
367			"controller" return CONTROLLER;
368	schoenebeck	3690	"rpn" return RPN;
369			"nrpn" return NRPN;
370	schoenebeck	2581	"case" return CASE;
371			"select" return SELECT;
372			"to" return TO;
373			"<=" return LE;
374			">=" return GE;
375	schoenebeck	2585	"const" return CONST_; // note: "CONST" is already defined for C/C++ compilers on Windows by default
376	schoenebeck	2581	"polyphonic" return POLYPHONIC;
377	schoenebeck	3733	"patch" return PATCH;
378	schoenebeck	2581	"mod" return MOD;
379	schoenebeck	2951	"function" return FUNCTION;
380			"call" return CALL;
381	schoenebeck	3260	"synchronized" return SYNCHRONIZED;
382	schoenebeck	2581
383	schoenebeck	3561	[&,!()[\]<>=*+#\/-] {
384	schoenebeck	2935	return *yytext;
385	schoenebeck	2581	}
386
387	schoenebeck	3573	("$"\|"@"\|"%"\|"~"\|"?"){ID} {
388	schoenebeck	2581	yylval->sValue = strdup(yytext);
389	schoenebeck	3836	yyextra->autoFreeAfterParse(yylval->sValue);
390	schoenebeck	2581	return VARIABLE;
391			}
392
393			{ID} {
394			yylval->sValue = strdup(yytext);
395	schoenebeck	3836	yyextra->autoFreeAfterParse(yylval->sValue);
396	schoenebeck	2581	return IDENTIFIER;
397			}
398
399			":=" return ASSIGNMENT;
400
401			\n+ {
402	schoenebeck	2888	yylineno += countNewLineChars(yytext);
403			yycolumn = 0;
404	schoenebeck	2581	//printf("lex: new line %d\n", yylineno, yytext);
405			//return LF;
406			}
407
408	schoenebeck	2888	"{"[^}]"}" { / eat up comments */
409			processLocation();
410			}
411	schoenebeck	2581
412			[ \t\r]+ /* eat up whitespace */
413
414	schoenebeck	3259	. {
415			printf( "Unrecognized character: '%s' (line %d, column %d)\n", yytext, yylineno, yycolumn);
416			return UNKNOWN_CHAR;
417			}
418	schoenebeck	2581
419			%%
420
421			namespace LinuxSampler {
422
423			void ParserContext::createScanner(std::istream* is) {
424			if (scanner) destroyScanner();
425			this->is = is;
426			yylex_init(&scanner);
427			yyset_extra(this, scanner);
428			}
429
430			void ParserContext::destroyScanner() {
431			if (!scanner) return;
432			yylex_destroy(scanner);
433			scanner = NULL;
434			}
435
436			} // namespace LinuxSampler