bioshogi 0.0.3

data/lib/bioshogi/hand_logs.rb

@@ -0,0 +1,21 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  class HandLogs < SimpleDelegator
+    def to_kif_a(options = {})
+      options = {
+        with_location: false,
+      }.merge(options)
+
+      collect { |e| e.to_kif(options) }
+    end
+
+    def to_ki2_a
+      collect { |e| e.to_ki2(with_location: true) }
+    end
+
+    def to_kif_oneline
+      collect { |e| e.to_kif(with_location: true) }.join(" ")
+    end
+  end
+end

data/lib/bioshogi/hand_logs_mod.rb

@@ -0,0 +1,29 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  concern :HandLogsMod do
+    def turn_ended_process
+      super
+
+      container.hand_logs << hand_log
+    end
+
+    def hand_log
+      @hand_log ||= HandLog.new({
+          :drop_hand          => @drop_hand,
+          :move_hand          => @move_hand,
+          :candidate_soldiers => @candidate_soldiers, # nil の場合もある
+          :place_same         => place_same?,
+          :skill_set          => skill_set,
+          :handicap           => container.turn_info.handicap?,
+          :single_clock       => player.single_clock.clone.freeze, # 時計の状態を保持して手に結びつける
+        }).freeze
+    end
+
+    def place_same?
+      if hand_log = container.hand_logs.last
+        hand_log.soldier.place == soldier.place
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/abstract_adapter.rb

