smalruby-editor 0.1.6 → 0.1.7

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

@@ -0,0 +1,8 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class LooksHide < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'visible\s*=\s*false\s*$', statement: true
+    end
+  end
+end

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

@@ -0,0 +1,20 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class LooksSay < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'say\(message:\s*("[^"]*")\)\s*$',
+                statement: true, inline: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        block = new
+        _, context.current_block =
+          *add_child_or_create_character_new_block(context, md2[1], block)
+        process_value_string(context, block, md2[2], :TEXT)
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,8 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class LooksShow < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'visible\s*=\s*true\s*$', statement: true
+    end
+  end
+end

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

@@ -0,0 +1,8 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class LooksVanish < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'vanish\s*$', statement: true
+    end
+  end
+end

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

@@ -0,0 +1,14 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MathNumber < Value
+      blocknize '^\s*([+-]?\d+(?:\.\d+)?)\s*$', value: true
+
+      def self.process_match_data(md, context)
+        context.add_value(new(fields: { NUM: md[type].sub(/^\+/, '') }))
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,20 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionChangeXBy < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'x\s*\+=\s*(\S+)\s*$',
+                statement: true, inline: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        block = new
+        _, context.current_block =
+          *add_child_or_create_character_new_block(context, md2[1], block)
+        process_value_string(context, block, md2[2], 'X')
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,20 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionChangeYBy < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'y\s*\+=\s*(\S+)\s*$',
+                statement: true, inline: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        block = new
+        _, context.current_block =
+          *add_child_or_create_character_new_block(context, md2[1], block)
+        process_value_string(context, block, md2[2], 'Y')
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,15 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionMove < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'move\((.+)\)\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, STEP: md2[2])
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionPointTowardsCharacter < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'point_towards\(([^:)]+)\)\s*$',
+                statement: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        name = md2[2]
+        name.strip!
+        c = context.characters[name]
+        return false unless c
+
+        block = new(fields: { CHAR: name })
+        _, context.current_block =
+          *add_child_or_create_character_new_block(context, md2[1], block)
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,9 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionPointTowardsMouse < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'point_towards\(:mouse\)\s*$',
+                statement: true
+    end
+  end
+end

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

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionReachWall < Value
+      include CharacterOperation
+
+      blocknize '^\s*' + CHAR_RE + 'reach_wall\?\s*$',
+                value: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        character = get_character(context, md2[1])
+        return false if context.receiver != character
+
+        block = new
+        context.add_value(block)
+        block.character = character
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,20 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionRotateLeft < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'rotate\(\-(\d+)\)\s*$',
+                statement: true, inline: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        block = new
+        _, context.current_block =
+          *add_child_or_create_character_new_block(context, md2[1], block)
+        process_value_string(context, block, md2[2], :ANGLE)
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,20 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionRotateRight < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'rotate\(\+?(\d+)\)\s*$',
+                statement: true, inline: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        block = new
+        _, context.current_block =
+          *add_child_or_create_character_new_block(context, md2[1], block)
+        process_value_string(context, block, md2[2], :ANGLE)
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,23 @@
+module RubyToBlock
+  module Block
+    class MotionSelfAngle < Value
+      include CharacterOperation
+
+      blocknize '^\s*' + CHAR_RE + 'angle\s*$',
+                value: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        character = get_character(context, md2[1])
+        return false if context.receiver != character
+
+        block = new
+        context.add_value(block)
+        block.character = character
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,23 @@
+module RubyToBlock
+  module Block
+    class MotionSelfX < Value
+      include CharacterOperation
+
+      blocknize '^\s*' + CHAR_RE + 'x\s*$',
+                value: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        character = get_character(context, md2[1])
+        return false if context.receiver != character
+
+        block = new
+        context.add_value(block)
+        block.character = character
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,23 @@
+module RubyToBlock
+  module Block
+    class MotionSelfY < Value
+      include CharacterOperation
+
+      blocknize '^\s*' + CHAR_RE + 'y\s*$',
+                value: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        character = get_character(context, md2[1])
+        return false if context.receiver != character
+
+        block = new
+        context.add_value(block)
+        block.character = character
+
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,15 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionSetAngle < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'angle\s*=\s*(\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, ANGLE: md2[2])
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,38 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionSetX < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'x\s*=\s*(\S+)\s*$',
+                statement: true, inline: true
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+        block = add_character_method_call_block(context, md2[1], new,
+                                                X: md2[2])
+
+        md3 = MotionSetY.regexp.match(context.look_next_line)
+        process_motion_set_y(context, block, md3) if md3
+
+        true
+      end
+
+      def self.process_motion_set_y(context, block, md)
+        if block.character == get_character(context, md[1])
+          process_value_string(context, block, md[2], :Y)
+          context.next_line
+        end
+      rescue
+        return
+      end
+      private_class_method :process_motion_set_y
+
+      def type
+        if @values.key?(:Y)
+          'motion_set_x_y'
+        else
+          super
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,15 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionSetY < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'y\s*=\s*(\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, Y: md2[2])
+        true
+      end
+    end
+  end
+end

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

@@ -0,0 +1,8 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionTurn < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'turn\s*$', statement: true
+    end
+  end
+end

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

@@ -0,0 +1,8 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class MotionTurnIfReachWall < CharacterMethodCall
+      blocknize '^\s*' + CHAR_RE + 'turn_if_reach_wall\s*$', statement: true
+    end
+  end
+end

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

@@ -0,0 +1,17 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    # Null(何もない)ブロックを表現する
+    class Null < Base
+      def to_xml(parent)
+        return nil unless @sibling
+
+        @sibling.to_xml(parent)
+      end
+
+      def null?
+        !@sibling
+      end
+    end
+  end
+end

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

@@ -0,0 +1,36 @@
+# -*- coding: utf-8 -*-
+module RubyToBlock
+  module Block
+    class OperatorsCompare < Value
+      blocknize '^\s*(\S+?)\s*(<|<=|==|>=|>)\s*(\S+?)\s*$',
+                value: true, inline: true
+
+      OPERATOR_TO_TYPE = {
+        '<' => "#{type}_lt",
+        '<=' => "#{type}_lte",
+        '==' => "#{type}_eq",
+        '>=' => "#{type}_gte",
+        '>' => "#{type}_gt",
+      }
+
+      attr_accessor :compare_type
+
+      def self.process_match_data(md, context)
+        md2 = regexp.match(md[type])
+
+        block = new
+        context.add_value(block)
+
+        process_value_string(context, block, md2[1], :A)
+        block.compare_type = md2[2]
+        process_value_string(context, block, md2[3], :B)
+
+        true
+      end
+
+      def type
+        OPERATOR_TO_TYPE[@compare_type]
+      end
+    end
+  end
+end