windstorm 0.1.0

data/lib/windstorm/parser.rb

@@ -0,0 +1,64 @@
+# coding: utf-8
+module Windstorm
+  class Parser
+
+    class << self
+
+      def create(t)
+        ps = self.new
+        ps.table = t
+        ps
+      end
+
+    end
+
+    def table=(t)
+      raise 'definition blank' if t.nil? || t.empty?
+      @table = {}
+      COMMANDS.each do |c|
+        li = [t[c]].flatten.compact.uniq
+        next if li.empty?
+        @table[c] = li
+      end
+      raise 'definition not found' if @table.empty?
+      @dict = nil
+      @table
+    end
+
+    def table
+      raise 'definition not found' if @table.nil? || @table.empty?
+      @table
+    end
+
+    def dict
+      @dict ||= lambda do
+        dic = {}
+        table.each do |c, s|
+          [s].flatten.each{|t| dic[t] = c}
+        end
+        dic
+      end.call
+      @dict
+    end
+
+    def filter(source)
+      return [] unless source
+      reg = /#{dict.keys.map{|k| Regexp.escape(k)}.join('|')}/
+      ret = []
+      source.lines do |l|
+        next if l.start_with?('#') || l.start_with?('//')
+        ret << l.scan(reg).flatten
+      end
+      ret.flatten
+    end
+
+    def convert(fs)
+      [fs].flatten.map{|s| dict[s]}.compact
+    end
+
+    def build(source)
+      convert(filter(source))
+    end
+
+  end
+end

data/lib/windstorm/version.rb

@@ -0,0 +1,3 @@
+module Windstorm
+  VERSION = "0.1.0"
+end

data/spec/fixtures/bf.yml

@@ -0,0 +1,31 @@
+---
+:pinc:
+- ! '>'
+- 'a'
+:pdec:
+- '<'
+- 'b'
+:inc:
+- '+'
+- 'c'
+:dec:
+- ! '-'
+- 'd'
+:out:
+- '.'
+- 'e'
+:inp:
+- ! ','
+- 'f'
+:jmp:
+- ! '['
+- 'g'
+:ret:
+- ! ']'
+- 'h'
+:clip:
+- '%'
+- 'i'
+:paste:
+- '&'
+- 'j'

data/spec/fixtures/invalid.yml

@@ -0,0 +1,6 @@
+---
+:hoge:
+- 'a'
+- 'b'
+:piyo:
+- 'c'

data/spec/fixtures/source.txt

