ceml 0.7.13 → 0.8.0

data/lib/ceml/processor.rb

@@ -0,0 +1,162 @@
+require 'redis/objects'
+
+module Kernel
+  def gen_code(size = 8)
+    rand(36**size).to_s(36)
+  end
+end
+
+module CEML
+  class Processor
+
+    # ===================
+    # = scripts/bundles =
+    # ===================
+
+    def set_bundle(id, castables)
+      # log "set_bundle(): #{id}, #{castables.inspect}"
+      Bundle.new(id).castables = castables
+    end
+
+    def reset_bundle(id)
+      Bundle.new(id).reset
+    end
+
+    def run_latest
+      IncidentModel.run_latest(self)
+    end
+
+
+    # =============
+    # = incidents =
+    # =============
+
+    def launch(incident_id, bytecode)
+      incident_id ||= gen_code
+      IncidentModel.new(incident_id).bytecode.value = bytecode
+    end
+
+    def add_cast(incident_id, castings)
+      i = IncidentModel.new(incident_id)
+      i.add_castings(castings)
+      i.run(self)
+    end
+
+
+    # ============
+    # = requests =
+    # ============
+
+    def ping(bundle_id, player)
+      # log "ping(): #{bundle_id}, #{player[:id]}"
+      Player.update(bundle_id, player, self) do |player|
+        if incident_id = Player.new(player[:id]).top_incident_id
+          IncidentModel.new(incident_id).run(self)
+        else
+          if player[:received]
+            player_did_report({:player => player, :squad_id => bundle_id, :city => player[:city]}, nil)
+          end
+          simple_audition(bundle_id, player)
+        end
+      end
+    end
+
+    def reset_player(bundle_id, player_id)
+      Player.new(player_id).reset
+    end
+
+    # =============
+    # = internals =
+    # =============
+
+    def simple_audition(bundle_id, player)
+      log "audition(): #{bundle_id}, #{player[:id]}"
+      b = Bundle.new(bundle_id)
+      b.clear_from_all_rooms(player)
+      if incident_id = b.absorb?(player)
+        IncidentModel.new(incident_id).run(self)
+        return true
+      end
+      player_did_report({:player => player, :squad_id => bundle_id, :city => player[:city]}, nil)
+      b.register_in_rooms(player)
+    end
+
+    def seed(bundle_id, stanza_name, player)
+      log "seed(): #{bundle_id}, #{stanza_name}, #{player[:id]}"
+      b = Bundle.new(bundle_id)
+      if incident_id = b.absorb?(player, stanza_name)
+        IncidentModel.new(incident_id).run(self)
+        return true
+      end
+      b.register_in_rooms(player, stanza_name)
+    end
+
+    # =============
+    # = callbacks =
+    # =============
+
+    def recognize_override(cmd, new_message, player, player_obj)
+      if respond_to?("override_#{cmd}")
+        send("override_#{cmd}", new_message, player, player_obj)
+        true
+      end
+    end
+
+    def override_abort(new_message, player, player_obj)
+      incident = player_obj.top_incident
+      if incident
+        incident.release(player_obj.id)
+        unlatch(player[:squad_id], player[:id], incident.id)
+        player_obj.reset
+        tell(player[:squad_id], player[:id], :message, :msg => 'aborted')
+      else
+        player_obj.reset
+        tell(player[:squad_id], player[:id], :message, :msg => 'nothing to abort from')
+      end
+    end
+
+    def log(s)
+      puts s
+    end
+
+    def player_said(data, what)
+      tell('_', data[:player][:id], what[:key], what)
+    end
+
+    def unlatch(sqid, player_id, incident_id)
+      #no op
+    end
+
+    JUST_SAID = {}
+    def tell(sqid, player_id, key, meta)
+      JUST_SAID[player_id] ||= []
+      JUST_SAID[player_id] << meta.merge(:key => key)
+      # puts "Said #{key} #{meta.inspect}"
+    end
+
+    def player_answered_q(data, what)
+      Player.update data[:player][:bundle_id], data[:player].like(:id, :qs_answers), self
+    end
+    alias_method :player_set, :player_answered_q
+
+    def player_seeded(data, what)
+      p = data[:player].dup
+      p.delete(:roles)
+      p[:seeded] = "#{what[:target]}:#{what[:role]}"
+      puts "SEEDED #{p[:id]} AS #{what[:target]}:#{what[:role]}"
+
+      self.class.seed(p[:bundle_id], what[:target], p)
+    end
+
+    def player_did_report(*args)
+    end
+
+
+    # ====================
+    # = queue processing =
+    # ====================
+
+    def self.method_missing(*args); Queue.new.calls << args; end
+    def self.run(); Queue.new.run(self); end
+  end
+end

