jkf 0.4.3 → 0.5.1

data/lib/jkf/parser/kif.rb

@@ -1,636 +1,619 @@
-# coding: utf-8
+module Jkf
+  module Parser
+    # KIF Parser
+    class Kif < Base
+      include Kifuable
 
-module Jkf::Parser
-  # KIF Parser
-  class Kif < Base
-    include Kifuable
+      protected
 
-    protected
+      # kifu : skipline* header* initialboard? header* split? moves fork* nl?
+      def parse_root
+        @scanner << "\n" unless @scanner.string.end_with?("\n")
 
-    # kifu : skipline* header* initialboard? header* split? moves fork* nl?
-    def parse_root
-      @input += "\n" unless @input.end_with?("\n")
-
-      s0 = @current_pos
-      s1 = []
-      s2 = parse_skipline
-      while s2 != :failed
-        s1 << s2
+        s0 = @scanner.pos
+        s1 = []
         s2 = parse_skipline
-      end
+        while s2 != :failed
+          s1 << s2
+          s2 = parse_skipline
+        end
 
-      s2 = []
-      s3 = parse_header
-      while s3 != :failed
-        s2 << s3
+        s2 = []
         s3 = parse_header
-      end
-      s3 = parse_initialboard
-      s3 = nil if s3 == :failed
-      s4 = []
-      s5 = parse_header
-      while s5 != :failed
-        s4 << s5
+        while s3 != :failed
+          s2 << s3
+          s3 = parse_header
+        end
+        s3 = parse_initialboard
+        s3 = nil if s3 == :failed
+        s4 = []
         s5 = parse_header
-      end
-      parse_split
-      s6 = parse_moves
-      if s6 != :failed
-        s7 = []
-        s8 = parse_fork
-        while s8 != :failed
-          s7 << s8
+        while s5 != :failed
+          s4 << s5
+          s5 = parse_header
+        end
+        parse_split
+        s6 = parse_moves
+        if s6 == :failed
+          @scanner.pos = s0
+          s0 = :failed
+        else
+          s7 = []
           s8 = parse_fork
+          while s8 != :failed
+            s7 << s8
+            s8 = parse_fork
+          end
+          parse_nl
+          @reported_pos = s0
+          s0 = transform_root(s2, s3, s4, s6, s7)
         end
-        parse_nl
-        @reported_pos = s0
-        s0 = transform_root(s2, s3, s4, s6, s7)
-      else
-        @current_pos = s0
-        s0 = :failed
-      end
 
-      s0
-    end
+        s0
+      end
 
-    # header : [^：\r\n]+ "：" nonls nl
-    #        | turn "手番" nl
-    #        | "盤面回転" nl
-    def parse_header
-      s0 = @current_pos
-      s2 = match_regexp(/^[^：\r\n]/)
-      if s2 != :failed
-        s1 = []
-        while s2 != :failed
-          s1 << s2
-          s2 = match_regexp(/^[^：\r\n]/)
+      # header : [^：\r\n]+ "：" nonls nl
+      #        | turn "手番" nl
+      #        | "盤面回転" nl
+      def parse_header
+        s0 = @scanner.pos
+        s2 = match_regexp(/[^：\r\n]/)
+        if s2 == :failed
+          s1 = :failed
+        else
+          s1 = []
+          while s2 != :failed
+            s1 << s2
+            s2 = match_regexp(/[^：\r\n]/)
+          end
         end
-      else
-        s1 = :failed
-      end
-      if s1 != :failed
-        if match_str("：") != :failed
+        if s1 == :failed
+          @scanner.pos = s0
+          s0 = :failed
+        elsif match_str('：') != :failed
           s3 = parse_nonls
-          if parse_nl != :failed
+          if parse_nl == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          else
             @reported_pos = s0
-            s1 = { "k" => s1.join, "v" => s3.join }
+            s1 = { 'k' => s1.join, 'v' => s3.join }
             s0 = s1
