ceml 0.6.2 → 0.6.3

data/VERSION

@@ -1 +1 @@
-0.6.2
+0.6.3

data/ceml.gemspec

@@ -5,11 +5,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{ceml}
-  s.version = "0.6.2"
+  s.version = "0.6.3"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["Joe Edelman"]
-  s.date = %q{2011-01-30}
+  s.date = %q{2011-01-31}
   s.description = %q{a language for coordinating real world events}
   s.email = %q{joe@citizenlogistics.com}
   s.extra_rdoc_files = [

data/lib/ceml/incident.rb

@@ -56,8 +56,10 @@ module CEML
           bytecode << [:complete_delay]
         end
         case inst.cmd
-        when :register
+        when :record
           bytecode << [:answered_q, {:key => inst.key}]
+        when :set
+          bytecode << [:set, {:key => inst.key, :value => inst.text}]
         when :ask
           bytecode << [:ask_q, {:text => inst.text}]
           bytecode << [:answered_q, {:key => inst.key}]
@@ -145,6 +147,11 @@ module CEML
       true
     end
 
+    def set q
+      qs_answers[q[:key]] = q[:value]
+      true
+    end
+
     def send_msg a
       text = interpolate(a[:text]) or return false
       say :message, :msg => text

data/lib/ceml/tt/instructions.treetop

@@ -3,7 +3,7 @@ grammar Instructions
     include Lexer
 
     rule basic_statement
-        (ask_stmt / tell_stmt / assign_stmt / register_stmt) {
+        (ask_stmt / tell_stmt / assign_stmt / record_stmt / set_stmt) {
 
             def delay
                 if parent.respond_to? :later and not parent.later.empty?
@@ -14,7 +14,7 @@ grammar Instructions
             def role;  id.text_value.to_sym; end
             def text;  super.text_value; end
             def var
-                return varname.text_value if cmd == :register
+                return varname.text_value if cmd == :record or cmd == :set
                 (!defined?(:about) || about.empty?) ? nil : about.varname.text_value;
             end
             def key;   var || text; end
@@ -22,7 +22,8 @@ grammar Instructions
               text_value =~ /^ask/      and return :ask
               text_value =~ /^tell/     and return :tell
               text_value =~ /^assign/   and return :assign
-              text_value =~ /^register/ and return :register
+              text_value =~ /^record/   and return :record
+              text_value =~ /^set/      and return :set
             end
         }
     end
@@ -35,8 +36,8 @@ grammar Instructions
         duration ws 'later' ws
     end
 
-    rule register_stmt
-        'register' ws id ws varname:id
+    rule record_stmt
+        'record' ws id ws varname:id
     end
 
     rule tell_stmt
@@ -51,5 +52,8 @@ grammar Instructions
         'ask' ws id about:(ws 're' ws varname:id)? ':' ws? text
     end
 
+    rule set_stmt
+        'set' ws id ws varname:id ':' ws? text
+    end
 end
 end

data/lib/ceml.rb

@@ -23,6 +23,7 @@ end
 
 module CEML
   def parse(what, string)
+    string = string.dup
     string.gsub!(/\n +/, ' ')
     what = case what
     when :script then :free_script

data/test/test_incident.rb

@@ -11,7 +11,7 @@ XXX
 JANE_SCRIPT = <<XXX
 
 await 1 new signup
-register signup first_name
+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,

metadata

@@ -5,8 +5,8 @@ version: !ruby/object:Gem::Version
   segments: 
   - 0
   - 6
-  - 2
-  version: 0.6.2
+  - 3
+  version: 0.6.3
 platform: ruby
 authors: 
 - Joe Edelman
@@ -14,7 +14,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2011-01-30 00:00:00 -07:00
+date: 2011-01-31 00:00:00 -08:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency