<?php
/**
 * 关系分组：一个人属于哪一组（家人 / 亲戚 / 同事 / 朋友 …），名册按它分栏展示。
 *
 * 四条刻意的设计（第一、二条是被纠正过之后定下来的）：
 *   ① **一套是公共的，一套是我自己的。** `owner_id = 0` 是管理员在「系统设置」
 *      里维护的公共分组（全家都能用）；`owner_id = 我` 是我在「个人设置」里加的，
 *      只有我自己看得见。所以「某人的同事」如果全家都认，管理员建公共的；
 *      只有我觉得该有「球友」，我自己加一个，不影响别人。
 *   ② **顺序是各人各定的。** 「哪一组排前面」纯属个人习惯，存在
 *      user_settings.group_order 里（每人一份），改它不会动到公共的默认顺序。
 *   ③ **分类可以由用户自己加。** 所以是表而不是 ENUM —— 预置的七个只是初始值。
 *   ④ **不用外键约束 person_roster.group_id。** 老库升级只能 ADD COLUMN、加不上外键，
 *      新装的又加了就会两边结构不一致；索性统一由程序保证 ——
 *      删除分组时把挂靠的名册条目置为「未分类」（NULL），不留悬空 id。
 */

declare(strict_types=1);

namespace App;

final class PersonGroup
{
    /** 公共分组（管理员维护，全家共用）的 owner_id */
    public const PUBLIC_OWNER = 0;

    /** 预置分组的来源在 Schema::DEFAULT_GROUPS（安装与升级共用一份，避免两处漂移） */

    /**
     * 给一个家庭补齐**公共**分组。幂等 —— 靠 uk_group_owner_name 唯一键，重跑不会重复插入。
     * 也不覆盖用户改过的名字（同名才算重复，改名后重跑会**补回**那个默认名，
     * 这正是想要的：删掉的默认分组下次升级会回来，用户自定义的则不受影响）。
     */
    public static function seedDefaults(int $familyId, int $ownerId = self::PUBLIC_OWNER): void
    {
        if ($familyId <= 0) {
            return;
        }
        $st = Database::get()->prepare(
            'INSERT IGNORE INTO person_groups (family_id, owner_id, name, position, is_builtin)
             VALUES (?, ?, ?, ?, 1)'
        );
        foreach (Schema::DEFAULT_GROUPS as $name => $pos) {
            $st->execute([$familyId, max(0, $ownerId), $name, $pos]);
        }
    }

    /** 某一套分组（公共传 0，个人传自己的 person_id），id => 行，按默认顺序 */
    public static function forOwner(int $familyId, int $ownerId): array
    {
        $st = Database::get()->prepare(
            'SELECT * FROM person_groups WHERE family_id = ? AND owner_id = ?
             ORDER BY position ASC, id ASC'
        );
        $st->execute([$familyId, max(0, $ownerId)]);
        $out = [];
        foreach ($st->fetchAll() as $r) {
            $out[(int)$r['id']] = $r;
        }
        return $out;
    }

    /** 这个家庭里的全部分组（含所有人的私自分组）—— 只用来校验"这个 id 是本家庭的" */
    public static function byId(int $familyId): array
    {
        $st = Database::get()->prepare(
            'SELECT * FROM person_groups WHERE family_id = ? ORDER BY position ASC, id ASC'
        );
        $st->execute([$familyId]);
        $out = [];
        foreach ($st->fetchAll() as $r) {
            $out[(int)$r['id']] = $r;
        }
        return $out;
    }

    /**
     * **这个人在名册里能用哪些分组** = 公共的 + 他自己的私自分组。
     *
     * 访客 / 还没定过个人分组的人也至少能拿到公共的那一套，
     * 所以"管理员建了分组但没人用得上"不会发生。
     */
    public static function visible(int $familyId, int $viewerId): array
    {
        $viewerId = max(0, $viewerId);
        $st = Database::get()->prepare(
            'SELECT * FROM person_groups
             WHERE family_id = ? AND (owner_id = 0 OR owner_id = ?)
             ORDER BY owner_id ASC, position ASC, id ASC'
        );
        $st->execute([$familyId, $viewerId]);
        $out = [];
        foreach ($st->fetchAll() as $r) {
            $out[(int)$r['id']] = $r;
        }
        return $out;
    }

    /** visible() 的 id 集合版本，用来做「这个分组 id 合不合法」的判断 */
    public static function visibleIds(int $familyId, int $viewerId): array
    {
        return array_fill_keys(array_keys(self::visible($familyId, $viewerId)), true);
    }

    /**
     * 按**当前用户自定义的顺序**返回分组（用户没自定义过就按默认位置）。
     *
     * 自定义顺序里没提到的分组（用户排序之后才新建的）一律追加到最后 ——
     * 这样「新建一个分组」不会因为它不在旧顺序里就消失不见。
     */
    public static function orderFor(int $familyId, int $viewerId = 0): array
    {
        $rest = self::visible($familyId, $viewerId);
        if (!$rest) {
            return [];
        }
        if ($viewerId > 0) {
            $raw = (string)UserSetting::get($viewerId, 'group_order', '');
            $saved = $raw === '' ? null : json_decode($raw, true);
            if (is_array($saved) && $saved) {
                $ordered = [];
                foreach ($saved as $id) {
                    $id = (int)$id;
                    if (isset($rest[$id])) {
                        $ordered[$id] = $rest[$id];
                        unset($rest[$id]);
                    }
                }
                foreach ($rest as $id => $g) {
                    $ordered[$id] = $g;
                }
                return array_values($ordered);
            }
        }
        return array_values($rest);
    }