-          else
-            @current_pos = s0
-            s0 = :failed
           end
         else
-          @current_pos = s0
+          @scanner.pos = s0
           s0 = :failed
         end
-      else
-        @current_pos = s0
-        s0 = :failed
-      end
-      if s0 == :failed
-        s0 = @current_pos
-        s1 = parse_turn
-        if s1 != :failed
-          if match_str("手番") != :failed
-            if parse_nl != :failed
-              @reported_pos = s0
-              s0 = { "k" => "手番", "v" => s1 }
-            else
-              @current_pos = s0
+        if s0 == :failed
+          s0 = @scanner.pos
+          s1 = parse_turn
+          if s1 == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          elsif match_str('手番') != :failed
+            if parse_nl == :failed
+              @scanner.pos = s0
               s0 = :failed
+            else
+              @reported_pos = s0
+              s0 = { 'k' => '手番', 'v' => s1 }
             end
           else
-            @current_pos = s0
+            @scanner.pos = s0
             s0 = :failed
           end
-        else
-          @current_pos = s0
-          s0 = :failed
-        end
-        if s0 == :failed
-          s0 = @current_pos
-          if match_str("盤面回転") != :failed
-            if parse_nl != :failed
+          if s0 == :failed
+            s0 = @scanner.pos
+            if match_str('盤面回転') == :failed
+              @scanner.pos = s0
+              s0 = :failed
+            elsif parse_nl != :failed
               @reported_pos = s0
               s0 = nil
             else
-              @current_pos = s0
+              @scanner.pos = s0
               s0 = :failed
             end
-          else
-            @current_pos = s0
-            s0 = :failed
           end
         end
-      end
 
-      s0
-    end
+        s0
+      end
 
-    # turn : [先後上下]
-    def parse_turn
-      match_regexp(/^[先後上下]/)
-    end
+      # turn : [先後上下]
+      def parse_turn
+        match_regexp(/[先後上下]/)
+      end
 
-    # split : "手数----指手--" "-------消費時間--"? nl
-    def parse_split
-      s0 = @current_pos
-      s1 = match_str("手数----指手--")
-      if s1 != :failed
-        s2 = match_str("-------消費時間--")
-        s2 = nil if s2 == :failed
-        s3 = parse_nl
-        if s3 != :failed
-          s0 = [s1, s2, s3]
-        else
-          @current_pos = s0
+      # split : "手数----指手--" "-------消費時間--"? nl
+      def parse_split
+        s0 = @scanner.pos
+        s1 = match_str('手数----指手--')
+        if s1 == :failed
+          @scanner.pos = s0
           s0 = :failed
+        else
+          s2 = match_str('-------消費時間--')
+          s2 = nil if s2 == :failed
+          s3 = parse_nl
+          if s3 == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          else
+            s0 = [s1, s2, s3]
+          end
         end
-      else
-        @current_pos = s0
-        s0 = :failed
+        s0
       end
-      s0
-    end
 
-    # moves : firstboard split? move* result?
-    def parse_moves
-      s0 = @current_pos
-      s1 = parse_firstboard
-      if s1 != :failed
-        parse_split
-        s2 = []
-        s3 = parse_move
-        while s3 != :failed
-          s2 << s3
+      # moves : firstboard split? move* result?
+      def parse_moves
+        s0 = @scanner.pos
+        s1 = parse_firstboard
+        if s1 == :failed
+          @scanner.pos = s0
+          s0 = :failed
+        else
+          parse_split
+          s2 = []
           s3 = parse_move
+          while s3 != :failed
+            s2 << s3
+            s3 = parse_move
+          end
+          parse_result
+          @reported_pos = s0
+          s0 = s2.unshift(s1)
         end
-        parse_result
-        @reported_pos = s0
-        s0 = s2.unshift(s1)
-      else
-        @current_pos = s0
-        s0 = :failed
+        s0
       end