data/lib/ceml.rb

@@ -1,30 +1,23 @@
 require 'forwardable'
-require 'treetop'
 
-require 'ceml/script'
-require 'ceml/casting_statement'
-require 'ceml/instruction_statements'
-require 'ceml/tt/lexer'
-require 'ceml/tt/casting'
-require 'ceml/tt/instructions'
-require 'ceml/tt/scripts'
-
-require 'ceml/role'
-require 'ceml/confluence'
-require 'ceml/incident'
-require 'ceml/driver'
+require 'ceml/models'
+require 'ceml/lang'
+require 'ceml/processor'
 
 module CEML
   extend self
   @extra_seconds = 0
   def clock; Time.now.utc.to_i + @extra_seconds; end
   def incr_clock(s); @extra_seconds += s; end
+  def dur(n, unit)
+    n * case unit
+    when /^h/; 60*60; when /^mi/; 60; else 1; end
+  end
 end
 
 module CEML
   def parse(what, string)
     string = string.dup
-    string.gsub!(/\n +/, ' ')
     what = case what
     when :script then :free_script
     when :scripts then :free_scripts

data/test/askchain.ceml

@@ -0,0 +1,6 @@
+"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 |somebody.color|. what are they wearing?
+ask players re rightmatch: are you wearing |somebody.observation|?
+ask players re task: take your new partner and see if you can find something beautiful in the park.

data/test/compliment.ceml

@@ -0,0 +1,4 @@
+"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 |somebody.target| and compliment them briefly, then move on.

data/test/dialogues/accept.ceml

@@ -0,0 +1,24 @@
+accept 2 new first_signups, many new later_signups
+seed signup1 with first_signups
+seed signup2 with later_signups
+
+(signup1)
+accept 1 signup
+tell signup: you're first!
+
+(signup2)
+accept 1 signup
+tell signup: you're second!
+
+---
+
+A > hi
+A < first
+B > hi
+B < first
+C > hi
+C < second
+D > hi
+D < second
+E > hi
+E < second

data/test/dialogues/basic_seed.ceml

@@ -0,0 +1,26 @@
+await 1 new signup
+ask signup re boots: Do you like boots?
+tell signup: ok, seeding you now
+seed match with signup
+
+(match)
+await 1 alpha and 1 beta
+tell alpha: you're alpha
+tell beta: you're beta
+
+---
+
+A > hi
+A < boots
+A > of course
+A < ok
+A <
+
+B > hi
+B < boots
+B > of course
+B < ok
+
+A < alpha
+B < beta
+

data/test/dialogues/jordan.ceml

