ceml 0.2.0

data/lib/ceml/tt/scripts.rb

@@ -0,0 +1,345 @@
+# Autogenerated from a Treetop grammar. Edits may be lost.
+
+
+module CEML
+module Scripts
+  include Treetop::Runtime
+
+  def root
+    @root || :scripts
+  end
+
+  include Lexer
+
+  include Casting
+
+  include Instructions
+
+  def _nt_scripts
+    start_index = index
+    if node_cache[:scripts].has_key?(index)
+      cached = node_cache[:scripts][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    s0, i0 = [], index
+    loop do
+      r1 = _nt_script
+      if r1
+        s0 << r1
+      else
+        break
+      end
+    end
+    if s0.empty?
+      @index = i0
+      r0 = nil
+    else
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+    end
+
+    node_cache[:scripts][start_index] = r0
+
+    r0
+  end
+
+  def _nt_script
+    start_index = index
+    if node_cache[:script].has_key?(index)
+      cached = node_cache[:script][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    i0 = index
+    r1 = _nt_script_with_title
+    if r1
+      r0 = r1
+      r0.extend(Script)
+    else
+      r2 = _nt_script_with_instructions
+      if r2
+        r0 = r2
+        r0.extend(Script)
+      else
+        @index = i0
+        r0 = nil
+      end
+    end
+
+    node_cache[:script][start_index] = r0
+
+    r0
+  end
+
+  module ScriptWithTitle0
+    def title
+      elements[1]
+    end
+
+    def casting_statement
+      elements[2]
+    end
+
+    def instructions
+      elements[3]
+    end
+  end
+
+  def _nt_script_with_title
+    start_index = index
+    if node_cache[:script_with_title].has_key?(index)
+      cached = node_cache[:script_with_title][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    i0, s0 = index, []
+    r2 = _nt_nl
+    if r2
+      r1 = r2
+    else
+      r1 = instantiate_node(SyntaxNode,input, index...index)
+    end
+    s0 << r1
+    if r1
+      r3 = _nt_title
+      s0 << r3
+      if r3
+        r5 = _nt_casting_statement
+        if r5
+          r4 = r5
+        else
+          r4 = instantiate_node(SyntaxNode,input, index...index)
+        end
+        s0 << r4
+        if r4
+          r7 = _nt_instructions
+          if r7
+            r6 = r7
+          else
+            r6 = instantiate_node(SyntaxNode,input, index...index)
+          end
+          s0 << r6
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(ScriptWithTitle0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:script_with_title][start_index] = r0
+
+    r0
+  end
+
+  module ScriptWithInstructions0
+    def title
+      elements[1]
+    end
+
+    def casting_statement
+      elements[2]
+    end
+
+    def instructions
+      elements[3]
+    end
+  end
+
+  def _nt_script_with_instructions
+    start_index = index
+    if node_cache[:script_with_instructions].has_key?(index)
+      cached = node_cache[:script_with_instructions][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    i0, s0 = index, []
+    r2 = _nt_nl
+    if r2
+      r1 = r2
+    else
+      r1 = instantiate_node(SyntaxNode,input, index...index)
+    end
+    s0 << r1
+    if r1
+      r4 = _nt_title
+      if r4
+        r3 = r4
+      else
+        r3 = instantiate_node(SyntaxNode,input, index...index)
+      end
+      s0 << r3
+      if r3
+        r6 = _nt_casting_statement
+        if r6
+          r5 = r6
+        else
+          r5 = instantiate_node(SyntaxNode,input, index...index)
+        end
+        s0 << r5
+        if r5
+          r7 = _nt_instructions
+          s0 << r7
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(ScriptWithInstructions0)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:script_with_instructions][start_index] = r0
+
+    r0
+  end
+
+  module Title0
+  end
+
+  module Title1
+    def value
+      elements[1]
+    end
+
+    def nl
+      elements[3]
+    end
+  end
+
+  module Title2
+    def value
+        super.text_value.gsub(/\\"/, '"')
+    end
+  end
+
+  def _nt_title
+    start_index = index
+    if node_cache[:title].has_key?(index)
+      cached = node_cache[:title][index]
+      @index = cached.interval.end if cached
+      return cached
+    end
+
+    i0, s0 = index, []
+    if has_terminal?('"', false, index)
+      r1 = instantiate_node(SyntaxNode,input, index...(index + 1))
+      @index += 1
+    else
+      terminal_parse_failure('"')
+      r1 = nil
+    end
+    s0 << r1
+    if r1
+      s2, i2 = [], index
+      loop do
+        i3 = index
+        if has_terminal?('\\"', false, index)
+          r4 = instantiate_node(SyntaxNode,input, index...(index + 2))
+          @index += 2
+        else
+          terminal_parse_failure('\\"')
+          r4 = nil
+        end
+        if r4
+          r3 = r4
+        else
+          i5, s5 = index, []
+          i6 = index
+          if has_terminal?('"', false, index)
+            r7 = instantiate_node(SyntaxNode,input, index...(index + 1))
+            @index += 1
+          else
+            terminal_parse_failure('"')
+            r7 = nil
+          end
+          if r7
+            r6 = nil
+          else
+            @index = i6
+            r6 = instantiate_node(SyntaxNode,input, index...index)
+          end
+          s5 << r6
+          if r6
+            if index < input_length
+              next_character = index + input[index..-1].match(/\A(.)/um).end(1)
+              r8 = instantiate_node(SyntaxNode,input, index...next_character)
+              @index = next_character
+            else
+              terminal_parse_failure("any character")
+              r8 = nil
+            end
+            s5 << r8
+          end
+          if s5.last
+            r5 = instantiate_node(SyntaxNode,input, i5...index, s5)
+            r5.extend(Title0)
+          else
+            @index = i5
+            r5 = nil
+          end
+          if r5
+            r3 = r5
+          else
+            @index = i3
+            r3 = nil
+          end
+        end
+        if r3
+          s2 << r3
+        else
+          break
+        end
+      end
+      if s2.empty?
+        @index = i2
+        r2 = nil
+      else
+        r2 = instantiate_node(SyntaxNode,input, i2...index, s2)
+      end
+      s0 << r2
+      if r2
+        if has_terminal?('"', false, index)
+          r9 = instantiate_node(SyntaxNode,input, index...(index + 1))
+          @index += 1
+        else
+          terminal_parse_failure('"')
+          r9 = nil
+        end
+        s0 << r9
+        if r9
+          r10 = _nt_nl
+          s0 << r10
+        end
+      end
+    end
+    if s0.last
+      r0 = instantiate_node(SyntaxNode,input, i0...index, s0)
+      r0.extend(Title1)
+      r0.extend(Title2)
+    else
+      @index = i0
+      r0 = nil
+    end
+
+    node_cache[:title][start_index] = r0
+
+    r0
+  end
+
+end
+
+class ScriptsParser < Treetop::Runtime::CompiledParser
+  include Scripts
+end
+
+end

data/lib/ceml/tt/scripts.treetop

@@ -0,0 +1,32 @@
+module CEML
+grammar Scripts
+  include Lexer
+  include Casting
+  include Instructions
+
+  rule scripts
+    script+
+  end
+
+  rule script
+    (script_with_title / script_with_instructions) <Script>
+  end
+
+  rule script_with_title
+    nl? title casting_statement:casting_statement? instructions:instructions?
+  end
+
+  rule script_with_instructions
+    nl? title:title? casting_statement:casting_statement? instructions
+  end
+
+  rule title
+    '"' value:('\\"' / !'"' .)+ '"' nl {
+        def value
+            super.text_value.gsub(/\\"/, '"')
+        end
+    }
+  end
+
+end
+end

data/lib/ceml.rb

@@ -0,0 +1,35 @@
+require 'forwardable'
+require 'treetop'
+
+require 'ceml/casting'
+require 'ceml/instructions'
+require 'ceml/script'
+require 'ceml/tt/lexer'
+require 'ceml/tt/casting'
+require 'ceml/tt/instructions'
+require 'ceml/tt/scripts'
+
+require 'ceml/engine'
+
+module CEML
+  def parse(what, string)
+    result = nil
+    string.gsub!(/\n +/, ' ')
+    string << "\n"
+    p = ScriptsParser.new
+    p.root = what
+    result = p.parse(string)
+    raise "parse failed: \n#{p.failure_reason}" unless result
+    case what
+    when :scripts
+      raise "no scripts found" unless result.elements and !result.elements.empty?
+      result = result.elements
+      result.each{ |s| s.validate! }
+    when :script
+      result.validate!
+    end
+    result
+  end
+
+  extend self
+end

data/test/helper.rb

@@ -0,0 +1,55 @@
+require 'rubygems'
+require 'test/unit'
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'ceml'
+
+COMPLIMENT_SCRIPT = <<END_OF_SCRIPT
+"Overwhelm a specific person with compliments"
+gather 5-20 players within 4 blocks
+ask organizer re target: Describe their appearance and location
+tell agents: Look for |otherguy.target| and compliment them briefly, then move on.
+END_OF_SCRIPT
+
+ASKCHAIN_SCRIPT = <<ENDOFSCRIPT
+"Meet your neighbor"
+gather 2 players within 1 block
+ask players re color: what's your favorite color?
+ask players re observation: find someone near you with the color |otherguy.color|. what are they wearing?
+ask players re rightmatch: are you wearing |otherguy.observation|?
+ask players re task: take your new partner and see if you can find something beautiful in the park.
+
+ENDOFSCRIPT
+
+
+
+class Test::Unit::TestCase
+  def play script
+    @e = CEML::Engine.new(script)
+  end
+
+  def player id, *roles
+    @e.add id, *roles
+    @e.run
+  end
+
+  def asked id, rx
+    p = @e.parts[id]
+    assert_equal :ask, p[:said]
+    assert_match rx, p[:q]
+    p.delete :said
+  end
+
+  def told id, rx
+    p = @e.parts[id]
+    assert_match rx, p[:msg]
+    p.delete :said
+  end
+
+  def says id, str
+    @e.parts[id][:received] = str
+    @e.run
+    @e.parts[id][:received] = nil
+  end
+end

data/test/test_casting.rb

@@ -0,0 +1,78 @@
+require 'test/unit'
+require 'ceml'
+
+class TestCasting < Test::Unit::TestCase
+  def pcs text
+    CEML.parse(:casting_statement, text)
+  end
+
+  def assert_bad text
+    assert_raise(RuntimeError){ pcs text }
+  end
+
+  def test_bad
+    assert_bad "gather a-b runners"
+    assert_bad "gather 40a runners"
+    assert_bad "gather 3- runners"
+    assert_bad "gather -4 runners"
+    assert_bad "grab 4 runners"
+    assert_bad "gather 4 *runners"
+    assert_bad "gather 4 run*ners"
+    assert_bad "gather 4 runners*"
+  end
+
+  def test_range
+    cs = pcs "gather 3-4 runners"
+    assert cs.type == :gather
+    assert cs.roles.include? :runners
+    assert cs[:runners].min == 3
+    assert cs[:runners].max == 4
+    assert cs.max == 4
+
+    cs = pcs "gather 3+ runners"
+    assert cs.type == :gather
+    assert cs.roles.include? :runners
+    assert cs[:runners].min == 3
+    assert cs[:runners].max > 4
+    assert cs.min == 3
+    assert cs.max > 4
+
+    cs = pcs "gather 3 runners"
+    assert cs.type == :gather
+    assert cs.roles.include? :runners
+    assert cs[:runners].min == 3
+    assert cs[:runners].max == 3
+    assert cs.min == 3
+    assert cs.max == 3
+
+    cs = pcs "gather runners"
+    assert cs.type == :gather
+    assert cs.roles.include? :runners
+    assert cs[:runners].min == 2
+    assert cs[:runners].max > 10
+    assert cs.min == 2
+    assert cs.max > 10
+
+    cs = pcs "teams of 1-2 runners and 1 announcer"
+    assert cs.type == :teams
+    assert cs.roles.include? :runners
+    assert cs.roles.include? :announcer
+    assert cs[:runners].min == 1
+    assert cs[:runners].max == 2
+    assert cs.min == 2
+    assert cs.max > 20
+
+    cs = pcs "nab 1-2 runners within 4 mi"
+    assert cs.type == :nab
+    assert cs.nab?
+    assert !cs.in_teams?
+    assert cs[:runners].min == 1
+    assert cs[:runners].max == 2
+  end
+
+  def test_radius
+    assert_equal 600, pcs("gather 3 runners and 5 hot_babes within 3 blocks").radius
+    assert pcs("gather 3 runners and 5 hot_babes").radius > 50000
+  end
+
+end

data/test/test_engine.rb

@@ -0,0 +1,30 @@
+require 'ceml'
+require 'test/helper'
+
+class TestEngine < Test::Unit::TestCase
+
+  def test_engine
+    play COMPLIMENT_SCRIPT
+    player :joe, :organizer, :agent
+    player :bill, :agent
+
+    asked :joe, /^Describe/
+    says :joe, 'red people'
+
+    told :bill, /^Look for red people/
+  end
+
+  def test_askchain
+    play ASKCHAIN_SCRIPT
+    player :joe, :players, :agent
+    player :bill, :players, :agent
+
+    asked :joe,  /favorite color/
+    asked :bill, /favorite color/
+    says :joe, "red"
+    says :bill, "green"
+    asked :joe, /with the color green/
+    asked :bill, /with the color red/
+  end
+
+end

data/test/test_instructions.rb

@@ -0,0 +1,27 @@
+require 'ceml'
+
+class TestInstructions < Test::Unit::TestCase
+  def pi text
+    CEML.parse(:instructions, text)
+  end
+
+  def assert_bad text
+    assert_raise(RuntimeError){ pi text }
+  end
+
+  def test_bad
+    assert_bad "love your mother"
+    assert_bad "tell jim re susan: i hate you"
+    assert_bad "tell phil"
+    assert_bad "ask susan re clothing"
+    assert_bad "ask susan re clothing: "
+  end
+
+  def test_instructions
+    assert_equal "run to the kitchen", pi('tell joe: run to the kitchen').tell([:joe]).text
+    assert_equal ["favorite color?", "favorite soup?"], pi(
+      "ask joe re color: favorite color?\nask joe re soup: favorite soup?"
+    ).asks([:joe]).map(&:text)
+  end
+
+end

data/test/test_scripts.rb

@@ -0,0 +1,57 @@
+require 'ceml'
+
+class TestInstructions < Test::Unit::TestCase
+
+  SCRIPTS = <<END_OF_SCRIPTS
+"Help moving |an object|" // okay?
+gather 2-6 movers within 8 blocks
+
+"Cleaning up |a public place|"
+gather 3-10 cleaners within 2 miles
+
+// the following are dedicated to my mom
+
+"Overwhelm a specific person with compliments"
+gather 5-20 players within 4 blocks
+ask organizer re target: Describe their appearance and location
+tell players: Look for |target| and compliment them briefly, then move on.
+END_OF_SCRIPTS
+
+  def ps text
+    CEML.parse(:scripts, text)
+  end
+
+  def test_scripts
+    s = ps SCRIPTS
+    assert s.size == 3
+    s0 = s[0]
+    assert_equal "Help moving |an object|", s0.title
+    assert s0.allowed_roles.include? :movers
+    assert s0.radius == 1600
+    assert s0.dramatis_personae.min == 2
+    assert s0.dramatis_personae.max == 6
+  end
+
+  def test_ceml_title
+    s = CEML.parse(:script, '"hello there"')
+    assert_equal "hello there", s.title
+
+    s = CEML.parse(:script, %q{"say: \"whoa the'a paps\""})
+    assert_equal %Q{say: "whoa the'a paps"}, s.title
+  end
+
+  def test_ceml_tell
+    cs = CEML.parse(:script, "tell agents: run and jump")
+    assert cs.roles.include? :agents
+    assert_equal "run and jump", cs.instructions.tell([:agents]).text
+    assert cs.concludes_immediately?
+    assert !cs.title
+  end
+
+  def test_ceml_questions
+    s = CEML.parse(:script, "ask agents: wassup party people?")
+    assert_equal "wassup party people?", s.instructions.asks([:agents]).first.text
+    assert !s.concludes_immediately?
+  end
+
+end