wml_action 0.0.2

data/lib/wml_action/parser.tab.rb

@@ -0,0 +1,318 @@
+#
+# DO NOT MODIFY!!!!
+# This file is automatically generated by Racc 1.4.11
+# from Racc grammer file "".
+#
+
+require 'racc/parser.rb'
+
+#
+# generated by racc
+#
+require 'wml_action/lexer.rex'
+require 'wml_action/tag'
+require 'wml_action/log'
+
+module WMLAction
+  class Parser < Racc::Parser
+
+module_eval(<<'...end parser.y/module_eval...', 'parser.y', 49)
+include Log
+
+...end parser.y/module_eval...
+##### State transition tables begin ###
+
+racc_action_table = [
+     4,     8,    14,    16,    17,    18,    22,    24,    25,    26,
+    27,    29,    19,     4,    18,    21,     4,     7,     5,    30,
+    31,    32 ]
+
+racc_action_check = [
+     6,     6,     6,     6,     6,     6,    18,    18,    18,    18,
+    18,    19,     6,    15,    19,    15,     0,     5,     1,    23,
+    27,    30 ]
+
+racc_action_pointer = [
+    14,    18,   nil,   nil,   nil,    17,    -2,   nil,   nil,   nil,
+   nil,   nil,   nil,   nil,   nil,    11,   nil,   nil,    -2,     7,
+   nil,   nil,   nil,     6,   nil,   nil,   nil,     9,   nil,   nil,
+    12,   nil,   nil ]
+
+racc_action_default = [
+    -1,   -26,    -2,    -3,    -5,   -26,   -26,    33,    -4,    -6,
+    -7,    -8,    -9,   -10,   -11,   -26,   -14,   -15,   -16,   -26,
+   -12,   -13,   -17,   -18,   -19,   -20,   -21,   -26,   -24,   -25,
+   -26,   -22,   -23 ]
+
+racc_goto_table = [
+     3,    12,    10,     6,     9,     1,    11,     2,    13,    15,
+    23,   nil,   nil,   nil,    28,    20 ]
+
+racc_goto_check = [
+     3,     7,     6,     4,     5,     1,     3,     2,     8,     9,
+    10,   nil,   nil,   nil,     7,     3 ]
+
+racc_goto_pointer = [
+   nil,     5,     7,     0,    -1,    -2,    -4,    -5,     2,     3,
+    -8 ]
+
+racc_goto_default = [
+   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+   nil ]
+
+racc_reduce_table = [
+  0, 0, :racc_error,
+  0, 16, :_reduce_none,
+  1, 16, :_reduce_2,
+  1, 17, :_reduce_3,
+  3, 18, :_reduce_4,
+  0, 19, :_reduce_5,
+  2, 19, :_reduce_6,
+  1, 20, :_reduce_none,
+  1, 20, :_reduce_8,
+  1, 20, :_reduce_none,
+  1, 20, :_reduce_none,
+  1, 20, :_reduce_11,
+  2, 21, :_reduce_12,
+  2, 21, :_reduce_13,
+  1, 24, :_reduce_none,
+  1, 24, :_reduce_none,
+  1, 22, :_reduce_16,
+  2, 22, :_reduce_17,
+  2, 22, :_reduce_18,
+  2, 22, :_reduce_19,
+  2, 22, :_reduce_20,
+  1, 25, :_reduce_21,
+  2, 25, :_reduce_22,
+  3, 25, :_reduce_23,
+  2, 23, :_reduce_24,
+  2, 23, :_reduce_25 ]
+
+racc_reduce_n = 26
+
+racc_shift_n = 33
+
+racc_token_table = {
+  false => 0,
+  :error => 1,
+  :OTAG => 2,
+  :CTAG => 3,
+  :MACRO => 4,
+  "+" => 5,
+  "-" => 6,
+  :ATTR => 7,
+  :APLAIN => 8,
+  :AMACRO => 9,
+  :ANUMBER => 10,
+  :ASTR => 11,
+  :UNDERSC => 12,
+  :APLUS => 13,
+  :SLASH => 14 }
+
+racc_nt_base = 15
+
+racc_use_result_var = true
+
+Racc_arg = [
+  racc_action_table,
+  racc_action_check,
+  racc_action_default,
+  racc_action_pointer,
+  racc_goto_table,
+  racc_goto_check,
+  racc_goto_default,
+  racc_goto_pointer,
+  racc_nt_base,
+  racc_reduce_table,
+  racc_token_table,
+  racc_shift_n,
+  racc_reduce_n,
+  racc_use_result_var ]
+
+Racc_token_to_s_table = [
+  "$end",
+  "error",
+  "OTAG",
+  "CTAG",
+  "MACRO",
+  "\"+\"",
+  "\"-\"",
+  "ATTR",
+  "APLAIN",
+  "AMACRO",
+  "ANUMBER",
+  "ASTR",
+  "UNDERSC",
+  "APLUS",
+  "SLASH",
+  "$start",
+  "target",
+  "wml_doc",
+  "tag",
+  "contents",
+  "content",
+  "action",
+  "attribute",
+  "filter",
+  "aop",
+  "string_val" ]
+
+Racc_debug_parser = false
+
+##### State transition tables end #####
+
+# reduce 0 omitted
+
+# reduce 1 omitted
+
+module_eval(<<'.,.,', 'parser.y', 3)
+  def _reduce_2(val, _values, result)
+     log.debug 'Found a target' 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 5)
+  def _reduce_3(val, _values, result)
+     log.debug 'Found a doc' 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 7)
+  def _reduce_4(val, _values, result)
+     log.debug("Creating tag #{val[0]}"); return Tag.new(name: val[0], content: val[1]) 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 9)
+  def _reduce_5(val, _values, result)
+     return [] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 10)
+  def _reduce_6(val, _values, result)
+     log.debug("Append #{val[1]} to #{val[0]}"); return val[0]? val[0].push(val[1]) : [val[1]] 
+    result
+  end
+.,.,
+
+# reduce 7 omitted
+
+module_eval(<<'.,.,', 'parser.y', 13)
+  def _reduce_8(val, _values, result)
+     log.debug "Found a content subtag #{val[0]}" 
+    result
+  end
+.,.,
+
+# reduce 9 omitted
+
+# reduce 10 omitted
+
+module_eval(<<'.,.,', 'parser.y', 16)
+  def _reduce_11(val, _values, result)
+     log.debug "Found a macro #{val[0]}"; return Tag::Macro[val[0]] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 18)
+  def _reduce_12(val, _values, result)
+     log.debug "Found a action tag #{val[0]}:#{val[1]}"; return Tag::Action[val[1],val[0]] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 19)
+  def _reduce_13(val, _values, result)
+     log.debug "Found a action mac #{val[0]}:#{val[1]}"; return Tag::Action[Tag::Macro[val[1]],val[0]] 
+    result
+  end
+.,.,
+
+# reduce 14 omitted
+
+# reduce 15 omitted
+
+module_eval(<<'.,.,', 'parser.y', 24)
+  def _reduce_16(val, _values, result)
+     log.debug "Found empty attribute: #{val[0]}"; return Tag::Attribute[val[0],''] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 25)
+  def _reduce_17(val, _values, result)
+     log.debug "Found plain attribute: #{val[0]}:#{val[1]}"; return Tag::Attribute[val[0],val[1]] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 26)
+  def _reduce_18(val, _values, result)
+     log.debug "Found string attribute: #{val[0]}:#{val[1]}"; return Tag::Attribute[val[0],val[1]] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 27)
+  def _reduce_19(val, _values, result)
+     log.debug "Found macro attribute: #{val[0]}:#{val[1]}"; return Tag::Attribute[val[0],val[1]] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 28)
+  def _reduce_20(val, _values, result)
+     log.debug "Found numeric attribute: #{val[0]}:#{val[1]}"; return Tag::Attribute[val[0],val[1]]  
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 30)
+  def _reduce_21(val, _values, result)
+     return " #{val[0]}" 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 31)
+  def _reduce_22(val, _values, result)
+     return ' '+val[0]+' '+val[1] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 32)
+  def _reduce_23(val, _values, result)
+     return val[0] + '+' + val[2] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 34)
+  def _reduce_24(val, _values, result)
+     log.debug "Found an attribute filter #{val[1]}"; return Tag::Filter[val[1]] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 35)
+  def _reduce_25(val, _values, result)
+     log.debug "Found a macro filter #{val[1]}"; return Tag::Filter[Tag::Macro[val[1]]] 
+    result
+  end
+.,.,
+
+def _reduce_none(val, _values, result)
+  val[0]
+end
+
+  end   # class Parser
+  end   # module WMLAction
+
+