@@ -0,0 +1,121 @@
+"Challenge"
+await 1 new alpha and 1 new beta
+record both name
+set both location: San Francisco, CA
+tell both: Welcome to "The Challenge!"
+ask both re play: You wanna play?
+release both unless yes
+
+tell alpha: Ok, you'll have to complete the following challenge. Let's start with something small.
+
+tell beta: Great! We'll be in touch soon.
+
+ask alpha re task: I need you to stop what you're doing, immediately go outside, and run twice around the nearest building. Can you complete this task in 15 minutes or less?
+
+release alpha unless yes
+//this will become replace in the future.
+
+assign alpha: Great! Please text the word 'done' when you're done. And remember, you only have 15 minutes!
+ask alpha: Amazing work! Now, you get a chance to issue a challenge to a stranger. You in???
+release alpha unless yes
+
+ask alpha re challenge: Ok. Text in a new challenge that can be completed from any location. Think of physical or social things that are difficult but still attainable from any location.
+tell alpha: Thanks for playing! We'll let you know when someone has completed your challenge.
+
+ask beta re do_it: Another player has issued you a challenge. |alpha.challenge| Can you complete this task in 15 minutes or less?
+release beta unless yes
+
+assign beta: Great! Please text the word 'done' when you're done. And remember, you only have 15 minutes!
+seed challenge_loop with beta as alpha, alpha as omega
+//seed challenge_loop with beta as alpha, alpha as omega
+
+
+(challenge_loop)
+await omega and alpha and beta
+record beta name
+set beta location: San Francisco, CA
+tell beta: Welcome to "The Challenge!"
+ask beta re play: You wanna play?
+release beta unless yes
+
+tell beta: Great! We'll be in touch soon.
+
+tell alpha: Amazing work! Now, you get a chance to issue a challenge to a stranger. You in???
+release alpha unless yes
+
+ask alpha re challenge: Ok. Text in a new challenge that can be completed from any location. Think of physical or social things that are difficult but still attainable from any location.
+
+ask beta re do_it: Another player has issued you a challenge. |alpha.challenge| Can you complete this task in 15 minutes or less?
+release beta unless yes
+
+assign beta: Great! Please text the word 'done' when you're done. And remember, you only have 15 minutes!
+seed challenge_loop with beta as alpha and alpha as omega and omega as beta
+//seed challenge_loop with beta as alpha and alpha as omega
+
+
+---
+
+J > Jordan
+J <
+D > Derek
+D < Welcome
+J < Welcome
+J < You wanna
+D < You wanna
+J > Yes
+D > Yes
+J < complete the following
+D < be in touch soon
+J < need you to stop
+J > Yes
+J < Please text
+J > done
+J < Amazing work
+J > Yes
+J < new challenge
+J > Do 20 pushups
+J < Thanks for playing
+D < Another player has issued
+D > Yes
+D < Please text
+D > done
+D <
+
+// K > Kiley
+// K < Welcome
+// K < You wanna
+// K > Yes
+// K < Awesome!
+// (20s)
+// K < If you want to opt out
+//
+// P > Paul
+// P < Welcome
+// P < You wanna
+// P > Yes
+// P < Awesome!
+// (20s)
+// P < If you want to opt out
+//
+// D <  Amazing work
+// D > Yes
+// D < new challenge
+// D > Wave and smile at three strangers on the street
+// D < Thanks for playing
+// K < Another player has issued
+// K > Yes
+// K < Please text
+// K > done
+// K <
+//
+// # (challenge_loop2)
+// # K <  Amazing work
+// # K > Yes
+// # K < new challenge
+// # K > Wave and smile at three strangers on the street
+// # K < Thanks for playing
+// # P < Another player has issued
+// # P > Yes
+// # P < Please text
+// # P > done
+// # P <

data/test/helper.rb

@@ -1,67 +1,72 @@
 require 'rubygems'
 require 'test/unit'
 
+SCRIPTS = {}
+Dir["test/*.ceml"].each do |f|
+  name = File.basename(f, '.ceml')
+  SCRIPTS[name] = File.new(f).read
+end
+
 $LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
 $LOAD_PATH.unshift(File.dirname(__FILE__))
 require 'ceml'
 
 class Test::Unit::TestCase
-  DRIVER = CEML::Driver.new
-
   def play script = nil
-    @iid = script && DRIVER.start(nil, script)
+    if String === script
+      script = CEML.parse(:script, script)
+    end
+    if script
+      @iid = gen_code
+      puts "launching w. bytecode #{script.bytecode.inspect}"
+      CEML::Processor.launch(@iid, script.bytecode)
+      CEML::Processor.run
+    end
     yield
-    CEML::Driver::JUST_SAID.clear
-    CEML::Driver::PLAYERS.clear
-    CEML::Driver::INCIDENTS.clear
+    CEML::Processor::JUST_SAID.clear
   end
 
