summaryrefslogtreecommitdiffstats
path: root/dimension/tokenize.l
diff options
context:
space:
mode:
authorTavian Barnes <tavianator@gmail.com>2009-11-23 00:45:10 -0500
committerTavian Barnes <tavianator@gmail.com>2009-11-23 00:45:10 -0500
commit3be0a0b78a3a59d10a53ed08bbff04aa9cafbdad (patch)
tree43619ed9439361930a1995bc9e132742df1c3ddf /dimension/tokenize.l
parentc9d1d7fe7630496ac84428c53b56bc393a450af6 (diff)
downloaddimension-3be0a0b78a3a59d10a53ed08bbff04aa9cafbdad.tar.xz
Support nested /* */ comments.
Diffstat (limited to 'dimension/tokenize.l')
-rw-r--r--dimension/tokenize.l46
1 files changed, 25 insertions, 21 deletions
diff --git a/dimension/tokenize.l b/dimension/tokenize.l
index 5ebd4ed..84b0694 100644
--- a/dimension/tokenize.l
+++ b/dimension/tokenize.l
@@ -17,7 +17,7 @@
* along with this program. If not, see <http://www.gnu.org/licenses/>. *
*************************************************************************/
-%option reentrant yylineno noyywrap
+%option reentrant stack yylineno noyywrap
%{
#define YY_DECL static int yylex(const char *filename, dmnsn_array *tokens, \
@@ -81,15 +81,19 @@ size_t string_length;
unsigned long wchar;
%}
-"/*" BEGIN(DMNSN_BLOCK_COMMENT);
-"//" BEGIN(DMNSN_LINE_COMMENT);
+(?# Comments)
-<DMNSN_BLOCK_COMMENT>"*/" BEGIN(INITIAL);
-<DMNSN_BLOCK_COMMENT>[^*\n]* ;
+<INITIAL,DMNSN_BLOCK_COMMENT>"/*" {
+ yy_push_state(DMNSN_BLOCK_COMMENT, yyscanner);
+}
+<DMNSN_BLOCK_COMMENT>"*/" yy_pop_state(yyscanner);
+<DMNSN_BLOCK_COMMENT>[^*/\n]* ;
+<DMNSN_BLOCK_COMMENT>"/" ;
<DMNSN_BLOCK_COMMENT>"*" ;
<DMNSN_BLOCK_COMMENT>\n ;
-<DMNSN_LINE_COMMENT>\n BEGIN(INITIAL);
+"//" yy_push_state(DMNSN_LINE_COMMENT, yyscanner);
+<DMNSN_LINE_COMMENT>\n yy_pop_state(yyscanner);
<DMNSN_LINE_COMMENT>[^\n]+ ;
(?# Punctuation)
@@ -143,36 +147,36 @@ unsigned long wchar;
(?# Strings)
-"\"" STRING_TOKEN(); BEGIN(DMNSN_STRING);
+"\"" STRING_TOKEN(); yy_push_state(DMNSN_STRING, yyscanner);
<DMNSN_STRING>[^\\\"\n]* STRCAT(yytext, yyleng);
-<DMNSN_STRING>"\"" PUSH(); BEGIN(INITIAL);
+<DMNSN_STRING>"\"" PUSH(); yy_pop_state(yyscanner);
(?# String escape sequences)
-<DMNSN_STRING>"\\" BEGIN(DMNSN_STRING_ESCAPE);
-<DMNSN_STRING_ESCAPE>"a" STRCAT("\a", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"b" STRCAT("\b", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"f" STRCAT("\f", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"n" STRCAT("\n", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"r" STRCAT("\r", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"t" STRCAT("\t", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"v" STRCAT("\v", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"\\" STRCAT("\\", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"'" STRCAT("'", 1); BEGIN(DMNSN_STRING);
-<DMNSN_STRING_ESCAPE>"\"" STRCAT("\"", 1); BEGIN(DMNSN_STRING);
+<DMNSN_STRING>"\\" yy_push_state(DMNSN_STRING_ESCAPE, yyscanner);
+<DMNSN_STRING_ESCAPE>"a" STRCAT("\a", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"b" STRCAT("\b", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"f" STRCAT("\f", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"n" STRCAT("\n", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"r" STRCAT("\r", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"t" STRCAT("\t", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"v" STRCAT("\v", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"\\" STRCAT("\\", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"'" STRCAT("'", 1); yy_pop_state(yyscanner);
+<DMNSN_STRING_ESCAPE>"\"" STRCAT("\"", 1); yy_pop_state(yyscanner);
<DMNSN_STRING_ESCAPE>"u"[[:digit:]aAbBcCdDeEfF]{4} {
wchar = strtoul(yytext + 1, NULL, 16);
STRCAT("", 2);
token.value[string_length - 2] = wchar/256;
token.value[string_length - 1] = wchar%256;
- BEGIN(DMNSN_STRING);
+ yy_pop_state(yyscanner);
}
<DMNSN_STRING_ESCAPE>. {
dmnsn_diagnostic(filename, yylineno, yycolumn,
"WARNING: unrecognised escape sequence '\\%c'",
(int)*yytext);
STRCAT(yytext, yyleng);
- BEGIN(DMNSN_STRING);
+ yy_pop_state(yyscanner);
}
(?# Ignore whitespace)