enforces data encapsulation in vool tree

gets rid of attraccessor

lib/vool/assignment_statement.rb

@@ -1,6 +1,6 @@
 module Vool
   class Assignment < Statement
-    attr_accessor :name , :value
+    attr_reader :name , :value
     def initialize(name , value )
       @name , @value = name , value
     end

lib/vool/basic_values.rb

@@ -1,12 +1,12 @@
 module Vool
   class IntegerStatement < Statement
-    attr_accessor :value
+    attr_reader :value
     def initialize(value)
       @value = value
     end
   end
   class FloatStatement < Statement
-    attr_accessor :value
+    attr_reader :value
     def initialize(value)
       @value = value
     end
@@ -22,7 +22,7 @@ module Vool
   class SuperStatement < Statement
   end
   class StringStatement < Statement
-    attr_accessor :value
+    attr_reader :value
     def initialize(value)
       @value = value
     end

lib/vool/if_statement.rb

@@ -1,11 +1,17 @@
 module Vool
   class IfStatement < Statement
-    attr_accessor :condition , :if_true , :if_false
+    attr_reader :condition , :if_true , :if_false
 
-    def initialize( cond  = nil)
+    def initialize( cond , if_true , if_false = [])
       @condition = cond
-      @if_true = []
+      @if_true = if_true
-      @if_false = []
+      @if_false = if_false
+      simplify_condition
+    end
+
+    def simplify_condition
+      return unless @condition.is_a?(ScopeStatement)
+      @condition = @condition.first if @condition.single?
     end
 
     def has_false?

lib/vool/return_statement.rb

@@ -1,6 +1,6 @@
 module Vool
   class ReturnStatement < Statement
-    attr_accessor :return_value
+    attr_reader :return_value
 
     def initialize(value)
       @return_value = value

lib/vool/ruby_compiler.rb

@@ -137,30 +137,22 @@ module Vool
 
     def on_while statement
       condition , statements = *statement
-      w = WhileStatement.new( process(condition) )
+      WhileStatement.new( process(condition) , process(statements))
-      simplify_condition(w)
-      w.statements = process(statements)
-      w
     end
 
     def on_if statement
       condition , if_true , if_false = *statement
-      w = IfStatement.new( process(condition) )
+      if_true = process(if_true)
-      simplify_condition(w)
+      if_false = process(if_false)
-      w.if_true = process(if_true)
+      IfStatement.new( process(condition) , if_true , if_false )
-      w.if_false = process(if_false)
-      w
     end
 
     def on_send statement
       kids = statement.children.dup
-      receiver = kids.shift
+      receiver = process(kids.shift) || SelfStatement.new
       name = kids.shift
-      arguments = kids
+      arguments = process_all(kids)
-      w = SendStatement.new( name )
+      SendStatement.new( name , receiver , arguments )
-      w.receiver = process(receiver) || SelfStatement.new
-      w.arguments = process_all(arguments)
-      w
     end
 
     def on_and expression
@@ -173,18 +165,14 @@ module Vool
 
     # this is a call to super without args (z = zero arity)
     def on_zsuper exp
-      w = SendStatement.new( nil )
+      SendStatement.new( nil , SuperStatement.new )
-      w.receiver = SuperStatement.new
-      w
     end
 
     # this is a call to super with args and
     # same name as current method, which is set later
     def on_super( statement )
-      w = SendStatement.new( nil )
+      arguments = process_all(statement.children)
-      w.receiver = SuperStatement.new
+      SendStatement.new( nil , SuperStatement.new , arguments)
-      w.arguments = process_all(statement.children)
-      w
     end
 
     def on_assignment statement
@@ -197,12 +185,6 @@ module Vool
 
     private
 
-    def simplify_condition( cond )
-      condition = cond.condition
-      return unless condition.is_a?(ScopeStatement)
-      cond.condition = condition.first if condition.single?
-    end
-
     def instance_name sym
       sym.to_s[1 .. -1].to_sym
     end

lib/vool/send_statement.rb

@@ -1,9 +1,9 @@
 module Vool
   class SendStatement < Statement
-    attr_accessor :name , :receiver , :arguments
+    attr_reader :name , :receiver , :arguments
-    def initialize(name)
+
-      @name = name
+    def initialize(name , receiver , arguments = [])
-      @arguments = []
+      @name , @receiver , @arguments = name , receiver , arguments
     end
   end
 end

lib/vool/statements.rb

@@ -1,6 +1,6 @@
 module Vool
   class Statements < Statement
-    attr_accessor :statements
+    attr_reader :statements
     def initialize(statements)
       @statements = statements
     end

lib/vool/variables.rb

@@ -1,6 +1,6 @@
 module Vool
   module Named
-    attr_accessor :name
+    attr_reader :name
     def initialize name
       @name = name
     end

lib/vool/while_statement.rb

@@ -1,9 +1,17 @@
 module Vool
   class WhileStatement < Statement
-    attr_accessor :condition , :statements
+    attr_reader :condition , :statements
 
-    def initialize( condition )
+    def initialize( condition , statements )
       @condition = condition
+      @statements = statements
+      simplify_condition
     end
+
+    def simplify_condition
+      return unless @condition.is_a?(ScopeStatement)
+      @condition = @condition.first if @condition.single?
+    end
+
   end
 end