-      s0
-    end
 
-    # firstboard : comment* pointer?
-    def parse_firstboard
-      s0 = @current_pos
-      s1 = []
-      s2 = parse_comment
-      while s2 != :failed
-        s1 << s2
+      # firstboard : comment* pointer?
+      def parse_firstboard
+        s0 = @scanner.pos
+        s1 = []
         s2 = parse_comment
-      end
-      parse_pointer
-      @reported_pos = s0
-      s0 = s1.empty? ? {} : { "comments" => s1 }
-      s0
-    end
-
-    # move : line comment* pointer?
-    def parse_move
-      s0 = @current_pos
-      s1 = parse_line
-      if s1 != :failed
-        s2 = []
-        s3 = parse_comment
-        while s3 != :failed
-          s2 << s3
-          s3 = parse_comment
+        while s2 != :failed
+          s1 << s2
+          s2 = parse_comment
         end
         parse_pointer
         @reported_pos = s0
-        s0 = transform_move(s1, s2)
-      else
-        @current_pos = s0
-        s0 = :failed
+        s1.empty? ? {} : { 'comments' => s1 }
       end
-      s0
-    end
 
-    # line : " "* te " "* (fugou from | [^\r\n ]*) " "* time? "+"? nl
-    def parse_line
-      s0 = @current_pos
-      match_spaces
-      s2 = parse_te
-      if s2 != :failed
-        match_spaces
-        s4 = @current_pos
-        s5 = parse_fugou
-        if s5 != :failed
-          s6 = parse_from
-          if s6 != :failed
-            @reported_pos = s4
-            s4 = transform_teban_fugou_from(s2, s5, s6)
-          else
-            @current_pos = s4
-            s4 = :failed
-          end
+      # move : line comment* pointer?
+      def parse_move
+        s0 = @scanner.pos
+        s1 = parse_line
+        if s1 == :failed
+          @scanner.pos = s0
+          s0 = :failed
         else
-          @current_pos = s4
-          s4 = :failed
-        end
-        if s4 == :failed
-          s4 = @current_pos
-          s5 = []
-          s6 = match_regexp(/^[^\r\n ]/)
-          while s6 != :failed
-            s5 << s6
-            s6 = match_regexp(/^[^\r\n ]/)
+          s2 = []
+          s3 = parse_comment
+          while s3 != :failed
+            s2 << s3
+            s3 = parse_comment
           end
-          @reported_pos = s4
-          s4 = s5.join
+          parse_pointer
+          @reported_pos = s0
+          s0 = transform_move(s1, s2)
         end
-        if s4 != :failed
+        s0
+      end
+
+      # line : " "* te " "* (fugou from | [^\r\n ]*) " "* time? "+"? nl
+      def parse_line
+        s0 = @scanner.pos
+        match_spaces
+        s2 = parse_te
+        if s2 == :failed
+          @scanner.pos = s0
+          s0 = :failed
+        else
           match_spaces
-          s6 = parse_time
-          s6 = nil if s6 == :failed
-          match_str("+")
-          if parse_nl != :failed
-            @reported_pos = s0
-            s0 = { "move" => s4, "time" => s6 }
+          s4 = @scanner.pos
+          s5 = parse_fugou
+          if s5 == :failed
+            @scanner.pos = s4
+            s4 = :failed
           else
-            @current_pos = s0
+            s6 = parse_from
+            if s6 == :failed
+              @scanner.pos = s4
+              s4 = :failed
+            else
+              @reported_pos = s4
+              s4 = transform_teban_fugou_from(s2, s5, s6)
+            end
+          end
+          if s4 == :failed
+            s4 = @scanner.pos
+            s5 = []
+            s6 = match_regexp(/[^\r\n ]/)
+            while s6 != :failed
+              s5 << s6
+              s6 = match_regexp(/[^\r\n ]/)
+            end
+            @reported_pos = s4
+            s4 = s5.join
+          end
+          if s4 == :failed
+            @scanner.pos = s0
             s0 = :failed
+          else
+            match_spaces
+            s6 = parse_time
+            s6 = nil if s6 == :failed
+            match_str('+')
+            if parse_nl == :failed
+              @scanner.pos = s0
+              s0 = :failed
+            else
+              @reported_pos = s0
+              s0 = { 'move' => s4, 'time' => s6 }
+            end
           end
-        else
-          @current_pos = s0
-          s0 = :failed
         end
-      else
-        @current_pos = s0
-        s0 = :failed
+        s0
       end
-      s0
-    end
 
-    # te : [0-9]+
-    def parse_te
-      match_digits!
-    end
+      # te : [0-9]+
+      def parse_te
+        match_digits!
+      end
 
-    # fugou : place piece "成"?
-    def parse_fugou
-      s0 = @current_pos
-      s1 = parse_place
-      if s1 != :failed
-        s2 = parse_piece
-        if s2 != :failed
-          s3 = match_str("成")
-          s3 = nil if s3 == :failed
-          @reported_pos = s0
-          s0 = { "to" => s1, "piece" => s2, "promote" => !!s3 }
-        else
-          @current_pos = s0
+      # fugou : place piece "成"?
+      def parse_fugou
+        s0 = @scanner.pos
+        s1 = parse_place
+        if s1 == :failed
+          @scanner.pos = s0
           s0 = :failed
+        else
+          s2 = parse_piece
+          if s2 == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          else
+            s3 = match_str('成')
+            s3 = nil if s3 == :failed
+            @reported_pos = s0
+            s0 = { 'to' => s1, 'piece' => s2, 'promote' => !!s3 }
+          end
         end
-      else
-        @current_pos = s0
-        s0 = :failed
+        s0
       end
-      s0
-    end
 
-    # place : num numkan | "同　"
-    def parse_place
-      s0 = @current_pos
-      s1 = parse_num
-      if s1 != :failed
-        s2 = parse_numkan
-        if s2 != :failed
-          @reported_pos = s0
-          s0 = { "x" => s1, "y" => s2 }
-        else
-          @current_pos = s0
+      # place : num numkan | "同　"
+      def parse_place
+        s0 = @scanner.pos
+        s1 = parse_num
+        if s1 == :failed
+          @scanner.pos = s0
           s0 = :failed
+        else
+          s2 = parse_numkan
+          if s2 == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          else
+            @reported_pos = s0
+            s0 = { 'x' => s1, 'y' => s2 }
+          end
         end
-      else
-        @current_pos = s0
-        s0 = :failed
+        if s0 == :failed
+          s0 = @scanner.pos
+          s1 = match_str('同　')
+          if s1 != :failed
+            @reported_pos = s0
+            s1 = nil
+          end
+          s0 = s1
+        end
+        s0
       end
-      if s0 == :failed
-        s0 = @current_pos
-        s1 = match_str("同　")
+
+      # from : "打" | "(" [1-9] [1-9] ")"
+      def parse_from
+        s0 = @scanner.pos
+        s1 = match_str('打')
         if s1 != :failed
           @reported_pos = s0
           s1 = nil
         end
         s0 = s1
-      end
-      s0
-    end
-
-    # from : "打" | "(" [1-9] [1-9] ")"
-    def parse_from
-      s0 = @current_pos
-      s1 = match_str("打")
-      if s1 != :failed
-        @reported_pos = s0
-        s1 = nil
-      end
-      s0 = s1
-      if s0 == :failed
-        s0 = @current_pos
-        if match_str("(") != :failed
-          s2 = match_regexp(/^[1-9]/)
-          if s2 != :failed
-            s3 = match_regexp(/^[1-9]/)
-            if s3 != :failed
-              if match_str(")") != :failed
+        if s0 == :failed
+          s0 = @scanner.pos
+          if match_str('(') == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          else
+            s2 = match_regexp(/[1-9]/)
+            if s2 == :failed
+              @scanner.pos = s0
+              s0 = :failed
+            else
+              s3 = match_regexp(/[1-9]/)
+              if s3 == :failed
+                @scanner.pos = s0
+                s0 = :failed
+              elsif match_str(')') != :failed
                 @reported_pos = s0