-  def scriptfam *scripts
-    fam_id = gen_code
-    scripts.each do |script|
-      script = CEML.parse(:script, script) if String === script
-      DRIVER.add_script fam_id, script
-    end
-    fam_id
+  def scriptfam scripts
+    CEML.parse(:scripts, scripts).map(&:castable)
   end
 
   def ping s, candidate
-    DRIVER.ping_all s, candidate
+    CEML::Processor.set_bundle(s.hash.to_s, s)
+    CEML::Processor.ping(s.hash.to_s, candidate)
+    CEML::Processor.run
   end
 
   def says id, str
-    iid = CEML::Driver::INCIDENTS.keys.find do |iid|
-      CEML::Driver::PLAYERS[iid].find{ |p| p[:id] == id }
-    end
-    if str == 'y'
-      DRIVER.post iid, :id => id, :received => str, :recognized => :yes
-    else
-      DRIVER.post iid, :id => id, :received => str
-    end
+    player = {:id => id.to_s, :received => str}
+    player[:recognized] = :yes if str.downcase == 'y' || str.downcase == 'yes'
+    player[:recognized] = :abort if str == 'abort'
+    puts "SAYING(#{id}): #{str}"
+    CEML::Processor.ping(nil, player)
+    CEML::Processor.run
   end
 
-  def player id, *roles
-    DRIVER.post @iid, :id => id, :roles => roles
-  end
-
-  def roll
-    DRIVER.post @iid
+  def silent id
+    id = id.to_s
+    p = CEML::Processor::JUST_SAID[id]
+    assert !p || p.empty?
   end
 
-  def asked id, rx
-    assert p = CEML::Driver::JUST_SAID[id]
-    assert_equal :ask, p[:said]
-    assert_match rx, p[:q]
-    CEML::Driver::JUST_SAID.delete id
+  def told id, rx
+    id = id.to_s
+    assert CEML::Processor::JUST_SAID[id]
+    assert p = CEML::Processor::JUST_SAID[id].shift
+    assert_match rx, p[:msg] || p[:q]
   end
+  alias_method :asked, :told
 
-  def silent id
-    assert !CEML::Driver::JUST_SAID[id]
+  def player id, role
+    CEML::Player.new(id.to_s).clear_answers
+    CEML::Processor.add_cast(@iid, { role => [{ :id => id.to_s }]})
+    CEML::Processor.run
   end
 
-  def told id, rx
-    assert p = CEML::Driver::JUST_SAID[id]
-    assert_match rx, p[:msg]
-    CEML::Driver::JUST_SAID.delete id
+  def roll
+    CEML::Processor.run_latest
+    CEML::Processor.run
   end
 end

data/test/jane.ceml

@@ -0,0 +1,48 @@
+await 1 new signup
+record signup first_name
+ask signup re shoeless:
+  Hello |his.first_name|. You are Level Zero. Lowly level zero.
+  To advance to Level 1, please remove a shoe. Keep it off,
+  and text back "shoeless".
+tell signup:
+  O ho! Well done |his.first_name|. Now the other players
+  know you're in the game, too. But you're still a sad Level 1.
+ask signup re game:
+  To advance to Level 2, answer this question. What was your
+  favorite game when you were 10 years old? Tell me now.
+tell signup:
+  Ah yes. |his.game| WAS an amazing game. You should try to play
+  it again--sometime this week, perhaps?
+  In the meantime you are but a mere Level 2. Let's see if we can do
+  something about that. (You still have your shoe off, right?)
+ask signup re friend:
+  While you're texting... Pick someone in your address book you
+  haven't talked to in a while. Send them an SMS
+  just to say hello. Then tell me their first name.
+tell signup:
+  That was awfully nice of you to message |his.friend|
+  Welcome to the amazing Level 3. You'll like it here. Stay awhile.
+tell signup:
+  Just kidding. Level 4 is way better than this. To get to
+  Level 4, wait for an appropriate moment in Jane's talk
+  and shout an encouraging "Amen!" Yes. Out loud.
+ask signup re amen:
+  If you're not the spiritual type, a forceful "YEAH!" will do.
+  When you've accomplished your mission, text me "amen".
+tell signup:
+  Wow. I didn't think you had it in you. No one has ever gotten to
+  Level 4 before. This is VERY exciting.
+tell signup:
+  If you get to Level 5, I'll give you a secret password. Tell it to
+  Jane, and you'll get some very fancy loot.
+ask signup re ovation:
+  All you have to do is wait until the end of Jane's talk--and try to
+  spark a standing ovation. Good luck! Text ovation afterward for your
+  password.
+tell signup:
+  You did it! You are Level 5. You are AMAZING. The conquering hero of
+  the entire audience! Now I can give you your password.
+tell signup:
+  Ask Jane to sign a copy of her book to Mr. Gamey McGameful. Of course,
+  this will only work if she saw you standing in that ovation. You were
+  standing, right?

