gobstones 0.0.1.1

data/lib/gobstones/lang/literals/all.rb

@@ -0,0 +1,4 @@
+require 'gobstones/lang/literals/booleans'
+require 'gobstones/lang/literals/colors'
+require 'gobstones/lang/literals/directions'
+require 'gobstones/lang/literals/number'

data/lib/gobstones/lang/literals/booleans.rb

@@ -0,0 +1,109 @@
+require 'gobstones/lang/literals/literal'
+
+module Gobstones
+
+  module Lang
+
+    class Boolean < Literal
+
+      def return_type
+        :Boolean
+      end
+
+      def opposite
+        self.not
+      end
+
+      def previous
+        self.not
+      end
+
+      def next
+        self.not
+      end
+
+      def not
+        raise 'subclass responsibility'
+      end
+
+      def if_true(block, context)
+        raise 'subclass responsibility'
+      end
+
+      def if_false(block, context)
+        raise 'subclass responsibility'
+      end
+
+      def is_true?
+        raise 'subclass responsibility'
+      end
+
+    end
+
+    class True < Boolean
+
+      def <(other)
+        false
+      end
+
+      def and(other)
+        other
+      end
+
+      def or(other)
+        self
+      end
+
+      def not
+        False.new
+      end
+
+      def if_true(block, context)
+        block.evaluate context
+      end
+
+      def if_false(block, context)
+        # nothing to do, I'm true :)
+      end
+
+      def is_true?
+        true
+      end
+
+    end
+
+    class False < Boolean
+
+      def <(other)
+        self != other
+      end
+
+      def and(other)
+        self
+      end
+
+      def or(other)
+        other
+      end
+
+      def not
+        True.new
+      end
+
+      def if_true(block, context)
+        # nothing to do, I'm false :)
+      end
+
+      def if_false(block, context)
+        block.evaluate context
+      end
+
+      def is_true?
+        false
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/lang/literals/colors.rb

@@ -0,0 +1,94 @@
+require 'gobstones/lang/literals/literal'
+require 'gobstones/runner/errors/gobstones_type_error'
+
+module Gobstones
+
+  module Lang
+
+    class Color < Literal
+
+      def self.order
+        [Azul, Negro, Rojo, Verde]
+      end
+
+      def <(other)
+        self.class.order.index(self.class) < self.class.order.index(other.class)
+      end
+
+      def opposite
+        raise Gobstones::Runner::GobstonesTypeError, "colors don't have opposite"
+      end
+
+      def return_type
+        :Color
+      end
+
+    end
+
+    class Azul < Color
+
+      def previous
+        Verde.new
+      end
+
+      def next
+        Negro.new
+      end
+
+      def to_s
+        'Azul'
+      end
+
+    end
+
+    class Negro < Color
+
+      def previous
+        Azul.new
+      end
+
+      def next
+        Rojo.new
+      end
+
+      def to_s
+        'Negro'
+      end
+
+    end
+
+    class Rojo < Color
+
+      def previous
+        Negro.new
+      end
+
+      def next
+        Verde.new
+      end
+
+      def to_s
+        'Rojo'
+      end
+
+    end
+
+    class Verde < Color
+
+      def previous
+        Rojo.new
+      end
+
+      def next
+        Azul.new
+      end
+
+      def to_s
+        'Verde'
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/lang/literals/directions.rb

@@ -0,0 +1,137 @@
+require 'gobstones/lang/literals/literal'
+
+module Gobstones
+
+  module Lang
+
+    class Direction < Literal
+
+      def self.order
+        [Norte, Este, Sur, Oeste]
+      end
+
+      def <(other)
+        self.class.order.index(self.class) < self.class.order.index(other.class)
+      end
+
+      def return_type
+        :Direction
+      end
+
+    end
+
+    class Norte < Direction
+
+      def can_move?(head)
+        head.can_move_north?
+      end
+
+      def move(head)
+        head.move_north
+      end
+
+      def opposite
+        Sur.new
+      end
+
+      def previous
+        Oeste.new
+      end
+
+      def next
+        Este.new
+      end
+
+      def to_s
+        'Norte'
+      end
+
+    end
+
+    class Este < Direction
+
+      def can_move?(head)
+        head.can_move_east?
+      end
+
+      def move(head)
+        head.move_east
+      end
+
+      def opposite
+        Oeste.new
+      end
+
+      def previous
+        Norte.new
+      end
+
+      def next
+        Sur.new
+      end
+
+      def to_s
+        'Este'
+      end
+
+    end
+
+    class Sur < Direction
+
+      def can_move?(head)
+        head.can_move_south?
+      end
+
+      def move(head)
+        head.move_south
+      end
+
+      def opposite
+        Norte.new
+      end
+
+      def previous
+        Este.new
+      end
+
+      def next
+        Oeste.new
+      end
+
+      def to_s
+        'Sur'
+      end
+
+    end
+
+    class Oeste < Direction
+
+      def can_move?(head)
+        head.can_move_west?
+      end
+
+      def move(head)
+        head.move_west
+      end
+
+      def opposite
+        Este.new
+      end
+
+      def previous
+        Sur.new
+      end
+
+      def next
+        Norte.new
+      end
+
+      def to_s
+        'Oeste'
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/lang/literals/literal.rb

@@ -0,0 +1,63 @@
+require 'gobstones/modules/equal_by_class'
+require 'gobstones/runner/errors/gobstones_type_error'
+
+module Gobstones
+
+  module Lang
+
+    class Literal
+
+      include Comparable
+      include Gobstones::EqualByClass
+
+      def evaluate(context=nil)
+        self
+      end
+
+      def <=>(other)
+        self == other ? 0 : (self < other ? -1 : 1)
+      end
+
+      def <(other)
+        raise 'subclass responsibility'
+      end
+
+      def if_true(block, context)
+        raise Gobstones::Runner::GobstonesTypeError, "#{self} is not a boolean"
+      end
+
+      def if_false(block, context)
+        raise Gobstones::Runner::GobstonesTypeError, "#{self} is not a boolean"
+      end
+
+      def is_true?
+        raise Gobstones::Runner::GobstonesTypeError, "#{self} is not a boolean"
+      end
+
+      def same_type_as(other)
+        self.return_type == other.return_type
+      end
+
+      def return_type
+        raise 'subclass responsibility'
+      end
+
+      OPERATORS_MAPPING = {
+          :equal => :==,
+          :not_equal => '!='.to_sym,
+          :less_than => :<,
+          :less_equal => :<=,
+          :greater_than => :>, :greater_equal => :>=
+      }
+
+      OPERATORS_MAPPING.each do |gbs_op, ruby_op|
+        define_method gbs_op do |other|
+          send(ruby_op, other) ? True.new : False.new
+        end
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/lang/literals/number.rb

@@ -0,0 +1,49 @@
+require 'gobstones/lang/literals/literal'
+
+module Gobstones
+
+  module Lang
+
+    class Number < Literal
+
+      attr_reader :value
+
+      def initialize(num)
+        @value = num
+      end
+
+      def == other
+        super(other) && value == other.value
+      end
+
+      def <(other)
+        value < other.value
+      end
+
+      def return_type
+        :Number
+      end
+
+      [:+, :-, :*, :/, :%, :**].each do |selector|
+        define_method selector do |other|
+          self.class.new value.send(selector, other.value)
+        end
+      end
+
+      def opposite
+        self.class.new(-value)
+      end
+
+      def previous
+        self.class.new(value - 1)
+      end
+
+      def next
+        self.class.new(value + 1)
+      end
+
+    end
+
+  end
+
+end