-                s0 = { "x" => s2.to_i, "y" => s3.to_i }
+                s0 = { 'x' => s2.to_i, 'y' => s3.to_i }
               else
-                @current_pos = s0
+                @scanner.pos = s0
                 s0 = :failed
               end
-            else
-              @current_pos = s0
-              s0 = :failed
             end
-          else
-            @current_pos = s0
-            s0 = :failed
           end
-        else
-          @current_pos = s0
-          s0 = :failed
         end
+        s0
       end
-      s0
-    end
 
-    # time :  "(" " "* ms " "* "/" " "* (hms | ms) " "* ")"
-    def parse_time
-      s0 = @current_pos
-      if match_str("(") != :failed
-        match_spaces
-        s3 = parse_ms
-        if s3 != :failed
+      # time :  "(" " "* ms " "* "/" " "* (hms | ms) " "* ")"
+      def parse_time
+        s0 = @scanner.pos
+        if match_str('(') == :failed
+          @scanner.pos = s0
+          s0 = :failed
+        else
           match_spaces
-          if match_str("/") != :failed
+          s3 = parse_ms
+          if s3 == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          else
             match_spaces
-            s5 = parse_hms
-            s5 = parse_ms(with_hour: true) if s5 == :failed
-            if s5 != :failed
+            if match_str('/') == :failed
+              @scanner.pos = s0
+              s0 = :failed
+            else
               match_spaces
-              if match_str(")") != :failed
-                @reported_pos = s0
-                s0 = { "now" => s3, "total" => s5 }
-              else
-                @current_pos = s0
+              s5 = parse_hms
+              s5 = parse_ms(with_hour: true) if s5 == :failed
+              if s5 == :failed
+                @scanner.pos = s0
                 s0 = :failed
+              else
+                match_spaces
+                if match_str(')') == :failed
+                  @scanner.pos = s0
+                  s0 = :failed
+                else
+                  @reported_pos = s0
+                  s0 = { 'now' => s3, 'total' => s5 }
+                end
               end
-            else
-              @current_pos = s0
-              s0 = :failed
             end
-          else
-            @current_pos = s0
-            s0 = :failed
           end
-        else
-          @current_pos = s0
-          s0 = :failed
         end
-      else
-        @current_pos = s0
-        s0 = :failed
+        s0
       end
-      s0
-    end
 
-    # hms : [0-9]+ ":" [0-9]+ ":" [0-9]+
-    def parse_hms
-      s0 = @current_pos
-      s1 = match_digits!
+      # hms : [0-9]+ ":" [0-9]+ ":" [0-9]+
+      def parse_hms
+        s0 = @scanner.pos
+        s1 = match_digits!
 
-      if s1 != :failed
-        if match_str(":") != :failed
+        if s1 == :failed
+          @scanner.pos = s0
+          s0 = :failed
+        elsif match_str(':') != :failed
           s3 = match_digits!
-          if s3 != :failed
-            if match_str(":") != :failed
-              s5 = match_digits!
-              if s5 != :failed
-                @reported_pos = s0
-                s0 = { "h" => s1.join.to_i, "m" => s3.join.to_i, "s" => s5.join.to_i }
-              else
-                @current_pos = s0
-                s0 = :failed
-              end
-            else
-              @current_pos = s0
+          if s3 == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          elsif match_str(':') != :failed
+            s5 = match_digits!
+            if s5 == :failed
+              @scanner.pos = s0
               s0 = :failed