data/lib/wml_action/parser.y

@@ -0,0 +1,52 @@
+class WMLAction::Parser
+rule
+    target      : /* nothing */
+                | wml_doc { log.debug 'Found a target' }
+
+    wml_doc     : tag { log.debug 'Found a doc' }
+
+    tag         : OTAG contents CTAG { log.debug("Creating tag #{val[0]}"); return Tag.new(name: val[0], content: val[1]) }
+
+    contents    : /* nothing */     { return [] }
+                | contents content  { log.debug("Append #{val[1]} to #{val[0]}"); return val[0]? val[0].push(val[1]) : [val[1]] }
+
+    content     : action
+                | tag      { log.debug "Found a content subtag #{val[0]}" }
+                | attribute
+                | filter
+                | MACRO    { log.debug "Found a macro #{val[0]}"; return Tag::Macro[val[0]] }
+
+    action      : aop tag { log.debug "Found a action tag #{val[0]}:#{val[1]}"; return Tag::Action[val[1],val[0]] }
+                | aop MACRO { log.debug "Found a action mac #{val[0]}:#{val[1]}"; return Tag::Action[Tag::Macro[val[1]],val[0]] }
+
+    aop         : '+'
+                | '-'
+
+    attribute   : ATTR          { log.debug "Found empty attribute: #{val[0]}"; return Tag::Attribute[val[0],''] }
+                | ATTR APLAIN   { log.debug "Found plain attribute: #{val[0]}:#{val[1]}"; return Tag::Attribute[val[0],val[1]] }
+                | ATTR string_val     { log.debug "Found string attribute: #{val[0]}:#{val[1]}"; return Tag::Attribute[val[0],val[1]] }
+                | ATTR AMACRO   { log.debug "Found macro attribute: #{val[0]}:#{val[1]}"; return Tag::Attribute[val[0],val[1]] }
+                | ATTR ANUMBER  { log.debug "Found numeric attribute: #{val[0]}:#{val[1]}"; return Tag::Attribute[val[0],val[1]]  }
+
+    string_val  : ASTR { return " #{val[0]}" }
+                | UNDERSC ASTR { return ' '+val[0]+' '+val[1] }
+                | string_val APLUS AMACRO { return val[0] + '+' + val[2] }
+
+    filter      : SLASH attribute { log.debug "Found an attribute filter #{val[1]}"; return Tag::Filter[val[1]] }
+                | SLASH MACRO { log.debug "Found a macro filter #{val[1]}"; return Tag::Filter[Tag::Macro[val[1]]] }
+
+end
+
+---- header ----
+#
+# generated by racc
+#
+require 'wml_action/lexer.rex'
+require 'wml_action/tag'
+require 'wml_action/log'
+
+---- inner ----
+include Log
+
+---- footer ----
+

