diff options
| author | Adrian Thurston <thurston@complang.org> | 2012-07-16 16:17:10 -0400 |
|---|---|---|
| committer | Adrian Thurston <thurston@complang.org> | 2012-07-16 16:17:10 -0400 |
| commit | 6d0a84f5ff7c3b298424a771c36792a9de2154fc (patch) | |
| tree | 048d56f661959f02b5b6bcab2308328ff28c05cf /src/lmscan.rl | |
| parent | 0cfd35f7dc13f3aef71ab7f05fb4da8330118939 (diff) | |
| download | colm-6d0a84f5ff7c3b298424a771c36792a9de2154fc.tar.gz | |
minor cleanup around parsing
Diffstat (limited to 'src/lmscan.rl')
| -rw-r--r-- | src/lmscan.rl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/lmscan.rl b/src/lmscan.rl index 070a1e66..583c62e6 100644 --- a/src/lmscan.rl +++ b/src/lmscan.rl @@ -285,7 +285,7 @@ void ColmScanner::endSection( ) } %%{ - machine rlscan; + machine lmscan; # This is sent by the driver code. EOF = 0; @@ -532,7 +532,7 @@ void ColmScanner::endSection( ) '||' => { token( TK_BarBar ); }; '<<' => { token( TK_LtLt ); }; - ('+' | '-' | '*' | '/' | '(' | ')' | '@' | '$' | '^' ) => { token( *ts ); }; + ( '+' | '-' | '*' | '/' | '(' | ')' | '@' | '$' | '^' ) => { token( *ts ); }; # Whitespace other than newline. @@ -598,7 +598,7 @@ void ColmScanner::scan() %% write exec; /* Check if we failed. */ - if ( cs == rlscan_error ) { + if ( cs == lmscan_error ) { /* Machine failed before finding a token. I'm not yet sure if this * is reachable. */ scan_error() << "colm scanner error (metalanguage)" << endl; |