-#include <string>
+/** @file lexer.cpp
+ *
+ * Implementation of GiNaC's lexer. */
+
+/*
+ * GiNaC Copyright (C) 1999-2015 Johannes Gutenberg University Mainz, Germany
+ *
+ * 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 2 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, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ */
+
+#include "lexer.h"
+#include "compiler.h"
+
#include <iostream>
#include <sstream>
-#include "lexer.hpp"
-#include "compiler.h"
+#include <string>
+#include <cstdio>
+
+namespace GiNaC {
-namespace GiNaC
-{
/// Skip to the end of line
static int skipline(std::istream* s);
/// Skip to the next non-whitespace character
// Skip any whitespace.
c = skipspace(input, c, line_num);
- // identifier: [a-zA-Z][a-zA-Z0-9]*
+ // identifier: [a-zA-Z][a-zA-Z0-9_]*
if (isalpha(c)) {
str = c;
do {
c = input->get();
- if (isalnum(c))
+ if ( isalnum(c) || c=='_' )
str += c;
else
break;
return token_type::identifier;
}
- // Number: [0-9.]+
+ // Number: [0-9]+([.][0-9]*(eE[+-][0-9]+)*)*
if (isdigit(c) || c == '.') {
str = "";
do {
str += c;
c = input->get();
} while (isdigit(c) || c == '.');
+ if (c == 'E' || c == 'e') {
+ str += 'E';
+ c = input->get();
+ if (isdigit(c))
+ str += '+';
+ do {
+ str += c;
+ c = input->get();
+ } while (isdigit(c));
+ }
return token_type::number;
}
c = ' ';
}
-} // namespace GiNaC
+/// Symbolic name of current token (for error reporting)
+std::string lexer::tok2str(const int tok) const
+{
+ switch (tok) {
+ case lexer::token_type::identifier:
+ case lexer::token_type::number:
+ return std::string("\"") + str + "\"";
+ case lexer::token_type::eof:
+ return std::string("EOF");
+ default:
+ return std::string("\"") + char(tok) + "\"";
+ }
+}
+} // namespace GiNaC