package agent

import (
	"context"
	"fmt"
	"sort"
	"strings"

	"reasonix/internal/evidence"
)

const defaultReviewMaxSteps = 8
const defaultReviewOutputTokens = 2048

func composeChildTaskPrompt(spec ProfileExecSpec) string {
	var b strings.Builder
	b.WriteString("## Task\n")
	b.WriteString(strings.TrimSpace(spec.Task.Objective))
	if ctx := spec.Context; ctxHasFacts(ctx) {
		if len(ctx.Decisions) > 0 {
			b.WriteString("\n\n## Confirmed decisions\n")
			for _, dec := range ctx.Decisions {
				fmt.Fprintf(&b, "- %s (%s): %s\n", dec.Question, dec.ID, dec.Answer)
			}
		}
		if strings.TrimSpace(ctx.EvidenceSummary) != "" {
			b.WriteString("\n## Evidence summary\n")
			b.WriteString(strings.TrimSpace(ctx.EvidenceSummary))
			b.WriteByte('\n')
		}
		if len(ctx.FileAnchors) > 0 {
			b.WriteString("\n## File anchors\n")
			for _, path := range ctx.FileAnchors {
				fmt.Fprintf(&b, "- %s\n", path)
			}
		}
		if strings.TrimSpace(ctx.OutputFormat) != "" {
			b.WriteString("\n## Output format\n")
			b.WriteString(strings.TrimSpace(ctx.OutputFormat))
			b.WriteByte('\n')
		}
	}
	b.WriteString("\nDo not copy or reconstruct the parent session. Use only this pack plus tools.")
	return strings.TrimSpace(b.String())
}

func ctxHasFacts(ctx ContextRequest) bool {
	return len(ctx.Decisions) > 0 || strings.TrimSpace(ctx.EvidenceSummary) != "" ||
		len(ctx.FileAnchors) > 0 || strings.TrimSpace(ctx.OutputFormat) != ""
}

func applyReviewBudget(spec *ProfileExecSpec) {
	if spec == nil {
		return
	}
	switch strings.TrimSpace(spec.Worker.Profile) {
	case "review", "security-review", "security_review", "team-architect":
		if spec.Sched.MaxSteps <= 0 {
			spec.Sched.MaxSteps = defaultReviewMaxSteps
		}
		if spec.Sched.MaxOutputTokens <= 0 {
			spec.Sched.MaxOutputTokens = defaultReviewOutputTokens
		}
		if strings.TrimSpace(spec.Context.OutputFormat) == "" {
			spec.Context.OutputFormat = "Return structured fields only: verdict, blocking_findings, non_blocking, required_changes. Do not restate full files or full test logs."
		}
	}
}

// PrepareReviewSubagentContext applies the same bounded review contract used
// by task/profile delegation to built-in skill runners. The returned boolean
// is false for non-review profiles so their existing budgets remain unchanged.
func PrepareReviewSubagentContext(ctx context.Context, profile, objective string) (prompt string, maxSteps, maxOutputTokens int, ok bool) {
	spec := ProfileExecSpec{
		Task:   TaskSpec{Objective: objective},
		Worker: WorkerSpec{Profile: profile},
	}
	applyReviewBudget(&spec)
	if spec.Sched.MaxSteps == 0 && spec.Sched.MaxOutputTokens == 0 {
		return objective, 0, 0, false
	}
	fillChildFacts(ctx, &spec)
	return composeChildTaskPrompt(spec), spec.Sched.MaxSteps, spec.Sched.MaxOutputTokens, true
}

type childOutputBudgetKey struct{}

func withChildOutputBudget(ctx context.Context, n int) context.Context {
	if n <= 0 {
		return ctx
	}
	return context.WithValue(ctx, childOutputBudgetKey{}, n)
}

func childOutputBudgetFrom(ctx context.Context) int {
	n, _ := ctx.Value(childOutputBudgetKey{}).(int)
	return n
}

func fillChildFacts(ctx context.Context, spec *ProfileExecSpec) {
	if spec == nil {
		return
	}
	if len(spec.Context.Decisions) == 0 {
		if turn := turnStateFrom(ctx); turn != nil {
			spec.Context.Decisions = turn.loop.snapshotDecisions()
		}
	}
	ledger, ok := evidence.FromContext(ctx)
	if !ok {
		return
	}
	summary, anchors := compactParentFacts(ledger)
	if spec.Context.EvidenceSummary == "" {
		spec.Context.EvidenceSummary = summary
	}
	if len(spec.Context.FileAnchors) == 0 {
		spec.Context.FileAnchors = anchors
	}
}

func compactParentFacts(ledger *evidence.Ledger) (string, []string) {
	if ledger == nil {
		return "", nil
	}
	receipts := ledger.Receipts()
	successes, mutations, reads := 0, 0, 0
	seen := map[string]bool{}
	var anchors []string
	for _, rec := range receipts {
		if !rec.Success {
			continue
		}
		successes++
		if rec.Mutation || rec.Write {
			mutations++
		}
		if rec.Read {
			reads++
		}
		for _, path := range rec.Paths {
			if path == "" || seen[path] {
				continue
			}
			seen[path] = true
			if len(anchors) < 16 {
				anchors = append(anchors, path)
			}
		}
	}
	sort.Strings(anchors)
	if successes == 0 {
		return "", anchors
	}
	var facts []string
	for i := len(receipts) - 1; i >= 0 && len(facts) < 12; i-- {
		rec := receipts[i]
		if !rec.Success {
			continue
		}
		kind := "other"
		switch {
		case rec.Mutation || rec.Write:
			kind = "write"
		case rec.Read:
			kind = "read"
		}
		line := fmt.Sprintf("- tool=%s kind=%s paths=%d output_bytes=%d", rec.ToolName, kind, len(rec.Paths), rec.OutputBytes)
		if rec.Verification != "" {
			line += " verification=" + rec.Verification
		}
		if rec.ExitCode != nil {
			line += fmt.Sprintf(" exit_code=%d", *rec.ExitCode)
		}
		if rec.OutputDigest != "" {
			digest := rec.OutputDigest
			if len(digest) > 12 {
				digest = digest[:12]
			}
			line += " output_digest=" + digest
		}
		facts = append(facts, line)
	}
	for left, right := 0, len(facts)-1; left < right; left, right = left+1, right-1 {
		facts[left], facts[right] = facts[right], facts[left]
	}
	return fmt.Sprintf("%d successful receipts (%d mutations, %d reads).\n%s", successes, mutations, reads, strings.Join(facts, "\n")), anchors
}