data/lib/wml_action/tag.rb

@@ -0,0 +1,144 @@
+require 'wml_action/log'
+require 'set'
+
+module WMLAction
+  class Tag
+    include Log
+
+    attr_accessor :name,:subs,:attrs,:macros,:filter, :actions
+
+    Attribute = Struct.new(:name, :value) do
+      def to_s(indent=0, dummy=0)
+        "#{name}=#{value}"
+      end
+    end
+
+    Macro = Struct.new(:value) do
+      def to_s(indent=0, dummy=0)
+        value.to_s
+      end
+    end
+
+    Action = Struct.new(:object, :action) do
+      def to_s(indent=0, dummy=0)
+        "#{action} #{object.to_s(indent,0)}"
+      end
+    end
+
+    Filter = Struct.new(:value) do
+      def to_s(indent=0, dummy=0)
+        "/ #{ value }"
+      end
+    end
+
+    def initialize(values={})
+      @name=values[:name]||""
+      @subs=values[:subs]||Array.new
+      @attrs=values[:attrs]||Hash.new
+      @macros=values[:macros]||Set.new
+      @filter=values[:filter]||Array.new
+      @actions=values[:actions]||Array.new
+      load_content( values[:content] ) if values.key? :content
+    end
+
+    def <<(content)
+      case content
+      when Action then @actions << content
+      when Attribute then @attrs.merge!( Hash[*content] )
+      when Macro then @macros.add( content.value )
+      when Filter then @filter << content.value
+      when Tag then @subs << content
+      else raise TypeError.new("Can not add #{content.class}: #{content} to a Tag")
+      end
+      return self
+    end
+
+    def load_content(contents)
+      contents.each { |c| self<<c }
+    end
+
+    def to_s(indent=0,indent_first_line=1)
+      i=indent
+      t="\t"
+      ifl=indent_first_line
+      return <<-EOS.gsub(/^\s+\|/, '').gsub(/^$\n/,'')
+        |#{t*i*ifl}[#{@name}]
+        |#{(@filter.map { |f| "#{t*(i+1)}/ #{f}" }).join("\n")}
+        |#{(@actions.map { |a| "#{t*(i+1)}#{a.to_s(i+1)}" }).join("\n")}
+        |#{(@attrs.map   { |k,v| "#{t*(i+1)}#{k}=#{v}" }).join("\n")}
+        |#{(@macros.map { |m| "#{t*(i+1)}#{m}" }).join("\n")}
+        |#{(@subs.map   { |s| "#{s.to_s(i+1)}" }).join("\n")}
+        |#{t*i}[/#{@name}]
+      EOS
+    end
+
+    def merge(other)
+      return self unless @name == other.name
+      return self unless match?( other.filter )
+      log.info "Merging [#{@name}] section with [#{other.name}] with filter: #{other.filter}"
+      other.attrs.each_pair do |key,value|
+        log.debug "Processing key: #{key}=#{value}"
+        @attrs.store(key,value)
+      end
+      other.macros.each do |macro|
+        log.debug "Adding macro: #{macro}"
+        @macros<<(macro)
+      end
+      other.subs.each do |other_sub|
+        @subs.map { |sub| sub.merge(other_sub) }
+      end
+      other.actions.each do |a|
+        case a.action
+        when '+' then self << a.object
+        when '-' then delete( a.object )
+        else raise NoMethodError.new("Don't know what to do with #{a.action} action")
+        end
+      end
+      return self
+    end
+
+    def delete(content)
+      case content
+      when Tag then @subs.delete_if { |s| content.name == s.name && s.match?( content.filter ) }
+      when Macro then @macros.delete(content.value)
+      end
+    end
+
+    def match?( filter )
+      return true if filter.empty?
+      filter.each do |f|
+        case f
+        when Attribute then return false unless attr_value?( f )
+        when Macro then return false unless macro?( f )
+        end
+      end
+      return true
+    end
+
+    def attr_value?( attr )
+      @attrs[attr.name] == attr.value
+    end
+
+    def attr?( attr )
+      @attrs.key?(attr.name)
+    end
+
+    def macro?( macro )
+      @macros.include?(macro.value)
+    end
+
+    def sub?( sub )
+      ( @subs.keep_if { |s| s.name == sub.name && s.match?(sub.filter) } ).empty?
+    end
+
+    def filter?(filter)
+      @filter.include?(filter)
+    end
+
+    def action?(action)
+      @actions.include?(action)
+    end
+
+  end
+
+end

