microclaw-engine 0.10.1

//! Per-turn tool-call guardrails.
//!
//! Sits alongside the existing `recent_tool_call_keys` circuit breaker (which
//! short-circuits identical-(tool,args) calls after N repeats). This module
//! adds two finer-grained signals from hermes-agent's `tool_guardrails.py`:
//!
//! * **Idempotent no-progress**: if a read-only tool returns the same result
//!   hash N times for the same args, append a guidance suffix to the tool
//!   result asking the model to use what it already has instead of repeating.
//! * **Same-tool failure streak**: if any tool fails N times this turn — with
//!   ANY args — append guidance suggesting a different approach.
//!
//! Both signals only emit warnings (the result still goes back to the model);
//! they never block execution. The existing duplicate-call circuit breaker
//! handles the blocking case for identical (tool, args) repeats.
//!
//! The Controller is reset per turn by the agent loop.

use std::collections::HashMap;

use serde::{Deserialize, Serialize};
use sha2::{Digest, Sha256};

use crate::internal::tool_runtime::runtime::{tool_risk, ToolRisk};
use crate::tools::IDEMPOTENT_TOOLS;

/// Pre-tool-call policy mode. `Off` preserves historical behavior (no policy
/// evaluation at all); `Warn` logs violations to the audit trail but lets the
/// call run; `Block` short-circuits the call with an error tool_result.
#[derive(Debug, Clone, Copy, PartialEq, Eq, Default, Deserialize, Serialize)]
#[serde(rename_all = "lowercase")]
pub enum ToolPolicyMode {
    #[default]
    Off,
    Warn,
    Block,
}

/// Config-driven pre-tool-call policy (`tool_policy` in config.yaml).
///
/// Complements the warn-only loop guardrails below: where `GuardrailController`
/// nudges the model out of unproductive loops, this policy is a hard gate the
/// operator sets ahead of time. Default mode is `off` — existing deployments
/// see no behavior change.
#[derive(Debug, Clone, Deserialize, Serialize)]
pub struct ToolPolicyConfig {
    #[serde(default)]
    pub mode: ToolPolicyMode,
    /// Tool names that are always denied (subject to `mode`).
    #[serde(default)]
    pub deny_tools: Vec<String>,
    /// Highest permitted risk tier: low | medium | high. Tools whose built-in
    /// risk exceeds this are denied. Unset = all tiers permitted. Typos are
    /// rejected at config load (typed enum).
    #[serde(default)]
    pub max_risk: Option<ToolRisk>,
    /// Tool names exempt from `deny_tools` / `max_risk` (allow wins).
    #[serde(default)]
    pub allow_tools: Vec<String>,
    /// Per-chat/per-principal capability enforcement. Separate from the
    /// global mode so deployments can introduce grants in warn mode first.
    #[serde(default)]
    pub grants_mode: ToolPolicyMode,
    #[serde(default = "default_control_chat_grant_bypass")]
    pub control_chat_bypass: bool,
    #[serde(default)]
    pub grants: Vec<ToolGrantRule>,
}

impl Default for ToolPolicyConfig {
    fn default() -> Self {
        Self {
            mode: ToolPolicyMode::Off,
            deny_tools: Vec::new(),
            max_risk: None,
            allow_tools: Vec::new(),
            grants_mode: ToolPolicyMode::Off,
            control_chat_bypass: true,
            grants: Vec::new(),
        }
    }
}

fn default_control_chat_grant_bypass() -> bool {
    true
}

#[derive(Debug, Clone, Default, Deserialize, Serialize)]
pub struct ToolGrantRule {
    /// Omit to match every chat.
    #[serde(default)]
    pub chat_id: Option<i64>,
    /// Omit to match every channel.
    #[serde(default)]
    pub channel: Option<String>,
    /// Exact principal or trailing wildcard (`subagent:*`). Omit for all.
    #[serde(default)]
    pub principal: Option<String>,
    /// Capability allowlist. `*` permits all tools subject to deny/max_risk.
    #[serde(default)]
    pub allow_tools: Vec<String>,
    #[serde(default)]
    pub deny_tools: Vec<String>,
    #[serde(default)]
    pub max_risk: Option<ToolRisk>,
}