@@ -0,0 +1,126 @@
+# frozen-string-literal: true
+#
+# >> |------------+--------------+-----------+----------+-----------+------------+----------------+-------------+--------------+---------------------+------------------+----------------+----------+----------+--------+-----------+----------------+------------------+--------+----------+---------------------|
+# >> | source     | ki2_location | kif_place | ki2_same | kif_piece | ki2_one_up | ki2_left_right | ki2_up_down | ki2_as_it_is | ki2_promote_trigger | kif_drop_trigger | kif_place_from | csa_sign | csa_from | csa_to | csa_piece | sfen_drop_piece | sfen_drop_trigger | sfen_to | sfen_from | sfen_promote_trigger |
+# >> |------------+--------------+-----------+----------+-----------+------------+----------------+-------------+--------------+---------------------+------------------+----------------+----------+----------+--------+-----------+----------------+------------------+--------+----------+---------------------|
+# >> | ６八銀左上 |              | ６八      |          | 銀        |            | 左             | 上          |              |                     |                  |                |          |          |        |           |                |                  |        |          |                     |
+# >> | △６八全   | △           | ６八      |          | 全        |            |                |             |              |                     |                  |                |          |          |        |           |                |                  |        |          |                     |
+# >> | △６八銀成 | △           | ６八      |          | 銀        |            |                |             |              | 成                  |                  |                |          |          |        |           |                |                  |        |          |                     |
+# >> | △６八銀打 | △           | ６八      |          | 銀        |            |                |             |              |                     | 打               |                |          |          |        |           |                |                  |        |          |                     |
+# >> | △同銀     | △           |           | 同       | 銀        |            |                |             |              |                     |                  |                |          |          |        |           |                |                  |        |          |                     |
+# >> | △同銀成   | △           |           | 同       | 銀        |            |                |             |              | 成                  |                  |                |          |          |        |           |                |                  |        |          |                     |
+# >> | ７六歩(77) |              | ７六      |          | 歩        |            |                |             |              |                     |                  | (77)           |          |          |        |           |                |                  |        |          |                     |
+# >> | 7677FU     |              |           |          |           |            |                |             |              |                     |                  |                |          |       76 |     77 | FU        |                |                  |        |          |                     |
+# >> | -7677FU    |              |           |          |           |            |                |             |              |                     |                  |                | -        |       76 |     77 | FU        |                |                  |        |          |                     |
+# >> | +0077RY    |              |           |          |           |            |                |             |              |                     |                  |                | +        |       00 |     77 | RY        |                |                  |        |          |                     |
+# >> | 8c8d       |              |           |          |           |            |                |             |              |                     |                  |                |          |          |        |           |                |                  | 8d     | 8c       |                     |
+# >> | P*2f       |              |           |          |           |            |                |             |              |                     |                  |                |          |          |        |           | P              | *                | 2f     |          |                     |
+# >> | 4e5c+      |              |           |          |           |            |                |             |              |                     |                  |                |          |          |        |           |                |                  | 5c     | 4e       | +                   |
+# >> |------------+--------------+-----------+----------+-----------+------------+----------------+-------------+--------------+---------------------+------------------+----------------+----------+----------+--------+-----------+----------------+------------------+--------+----------+---------------------|
+
+module Bioshogi
+  module InputAdapter
+    class AbstractAdapter
+      attr_reader :player
+      attr_reader :input
+      attr_reader :source
+
+      delegate :board, to: :player
+
+      def initialize(player, input, source)
+        @player = player
+        @input = input
+        @source = source
+      end
+
+      def perform_validations
+        begin
+          hard_validations
+        rescue BioshogiError => error
+          errors_add(error.class, error.message.lines.first.strip)
+        end
+
+        if errors.empty?
+          soft_validations
+        end
+      end
+
+      def errors
+        @errors ||= []
+      end
+
+      def errors_add(error_class, message)
+        errors << {error_class: error_class, message: message}
+      end
+
+      # 目的地に来れる盤上の駒の配列
+      def candidate_soldiers
+        @candidate_soldiers ||= player.candidate_soldiers(piece: piece, promoted: !promote_trigger && promoted, place: place)
+      end
+
+      def candidate_soldiers_as_string
+        s = []
+        s << "移動元は"
+        s << candidate_soldiers.collect { |e| "「#{e.place.name}の#{e.any_name}」" }.join("か")
+        s << "の"
+        if candidate_soldiers.size >= 3
+          s << "どれ"
+        else
+          s << "どっち"
+        end
+        s << "でしょう？"
+        s.join
+      end
+
+      def soldier
+        @soldier ||= Soldier.create(piece: piece, promoted: promoted, place: place, location: soldier_location)
+      end
+
+      # 移動後の駒の location は移動元の駒の location に合わせる
+      # こうすることで、バリデーションをしない場合、2手目で後手は先手の駒を動かせる
+      def soldier_location
+        if origin_soldier
+          origin_soldier.location
+        else
+          player.location
+        end
+      end
+
+      def move_hand
+        if origin_soldier
+          @move_hand ||= Hand::Move.create(soldier: soldier, origin_soldier: origin_soldier, captured_soldier: board.surface[place])
+        end
+      end
+
+      def drop_hand
+        unless origin_soldier
+          @drop_hand ||= Hand::Drop.create(soldier: soldier)
+        end
+      end
+
+      def hand
+        @hand ||= move_hand || drop_hand
+      end
+
+      def to_h
+        {
+          :place_from      => place_from,
+          :place           => place,
+          :piece           => piece,
+          :promoted        => promoted,
+          :promote_trigger => promote_trigger,
+          :drop_trigger    => drop_trigger,
+          :errors          => errors,
+        }
+      end
+
+      private
+
+      def hard_validations
+      end
+
+      def soft_validations
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/csa_adapter.rb

@@ -0,0 +1,56 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module InputAdapter
+    class CsaAdapter < AbstractAdapter
+      include LocationValidation
+      include OriginSoldierMethods
+      include SharedValidation
+
+      def piece
+        piece_and_promoted[:piece]
+      end
+
+      def promoted
+        piece_and_promoted[:promoted]
+      end
+
+      def place_from
+        unless drop_trigger
+          Place.fetch(input[:csa_from])
+        end
+      end
+
+      def place
+        Place.fetch(input[:csa_to])
+      end
+
+      # 移動元の駒との差分で「成」を判断する
+      def promote_trigger
+        promoted && !board.fetch(place_from).promoted
+      end
+
+      def drop_trigger
+        input[:csa_from] == "00"
+      end
+
+      def hard_validations
+        super
+
+        if drop_trigger && !player.piece_box.exist?(piece)
+          errors_add HoldPieceNotFound, "#{player.call_name}は#{piece}を#{place}に打とうとしましたが#{piece}を持っていません"
+        end
+      end
+
+      private
+
+      def location_key
+        :csa_sign
+      end
+
+      def piece_and_promoted
+        @piece_and_promoted ||= Soldier.piece_and_promoted(input[:csa_piece])
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/ki2_adapter.rb

