bioshogi 0.0.3

data/lib/bioshogi/formatter/last_action_info.rb

@@ -0,0 +1,77 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Formatter
+    # http://www.computer-shogi.org/protocol/record_v22.html
+    #
+    # (2) 特殊な指し手、終局状況
+    # %で始まる。
+    # %TORYO 投了
+    # %CHUDAN 中断
+    # %SENNICHITE 千日手
+    # %TIME_UP 手番側が時間切れで負け
+    # %ILLEGAL_MOVE 手番側の反則負け、反則の内容はコメントで記録する
+    # %+ILLEGAL_ACTION 先手(下手)の反則行為により、後手(上手)の勝ち
+    # %-ILLEGAL_ACTION 後手(上手)の反則行為により、先手(下手)の勝ち
+    # %JISHOGI 持将棋
+    # %KACHI (入玉で)勝ちの宣言
+    # %HIKIWAKE (入玉で)引き分けの宣言
+    # %MATTA 待った
+    # %TSUMI 詰み
+    # %FUZUMI 不詰
+    # %ERROR エラー
+    # ※文字列は、空白を含まない。
+    # ※%KACHI,%HIKIWAKE は、コンピュータ将棋選手権のルールに対応し、
+    # 第3版で追加。
+    # ※%+ILLEGAL_ACTION,%-ILLEGAL_ACTIONは、手番側の勝ちを表現できる。
+
+    # 激指は次のどれか以外にすると読み込めなくなるので注意
+    # 中断, 投了, 持将棋, 千日手, 詰み, 切れ負け
+
+    class LastActionInfo
+      include ApplicationMemoryRecord
+      memory_record [
+        { key: "TORYO",           kakinoki_word: "投了",       reason: nil,              draw: nil,  },
+        { key: "CHUDAN",          kakinoki_word: "中断",       reason: "切断により",     draw: nil,  },
+        { key: "SENNICHITE",      kakinoki_word: "千日手",     reason: "千日手",         draw: true, },
+        { key: "TIME_UP",         kakinoki_word: "切れ負け",   reason: "時間切れにより", draw: nil,  },
+        { key: "ILLEGAL_MOVE",    kakinoki_word: nil,          reason: "反則により",     draw: nil,  },
+        { key: "+ILLEGAL_ACTION", kakinoki_word: nil,          reason: "反則により",     draw: nil,  },
+        { key: "-ILLEGAL_ACTION", kakinoki_word: nil,          reason: "反則により",     draw: nil,  },
+        { key: "JISHOGI",         kakinoki_word: "持将棋",     reason: nil,              draw: nil,  },
+        { key: "KACHI",           kakinoki_word: nil,          reason: nil,              draw: nil,  },
+        { key: "HIKIWAKE",        kakinoki_word: nil,          reason: nil,              draw: nil,  },
+        { key: "MATTA",           kakinoki_word: "中断",       reason: nil,              draw: nil,  },
+        { key: "TSUMI",           kakinoki_word: "詰み",       reason: nil,              draw: nil,  },
+        { key: "FUZUMI",          kakinoki_word: nil,          reason: nil,              draw: nil,  },
+        { key: "ERROR",           kakinoki_word: nil,          reason: "エラーにより",   draw: nil,  },
+      ]
+
+      alias csa_key key
+
+      class << self
+        def lookup(v)
+          super || invert_table[v]
+        end
+
+        private
+
+        def invert_table
+          @invert_table ||= find_all(&:kakinoki_word).inject({}) {|a, e| a.merge(e.kakinoki_word => e) }
+        end
+      end
+
+      def judgment_message(container)
+        s = []
+        s << "まで#{container.turn_info.turn_offset}手で"
+        s << reason
+        unless draw
+          s << container.opponent_player.call_name
+          s << "の"
+          s << "勝ち"
+        end
+        s.join
+      end
+    end
+  end
+end

data/lib/bioshogi/formatter/parser_methods.rb

@@ -0,0 +1,37 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Formatter
+    concern :ParserMethods do
+      included do
+        FORMATTER_METHODS = [
+          :container,
+          :to_kif,
+          :to_ki2,
+          :to_csa,
+          :to_sfen,
+          :to_bod,
+          :to_yomiage,
+          :to_yomiage_list,
+          :to_akf,
+          :screen_image_renderer,
+          :to_image,
+          :to_png,
+          :to_jpg,
+          :to_gif,
+          :to_webp,
+          :to_animation_mp4,
+          :to_animation_gif,
+          :to_animation_apng,
+          :to_animation_webp,
+          :to_animation_zip,
+        ].freeze
+        delegate(*FORMATTER_METHODS, to: :formatter)
+      end
+
+      def formatter
+        @formatter ||= Core.new(pi, parser_options)
+      end
+    end
+  end
+end