/// Outcome of evaluating one pending tool call against the policy.
#[derive(Debug, Clone, PartialEq, Eq)]
pub enum PolicyDecision {
    Allow,
    /// Violation under `warn` mode: execute, but audit-log the reason.
    Warn(String),
    /// Violation under `block` mode: short-circuit with this reason.
    Block(String),
}

/// Evaluate `tool_name` against the configured policy. Pure — callers handle
/// audit logging and short-circuiting.
pub fn evaluate_tool_policy(cfg: &ToolPolicyConfig, tool_name: &str) -> PolicyDecision {
    evaluate_tool_policy_with_risk(cfg, tool_name, tool_risk(tool_name))
}

/// Like [`evaluate_tool_policy`] but with the tool's effective risk supplied
/// by the caller — used when a registration-time override (e.g. an MCP
/// server trust tier) replaces the name-derived risk.
pub fn evaluate_tool_policy_with_risk(
    cfg: &ToolPolicyConfig,
    tool_name: &str,
    risk: crate::internal::tool_runtime::runtime::ToolRisk,
) -> PolicyDecision {
    if cfg.mode == ToolPolicyMode::Off {
        return PolicyDecision::Allow;
    }
    if cfg.allow_tools.iter().any(|t| t == tool_name) {
        return PolicyDecision::Allow;
    }
    let violation = if cfg.deny_tools.iter().any(|t| t == tool_name) {
        Some(format!("tool `{tool_name}` is in tool_policy.deny_tools"))
    } else {
        match cfg.max_risk {
            Some(max_risk) if risk > max_risk => Some(format!(
                "tool `{tool_name}` risk `{}` exceeds tool_policy.max_risk `{}`",
                risk.as_str(),
                max_risk.as_str()
            )),
            _ => None,
        }
    };
    match violation {
        None => PolicyDecision::Allow,
        Some(reason) => {
            if cfg.mode == ToolPolicyMode::Block {
                PolicyDecision::Block(reason)
            } else {
                PolicyDecision::Warn(reason)
            }
        }
    }
}

/// Evaluate the global policy and the caller's least-privilege capability
/// grants. A grant never weakens a global block.
pub fn evaluate_tool_policy_for_auth(
    cfg: &ToolPolicyConfig,
    tool_name: &str,
    auth: &crate::internal::tool_runtime::runtime::ToolAuthContext,
) -> PolicyDecision {
    evaluate_tool_policy_for_auth_with_risk(cfg, tool_name, auth, tool_risk(tool_name))
}

/// Like [`evaluate_tool_policy_for_auth`] but with the tool's effective risk
/// supplied by the caller (registration-time overrides such as MCP server
/// trust tiers).
pub fn evaluate_tool_policy_for_auth_with_risk(
    cfg: &ToolPolicyConfig,
    tool_name: &str,
    auth: &crate::internal::tool_runtime::runtime::ToolAuthContext,
    risk: crate::internal::tool_runtime::runtime::ToolRisk,
) -> PolicyDecision {
    let global = evaluate_tool_policy_with_risk(cfg, tool_name, risk);
    if matches!(global, PolicyDecision::Block(_))
        || cfg.grants_mode == ToolPolicyMode::Off
        || (cfg.control_chat_bypass && auth.is_control_chat())
    {
        return global;
    }

    let matching: Vec<&ToolGrantRule> = cfg
        .grants
        .iter()
        .filter(|rule| grant_matches(rule, auth))
        .collect();
    let violation = if matching.is_empty() {
        Some(format!(
            "no tool grant matches chat {} principal `{}`",
            auth.caller_chat_id, auth.principal
        ))
    } else if matching
        .iter()
        .any(|rule| tool_list_contains(&rule.deny_tools, tool_name))
    {
        Some(format!(
            "tool `{tool_name}` is denied for principal `{}`",
            auth.principal
        ))
    } else if matching
        .iter()
        .any(|rule| rule.max_risk.is_some_and(|max_risk| risk > max_risk))
    {
        Some(format!(
            "tool `{tool_name}` risk `{}` exceeds a matching capability grant",
            risk.as_str()
        ))
    } else if !matching
        .iter()
        .any(|rule| tool_list_contains(&rule.allow_tools, tool_name))
    {
        Some(format!(
            "tool `{tool_name}` is not granted to chat {} principal `{}`",
            auth.caller_chat_id, auth.principal
        ))
    } else {
        None
    };

    match violation {
        Some(reason) if cfg.grants_mode == ToolPolicyMode::Block => PolicyDecision::Block(reason),
        Some(reason) => PolicyDecision::Warn(reason),
        None => global,
    }
}