@@ -0,0 +1,155 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module InputAdapter
+    class Ki2Adapter < KifAdapter
+      def self.flip_table
+        @flip_table ||= yield_self do
+          table = {:first => :last, :> => :<}
+          table.merge(table.invert)
+        end
+      end
+
+      include Ki2MotionWrapper
+
+      # 移動元候補がない場合は打が省略されている
+      def drop_trigger
+        super || drop_abbreviation?
+      end
+
+      def place_from
+        @place_from ||= yield_self do
+          if soldier = origin_soldier
+            soldier.place
+          end
+        end
+      end
+
+      def hard_validations
+        super
+
+        if !drop_trigger && candidate_soldiers.size >= 2 && motion_str.empty?
+          errors_add AmbiguousFormatError, "#{place}に移動できる駒が#{candidate_soldiers.size}つありますが表記が曖昧なため特定できません。#{candidate_soldiers_as_string}"
+        end
+
+        if !drop_trigger && candidate_soldiers.count >= 2 && !place_from
+          errors_add AmbiguousFormatError, "#{place}に移動できる駒が#{candidate_soldiers.size}つありますが「#{motion_str}」からは特定できません。#{candidate_soldiers_as_string}"
+        end
+
+        if force_drop_trigger && !player.piece_box.exist?(piece)
+          errors_add HoldPieceNotFound, "打を明示しましたが#{piece}を持っていません"
+        end
+
+        if drop_abbreviation? && !player.piece_box.exist?(piece)
+          message = []
+          message << "#{place}に移動できる#{piece}がないため打の省略形と考えましたが#{piece}を持っていません"
+          message += turn_error_messages
+          message = message.join("。")
+          errors_add HoldPieceNotFound2, message
+        end
+
+        if !drop_trigger && candidate_soldiers.empty?
+          message = []
+          message << "#{player.call_name}の手番で#{place}に移動できる#{input[:kif_piece]}が見つかりません"
+          if promoted
+            message << "「#{place}#{piece}成」の間違いかもしれません"
+          end
+          message += turn_error_messages
+          message = message.join("。")
+          errors_add MovableBattlerNotFound, message
+        end
+
+        if drop_trigger && promoted
+          errors_add IllegibleFormat, "成・不成と打が干渉しています"
+        end
+      end
+
+      def origin_soldier
+        @origin_soldier ||= yield_self do
+          unless force_drop_trigger
+            v = candidate_soldiers_select
+            if v.size == 1
+              v.first
+            end
+          end
+        end
+      end
+
+      private
+
+      def candidate_soldiers_select
+        @candidate_soldiers_select ||= yield_self do
+          list = candidate_soldiers
+
+          if list.size >= 2
+            if v = left_right
+              if md = v.match(/[左右]/)
+                if piece.brave?
+                  m = {"左" => :first, "右" => :last}.fetch(md.to_s)
+                  m = flip_if_white(m)
+                  list = list.sort_by { |e| e.place.x.value }.send(m, 1)
+                else
+                  m = {"左" => :>, "右" => :<}.fetch(md.to_s)
+                  m = flip_if_white(m)
+                  list = list.find_all do |e|
+                    place.x.value.send(m, e.place.x.value)
+                  end
+                end
+              end
+            end
+          end
+
+          if list.size >= 2
+            if v = up_down
+              if md = v.match(/[上引]/)
+                m = {"上" => :<, "引" => :>}.fetch(md.to_s)
+                m = flip_if_white(m)
+                list = list.find_all do |e|
+                  place.y.value.send(m, e.place.y.value)
+                end
+              end
+            end
+          end
+
+          # 竜が1つだけで１５の竜が５５に来たときも「１五竜寄」なので左右1マスの限定のチェックは入れてはいけない
+          if list.size >= 2
+            if v = up_down
+              if v.include?("寄")
+                list = list.find_all { |e| e.place.y == place.y }
+              end
+            end
+          end
+
+          # 真下にあるもの
+          if list.size >= 2
+            if one_up?
+              y = place.y.value + player.location.which_value(1, -1)
+              list = list.find_all { |e|
+                e.place.x == place.x && e.place.y.value == y
+              }
+            end
+          end
+
+          list
+        end
+      end
+
+      # 「打」の省略形かを推測する
+      #
+      #  1. 駒が成っていないこと
+      #  2. 同・左右・打などのサフィックスがないこと
+      #  3. 指定の位置に来れる駒がないこと
+      #
+      def drop_abbreviation?
+        !promoted && !suffix_exist? && candidate_soldiers.empty?
+      end
+
+      def flip_if_white(key)
+        if player.location.key == :white
+          key = self.class.flip_table[key]
+        end
+        key
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/ki2_motion_wrapper.rb