+            else
+              @reported_pos = s0
+              s0 = { 'h' => s1.join.to_i, 'm' => s3.join.to_i, 's' => s5.join.to_i }
             end
           else
-            @current_pos = s0
+            @scanner.pos = s0
             s0 = :failed
           end
         else
-          @current_pos = s0
+          @scanner.pos = s0
           s0 = :failed
         end
-      else
-        @current_pos = s0
-        s0 = :failed
+        s0
       end
-      s0
-    end
 
-    # ms : [0-9]+ ":" [0-9]+
-    def parse_ms(with_hour: false)
-      s0 = @current_pos
-      s1 = match_digits!
-      if s1 != :failed
-        if match_str(":") != :failed
+      # ms : [0-9]+ ":" [0-9]+
+      def parse_ms(with_hour: false)
+        s0 = @scanner.pos
+        s1 = match_digits!
+        if s1 == :failed
+          @scanner.pos = s0
+          s0 = :failed
+        elsif match_str(':') != :failed
           s3 = match_digits!
-          if s3 != :failed
+          if s3 == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          else
             @reported_pos = s0
             m = s1.join.to_i
             s = s3.join.to_i
             if with_hour
               h = m / 60
               m = m % 60
-              s0 = { "h" => h, "m" => m, "s" => s }
+              s0 = { 'h' => h, 'm' => m, 's' => s }
             else
-              s0 = { "m" => m, "s" => s }
+              s0 = { 'm' => m, 's' => s }
             end
-          else
-            @current_pos = s0
-            s0 = :failed
           end
         else
-          @current_pos = s0
+          @scanner.pos = s0
           s0 = :failed
         end
-      else
-        @current_pos = s0
-        s0 = :failed
+        s0
       end
-      s0
-    end
 
-    # comment : "*" nonls nl | "&" nonls nl
-    def parse_comment
-      s0 = @current_pos
-      if match_str("*") != :failed
-        s2 = parse_nonls
-        if parse_nl != :failed
-          @reported_pos = s0
-          s0 = s2.join
-        else
-          @current_pos = s0
+      # comment : "*" nonls nl | "&" nonls nl
+      def parse_comment
+        s0 = @scanner.pos
+        if match_str('*') == :failed
+          @scanner.pos = s0
           s0 = :failed
-        end
-      else
-        @current_pos = s0
-        s0 = :failed
-      end
-      if s0 == :failed
-        s0 = @current_pos
-        s1 = match_str("&")
-        if s1 != :failed
+        else
           s2 = parse_nonls
-          if parse_nl != :failed
-            @reported_pos = s0
-            s0 = "&" + s2.join
+          if parse_nl == :failed
+            @scanner.pos = s0
+            s0 = :failed
           else
-            @current_pos = s0
+            @reported_pos = s0
+            s0 = s2.join
+          end
+        end
+        if s0 == :failed
+          s0 = @scanner.pos
+          s1 = match_str('&')
+          if s1 == :failed
+            @scanner.pos = s0
             s0 = :failed
+          else
+            s2 = parse_nonls
+            if parse_nl == :failed
+              @scanner.pos = s0
+              s0 = :failed
+            else
+              @reported_pos = s0
+              s0 = '&' + s2.join
+            end
           end
-        else
-          @current_pos = s0
-          s0 = :failed
         end
+        s0
       end
-      s0
-    end
 
-    # fork :  "変化：" " "* [0-9]+ "手" nl moves
-    def parse_fork
-      s0 = @current_pos
-      if match_str("変化：") != :failed
-        match_spaces
-        s3 = parse_te
-        if s3 != :failed
-          if match_str("手") != :failed
-            if parse_nl != :failed
+      # fork :  "変化：" " "* [0-9]+ "手" nl moves
+      def parse_fork
+        s0 = @scanner.pos
+        if match_str('変化：') == :failed
+          @scanner.pos = s0
+          s0 = :failed
+        else
+          match_spaces
+          s3 = parse_te
+          if s3 == :failed
+            @scanner.pos = s0
+            s0 = :failed
+          elsif match_str('手') != :failed
+            if parse_nl == :failed
+              @scanner.pos = s0
+              s0 = :failed
+            else
               s6 = parse_moves
