smalruby-editor 0.1.6 → 0.1.7

data/app/models/concerns/ruby_to_block/block/operators_false.rb

@@ -0,0 +1,8 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class OperatorsFalse < Value
+      blocknize '^\s*false\s*$', value: true
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/operators_true.rb

@@ -0,0 +1,8 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class OperatorsTrue < Value
+      blocknize '^\s*true\s*$', value: true
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/require_smalruby.rb

@@ -0,0 +1,7 @@
+module RubyToBlock
+  module Block
+    class RequireSmalruby < Base
+      blocknize '^\s*require\s*"smalruby"\s*$', statement: true
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/ruby_comment.rb

@@ -0,0 +1,16 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class RubyComment < Base
+      blocknize '^\s*\#\ (.*)$', statement: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+        block = new(fields: { COMMENT: md2[1] })
+        context.add_block(block)
+
+        true
+      end
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/ruby_expression.rb

@@ -0,0 +1,14 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class RubyExpression < Value
+      blocknize '^.*$', value: true, priority: -Float::INFINITY
+
+      def self.process_match_data(md, context)
+        context.add_value(new(fields: { EXP: md.string }))
+
+        true
+      end
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/ruby_statement.rb

@@ -0,0 +1,23 @@
+module RubyToBlock
+  module Block
+    class RubyStatement < Base
+      blocknize '^.*$', statement: true, priority: -Float::INFINITY
+
+      def self.process_match_data(md, context)
+        block = new(fields: { STATEMENT: md.string })
+        context.add_block(block)
+
+        true
+      end
+
+      private
+
+      def fields_to_xml(e)
+        @fields[:STATEMENT] =
+          @fields[:STATEMENT].sub(/^ {0,#{indent_level * 2}}/, '')
+
+        super
+      end
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/sensing_hit.rb

@@ -0,0 +1,23 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class SensingHit < Value
+      blocknize '^\s*hit\?\(([^)]+)\)\s*$', value: true
+
+      def self.process_match_data(md, context)
+        return false unless context.receiver
+
+        md2 = regexp.match(md[type])
+        name = md2[1]
+        name.strip!
+        c = context.characters[name]
+
+        return false unless c
+
+        context.add_value(new(fields: { CHAR: name }))
+
+        true
+      end
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/sound_play.rb

@@ -0,0 +1,15 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class SoundPlay < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'play\(name:\s*(.+)\)\s*$',
+                statement: true, inline: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+        add_character_method_call_block(context, md2[1], new, NAME: md2[2])
+        true
+      end
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/sound_preset_sounds.rb

@@ -0,0 +1,31 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class SoundPresetSounds < Value
+      blocknize '^\s*"([^"]*?\.wav)"\s*$', value: true, priority: 1
+
+      # TODO: 自動生成する
+      SOUNDS = %w(
+        piano_do.wav
+        piano_re.wav
+        piano_mi.wav
+        piano_fa.wav
+        piano_so.wav
+        piano_ra.wav
+        piano_si.wav
+        piano_do_2.wav
+      )
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+        if SOUNDS.include?(md2[1])
+          context.add_value(new(fields: { NAME: md2[1] }))
+        else
+          context.add_value(Text.new(fields: { TEXT: md2[1] }))
+        end
+
+        true
+      end
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/text.rb

@@ -0,0 +1,15 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class Text < Value
+      blocknize '^\s*"([^"]*)"\s*$', value: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+        context.add_value(new(fields: { TEXT: md2[1] }))
+
+        true
+      end
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/block/value.rb

@@ -0,0 +1,12 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class Value < Base
+      def self.process_match_data(md, context)
+        context.add_value(new)
+
+        true
+      end
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/context.rb

@@ -0,0 +1,97 @@
+# -*- coding: utf-8 -*-
+
+module RubyToBlock
+  # ソースコード解析の状態を表現するクラス
+  class Context
+    attr_accessor :current_line
+    attr_accessor :lines
+    attr_accessor :characters
+    attr_accessor :character_stack
+    attr_accessor :receiver_stack
+    attr_accessor :statement_stack
+    attr_accessor :value_name_stack
+    attr_accessor :blocks
+    attr_accessor :current_block
+
+    def initialize(lines)
+      @lines = lines
+      @characters = {}
+      @character_stack = []
+      @receiver_stack = []
+      @statement_stack = []
+      @value_name_stack = []
+      @blocks = []
+      @current_block = nil
+    end
+
+    # 次の行に移動して、改行を含むその行の文字列を返す
+    #
+    # @return [String] 改行を含む次の行の文字列
+    def next_line
+      self.current_line = lines.shift
+    end
+
+    # 次の行を参照する
+    #
+    # @return [String] 次の行の文字列
+    def look_next_line
+      lines.first
+    end
+
+    def add_block(block)
+      if current_block
+        # HACK: コメントは下の行に関係することが多いため対象外としている
+        if current_block.type == 'character_new' &&
+            block.type != 'character_new' && block.type != 'ruby_comment'
+          current_block.add_statement(:DO, block)
+          block = current_block
+        else
+          current_block.sibling = block
+        end
+      else
+        blocks.push(block)
+      end
+      self.current_block = block
+      self
+    end
+
+    def add_value(block)
+      fail unless current_block || value_name
+
+      current_block.add_value(value_name, block)
+      self
+    end
+
+    def [](symbol)
+      send(symbol)
+    end
+
+    def []=(symbol, val)
+      send("#{symbol}=", val)
+    end
+
+    def receiver
+      @receiver_stack.last
+    end
+
+    def character
+      @character_stack.last
+    end
+
+    def statement
+      @statement_stack.last
+    end
+
+    def statement_type
+      statement.first
+    end
+
+    def statement_block
+      statement[1]
+    end
+
+    def value_name
+      @value_name_stack.last
+    end
+  end
+end

data/app/models/concerns/ruby_to_block/formatter.rb

@@ -0,0 +1,26 @@
+# -*- coding: utf-8 -*-
+
+module RubyToBlock
+  # XMLをフォーマットするクラス
+  #
+  # REXML::Formatters::Prettyでは行頭、行末などのスペースが1つになって
+  # しまうため、このクラスではそれらを修正している
+  class Formatter < REXML::Formatters::Pretty
+    def initialize
+      super(2, true)
+      self.compact = true
+    end
+
+    def write_text(node, output)
+      s = node.to_s
+      s.gsub!(/\s/, ' ')
+      if !node.is_a?(REXML::Text) ||
+          node.is_a?(REXML::Text) && !node.parent.whitespace
+        s.squeeze!(' ')
+      end
+      s = wrap(s, @width - @level)
+      s = indent_text(s, @level, ' ', true)
+      output << (' ' * @level + s)
+    end
+  end
+end

data/app/models/source_code.rb

@@ -4,7 +4,9 @@ require 'tempfile'
 require 'open3'
 require 'digest/sha2'
 require 'bundler'
-require_relative 'concerns/ruby_to_block'
+silence_warnings do
+  require_relative 'concerns/ruby_to_block'
+end
 
 # ソースコードを表現するモデル
 class SourceCode < ActiveRecord::Base

data/app/views/editor/_toolbox.html.haml

@@ -369,6 +369,22 @@
     -#  %block{:type => "#{category}_servo_set_position"}
     -#    = toolbox_number_value('POS', 90)
 
+    %category{:name => '車'}
+      -# 「2WD車[▼ピン]を進める」ブロック
+      %block{:type => "#{category}_two_wheel_drive_car_forward"}
+
+      -# 「2WD車[▼ピン]をバックさせる」ブロック
+      %block{:type => "#{category}_two_wheel_drive_car_backward"}
+
+      -# 「2WD車[▼ピン]を左に曲げる」ブロック
+      %block{:type => "#{category}_two_wheel_drive_car_turn_left"}
+
+      -# 「2WD車[▼ピン]を右に曲げる」ブロック
+      %block{:type => "#{category}_two_wheel_drive_car_turn_right"}
+
+      -# 「2WD車[▼ピン]を止める」ブロック
+      %block{:type => "#{category}_two_wheel_drive_car_stop"}
+
     -#%category{:name => 'ボタン'}
     -#  -# 条件:ボタン[▼]を押している
     -#  %block{:type => "#{category}_button_down"}

data/lib/smalruby_editor/version.rb

@@ -1,3 +1,3 @@
-module SmalrubyEditor
-  VERSION =  '0.1.6'
-end
+module SmalrubyEditor
+  VERSION =  '0.1.7'
+end

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">