    /** 保存「我」的分组顺序（只影响我自己） */
    public static function saveOrder(int $familyId, int $viewerId, array $ids): void
    {
        $valid = self::visible($familyId, $viewerId);
        $clean = [];
        foreach ($ids as $id) {
            $id = (int)$id;
            if (isset($valid[$id]) && !in_array($id, $clean, true)) {
                $clean[] = $id;
            }
        }
        // 没提到的补齐到末尾 —— 保存完整顺序，读回来才不会因为"缺项"而错位
        foreach (array_keys($valid) as $id) {
            if (!in_array($id, $clean, true)) {
                $clean[] = $id;
            }
        }
        UserSetting::set($viewerId, 'group_order', json_encode($clean, JSON_UNESCAPED_UNICODE));
    }

    /** 按给定的 id 顺序重写某一套分组的 position（公共分组的「全家默认顺序」靠它） */
    public static function savePositions(int $familyId, int $ownerId, array $ids): void
    {
        $db = Database::get();
        $up = $db->prepare(
            'UPDATE person_groups SET position = ? WHERE family_id = ? AND owner_id = ? AND id = ?'
        );
        $pos = 0;
        foreach ($ids as $id) {
            $pos += 10;
            $up->execute([$pos, $familyId, max(0, $ownerId), (int)$id]);
        }
    }

    /** 分组名（找不到就返回空串，调用方自己决定回退文案） */
    public static function name(int $familyId, ?int $id): string
    {
        if (!$id) {
            return '';
        }
        $st = Database::get()->prepare('SELECT name FROM person_groups WHERE family_id = ? AND id = ?');
        $st->execute([$familyId, $id]);
        return (string)($st->fetchColumn() ?: '');
    }

    /**
     * 新增一个分组。
     * @param int $ownerId 0=公共（只有管理员能建，调用方把关）；否则=建给自己的
     * @return array{ok:bool,id?:int,error?:string}
     */
    public static function add(int $familyId, string $name, int $ownerId = self::PUBLIC_OWNER): array
    {
        $ownerId = max(0, $ownerId);
        $name = trim($name);
        $bad  = self::validateName($name);
        if ($bad !== '') {
            return ['ok' => false, 'error' => $bad];
        }
        $db = Database::get();
        $st = $db->prepare(
            'SELECT COUNT(*) FROM person_groups WHERE family_id = ? AND owner_id = ? AND name = ?'
        );
        $st->execute([$familyId, $ownerId, $name]);
        if ((int)$st->fetchColumn() > 0) {
            return ['ok' => false, 'error' => '已经有叫「' . $name . '」的分组了。'];
        }
        // ⚠️ 别写成 `$max = (int)$db->prepare(...)->execute([...])`：
        //    PDOStatement::execute() 返回 bool，强转永远是 1 —— 位置会算错。
        $st2 = $db->prepare(
            'SELECT COALESCE(MAX(position), 0) FROM person_groups WHERE family_id = ? AND owner_id = ?'
        );
        $st2->execute([$familyId, $ownerId]);
        $max = (int)$st2->fetchColumn();
        $db->prepare(
            'INSERT INTO person_groups (family_id, owner_id, name, position, is_builtin)
             VALUES (?, ?, ?, ?, 0)'
        )->execute([$familyId, $ownerId, $name, max($max + 10, 80)]);
        return ['ok' => true, 'id' => (int)$db->lastInsertId()];
    }

    /**
     * 改名。$ownerId 用来确认"你改的是你自己那一套里的分组"——
     * 公共分组只有管理员能改（调用方把关），别人的私自分组连管理员也不该动。
     * @return array{ok:bool,error?:string}
     */
    public static function rename(int $familyId, int $id, string $name, int $ownerId): array
    {
        $ownerId = max(0, $ownerId);
        $name = trim($name);
        $bad  = self::validateName($name);
        if ($bad !== '') {
            return ['ok' => false, 'error' => $bad];
        }
        $db = Database::get();
        $own = $db->prepare(
            'SELECT COUNT(*) FROM person_groups WHERE family_id = ? AND owner_id = ? AND id = ?'
        );
        $own->execute([$familyId, $ownerId, $id]);
        if ((int)$own->fetchColumn() === 0) {
            return ['ok' => false, 'error' => '找不到这个分组（可能不是你那一套里的）。'];
        }
        $st = $db->prepare(
            'SELECT COUNT(*) FROM person_groups WHERE family_id = ? AND owner_id = ? AND name = ? AND id <> ?'
        );
        $st->execute([$familyId, $ownerId, $name, $id]);
        if ((int)$st->fetchColumn() > 0) {
            return ['ok' => false, 'error' => '已经有叫「' . $name . '」的分组了。'];
        }
        $up = $db->prepare(
            'UPDATE person_groups SET name = ? WHERE family_id = ? AND owner_id = ? AND id = ?'
        );
        $up->execute([$name, $familyId, $ownerId, $id]);
        if ($up->rowCount() === 0) {
            return ['ok' => false, 'error' => '找不到这个分组。'];
        }
        return ['ok' => true];
    }

