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

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/block.rb

@@ -0,0 +1,97 @@
+# -*- coding: utf-8 -*-
+
+module RubyToBlock
+  # ブロック群を表現するモジュール
+  module Block
+    @blocks = {}
+
+    # ブロックのインスタンスを生成する
+    def self.new(type, *args)
+      @blocks[type].new(*args)
+    end
+
+    # ステートメントを表現するブロックの正規表現を返す
+    def self.statement_regexp
+      @statement_regexp ||= make_regexp(:statement?)
+    end
+
+    # 値を表現するブロックの正規表現を返す
+    def self.value_regexp
+      @value_regexp ||= make_regexp(:value?)
+    end
+
+    # ブロックを登録する
+    def self.register(klass)
+      @blocks[klass.type] = klass
+    end
+
+    # ブロックの正規表現を返す
+    def self.regexp(type)
+      @blocks[type.to_s].regexp
+    end
+
+    # MatchDataを処理する
+    def self.process_match_data(md, context, type = nil)
+      type = md.names.find { |n| md[n.to_sym] } unless type
+      @blocks[type].process_match_data(md, context)
+    rescue
+      false
+    end
+
+    # elseを処理する
+    def self.process_else(context)
+      st = context.statement
+      @blocks[st.first].process_else(context)
+    rescue
+      false
+    end
+
+    # endを処理する
+    def self.process_end(context)
+      st = context.statement
+      @blocks[st.first].process_end(context)
+    rescue
+      false
+    end
+
+    # ブロックを表現するクラスを返す
+    def self.[](type)
+      @blocks[type.to_s]
+    end
+
+    def self.make_regexp(method_symbol)
+      regexps = @blocks.values.select(&method_symbol).sort_by(&:priority)
+        .reverse.map { |klass|
+        "(?<#{klass.type}>#{klass.regexp_string})"
+      }
+      Regexp.new(regexps.join('|'), 'x')
+    end
+    private_class_method :make_regexp
+  end
+end
+
+preloads = %w(
+  base
+  value
+  character_operation
+  character_method_call
+  character_event
+).map { |s|
+  "#{s}.rb"
+}
+preloads.each do |preload|
+  path = Pathname(__FILE__).dirname.join('block', preload)
+  silence_warnings do
+    load path.expand_path
+  end
+end
+
+block_pattern = Pathname(__FILE__).dirname.join('block', '*.rb')
+block_files = Pathname.glob(block_pattern)
+block_files.each do |path|
+  next if preloads.include?(path.basename)
+
+  silence_warnings do
+    load path.expand_path
+  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