mojikun 1.0.0

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in mojikun.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Steve Klabnik
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,47 @@
+# Mojikun
+
+A Brainfuck based on Emoji.
+
+Instructions:
+
+👉  Move the pointer to the right
+👈  Move the pointer to the left
+👍  Increment the memory cell under the pointer
+👎  Decrement the memory cell under the pointer
+💻  Output the character signified by the cell at the pointer
+💾  Input a character and store it in the cell at the pointer
+🔃  Jump past the matching 🔙 if the cell under the pointer is 0
+🔙  Jump back to the matching 🔃 if the cell under the pointer is nonzero
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'mojikun'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install mojikun
+
+## Usage
+
+A `mojikun` binary is provided to let you run programs. There is an examples
+directory which has some examples. Use `mojikun` like any other interpreter:
+
+```
+mokikun examples/hello.moji
+```
+
+`.moji` is the preferred file ending for Mojikun.
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1,12 @@
+require "bundler/gem_tasks"
+
+require 'rake/testtask'
+
+Rake::TestTask.new do |t|
+  t.libs << "lib"
+  t.test_files = FileList['test/*_test.rb']
+  t.ruby_opts = ['-r./test/test_helper.rb']
+  t.verbose = true
+end
+
+task :default => :test

data/bin/mojikun

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+
+require 'mojikun'
+
+source_code = ARGF.read.chomp
+
+tokens = Mojikun::Lexer.new(source_code).call
+
+ast = Mojikun::Parser.new(tokens).call
+
+runtime = Mojikun::Runtime.new
+interpreter = Mojikun::Interpreter.new(runtime)
+
+interpreter.evaluate(ast)

data/examples/hello.moji

@@ -0,0 +1 @@
+👍👍👍👍👍👍👍👍👍👍🔃👉👍👍👍👍👍👍👍👉👍👍👍👍👍👍👍👍👍👍👉👍👍👍👉👍👈👈👈👈👎🔙👉👍👍💻👉👍💻👍👍👍👍👍👍👍💻💻👍👍👍💻👉👍👍💻👈👈👍👍👍👍👍👍👍👍👍👍👍👍👍👍👍💻👉💻👍👍👍💻👎👎👎👎👎👎💻👎👎👎👎👎👎👎👎💻👉👍💻👉💻

data/lib/mojikun/display_node.rb

@@ -0,0 +1,5 @@
+module Mojikun
+  class DisplayNode
+  end
+end
+

data/lib/mojikun/end_loop_node.rb

@@ -0,0 +1,5 @@
+module Mojikun
+  class EndLoopNode
+  end
+end
+

data/lib/mojikun/errors.rb

@@ -0,0 +1,3 @@
+module Mojikun
+  MismatchedBracketError = Class.new(StandardError)
+end

data/lib/mojikun/interpreter.rb

@@ -0,0 +1,73 @@
+require 'io/console'
+
+require 'mojikun/errors'
+
+require 'mojikun/point_right_node'
+require 'mojikun/point_left_node'
+require 'mojikun/thumbs_up_node'
+require 'mojikun/thumbs_down_node'
+require 'mojikun/display_node'
+require 'mojikun/save_node'
+require 'mojikun/loop_node'
+require 'mojikun/end_loop_node'
+
+
+module Mojikun
+  class Interpreter
+    attr_reader :runtime, :loop_map
+
+    def initialize(runtime)
+      @runtime = runtime
+      @loop_map = {}
+    end
+
+    def evaluate(ast)
+      # first, update the loop map so we know positions of LoopNode/EndLoopNode
+      loop_counter = 0
+      loop_stack = []
+
+      ast.each_with_index do |node, index|
+        case node
+        when LoopNode
+          loop_stack << index
+        when EndLoopNode
+          raise MismatchedBracketError if loop_stack.empty?
+          
+          @loop_map[loop_stack.pop] = index
+        end
+      end
+
+      raise MismatchedBracketError unless loop_stack.empty?
+
+      # then, evaluate the nodes
+      until(runtime.instruction_pointer == ast.count)
+        case ast[runtime.instruction_pointer]
+        when PointRightNode
+          runtime.increment_data_pointer
+        when PointLeftNode
+          runtime.decrement_data_pointer
+        when ThumbsUpNode
+          runtime.increment_data
+        when ThumbsDownNode
+          runtime.decrement_data
+        when DisplayNode
+          STDOUT.print(runtime.current_data.chr)
+        when SaveNode
+          runtime.set_current_data(STDIN.getch.ord)
+        when LoopNode
+          if runtime.current_data == 0
+            runtime.set_instruction_pointer(@loop_map[runtime.instruction_pointer])
+          end
+        when EndLoopNode
+          if runtime.current_data != 0
+            runtime.set_instruction_pointer(@loop_map.key(runtime.instruction_pointer))
+          end
+        end
+
+        runtime.increment_instruction_pointer
+      end
+
+      self
+    end
+  end
+end

