gobstones 0.0.1.1

data/README.md

@@ -0,0 +1,17 @@
+## gobstones-rb
+
+[![Build Status](https://travis-ci.org/ngarbezza/gobstones-rb.png?branch=master)](https://travis-ci.org/ngarbezza/gobstones-rb)
+[![Dependency Status](https://gemnasium.com/ngarbezza/gobstones-rb.png)](https://gemnasium.com/ngarbezza/gobstones-rb)
+[![Coverage Status](https://coveralls.io/repos/ngarbezza/gobstones-rb/badge.png?branch=master)](https://coveralls.io/r/ngarbezza/gobstones-rb?branch=master)
+[![Code Climate](https://codeclimate.com/github/ngarbezza/gobstones-rb.png)](https://codeclimate.com/github/ngarbezza/gobstones-rb)
+
+Ruby implementation of the Gobstones programming language.
+[Haskell](http://sourceforge.net/projects/gobstones/) and
+[Python](https://bitbucket.org/foones/gobstones) implementations.
+
+Gobstones is a programming language designed for teaching the fundamental
+abstractions for algorithmic problem solving.
+
+## Status
+
+In progress

data/Rakefile

@@ -0,0 +1,4 @@
+require 'rspec/core/rake_task'
+RSpec::Core::RakeTask.new('spec')
+
+task :default => :spec

data/bin/gobstones

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+
+$:.unshift File.dirname(__FILE__) + '/lib'
+
+require 'gobstones/cli/runner'
+
+gbs_file = ARGV[0]
+if gbs_file
+  Gobstones::CLI::Runner.run(gbs_file)
+else
+  puts 'No Gobstones program specified'
+end

data/gobstones.gemspec

@@ -0,0 +1,24 @@
+lib = File.expand_path '../lib/', __FILE__
+$:.unshift lib unless $:.include?(lib)
+
+Gem::Specification.new do |spec|
+  spec.name = 'gobstones'
+  spec.version = '0.0.1.1'
+  spec.licenses = ['GPLv3']
+  spec.authors = ['Nahuel Garbezza']
+  spec.email = ['n.garbezza@gmail.com']
+  spec.homepage = 'http://nahuelgarbezza.com.ar/gobstones-rb/'
+  spec.summary = %q{Ruby implementation of the Gobstones programming language}
+  spec.description = %q{Ruby implementation of the Gobstones programming language}
+
+  spec.required_ruby_version = '>= 1.9.3'
+  spec.required_rubygems_version = '>= 1.3.6'
+
+  spec.add_development_dependency 'rspec', '~> 2'
+
+  spec.files = `git ls-files`.split $/
+  spec.test_files = spec.files.grep %r{^spec/}
+
+  spec.executables = %w(gobstones)
+  spec.require_paths = %w(lib)
+end

data/lib/gobstones/cli/board_template

@@ -0,0 +1,39 @@
+         0         1         2         3         4         5         6         7         8       
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  8 |         |         |         |         |         |         |         |         |         | 8
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  7 |         |         |         |         |         |         |         |         |         | 7
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  6 |         |         |         |         |         |         |         |         |         | 6
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  5 |         |         |         |         |         |         |         |         |         | 5
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  4 |         |         |         |         |         |         |         |         |         | 4
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  3 |         |         |         |         |         |         |         |         |         | 3
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  2 |         |         |         |         |         |         |         |         |         | 2
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  1 |         |         |         |         |         |         |         |         |         | 1
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+    |         |         |         |         |         |         |         |         |         |  
+  0 |         |         |         |         |         |         |         |         |         | 0
+    |         |         |         |         |         |         |         |         |         |  
+    +---------+---------+---------+---------+---------+---------+---------+---------+---------+  
+         0         1         2         3         4         5         6         7         8       

data/lib/gobstones/cli/printer.rb

@@ -0,0 +1,106 @@
+require 'gobstones/lang/literals/colors'
+
+module Gobstones
+
+  module CLI
+
+    class Printer
+
+      TEMPLATE = File.read(File.dirname(__FILE__) + '/board_template')
+
+      def initialize(context)
+        @context = context
+        @board = TEMPLATE
+      end
+
+      def print
+        highlight_current_cell
+        put_ball_values
+        puts @board
+      end
+
+      private
+
+      def highlight_current_cell
+        char = 'X'
+        x = @context.head.x_pos
+        y = @context.head.y_pos
+        highlight_row x, y, char
+        highlight_row x, y - 1, char
+        highlight_column x, y, char
+        highlight_column x + 1, y, char
+      end
+
+      def put_ball_values
+        total_rows.times do |x|
+          total_columns.times do |y|
+            put_ball_value @context.board.number_of_balls(x, y, Gobstones::Lang::Negro.new), 'N', x, y, 2, 1
+            put_ball_value @context.board.number_of_balls(x, y, Gobstones::Lang::Azul.new) , 'A', x, y, 6, 1
+            put_ball_value @context.board.number_of_balls(x, y, Gobstones::Lang::Verde.new), 'V', x, y, 2, 3
+            put_ball_value @context.board.number_of_balls(x, y, Gobstones::Lang::Rojo.new) , 'R', x, y, 6, 3
+          end
+        end
+      end
+
+      def put_ball_value(number, char, x, y, x_offset, y_offset)
+        unless number.zero?
+          corner = cell_top_left_corner x, y
+          pos = corner + (y_offset * line_length) + x_offset
+          if number < 10
+            @board[pos] = ' '
+            @board[pos+1] = number.to_s
+          else
+            @board[pos] = number.to_s[0]
+            @board[pos+1] = number.to_s[1]
+          end
+          @board[pos+2] = char
+        end
+      end
+
+      def highlight_row(x, y, char)
+        corner = cell_top_left_corner x, y
+        (cell_width - 1).times do |index|
+          @board[corner + index + 1] = char
+        end
+      end
+
+      def highlight_column(x, y, char)
+        corner = cell_top_left_corner x, y
+        (cell_height - 1).times do |index|
+          @board[corner + ((index + 1) * line_length)] = char
+        end
+      end
+
+      def line_length
+        98
+      end
+
+      def cell_height
+        4
+      end
+
+      def cell_width
+        10
+      end
+
+      def cell_top_left_corner(x, y)
+        head_lines = 1
+        head_chars = 4
+        y_to_go = (total_columns - 1 - y) * cell_height + head_lines
+        x_to_go = x * cell_width + head_chars
+        (y_to_go * line_length) + x_to_go
+      end
+
+      def total_columns
+        9
+      end
+
+      def total_rows
+        9
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/cli/runner.rb

@@ -0,0 +1,52 @@
+require 'gobstones/parser/treetop_parser'
+require 'gobstones/parser/parse_error'
+require 'gobstones/cli/printer'
+
+include Gobstones::Parser
+
+module Gobstones
+
+  module CLI
+
+    class Runner
+
+      def self.run(file_name)
+        new(File.read(file_name)).run
+      end
+
+      def initialize(code)
+        @code = code
+        @parser = Gobstones::Parser::TreetopParser.new
+      end
+
+      def run
+        print_program_result parse_program.evaluate
+      rescue Gobstones::Parser::ParseError => parse_error
+        handle_parse_error parse_error
+      rescue Exception => e
+        # TODO handle more gobstones exceptions
+        raise e
+      end
+
+      private
+
+      def print_program_result(context)
+        Printer.new(context).print
+      end
+
+      def parse_program
+        @parser.parse(@code)
+      end
+
+      def handle_parse_error(parse_error)
+        parse_error.parser.failure_reason =~ /^(Expected .+) after/m
+        puts "#{$1.gsub("\n", '$NEWLINE')}:"
+        puts parse_error.code.lines.to_a[parse_error.parser.failure_line - 1]
+        puts "#{'~' * (parse_error.parser.failure_column - 1)}^"
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/extensions/all.rb

@@ -0,0 +1,2 @@
+require 'gobstones/extensions/fixnum'
+require 'gobstones/extensions/boolean'

data/lib/gobstones/extensions/boolean.rb

@@ -0,0 +1,17 @@
+require 'gobstones/lang/literals/booleans'
+
+class TrueClass
+
+  def to_gbs_bool
+    Gobstones::Lang::True.new
+  end
+
+end
+
+class FalseClass
+
+  def to_gbs_bool
+    Gobstones::Lang::False.new
+  end
+
+end

data/lib/gobstones/extensions/fixnum.rb

@@ -0,0 +1,9 @@
+require 'gobstones/lang/literals/number'
+
+class Fixnum
+
+  def to_gbs_num
+    Gobstones::Lang::Number.new self
+  end
+
+end

data/lib/gobstones/lang/all.rb

@@ -0,0 +1,5 @@
+require 'gobstones/lang/literals/all'
+require 'gobstones/lang/expressions/all'
+require 'gobstones/lang/commands/all'
+require 'gobstones/lang/definitions/all'
+require 'gobstones/lang/program'

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

@@ -0,0 +1,13 @@
+require 'gobstones/lang/commands/assignments'
+require 'gobstones/lang/commands/boom_cmd'
+require 'gobstones/lang/commands/command_block'
+require 'gobstones/lang/commands/if_cmd'
+require 'gobstones/lang/commands/ir_al_origen_cmd'
+require 'gobstones/lang/commands/mover_cmd'
+require 'gobstones/lang/commands/poner_cmd'
+require 'gobstones/lang/commands/procedure_call'
+require 'gobstones/lang/commands/repeat_with_cmd'
+require 'gobstones/lang/commands/sacar_cmd'
+require 'gobstones/lang/commands/skip_cmd'
+require 'gobstones/lang/commands/vaciar_tablero_cmd'
+require 'gobstones/lang/commands/while_cmd'

data/lib/gobstones/lang/commands/assignments.rb

@@ -0,0 +1,29 @@
+module Gobstones
+
+  module Lang
+
+    class SingleAssignment
+
+      attr_reader :var_name, :expression
+
+      def initialize(var_name, expression)
+        @var_name, @expression = var_name, expression
+      end
+
+      def ==(other)
+        self.class == other.class &&
+        self.var_name == other.var_name &&
+        self.expression == other.expression
+      end
+
+      def evaluate(context)
+        context.set var_name, expression.evaluate(context)
+      end
+
+    end
+
+    # TODO implement multiple assignment
+
+  end
+
+end

data/lib/gobstones/lang/commands/boom_cmd.rb

@@ -0,0 +1,28 @@
+require 'gobstones/runner/errors/boom_error'
+
+module Gobstones
+
+  module Lang
+
+    class Boom
+
+      attr_reader :message
+
+      def initialize(message)
+        @message = message
+      end
+
+      def ==(other)
+        self.class == other.class &&
+        self.message == other.message
+      end
+
+      def evaluate(context=nil)
+        raise Gobstones::Runner::BoomError, message
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/lang/commands/command_block.rb

@@ -0,0 +1,37 @@
+require 'gobstones/modules/equal_by_class'
+
+module Gobstones
+
+  module Lang
+
+    class CmdBlock
+
+      include Gobstones::EqualByClass
+
+      attr_reader :commands
+
+      def self.empty
+        self.new []
+      end
+
+      def initialize(commands)
+        @commands = commands
+      end
+
+      def ==(other)
+        super(other) && self.commands == other.commands
+      end
+
+      def empty?
+        commands.empty?
+      end
+
+      def evaluate(context)
+        commands.each { |command| command.evaluate context }
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/lang/commands/conditional_cmd.rb

@@ -0,0 +1,27 @@
+module Gobstones
+
+  module Lang
+
+    class ConditionalCmd
+
+      attr_reader :condition, :then_block
+
+      def initialize(condition, then_block)
+        @condition, @then_block = condition, then_block
+      end
+
+      def ==(other)
+        self.class == other.class &&
+        self.condition == other.condition &&
+        self.then_block == other.then_block
+      end
+
+      def evaluate_condition(context)
+        condition.evaluate context
+      end
+
+    end
+
+  end
+
+end

data/lib/gobstones/lang/commands/if_cmd.rb

@@ -0,0 +1,38 @@
+require 'gobstones/lang/commands/conditional_cmd'
+
+module Gobstones
+
+  module Lang
+
+    class IfCmd < ConditionalCmd
+
+      def evaluate(context)
+        evaluate_condition(context).if_true(then_block, context)
+      end
+
+    end
+
+    class IfElseCmd < IfCmd
+
+      attr_reader :else_block
+
+      def initialize(condition, then_block, else_block)
+        super(condition, then_block)
+        @else_block = else_block
+      end
+
+      def ==(other)
+        super(other) && self.else_block == other.else_block
+      end
+
+      def evaluate(context)
+        cond = evaluate_condition context
+        cond.if_true then_block, context
+        cond.if_false else_block, context
+      end
+
+    end
+
+  end
+
+end