@@ -0,0 +1,42 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module InputAdapter
+    concern :Ki2MotionWrapper do
+      # 「同」「成・不成」「左右」などの指定があるか？
+      def suffix_exist?
+        same? || !motion_str.empty? || have_promote_or_not_promote_force_instruction?
+      end
+
+      def motion_str
+        @motion_str ||= [input[:ki2_one_up], input[:ki2_left_right], input[:ki2_up_down]].join
+      end
+
+      # 直
+      def one_up?
+        input[:ki2_one_up]
+      end
+
+      # 左右
+      def left_right
+        input[:ki2_left_right]
+      end
+
+      # ▼将棋のルール「棋譜について」｜品川将棋倶楽部
+      # https://ameblo.jp/written-by-m/entry-10365417107.html
+      # > どちらの飛車も１三の地点に移動できます。よって、それぞれの駒が１三の地点に移動する場合は、
+      # > 上の駒は▲１三飛引成（成らない場合は▲１三飛引不成）。下の駒は▲１三飛上成（あがるなり）と表記します。
+      # > 飛車や角に限り「行」を用いて▲１三飛行成（いくなり）と表記することもあります。
+      def up_down
+        @up_down ||= yield_self do
+          if s = input[:ki2_up_down]
+            if piece.brave?
+              s = s.tr("行", "上")
+            end
+            s
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/ki2_place_methods.rb

@@ -0,0 +1,50 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module InputAdapter
+    concern :Ki2PlaceMethods do
+      def place
+        absolute_place || same_place
+      end
+
+      def hard_validations
+        super
+
+        # 初手に同歩の場合
+        if same? && !same_place
+          errors_add BeforePlaceNotFound, "同に対する座標が不明です"
+        end
+
+        # 記事などで改ページしたとき明示的に "同歩" ではなく "同２四歩" と書く場合もあるとのことで同の座標が２四ではない場合
+        if same? && same_place && absolute_place
+          if same_place != absolute_place
+            errors_add SamePlaceDifferent, "同は#{same_place}を意味しますが明示的に指定した移動先は#{absolute_place}です"
+          end
+        end
+
+        # 結局座標がわからない場合
+        unless place
+          errors_add SyntaxDefact, "移動先の座標が不明です"
+        end
+      end
+
+      private
+
+      def absolute_place
+        if v = input[:kif_place]
+          Place.fetch(v)
+        end
+      end
+
+      def same_place
+        if hand_log = player.container.hand_logs.last
+          hand_log.soldier.place
+        end
+      end
+
+      def same?
+        !!input[:ki2_same]
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/kif_adapter.rb

