/*
 * /\* eval.c - static position evaluation.
 *  *
 *  * Copyright (C) 2021-2023 Bruno Raoult ("br")
 *  * Licensed under the GNU General Public License v3.0 or later.
 *  * Some rights reserved. See COPYING.
 *  *
 *  * You should have received a copy of the GNU General Public License along with this
 *  * program. If not, see <https://www.gnu.org/licenses/gpl-3.0-standalone.html>.
 *  *
 *  * SPDX-License-Identifier: GPL-3.0-or-later <https://spdx.org/licenses/GPL-3.0-or-later.html>
 *  *
 *  *\/
 *
 * #include <stdio.h>
 *
 * #include <list.h>
 * #include <debug.h>
 *
 * #include "position.h"
 * #include "eval.h"
 * #include "eval-simple.h"
 *
 * inline eval_t eval_material(pos_t *pos, bool color)
 * {
 *     eval_t res = 0;
 *
 *     /\* I need to do something about the king, if it can be potentially taken
 *      * if pseudo-moves include a pinned piece on King.
 *      *\/
 *     for (uint piece = PAWN; piece < KING; piece <<= 1) {
 *         uint bb = PIECETOBB(piece);
 * #       ifdef DEBUG_EVAL
 *         log_f(2, "color=%u piece=%u bb=%u=%c count=%ul val=%ld\n",
 *               color, piece, bb, P_LETTER(piece), popcount64(pos->bb[color][bb]),
 *               P_VALUE(piece));
 * #       endif
 *         /\* attention here *\/
 *         res += popcount64(pos->bb[color][bb]) * P_VALUE(piece);
 *     }
 *     return res;
 * }
 *
 * inline eval_t eval_mobility(pos_t *pos, bool color)
 * {
 *     return pos->mobility[color];
 * }
 *
 * inline eval_t eval_square_control(pos_t *pos, bool color)
 * {
 *     return popcount64(pos->controlled[color]);
 * }
 *
 * eval_t eval(pos_t *pos)
 * {
 *     eval_t simple = 0, control[2] = {0};
 *
 *     if (pos->eval != EVAL_INVALID)
 *         return pos->eval;
 *
 *     /\* 1) pieces value *\/
 *     //material[WHITE] = eval_material(pos, WHITE);
 *     //material[BLACK] = eval_material(pos, BLACK);
 *     simple = eval_simple(pos);
 *
 * #   ifdef DEBUG_EVAL
 *     log_f(2, "eval_simple=%d\n", simple);
 * #   endif
 *
 *     /\* 2) square control: 10 square controls diff = 1 pawn *\/
 *     control[WHITE] = eval_square_control(pos, WHITE);
 *     control[BLACK] = eval_square_control(pos, BLACK);
 *
 * #   ifdef DEBUG_EVAL
 *     log_f(2, "square control: W:%d B:%d diff=%d\n",
 *           control[WHITE], control[BLACK],
 *           (control[WHITE] - control[BLACK]) * 10);
 * #   endif
 *
 *     /\* 3) mobility: 10 mobility diff = 1 pawn
 *      *\/
 * #   ifdef DEBUG_EVAL
 *     log_f(2, "mobility: W:%u B:%u diff=%d\n",
 *           pos->mobility[WHITE], pos->mobility[BLACK],
 *           (pos->mobility[WHITE] - pos->mobility[BLACK]) * 10);
 * #   endif
 *
 *     eval_t res = simple +
 *         (control[WHITE] - control[BLACK]) * 10 +
 *         (pos->mobility[WHITE] - pos->mobility[BLACK]) * 10;
 * #   ifdef DEBUG_EVAL
 *     log_f(2, "eval: %d\n", res);
 * #   endif
 *     pos->eval = res;
 *     return res;
 * }
 */