--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Bison-Flex/CALC/Bison-Flex/EUC/calc-scanner.ll	Mon May 09 03:11:59 2011 +0900
@@ -0,0 +1,77 @@
+%{
+#include <cstdlib>
+#include <cerrno>
+#include <climits>
+#include <string>
+#include "calc-driver.h"
+#include "calc-parser.hh"
+
+#ifdef _MSC_VER
+#pragma warning(disable:4018)
+#pragma warning(disable:4102)
+#pragma warning(disable:4244)
+#pragma warning(disable:4267)
+#pragma warning(disable:4996)
+#endif
+
+#undef yywrap
+#define yywrap() 1
+
+#define yyterminate()	return token::TK_EOF
+%}
+
+%option noyywrap nounput batch
+%option never-interactive
+%option noyy_scan_buffer
+%option noyy_scan_bytes
+%option noyy_scan_string
+%option nounistd
+
+id    [a-zA-Z_][a-zA-Z_0-9]*
+int   [1-9][0-9]*
+blank [ \t]
+
+%%
+%{
+	typedef yy::calc_parser::token token;
+
+	std::string string_buffer;
+%}
+
+"list"			return token::TK_LIST;
+"print"			return token::TK_PRINT;
+
+[-+*/=()\n]		return yy::calc_parser::token_type(yytext[0]);
+
+{blank}+		;
+{int}			{
+					errno = 0;
+					long n = strtol(yytext, NULL, 10);
+					if (n < LONG_MIN || n > LONG_MAX || errno == ERANGE)
+						driver.error("整数が範囲外です。");
+					yylval->ival = n;
+					return token::TK_IVAL;
+				}
+"0"				{
+					yylval->ival = 0;
+					return token::TK_IVAL;
+				}
+{id}			{
+					yylval->sval = new std::string(yytext);
+					return token::TK_IDENTIFIER;
+				}
+.				driver.error("この文字を識別子で使用することはできません。");
+
+%%
+
+void calc_driver::scan_begin()
+{
+	if ((yyin = fopen(file.c_str(), "r")) == 0)
+		error(file + " がオープンできません。");
+}
+
+void calc_driver::scan_end()
+{
+	fclose(yyin);
+	yylex_destroy();
+}