data/lib/wml_action/version.rb

@@ -0,0 +1,3 @@
+module WMLAction
+  VERSION = "0.0.2"
+end

data/lib/wml_action.rb

@@ -0,0 +1,9 @@
+require "wml_action/version"
+require "wml_action/tag"
+require "wml_action/cli"
+require "wml_action/document"
+require "wml_action/parser.tab"
+require 'wml_action/log'
+
+module WMLAction
+end

data/spec/document_spec.rb

@@ -0,0 +1,79 @@
+require "wml_action"
+require "debugger"
+
+module WMLAction
+
+  describe Document do
+
+    it 'should read a tag' do
+      d = Document.from_file('spec/fixtures/tag.cfg')
+      expect(d.root.name).to eq "tag"
+    end
+
+    it "should read inners" do
+      d = Document.from_file('spec/fixtures/inners.cfg')
+      s = d.root
+      expect(s.subs.length).to eq 3
+      expect(s.subs[0].name).to eq "inner"
+      expect(s.subs[1].name).to eq "multitag"
+      expect(s.subs[2].name).to eq "multitag"
+    end
+
+    it "should read atributes" do
+      d = Document.from_file('spec/fixtures/attributes.cfg')
+      s = d.root
+      expect(s.attrs.length).to eq 5
+      expect(s.attrs).to include "number"
+      expect(s.attrs["number"]).to eq 50
+      expect(s.attrs).to include "plain"
+      expect(s.attrs["plain"]).to eq "One, Another"
+      expect(s.attrs).to include "macrosed"
+      expect(s.attrs["macrosed"]).to eq "{AMACRO}"
+      expect(s.attrs).to include "likedigit"
+      expect(s.attrs["likedigit"]).to eq '0.1:0.2'
+      expect(s.attrs).to include "empty"
+      expect(s.attrs["empty"]).to eq ''
+    end
+
+    it "should read string attributes" do
+      d = Document.from_file('spec/fixtures/strings.cfg')
+      s = d.root
+      expect(s.attrs.length).to eq 5
+      expect(s.attrs).to include "simple"
+      expect(s.attrs).to include "underscored"
+      expect(s.attrs).to include "multiline"
+      expect(s.attrs).to include "macrosed"
+      expect(s.attrs["simple"]).to eq ' "Hello"'
+      expect(s.attrs["underscored"]).to eq ' _ "Long Hello"'
+      expect(s.attrs["multiline"]).to eq  " \"This is \nvery long\nlong string\""
+      expect(s.attrs["macrosed"]).to eq " \"This amount\"+{AMOUNT}"
+    end
+
+    it "should read macros" do
+      d = Document.from_file('spec/fixtures/macros.cfg')
+      s = d.root
+      expect(s.macros).to include "{USEFUL_MACRO}"
+    end
+
+    it "should read filters" do
+      d = Document.from_file('spec/fixtures/filter.cfg')
+      s = d.root
+      expect(s.filter.length).to eq 2
+      expect(s.filter[0]).to eq Tag::Attribute['type','flying']
+      expect(s.filter[1]).to eq Tag::Macro['{FIRST_STRIKE}']
+    end
+
+    it "should read actions" do
+      d = Document.from_file('spec/fixtures/actions.cfg')
+      s = d.root
+      expect(s.actions.length).to eq 4
+      expect(s.actions).to include Tag::Action[Tag::Macro['{VARIABLES}'],'+']
+      expect(s.actions).to include Tag::Action[Tag::Macro['{ABILITIES}'],'-']
+      expect(s.actions[2].action).to eq "+"
+      expect(s.actions[2].object.name).to eq "attack"
+      expect(s.actions[3].action).to eq "-"
+      expect(s.actions[3].object.name).to eq "resists"
+    end
+
+  end
+end