data/lib/bioshogi/formatter/runner.rb

@@ -0,0 +1,44 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Formatter
+    class Runner
+      attr_accessor :formatter
+      attr_accessor :container
+
+      def initialize(formatter, container)
+        @formatter = formatter
+        @container = container
+      end
+
+      def call
+        begin
+          @formatter.pi.move_infos.each.with_index do |info, i|
+            if @formatter.parser_options[:debug]
+              p container
+            end
+            if @formatter.parser_options[:callback]
+              @formatter.parser_options[:callback].call(container)
+            end
+            if @formatter.parser_options[:turn_limit] && container.turn_info.display_turn >= @formatter.parser_options[:turn_limit]
+              break
+            end
+            container.execute(info[:input], used_seconds: formatter.used_seconds_at(i))
+          end
+        rescue CommonError => error
+          if v = @formatter.parser_options[:typical_error_case]
+            case v
+            when :embed
+              @formatter.pi.error_message = error.message
+            when :skip
+            else
+              raise MustNotHappen
+            end
+          else
+            raise error
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/formatter/skill_embed.rb

@@ -0,0 +1,174 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Formatter
+    class SkillEmbed
+      MIN_TURN = 14
+
+      attr_accessor :xparser
+      attr_accessor :container
+
+      def initialize(xparser, container)
+        @xparser = xparser
+        @container = container
+      end
+
+      def call
+        rikisen_judgement
+
+        # 両方が入玉していれば「相入玉」タグを追加する
+        # この場合、両方同時に入玉しているかどうかは判定できない
+        ainyugyoku_judgement
+
+        if @xparser.preset_info
+          if @xparser.preset_info.special_piece
+            ibisha_judgement # 振り飛車でなければ居飛車
+            aiibisha_judgement              # 両方居飛車なら相居飛車
+            aihuri_judgement                # 両方振り飛車なら相振り
+            taihuri_judgement               # 片方だけが「振り飛車」なら、振り飛車ではない方に「対振り」。両方に「対抗型」
+            haisui_judgement                # 大駒がない状態で勝ったら「背水の陣」
+          end
+          igyoku_judgement                  # 居玉判定
+          aiigyoku_judgement                # 相居玉判定
+        end
+
+        header_write # ヘッダーに埋める
+      end
+
+      private
+
+      def rikisen_judgement
+        # return if ENV["BIOSHOGI_ENV"] == "test"
+        if @container.turn_info.display_turn >= MIN_TURN
+          # @container.players.each do |player|
+          #   if player.skill_set.power_battle?
+          #     ChaosInfo.each do |chaos_info|
+          #       if chaos_info.if_cond[@container]
+          #         player.skill_set.list_push(AttackInfo[chaos_info.key])
+          #         break
+          #       end
+          #     end
+          #   end
+          # end
+          # if @container.players.all? { |e| e.skill_set.power_battle? }
+          #   @container.players.each do |e|
+          #     e.skill_set.list_push(AttackInfo["乱戦"])
+          #   end
+          # else
+          @container.players.each do |e|
+            e.skill_set.rikisen_check_process
+          end
+          # end
+        end
+      end
+
+      def ainyugyoku_judgement
+        if @container.players.all? { |e| e.skill_set.has_skill?(Explain::NoteInfo["入玉"]) }
+          @container.players.each do |player|
+            player.skill_set.list_push(Explain::NoteInfo["相入玉"])
+          end
+        end
+      end
+
+      # 振り飛車でなければ居飛車
+      def ibisha_judgement
+        @container.players.each do |e|
+          skill_set = e.skill_set
+          if !skill_set.has_skill?(Explain::NoteInfo["振り飛車"]) && !skill_set.has_skill?(Explain::NoteInfo["居飛車"])
+            e.skill_set.list_push(Explain::NoteInfo["居飛車"])
+          end
+        end
+      end
+
+      def aiibisha_judgement
+        # 両方居飛車なら相居飛車
+        if @container.players.all? { |e| e.skill_set.has_skill?(Explain::NoteInfo["居飛車"]) }
+          @container.players.each do |player|
+            player.skill_set.list_push(Explain::NoteInfo["相居飛車"])
+          end
+        end
+      end
+
+      def aihuri_judgement
+        # 両方振り飛車なら相振り
+        if @container.players.all? { |e| e.skill_set.has_skill?(Explain::NoteInfo["振り飛車"]) }
+          @container.players.each do |player|
+            player.skill_set.list_push(Explain::NoteInfo["相振り"])
+          end
+        end
+      end
+
+      def taihuri_judgement
+        # 片方だけが「振り飛車」なら、振り飛車ではない方に「対振り」。両方に「対抗型」
+        if player = @container.players.find { |e| e.skill_set.has_skill?(Explain::NoteInfo["振り飛車"]) }
+          others = @container.players - [player]
+          if others.none? { |e| e.skill_set.has_skill?(Explain::NoteInfo["振り飛車"]) }
+            others.each { |e| e.skill_set.list_push(Explain::NoteInfo["対振り"]) }
+            @container.players.each { |e| e.skill_set.list_push(Explain::NoteInfo["対抗型"]) }
+          end
+        end
+      end
+
+      # 大駒がない状態で勝ったら「背水の陣」
+      def haisui_judgement
+        @container.players.each do |player|
+          if player == @container.win_player
+            if player.stronger_piece_have_count.zero?
+              player.skill_set.list_push(Explain::NoteInfo["背水の陣"])
+            end
+          end
+        end
+      end
+
+      def igyoku_judgement
+        @container.players.each do |e|
+          enabled = false
+          # 14手以上の対局で一度も動かずに終了した
+          unless enabled
+            if @container.turn_info.display_turn >= MIN_TURN && e.king_moved_counter.zero?
+              enabled = true
+            end
+          end
+          # 歩と角以外の交換があったか？
+          unless enabled
+            if @container.outbreak_turn
+              v = e.king_first_moved_turn
+              if v.nil? || v >= @container.outbreak_turn  # 玉は動いていない、または戦いが激しくなってから動いた
+                enabled = true
+              end
+            end
+          end
+          if enabled
+            e.skill_set.list_push(Explain::DefenseInfo["居玉"])
+          end
+        end
+      end
+
+      def aiigyoku_judgement
+        # 両方居玉だったら備考に相居玉
+        if @container.players.all? { |e| e.skill_set.has_skill?(Explain::DefenseInfo["居玉"]) }
+          @container.players.each do |e|
+            e.skill_set.list_push(Explain::NoteInfo["相居玉"])
+          end
+        end
+        # end
+      end
+
+      def header_write
+        # ヘッダーに埋める
+        Explain::TacticInfo.each do |e|
+          @container.players.each do |player|
+            list = player.skill_set.public_send(e.list_key).normalize
+            if v = list.presence
+              v = v.uniq # 手筋の場合、複数になる場合があるので uniq する
+              key = "#{player.call_name}の#{e.name}"
+              @xparser.skill_set_hash[key] = v.collect(&:name)
+            end
+          end
+        end
+        hv = @xparser.skill_set_hash.transform_values { |e| e.join(", ") }
+        @xparser.pi.header.object.update(hv)
+      end
+    end
+  end
+end

