rubyfunge 0.0.1

data/Gemfile

@@ -0,0 +1,4 @@
+source :gemcutter
+
+# Specify your gem's dependencies in rubyfunge.gemspec
+gemspec

data/Rakefile

@@ -0,0 +1,2 @@
+require 'bundler'
+Bundler::GemHelper.install_tasks

data/bin/rubyfunge

@@ -0,0 +1,4 @@
+#!/usr/bin/env ruby
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..', 'lib')
+require 'rubyfunge/rubyfunge'
+RubyFunge::RubyFunge.new.run_file(*ARGV)

data/lib/rubyfunge.rb

@@ -0,0 +1,2 @@
+$:.unshift(File.dirname(__FILE__)) unless $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__))) 
+require 'rubyfunge/rubyfunge'

data/lib/rubyfunge/rubyfunge.rb

@@ -0,0 +1,206 @@
+module RubyFunge
+class RubyFunge
+  attr_reader :x
+  attr_reader :y
+  attr_reader :stack
+  attr_reader :code
+
+  DIRS = [:left, :right, :up, :down]
+
+  def initialize()
+    @x, @y    = 0, 0
+    @dir      = :right
+    @code     = []
+    @stack    = []
+    @str_mode = false
+    @skip     = false
+
+    @synt   = {
+                '+'=>:op_add, '-'=>:op_sub, '*'=>:op_mul, '/'=>:op_div, '%'=>:op_mod,
+                '!'=>:op_not, '`'=>:op_gt,
+                '>'=>:op_right, '<'=>:op_left, '^'=>:op_up, 'v'=>:op_down,
+                '?'=>:op_rnd,
+                '_'=>:op_lr, '|'=>:op_ud,
+                '"'=>:op_str,
+                ':'=>:op_dup, '\\'=>:op_swp,
+                '$'=>:op_pop, '.'=>:op_outi, ','=>:op_outc,
+                '#'=>:op_skp, 'p'=>:op_put, 'g'=>:op_get,
+                '&'=>:op_aski, '~'=>:op_askc
+              }
+  end
+
+  def run_file(filename)
+    if (!File.exist?(filename))
+      raise "File does not exist"
+    else
+      run(File.open(filename).read())
+    end
+  end
+  
+  def run(code)
+    i = 0
+    @code = []
+    code.each_line {|l|
+      @code[i] = l
+      i += 1
+    }
+    @x, @y = 0,0
+    while (@code[@y][@x].chr != '@')
+      op = @code[@y][@x].chr
+      if (@str_mode)
+        if (op == '"')
+          op_str
+        else
+          push op[0]
+        end
+      elsif (op=='#')
+        @skip = true
+      elsif (op=~/\d/ && !@skip)
+        self.send :push, op.to_i
+        @skip = false
+      else
+        self.send @synt[op] if @synt.include?(op) && !@skip
+        @skip = false
+      end
+      case @dir
+        when :right
+          @x += 1
+          @x = 0 if @x > @code[@y].length - 1
+        when :left
+          @x -= 1
+          @x = @code[@y].length - 1 if @x < 0
+        when :up
+          @y -= 1
+          @y = @code.length - 1 if @y < 0
+        when :down
+          @y += 1
+          @y = 0 if @y > @code.length - 1
+      end
+    end
+  end
+
+  # Instructions
+private
+  def push(num)
+    @stack.push num
+  end
+
+  def op_right
+    @dir = :right
+  end
+
+  def op_down
+    @dir = :down
+  end
+
+  def op_up
+    @dir = :up
+  end
+
+  def op_left
+    @dir = :left
+  end
+
+  def op_pop
+    pop
+  end
+
+  def op_add
+    push pop+pop
+  end
+
+  def op_sub
+    push -pop+pop
+  end
+
+  def op_mul
+    push pop*pop
+  end
+
+  def op_div
+    a,b=pop,pop
+    if a == 0
+      push $stdin.readline.to_i
+    else
+      push b/a
+    end
+  end
+
+  def op_mod
+    a,b=pop,pop
+    if a == 0
+      push $stdin.readline.to_i
+    else
+      push b%a
+    end
+  end
+
+  def op_not
+    push pop == 0 ? 1 : 0
+  end
+
+  def op_gt
+    push pop <= pop ? 0 : 1
+  end
+
+  def op_rnd
+    @dir = DIRS[rand DIRS.length]
+  end
+
+  def op_lr
+    @dir = pop == 0 ? :right : :left
+  end
+
+  def op_ud
+    @dir = pop == 0 ? :down : :up
+  end
+
+  def op_str
+    @str_mode = !@str_mode
+  end
+
+  def op_dup
+    a = pop
+    push a; push a
+  end
+
+  def op_swp
+    a,b = pop, pop
+    push a; push b
+  end
+
+  def op_outi
+    print pop
+  end
+
+  def op_outc
+    print pop.chr
+  end
+
+  def op_get
+    y,x = pop, pop
+    push @code[x][y]
+  end
+
+  def op_put
+    v,y,x = pop, pop,pop
+    @code[x][y] = v.chr
+  end
+
+  def op_aski
+    c = $stdin.readline
+    push c.to_i
+  end
+
+  def op_askc
+    c = $stdin.getc
+    push c
+  end
+
+private
+  def pop
+    return 0 if @stack.length == 0
+    @stack.pop
+  end
+end
+end

