bfunj 0.1.0

data.tar.gz.sig

@@ -0,0 +1,3 @@
+�����r:�c���&���i���Տ4�U�v�0�s�b�]�u}��GbV�+?8Ϝ�R�3;r��P�#yU{H�ؒ�LI!�5A��'Ȩol�:��s;se�good��~�e6��I�
+��0�[1A�>�p!}��%�~� o���ak=�%��
+RTe��߿����gɺ�{*�d��S�ԌR"��k�7��U<�Og~�8*�E�aFa8�
�D1�׵s5�S�5�a9��|B��lX�m>�

data/Manifest

@@ -0,0 +1,14 @@
+README
+data/test/10.bfunj
+data/test/100.bfunj
+data/test/120.bfunj
+data/test/3.bfunj
+data/test/4.bfunj
+data/test/5.bfunj
+data/test/5000.bfunj
+data/test/7.bfunj
+lib/bfunj.rb
+spec/bfunj_spec.rb
+spec/stack_spec.rb
+Rakefile
+Manifest

data/README

@@ -0,0 +1,24 @@
+bfunj is a slightly altered Befunge-93 interpreter written in Ruby.
+
+The official Befunge-93 specification can be found at http://catseye.tc/projects/befunge93/doc/website_befunge93.html
+
+The differences between Befunge-93 and bfunj are listed below:
+
+- " command is removed
+- , command is removed
+- ~ command is removed
+- g command is removed
+- p command is removed
+
+How to use:
+b = BFunj.new()
+b.load_file 'filename.bfunj'
+b.run
+puts b.stack.inspect
+
+Options that can be passed to #new:
+
+:input_stream - Defines the input stream, must be a kind_of?(IO). Default is $stdin
+:output_stream - Defines the output stream, must be a kind_of?(IO). Default is $stdout
+:max_steps - The maximum number of steps to take before program is forced to halt. this prevents infinite loops if. Default is 0 (never force halt).
+:filename - Auto-loads the given filename. Default is empty and you must manually load a file with #load_file.

data/Rakefile

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'rake'
+require 'echoe'
+
+Echoe.new('bfunj', '0.1.0') do |p|
+  p.description = 'A Befunge interpreter.'
+  p.author = 'Dave Havlicek'
+  p.email = 'xens@comcast.net'
+  p.ignore_pattern = ["tmp/*", "script/*", "autotest/*"]
+end

data/bfunj.gemspec

@@ -0,0 +1,31 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{bfunj}
+  s.version = "0.1.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 1.2") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Dave Havlicek"]
+  s.cert_chain = ["/home/dhavlicek/gem-public_cert.pem"]
+  s.date = %q{2011-04-11}
+  s.description = %q{A Befunge interpreter.}
+  s.email = %q{xens@comcast.net}
+  s.extra_rdoc_files = ["README", "lib/bfunj.rb"]
+  s.files = ["README", "data/test/10.bfunj", "data/test/100.bfunj", "data/test/120.bfunj", "data/test/3.bfunj", "data/test/4.bfunj", "data/test/5.bfunj", "data/test/5000.bfunj", "data/test/7.bfunj", "lib/bfunj.rb", "spec/bfunj_spec.rb", "spec/stack_spec.rb", "Rakefile", "Manifest", "bfunj.gemspec"]
+  s.homepage = %q{http://bfunj.github.com/bfunj/}
+  s.rdoc_options = ["--line-numbers", "--inline-source", "--title", "Bfunj", "--main", "README"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{bfunj}
+  s.rubygems_version = %q{1.6.0}
+  s.signing_key = %q{/home/dhavlicek/gem-private_key.pem}
+  s.summary = %q{A Befunge interpreter.}
+
+  if s.respond_to? :specification_version then
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::VERSION) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end

data/data/test/10.bfunj

@@ -0,0 +1,3 @@
+>1   2   +   v
+v+   4   3   <
+>            @

data/data/test/100.bfunj

@@ -0,0 +1 @@
+>1L@

data/data/test/120.bfunj

@@ -0,0 +1,3 @@
+vv    <>v *<      # computes the factorial of the inputted integer
+&>:1-:|$>\:|
+>^    >^@ $<

data/data/test/3.bfunj

@@ -0,0 +1 @@
+>12+@

data/data/test/4.bfunj

@@ -0,0 +1,5 @@
+v
+1
+3
++
+@

data/data/test/5.bfunj

@@ -0,0 +1 @@
+>&@

data/data/test/5000.bfunj

@@ -0,0 +1 @@
+>1

data/data/test/7.bfunj

@@ -0,0 +1,2 @@
+>      v
+@   +34_

data/lib/bfunj.rb

@@ -0,0 +1,190 @@
+class Stack < Array
+
+  def pop
+    return 0 if self.empty?
+    super
+  end
+
+end
+
+class BFunj
+  COMMAND_MAP = { '>'  => :go_left,
+                  '<'  => :go_right,
+                  '^'  => :go_up,
+                  'v'  => :go_down,
+                  '?'  => :go_random,
+                  '_'  => :horizontal_if,
+                  '|'  => :vertical_if,
+                  '+'  => :add,
+                  '-'  => :subtract,
+                  '*'  => :multiply,
+                  '/'  => :divide,
+                  '%'  => :modulo,
+                  '!'  => :negate,
+                  '`'  => :test_greater_than,
+                  ':'  => :duplicate,
+                  '\\' => :swap,
+                  '$'  => :discard,
+                  '#'  => :skip,
+                  '&'  => :input,
+                  '.'  => :output,
+                  '@'  => :stop }.freeze
+
+  attr_reader   :stack, :program
+
+  def initialize options = {}
+    @pc = { :row => 0, :col => 0 }
+    @direction = :left
+    @distance = 1
+    @stack = Stack.new
+    @max_steps = options[:max_steps] || 0
+    @input_stream = options[:input_stream] || $stdin
+    @output_stream = options[:output_stream] || $stdout
+    load_file(options[:filename]) if options[:filename]
+  end
+
+  def load_file filename
+    @program = File.open(filename).readlines.map { |l| l.chomp }
+    @height = @program.size
+    @width = @program[0].size
+  end
+
+  def run
+    steps = 0
+    @done = false
+    loop do
+      @distance = 1
+      command = @program[@pc[:row]][@pc[:col]]
+      process_command command
+      advance_pc
+      if @max_steps != 0
+        steps += 1
+        break if steps > @max_steps || @done
+      end
+    end
+  end
+
+  private
+
+  def process_command command
+    if COMMAND_MAP.include? command
+      self.send COMMAND_MAP[command]
+    elsif command =~ /\d/
+      @stack.push command.to_s.to_i
+    else
+      #do nothing
+    end
+  end
+
+  def go_left
+    @direction = :left
+  end
+
+  def go_right
+    @direction = :right
+  end
+
+  def go_up
+    @direction = :up
+  end
+
+  def go_down
+    @direction = :down
+  end
+
+  def go_random
+    @direction = case rand(4)
+                 when 0 then :left
+                 when 1 then :right
+                 when 2 then :up
+                 when 3 then :down
+                 end
+  end
+
+  def horizontal_if
+    @direction = (@stack.pop == 0) ? :right : :left
+  end
+
+  def vertical_if
+    @direction = (@stack.pop == 0) ? :down : :up
+  end
+
+  def add
+    @stack.push( @stack.pop + @stack.pop )
+  end
+
+  def subtract
+    first = @stack.pop
+    second = @stack.pop
+    @stack.push( second - first )
+  end
+
+  def multiply
+    @stack.push( @stack.pop * @stack.pop )
+  end
+
+  def divide
+    first = @stack.pop
+    second = @stack.pop
+    @stack.push( (first == 0) ? 0 : second / first )
+  end
+
+  def modulo
+    first = @stack.pop
+    second = @stack.pop
+    @stack.push( (first == 0) ? 0 : second % first )
+  end
+
+  def negate
+    @stack.push( @stack.pop == 0 ? 1 : 0 )
+  end
+
+  def test_greater_than
+    @stack.push( (@stack.pop > @stack.pop) ? 1 : 0 )
+  end
+
+  def duplicate
+    @stack.push( @stack.last )
+  end
+
+  def swap
+    first = @stack.pop
+    second = @stack.pop
+    @stack.push( first )
+    @stack.push( second )
+  end
+
+  def discard
+    @stack.pop
+  end
+
+  def skip
+    @distance = 2
+  end
+
+  def input
+    @stack.push( @input_stream.getc.to_i )
+  end
+
+  def output
+    @output_stream.puts( @stack.pop )
+  end
+
+  def stop
+    @done = true
+  end
+
+  def advance_pc
+    case @direction
+      when :left
+        @pc[:col] = (@pc[:col] + @distance) % @width
+      when :right
+        @pc[:col] = (@pc[:col] - @distance) % @width
+      when :up
+        @pc[:row] = (@pc[:row] - @distance) % @height
+      when :down
+        @pc[:row] = (@pc[:row] + @distance) % @height
+    end
+  end
+
+end

data/spec/bfunj_spec.rb

@@ -0,0 +1,30 @@
+require 'bfunj'
+
+describe BFunj do
+  before :all do
+    @bfunj = BFunj.new
+    @testfiles = Dir.glob("data/test/*.bfunj")
+  end
+
+  describe BFunj, "#load_file" do
+    it "loads a bfunj file" do
+      @bfunj.load_file @testfiles[0]
+      program = File.open(@testfiles[0]).readlines.map { |l| l.chomp }
+      @bfunj.program.should == program
+    end
+  end
+  
+  describe BFunj, "#run" do
+    it "runs a bfunj program" do
+      @testfiles.each do |test_file|
+        bfunj = BFunj.new( { :input_stream  => IO.popen( 'echo 5' ),
+                             :output_stream => IO.new( IO.sysopen( '/dev/null', 'w' ), 'w' ),
+                             :max_steps     => 10000,
+                             :filename      => test_file } )
+        expected_result = File.basename(test_file, '.bfunj').to_i
+        bfunj.run
+        bfunj.stack.inject { |sum, acc| sum += acc }.should == expected_result
+      end
+    end
+  end
+end

data/spec/stack_spec.rb

@@ -0,0 +1,10 @@
+require 'bfunj'
+
+describe Stack do
+  describe Stack, "#pop" do
+    it "returns 0 when the stack is empty" do
+      stack = Stack.new
+      stack.pop.should == 0
+    end
+  end
+end

metadata

@@ -0,0 +1,97 @@
+--- !ruby/object:Gem::Specification 
+name: bfunj
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 0.1.0
+platform: ruby
+authors: 
+- Dave Havlicek
+autorequire: 
+bindir: bin
+cert_chain: 
+- |
+  -----BEGIN CERTIFICATE-----
+  MIIDLjCCAhagAwIBAgIBADANBgkqhkiG9w0BAQUFADA9MQ0wCwYDVQQDDAR4ZW5z
+  MRcwFQYKCZImiZPyLGQBGRYHY29tY2FzdDETMBEGCgmSJomT8ixkARkWA25ldDAe
+  Fw0xMTA0MTEyMDQ5MzFaFw0xMjA0MTAyMDQ5MzFaMD0xDTALBgNVBAMMBHhlbnMx
+  FzAVBgoJkiaJk/IsZAEZFgdjb21jYXN0MRMwEQYKCZImiZPyLGQBGRYDbmV0MIIB
+  IjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA0lol2bUxDy2uqmJKj5hMFegc
+  9DQDfqgHGeFCHXAIpdJky6w+CIasGIMgTuNaKiIOw0/5WUVSXQdSF2fkhZc/yZY0
+  IDW4BibAip3CDsqrp20rtPaiXxyRGXPHhJgIcATyIawQNZ7aA0nINDrRyReLl1QH
+  xCHsqzbel6AJkjd5uWUnwIxG7NOpkflsUfvX9JaV42qHSg1QwA6Q7rChjqAJGZlm
+  tyGaSzRUIN/OU94hwun0ZbzYA9gAD+HfGiL+9+XL3COvIdtZqhIaznw8hChY0Bme
+  ZYJmhxYV5GGBlSiAU53DeqrcEUFYnrZ2+XNDf5P+5rqs+ZpVaPxsLvThvu0YcwID
+  AQABozkwNzAJBgNVHRMEAjAAMB0GA1UdDgQWBBSHc4Wiy9nu0WN/I5jbTn7N0jfx
+  NDALBgNVHQ8EBAMCBLAwDQYJKoZIhvcNAQEFBQADggEBAIMCMRokV2ssyq5qHxNn
+  d5MTGi64Q7l6BEEkAxnBliQcRGswIvJmqgIT+CxiUP8b11drDXmCEuDcYtNbw51X
+  GlA7wkva6HsFSB6p24dNZ+FWs7nMP0wEd6n+fKuPiQbuYJLnFSa72hVIo685HEPk
+  Ih4IhJs9/mSqgxvqPBYTEfS8V7TTkQD4tfOceuRhoBS3+/0Ncn6kmaJKAPmWBQav
+  aRkM3yE4qqz2sgY064cnW4ckXIsId3eX2hvdvTBmL1y2mnp+THa3MY6zXr7yqVJw
+  RPqDJqKZopdM+pobhXvrc1ObTAD5F3RlY8iCi7fCgS0rYi0D3mI9Esa3aPGihZNK
+  gMo=
+  -----END CERTIFICATE-----
+
+date: 2011-04-11 00:00:00 -05:00
+default_executable: 
+dependencies: []
+
+description: A Befunge interpreter.
+email: xens@comcast.net
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+- lib/bfunj.rb
+files: 
+- README
+- data/test/10.bfunj
+- data/test/100.bfunj
+- data/test/120.bfunj
+- data/test/3.bfunj
+- data/test/4.bfunj
+- data/test/5.bfunj
+- data/test/5000.bfunj
+- data/test/7.bfunj
+- lib/bfunj.rb
+- spec/bfunj_spec.rb
+- spec/stack_spec.rb
+- Rakefile
+- Manifest
+- bfunj.gemspec
+has_rdoc: true
+homepage: http://bfunj.github.com/bfunj/
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --line-numbers
+- --inline-source
+- --title
+- Bfunj
+- --main
+- README
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "1.2"
+requirements: []
+
+rubyforge_project: bfunj
+rubygems_version: 1.6.0
+signing_key: 
+specification_version: 3
+summary: A Befunge interpreter.
+test_files: []
+