@@ -0,0 +1,64 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module InputAdapter
+    class KifAdapter < AbstractAdapter
+      include Ki2PlaceMethods
+      include LocationValidation
+      include OriginSoldierMethods
+      include SharedValidation
+
+      def piece
+        piece_with_promoted[:piece]
+      end
+
+      def promoted
+        piece_with_promoted[:promoted] || promote_trigger
+      end
+
+      def place_from
+        Place.fetch(input[:kif_place_from].slice(/\d+/))
+      end
+
+      def promote_trigger
+        !!input[:ki2_promote_trigger]
+      end
+
+      def drop_trigger
+        force_drop_trigger
+      end
+
+      def hard_validations
+        super
+
+        if promoted && force_drop_trigger
+          errors_add PromotedPiecePutOnError, "成った状態の駒は打てません"
+        end
+
+        # "１三金不成" と入力した場合。"１三金" の解釈になるのでスルーしてもよいが厳しくチェックする
+        if have_promote_or_not_promote_force_instruction? && !piece.promotable?
+          errors_add NoPromotablePiece, "#{piece}は裏がないので「成・不成・生」は指定できません"
+        end
+      end
+
+      private
+
+      def force_drop_trigger
+        !!input[:kif_drop_trigger]
+      end
+
+      def location_key
+        :ki2_location
+      end
+
+      # 成や不成の指示があるか？
+      def have_promote_or_not_promote_force_instruction?
+        input[:ki2_as_it_is] || input[:ki2_promote_trigger]
+      end
+
+      def piece_with_promoted
+        @piece_with_promoted ||= Soldier.piece_and_promoted(input[:kif_piece])
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/location_validation.rb

@@ -0,0 +1,23 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module InputAdapter
+    concern :LocationValidation do
+      def hard_validations
+        super
+
+        if location
+          if player.location != location
+            errors_add DifferentTurnCommonError, "#{player.call_name}の手番で#{player.opponent_player.call_name}が着手しました"
+          end
+        end
+      end
+
+      private
+
+      def location
+        Location.fetch_if(input[location_key])
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/origin_soldier_methods.rb

@@ -0,0 +1,24 @@
+# frozen-string-literal: true
+
+# 角落ちで "33角(22)" とすると下の player.board.fetch(v) でエラーになる
+# なので move_hand があるときは同時に origin_soldier のチェックも必要になる
+#
+# しかし、このチェックをやりつづけるとバリデーションが爆発する
+# ここだけではく Piece.fetch などでも例外は出るかもしれない
+# 他の部分でひっかかるならそれは普通に例外を出させて
+# abstract_adapter.rb の perform_validations で例外を捕まえる
+# この方がシンプルで良い
+
+module Bioshogi
+  module InputAdapter
+    concern :OriginSoldierMethods do
+      def origin_soldier
+        @origin_soldier ||= yield_self do
+          if v = place_from
+            player.board.fetch(v)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/input_adapter/sfen_adapter.rb

@@ -0,0 +1,60 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module InputAdapter
+    class SfenAdapter < AbstractAdapter
+      include OriginSoldierMethods
+      include SharedValidation
+
+      def piece
+        if drop_trigger
+          Piece.fetch(input[:sfen_drop_piece])
+        else
+          origin_soldier.piece
+        end
+      end
+
+      def promoted
+        if drop_trigger
+          false
+        else
+          origin_soldier.promoted || promote_trigger
+        end
+      end
+
+      def place_from
+        if v = input[:sfen_from]
+          Place.fetch(alpha_to_digit(v))
+        end
+      end
+
+      def place
+        Place.fetch(alpha_to_digit(input[:sfen_to]))
+      end
+
+      def drop_trigger
+        !!input[:sfen_drop_trigger]
+      end
+
+      def promote_trigger
+        !!input[:sfen_promote_trigger]
+      end
+
+      def hard_validations
+        super
+
+        if drop_trigger
+          unless player.piece_box.exist?(piece)
+            errors_add HoldPieceNotFound, "#{piece}を打とうとしましたが#{piece}を持っていません"
+          end
+        end
+      end
+
+      private
+
+      def alpha_to_digit(s)
+        s.gsub(/[[:lower:]]/) { |s| s.ord - 'a'.ord + 1 }
+      end
+    end
+  end
+end