data/lib/rubyfunge/version.rb

@@ -0,0 +1,3 @@
+module Rubyfunge
+  VERSION = "0.0.1"
+end

data/rubyfunge.gemspec

@@ -0,0 +1,22 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path("../lib/rubyfunge/version", __FILE__)
+
+Gem::Specification.new do |s|
+  s.name        = "rubyfunge"
+  s.version     = Rubyfunge::VERSION
+  s.platform    = Gem::Platform::RUBY
+  s.authors     = ['Zoltan Dezso']
+  s.email       = ['dezso.zoltan@gmail.com']
+  s.homepage    = "http://github.com/zaki/rubyfunge"
+  s.summary     = "A Befunge-93 interpreter written in ruby."
+  s.description = "A Befunge-93 interpreter written in ruby."
+
+  s.required_rubygems_version = ">= 1.3.6"
+  s.rubyforge_project         = "rubyfunge"
+
+  s.add_development_dependency "bundler", ">= 1.0.0"
+
+  s.files        = `git ls-files`.split("\n")
+  s.executables  = `git ls-files`.split("\n").map{|f| f =~ /^bin\/(.*)/ ? $1 : nil}.compact
+  s.require_path = 'lib'
+end

data/test/rubyfunge.spec

@@ -0,0 +1,261 @@
+require File.join(File.dirname(__FILE__), '..', 'lib', 'rubyfunge')
+require "spec"
+describe "RubyFunge" do
+  before(:each) do
+    @rbf = RubyFunge::RubyFunge.new
+  end
+
+  it "should go right" do
+    @rbf.run('>>>>>>>>>>@')
+    @rbf.x.should == 10
+    @rbf.y.should == 0
+  end
+
+  it "should go down" do
+    @rbf.run(
+<<-EOS
+v
+@
+EOS
+)
+    @rbf.x.should == 0
+    @rbf.y.should == 1
+  end
+
+  it "should push numbers on the stack" do
+    @rbf.run('0123456789@')
+    @rbf.x.should == 10
+    @rbf.y.should == 0
+    @rbf.stack.should == [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
+  end
+
+  it "should pop numbers from the stack" do
+    @rbf.run('0123456789$$$$$@')
+    @rbf.x.should == 15
+    @rbf.y.should == 0
+    @rbf.stack.should == [0, 1, 2, 3, 4]
+  end
+
+  it "should add numbers on the stack" do
+    @rbf.run('35+@')
+    @rbf.stack.should == [8]
+  end
+
+  it "should subtract numbers on the stack" do
+    @rbf.run('53-@')
+    @rbf.stack.should == [2]
+  end
+
+  it "should return 0 when stack is empty" do
+    @rbf.run('+@')
+    @rbf.stack.should == [0]
+  end
+
+  it "should multiply numbers on the stack" do
+    @rbf.run('35*@')
+    @rbf.stack.should == [15]
+  end
+
+  it "should divide numbers on the stack" do
+     @rbf.run('62/@')
+     @rbf.stack.should == [3]
+  end
+
+  it "should modulo divide numbers on the stack" do
+     @rbf.run('72%@')
+     @rbf.stack.should == [1]
+  end
+
+  it "should push result of not" do
+     @rbf.run('0!5!@')
+     @rbf.stack.should == [1, 0]
+  end
+
+  it "should push result of greater than" do
+     @rbf.run('91`19`@')
+     @rbf.stack.should == [0, 1]
+  end
+
+  it "should go in a random direction" do
+    @rbf.run(<<EOS
+>v
+^?012@
+^<
+EOS
+)
+    @rbf.stack.should == [0, 1, 2]
+  end
+
+  it "should honor left-right selector" do
+    @rbf.run(<<EOS
+0_>>>>>v
+@_1<<<<<
+EOS
+)
+  @rbf.stack.length.should == 0
+  end
+
+  it "should honor up-down selector" do
+    @rbf.run(<<EOS
+0|1@  >@
+ >>>>1|
+      >3@
+EOS
+)
+  @rbf.stack.length.should == 0
+  end
+
+  it "should start ascii mode" do
+    @rbf.run('"!dlrow ,olleH"123@')
+    @rbf.stack.should == 'Hello, world!'.reverse.split(//).map {|c| c[0]} + [1, 2, 3]
+  end
+
+  it "should duplicate values on the stack" do
+    @rbf.run('5:@')
+    @rbf.stack.should == [5, 5]
+  end
+
+  it "should swap values on the stack" do
+    @rbf.run('51\@')
+    @rbf.stack.should == [1, 5]
+  end
+
+  it "should print integer from stack" do
+    result = redirect_stdout do
+      @rbf.run('15.@')
+    end
+    result.should == '5'
+  end
+
+  it "should print string from stack" do
+    result = redirect_stdout do
+      @rbf.run('91+6*5+,@')
+    end
+    result.should == 'A'
+  end
+
+  it "should skip next instruction" do
+    @rbf.run('1#23#45#6@')
+    @rbf.stack.should == [1,3,5]
+  end
+
+  it "should skip next instruction and keep skipping if its also #" do
+    @rbf.run('1#2#3#4#5678@')
+    @rbf.stack.should == [1, 6, 7, 8]
+  end
+
+  it "should get value of program instruction" do
+    @rbf.run('09g@<<<<<0')
+    @rbf.stack.should == [48]
+  end
+
+  it "should put value of program instruction" do
+    @rbf.run('0991+6*5+p@<<<<<0')
+    @rbf.stack.should == []
+    @rbf.code[0][9].chr.should == 'A'
+  end
+
+  it "should ask the user for a number" do
+    redirect_stdin("0009") do
+      @rbf.run('01234&@')
+      @rbf.stack.should == [0, 1, 2, 3, 4, 9]
+    end
+  end
+
+  it "should ask the user for a character" do
+    redirect_stdin("ABCD") do
+      @rbf.run('01234~@')
+      @rbf.stack.should == [0, 1, 2, 3, 4, 65]
+    end
+  end
+
+  it "should solve fizzbuzz" do
+code = <<-EOS
+55*4*v    _   v                                                                 )
+v   <>:1-:^                                                                     )
+    |:<$      <    ,*48 <                                                       )
+    @>0"zzif">:#,_$      v                                                      )
+>:3%!|    >0"zzub">:#,_$^                                                       )
+     >:5%!|                                                                     )
+v "buzz"0<>:.           ^                                                       )
+         |!%5:           <                                                      )
+>:#,_   $>              ^)
+EOS
+    result = redirect_stdout do
+      @rbf.run(code)
+    end
+
+    result.should == "1 2 fizz 4 buzz fizz 7 8 fizz buzz 11 fizz 13 14 fizzbuzz " +
+                     "16 17 fizz 19 buzz fizz 22 23 fizz buzz 26 fizz 28 29 fizzbuzz " +
+                     "31 32 fizz 34 buzz fizz 37 38 fizz buzz 41 fizz 43 44 fizzbuzz " +
+                     "46 47 fizz 49 buzz fizz 52 53 fizz buzz 56 fizz 58 59 fizzbuzz " +
+                     "61 62 fizz 64 buzz fizz 67 68 fizz buzz 71 fizz 73 74 fizzbuzz 76 " +
+                     "77 fizz 79 buzz fizz 82 83 fizz buzz 86 fizz 88 89 fizzbuzz 91 92 " +
+                     "fizz 94 buzz fizz 97 98 fizz buzz "
+  end
+
+  it "should wrap around to the right" do
+    @rbf.run <<-EOS
+>>v
+1@>>>
+EOS
+    @rbf.stack.should == [1]
+  end
+
+  it "should wrap around to the left" do
+    @rbf.run <<-EOS
+>>>>>>v
+<<<<<<<    @1
+EOS
+    @rbf.stack.should == [1]
+  end
+
+  it "should wrap around at the bottom" do
+    @rbf.run <<-EOS
+v1
+v@
+>v
+ v
+ v
+EOS
+    @rbf.stack.should == [1]
+  end
+
+  it "should wrap around at the top" do
+    @rbf.run <<-EOS
+^
+@
+1
+EOS
+    @rbf.stack.should == [1]
+  end
+
+  it "should ask the user for a number when dividing by zero" do
+    redirect_stdin '5' do
+      @rbf.run('00/@')
+      @rbf.stack.should == [5]
+    end
+  end
+
+  it "should ask the user for a number when modulo dividing by zero" do
+    redirect_stdin '5' do
+      @rbf.run('00%@')
+      @rbf.stack.should == [5]
+    end
+  end
+
+  def redirect_stdout
+    oldstdout, $stdout = $stdout, StringIO.new
+    yield
+    $stdout.string
+  ensure
+    $stdout = oldstdout
+  end
+
+  def redirect_stdin(str)
+    oldstdin, $stdin = $stdin, StringIO.new(str)
+    yield
+  ensure
+    $stdin = oldstdin
+  end
+end

metadata

@@ -0,0 +1,92 @@
+--- !ruby/object:Gem::Specification 
+name: rubyfunge
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Zoltan Dezso
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-10-19 00:00:00 +09:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: bundler
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 23
+        segments: 
+        - 1
+        - 0
+        - 0
+        version: 1.0.0
+  type: :development
+  version_requirements: *id001
+description: A Befunge-93 interpreter written in ruby.
+email: 
+- dezso.zoltan@gmail.com
+executables: 
+- rubyfunge
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- Gemfile
+- Rakefile
+- bin/rubyfunge
+- lib/rubyfunge.rb
+- lib/rubyfunge/rubyfunge.rb
+- lib/rubyfunge/version.rb
+- rubyfunge.gemspec
+- test/rubyfunge.spec
+has_rdoc: true
+homepage: http://github.com/zaki/rubyfunge
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 23
+      segments: 
+      - 1
+      - 3
+      - 6
+      version: 1.3.6
+requirements: []
+
+rubyforge_project: rubyfunge
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: A Befunge-93 interpreter written in ruby.
+test_files: []
+