namarara/lib/mm2ep_depend/parser.rb

197 lines
3.7 KiB
Ruby
Raw Normal View History

2017-09-04 09:19:29 +00:00
module Mm2ep
module Depend
2017-09-12 15:25:16 +00:00
class TreeExpr
def compute
raise NotImplementedError
end
end
2017-09-12 13:58:15 +00:00
2017-09-12 14:05:50 +00:00
class TreeValue
2017-09-12 15:25:16 +00:00
def value
2017-09-12 14:19:51 +00:00
raise "No value for #{@name}" if @value.nil?
2017-09-12 15:25:16 +00:00
@value
end
2017-09-12 14:32:03 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 14:32:03 +00:00
raise NotImplementedError
2017-09-12 15:25:16 +00:00
end
end
2017-09-12 14:05:50 +00:00
class VarValue < TreeValue
2017-09-12 15:25:16 +00:00
def initialize str
2017-09-12 13:58:15 +00:00
@name = str
2017-09-12 15:25:16 +00:00
@value = nil
end
2017-09-12 14:32:03 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 14:32:03 +00:00
"var:#{@name}<-(#{@value})"
end
2017-09-12 15:25:16 +00:00
end
2017-09-12 13:58:15 +00:00
2017-09-12 14:05:50 +00:00
class NumberValue < TreeValue
2017-09-12 15:25:16 +00:00
def initialize str
2017-09-12 14:32:03 +00:00
@value = str.to_i
2017-09-12 15:25:16 +00:00
end
2017-09-12 14:32:03 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 14:32:03 +00:00
"number:#{@value}"
end
2017-09-12 15:25:16 +00:00
end
2017-09-12 14:05:50 +00:00
class StringValue < TreeValue
2017-09-12 15:25:16 +00:00
def initialize str
2017-09-12 14:32:03 +00:00
@value = str
2017-09-12 15:25:16 +00:00
end
2017-09-12 14:32:03 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 14:32:03 +00:00
"string:\"#{@value}\""
end
2017-09-12 15:25:16 +00:00
end
2017-09-12 14:05:50 +00:00
class BoolValue < TreeValue
2017-09-12 15:25:16 +00:00
def initialize str
@value = case str
when /true/i then true
when /false/i then false
end
2017-09-12 13:58:15 +00:00
2017-09-12 15:25:16 +00:00
end
2017-09-12 13:58:15 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 14:32:03 +00:00
"bool:#{@value}"
end
2017-09-12 15:25:16 +00:00
end
2017-09-12 13:58:15 +00:00
2017-09-12 14:05:50 +00:00
class AndOp < TreeExpr
2017-09-11 12:33:29 +00:00
def initialize expr1, expr2
2017-09-12 15:25:16 +00:00
@expr1 = expr1
2017-09-12 13:58:15 +00:00
@expr2 = expr2
2017-09-11 12:33:29 +00:00
end
2017-09-12 13:58:15 +00:00
def compute
2017-09-12 13:44:10 +00:00
# binding.pry
2017-09-12 13:58:15 +00:00
return @expr1.compute && @expr2.compute
2017-09-11 12:33:29 +00:00
end
2017-09-12 14:32:03 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 15:09:53 +00:00
"( #{@expr1.to_s}) AND (#{@expr2.to_s} )"
2017-09-12 15:25:16 +00:00
end
2017-09-11 12:33:29 +00:00
end
2017-09-12 13:58:15 +00:00
class OrOp
2017-09-11 12:33:29 +00:00
def initialize expr1, expr2
2017-09-12 15:25:16 +00:00
@expr1 = expr1
2017-09-12 14:23:44 +00:00
@expr2 = expr2
2017-09-11 12:33:29 +00:00
end
2017-09-12 13:58:15 +00:00
def compute
2017-09-12 14:23:44 +00:00
return @expr1.compute || @expr2.compute
2017-09-11 12:33:29 +00:00
end
2017-09-12 14:32:03 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 15:09:53 +00:00
"( #{@expr1.to_s}) OR (#{@expr2.to_s} )"
2017-09-12 15:25:16 +00:00
end
2017-09-11 12:33:29 +00:00
end
2017-09-12 14:05:50 +00:00
class NotOp
2017-09-11 12:33:29 +00:00
def initialize expr
@expr = expr
end
2017-09-12 13:58:15 +00:00
def compute
2017-09-12 15:25:16 +00:00
return ! @expr.compute
2017-09-11 12:33:29 +00:00
end
2017-09-12 14:32:03 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 15:09:53 +00:00
"NOT ( #{@expr.to_s} )"
2017-09-12 15:25:16 +00:00
end
2017-09-11 12:33:29 +00:00
end
2017-09-12 13:58:15 +00:00
class EqOp
2017-09-12 14:23:44 +00:00
def initialize lval, rval
2017-09-12 15:25:16 +00:00
@lval = lval
2017-09-12 14:23:44 +00:00
@rval = rval
2017-09-11 12:33:29 +00:00
end
2017-09-12 13:58:15 +00:00
def compute
2017-09-12 14:23:44 +00:00
return if @lval.value == @rval.value
2017-09-11 12:33:29 +00:00
end
2017-09-12 14:32:03 +00:00
2017-09-12 15:25:16 +00:00
def to_s
2017-09-12 14:33:18 +00:00
"#{@lval.to_s} = #{@rval.to_s}"
2017-09-12 15:25:16 +00:00
end
2017-09-11 12:33:29 +00:00
end
2017-09-07 15:05:06 +00:00
class Parser < Rly::Yacc
2017-09-12 15:09:53 +00:00
precedence :left, 'OR_OP'
precedence :left, 'AND_OP'
2017-09-12 15:25:16 +00:00
precedence :left, 'EQ_OP'
2017-09-12 15:09:53 +00:00
precedence :right, :UMINUS
2017-09-11 08:13:30 +00:00
2017-09-07 15:05:06 +00:00
rule 'statement : expr' do |st, e|
st.value = e.value
end
2017-09-11 08:13:30 +00:00
rule 'expr : VAR' do |ex, l|
2017-09-12 14:05:50 +00:00
ex.value = EqOp.new(
2017-09-12 15:25:16 +00:00
VarExpr.new(l.value),
2017-09-12 14:05:50 +00:00
BoolValue.new('true')
)
2017-09-11 08:13:30 +00:00
end
rule 'expr : T_BOOL' do |ex, l|
2017-09-12 14:16:57 +00:00
ex.value = BoolValue.new(l.value.to_s)
2017-09-11 08:13:30 +00:00
end
rule 'expr : F_BOOL' do |ex, l|
2017-09-12 14:16:57 +00:00
ex.value = BoolValue.new(l.value.to_s)
2017-09-11 08:13:30 +00:00
end
2017-09-12 15:25:16 +00:00
rule 'expr : NOT_OP expr %prec UMINUS' do |ex, l, e|
2017-09-12 14:05:50 +00:00
ex.value = NotOp.new(e.value)
2017-09-07 15:05:06 +00:00
end
2017-09-12 15:25:16 +00:00
rule 'expr : expr AND_OP expr' do |ex, l, e, r|
2017-09-12 13:58:15 +00:00
ex.value = AndOp.new(l.value, r.value)
2017-09-07 15:05:06 +00:00
end
2017-09-12 15:25:16 +00:00
rule 'expr : expr OR_OP expr' do |ex, l, e, r|
2017-09-12 13:58:15 +00:00
ex.value = OrOp.new(l.value, r.value)
2017-09-07 15:05:06 +00:00
end
2017-09-12 15:25:16 +00:00
rule 'expr : L_PAR expr R_PAR' do |ex, l, e, r|
2017-09-11 12:33:29 +00:00
ex.value = e.value
2017-09-07 15:05:06 +00:00
end
2017-09-12 15:25:16 +00:00
rule 'expr : VAR EQ_OP F_BOOL' do |ex, v, eq, n|
2017-09-12 14:16:57 +00:00
ex.value = EqOp.new(
2017-09-12 15:25:16 +00:00
VarValue.new(v.value.to_s),
2017-09-12 14:16:57 +00:00
BoolValue.new(n.value)
)
2017-09-07 15:05:06 +00:00
end
2017-09-12 15:25:16 +00:00
rule 'expr : VAR EQ_OP T_BOOL' do |ex, v, eq, n|
2017-09-12 14:16:57 +00:00
ex.value = EqOp.new(
2017-09-12 15:25:16 +00:00
VarValue.new(v.value.to_s),
2017-09-12 14:16:57 +00:00
BoolValue.new(n.value)
)
2017-09-07 15:05:06 +00:00
end
2017-09-12 15:25:16 +00:00
rule 'expr : VAR EQ_OP STRING' do |ex, v, eq, n|
2017-09-12 14:16:57 +00:00
ex.value = EqOp.new(
2017-09-12 15:25:16 +00:00
VarValue.new(v.value.to_s),
2017-09-12 14:16:57 +00:00
StringValue.new(n.value)
)
2017-09-07 15:05:06 +00:00
end
2017-09-12 15:25:16 +00:00
rule 'expr : VAR EQ_OP NUMBER' do |ex, v, eq, n|
2017-09-12 14:16:57 +00:00
ex.value = EqOp.new(
2017-09-12 15:25:16 +00:00
VarValue.new(v.value.to_s),
2017-09-12 14:16:57 +00:00
NumberValue.new(n.value)
)
2017-09-07 15:05:06 +00:00
end
2017-09-04 09:19:29 +00:00
end # class
end # module
end # module