data/lib/mojikun/lexer.rb

@@ -0,0 +1,12 @@
+module Mojikun
+  class Lexer
+    def initialize(source)
+      @source = source
+    end
+
+    # omg easiest lexer ever
+    def call
+      @source.split(//)
+    end
+  end
+end

data/lib/mojikun/loop_node.rb

@@ -0,0 +1,5 @@
+module Mojikun
+  class LoopNode
+  end
+end
+

data/lib/mojikun/parser.rb

@@ -0,0 +1,31 @@
+# encoding: utf-8
+module Mojikun
+  class Parser
+    def initialize(tokens)
+      @tokens = tokens
+    end
+
+    def call
+      @tokens.collect do |token|
+        case token
+        when "👈"
+          PointLeftNode.new
+        when "👉"
+          PointRightNode.new
+        when "👍"
+          ThumbsUpNode.new
+        when "👎"
+          ThumbsDownNode.new
+        when "💾"
+          SaveNode.new
+        when "💻"
+          DisplayNode.new
+        when "🔃"
+          LoopNode.new
+        when "🔙"
+          EndLoopNode.new
+        end
+      end
+    end
+  end
+end

data/lib/mojikun/point_left_node.rb

@@ -0,0 +1,4 @@
+module Mojikun
+  class PointLeftNode
+  end
+end

data/lib/mojikun/point_right_node.rb

@@ -0,0 +1,5 @@
+module Mojikun
+  class PointRightNode
+  end
+end
+

data/lib/mojikun/runtime.rb

@@ -0,0 +1,55 @@
+module Mojikun
+  class Runtime
+    attr_reader :instruction_pointer,
+                :data_pointer,
+                :data
+
+    def initialize
+      @instruction_pointer = 0
+      @data_pointer = 0
+      @data = [0] * 30000 # original interpreter had 30,000 cells
+    end
+
+    def increment_data_pointer
+      @data_pointer += 1
+      self
+    end
+
+    def decrement_data_pointer
+      @data_pointer -= 1
+      self
+    end
+
+    def current_data
+      data[data_pointer]
+    end
+
+    def set_current_data(val)
+      data[data_pointer] = val
+
+      self
+    end
+
+    def increment_data
+      data[data_pointer] += 1
+      self
+    end
+
+    def decrement_data
+      data[data_pointer] -= 1
+      self
+    end
+
+    def set_instruction_pointer(num)
+      @instruction_pointer = num
+
+      self
+    end
+
+    def increment_instruction_pointer
+      @instruction_pointer += 1
+
+      self
+    end
+  end
+end

data/lib/mojikun/save_node.rb

@@ -0,0 +1,5 @@
+module Mojikun
+  class SaveNode
+  end
+end
+

data/lib/mojikun/thumbs_down_node.rb

@@ -0,0 +1,5 @@
+module Mojikun
+  class ThumbsDownNode
+  end
+end
+

data/lib/mojikun/thumbs_up_node.rb

@@ -0,0 +1,5 @@
+module Mojikun
+  class ThumbsUpNode
+  end
+end
+

data/lib/mojikun/version.rb

@@ -0,0 +1,3 @@
+module Mojikun
+  VERSION = "1.0.0"
+end

data/lib/mojikun.rb

@@ -0,0 +1,6 @@
+require 'mojikun/version'
+
+require 'mojikun/interpreter'
+require 'mojikun/lexer'
+require 'mojikun/parser'
+require 'mojikun/runtime'

data/mojikun.gemspec

@@ -0,0 +1,19 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'mojikun/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = "mojikun"
+  gem.version       = Mojikun::VERSION
+  gem.authors       = ["Steve Klabnik"]
+  gem.email         = ["steve@steveklabnik.com"]
+  gem.description   = %q{A simple programming language, using emoji.}
+  gem.summary       = %q{A simple programming language, using emoji.}
+  gem.homepage      = "https://github.com/steveklabnik/mojikun"
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.require_paths = ["lib"]
+end

data/test/interpreter_test.rb

@@ -0,0 +1,131 @@
+require 'mojikun/interpreter'
+require 'mojikun/runtime'
+
+require 'minitest/autorun'
+
+class InterpreterTest < Minitest::Unit::TestCase
+  def setup
+    @runtime = Mojikun::Runtime.new
+    @interpreter = Mojikun::Interpreter.new(@runtime)
+  end
+
+  def test_runtime
+    assert_equal @runtime, @interpreter.runtime
+  end
+
+  def test_eval_point_right_node
+    ast = [Mojikun::PointRightNode.new]
+    assert_equal 1, @interpreter.evaluate(ast).runtime.data_pointer
+  end
+
+  def test_eval_point_left_node
+    ast = [Mojikun::PointLeftNode.new]
+    assert_equal -1, @interpreter.evaluate(ast).runtime.data_pointer
+  end
+
+  def test_eval_thumbs_up_node
+    ast = [Mojikun::ThumbsUpNode.new]
+    assert_equal 1, @interpreter.evaluate(ast).runtime.current_data
+  end
+
+  def test_eval_thumbs_down_node
+    ast = [Mojikun::ThumbsDownNode.new]
+    assert_equal -1, @interpreter.evaluate(ast).runtime.current_data
+  end
+
+  def test_eval_display_node
+    mock =  MiniTest::Mock.new.expect(:print, nil, ["H"])
+
+    redefine_constant("STDOUT", mock) do
+
+      ast = 72.times.collect { Mojikun::ThumbsUpNode.new }
+      ast << Mojikun::DisplayNode.new
+
+      @interpreter.evaluate(ast)
+    end
+
+    mock.verify
+  end
+
+  def test_eval_save_node
+    STDIN.stub :getch, "a" do
+      ast = [Mojikun::SaveNode.new]
+
+      @interpreter.evaluate(ast)
+
+      assert_equal 97, @interpreter.runtime.current_data
+    end
+  end
+
+  def test_eval_loop_node
+    ast = [Mojikun::LoopNode.new, Mojikun::ThumbsUpNode.new, Mojikun::EndLoopNode.new]
+    @interpreter.evaluate(ast)
+
+    assert_equal 0, @interpreter.runtime.current_data
+  end
+
+  def test_eval_end_loop_node
+           # so we enter the loop
+    ast = [Mojikun::ThumbsUpNode.new,
+           Mojikun::LoopNode.new,
+
+             # move right once, increment, move left
+             Mojikun::PointRightNode.new,
+             Mojikun::ThumbsUpNode.new,
+             Mojikun::PointLeftNode.new,
+
+             # decrement so we leave the loop
+             Mojikun::ThumbsDownNode.new,
+           Mojikun::EndLoopNode.new,
+
+           # move right so we can see the 1 we did in the loop
+           Mojikun::PointRightNode.new,
+          ]
+    @interpreter.evaluate(ast)
+
+    assert_equal 1, @interpreter.runtime.current_data
+  end
+
+  def test_loop_map
+    ast = [Mojikun::LoopNode.new, Mojikun::EndLoopNode.new]
+
+    @interpreter.evaluate(ast)
+
+    map = {}
+    map[0] = 1
+
+    assert_equal map, @interpreter.loop_map
+  end
+
+  def test_nested_loop_map
+    ast = [Mojikun::LoopNode.new, Mojikun::LoopNode.new, Mojikun::EndLoopNode.new, Mojikun::EndLoopNode.new]
+
+    @interpreter.evaluate(ast)
+
+    map = {}
+    map[0] = 3
+    map[1] = 2
+
+    assert_equal map, @interpreter.loop_map
+  end
+
+  def test_uneven_loop
+    ast = [Mojikun::LoopNode.new]
+    begin
+      @interpreter.evaluate(ast)
+      flunk "Did not throw MismatchedBracketError"
+    rescue Mojikun::MismatchedBracketError
+      pass
+    end
+  end
+
+  def test_uneven_end_loop
+    ast = [Mojikun::EndLoopNode.new]
+    begin
+      @interpreter.evaluate(ast)
+      flunk "Did not throw MismatchedBracketError"
+    rescue Mojikun::MismatchedBracketError
+      pass
+    end
+  end
+end

data/test/lexer_test.rb

@@ -0,0 +1,17 @@
+# encoding: utf-8
+
+require 'mojikun/lexer'
+
+require 'minitest/autorun'
+
+class TestLexer < MiniTest::Unit::TestCase
+  def test_lexing
+    source = "👍"
+    assert_equal ["👍"], Mojikun::Lexer.new(source).call
+  end
+
+  def test_lexing
+    source = "👍👍"
+    assert_equal ["👍", "👍"], Mojikun::Lexer.new(source).call
+  end
+end

data/test/parser_test.rb

@@ -0,0 +1,56 @@
+# encoding: utf-8
+
+require 'mojikun/parser'
+
+require 'mojikun/display_node'
+require 'mojikun/end_loop_node'
+require 'mojikun/loop_node'
+require 'mojikun/point_left_node'
+require 'mojikun/point_right_node'
+require 'mojikun/save_node'
+require 'mojikun/thumbs_down_node'
+require 'mojikun/thumbs_up_node'
+
+require 'minitest/autorun'
+
+class TestParser < MiniTest::Unit::TestCase
+  def test_point_right
+    tokens = ["👉"]
+    assert_kind_of Mojikun::PointRightNode, Mojikun::Parser.new(tokens).call.first
+  end
+
+  def test_point_left
+    tokens = ["👈"]
+    assert_kind_of Mojikun::PointLeftNode, Mojikun::Parser.new(tokens).call.first
+  end
+
+  def test_thumbs_up
+    tokens = ["👍"]
+    assert_kind_of Mojikun::ThumbsUpNode, Mojikun::Parser.new(tokens).call.first
+  end
+
+  def test_thumbs_down
+    tokens = ["👎"]
+    assert_kind_of Mojikun::ThumbsDownNode, Mojikun::Parser.new(tokens).call.first
+  end
+
+  def test_display
+    tokens = ["💻"]
+    assert_kind_of Mojikun::DisplayNode, Mojikun::Parser.new(tokens).call.first
+  end
+
+  def test_save
+    tokens = ["💾"]
+    assert_kind_of Mojikun::SaveNode, Mojikun::Parser.new(tokens).call.first
+  end
+
+  def test_loop
+    tokens = ["🔃"]
+    assert_kind_of Mojikun::LoopNode, Mojikun::Parser.new(tokens).call.first
+  end
+
+  def test_end_loop
+    tokens = ["🔙"]
+    assert_kind_of Mojikun::EndLoopNode, Mojikun::Parser.new(tokens).call.first
+  end
+end

data/test/runtime_test.rb

@@ -0,0 +1,60 @@
+require 'mojikun/runtime'
+
+require 'minitest/autorun'
+
+class RuntimeTest < MiniTest::Unit::TestCase
+  def setup
+    @runtime = Mojikun::Runtime.new
+  end
+
+  def test_instruction_pointer
+    assert_equal 0, @runtime.instruction_pointer
+  end
+
+  def test_data_pointer
+    assert_equal 0, @runtime.data_pointer
+  end
+
+  def test_data
+    assert_equal [0] * 30000, @runtime.data
+  end
+
+  def test_increment_data_pointer
+    runtime = @runtime.increment_data_pointer
+    assert_equal 1, runtime.data_pointer
+  end
+
+  def test_decrement_data_pointer
+    runtime = @runtime.decrement_data_pointer
+    assert_equal -1, runtime.data_pointer
+  end
+
+  def test_current_data
+    assert_equal 0, @runtime.current_data
+  end
+
+  def test_increment_data
+    runtime = @runtime.increment_data
+    assert_equal 1, runtime.current_data
+  end
+
+  def test_decrement_data
+    runtime = @runtime.decrement_data
+    assert_equal -1, runtime.current_data
+  end
+
+  def test_set_current_data
+    runtime = @runtime.set_current_data(1337)
+    assert_equal 1337, runtime.current_data
+  end
+
+  def test_set_instruction_pointer
+    runtime = @runtime.set_instruction_pointer(2)
+    assert_equal 2, runtime.instruction_pointer
+  end
+
+  def test_increment_instruction_pointer
+    runtime = @runtime.increment_instruction_pointer
+    assert_equal 1, runtime.instruction_pointer
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,11 @@
+def redefine_constant(const, value)
+  orig = eval(const).dup
+
+  Object.send(:remove_const, const)
+  Object.const_set(const, value)
+
+  yield
+
+  Object.send(:remove_const, const)
+  Object.const_set(const, orig)
+end

metadata

@@ -0,0 +1,80 @@
+--- !ruby/object:Gem::Specification
+name: mojikun
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Steve Klabnik
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-12-09 00:00:00.000000000 Z
+dependencies: []
+description: A simple programming language, using emoji.
+email:
+- steve@steveklabnik.com
+executables:
+- mojikun
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/mojikun
+- examples/hello.moji
+- lib/mojikun.rb
+- lib/mojikun/display_node.rb
+- lib/mojikun/end_loop_node.rb
+- lib/mojikun/errors.rb
+- lib/mojikun/interpreter.rb
+- lib/mojikun/lexer.rb
+- lib/mojikun/loop_node.rb
+- lib/mojikun/parser.rb
+- lib/mojikun/point_left_node.rb
+- lib/mojikun/point_right_node.rb
+- lib/mojikun/runtime.rb
+- lib/mojikun/save_node.rb
+- lib/mojikun/thumbs_down_node.rb
+- lib/mojikun/thumbs_up_node.rb
+- lib/mojikun/version.rb
+- mojikun.gemspec
+- test/interpreter_test.rb
+- test/lexer_test.rb
+- test/parser_test.rb
+- test/runtime_test.rb
+- test/test_helper.rb
+homepage: https://github.com/steveklabnik/mojikun
+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.24
+signing_key: 
+specification_version: 3
+summary: A simple programming language, using emoji.
+test_files:
+- test/interpreter_test.rb
+- test/lexer_test.rb
+- test/parser_test.rb
+- test/runtime_test.rb
+- test/test_helper.rb
+has_rdoc: