bioshogi 0.0.3

data/lib/bioshogi/board/technique_matcher_methods.rb

@@ -0,0 +1,23 @@
+module Bioshogi
+  module Board
+    module TechniqueMatcherMethods
+      # 180度回転した盤面を返す
+      def flip
+        self.class.new.tap do |board|
+          surface.values.each do |e|
+            board.place_on(e.flip)
+          end
+        end
+      end
+
+      # X軸のみを反転した盤面を返す
+      def flop
+        self.class.new.tap do |board|
+          surface.values.each do |e|
+            board.place_on(e.flop)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/board/update_methods.rb

@@ -0,0 +1,79 @@
+module Bioshogi
+  module Board
+    module UpdateMethods
+      def place_on(soldier, options = {})
+        options = {
+          validate: false,
+        }.merge(options)
+
+        if options[:validate]
+          assert_cell_blank(soldier.place)
+        end
+
+        surface[soldier.place] = soldier
+      end
+
+      def pick_up(place)
+        soldier = safe_delete_on(place)
+        unless soldier
+          raise NotFoundOnBoard, "#{place}の位置には何もありません"
+        end
+        soldier
+      end
+
+      def safe_delete_on(place)
+        surface.delete(place)
+      end
+
+      def all_clear
+        surface.clear
+      end
+
+      # for DSL
+      # 引数の種類がわかっているなら専用メソッドを使うべき
+      def placement_from_any(v)
+        case
+        when PresetInfo.lookup(v)
+          placement_from_preset(v)
+        when BoardParser.accept?(v)
+          placement_from_shape(v)
+        when v.kind_of?(String) && !InputParser.scan(v).empty?
+          placement_from_human(v)
+        else
+          raise ArgumentError, v.inspect
+        end
+      end
+
+      # 手合割で設定
+      def placement_from_preset(preset_key)
+        placement_from_soldiers(Soldier.preset_soldiers(preset_key))
+      end
+
+      # 柿木盤を読み取って反映する
+      # 毎回読み取るため遅い
+      def placement_from_shape(str)
+        placement_from_soldiers(BoardParser.parse(str).soldier_box)
+      end
+
+      # 詰将棋の配置の読み上げのような表記で盤に反映する
+      # placement_from_human("△51玉 ▲59玉")
+      def placement_from_human(str)
+        soldiers = InputParser.scan(str).collect { |s| Soldier.from_str(s) }
+        placement_from_soldiers(soldiers)
+      end
+
+      # まとめて追加で置く
+      def placement_from_soldiers(soldiers)
+        soldiers.each { |e| place_on(e) }
+      end
+
+      private
+
+      def assert_cell_blank(place)
+        if surface.has_key?(place)
+          raise PieceAlredyExist, "空のはずの#{place}に駒があります\n#{self}"
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/board.rb

@@ -0,0 +1,28 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Board
+    class << self
+      def new(...)
+        Basic.new(...)
+      end
+
+      # 指定の柿木図面から手合割を逆算する
+      def guess_preset_info(str, options = {})
+        create_by_shape(str).preset_info(options)
+      end
+
+      def create_by_shape(str)
+        new.tap { |e| e.placement_from_shape(str) }
+      end
+
+      def create_by_human(str)
+        new.tap { |e| e.placement_from_human(str) }
+      end
+
+      def create_by_preset(key)
+        new.tap { |e| e.placement_from_preset(key) }
+      end
+    end
+  end
+end

data/lib/bioshogi/board_parser/base.rb