data/lib/bioshogi/hand/drop.rb

@@ -0,0 +1,78 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Hand
+    class Drop
+      include Shared
+
+      def initialize(*)
+        super
+        if soldier.promoted
+          raise MustNotHappen, "成駒を打った"
+        end
+      end
+
+      def execute(container)
+        player = container.player_at(soldier.location)
+        player.piece_box.pick_out(soldier.piece)
+        container.board.place_on(soldier)
+      end
+
+      def revert(container)
+        container.board.safe_delete_on(soldier.place)
+        player = container.player_at(soldier.location)
+        player.piece_box.add(soldier.piece.key => 1)
+      end
+
+      def soldier_for_counts
+        soldier
+      end
+
+      def to_kif(options = {})
+        options = {
+          with_location: true,
+        }.merge(options)
+
+        if options[:with_location]
+          s = soldier.name(options)
+        else
+          s = soldier.name_without_location(options)
+        end
+        s + "打"
+      end
+
+      def to_csa(options = {})
+        [
+          soldier.location.csa_sign,
+          "00",
+          soldier.place.hankaku_number,
+          soldier.to_csa,
+        ].join
+      end
+
+      def to_sfen(options = {})
+        [
+          soldier.piece.to_sfen,
+          "*",
+          soldier.place.to_sfen,
+        ].join
+      end
+
+      def type
+        "t_drop"
+      end
+
+      def to_akf(options = {})
+        {
+          :_location => soldier.location.key,
+          :type      => type,
+          :to        => soldier.place.to_human_h,
+          :piece     => soldier.piece.key,
+          :_sfen     => to_sfen,
+          :_kif      => to_kif,
+          :_csa      => to_csa,
+        }
+      end
+    end
+  end
+end

