rbf 0.0.1

data/bin/rbf

@@ -0,0 +1,5 @@
+#! /usr/bin/env ruby
+require 'rubygems'
+require 'rbf'
+
+RBF.execute(ARGV.first)

data/lib/rbf/interpreter.rb

@@ -0,0 +1,138 @@
+#--
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                   Version 2, December 2004
+#
+#  Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#  TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'stringio'
+
+class IO
+  begin
+    require 'Win32API'
+
+    def read_char
+      Win32API.new('crtdll', '_getch', [], 'L').Call
+    end
+  rescue LoadError
+    def read_char
+      system 'stty raw -echo'
+
+      STDIN.getc
+    ensure
+      system 'stty -raw echo'
+    end
+  end
+end
+
+module RBF
+
+class Interpreter
+  class Storage < Array
+    def initialize (*args)
+      super
+
+      @pointer = 0
+
+      check!
+    end
+
+    def check!
+      if self[@pointer].nil?
+        self[@pointer] = 0
+      end
+    end
+
+    def forward!
+      @pointer += 1
+
+      check!
+    end
+
+    def backward!
+      @pointer -= 1
+
+      check!
+    end 
+
+    def increase!
+      self[@pointer] += 1
+    end
+
+    def decrease!
+      self[@pointer] -= 1
+    end
+
+    def set (value)
+      self[@pointer] = value.to_i
+    end
+
+    def get
+      self[@pointer].to_i
+    end
+  end
+
+  def initialize
+    @storage = Storage.new
+    @input   = STDIN
+  end
+
+  def evaluate (tree, options={})
+    if options[:catch]
+      @output = StringIO.new
+    else
+      @output = STDOUT
+    end
+
+    tree.each {|token|
+      if token.is_a?(Array)
+        self.loop(token)
+      else
+        self.send(token)
+      end
+    }
+
+    if options[:catch]
+      @output.rewind
+      @output.read
+    end
+  end
+
+  define_method ?> do
+    @storage.forward!
+  end
+
+  define_method ?< do
+    @storage.backward!
+  end
+
+  define_method ?+ do
+    @storage.increase!
+  end
+
+  define_method ?- do
+    @storage.decrease!
+  end
+
+  define_method ?. do
+    @output.print @storage.get.chr
+    @output.flush
+  end
+
+  define_method ?, do
+    @storage.set @input.read_char
+  end
+
+  define_method :loop do |code|
+    while @storage.get != 0
+      evaluate(code)
+    end
+  end
+end
+
+end

data/lib/rbf/parser.rb

@@ -0,0 +1,72 @@
+#--
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                   Version 2, December 2004
+#
+#  Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#  TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'parslet'
+
+module RBF
+
+class Parser < Parslet::Parser
+  def self.apply (keys)
+    klass = self.clone
+    
+    klass.class_eval {
+      rule(:forward)  { str(keys[:forward]).as(?>) }
+      rule(:backward) { str(keys[:backward]).as(?<) }
+
+      rule(:increase) { str(keys[:increase]).as(?+) }
+      rule(:decrease) { str(keys[:decrease]).as(?-) }
+
+      rule(:output) { str(keys[:output]).as(?.) }
+      rule(:input)  { str(keys[:input]).as(?,) }
+
+      rule(:while_start) { str(keys[:while_start]) }
+      rule(:while_end)   { str(keys[:while_end]) }
+
+      rule(:comment) { (
+        str(keys[:forward])  |
+        str(keys[:backward]) |
+
+        str(keys[:increase]) |
+        str(keys[:decrease]) |
+
+        str(keys[:output]) |
+        str(keys[:input])  |
+
+        str(keys[:while_start]) |
+        str(keys[:while_end])
+      ).absent? >> any }
+    }
+
+    klass
+  end
+
+  rule(:keyword) {
+    forward  |
+    backward |
+    increase |
+    decrease |
+    output   |
+    input
+  }
+
+  rule(:while_loop) {
+    while_start >> code.as(:loop) >> while_end
+  }
+
+  rule(:code) {
+    (while_loop | keyword | comment).repeat
+  }
+
+  root :code
+end
+
+end

data/lib/rbf/syntax.rb

@@ -0,0 +1,45 @@
+#--
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                   Version 2, December 2004
+#
+#  Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#  TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+module RBF
+
+module Syntax
+  Default = {
+    :forward  => '>',
+    :backward => '<',
+
+    :increase => '+',
+    :decrease => '-',
+
+    :output => '.',
+    :input  => ',',
+
+    :while_start => '[',
+    :while_end   => ']'
+  }
+
+  Nintendo = {
+    :forward  => '!!!!',
+    :backward => 'ASD',
+
+    :increase => 'XD',
+    :decrease => 'LOL',
+
+    :output => 'PLS',
+    :input  => 'CMQ',
+
+    :while_start => '[',
+    :while_end   => ']'
+  }
+end
+
+end

data/lib/rbf/transform.rb

@@ -0,0 +1,30 @@
+#--
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                   Version 2, December 2004
+#
+#  Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#  TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'parslet'
+
+module RBF
+
+class Transform < Parslet::Transform
+  rule(?> => simple(:x)) { ?> }
+  rule(?< => simple(:x)) { ?< }
+
+  rule(?+ => simple(:x)) { ?+ }
+  rule(?- => simple(:x)) { ?- }
+
+  rule(?. => simple(:x)) { ?. }
+  rule(?, => simple(:x)) { ?, }
+
+  rule(:loop => subtree(:x)) { x }
+end
+
+end

data/lib/rbf.rb

@@ -0,0 +1,35 @@
+#--
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#                   Version 2, December 2004
+#
+#  Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+#           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+#  TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+#
+#  0. You just DO WHAT THE FUCK YOU WANT TO.
+#++
+
+require 'rbf/syntax'
+require 'rbf/parser'
+require 'rbf/transform'
+require 'rbf/interpreter'
+
+require 'parslet/convenience'
+
+module RBF
+  def self.parse (text, keys=Syntax::Default)
+    Transform.new.apply(Parser.apply(keys).new.parse_with_debug(text)) or
+      raise SyntaxError, 'There is a syntax error'
+  end
+
+  def self.evaluate (text, keys=Syntax::Default)
+    tree = text.is_a?(Array) ? text : parse(text.to_s, keys)
+
+    Interpreter.new.evaluate(tree)
+  end
+
+  def self.execute (file, keys=Syntax::Default)
+    evaluate(File.read(file), keys)
+  end
+end

metadata

@@ -0,0 +1,69 @@
+--- !ruby/object:Gem::Specification 
+name: rbf
+version: !ruby/object:Gem::Version 
+  prerelease: 
+  version: 0.0.1
+platform: ruby
+authors: 
+- meh.
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-06-24 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: parslet
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+description: 
+email: meh@paranoici.org
+executables: 
+- rbf
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/rbf/transform.rb
+- lib/rbf/interpreter.rb
+- lib/rbf/syntax.rb
+- lib/rbf/parser.rb
+- lib/rbf.rb
+- bin/rbf
+homepage: http://github.com/meh/rbf
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+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: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.8.5
+signing_key: 
+specification_version: 3
+summary: A simple Brainfuck interpreter.
+test_files: []
+