@@ -0,0 +1,43 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module BoardParser
+    class Base
+      class << self
+        def accept?
+          raise NotImplementedError, "#{__method__} is not implemented"
+        end
+
+        def parse(source, options = {})
+          new(source, options).tap(&:parse)
+        end
+      end
+
+      def initialize(source, options = {})
+        @source = source
+        @options = options
+      end
+
+      delegate *[
+        :sorted_soldiers,
+        :location_split,
+        :place_as_key_table,
+        :location_adjust,
+      ], to: :soldiers
+
+      def soldiers
+        soldier_box
+      end
+
+      def soldier_box
+        @soldier_box ||= SoldierBox.new
+      end
+
+      private
+
+      def shape_lines
+        @shape_lines ||= Source.wrap(@source).to_s.remove(/\s*#.*/).strip.lines.to_a
+      end
+    end
+  end
+end

data/lib/bioshogi/board_parser/compare_board_parser.rb

@@ -0,0 +1,95 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module BoardParser
+    class CompareBoardParser < KakinokiBoardParser
+      def parse
+        cell_walker do |place, prefix_char, something|
+          case
+          when Piece.all_names_set.include?(something)
+            case prefix_char
+            when "!"
+              # トリガーとする。盤面には含めない(含める必要がないため)
+              soldier = build(place, something, :black)
+              trigger_soldiers << soldier
+            when "@"
+              # ! と同じだけど、盤面情報に含める(複数トリガーを書くとき用)
+              soldier = build(place, something, :black)
+              trigger_soldiers << soldier
+              soldiers << soldier # 盤面の駒とする
+            when "*"
+              # ▲でどれかがここに含まれる
+              soldier = build(place, something, :black)
+              any_exist_soldiers << soldier
+            when "?"
+              # △側でどれかがここに含まれる
+              soldier = build(place, something, :white)
+              any_exist_soldiers << soldier
+            else
+              soldier = build(place, something, prefix_char)
+              soldiers << soldier
+            end
+          when something != "・"
+            other_objects << {place: place, prefix_char: prefix_char, something: something}
+          end
+        end
+      end
+
+      def other_objects
+        @other_objects ||= []
+      end
+
+      # この手を指したときに発動する盤上の駒リスト
+      def trigger_soldiers
+        @trigger_soldiers ||= SoldierBox.new
+      end
+
+      # どれかが含まれる用
+      def any_exist_soldiers
+        @any_exist_soldiers ||= SoldierBox.new
+      end
+
+      # 高速に比較するためにメモ化したアクセサシリーズ
+
+      # something のグループ化
+      def other_objects_hash_ary
+        @other_objects_hash_ary ||= other_objects.group_by { |e| e[:something] }
+      end
+
+      # something のグループ化 + place 毎のハッシュ
+      def other_objects_hash
+        @other_objects_hash ||= other_objects_hash_ary.transform_values { |v| v.inject({}) { |a, e| a.merge(e[:place] => e) } }
+      end
+
+      # other_objects_hash_ary + 末尾配列
+      def other_objects_loc_ary
+        @other_objects_loc_ary ||= Location.inject({}) do |a, l|
+          hash = other_objects_hash_ary.transform_values { |v|
+            v.collect { |e| e.merge(place: e[:place].public_send(l.normalize_key)) }
+          }
+          a.merge(l.key => hash)
+        end
+      end
+
+      # other_objects_hash_ary + 末尾 place のハッシュ
+      def other_objects_loc_places_hash
+        @other_objects_loc_places_hash ||= Location.inject({}) do |a, l|
+          places_hash = other_objects_hash_ary.transform_values do |v|
+            v.inject({}) { |a, e|
+              e = e.merge(:place => e[:place].public_send(l.normalize_key))
+              a.merge(e[:place] => e)
+            }
+          end
+          a.merge(l.key => places_hash)
+        end
+      end
+
+      # テーブルのキーとする駒すべて
+      # プライマリー駒があると絞れるのでなるべく付けたい
+      # プライマリー駒がないと、他すべてをプライマリー駒と見なす
+      def primary_soldiers
+        @primary_soldiers ||= Array(trigger_soldiers.presence || soldiers.presence)
+      end
+    end
+  end
+end

data/lib/bioshogi/board_parser/csa_board_parser.rb

@@ -0,0 +1,45 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module BoardParser
+    # P1-KY-KE-GI-KI-OU-KI-GI-KE-KY
+    # P2 * -HI *  *  *  *  * -KA *
+    # P3-FU-FU-FU-FU-FU-FU-FU-FU-FU
+    # P4 *  *  *  *  *  *  *  *  *
+    # P5 *  *  *  *  *  *  *  *  *
+    # P6 *  *  *  *  *  *  *  *  *
+    # P7+FU+FU+FU+FU+FU+FU+FU+FU+FU
+    # P8 * +KA *  *  *  *  * +HI *
+    # P9+KY+KE+GI+KI+OU+KI+GI+KE+KY
+    class CsaBoardParser < Base
+      def self.accept?(source)
+        source && source.match?(/\b(P\d+)\b/)
+      end
+
+      def parse
+        shape_lines.each do |line|
+          if md = line.match(/P(?<y>\d+)\s*(?<cells>.*)\s*/) # strip 代わりに cells の両方を \s* している
+            y = md[:y]
+
+            # 空白または * の文字を 1..3 とすることで行末スペースの有無に依存しなくなる
+            # この方法では次のようにスペースが潰れている場合に失敗する
+            # P1 * -HI * * * * * -KA *
+            # cells = md[:cells].scan(/\S{3}|[\s\*]{1,3}/)
+
+            # 改良した方法
+            # " " または +- の直前で分離する
+            cells = md[:cells].split(/\s+|(?=[+-])/)
+
+            cells.reverse_each.with_index(1) do |e, x|
+              if md = e.match(/(?<csa_sign>\S)(?<piece>\S{2})/)
+                location = Location[md[:csa_sign]]
+                place = Place["#{x}#{y}"]
+                soldiers << Soldier.new_with_promoted(md[:piece], place: place, location: location)
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/board_parser/kakinoki_board_parser.rb

@@ -0,0 +1,95 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module BoardParser
+    # ほぼ標準の柿木フォーマットのテーブルの読み取り
+    #
+    # @example
+    #   str = "
+    #     ９ ８ ７ ６ ５ ４ ３ ２ １
+    #   +---------------------------+
+    #   | ・ ・ ・ ・ ・ ・ ・ ・ ・|一
+    #   | ・ ・ ・ ・ ・v玉 ・ ・ ・|二
+    #   | ・ ・ ・ ・ ・ ・ ・ ・ ・|三
+    #   | ・ ・ ・ ・ ・ ・ ・ ・ ・|四
+    #   | ・ ・ ・ ・ ・ ・ ・ ・ ・|五
+    #   | ・ ・ ・ ・ ・ ・ ・ ・ ・|六
+    #   | ・ ・ ・ ・ ・ ・ ・ ・ ・|七
+    #   | ・ ・ ・ ・ ・ ・ ・ ・ ・|八
+    #   | ・ ・ ・ ・ ・ ・ ・ ・ ・|九
+    #   +---------------------------+
+    #   "
+    #
+    #   Bioshogi::BoardParser.parse(str) # => {white: ["４二玉"], black: []}
+    #   Bioshogi::BoardParser.parse(str) # => {white: [<Soldier ...>], black: []}
+    #
+    class KakinokiBoardParser < Base
+      class << self
+        def accept?(source)
+          source && source.match?(/^\p{blank}*(\+\-*\+|\|.*\|)/)
+        end
+      end
+
+      def parse
+        cell_walker do |place, prefix_char, something|
+          if Piece.all_names_set.include?(something)
+            soldiers << build(place, something, prefix_char)
+          end
+        end
+      end
+
+      private
+
+      def cell_width
+        3
+      end
+
+      def h_units_read
+        s = shape_lines.first
+        if s.include?("-")
+          if s.count("-").modulo(cell_width).nonzero?
+            raise SyntaxDefact, "最初の行の横幅が#{cell_width}桁毎になっていません\n#{@source}"
+          end
+          count = s.gsub("---", "-").count("-")
+          @h_units = Dimension::PlaceX.char_infos.last(count)
+        else
+          @h_units = s.strip.split # 一行目のX座標の単位取得。全角数字の羅列から推測する。「一 二」なら横幅2と判定できる
+        end
+      end
+
+      def place_validate(x, y, something)
+        unless @h_units[x] && @v_units[y]
+          raise SyntaxDefact, "盤面の情報が読み取れません。#{something.inspect} が盤面からはみ出ているかもしれません。左上の升目を (0, 0) としたときの (#{x}, #{y}) の地点です\n#{@source}"
+        end
+      end
+
+      def prefix_char_validate(x, y, prefix_char)
+        unless prefix_char.match?(/[[:ascii:]]/)
+          raise SyntaxDefact, "盤面がずれているかもしれません。prefix_char=#{prefix_char.inspect}。左上の升目を (0, 0) としたときの (#{x}, #{y}) の地点です\n#{@source}"
+        end
+      end
+
+      def cell_walker
+        h_units_read
+
+        mds = shape_lines.collect { |v| v.match(/\|(?<inline>.*)\|(?<y>.)?/) }.compact
+        @v_units = mds.collect.with_index { |v, i| v[:y] || Dimension::PlaceY.char_infos[i] }
+        inlines = mds.collect { |v| v[:inline] }
+
+        inlines.each.with_index do |s, y|
+          # 1文字 + (全角1文字 or 半角2文字)
+          s.scan(/(.)([[:^ascii:]]|[[:ascii:]]{2})/).each.with_index do |(prefix_char, something), x|
+            prefix_char_validate(x, y, prefix_char)
+            place_validate(x, y, something)
+            place = Place[[@h_units[x], @v_units[y]].join]
+            yield place, prefix_char, something
+          end
+        end
+      end
+
+      def build(place, piece, location_key)
+        Soldier.new_with_promoted(piece, place: place, location: Location.fetch(location_key))
+      end
+    end
+  end
+end

data/lib/bioshogi/board_parser/sfen_board_parser.rb

@@ -0,0 +1,29 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module BoardParser
+    class SfenBoardParser < Base
+      def self.accept?(source)
+        source && source.include?("/")
+      end
+
+      def parse
+        @source.split("/").each.with_index do |row, y|
+          x = 0
+          row.scan(/(\+?)(.)/) do |promoted, ch|
+            place = Place.fetch([x, y])
+            if ch.match?(/\d+/)
+              x += ch.to_i
+            else
+              location = Location.fetch_by_sfen_char(ch)
+              promoted = (promoted == "+")
+              piece = Piece.fetch_by_sfen_char(ch)
+              soldiers << Soldier.create(piece: piece, place: place, location: location, promoted: promoted)
+              x += 1
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/board_parser.rb

@@ -0,0 +1,33 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module BoardParser
+    class << self
+      def accept?(source)
+        !!parser_class_find(source)
+      end
+
+      def parse(source, options = {})
+        parser = parser_class_find(source)
+        unless parser
+          raise FileFormatError, "盤面のフォーマットが不明です : #{source}"
+        end
+        parser.parse(source, options)
+      end
+
+      private
+
+      def parser_class_find(source)
+        support_parsers.find {|e| e.accept?(source) }
+      end
+
+      def support_parsers
+        [
+          KakinokiBoardParser,
+          CsaBoardParser,
+          SfenBoardParser,
+        ]
+      end
+    end
+  end
+end

data/lib/bioshogi/builder.rb

@@ -0,0 +1,9 @@
+module Bioshogi
+  concern :Builder do
+    class_methods do
+      def default_params
+        {}
+      end
+    end
+  end
+end

data/lib/bioshogi/cli/.gitignore

@@ -0,0 +1 @@
+output

data/lib/bioshogi/cli/convert.rb

@@ -0,0 +1,34 @@
+# frozen-string-literal: true
+# bioshogi convert -f ki2 ../../../experiment/katomomo.kif
+
+if $0 == __FILE__
+  require "../cli"
+end
+
+module Bioshogi
+  class Cli
+    desc "convert", "一括棋譜フォーマット変換"
+    option :format,     type: :string, aliases: "-f", default: "kif"
+    option :output_dir, type: :string, aliases: "-o", default: "output"
+    def convert(*files)
+      files.each do |in_file|
+        in_file = Pathname(in_file).expand_path
+        info = Parser.file_parse(in_file)
+        str = info.public_send("to_#{options[:format]}")
+        if options[:output_dir].blank?
+          puts str
+        else
+          dir = Pathname(options[:output_dir]).expand_path
+          out_file = dir.join(in_file.basename.sub_ext([".", options[:format]].join))
+          FileUtils.mkdir_p(dir)
+          out_file.write(str)
+          puts "#{in_file} => #{out_file}"
+        end
+      end
+    end
+  end
+end
+
+if $0 == __FILE__
+  Bioshogi::Cli.start(["convert", "-f", "ki2", "../../../experiment/katomomo.kif"])
+end

data/lib/bioshogi/cli/input_parser.rb

@@ -0,0 +1,23 @@
+# frozen-string-literal: true
+# bioshogi input_parser "68歩" "△76歩"
+
+if $0 == __FILE__
+  require "../cli"
+end
+
+module Bioshogi
+  class Cli
+    desc "input_parser", "入力"
+    def input_parser(*argv)
+      str = argv.join(" ")
+      rows = InputParser.scan(str).collect do |str|
+        {"入力" => str}.merge(InputParser.match!(str).named_captures)
+      end
+      tp rows
+    end
+  end
+end
+
+if $0 == __FILE__
+  Bioshogi::Cli.start(["input_parser", "68S", "△76歩"])
+end

data/lib/bioshogi/cli/piece.rb

@@ -0,0 +1,19 @@
+# frozen-string-literal: true
+# bioshogi piece
+
+if $0 == __FILE__
+  require "../cli"
+end
+
+module Bioshogi
+  class Cli
+    desc "piece", "駒一覧"
+    def piece
+      tp Piece.collect(&:to_h)
+    end
+  end
+end
+
+if $0 == __FILE__
+  Bioshogi::Cli.start(["piece"])
+end