Simplify the parser by making the end-of-line rule skip comments.

Author: dmsc

src/actions.asm

@@ -173,7 +173,7 @@ ok:     clc
         cmp     #$9b ; Atari EOL
         beq     E_REM::ok
         cmp     #$27 ; "'" starts a comment
-        beq     E_REM::ok
+        beq     E_REM::loop
         cmp     #':' ; ':' separates commands
         beq     E_REM::ok
 xit:    sec

src/basic.syn

@@ -680,13 +680,9 @@ PARSE_LINE_ASSIGN:
         VAR_FP_LVALUE_SADDR EQUAL FP_EXPR emit TOK_FP_STORE
 #@endif FASTBASIC_FP
 
-SKIP_COMMENT:
-        "'" E_REM
-        E_EOL
-
 PARSE_START: statement or variable assignment
-        PARSE_LINE_COMMAND SKIP_COMMENT
-        SKIP_COMMENT
-        PARSE_LINE_ASSIGN SKIP_COMMENT
+        E_EOL
+        PARSE_LINE_COMMAND E_EOL
+        PARSE_LINE_ASSIGN E_EOL
 
 # vi:syntax=perl

src/compiler/parser.cc

@@ -125,13 +125,6 @@ bool SMB_E_NUMBER_BYTE(parse &s)
     return true;
 }
 
-bool SMB_E_EOL(parse &s)
-{
-    s.debug("E_EOL");
-    s.skipws();
-    return( s.eos() || s.peek('\'') || s.peek(':') || s.eol() );
-}
-
 bool SMB_E_CONST_STRING(parse &s)
 {
     s.debug("E_CONST_STRING");
@@ -158,6 +151,15 @@ bool SMB_E_REM(parse &s)
     return true;
 }
 
+bool SMB_E_EOL(parse &s)
+{
+    s.debug("E_EOL");
+    s.skipws();
+    if( s.expect('\'') )
+        return SMB_E_REM(s);
+    return( s.eos() || s.peek(':') || s.eol() );
+}
+
 bool SMB_E_PUSH_VAR(parse &s)
 {
     // nothing to do!