data/lib/bioshogi/hand/move.rb

@@ -0,0 +1,114 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Hand
+    class Move
+      include Shared
+
+      attr_accessor :origin_soldier
+      attr_accessor :captured_soldier
+
+      def execute(container)
+        if captured_soldier
+          container.board.safe_delete_on(soldier.place)
+          player = container.player_at(soldier.location)
+          player.piece_box.add(captured_soldier.piece.key => 1)
+        end
+        container.board.pick_up(origin_soldier.place)
+        container.board.place_on(soldier)
+      end
+
+      def revert(container)
+        container.board.pick_up(soldier.place)
+        container.board.place_on(origin_soldier)
+
+        if captured_soldier
+          player = container.player_at(soldier.location)
+          player.piece_box.pick_out(captured_soldier.piece)
+          container.board.place_on(captured_soldier)
+        end
+      end
+
+      # 成ったか？
+      def promote_trigger?
+        !origin_soldier.promoted && soldier.promoted
+      end
+
+      # 成れる状態だった？
+      def promotable?
+        origin_soldier.next_promotable?(soldier.place)
+      end
+
+      # 人間には読みやすいがパースは大変
+      # ・不成がわからない
+      def to_kif(options = {})
+        options = {
+          with_location: true,
+        }.merge(options)
+
+        [
+          options[:with_location] ? soldier.location.name : nil, # "▲"
+          soldier.place.name,                                    # "29"
+          origin_soldier.any_name(options),                      # "飛"
+          promote_trigger? ? "成" : "",                          # "成"
+          "(", origin_soldier.place.hankaku_number, ")",         # "(28)"
+        ].join
+      end
+
+      # CSAは成ったあとの状態を書くだけ
+      # ・元々龍だったかわからない
+      # ・いま龍になったかわからない
+      # ・不成がわからない
+      def to_csa(options = {})
+        [
+          soldier.location.csa_sign,           # "+"
+          origin_soldier.place.hankaku_number, # "28"
+          soldier.place.hankaku_number,        # "29"
+          soldier.to_csa,                      # "RY"
+        ].join
+      end
+
+      # SFENは移動元と先と今成ったかだけ
+      # ・何の駒を動かしたかわからない
+      # ・不成がわからない
+      def to_sfen(options = {})
+        [
+          origin_soldier.place.to_sfen, # 2h
+          soldier.place.to_sfen,        # 2a
+          promote_trigger? ? "+" : nil, # +
+        ].join
+      end
+
+      def soldier_for_counts
+        origin_soldier
+      end
+
+      def type
+        if promotable?
+          if promote_trigger?
+            "t_promote_on"
+          else
+            "t_promote_throw"
+          end
+        else
+          "t_move"
+        end
+      end
+
+      def to_akf(options = {})
+        {
+          :_location => origin_soldier.location.key,
+          :type      => type,
+          :piece     => origin_soldier.piece.key,
+          :promoted  => origin_soldier.promoted,
+          :from      => origin_soldier.place.to_human_h,
+          :to        => soldier.place.to_human_h,
+          :captured  => captured_soldier ? captured_soldier.to_akf : nil,
+          :_sfen     => to_sfen,
+          :_kif      => to_kif,
+          :_csa      => to_csa,
+        }
+      end
+    end
+  end
+end

data/lib/bioshogi/hand/shared.rb

