smalruby-editor 0.1.6-x86-mingw32 → 0.1.7-x86-mingw32

data/smalruby-editor.gemspec

@@ -68,7 +68,7 @@ Gem::Specification.new do |spec|
      ['launchy'],
      ['mime-types', '~> 1.16'],
      ['haml-rails'],
-     ['smalruby'],
+     ['smalruby', '~> 0.0.15'],
     ]
   runtime_dependencies << ['therubyracer'] unless is_windows
   runtime_dependencies.each do |args|

data/spec/acceptance/block_mode/blocks/hardware/two_wheel_drive_car.feature

@@ -0,0 +1,69 @@
+# encoding: utf-8
+# language: ja
+@javascript
+機能: hardware_two_wheel_drive_car_{forward,backward,turn_left,turn_right,stop} - 「2WD車[▼ピン]を{進める,バックさせる,左に曲げる,右に曲げる,止める}」ブロック
+  背景:
+    前提 "ブロック" タブを表示する
+    かつ 次のキャラクターを追加する:
+      | name | costumes | x | y | angle |
+      | car1 | car1.png | 0 | 0 |     0 |
+
+  シナリオテンプレート: ブロックのみ、キャラクターとブロック、キャラクターとイベントとブロックをそれぞれ配置する
+    # ブロックのみ配置する
+    もし 次のブロック("hardware_two_wheel_drive_car_<ブロック名のサフィックス>")を配置する:
+      """
+      %block{:type => "hardware_two_wheel_drive_car_<ブロック名のサフィックス>", :x => "0", :y => "0"}
+        %field{:name => "PIN"}<
+          D2
+      """
+    かつ ブロックからソースコードを生成する
+
+    ならば テキストエディタのプログラムは "" であること
+
+    # キャラクターとブロックを配置する
+    もし 次のブロック("hardware_two_wheel_drive_car_<ブロック名のサフィックス>")を配置する:
+      """
+      %block{:type => "character_new", :x => "21", :y => "15"}
+        %field{:name => "NAME"}<
+          car1
+        %statement{:name => "DO"}
+          %block{:type => "hardware_two_wheel_drive_car_<ブロック名のサフィックス>", :x => "0", :y => "0"}
+            %field{:name => "PIN"}<
+              D2
+      """
+    かつ ブロックからソースコードを生成する
+
+    ならば テキストエディタのプログラムは以下を含むこと:
+      """
+      car1.two_wheel_drive_car("D2").<ブロック名のサフィックス>
+      """
+
+    # キャラクターとイベントとブロックを配置する
+    もし 次のブロック("hardware_two_wheel_drive_car_<ブロック名のサフィックス>")を配置する:
+      """
+      %block{:type => "character_new", :x => "21", :y => "15"}
+        %field{:name => "NAME"}<
+          car1
+        %statement{:name => "DO"}
+          %block{:type => "events_on_start"}
+            %statement{:name => "DO"}
+              %block{:type => "hardware_two_wheel_drive_car_<ブロック名のサフィックス>", :x => "0", :y => "0"}
+                %field{:name => "PIN"}<
+                  D2
+      """
+    かつ ブロックからソースコードを生成する
+
+    ならば テキストエディタのプログラムは以下を含むこと:
+      """
+      car1.on(:start) do
+        two_wheel_drive_car("D2").<ブロック名のサフィックス>
+      end
+      """
+
+    例:
+      | ブロック名のサフィックス |
+      | forward                  |
+      | backward                 |
+      | turn_left                |
+      | turn_right               |
+      | stop                     |

data/spec/acceptance/ruby_mode/translate.feature

