brainclusterfuck 0.0.1 → 0.2.0

data/.travis.yml

@@ -0,0 +1,6 @@
+language: ruby
+rvm:
+  - "1.9.3"
+  - "2.0.0"
+notifications:
+  email: false

data/Gemfile

@@ -3,6 +3,6 @@ source 'https://rubygems.org'
 # Specify your gem's dependencies in brainclusterfuck.gemspec
 gemspec
 
-group [:test, :development] do
+group :test, :development do
   gem 'should_not', '~> 1.0'
 end

data/README.md

@@ -1,5 +1,9 @@
 # Brainclusterfuck
 
+[![Build Status](https://travis-ci.org/mark-rushakoff/brainclusterfuck.png)](https://travis-ci.org/mark-rushakoff/brainclusterfuck)
+[![Code Climate](https://codeclimate.com/github/mark-rushakoff/brainclusterfuck.png)](https://codeclimate.com/github/mark-rushakoff/brainclusterfuck)
+[![Gem Version](https://badge.fury.io/rb/brainclusterfuck.png)](http://badge.fury.io/rb/brainclusterfuck)
+
 A clean interface to controlling arrays of specialized Brainfuck VMs
 
 ## Installation

data/lib/brainclusterfuck/compile_error.rb

@@ -0,0 +1,10 @@
+module Brainclusterfuck
+  class CompileError < RuntimeError
+  end
+
+  class UnterminatedLoopError < CompileError
+  end
+
+  class PrematurelyTerminatedLoopError < CompileError
+  end
+end

data/lib/brainclusterfuck/compiler.rb

@@ -1,66 +1,88 @@
-require 'brainclusterfuck/opcode/modify_value'
-require 'brainclusterfuck/opcode/modify_pointer'
+require 'brainclusterfuck/opcodes'
+require 'brainclusterfuck/opcodes/loop_start_placeholder'
+require 'brainclusterfuck/opcodes/loop_end_placeholder'
+require 'brainclusterfuck/compile_error'
 
 module Brainclusterfuck
   class Compiler
     attr_reader :bytecode
     def initialize(tokens)
-      raise "No tokens supplied" if tokens.size == 0
+      raise CompileError, "No tokens supplied" if tokens.size == 0
 
       @bytecode = tokens.map do |token|
         process_token(token)
       end
+
+      resolve_loops!
     end
 
     # Merge consecutive modify value or modify pointer operations
     def squeeze_operations!
-      compressed = [@bytecode.shift]
+      modifying_bytecode_length do
+        compressed = [@bytecode.shift]
 
-      @bytecode.each do |opcode|
-        last = compressed[-1]
-        if opcode.can_squeeze_with?(last)
-          compressed[-1] = opcode.squeeze_with(last)
-        else
-          compressed << opcode
+        @bytecode.each do |opcode|
+          last = compressed[-1]
+          if opcode.can_squeeze_with?(last)
+            compressed[-1] = opcode.squeeze_with(last)
+          else
+            compressed << opcode
+          end
         end
-      end
 
-      @bytecode = compressed
+        @bytecode = compressed
+      end
     end
 
     private
+    def modifying_bytecode_length(&blk)
+      unresolve_loops!
+      yield
+      resolve_loops!
+    end
+
+    def resolve_loops!
+      loop_stack = []
+
+      @bytecode.each_with_index do |op, index|
+        if op.is_a?(Opcodes::LoopStartPlaceholder)
+          loop_stack.push(op: op, index: index)
+        elsif op.is_a?(Opcodes::LoopEndPlaceholder)
+          raise PrematurelyTerminatedLoopError if loop_stack.empty?
+
+          opening = loop_stack.pop
+          num_operations = index - opening[:index] - 1
+          @bytecode[opening[:index]] = Opcodes::LoopStart.new(num_operations)
+          @bytecode[index] = Opcodes::LoopEnd.new(num_operations)
+        end
+      end
+
+      raise UnterminatedLoopError unless loop_stack.empty?
+    end
+
+    def unresolve_loops!
+      @bytecode.map! { |op| op.unresolve_loop }
+    end
+
     def process_token(token)
       case token
       when :v_incr
-        Opcode::ModifyValue.new(1, 1)
+        Opcodes::ModifyValue.new(1, 1)
       when :v_decr
-        Opcode::ModifyValue.new(-1, 1)
+        Opcodes::ModifyValue.new(-1, 1)
       when :p_incr
-        Opcode::ModifyPointer.new(1, 1)
+        Opcodes::ModifyPointer.new(1, 1)
       when :p_decr
-        Opcode::ModifyPointer.new(-1, 1)
+        Opcodes::ModifyPointer.new(-1, 1)
       when :print
-        Opcode::Print.new
+        Opcodes::Print.new
+      when :loop_start
+        Opcodes::LoopStartPlaceholder.new
+      when :loop_end
+        Opcodes::LoopEndPlaceholder.new
       else
-        raise "Don't know how to handle token: #{token}"
-      end
-    end
-
-    def compress_bytecode(bytecode)
-      compressed = [bytecode.shift]
-
-      bytecode.each do |op, value|
-        case op
-        when :modify_value, :modify_pointer
-          if compressed[-1][0] == op
-            compressed[-1][1] += value
-          else
-            compressed << [op, value]
-          end
-        end
+        raise CompileError, "Don't know how to handle token: #{token}"
       end
-
-      compressed
     end
   end
 end

data/lib/brainclusterfuck/error.rb

@@ -0,0 +1,5 @@
+module Brainclusterfuck
+  class Error < RuntimeError
+
+  end
+end

data/lib/brainclusterfuck/interpreter.rb

@@ -0,0 +1,84 @@
+require 'brainclusterfuck/interpreter_error'
+
+module Brainclusterfuck
+  class Interpreter
+    attr_reader :terminal, :memory, :cycles, :instruction_pointer, :finished
+    def initialize(opts)
+      @terminal = opts.fetch(:terminal)
+      @memory = opts.fetch(:memory)
+      @bytecode = opts.fetch(:bytecode)
+
+      @cycles = 0
+      @instruction_pointer = 0
+    end
+
+    def step(cycles_allowed = 1)
+      raise ArgumentError, "cycles_allowed must be positive" unless cycles_allowed > 0
+
+      while cycles_allowed > 0
+        opcode = @bytecode[@instruction_pointer]
+
+        unless opcode
+          @finished = true
+          return
+        end
+
+        cycles_allowed -= opcode.cycles
+        @cycles += opcode.cycles
+
+        execute(opcode)
+      end
+    end
+
+    def finished?
+      !!@finished
+    end
+
+    private
+    def execute(opcode)
+      @op_to_method ||= {
+        Opcodes::ModifyValue => :modify_value,
+        Opcodes::ModifyPointer => :modify_pointer,
+        Opcodes::LoopStart => :loop_start,
+        Opcodes::LoopEnd => :loop_end,
+        Opcodes::Print => :print
+      }
+
+      method = @op_to_method[opcode.class]
+      raise ArgumentError, "Don't know how to handle #{opcode}" if method.nil?
+      __send__(method, opcode)
+      @finished = @instruction_pointer >= @bytecode.size
+    end
+
+    def modify_value(opcode)
+      @memory.modify_value(opcode.modify_by)
+      @instruction_pointer += 1
+    end
+
+    def modify_pointer(opcode)
+      @memory.modify_pointer(opcode.modify_by)
+      @instruction_pointer += 1
+    end
+
+    def print(_opcode)
+      @terminal.print(@memory.current_char)
+      @instruction_pointer += 1
+    end
+
+    def loop_start(opcode)
+      if @memory.current_value.zero?
+        @instruction_pointer += (opcode.num_operations + 2)
+      else
+        @instruction_pointer += 1
+      end
+    end
+
+    def loop_end(opcode)
+      if @memory.current_value.zero?
+        @instruction_pointer += 1
+      else
+        @instruction_pointer -= opcode.num_operations
+      end
+    end
+  end
+end

data/lib/brainclusterfuck/interpreter_error.rb

@@ -0,0 +1,4 @@
+module Brainclusterfuck
+  class InterpreterError < RuntimeError
+  end
+end

data/lib/brainclusterfuck/lexer.rb

@@ -26,9 +26,9 @@ module Brainclusterfuck
         when '.'
           :print
         when '['
-          :loop
+          :loop_start
         when ']'
-          :end_loop
+          :loop_end
         else
           raise 'wtf?'
         end

data/lib/brainclusterfuck/loop_error.rb

@@ -0,0 +1,6 @@
+require 'brainclusterfuck/error'
+
+module Brainclusterfuck
+  class LoopError < Error
+  end
+end

data/lib/brainclusterfuck/memory.rb

@@ -0,0 +1,33 @@
+require 'brainclusterfuck/memory_error'
+
+module Brainclusterfuck
+  class Memory
+    attr_reader :size
+
+    def initialize(size)
+      @size = size.to_i
+
+      @pointer = 0
+      @cells = Hash.new { 0 }
+    end
+
+    def current_char
+      current_value.chr
+    end
+
+    def current_value
+      @cells[@pointer]
+    end
+
+    def modify_value(amount)
+      # keep value in one byte
+      @cells[@pointer] = (@cells[@pointer] + amount.to_i) & 0xFF
+    end
+
+    def modify_pointer(amount)
+      @pointer += amount
+
+      raise MemoryError if (@pointer < 0 || @pointer >= @size)
+    end
+  end
+end

data/lib/brainclusterfuck/memory_error.rb

@@ -0,0 +1,6 @@
+require 'brainclusterfuck/error'
+
+module Brainclusterfuck
+  class MemoryError < Error
+  end
+end

data/lib/brainclusterfuck/opcodes.rb

@@ -0,0 +1,5 @@
+require 'brainclusterfuck/opcodes/modify_value'
+require 'brainclusterfuck/opcodes/modify_pointer'
+require 'brainclusterfuck/opcodes/print'
+require 'brainclusterfuck/opcodes/loop_start'
+require 'brainclusterfuck/opcodes/loop_end'

data/lib/brainclusterfuck/opcodes/base.rb

@@ -0,0 +1,19 @@
+module Brainclusterfuck
+  module Opcodes
+    class Base
+      attr_reader :cycles
+
+      def can_squeeze_with?(other)
+        false
+      end
+
+      def unresolve_loop
+        self
+      end
+
+      def resolve_loop
+        self
+      end
+    end
+  end
+end

data/lib/brainclusterfuck/opcodes/loop_base.rb

@@ -0,0 +1,27 @@
+require 'brainclusterfuck/opcodes/base'
+require 'brainclusterfuck/loop_error'
+
+module Brainclusterfuck
+  module Opcodes
+    class LoopBase < Base
+      attr_reader :num_operations
+
+      def initialize(num_operations)
+        @num_operations = num_operations.to_i
+        @cycles = 1
+      end
+
+      def ==(other)
+        other.class == self.class && other.num_operations == num_operations
+      end
+
+      def unresolve_loop
+        placeholder_class.new
+      end
+
+      def resolve_loop
+        raise LoopError, 'Loop already resolved'
+      end
+    end
+  end
+end

data/lib/brainclusterfuck/opcodes/loop_end.rb

@@ -0,0 +1,10 @@
+require 'brainclusterfuck/opcodes/loop_base'
+require 'brainclusterfuck/opcodes/loop_end_placeholder'
+
+module Brainclusterfuck::Opcodes
+  class LoopEnd < LoopBase
+    def placeholder_class
+      LoopEndPlaceholder
+    end
+  end
+end

data/lib/brainclusterfuck/opcodes/loop_end_placeholder.rb

@@ -0,0 +1,6 @@
+require 'brainclusterfuck/opcodes/loop_placeholder'
+
+module Brainclusterfuck::Opcodes
+  class LoopEndPlaceholder < LoopPlaceholder
+  end
+end

data/lib/brainclusterfuck/opcodes/loop_placeholder.rb

@@ -0,0 +1,20 @@
+require 'brainclusterfuck/opcodes/base'
+require 'brainclusterfuck/loop_error'
+
+module Brainclusterfuck
+  module Opcodes
+    class LoopPlaceholder < Base
+      def initialize
+        @cycles = 1
+      end
+
+      def unresolve_loop
+        raise LoopError, "Already unresolved"
+      end
+
+      def ==(other)
+        other.class == self.class
+      end
+    end
+  end
+end

data/lib/brainclusterfuck/opcodes/loop_start.rb

@@ -0,0 +1,10 @@
+require 'brainclusterfuck/opcodes/loop_base'
+require 'brainclusterfuck/opcodes/loop_start_placeholder'
+
+module Brainclusterfuck::Opcodes
+  class LoopStart < LoopBase
+    def placeholder_class
+      LoopStartPlaceholder
+    end
+  end
+end

data/lib/brainclusterfuck/opcodes/loop_start_placeholder.rb

@@ -0,0 +1,6 @@
+require 'brainclusterfuck/opcodes/loop_placeholder'
+
+module Brainclusterfuck::Opcodes
+  class LoopStartPlaceholder < LoopPlaceholder
+  end
+end