data/test/{test_casting.rb → lang/test_casting.rb}

@@ -19,6 +19,7 @@ class TestCasting < Test::Unit::TestCase
     assert_bad "gather 4 *runners"
     assert_bad "gather 4 run*ners"
     assert_bad "gather 4 runners*"
+    assert_bad "() gather a-b runners"
   end
 
   def test_range
@@ -74,4 +75,8 @@ class TestCasting < Test::Unit::TestCase
     assert !pcs("gather 3 runners and 5 hot_babes").radius
   end
 
+  def test_stanza
+    assert_equal 'woot', pcs("(woot)\nawait 3 runners and 5 hot_babes within 3 blocks").stanza_name
+  end
+
 end

data/test/lang/test_instructions.rb

@@ -0,0 +1,42 @@
+require 'ceml'
+
+class TestInstructions < Test::Unit::TestCase
+  def pi text
+    CEML.parse(:instructions, text)
+  end
+
+  def ps text
+    CEML.parse(:script, 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: "
+    assert_bad "seed X with"
+    assert_bad "seed X with foo as "
+    assert_bad "pick X from"
+  end
+
+  def test_instructions
+    ps("seed X with Y").bytecode
+    ps("seed X with Y as Z").bytecode
+    # puts x.bytecode.inspect
+    # pi "pick X from a, b, c or d"
+    pi "pick foo bar:\n  lalalala\n  babababa"
+    pi "replace finder unless yes"
+    x = ps('tell joe: run to the kitchen')
+    # p x
+    assert_equal "run to the kitchen", x.simple_message
+    # assert_equal ["favorite color?", "favorite soup?"], pi(
+    #   "ask joe re color: favorite color?\nask joe re soup: favorite soup?"
+    # ).i_asks([:joe]).map(&:text)
+  end
+
+end

data/test/{test_scripts.rb → lang/test_scripts.rb}

@@ -4,6 +4,7 @@ class TestScripts < Test::Unit::TestCase
 
   SCRIPTS = <<END_OF_SCRIPTS
 "Help moving |an object|" // okay?
+(stanza_title)
 gather 2-6 movers within 8 blocks
 
 "Cleaning up |a public place|"
@@ -43,14 +44,14 @@ END_OF_SCRIPTS
   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_equal "run and jump", cs.simple_message
     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_equal "wassup party people?", s.simple_question
     assert !s.concludes_immediately?
   end
 

data/test/sync.ceml

@@ -0,0 +1,6 @@
+await 1 new alpha and 1 new beta
+ask alpha re color: What color?
+ask beta re color: What color?
+sync both
+tell alpha: Hi there
+tell beta: Goodbye

data/test/test_castable.rb

@@ -0,0 +1,20 @@
+require 'test/unit'
+require 'ceml'
+
+class TestCastable < Test::Unit::TestCase
+
+  def test_castable
+    s = CEML.parse(:script, "await 1 alpha and 1 beta\ntell both: hi")
+    assert cast = s.castable.cast_from([{ :id => 'jim' }, { :id => 'bob' }])
+    assert cast.folks.size == 2
+    assert cast['alpha'].size == 1
+    assert cast['beta'].size == 1
+  end
+
+  # next, create a waiting room and add jim and bob and verify that an incident is started
+
+  # add jim and bob one at a time, and verify that an incident is started
+
+  # add two people that don't satisfy the criteria, then a third who matches
+
+end