@@ -29,7 +29,7 @@
       """
       <xml>
         <character x="0" y="0" name="car1" costumes="car1.png" angle="0"></character>
-        <block type="character_new" x="4" y="4">
+        <block type="character_new" x="0" y="0">
           <field name="NAME">car1</field>
           <statement name="DO">
             <block type="events_on_start">

data/spec/controllers/source_codes_controller_spec.rb

@@ -468,24 +468,27 @@ describe SourceCodesController do
   end
 
   describe 'プログラムをXML形式のブロックに変換する (POST to_blocks)' do
+    let(:data) { 'data' }
+
     before do
+      allow_any_instance_of(SourceCode).to receive(:to_blocks) {
+        fail if data == '__FAIL__'
+        'success'
+      }
+
       post :to_blocks, source_code: { data: data }
     end
 
-    describe '動作確認用のモックアップ' do
-      context '成功する場合' do
-        let(:data) { SourceCode::SUCCESS_DATA_MOCK }
-
-        it 'XML形式のブロックを返すこと' do
-          expect(response.body).to eq(SourceCode::SUCCESS_XML_MOCK)
-        end
+    context '成功する場合' do
+      it 'SourceCode#to_blocksの結果をそのまま返すこと' do
+        expect(response.body).to eq('success')
       end
+    end
 
-      context '失敗する場合' do
-        let(:data) { '__FAIL__' }
+    context '失敗する場合' do
+      let(:data) { '__FAIL__' }
 
-        it { expect(response.status).to eq(400) }
-      end
+      it { expect(response.status).to eq(400) }
     end
   end
 end

data/spec/models/concerns/ruby_to_block/block/character_method_call_spec.rb

@@ -0,0 +1,175 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# ここではCharacterMethodCallのexamplesとしてlooks_sayブロックを利用
+# します。そのかわりlooks_sayのようにCharacterMethodCallを継承したブ
+# ロックでは最低限のexamplesしか実装しません。
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::CharacterMethodCall, to_blocks: true do
+  parts = <<-EOS
+say(message: "こんにちは")
+  EOS
+  describe compact_source_code(parts), on_start_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+          <block type="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">こんにちは</field>
+              </block>
+            </value>
+          </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+self.say(message: "こんにちは")
+  EOS
+  describe compact_source_code(parts), on_start_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+          <block type="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">こんにちは</field>
+              </block>
+            </value>
+          </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+say(message: "こんにちは")
+puts "Hello, World!"
+  EOS
+  describe compact_source_code(parts), on_start_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+          <block type="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">こんにちは</field>
+              </block>
+            </value>
+            <next>
+              <block type="ruby_statement">
+                <field name="STATEMENT">puts &quot;Hello, World!&quot;</field>
+              </block>
+            </next>
+          </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+car1.say(message: "こんにちは")
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+      <block type="looks_say" inline="true">
+        <value name="TEXT">
+          <block type="text">
+            <field name="TEXT">こんにちは</field>
+          </block>
+        </value>
+      </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+car1.say(message: "こんにちは")
+car1.say(message: "こんにちは")
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+      <block type="looks_say" inline="true">
+        <value name="TEXT">
+          <block type="text">
+            <field name="TEXT">こんにちは</field>
+          </block>
+        </value>
+        <next>
+          <block type="looks_say" inline="true">
+            <value name="TEXT">
+              <block type="text">
+                <field name="TEXT">こんにちは</field>
+              </block>
+            </value>
+          </block>
+        </next>
+      </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+car1.say(message: "こんにちは")
+unknown.say(message: "こんにちは")
+say(message: "こんにちは")
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+      <block type="looks_say" inline="true">
+        <value name="TEXT">
+          <block type="text">
+            <field name="TEXT">こんにちは</field>
+          </block>
+        </value>
+        <next>
+          <block type="ruby_statement">
+            <field name="STATEMENT">unknown.say(message: &quot;こんにちは&quot;)</field>
+            <next>
+              <block type="ruby_statement">
+                <field name="STATEMENT">say(message: &quot;こんにちは&quot;)</field>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+say(message: "こんにちは")
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="ruby_statement">
+    <field name="STATEMENT">say(message: &quot;こんにちは&quot;)</field>
+  </block>
+      XML
+    end
+  end
+end

data/spec/models/concerns/ruby_to_block/block/control_if_spec.rb

@@ -0,0 +1,75 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::ControlIf,
+         RubyToBlock::Block::OperatorsTrue,
+         RubyToBlock::Block::OperatorsFalse,
+         to_blocks: true do
+  _data = <<-EOS
+if true
+
+end
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="control_if" inline="true">
+    <value name="COND">
+      <block type="operators_true" />
+    </value>
+  </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+if false
+
+end
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="control_if" inline="true">
+    <value name="COND">
+      <block type="operators_false" />
+    </value>
+  </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+if true
+  puts "Hello, World!"
+end
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="control_if" inline="true">
+    <value name="COND">
+      <block type="operators_true" />
+    </value>
+    <statement name="THEN">
+      <block type="ruby_statement">
+        <field name="STATEMENT">puts &quot;Hello, World!&quot;</field>
+      </block>
+    </statement>
+  </block>
+      XML
+    end
+  end
+end

data/spec/models/concerns/ruby_to_block/block/control_loop_spec.rb

@@ -0,0 +1,68 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::ControlLoop, to_blocks: true do
+  parts = <<-EOS
+loop do
+
+end
+  EOS
+  describe compact_source_code(parts), on_start_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+          <block type="control_loop" />
+      XML
+    end
+  end
+
+  parts = <<-EOS
+loop do
+  puts "Hello, World!"
+end
+  EOS
+  describe compact_source_code(parts), on_start_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+          <block type="control_loop">
+            <statement name="DO">
+              <block type="ruby_statement">
+                <field name="STATEMENT">puts &quot;Hello, World!&quot;</field>
+              </block>
+            </statement>
+          </block>
+      XML
+    end
+  end
+
+  _data = <<-EOS
+loop do
+
+end
+  EOS
+  describe compact_source_code(_data) do
+    __data = _data
+    let(:data) { __data }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <block type="ruby_statement">
+    <field name="STATEMENT">loop do</field>
+    <next>
+      <block type="ruby_statement">
+        <field name="STATEMENT">end</field>
+      </block>
+    </next>
+  </block>
+      XML
+    end
+  end
+end

data/spec/models/concerns/ruby_to_block/block/events_on_start_spec.rb

@@ -0,0 +1,120 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block::EventsOnStart, to_blocks: true do
+  parts = <<-EOS
+car1.on(:start) do
+
+end
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+      <block type="events_on_start" />
+      XML
+    end
+  end
+
+  parts = <<-EOS
+cat1 = Character.new(costume: "cat1.png", x: 200, y: 150, angle: 90)
+
+car1.on(:start) do
+
+end
+
+car1.on(:start) do
+
+end
+
+
+cat1.on(:start) do
+
+end
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
+  <character name="cat1" x="200" y="150" angle="90" costumes="cat1.png" />
+  <block type="character_new">
+    <field name="NAME">car1</field>
+    <statement name="DO">
+      <block type="events_on_start">
+        <next>
+          <block type="events_on_start" />
+        </next>
+      </block>
+    </statement>
+  </block>
+  <block type="character_new">
+    <field name="NAME">cat1</field>
+    <statement name="DO">
+      <block type="events_on_start" />
+    </statement>
+  </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+cat1 = Character.new(costume: "cat1.png", x: 200, y: 150, angle: 90)
+
+car1.on(:start) do
+
+  cat1.on(:start) do
+
+  end
+end
+  EOS
+  describe compact_source_code(parts), character_new_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
+  <character name="cat1" x="200" y="150" angle="90" costumes="cat1.png" />
+  <block type="character_new">
+    <field name="NAME">car1</field>
+    <statement name="DO">
+      <block type="events_on_start">
+        <statement name="DO">
+          <block type="character_new">
+            <field name="NAME">cat1</field>
+            <statement name="DO">
+              <block type="events_on_start" />
+            </statement>
+          </block>
+        </statement>
+      </block>
+    </statement>
+  </block>
+      XML
+    end
+  end
+
+  parts = <<-EOS
+on(:start) do
+
+end
+  EOS
+  describe compact_source_code(parts), on_start_data: true do
+    _parts = parts
+    let(:parts) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+          <block type="events_on_start" />
+      XML
+    end
+  end
+end

data/spec/models/concerns/ruby_to_block/block/hardware_spec.rb

@@ -0,0 +1,120 @@
+# -*- coding: utf-8 -*-
+require 'spec_helper'
+require_relative 'shared/block_examples'
+
+# rubocop:disable EmptyLines, LineLength
+
+describe RubyToBlock::Block, 'ハードウェアジャンル', to_blocks: true do
+  parts = <<-EOS
+require "smalruby"
+
+init_hardware
+car1 = Character.new(costume: "car1.png", x: 0, y: 0, angle: 0)
+
+car1.on(:start) do
+  led("D4").on
+  rgb_led_cathode("D9").on(color: [255, 0, 0])
+  two_wheel_drive_car("D2").forward
+end
+car1.led("D4").off
+car1.rgb_led_cathode("D9").off
+car1.two_wheel_drive_car("D2").backward
+
+car1.on(:sensor_change, "A0") do
+  if sensor("A0").value < 200
+    two_wheel_drive_car("D2").turn_left
+    two_wheel_drive_car("D2").turn_right
+    two_wheel_drive_car("D2").stop
+  end
+end
+  EOS
+  describe compact_source_code(parts) do
+    _parts = parts
+    let(:data) { _parts }
+
+    it '結果が正しいこと' do
+      should eq_block_xml(<<-XML)
+  <character name="car1" x="0" y="0" angle="0" costumes="car1.png" />
+  <block type="hardware_init_hardware" />
+  <block type="character_new">
+    <field name="NAME">car1</field>
+    <statement name="DO">
+      <block type="events_on_start">
+        <statement name="DO">
+          <block type="hardware_led_on">
+            <field name="PIN">D4</field>
+            <next>
+              <block type="hardware_rgb_led_on">
+                <field name="AC">cathode</field>
+                <field name="PIN">D9</field>
+                <field name="COLOUR">#ff0000</field>
+                <next>
+                  <block type="hardware_two_wheel_drive_car_forward">
+                    <field name="PIN">D2</field>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </statement>
+        <next>
+          <block type="hardware_led_off">
+            <field name="PIN">D4</field>
+            <next>
+              <block type="hardware_rgb_led_off">
+                <field name="AC">cathode</field>
+                <field name="PIN">D9</field>
+                <next>
+                  <block type="hardware_two_wheel_drive_car_backward">
+                    <field name="PIN">D2</field>
+                    <next>
+                      <block type="hardware_on_sensor_change">
+                        <field name="PIN">A0</field>
+                        <statement name="DO">
+                          <block type="control_if" inline="true">
+                            <value name="COND">
+                              <block type="operators_compare_lt" inline="true">
+                                <value name="A">
+                                  <block type="hardware_sensor_value">
+                                    <field name="PIN">A0</field>
+                                  </block>
+                                </value>
+                                <value name="B">
+                                  <block type="math_number">
+                                    <field name="NUM">200</field>
+                                  </block>
+                                </value>
+                              </block>
+                            </value>
+                            <statement name="THEN">
+                              <block type="hardware_two_wheel_drive_car_turn_left">
+                                <field name="PIN">D2</field>
+                                <next>
+                                  <block type="hardware_two_wheel_drive_car_turn_right">
+                                    <field name="PIN">D2</field>
+                                    <next>
+                                      <block type="hardware_two_wheel_drive_car_stop">
+                                        <field name="PIN">D2</field>
+                                      </block>
+                                    </next>
+                                  </block>
+                                </next>
+                              </block>
+                            </statement>
+                          </block>
+                        </statement>
+                      </block>
+                    </next>
+                  </block>
+                </next>
+              </block>
+            </next>
+          </block>
+        </next>
+      </block>
+    </statement>
+  </block>
+      XML
+    end
+  end
+end