この質問は、コンビネーターパーサーを試す動機になっています。式のサブセットを表す次の代数的データ型があるとします。
import scala.util.parsing.combinator._
object Expr { type VARS = Map[String, Any] }
import Expr._
sealed trait Expr { def eval(v: VARS) : Any }
case class If(cond: Cond, ifTrue: Expr, ifFalse: Expr) extends Expr {
def eval(v: VARS) =
if (cond.eval(v)) ifTrue.eval(v) else ifFalse.eval(v)
}
case class Cond(left: Expr, right: Expr) extends Expr {
def eval(v: VARS) = left.eval(v) == right.eval(v)
}
case class Len(ident: String) extends Expr {
def eval(v: VARS) = v(ident).toString.size
}
case class Mid(ident: String, start: Expr, count: Expr) extends Expr {
def eval(v: VARS) = {
val s = start.eval(v).asInstanceOf[Int]
val e = s + count.eval(v).asInstanceOf[Int]
v(ident).asInstanceOf[String].substring(s, e)
}
}
case class Ident(ident: String) extends Expr { def eval(v:VARS) = v(ident) }
case class StringLit(value: String) extends Expr { def eval(v:VARS) = value }
case class Number(value: String) extends Expr { def eval(v:VARS) = value.toInt }
次のパーサー定義は、指定された式を解析し、Expr
オブジェクトを返します。
class Equation extends JavaTokenParsers {
def IF: Parser[If] = "IF" ~ "(" ~ booleanExpr ~","~ expr ~","~ expr ~ ")" ^^ {
case "IF" ~ "(" ~ booleanExpr ~ "," ~ ifTrue ~ "," ~ ifFalse ~ ")" =>
If(booleanExpr, ifTrue, ifFalse)
}
def LEN: Parser[Len] = "LEN" ~> "(" ~> ident <~ ")" ^^ (Len(_))
def MID: Parser[Mid] = "MID" ~ "(" ~ ident ~ "," ~ expr ~ "," ~ expr ~ ")" ^^ {
case "MID" ~ "(" ~ ident ~ "," ~ expr1 ~ "," ~ expr2 ~ ")" =>
Mid(ident, expr1, expr2)
}
def expr: Parser[Expr] = (
stringLiteral ^^ (StringLit(_))
| wholeNumber ^^ (Number(_))
| LEN
| MID
| IF
| ident ^^ (Ident(_))
)
def booleanExpr: Parser[Cond] = expr ~ "=" ~ expr ^^ {
case expr1 ~ "=" ~ expr2 => Cond(expr1, expr2)
}
}
次に、結果の解析と評価は次のように実行できます。
val equation = new Equation
val parsed = equation.parseAll(equation.expr,
"""IF(LEN(param1)=4,MID(param1,2,1), MID(param1,0,LEN(param1)))""")
parsed match {
case equation.Success(expr, _) =>
println(expr)
// If(Cond(Len(param1),Number(4)),
// Mid(param1,Number(2),Number(1)),
// Mid(param1,Number(0),Len(param1)))
println(expr.eval(Map("param1" -> "scala"))) // prints scala
println(expr.eval(Map("param1" -> "scat"))) // prints a
case _ =>
println("cannot parse")
}
私が提供した文法は、例を解析するための最小限のものであり、エラー管理や型チェックはまったくありません。^^ ...
プロセス的には、最初に例を解析するプロダクションなしの文法を考え出し、次にExpr
タイプを追加しましたが、evalメソッドなしで、次にプロダクション^^ ...
を追加し、最後にevalメソッドをExpr
トレイトとサブクラスに追加しました。