* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. *
******************************************************************************/
-#include "config/configcompiler.h"
-#include "config/typerule.h"
-#include "config/configcompilercontext.h"
+#include "config/configcompiler.hpp"
+#include "config/typerule.hpp"
+#include "config/expression.hpp"
using namespace icinga;
#include "config/config_parser.hh"
#include <sstream>
-#define YYLTYPE icinga::DebugInfo
+#define YYLTYPE icinga::CompilerDebugInfo
#define YY_EXTRA_TYPE ConfigCompiler *
#define YY_USER_ACTION \
do { \
result = yyextra->ReadInput(buf, max_size); \
} while (0)
-
-struct lex_buf {
- char *buf;
- size_t size;
-};
-
-static void lb_init(lex_buf *lb)
-{
- lb->buf = NULL;
- lb->size = 0;
-}
-
-static void lb_cleanup(lex_buf *lb)
-{
- free(lb->buf);
-}
-
-static void lb_append_char(lex_buf *lb, char new_char)
-{
- const size_t block_size = 64;
-
- size_t old_blocks = (lb->size + (block_size - 1)) / block_size;
- size_t new_blocks = ((lb->size + 1) + (block_size - 1)) / block_size;
-
- if (old_blocks != new_blocks) {
- char *new_buf = (char *)realloc(lb->buf, new_blocks * block_size);
-
- if (new_buf == NULL && new_blocks > 0)
- throw std::bad_alloc();
-
- lb->buf = new_buf;
- }
-
- lb->size++;
- lb->buf[lb->size - 1] = new_char;
-}
-
-static char *lb_steal(lex_buf *lb)
-{
- lb_append_char(lb, '\0');
-
- char *buf = lb->buf;
- lb->buf = NULL;
- lb->size = 0;
- return buf;
-}
%}
%option reentrant noyywrap yylineno
%option bison-bridge bison-locations
%option never-interactive nounistd
+%option noinput nounput
%x C_COMMENT
%x STRING
%x HEREDOC
%%
- lex_buf string_buf;
+\" {
+ yyextra->m_LexBuffer.str("");
+ yyextra->m_LexBuffer.clear();
+
+ yyextra->m_LocationBegin = *yylloc;
-\" { lb_init(&string_buf); BEGIN(STRING); }
+ BEGIN(STRING);
+ }
<STRING>\" {
BEGIN(INITIAL);
- lb_append_char(&string_buf, '\0');
+ yylloc->FirstLine = yyextra->m_LocationBegin.FirstLine;
+ yylloc->FirstColumn = yyextra->m_LocationBegin.FirstColumn;
- yylval->text = lb_steal(&string_buf);
+ std::string str = yyextra->m_LexBuffer.str();
+ yylval->text = strdup(str.c_str());
return T_STRING;
}
<STRING>\n {
- std::ostringstream msgbuf;
- msgbuf << "Unterminated string found: " << *yylloc;
- ConfigCompilerContext::GetInstance()->AddMessage(true, msgbuf.str());
- BEGIN(INITIAL);
+ BOOST_THROW_EXCEPTION(ScriptError("Unterminated string literal", DebugInfoRange(yyextra->m_LocationBegin, *yylloc)));
}
<STRING>\\[0-7]{1,3} {
if (result > 0xff) {
/* error, constant is out-of-bounds */
- std::ostringstream msgbuf;
- msgbuf << "Constant is out-of-bounds: " << yytext << " " << *yylloc;
- ConfigCompilerContext::GetInstance()->AddMessage(true, msgbuf.str());
+ BOOST_THROW_EXCEPTION(ScriptError("Constant is out of bounds: " + String(yytext), *yylloc));
}
- lb_append_char(&string_buf, result);
+ yyextra->m_LexBuffer << static_cast<char>(result);
}
<STRING>\\[0-9]+ {
/* generate error - bad escape sequence; something
* like '\48' or '\0777777'
*/
- std::ostringstream msgbuf;
- msgbuf << "Bad escape sequence found: " << yytext << " " << *yylloc;
- ConfigCompilerContext::GetInstance()->AddMessage(true, msgbuf.str());
+ BOOST_THROW_EXCEPTION(ScriptError("Bad escape sequence found: " + String(yytext), *yylloc));
}
-<STRING>\\n { lb_append_char(&string_buf, '\n'); }
-<STRING>\\t { lb_append_char(&string_buf, '\t'); }
-<STRING>\\r { lb_append_char(&string_buf, '\r'); }
-<STRING>\\b { lb_append_char(&string_buf, '\b'); }
-<STRING>\\f { lb_append_char(&string_buf, '\f'); }
-<STRING>\\(.|\n) { lb_append_char(&string_buf, yytext[1]); }
+<STRING>\\n { yyextra->m_LexBuffer << "\n"; }
+<STRING>\\t { yyextra->m_LexBuffer << "\t"; }
+<STRING>\\r { yyextra->m_LexBuffer << "\r"; }
+<STRING>\\b { yyextra->m_LexBuffer << "\b"; }
+<STRING>\\f { yyextra->m_LexBuffer << "\f"; }
+<STRING>\\\n { yyextra->m_LexBuffer << yytext[1]; }
+<STRING>\\. {
+ BOOST_THROW_EXCEPTION(ScriptError("Bad escape sequence found: " + String(yytext), *yylloc));
+ }
<STRING>[^\\\n\"]+ {
char *yptr = yytext;
while (*yptr)
- lb_append_char(&string_buf, *yptr++);
+ yyextra->m_LexBuffer << *yptr++;
}
-\{\{\{ { lb_init(&string_buf); BEGIN(HEREDOC); }
+<STRING><<EOF>> {
+ BOOST_THROW_EXCEPTION(ScriptError("End-of-file while in string literal", DebugInfoRange(yyextra->m_LocationBegin, *yylloc)));
+ }
+
+\{\{\{ {
+ yyextra->m_LexBuffer.str("");
+ yyextra->m_LexBuffer.clear();
+
+ yyextra->m_LocationBegin = *yylloc;
+
+ BEGIN(HEREDOC);
+ }
<HEREDOC>\}\}\} {
BEGIN(INITIAL);
- lb_append_char(&string_buf, '\0');
+ yylloc->FirstLine = yyextra->m_LocationBegin.FirstLine;
+ yylloc->FirstColumn = yyextra->m_LocationBegin.FirstColumn;
- yylval->text = lb_steal(&string_buf);
+ std::string str = yyextra->m_LexBuffer.str();
+ yylval->text = strdup(str.c_str());
return T_STRING;
}
-<HEREDOC>(.|\n) { lb_append_char(&string_buf, yytext[0]); }
+<HEREDOC>(.|\n) { yyextra->m_LexBuffer << yytext[0]; }
<INITIAL>{
"/*" BEGIN(C_COMMENT);
}
<C_COMMENT><<EOF>> {
- std::ostringstream msgbuf;
- msgbuf << "End-of-file while in comment: " << yytext << " " << *yylloc;
- ConfigCompilerContext::GetInstance()->AddMessage(true, msgbuf.str());
- yyterminate();
- }
+ BOOST_THROW_EXCEPTION(ScriptError("End-of-file while in comment", *yylloc));
+ }
\/\/[^\n]* /* ignore C++-style comments */
-[ \t\r\n] /* ignore whitespace */
+#[^\n]* /* ignore shell-style comments */
+[ \t] /* ignore whitespace */
<INITIAL>{
%type return T_TYPE;
include_recursive return T_INCLUDE_RECURSIVE;
library return T_LIBRARY;
null return T_NULL;
-partial return T_PARTIAL;
-true { yylval->num = 1; return T_NUMBER; }
-false { yylval->num = 0; return T_NUMBER; }
+true { yylval->boolean = 1; return T_BOOLEAN; }
+false { yylval->boolean = 0; return T_BOOLEAN; }
const return T_CONST;
+var return T_VAR;
+this return T_THIS;
+use return T_USE;
apply return T_APPLY;
+to return T_TO;
where return T_WHERE;
import return T_IMPORT;
assign return T_ASSIGN;
ignore return T_IGNORE;
function return T_FUNCTION;
-lambda return T_LAMBDA;
-\<\< { yylval->op = &AExpression::OpShiftLeft; return T_SHIFT_LEFT; }
-\>\> { yylval->op = &AExpression::OpShiftRight; return T_SHIFT_RIGHT; }
-\<= { yylval->op = &AExpression::OpLessThanOrEqual; return T_LESS_THAN_OR_EQUAL; }
-\>= { yylval->op = &AExpression::OpGreaterThanOrEqual; return T_GREATER_THAN_OR_EQUAL; }
-== { yylval->op = &AExpression::OpEqual; return T_EQUAL; }
-!= { yylval->op = &AExpression::OpNotEqual; return T_NOT_EQUAL; }
-!in { yylval->op = &AExpression::OpNotIn; return T_NOT_IN; }
-in { yylval->op = &AExpression::OpIn; return T_IN; }
-&& { yylval->op = &AExpression::OpLogicalAnd; return T_LOGICAL_AND; }
-\|\| { yylval->op = &AExpression::OpLogicalOr; return T_LOGICAL_OR; }
-[a-zA-Z_][a-zA-Z0-9\-_]* { yylval->text = strdup(yytext); return T_IDENTIFIER; }
+return return T_RETURN;
+for return T_FOR;
+if return T_IF;
+else return T_ELSE;
+=\> return T_FOLLOWS;
+\<\< return T_SHIFT_LEFT;
+\>\> return T_SHIFT_RIGHT;
+\<= return T_LESS_THAN_OR_EQUAL;
+\>= return T_GREATER_THAN_OR_EQUAL;
+== return T_EQUAL;
+!= return T_NOT_EQUAL;
+!in return T_NOT_IN;
+in return T_IN;
+&& return T_LOGICAL_AND;
+\|\| return T_LOGICAL_OR;
+[a-zA-Z_][a-zA-Z0-9\_]* { yylval->text = strdup(yytext); return T_IDENTIFIER; }
+@[a-zA-Z_][a-zA-Z0-9\_]* { yylval->text = strdup(yytext + 1); return T_IDENTIFIER; }
\<[^\>]*\> { yytext[yyleng-1] = '\0'; yylval->text = strdup(yytext + 1); return T_STRING_ANGLE; }
--?[0-9]+(\.[0-9]+)?ms { yylval->num = strtod(yytext, NULL) / 1000; return T_NUMBER; }
--?[0-9]+(\.[0-9]+)?d { yylval->num = strtod(yytext, NULL) * 60 * 60 * 24; return T_NUMBER; }
--?[0-9]+(\.[0-9]+)?h { yylval->num = strtod(yytext, NULL) * 60 * 60; return T_NUMBER; }
--?[0-9]+(\.[0-9]+)?m { yylval->num = strtod(yytext, NULL) * 60; return T_NUMBER; }
--?[0-9]+(\.[0-9]+)?s { yylval->num = strtod(yytext, NULL); return T_NUMBER; }
--?[0-9]+(\.[0-9]+)? { yylval->num = strtod(yytext, NULL); return T_NUMBER; }
-= { yylval->op = &AExpression::OpSet; return T_SET; }
-\+= { yylval->op = &AExpression::OpSetPlus; return T_SET_PLUS; }
--= { yylval->op = &AExpression::OpSetMinus; return T_SET_MINUS; }
-\*= { yylval->op = &AExpression::OpSetMultiply; return T_SET_MULTIPLY; }
-\/= { yylval->op = &AExpression::OpSetDivide; return T_SET_DIVIDE; }
-\+ { yylval->op = &AExpression::OpAdd; return T_PLUS; }
-\- { yylval->op = &AExpression::OpSubtract; return T_MINUS; }
-\* { yylval->op = &AExpression::OpMultiply; return T_MULTIPLY; }
-\/ { yylval->op = &AExpression::OpMultiply; return T_DIVIDE_OP; }
-\& { yylval->op = &AExpression::OpBinaryAnd; return T_BINARY_AND; }
-\| { yylval->op = &AExpression::OpBinaryOr; return T_BINARY_OR; }
-\< { yylval->op = &AExpression::OpLessThan; return T_LESS_THAN; }
-\> { yylval->op = &AExpression::OpLessThan; return T_GREATER_THAN; }
+[0-9]+(\.[0-9]+)?ms { yylval->num = strtod(yytext, NULL) / 1000; return T_NUMBER; }
+[0-9]+(\.[0-9]+)?d { yylval->num = strtod(yytext, NULL) * 60 * 60 * 24; return T_NUMBER; }
+[0-9]+(\.[0-9]+)?h { yylval->num = strtod(yytext, NULL) * 60 * 60; return T_NUMBER; }
+[0-9]+(\.[0-9]+)?m { yylval->num = strtod(yytext, NULL) * 60; return T_NUMBER; }
+[0-9]+(\.[0-9]+)?s { yylval->num = strtod(yytext, NULL); return T_NUMBER; }
+[0-9]+(\.[0-9]+)? { yylval->num = strtod(yytext, NULL); return T_NUMBER; }
+= { yylval->csop = OpSetLiteral; return T_SET; }
+\+= { yylval->csop = OpSetAdd; return T_SET_ADD; }
+-= { yylval->csop = OpSetSubtract; return T_SET_SUBTRACT; }
+\*= { yylval->csop = OpSetMultiply; return T_SET_MULTIPLY; }
+\/= { yylval->csop = OpSetDivide; return T_SET_DIVIDE; }
+\%= { yylval->csop = OpSetModulo; return T_SET_MODULO; }
+\^= { yylval->csop = OpSetXor; return T_SET_XOR; }
+\&= { yylval->csop = OpSetBinaryAnd; return T_SET_BINARY_AND; }
+\|= { yylval->csop = OpSetBinaryOr; return T_SET_BINARY_OR; }
+\+ return T_PLUS;
+\- return T_MINUS;
+\* return T_MULTIPLY;
+\/ return T_DIVIDE_OP;
+\% return T_MODULO;
+\^ return T_XOR;
+\& return T_BINARY_AND;
+\| return T_BINARY_OR;
+\< return T_LESS_THAN;
+\> return T_GREATER_THAN;
}
+[\r\n]+ { yycolumn -= strlen(yytext) - 1; if (!yyextra->m_IgnoreNewlines) return T_NEWLINE; }
+<<EOF>> { if (!yyextra->m_Eof) { yyextra->m_Eof = true; return T_NEWLINE; } else { yyterminate(); } }
. return yytext[0];
%%