-              if s6 != :failed
-                @reported_pos = s0
-                s0 = { "te" => s3.join.to_i, "moves" => s6[1..-1] }
-              else
-                @current_pos = s0
+              if s6 == :failed
+                @scanner.pos = s0
                 s0 = :failed
+              else
+                @reported_pos = s0
+                s0 = { 'te' => s3.join.to_i, 'moves' => s6[1..-1] }
               end
-            else
-              @current_pos = s0
-              s0 = :failed
             end
           else
-            @current_pos = s0
+            @scanner.pos = s0
             s0 = :failed
           end
-        else
-          @current_pos = s0
-          s0 = :failed
         end
-      else
-        @current_pos = s0
-        s0 = :failed
+        s0
       end
-      s0
-    end
 
-    # transfrom to jkf
-    def transform_root(headers, ini, headers2, moves, forks)
-      ret = { "header" => {}, "moves" => moves }
-      headers.compact.each { |h| ret["header"][h["k"]] = h["v"] }
-      headers2.compact.each { |h| ret["header"][h["k"]] = h["v"] }
-      if ini
-        ret["initial"] = ini
-      elsif ret["header"]["手合割"]
-        preset = preset2str(ret["header"]["手合割"])
-        ret["initial"] = { "preset" => preset } if preset && preset != "OTHER"
+      # transfrom to jkf
+      def transform_root(headers, ini, headers2, moves, forks)
+        ret = { 'header' => {}, 'moves' => moves }
+        headers.compact.each { |h| ret['header'][h['k']] = h['v'] }
+        headers2.compact.each { |h| ret['header'][h['k']] = h['v'] }
+        if ini
+          ret['initial'] = ini
+        elsif ret['header']['手合割']
+          preset = preset2str(ret['header']['手合割'])
+          ret['initial'] = { 'preset' => preset } if preset && preset != 'OTHER'
+        end
+        transform_root_header_data(ret) if ret['initial'] && ret['initial']['data']
+        transform_root_forks(forks, moves)
+        if ret['initial'] && ret['initial']['data'] && ret['initial']['data']['color'] == 1
+          reverse_color(ret['moves'])
+        end
+        ret
       end
-      transform_root_header_data(ret) if ret["initial"] && ret["initial"]["data"]
-      transform_root_forks(forks, moves)
-      if ret["initial"] && ret["initial"]["data"] && ret["initial"]["data"]["color"] == 1
-        reverse_color(ret["moves"])
+
+      # transform move to jkf
+      def transform_move(line, c)
+        ret = {}
+        ret['comments'] = c unless c.empty?
+        if line['move'].is_a? Hash
+          ret['move'] = line['move']
+        else
+          ret['special'] = special2csa(line['move'])
+        end
+        ret['time'] = line['time'] if line['time']
+        ret
       end
-      ret
-    end
 
-    # transform move to jkf
-    def transform_move(line, c)
-      ret = {}
-      ret["comments"] = c if !c.empty?
-      if line["move"].is_a? Hash
-        ret["move"] = line["move"]
-      else
-        ret["special"] = special2csa(line["move"])
+      # transform teban-fugou-from to jkf
+      def transform_teban_fugou_from(teban, fugou, from)
+        ret = { 'color' => teban2color(teban.join), 'piece' => fugou['piece'] }
+        if fugou['to']
+          ret['to'] = fugou['to']
+        else
+          ret['same'] = true
+        end
+        ret['promote'] = true if fugou['promote']
+        ret['from'] = from if from
+        ret
       end