@@ -0,0 +1,102 @@
+module Bioshogi
+  module Hand
+    concern :Shared do
+      included do
+        include SimpleModel
+        attr_accessor :soldier
+
+        private_class_method :new
+      end
+
+      class_methods do
+        def create(...)
+          Bioshogi.run_counts["#{name}.#{__method__}"] += 1
+          new(...).freeze
+        end
+      end
+
+      def sandbox_execute(container, &block)
+        begin
+          execute(container)
+          Bioshogi.run_counts["sandbox_execute.execute"] += 1
+          yield
+        ensure
+          revert(container)
+          Bioshogi.run_counts["sandbox_execute.revert"] += 1
+        end
+      end
+
+      def type
+        raise NotImplementedError, "#{__method__} is not implemented"
+      end
+
+      def to_kif(*)
+        raise NotImplementedError, "#{__method__} is not implemented"
+      end
+
+      def to_csa(*)
+        raise NotImplementedError, "#{__method__} is not implemented"
+      end
+
+      def to_sfen(*)
+        raise NotImplementedError, "#{__method__} is not implemented"
+      end
+
+      def to_akf(*)
+        raise NotImplementedError, "#{__method__} is not implemented"
+      end
+
+      def inspect
+        "<#{self}>"
+      end
+
+      def to_s(options = {})
+        to_kif(options)
+      end
+
+      def king_captured?
+        respond_to?(:captured_soldier) && captured_soldier && captured_soldier.piece.key == :king
+      end
+
+      # 合法手か？
+      # 指してみて自分に王手がかかってない状態なら合法手
+      # 自分が何か指してみて→相手の駒を動かして自分の玉が取られる→非合法手
+      #
+      # Drop, Move 両方に必要
+      # 王手をかけらている状態なら、打ってさえぎらないといけない
+      # 王手をかけらている状態なら、動いてかわさないといけない
+      # つまり両方チェックが必要
+      # Move だけにしてしまうと王手をかけられた状態で無駄な打をしてしまう(王手放置)
+      # このとき相手の玉に対して王手していると局面が不正ということになる。激指でも同様のエラーになった。
+      #
+      # 1. 駒を動かしたことで王手になっていないこと
+      # 2. 王手の状態を回避したこと
+      # の両方チェックするので↓この一つでよい。
+      #
+      def legal_hand?(container)
+        sandbox_execute(container) do
+          !container.player_at(soldier.location).mate_danger? # 「自玉に詰みがある」の反対
+        end
+      end
+
+      # 王手か？
+      def mate_hand?(container)
+        sandbox_execute(container) do
+          container.player_at(soldier.location.flip).mate_danger?
+        end
+      end
+
+      # 使った駒とする soldier
+      def soldier_for_counts
+        raise NotImplementedError, "#{__method__} is not implemented"
+      end
+
+      # 使った駒とする soldier を元にしたキー
+      # もし「打ったかどうか」も調べるならここではなく個別のクラスで定義する
+      def to_counts_key
+        s = soldier_for_counts
+        "#{s.piece.sfen_char}#{s.promoted ? 1 : 0}"
+      end
+    end
+  end
+end

data/lib/bioshogi/hand_log.rb

@@ -0,0 +1,72 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  class HandLog
+    include SimpleModel
+
+    attr_accessor :drop_hand
+    attr_accessor :move_hand
+
+    attr_accessor :candidate_soldiers
+    attr_accessor :place_same
+    attr_accessor :skill_set
+    attr_accessor :handicap
+
+    attr_accessor :single_clock
+
+    delegate :soldier, to: :hand
+
+    def to_kif(options = {})
+      options = {
+        :with_location => false,
+        :char_type     => :formal_sheet,
+      }.merge(options)
+
+      hand.to_kif(options)
+    end
+
+    def to_ki2(...)
+      official_formatter(...).to_s
+    end
+
+    def yomiage(...)
+      yomiage_formatter(...).to_s
+    end
+
+    def to_csa(...)
+      hand.to_csa(...)
+    end
+
+    def to_sfen(...)
+      hand.to_sfen(...)
+    end
+
+    def to_akf(...)
+      hand.to_akf(...)
+    end
+
+    def to_kif_ki2
+      [to_kif, to_ki2]
+    end
+
+    def to_kif_ki2_csa
+      [to_kif, to_ki2, to_csa]
+    end
+
+    def to_skill_set_kif_comment(options = {})
+      skill_set.kif_comment(soldier.location)
+    end
+
+    def hand
+      move_hand || drop_hand
+    end
+
+    def official_formatter(...)
+      OfficialFormatter.new(self, ...)
+    end
+
+    def yomiage_formatter(...)
+      Yomiage::Formatter.new(self, ...)
+    end
+  end
+end