修改/改寫ErrorToken字符串中階

Question

我在新階。我在字符串文字中遇到問題。這裏是我的代碼：

import scala.util.matching.Regex 
import scala.util.parsing.combinator.lexical.StdLexical 
import scala.util.parsing.combinator.token.StdTokens 
import scala.util.parsing.input.CharArrayReader.EofCh 

trait SimpleTokens extends StdTokens { 
    // Adapted from StdTokens 
    case class FloatLit(chars: String) extends Token { 
    override def toString = "FloatLit "+chars 
    } 
    case class IntLit(chars: String) extends Token { 
    override def toString = "IntLit "+chars 
    } 
    case class BooleanLit(chars: String) extends Token { 
    override def toString = "BooleanLit " + chars 
    } 
    case class StrLit(chars: String) extends Token { 

    override def toString = "\"" + chars.slice(1,chars.length-1) + "\"" 
    } 

} 

class SimpleLexer extends StdLexical with SimpleTokens { 
    import scala.util.parsing.input.CharArrayReader.EofCh 

    reserved ++= List("mod", "div", "array","if","then") 

    delimiters ++= List(";", "(", ")", "+", "-", "*", "/",".") 

    def regex(r: Regex): Parser[String] = new Parser[String] { 
    def apply(in: Input) = { 
     val source = in.source 
     val offset = in.offset 
     (r findPrefixMatchOf (source.subSequence(offset, source.length))) match { 
     case Some(matched) => 
      Success(source.subSequence(offset, offset + matched.end).toString, 
      in.drop(matched.end)) 
     case None => 
      Failure("string matching regex `" + r + "' expected but `" + in.first + "' found", in.drop(0)) 
     } 
    } 
    } 


    override def token: Parser[Token] = { 
    // Adapted from StdLexical 
    (
    regex("true|false".r)     ^^ { BooleanLit(_)} 
    |regex("[a-z][a-z]*".r)     ^^ { processIdent(_) }     
    |regex("""([0-9]*)(((\.)?[0-9]+(e|E)(\+|-)?[0-9]+)|(\.[0-9]+))""".r)    ^^ { FloatLit(_) } 
    |regex("\\d+".r)      ^^ { IntLit(_) } 
    |regex("""'([^'\"]|'')*'""".r)   ^^ {StrLit(_) } 
    |EofCh ^^^ EOF 
    |delim 
    ) 
    } 

    override def whitespace: Parser[Any] = rep(
    whitespaceChar 
     | '/' ~ '*' ~ comment 
     | '/' ~ '*' ~> failure("unclosed comment")) 

    override protected def comment: Parser[Any] = (
    '*' ~ '/' ^^ { case _ => ' ' } 
    | chrExcept(EofCh) ~ comment) 


} 

輸入的是： '這是串

輸出應該是：ErrorToken（未關閉的字符串：' 這是字符串）

但是當我跑，我收到此：

ErrorToken ' 

identifier this 

identifier is 

identifier string 

我有什麼做的就是正確的輸出？請幫幫我！！！謝謝您考慮我的問題

Answer 1

您可以在正則表達式修改：

|regex("""(')[^']*(\t)""".r) ^^ ("Illegal tab in string:"+_) ^^ ErrorToken 
|regex("""(')[^']*""".r) ^^ ("Unclosed string:"+_) ^^ ErrorToken 

PPL-2012？