fn grant_matches(
    rule: &ToolGrantRule,
    auth: &crate::internal::tool_runtime::runtime::ToolAuthContext,
) -> bool {
    rule.chat_id
        .is_none_or(|chat_id| chat_id == auth.caller_chat_id)
        && rule
            .channel
            .as_deref()
            .is_none_or(|channel| channel.eq_ignore_ascii_case(&auth.caller_channel))
        && rule
            .principal
            .as_deref()
            .is_none_or(|principal| wildcard_match(principal, &auth.principal))
}

fn wildcard_match(pattern: &str, value: &str) -> bool {
    pattern
        .strip_suffix('*')
        .map_or(pattern == value, |prefix| value.starts_with(prefix))
}

fn tool_list_contains(list: &[String], tool_name: &str) -> bool {
    list.iter()
        .any(|pattern| pattern == "*" || wildcard_match(pattern, tool_name))
}

/// Default thresholds (keeping warnings light — these are nudges, not gates).
const NO_PROGRESS_WARN_AFTER: usize = 2;
const SAME_TOOL_FAILURE_WARN_AFTER: usize = 3;

#[derive(Default)]
pub struct GuardrailController {
    /// (tool_name, args_hash) -> (last_result_hash, repeat_count)
    no_progress: HashMap<(String, String), (String, usize)>,
    /// tool_name -> failure_count
    same_tool_failures: HashMap<String, usize>,
}

impl GuardrailController {
    pub fn new() -> Self {
        Self::default()
    }

    pub fn reset_for_turn(&mut self) {
        self.no_progress.clear();
        self.same_tool_failures.clear();
    }

    /// Record a tool result and return an optional guidance suffix to append
    /// to the tool's result content.
    pub fn after_call(
        &mut self,
        tool_name: &str,
        args_hash: &str,
        result: &str,
        failed: bool,
    ) -> Option<String> {
        if failed {
            // Reset no-progress tracking for this signature; failure isn't
            // "no progress", it's "regression".
            self.no_progress
                .remove(&(tool_name.to_string(), args_hash.to_string()));
            let count = self
                .same_tool_failures
                .entry(tool_name.to_string())
                .or_insert(0);
            *count += 1;
            if *count >= SAME_TOOL_FAILURE_WARN_AFTER {
                return Some(format!(
                    "\n\n[Tool loop warning: `{tool_name}` has failed {count} time(s) this turn. \
                     This looks like a loop — change approach (different tool, different inputs, \
                     or summarize what you know and proceed) before retrying.]"
                ));
            }
            return None;
        }

        // Successful call — reset failure streak for this tool.
        self.same_tool_failures.remove(tool_name);

        if !is_idempotent(tool_name) {
            return None;
        }

        let result_hash = hash_str(result);
        let key = (tool_name.to_string(), args_hash.to_string());
        let entry = self
            .no_progress
            .entry(key)
            .or_insert((result_hash.clone(), 0));
        if entry.0 == result_hash {
            entry.1 += 1;
        } else {
            *entry = (result_hash, 1);
        }
        let count = entry.1;
        if count >= NO_PROGRESS_WARN_AFTER {
            return Some(format!(
                "\n\n[Tool loop warning: `{tool_name}` has returned the same result \
                 {count} time(s) for the same arguments. Use the result you already have \
                 — re-running it won't change the answer.]"
            ));
        }
        None
    }
}

fn is_idempotent(tool_name: &str) -> bool {
    IDEMPOTENT_TOOLS.contains(&tool_name)
}

fn hash_str(s: &str) -> String {
    let mut hasher = Sha256::new();
    hasher.update(s.as_bytes());
    let digest = hasher.finalize();
    // First 16 hex chars are plenty for collision resistance within a turn.
    format!("{:x}", digest)[..16].to_string()
}

#[cfg(test)]
mod tests {
    use super::*;

    fn cfg(mode: ToolPolicyMode) -> ToolPolicyConfig {
        ToolPolicyConfig {
            mode,
            ..Default::default()
        }
    }

    #[test]
    fn policy_off_allows_everything() {
        let mut c = cfg(ToolPolicyMode::Off);
        c.deny_tools = vec!["bash".into()];
        c.max_risk = Some(ToolRisk::Low);
        assert_eq!(evaluate_tool_policy(&c, "bash"), PolicyDecision::Allow);
    }

