yarbf 0.0.1

checksums.yaml

@@ -0,0 +1,4 @@
+---
+SHA512:
+  metadata.gz: 22f7d3768f1b31130f5fa1452d52dc98b0a3236b95c4f1e072c10ec8be3f2f9ec194ec195bdb837bec66e1335336e00e692eedcea4233847f327a33576ffd4e6
+  data.tar.gz: cc4df3daa804a1ee6f9e555b04d6f1d550d66b782ae02173652e8990a0114904b1115c30b2e5be2d8a1d1c786ac3506b6271116c08594a805135e8f1ebf3a33e

data/bin/yarbf

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+
+require 'yarbf'
+
+interpreter = BfInterpreter.new
+interpreter.run(ARGV[0])

data/lib/yarbf.rb

@@ -0,0 +1,165 @@
+require 'io/console'
+
+class BfInterpreter
+  # private constants
+  KEY_DEBUG = 'debug'
+  KEY_WRAP = 'wrap_around'
+  KEY_CELL = 'cell_size'
+  private_constant :KEY_DEBUG, :KEY_WRAP, :KEY_CELL
+
+  def initialize(debug = false, wrap_around = true, cell_size = 8)
+    @option = Hash.new
+    @option[KEY_DEBUG] = debug
+    @option[KEY_WRAP] = wrap_around
+    @option[KEY_CELL] = cell_size
+  end
+
+  def debug?
+    @option[KEY_DEBUG]
+  end
+
+  def debug=(debug)
+    @option[KEY_DEBUG] = debug
+  end
+
+  def wrap_around?
+    @option[KEY_WRAP]
+  end
+
+  def wrap_around=(wrap_around)
+    @option[KEY_WRAP] = wrap_around
+  end
+
+  def cell_size?
+    @option[KEY_CELL]
+  end
+
+  def cell_size=(cell_size)
+    @option[KEY_CELL] = cell_size
+  end
+
+  def run(src)
+    units = []
+
+    # construct units
+    File.open(src) do |file|
+      units = construct_program_units(file)
+    end
+
+    # match brackets
+    match_brackets(units)
+
+    # do interpret
+    tape = Array.new
+    position = 0
+    unit = units[0]
+    while unit != nil
+      tape[position] = BfCell.new(position) if tape[position] == nil
+
+      STDERR.printf('%s', unit.instruction) if debug?
+
+      case unit.instruction
+        when '+' then tape[position].increase(1, wrap_around?)
+        when '-' then tape[position].decrease(1, wrap_around?)
+        when '<' then
+          position -= 1
+          fail 'Cell position out of bound!' if position < 0
+        when '>' then position += 1
+        when ',' then
+          tape[position].value = STDIN.getch.ord
+        when '.' then STDOUT.putc tape[position].value
+        when '[' then
+          if tape[position].value == 0
+            unit = unit.match
+            next
+          end
+        when ']' then
+          if tape[position].value != 0
+            unit = unit.match
+            next
+          end
+        else fail "Illegal instruction '#{unit.instruction}'!"
+      end
+
+      unit = unit.next
+    end
+  end
+
+  def construct_program_units(file)
+    units = Array.new
+    position = 0
+
+    file.each_byte do |c|
+      case c.chr
+        when '+', '-', '<', '>', '[', ']', '.', ',' then
+          unit = BfProgramUnit.new(c.chr)
+          units[position - 1].next = unit if position > 0
+          units[position] = unit
+          position += 1
+        else
+          # other characters are considered as comments, do nothing
+      end
+    end
+
+    units
+  end
+
+  def match_brackets(units)
+    units.each_index do |i|
+      if units[i].instruction == '['
+        level = 0
+        units[i + 1 .. units.length - 1].each_index do |j|
+          j += i + 1
+          if units[j].instruction == '['
+            level += 1
+          elsif units[j].instruction == ']'
+            if level > 0
+              level -= 1
+            else
+              units[i].match = units[j]
+              units[j].match = units[i]
+              break
+            end
+          end
+        end
+        fail 'Unmatched brackets!' if level > 0
+      end
+    end
+  end
+
+  private :construct_program_units, :match_brackets
+
+  class BfCell
+    attr_accessor :position, :value
+
+    def initialize(position, value = 0)
+      @position = position
+      @value = value
+    end
+
+    def increase(increment = 1, wrap_around = true)
+      if !wrap_around && (@value + increment < 0 || @value + increment > 255)
+        fail 'Overflow or underflow happened while forbidden!'
+      else
+        @value = (@value + increment) % 256
+      end
+    end
+
+    def decrease(decrement = 1, wrap_around = true)
+      self.increase(-decrement, wrap_around)
+    end
+  end
+
+  class BfProgramUnit
+    attr_reader :instruction
+
+    attr_accessor :match
+    attr_accessor :next
+
+    def initialize(instruction)
+      @instruction = instruction
+      @match = nil
+      @next = nil
+    end
+  end
+end

metadata

@@ -0,0 +1,60 @@
+--- !ruby/object:Gem::Specification
+name: yarbf
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Chaos Shen
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2015-12-26 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: io-console
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.4'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '0.4'
+description: yarbf, is a simple Brainfuck interpreter in Ruby.
+email: chaosdefinition@hotmail.com
+executables:
+- yarbf
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/yarbf
+- lib/yarbf.rb
+homepage: http://github.com/chaosdefinition/yarbf
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.4.5.1
+signing_key: 
+specification_version: 4
+summary: Yet another Brainfuck interpreter in Ruby
+test_files: []