    /**
     * 删除一个分组。名册里挂在这个分组下的人**不会消失**，只是变成「未分类」——
     * 名册上会多出一个「未分类」栏提醒去归类。
     *
     * 最后一个**公共**分组不给删：全删光就没有任何分类可用了，那是死路。
     * 私自分组可以删到零（公共那套还在，不会没得选）。
     *
     * @return array{ok:bool,error?:string,moved?:int}
     */
    public static function delete(int $familyId, int $id, int $ownerId): array
    {
        $ownerId = max(0, $ownerId);
        $all = self::forOwner($familyId, $ownerId);
        if (!isset($all[$id])) {
            return ['ok' => false, 'error' => '找不到这个分组（可能不是你那一套里的）。'];
        }
        if ($ownerId === self::PUBLIC_OWNER && count($all) <= 1) {
            return ['ok' => false, 'error' => '至少要留一个公共分组 —— 全删光就没法给成员归类了。'];
        }
        $db = Database::get();
        $st = $db->prepare('SELECT COUNT(*) FROM person_roster WHERE group_id = ?');
        $st->execute([$id]);
        $moved = (int)$st->fetchColumn();

        // ⚠️ 释放范围是**所有**名册条目（不限 owner）：公共分组人人都能用，
        //    只清自己那几条会让别人名册里留下指向已删分组的 id（那一栏就永远空着、
        //    而对应的卡片在同一次渲染里彻底消失）。
        $db->prepare('UPDATE person_roster SET group_id = NULL WHERE group_id = ?')->execute([$id]);
        $db->prepare('DELETE FROM person_groups WHERE family_id = ? AND owner_id = ? AND id = ?')
           ->execute([$familyId, $ownerId, $id]);

        // 各人自定义顺序里可能留着这个 id，清掉免得越积越脏
        self::pruneOrder($familyId, $id);
        return ['ok' => true, 'moved' => $moved];
    }

    /** 分组名规则：1–20 字、不许只剩空白 */
    private static function validateName(string $name): string
    {
        if ($name === '') {
            return '分组名不能为空。';
        }
        if (mb_strlen($name, 'UTF-8') > 20) {
            return '分组名请控制在 20 字以内。';
        }
        return '';
    }

    /** 从所有人的自定义顺序里剔除某个分组 id（删组之后调用） */
    private static function pruneOrder(int $familyId, int $removedId): void
    {
        $db = Database::get();
        $st = $db->prepare(
            'SELECT us.person_id, us.v FROM user_settings us
             JOIN persons p ON p.id = us.person_id
             WHERE p.family_id = ? AND us.k = ?'
        );
        $st->execute([$familyId, 'group_order']);
        foreach ($st->fetchAll() as $row) {
            $ids = json_decode((string)$row['v'], true);
            if (!is_array($ids)) {
                continue;
            }
            $keep = array_values(array_filter($ids, fn($x) => (int)$x !== $removedId));
            $prep = $db->prepare('UPDATE user_settings SET v = ? WHERE person_id = ? AND k = ?');
            $prep->execute([json_encode(array_map('intval', $keep)), (int)$row['person_id'], 'group_order']);
        }
    }

    /** 按名字找分组 id（找不到返回 0）。默认在**公共**分组里找。 */
    public static function idByName(int $familyId, string $name, int $ownerId = self::PUBLIC_OWNER): int
    {
        $st = Database::get()->prepare(
            'SELECT id FROM person_groups WHERE family_id = ? AND owner_id = ? AND name = ?'
        );
        $st->execute([$familyId, max(0, $ownerId), $name]);
        return (int)($st->fetchColumn() ?: 0);
    }

    /**
     * 某个分组下有多少人 —— **从我自己的名册里数**。
     *
     * 这是 v5 的关键语义变化：老版本数的是"全家名册里 group_id = 它的有几个人"，
     * 那种数字对"我自己该怎么归类"没有指导意义（别人把人归到哪一组关我什么事）。
     * 现在数的是"我名册里归到这一组的有几个"，用来给个人设置里的分组列表做提示。
     */
    public static function counts(int $familyId, int $ownerId, string $kind = 'member'): array
    {
        $st = Database::get()->prepare(
            'SELECT COALESCE(r.group_id, 0) AS g, COUNT(*) AS n
             FROM person_roster r
             JOIN persons p ON p.id = r.person_id
             WHERE r.family_id = ? AND r.owner_id = ? AND p.kind = ?
             GROUP BY COALESCE(r.group_id, 0)'
        );
        $st->execute([$familyId, $ownerId, $kind]);
        $out = [];
        foreach ($st->fetchAll() as $r) {
            $out[(int)$r['g']] = (int)$r['n'];
        }
        return $out;
    }
}