@@ -0,0 +1,17 @@
+# cccccccccccc
+acccccccccc
+// cccdddccc
+gxznbrull
+cccccccccc
+q@lopamnlkdwwwwwwh
+bropki
+|||||c|||||e~~~~~
+a1c2c3c4
+5g6b7
+00000000000c=====c######c//////
+zzzzzzzzzzzayyyyyyyyyydxxxxxxxxhwwwwww
+qbe
+#### コメントですよ
+jez
+(´･ω･`)
+おわり

data/spec/spec_helper.rb

@@ -0,0 +1,14 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+$LOAD_PATH.unshift(File.dirname(__FILE__))
+require 'rspec'
+require 'windstorm'
+
+include Windstorm
+
+# Requires supporting files with custom matchers and macros, etc,
+# in ./support/ and its subdirectories.
+Dir["#{File.dirname(__FILE__)}/support/**/*.rb"].each {|f| require f}
+
+RSpec.configure do |config|
+  config.color_enabled = true
+end

data/spec/windstorm/executor_spec.rb

@@ -0,0 +1,203 @@
+# coding: utf-8
+require 'spec_helper'
+
+FIXTURES_PATH = File.join(File.dirname(__FILE__), '..', 'fixtures')
+
+def file_from_fixtures(file)
+  File.join(FIXTURES_PATH, file)
+end
+
+describe Windstorm::Executor do
+
+  describe '.create' do
+    context 'with parser' do
+      before do
+        @table = {:inc => ['a', 'z'], :dec => ['b']}
+        @parser = Parser.create(@table)
+      end
+
+      subject { Executor.create(@parser) }
+
+      its(:parser){ should == @parser }
+      it { subject.parser.table.should == @table }
+    end
+
+    context 'given nil' do
+      it { Executor.create(nil).should be_nil }
+    end
+  end
+
+  describe '.create_from_table' do
+    context 'with table' do
+      before { @table = {:inc => ['a', 'z'], :dec => ['b']} }
+      subject { Executor.create_from_table(@table) }
+      it { subject.parser.table.should == @table }
+    end
+
+    context 'invalid table' do
+      before { @table = {:hoge => 'a'} }
+      it { lambda{ Executor.create_from_table(@table) }.should raise_error }
+    end
+
+    context 'given nil' do
+      it { lambda{ Executor.create_from_table(nil) }.should raise_error }
+    end
+  end
+
+  describe '.create_from_file' do
+    context 'with file' do
+      before do
+        @file = file_from_fixtures('bf.yml')
+        @expect = YAML.load(File.read(@file))
+      end
+
+      subject { Executor.create_from_file(@file) }
+      it { subject.parser.table.should == @expect }
+    end
+
+    context 'file not found' do
+      it { lambda{ Executor.create_from_file('hogepiyo') }.should raise_error }
+    end
+
+    context 'invalid definition' do
+      it { lambda{ Executor.create_from_file(file_from_fixtures('invalid.yml')) }.should raise_error }
+    end
+  end
+
+  describe '#parser' do
+    context 'parser not seted' do
+      it { lambda{ Executor.new.parser }.should raise_error }
+    end
+  end
+
+  describe 'instance method' do
+    before do
+      @exec = Executor.create_from_file(file_from_fixtures('bf.yml'))
+      @source_file = file_from_fixtures('source.txt')
+    end
+
+    describe '#filter' do
+      it { @exec.filter('steins gate').should == ['e', 'i', 'g', 'a', 'e'] }
+    end
+
+    describe '#filter_from_file' do
+      it { @exec.filter_from_file(@source_file).should_not be_empty }
+    end
+
+    describe '#build' do
+      it { @exec.build('steins gate').should == [:out, :clip, :jmp, :pinc, :out] }
+    end
+
+    describe '#build_from_file' do
+      it { @exec.build_from_file(@source_file).should_not be_empty }
+    end
+
+    describe 'each execute method' do
+      before do
+        @out = StringIO.new
+        @org_out = $stdout
+        $stdout = @out
+
+        @source = @exec.filter_from_file(@source_file).join('')
+      end
+
+      describe '#execute' do
+        context 'non params' do
+          it { @exec.execute(@source).should == 'end' }
+        end
+
+        context 'with params' do
+          before { @exec.execute(@source, :flash => true) }
+          it { @out.string.should == 'end' }
+        end
+      end
+
+      describe '#execute_from_file' do
+        context 'non params' do
+          it { @exec.execute_from_file(@source_file).should == 'end' }
+        end
+
+        context 'with params' do
+          before { @exec.execute_from_file(@source_file, :flash => true) }
+          it { @out.string.should == 'end' }
+        end
+      end
+
+      describe '#machine' do
+        context 'not executed yet' do
+          it { lambda{ @exec.machine }.should raise_error }
+        end
+
+        context 'executed machine' do
+          before { @exec.execute(@source) }
+          subject{ @exec.machine }
+          it { should be_instance_of(Machine) }
+          its(:result){ should == 'end' }
+        end
+      end
+
+      describe '#debug_execute' do
+        context 'non params' do
+          before do
+            @result = @exec.debug_execute(@source)
+            @lines = @out.string.each_line.to_a
+            @jump = @lines.delete_at(0) # "jump table"
+            @lines.shift # jump table data
+          end
+          it { @result.should == 'end' }
+          it { @jump.should match(/\Ajump/) }
+          it 'only debug outout in normal-mode' do
+            @lines.all?{|l| l.match(/\Astep:/)}.should be_true
+          end
+        end
+
+        context 'with params' do
+          before do
+            @result = @exec.debug_execute(@source, :flash => true)
+            @lines = @out.string.each_line.to_a
+            @jump = @lines.delete_at(0) # "jump table"
+            @lines.shift # jump table data
+          end
+          it { @result.should == 'end' }
+          it { @jump.should match(/\Ajump/) }
+          it 'each "e","n","d" include output in flash-mode' do
+            @lines.all?{|l| l.match(/\Astep:/)}.should be_false
+          end
+        end
+      end
+
+      describe '#debug_execute_from_file' do
+        context 'non params' do
+          before do
+            @result = @exec.debug_execute_from_file(@source_file)
+            @lines = @out.string.each_line.to_a
+            @jump = @lines.delete_at(0) # "jump table"
+            @lines.shift # jump table data
+          end
+          it { @result.should == 'end' }
+          it { @jump.should match(/\Ajump/) }
+          it 'only debug outout in normal-mode' do
+            @lines.all?{|l| l.match(/\Astep:/)}.should be_true
+          end
+        end
+
+        context 'with params' do
+          before do
+            @result = @exec.debug_execute_from_file(@source_file, :flash => true)
+            @lines = @out.string.each_line.to_a
+            @jump = @lines.delete_at(0) # "jump table"
+            @lines.shift # jump table data
+          end
+          it { @result.should == 'end' }
+          it { @jump.should match(/\Ajump/) }
+          it 'each "e","n","d" include output in flash-mode' do
+            @lines.all?{|l| l.match(/\Astep:/)}.should be_false
+          end
+        end
+      end
+
+      after { $stdout = @org_out }
+    end
+  end
+
+end

data/spec/windstorm/machine_execute_spec.rb

@@ -0,0 +1,911 @@
+# coding: utf-8
+require 'spec_helper'
+require 'stringio'
+
+describe Windstorm::Machine do
+
+  describe '#step_execute' do
+    before do
+      @machine = Machine.new
+      @size = 10
+      @machine.size = @size
+    end
+
+    describe ':pinc' do
+      context 'in-range' do
+        before { @machine.commands = [:pinc, :pinc, :pinc] }
+
+        it do
+          @machine.step.should == 0
+          @machine.index.should == 0
+          @machine.point.should == 0
+          @machine.buffer.should be_empty
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          3.times do |i|
+            @machine.step_execute
+
+            @machine.step.should == i+1
+            @machine.index.should == i+1
+            @machine.point.should == i+1
+            @machine.buffer.should be_empty
+            @machine.clip_value.should == 0
+            @machine.result.should be_empty
+          end
+
+          @machine.should be_finish
+        end
+      end
+
+      context 'out-range' do
+        before do
+          @machine.commands = [:pinc] * @size
+          (@size - 1).times{ @machine.step_execute }
+        end
+
+        context 'strict mode' do
+          it { lambda{ @machine.step_execute }.should raise_error }
+        end
+
+        context 'loose mode' do
+          before { @machine.loose = true }
+
+          it do
+            @machine.step_execute
+
+            @machine.step.should == @size
+            @machine.index.should == @size
+            @machine.point.should == @size
+            @machine.buffer.should be_empty
+            @machine.clip_value.should == 0
+            @machine.result.should be_empty
+
+            @machine.should be_finish
+          end
+        end
+      end
+    end
+
+    describe ':pdec' do
+      context 'in-range' do
+        before do
+          @machine.commands = [:pinc] * 3 + [:pdec] * 3
+          3.times { @machine.step_execute }
+        end
+
+        it do
+          @machine.step.should == 3
+          @machine.index.should == 3
+          @machine.point.should == 3
+          @machine.buffer.should be_empty
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          3.times do |i|
+            @machine.step_execute
+
+            @machine.step.should == i+4
+            @machine.index.should == i+4
+            @machine.point.should == 2-i
+            @machine.buffer.should be_empty
+            @machine.clip_value.should == 0
+            @machine.result.should be_empty
+          end
+
+          @machine.should be_finish
+        end
+      end
+
+      context 'out-range' do
+        before do
+          @machine.commands = [:pinc] * 2 + [:pdec] * 3
+          4.times{ @machine.step_execute }
+        end
+
+        context 'strict mode' do
+          it { lambda{ @machine.step_execute }.should raise_error }
+        end
+
+        context 'loose mode' do
+          before { @machine.loose = true }
+
+          it do
+            @machine.step_execute
+
+            @machine.step.should == 5
+            @machine.index.should == 5
+            @machine.point.should == -1
+            @machine.buffer.should be_empty
+            @machine.clip_value.should == 0
+            @machine.result.should be_empty
+
+            @machine.should be_finish
+          end
+        end
+      end
+    end
+
+    describe ':inc' do
+      before { @machine.commands = [:inc, :inc, :pinc, :inc, :pdec, :inc] }
+
+      it do
+        @machine.step.should == 0
+        @machine.index.should == 0
+        @machine.point.should == 0
+        @machine.buffer.should be_empty
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        2.times do |i|
+          @machine.step_execute
+
+          @machine.step.should == i+1
+          @machine.index.should == i+1
+          @machine.point.should == 0
+          @machine.buffer.should == [i+1]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+        end
+
+        @machine.step_execute
+
+        @machine.step.should == 3
+        @machine.index.should == 3
+        @machine.point.should == 1
+        @machine.buffer.should == [2]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 4
+        @machine.index.should == 4
+        @machine.point.should == 1
+        @machine.buffer.should == [2, 1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 5
+        @machine.index.should == 5
+        @machine.point.should == 0
+        @machine.buffer.should == [2, 1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 6
+        @machine.index.should == 6
+        @machine.point.should == 0
+        @machine.buffer.should == [3, 1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.should be_finish
+      end
+    end
+
+    describe ':dec' do
+      context 'in-range' do
+        before do
+          com_init = [:inc, :inc, :inc, :pinc] * 3 + [:pdec] * 3
+          com = com_init + [:dec, :pinc, :dec, :dec, :pdec, :dec ]
+          @init_size = com_init.size
+          @machine.commands = com
+          @init_size.times{ @machine.step_execute }
+        end
+
+        it do
+          @machine.step.should == @init_size
+          @machine.index.should == @init_size
+          @machine.point.should == 0
+          @machine.buffer.should == [3, 3, 3]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @init_size + 1
+          @machine.index.should == @init_size + 1
+          @machine.point.should == 0
+          @machine.buffer.should == [2, 3, 3]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @init_size + 2
+          @machine.index.should == @init_size + 2
+          @machine.point.should == 1
+          @machine.buffer.should == [2, 3, 3]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          2.times do |i|
+            @machine.step_execute
+
+            @machine.step.should == @init_size + 3 + i
+            @machine.index.should == @init_size + 3 + i
+            @machine.point.should == 1
+            @machine.buffer.should == [2, 2 - i, 3]
+            @machine.clip_value.should == 0
+            @machine.result.should be_empty
+          end
+
+          @machine.step_execute
+
+          @machine.step.should == @init_size + 5
+          @machine.index.should == @init_size + 5
+          @machine.point.should == 0
+          @machine.buffer.should == [2, 1, 3]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @init_size + 6
+          @machine.index.should == @init_size + 6
+          @machine.point.should == 0
+          @machine.buffer.should == [1, 1, 3]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.should be_finish
+        end
+      end
+
+      context 'out-range' do
+        before do
+          @machine.commands = [:inc] * 2 + [:dec] * 3
+          4.times{ @machine.step_execute }
+        end
+
+        context 'strict mode' do
+          it { lambda{ @machine.step_execute }.should raise_error }
+        end
+
+        context 'loose mode' do
+          before { @machine.loose = true }
+
+          it do
+            @machine.step_execute
+
+            @machine.step.should == 5
+            @machine.index.should == 5
+            @machine.point.should == 0
+            @machine.buffer.should == [-1]
+            @machine.clip_value.should == 0
+            @machine.result.should be_empty
+
+            @machine.should be_finish
+          end
+        end
+      end
+    end
+
+    describe ':out' do
+      before(:all) do
+        @out = StringIO.new
+        @org_out = $stdout
+        $stdout = @out
+      end
+
+      before do
+        @num_a = 'a'.bytes.first
+        com_init = [:inc] * @num_a
+        com = com_init + [:out, :inc, :out, :dec, :out]
+        @machine.commands = com
+        @num_a.times{ @machine.step_execute }
+      end
+
+      context 'normal mode' do
+        it do
+          @machine.step.should == @num_a
+          @machine.index.should == @num_a
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+          @out.string.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 1
+          @machine.index.should == @num_a + 1
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'a'
+          @out.string.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 2
+          @machine.index.should == @num_a + 2
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a+1]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'a'
+          @out.string.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 3
+          @machine.index.should == @num_a + 3
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a+1]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'ab'
+          @out.string.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 4
+          @machine.index.should == @num_a + 4
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'ab'
+          @out.string.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 5
+          @machine.index.should == @num_a + 5
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'aba'
+          @out.string.should be_empty
+
+          @machine.should be_finish
+        end
+      end
+
+      context 'flash mode' do
+        before{ @machine.flash = true }
+
+        it do
+          @machine.step.should == @num_a
+          @machine.index.should == @num_a
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+          @out.string.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 1
+          @machine.index.should == @num_a + 1
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'a'
+          @out.string.should == 'a'
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 2
+          @machine.index.should == @num_a + 2
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a+1]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'a'
+          @out.string.should == 'a'
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 3
+          @machine.index.should == @num_a + 3
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a+1]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'ab'
+          @out.string.should == 'ab'
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 4
+          @machine.index.should == @num_a + 4
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'ab'
+          @out.string.should == 'ab'
+
+          @machine.step_execute
+
+          @machine.step.should == @num_a + 5
+          @machine.index.should == @num_a + 5
+          @machine.point.should == 0
+          @machine.buffer.should == [@num_a]
+          @machine.clip_value.should == 0
+          @machine.result.should == 'aba'
+          @out.string.should == 'aba'
+
+          @machine.should be_finish
+        end
+      end
+
+      after(:all) { $stdout = @org_out }
+    end
+
+    describe ':inp' do
+      before(:all) do
+        @in = StringIO.new('orz')
+        @org_in = $stdin
+        $stdin = @in
+      end
+
+      before do
+        @ins = 'orz'.bytes.to_a
+        @machine.commands = [:inp, :pinc, :inp, :pinc, :inp, :dec]
+      end
+
+      it do
+        @machine.step.should == 0
+        @machine.index.should == 0
+        @machine.point.should == 0
+        @machine.buffer.should be_empty
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 1
+        @machine.index.should == 1
+        @machine.point.should == 0
+        @machine.buffer.should == [@ins[0]]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 2
+        @machine.index.should == 2
+        @machine.point.should == 1
+        @machine.buffer.should == [@ins[0]]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 3
+        @machine.index.should == 3
+        @machine.point.should == 1
+        @machine.buffer.should == [@ins[0], @ins[1]]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 4
+        @machine.index.should == 4
+        @machine.point.should == 2
+        @machine.buffer.should == [@ins[0], @ins[1]]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 5
+        @machine.index.should == 5
+        @machine.point.should == 2
+        @machine.buffer.should == [@ins[0], @ins[1], @ins[2]]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 6
+        @machine.index.should == 6
+        @machine.point.should == 2
+        @machine.buffer.should == [@ins[0], @ins[1], @ins[2]-1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.should be_finish
+      end
+
+      after(:all) { $stdin = @org_in }
+    end
+
+    describe ':jmp/:ret' do
+      context 'jump commands' do
+        before do
+          @machine.commands = [:inc, :dec, :jmp, :inc, :inc, :ret, :inc]
+          @machine.parse_jump
+        end
+
+        it do
+          @machine.jump_table.should == {2 => 5, 5 => 2}
+
+          2.times{ @machine.step_execute }
+
+          @machine.step.should == 2
+          @machine.index.should == 2
+          @machine.point.should == 0
+          @machine.buffer.should == [0]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 3
+          @machine.index.should == 6
+          @machine.point.should == 0
+          @machine.buffer.should == [0]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 4
+          @machine.index.should == 7
+          @machine.point.should == 0
+          @machine.buffer.should == [1]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.should be_finish
+        end
+      end
+
+      context 'loop' do
+        before do
+          @machine.commands = [:inc, :inc, :jmp, :dec, :ret, :inc]
+          @machine.parse_jump
+        end
+
+        it do
+          @machine.jump_table.should == {2 => 4, 4 => 2}
+
+          2.times{ @machine.step_execute }
+
+          @machine.step.should == 2
+          @machine.index.should == 2
+          @machine.point.should == 0
+          @machine.buffer.should == [2]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 3
+          @machine.index.should == 3
+          @machine.point.should == 0
+          @machine.buffer.should == [2]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 4
+          @machine.index.should == 4
+          @machine.point.should == 0
+          @machine.buffer.should == [1]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 5
+          @machine.index.should == 3
+          @machine.point.should == 0
+          @machine.buffer.should == [1]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 6
+          @machine.index.should == 4
+          @machine.point.should == 0
+          @machine.buffer.should == [0]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 7
+          @machine.index.should == 5
+          @machine.point.should == 0
+          @machine.buffer.should == [0]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 8
+          @machine.index.should == 6
+          @machine.point.should == 0
+          @machine.buffer.should == [1]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.should be_finish
+        end
+      end
+
+      context 'nested' do
+        before do
+          @machine.commands = [:inc, :jmp, :dec, :jmp, :pinc, :inc, :ret, :ret, :inc]
+          @machine.parse_jump
+        end
+
+        it do
+          @machine.jump_table.should == {1 => 7, 7 => 1, 3 => 6, 6 => 3}
+
+          @machine.step_execute
+
+          @machine.step.should == 1
+          @machine.index.should == 1
+          @machine.point.should == 0
+          @machine.buffer.should == [1]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 2
+          @machine.index.should == 2
+          @machine.point.should == 0
+          @machine.buffer.should == [1]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 3
+          @machine.index.should == 3
+          @machine.point.should == 0
+          @machine.buffer.should == [0]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 4
+          @machine.index.should == 7
+          @machine.point.should == 0
+          @machine.buffer.should == [0]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 5
+          @machine.index.should == 8
+          @machine.point.should == 0
+          @machine.buffer.should == [0]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.step_execute
+
+          @machine.step.should == 6
+          @machine.index.should == 9
+          @machine.point.should == 0
+          @machine.buffer.should == [1]
+          @machine.clip_value.should == 0
+          @machine.result.should be_empty
+
+          @machine.should be_finish
+        end
+      end
+    end
+
+    describe ':clip' do
+      before { @machine.commands = [:inc, :clip, :pinc, :clip] }
+
+      it do
+        @machine.step_execute
+
+        @machine.step.should == 1
+        @machine.index.should == 1
+        @machine.point.should == 0
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 2
+        @machine.index.should == 2
+        @machine.point.should == 0
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 1
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 3
+        @machine.index.should == 3
+        @machine.point.should == 1
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 1
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 4
+        @machine.index.should == 4
+        @machine.point.should == 1
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.should be_finish
+      end
+    end
+
+    describe ':paste' do
+      before { @machine.commands = [:paste, :inc, :clip, :pinc, :paste] }
+
+      it do
+        @machine.step_execute
+
+        @machine.step.should == 1
+        @machine.index.should == 1
+        @machine.point.should == 0
+        @machine.buffer.should == [0]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 2
+        @machine.index.should == 2
+        @machine.point.should == 0
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 3
+        @machine.index.should == 3
+        @machine.point.should == 0
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 1
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 4
+        @machine.index.should == 4
+        @machine.point.should == 1
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 1
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 5
+        @machine.index.should == 5
+        @machine.point.should == 1
+        @machine.buffer.should == [1, 1]
+        @machine.clip_value.should == 1
+        @machine.result.should be_empty
+
+        @machine.should be_finish
+      end
+    end
+
+    context 'unknown command' do
+      before { @machine.commands = [:inc, :hoge, :pinc, :piyo, :pdec] }
+
+      it do
+        @machine.step_execute
+
+        @machine.step.should == 1
+        @machine.index.should == 1
+        @machine.point.should == 0
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 2
+        @machine.index.should == 2
+        @machine.point.should == 0
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 3
+        @machine.index.should == 3
+        @machine.point.should == 1
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 4
+        @machine.index.should == 4
+        @machine.point.should == 1
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.step_execute
+
+        @machine.step.should == 5
+        @machine.index.should == 5
+        @machine.point.should == 0
+        @machine.buffer.should == [1]
+        @machine.clip_value.should == 0
+        @machine.result.should be_empty
+
+        @machine.should be_finish
+      end
+    end
+  end
+
+  describe '#execute' do
+    before do
+      coms = [
+        :pinc, [:inc] * 10,
+        :jmp, :pdec,
+        [:inc] * 10,
+        :pinc, :dec, :ret,
+        :pdec, :clip,
+        :inc, :out,
+        :pinc, [:inc] * 3,
+        :jmp, :pdec,
+        [:inc] * 3,
+        :pinc, :dec, :ret,
+        :pdec, :out,
+        :paste, :out
+      ].flatten
+      @machine = Machine.create(coms)
+    end
+
+    context 'normal mode' do
+      it do
+        @machine.execute.should == 'end'
+        @machine.result.should == 'end'
+      end
+    end
+
+    context 'flash mode' do
+      before do
+        @out = StringIO.new
+        @org_out = $stdout
+        $stdout = @out
+        @machine.flash = true
+      end
+
+      it do
+        @machine.execute.should == 'end'
+        @machine.result.should == 'end'
+        @out.string.should == 'end'
+      end
+
+      after { $stdout = @org_out }
+    end
+
+    context 'not execute if machine has result already' do
+      before do
+        @result = @machine.execute
+        @index = @machine.index
+        @step = @machine.step
+      end
+
+      it do
+        @machine.execute.should == @result
+        @machine.index.should == @index
+        @machine.step.should == @step
+      end
+    end
+  end
+
+end