    #[test]
    fn policy_blocks_denied_tool() {
        let mut c = cfg(ToolPolicyMode::Block);
        c.deny_tools = vec!["bash".into()];
        assert!(matches!(
            evaluate_tool_policy(&c, "bash"),
            PolicyDecision::Block(_)
        ));
        assert_eq!(evaluate_tool_policy(&c, "read_file"), PolicyDecision::Allow);
    }

    #[test]
    fn policy_warn_mode_warns_not_blocks() {
        let mut c = cfg(ToolPolicyMode::Warn);
        c.deny_tools = vec!["bash".into()];
        assert!(matches!(
            evaluate_tool_policy(&c, "bash"),
            PolicyDecision::Warn(_)
        ));
    }

    #[test]
    fn policy_max_risk_blocks_higher_tiers() {
        let mut c = cfg(ToolPolicyMode::Block);
        c.max_risk = Some(ToolRisk::Medium);
        // bash is High risk -> blocked
        assert!(matches!(
            evaluate_tool_policy(&c, "bash"),
            PolicyDecision::Block(_)
        ));
        // write_file is Medium -> allowed at max_risk=medium
        assert_eq!(
            evaluate_tool_policy(&c, "write_file"),
            PolicyDecision::Allow
        );
        // read_file is Low -> allowed
        assert_eq!(evaluate_tool_policy(&c, "read_file"), PolicyDecision::Allow);
    }

    #[test]
    fn policy_max_risk_covers_mcp_tools() {
        // MCP tools rate Medium by default, so max_risk=low restricts them.
        let mut c = cfg(ToolPolicyMode::Block);
        c.max_risk = Some(ToolRisk::Low);
        assert!(matches!(
            evaluate_tool_policy(&c, "mcp_fs_delete_file"),
            PolicyDecision::Block(_)
        ));
    }

    #[test]
    fn policy_with_risk_override_replaces_name_derived_risk() {
        // Server trust tiers pass an explicit risk that replaces the
        // name-derived Medium for MCP tools in both directions.
        let mut c = cfg(ToolPolicyMode::Block);
        c.max_risk = Some(ToolRisk::Medium);
        // Uniform default: allowed at medium.
        assert!(matches!(
            evaluate_tool_policy(&c, "mcp_fs_delete_file"),
            PolicyDecision::Allow
        ));
        // Sandboxed server → High: blocked at medium.
        assert!(matches!(
            evaluate_tool_policy_with_risk(&c, "mcp_fs_delete_file", ToolRisk::High),
            PolicyDecision::Block(_)
        ));
        // Trusted server → Low: allowed even at max_risk=low.
        c.max_risk = Some(ToolRisk::Low);
        assert!(matches!(
            evaluate_tool_policy_with_risk(&c, "mcp_fs_delete_file", ToolRisk::Low),
            PolicyDecision::Allow
        ));
    }

    #[test]
    fn policy_allow_list_overrides_deny() {
        let mut c = cfg(ToolPolicyMode::Block);
        c.deny_tools = vec!["bash".into()];
        c.max_risk = Some(ToolRisk::Low);
        c.allow_tools = vec!["bash".into()];
        assert_eq!(evaluate_tool_policy(&c, "bash"), PolicyDecision::Allow);
    }

    #[test]
    fn policy_invalid_max_risk_rejected_at_parse() {
        // Typos now fail at config load instead of runtime fail-closed.
        assert!(
            serde_yaml::from_str::<ToolPolicyConfig>("mode: block\nmax_risk: extreme").is_err()
        );
        let ok: ToolPolicyConfig = serde_yaml::from_str("mode: block\nmax_risk: medium").unwrap();
        assert_eq!(ok.max_risk, Some(ToolRisk::Medium));
    }

    fn auth(
        chat_id: i64,
        principal: &str,
    ) -> crate::internal::tool_runtime::runtime::ToolAuthContext {
        crate::internal::tool_runtime::runtime::ToolAuthContext {
            caller_channel: "telegram".into(),
            caller_chat_id: chat_id,
            principal: principal.into(),
            control_chat_ids: vec![],
            env_files: vec![],
        }
    }