-      ret["time"] = line["time"] if line["time"]
-      ret
-    end
 
-    # transform teban-fugou-from to jkf
-    def transform_teban_fugou_from(teban, fugou, from)
-      ret = { "color" => teban2color(teban.join), "piece" => fugou["piece"] }
-      if fugou["to"]
-        ret["to"] = fugou["to"]
-      else
-        ret["same"] = true
+      # special string to csa
+      def special2csa(str)
+        {
+          '中断' => 'CHUDAN',
+          '投了' => 'TORYO',
+          '持将棋' => 'JISHOGI',
+          '千日手' => 'SENNICHITE',
+          '詰み' => 'TSUMI',
+          '不詰' => 'FUZUMI',
+          '切れ負け' => 'TIME_UP',
+          '反則勝ち' => 'ILLEGAL_ACTION', # 直前の手が反則(先頭に+か-で反則した側の情報を含める必要が有る)
+          '反則負け' => 'ILLEGAL_MOVE' # ここで手番側が反則，反則の内容はコメントで表現
+        }[str] || (raise ParseError)
       end
-      ret["promote"] = true if fugou["promote"]
-      ret["from"] = from if from
-      ret
-    end
 
-    # special string to csa
-    def special2csa(str)
-      {
-        "中断" => "CHUDAN",
-        "投了" => "TORYO",
-        "持将棋" => "JISHOGI",
-        "千日手" => "SENNICHITE",
-        "詰み" => "TSUMI",
-        "不詰" => "FUZUMI",
-        "切れ負け" => "TIME_UP",
-        "反則勝ち" => "ILLEGAL_ACTION", # 直前の手が反則(先頭に+か-で反則した側の情報を含める必要が有る)
-        "反則負け" => "ILLEGAL_MOVE" # ここで手番側が反則，反則の内容はコメントで表現
-      }[str] || (raise ParseError)
-    end
+      # teban to color
+      def teban2color(teban)
+        teban = teban.to_i unless teban.is_a? Integer
+        (teban + 1) % 2
+      end
 
-    # teban to color
-    def teban2color(teban)
-      teban = teban.to_i unless teban.is_a? Fixnum
-      (teban + 1) % 2
-    end
+      # generate motigoma
+      def make_hand(str)
+        # Kifu for iPhoneは半角スペース区切り
+        ret = { 'FU' => 0, 'KY' => 0, 'KE' => 0, 'GI' => 0, 'KI' => 0, 'KA' => 0, 'HI' => 0 }
+        return ret if str.empty?
 
-    # generate motigoma
-    def make_hand(str)
-      # Kifu for iPhoneは半角スペース区切り
-      ret = { "FU" => 0, "KY" => 0, "KE" => 0, "GI" => 0, "KI" => 0, "KA" => 0, "HI" => 0 }
-      return ret if str.empty?
+        str.split(/[ 　]/).each do |kind|
+          next if kind.empty?
+          ret[kind2csa(kind[0])] = kind.length == 1 ? 1 : kan2n2(kind[1..-1])
+        end
 
-      str.split(/[ 　]/).each do |kind|
-        next if kind.empty?
-        ret[kind2csa(kind[0])] = kind.length == 1 ? 1 : kan2n2(kind[1..-1])
+        ret
       end
 
-      ret
-    end
-
-    # exchange sente gote
-    def reverse_color(moves)
-      moves.each do |move|
-        if move["move"] && move["move"]["color"]
-          move["move"]["color"] = (move["move"]["color"] + 1) % 2
+      # exchange sente gote
+      def reverse_color(moves)
+        moves.each do |move|
+          if move['move'] && move['move']['color']
+            move['move']['color'] = (move['move']['color'] + 1) % 2
+          end
+          move['forks']&.each { |fork| reverse_color(fork) }
         end
-        move["forks"].each { |_fork| reverse_color(_fork) } if move["forks"]
       end
     end
   end