# FUTURE: ./tools/pattern_bayes_gen.sh ~/Downloads/player_games/*.sgf > player-patterns

BEGIN {
    total=4
    commands[1]=""
    move[1]=""
    engine="-e uct"
    plays="-t =10000"
    pachi_exec="cpulimit -l 50 ./pachi"
    pachi=pachi_exec " " engine " " plays " -d 0 dynkomi=none"
    file="/tmp/gorate"
    file2="/tmp/goratemv"
    system("rm " file)
    system("rm " file2)
    pachi_exec "  -a 2>&1 | head -n 2 | tail -n 1\n" | getline
    printf "Using " plays " plays and " engine " engine.\n" $0 "\n\n"
    printf "For each move evaluate the board and generate a next\nmove. Evaluating the board and generating a move give\ndifferent values, even for the same move.\n\nGenerating also /tmp/gorate with format:\n Pwin generated, Evaluate value | -1 , Exact match move? (i.e. like 0.55, -1,  1)\n\n"
}

NR<=4{
    commands[NR]=$0
}

NR==3{
    move[1]=$3
}
NR==4{
    move[2]=$3
}

# Will process output from sgf2gtp, repeating
(NR>4){
    total=total+1
    mvc=NR-3
    commands[NR]=$0
    #printf commands[NR]
    move[mvc]=toupper($3)
    tomove[mvc]=$2
    #printf "Move: " move[NR] "\n"
}

END {
    for(i=1;i<START-3;i++){
   printf move[i] ", , , , -1" >> file2
    }
    for(j=START;j<=total;j++){ #Starts at 5 and evaluates starting at j=Move to study+3
   mvc=j-3
   count=count?0:1
   color="unknown"
   steps=0
   while (color=="unknown"&&steps<5){
       steps=steps+1
       for (i=1;i<=j-1;i++){
#      printf "DEBUG: Issuing command #"i": " commands[i] "\n"
      printf commands[i] "\n" |& pachi
       }
#       printf "DEBUG: Issuing command: evaluate " tomove[mvc] "\n"
       printf "pachi-evaluate " tomove[mvc] "\n" |& pachi
#       printf "DEBUG: Issuing command: genmove " tomove[mvc] "\n"
       printf "genmove " tomove[mvc] "\n" |& pachi
#       printf "DEBUG: Issuing command: pachi-result\n"
       printf "pachi-result\n" |& pachi
#       printf "DEBUG: Issuing command: quit\n"
       printf "quit\n" |& pachi
       countreply=0
       score=""
       while(pachi |& getline >0){
#      printf "DEBUG: " $0 "->" $1 " " $2 " " $3 "\n"
      if ($2!=""){
          # format color move playouts pwin dynkomi for pachi-result
          color=$2
          genmove=$3
          pwin=$5
          if($4==""){
#         print "DEBUG: $4 is null: " $0 " " $1 " " $2
          }
          # For pachi-evaluate, move and pwin
          if(color==move[mvc]&&$3!=""){
#         printf "DEBUG: Match evaluate"
         score=genmove
          }
          if($1==move[mvc]){
#         printf "DEBUG: Match evaluate-2"
         score=$2
          }      
      }
       }
       close(pachi)
   }
   printf pwin ", " >> file
   printf move[mvc] ", " >> file2
   if(score==""){
       printf "-1, " >> file
       printf "-1, " >> file2
   }
   else{
       printf score ", " >> file
       printf score ", " >> file2
   }
   printf genmove ", " pwin ", ">> file2
   if(move[mvc]==genmove){
       printf " 1\n" >> file #Correct hit
       printf " 1\n" >> file2 #Correct hit
   }
   else{
       printf " 0\n" >> file #Wrong hit
       printf " 0\n" >> file2 #Wrong hit
   }
   if(score!=""){
       printf mvc ": Original " tomove[mvc] " move: " move[mvc] " has possible P(win) " score ". Suggested " color " move: " genmove " P(win): " pwin "\n"
   }else{
       printf mvc ": Original " tomove[mvc] " move: " move[mvc] ". Suggested " color " move: " genmove " pwin: " pwin "\n"
   }

    }

    close(pachi)
}