    #[test]
    fn capability_grants_are_chat_and_principal_scoped() {
        let mut config = cfg(ToolPolicyMode::Off);
        config.grants_mode = ToolPolicyMode::Block;
        config.grants = vec![ToolGrantRule {
            chat_id: Some(7),
            principal: Some("subagent:*".into()),
            allow_tools: vec!["read_*".into(), "web_search".into()],
            max_risk: Some(ToolRisk::Low),
            ..Default::default()
        }];

        assert_eq!(
            evaluate_tool_policy_for_auth(&config, "read_file", &auth(7, "subagent:abc")),
            PolicyDecision::Allow
        );
        assert!(matches!(
            evaluate_tool_policy_for_auth(&config, "write_file", &auth(7, "subagent:abc")),
            PolicyDecision::Block(_)
        ));
        assert!(matches!(
            evaluate_tool_policy_for_auth(&config, "read_file", &auth(8, "subagent:abc")),
            PolicyDecision::Block(_)
        ));
        assert!(matches!(
            evaluate_tool_policy_for_auth(&config, "read_file", &auth(7, "main")),
            PolicyDecision::Block(_)
        ));
    }

    #[test]
    fn global_block_cannot_be_weakened_by_grant() {
        let mut config = cfg(ToolPolicyMode::Block);
        config.deny_tools = vec!["bash".into()];
        config.grants_mode = ToolPolicyMode::Block;
        config.grants = vec![ToolGrantRule {
            allow_tools: vec!["*".into()],
            ..Default::default()
        }];
        assert!(matches!(
            evaluate_tool_policy_for_auth(&config, "bash", &auth(7, "main")),
            PolicyDecision::Block(_)
        ));
    }

    #[test]
    fn idempotent_no_progress_warns_on_third_identical() {
        let mut c = GuardrailController::new();
        assert!(c
            .after_call("read_file", "h1", "file contents", false)
            .is_none());
        // 2nd call same args same result => count=2 => warn at threshold (2)
        let warn = c.after_call("read_file", "h1", "file contents", false);
        assert!(warn.is_some());
        assert!(warn.unwrap().contains("same result"));
    }

    #[test]
    fn idempotent_changing_result_does_not_warn() {
        let mut c = GuardrailController::new();
        c.after_call("read_file", "h1", "v1", false);
        c.after_call("read_file", "h1", "v2", false);
        let warn = c.after_call("read_file", "h1", "v3", false);
        assert!(warn.is_none());
    }

    #[test]
    fn mutating_tool_no_warning_on_repeat() {
        let mut c = GuardrailController::new();
        c.after_call("write_file", "h1", "ok", false);
        let warn = c.after_call("write_file", "h1", "ok", false);
        assert!(warn.is_none());
    }

    #[test]
    fn same_tool_failure_streak_warns() {
        let mut c = GuardrailController::new();
        c.after_call("bash", "h1", "err1", true);
        c.after_call("bash", "h2", "err2", true);
        // Third failure (any args) => warn
        let warn = c.after_call("bash", "h3", "err3", true);
        assert!(warn.is_some());
        assert!(warn.unwrap().contains("failed 3"));
    }

    #[test]
    fn success_resets_failure_streak() {
        let mut c = GuardrailController::new();
        c.after_call("bash", "h1", "err1", true);
        c.after_call("bash", "h2", "err2", true);
        c.after_call("bash", "h3", "ok", false);
        // After success, streak resets; next two failures should NOT warn.
        let warn = c.after_call("bash", "h4", "err4", true);
        assert!(warn.is_none());
        let warn = c.after_call("bash", "h5", "err5", true);
        assert!(warn.is_none());
    }

    #[test]
    fn failure_does_not_increment_no_progress() {
        let mut c = GuardrailController::new();
        c.after_call("read_file", "h1", "ok", false);
        c.after_call("read_file", "h1", "err", true);
        let warn = c.after_call("read_file", "h1", "ok", false);
        // Failure cleared the no-progress counter, so we're at count=1 again.
        assert!(warn.is_none());
    }

    #[test]
    fn reset_for_turn_clears_state() {
        let mut c = GuardrailController::new();
        c.after_call("read_file", "h1", "v1", false);
        c.after_call("read_file", "h1", "v1", false);
        c.reset_for_turn();
        let warn = c.after_call("read_file", "h1", "v1", false);
        assert!(warn.is_none());
    }
}