data/spec/fixtures/actions.cfg

@@ -0,0 +1,14 @@
+[unit]
+
+  + {VARIABLES}
+
+  - {ABILITIES}
+
+  + [attack]
+    damage=10
+  [/attack]
+
+  - [resists]
+  [/resists]
+
+[/unit]

data/spec/fixtures/as_from_file.cfg

@@ -0,0 +1,15 @@
+#Footman
+[unit_type]
+  + [powershot]
+      strength=2
+    [/powershot]
+  [attack]
+  / type=melee
+    damage=4
+  [/attack]
+  + description= _ "Strong.
+
+Very strong."
+  hp=100
+  - {SET_VARIABLES}
+[/unit_type]

data/spec/fixtures/attributes.cfg

@@ -0,0 +1,7 @@
+[tag]
+  number=50
+  plain=One, Another
+  macrosed={AMACRO}
+  likedigit=0.1:0.2
+  empty=
+[/tag]

data/spec/fixtures/filter.cfg

@@ -0,0 +1,4 @@
+[unit]
+/ type=flying
+/ {FIRST_STRIKE}
+[/unit]

data/spec/fixtures/inners.cfg

@@ -0,0 +1,11 @@
+[tag]
+  [inner]
+  [/inner]
+
+  [multitag]
+    attr=1
+  [/multitag]
+  [multitag]
+    attr=2
+  [/multitag]
+[/tag]

data/spec/fixtures/macros.cfg

@@ -0,0 +1,3 @@
+[tag]
+  {USEFUL_MACRO}
+[/tag]

data/spec/fixtures/s_from_file.cfg

@@ -0,0 +1,8 @@
+#Footman
+[unit_type]
+description= _ "Strong.
+
+Very strong."
+hp=100
+{SET_VARIABLES}
+[/unit_type]

data/spec/fixtures/strings.cfg

@@ -0,0 +1,9 @@
+[tag]
+  simple= "Hello"
+  underscored= _ "Long Hello"
+  multiline= "This is 
+very long
+long string"
+  macrosed= "This amount"+{AMOUNT}
+  complex=_"This amount"+{AMOUNT}+{AMOUNT_NEW}
+[/tag]

data/spec/fixtures/tag.cfg

@@ -0,0 +1,2 @@
+[tag]
+[/tag]