start to add while loop

lib/ast/conditional_expression.rb

@@ -4,7 +4,10 @@ module Ast
     def initialize cond, if_true, if_false
       @cond, @if_true, @if_false = cond, if_true, if_false
     end
-
+    def inspect
+      self.class.name + ".new(" + cond.inspect + ", "+ 
+        if_true.inspect +  ","  + if_false.inspect + " )"  
+    end
     def attributes
       [:cond, :if_true, :if_false]
     end

lib/ast/expression.rb

@@ -37,5 +37,6 @@ end
 
 require_relative "basic_expressions"
 require_relative "conditional_expression"
+require_relative "while_expression"
 require_relative "function_expression"
-require_relative "operator_expressions"
+require_relative "operator_expressions"

lib/ast/while_expression.rb

@@ -0,0 +1,16 @@
+module Ast
+  class WhileExpression < Expression
+    attr_reader  :condition, :body
+    def initialize condition, body
+      @condition , @body = condition , body
+    end
+    def inspect
+      self.class.name + ".new(" + condition.inspect + ", "  + body.inspect + " )"  
+    end
+    def attributes
+      [:condition, :body]
+    end
+  end
+
+  
+end

lib/parser/conditional.rb

@@ -6,5 +6,10 @@ module Parser
         delimited_expressions(keyword_else).as(:if_true) >> 
         delimited_expressions(keyword_end).as(:if_false)
     }
+    
+    rule(:while) {
+      keyword_while  >> expression.as(:while_cond) >>  keyword_do >> newline >> 
+                        delimited_expressions(keyword_end).as(:body)
+    }
   end
 end

lib/parser/keywords.rb

@@ -8,5 +8,8 @@ module Parser
     rule(:keyword_true) {   str('true').as(:true) >> space?}
     rule(:keyword_false){   str('false').as(:false) >> space?}
     rule(:keyword_nil)  {   str('null').as(:nil) >> space?}
+    rule(:keyword_while)  {   str('while').as(:while) >> space?}
+    rule(:keyword_do)  {   str('do').as(:do) >> space?}
+    rule(:keyword_begin)  {   str('begin').as(:begin) >> space?}
   end
 end

lib/parser/transform.rb

@@ -24,6 +24,11 @@ module Parser
            Ast::ConditionalExpression.new(conditional, if_true, if_false) 
          end
 
+    rule(:while     => simple(:while), :while_cond => simple(:while_cond) , :do => simple(:do), 
+         :body => {:expressions => sequence(:body)}) do
+           Ast::WhileExpression.new(while_cond, body) 
+         end
+
     rule(:parmeter  => simple(:parmeter))    { parmeter  }
     rule(:parmeter_list => sequence(:parmeter_list)) { parmeter_list }