package control

import (
	"encoding/json"
	"errors"
	"fmt"
	"log/slog"
	"sync/atomic"

	"reasonix/internal/checkpoint"
	"reasonix/internal/diff"
	"reasonix/internal/event"
	"reasonix/internal/provider"
)

// ErrRewindCoverageConfirmationRequired is returned by the compatibility
// Rewind path when restoring files from a partially covered checkpoint. New
// callers should preview with PrepareRewind, show the coverage warning, and
// commit only after the user explicitly confirms it.
var ErrRewindCoverageConfirmationRequired = errors.New("partial checkpoint coverage requires explicit confirmation")

// RewindPlanRequiresConfirmation reports whether a prepared plan can restore
// files but cannot guarantee that every workspace mutation was captured.
func RewindPlanRequiresConfirmation(plan checkpoint.RewindPlan) bool {
	wantsFiles := plan.Scope == checkpoint.RewindCode || plan.Scope == checkpoint.RewindBoth
	if !wantsFiles || !plan.CanFiles {
		return false
	}
	if plan.ExpiredFilePayload || plan.Legacy {
		return true
	}
	return checkpoint.HasProjectCoverageGap(plan.CoverageGaps)
}

// conversationApplier bridges checkpoint transactions to controller session state.
type conversationApplier struct {
	c *Controller
}

func (a conversationApplier) ApplyConversationTruncate(boundary int, forward []byte) error {
	c := a.c
	if c.executor == nil {
		return fmt.Errorf("executor unavailable")
	}
	s := c.executor.Session()
	msgs := s.Snapshot()
	if boundary > len(msgs) {
		return fmt.Errorf("conversation rewind unavailable: the conversation was compacted past this point")
	}
	if len(forward) == 0 {
		var err error
		forward, err = json.Marshal(msgs)
		if err != nil {
			return err
		}
	}
	s.Rewrite(msgs[:boundary], "rewind_truncate")
	// Drop the projection only when the truncation reached into the folded
	// prefix; a tail-only rewind keeps the covered prefix byte-identical.
	c.executor.InvalidateProjectionIfStale()
	if err := c.SnapshotRewrite(); err != nil {
		_ = a.RestoreConversation(forward)
		return fmt.Errorf("persist conversation after rewind: %w", err)
	}
	return nil
}

func (a conversationApplier) RestoreConversation(forward []byte) error {
	c := a.c
	if c.executor == nil {
		return fmt.Errorf("executor unavailable")
	}
	var msgs []provider.Message
	if err := json.Unmarshal(forward, &msgs); err != nil {
		return err
	}
	c.executor.Session().Rewrite(msgs, "rewind_restore")
	c.executor.InvalidateProjectionIfStale()
	if err := c.SnapshotRewrite(); err != nil {
		return fmt.Errorf("restore conversation: %w", err)
	}
	return nil
}

func (a conversationApplier) TruncateCheckpoints(fromTurn int) error {
	return a.c.checkpoints.truncateFrom(fromTurn)
}

func (a conversationApplier) RestoreCheckpoints(backup []byte) error {
	store := a.c.checkpoints.storeRef()
	if store == nil {
		return fmt.Errorf("checkpoints unavailable")
	}
	if err := store.RestoreCheckpointBackupPublic(backup); err != nil {
		return err
	}
	bounds := store.Bounds()
	a.c.checkpoints.mu.Lock()
	a.c.checkpoints.bound = bounds
	a.c.checkpoints.turn = store.NextTurn()
	a.c.checkpoints.mu.Unlock()
	return nil
}

// PrepareRewind validates that a rewind can proceed without mutating state.
func (c *Controller) PrepareRewind(turn int, scope RewindScope) (checkpoint.RewindPlan, error) {
	if !c.checkpoints.enabled() || c.executor == nil {
		return checkpoint.RewindPlan{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if err := c.beginRotation(); err != nil {
		if errors.Is(err, errTurnRunningRotation) {
			return checkpoint.RewindPlan{}, c.rewindFail(fmt.Errorf("cannot rewind while a turn is running"))
		}
		return checkpoint.RewindPlan{}, c.rewindFail(err)
	}
	// Release rotation before file precheck I/O.
	c.endRotation()

	boundary, hasBound := c.checkpoints.boundary(turn)
	store := c.checkpoints.storeRef()
	if store == nil {
		return checkpoint.RewindPlan{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if obs := c.mutationObserver; obs != nil {
		store.SetActiveWriters(obs.ActiveWriters())
	}
	rev := atomic.LoadInt64(&c.sessionRevision)
	plan, err := store.PrepareRewind(turn, checkpoint.RewindScope(scope), rev, boundary, hasBound)
	if err != nil {
		return plan, c.rewindFail(err)
	}
	if scope == RewindConversation || scope == RewindBoth {
		store.MarkPlanConversationFork(plan.PlanID)
		plan.ConversationAction = "fork"
	}
	if scope == RewindBoth && !plan.CanConversation {
		plan.CanFiles = false
		if plan.DisabledReason == "" {
			plan.DisabledReason = "conversation boundary unavailable"
		}
	}
	return plan, nil
}

// CommitRewind executes a prepared plan under rotation gate + mutation barrier.
// Conversation forks are returned detached so multi-tab frontends can keep the
// parent controller; single-session frontends must activate result.Branch.
func (c *Controller) CommitRewind(planID string) (checkpoint.RewindResult, error) {
	if !c.checkpoints.enabled() || c.executor == nil {
		return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if err := c.beginRotation(); err != nil {
		if errors.Is(err, errTurnRunningRotation) {
			return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("cannot rewind while a turn is running"))
		}
		return checkpoint.RewindResult{}, c.rewindFail(err)
	}
	defer c.endRotation()

	store := c.checkpoints.storeRef()
	if store == nil {
		return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if err := store.ValidatePlanSessionRevision(planID, atomic.LoadInt64(&c.sessionRevision)); err != nil {
		conflict := checkpoint.RewindConflict{Reason: checkpoint.ConflictStalePlan}
		return checkpoint.RewindResult{OK: false, Error: err.Error(), Conflicts: []checkpoint.RewindConflict{conflict}}, c.rewindFail(err)
	}

	forward, err := json.Marshal(c.executor.Session().Snapshot())
	if err != nil {
		return checkpoint.RewindResult{}, c.rewindFail(err)
	}

	result, err := c.commitRewindReady(store, planID, forward, false, false)
	if err != nil {
		return result, c.rewindFail(err)
	}
	if result.OK {
		if len(result.Written) > 0 || len(result.Deleted) > 0 {
			c.sink.Emit(event.Event{Kind: event.Notice, Level: event.LevelInfo,
				Text: fmt.Sprintf("rewound code — %d file(s) restored, %d removed", len(result.Written), len(result.Deleted))})
		}
		if result.ConversationForked {
			c.sink.Emit(event.Event{Kind: event.Notice, Level: event.LevelInfo,
				Text: "forked conversation; parent session is unchanged"})
		}
		atomic.AddInt64(&c.sessionRevision, 1)
	}
	return result, nil
}

// CommitFileRewind commits only the file half of a prepared plan.
func (c *Controller) CommitFileRewind(planID string) (checkpoint.RewindResult, error) {
	if !c.checkpoints.enabled() || c.executor == nil {
		return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if err := c.beginRotation(); err != nil {
		if errors.Is(err, errTurnRunningRotation) {
			return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("cannot rewind while a turn is running"))
		}
		return checkpoint.RewindResult{}, c.rewindFail(err)
	}
	defer c.endRotation()
	store := c.checkpoints.storeRef()
	if store == nil {
		return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	return c.commitRewindReady(store, planID, nil, true, false)
}

func (c *Controller) commitRewindReady(store *checkpoint.Store, planID string, forward []byte, filesOnly, switchToFork bool) (checkpoint.RewindResult, error) {
	plan, ok := store.PeekPlan(planID)
	if !ok {
		return checkpoint.RewindResult{OK: false, Error: "unknown or expired plan"}, fmt.Errorf("unknown or expired plan %q", planID)
	}
	result := checkpoint.RewindResult{}
	wantConv := !filesOnly && (plan.Scope == checkpoint.RewindConversation || plan.Scope == checkpoint.RewindBoth)
	wantFiles := plan.Scope == checkpoint.RewindCode || plan.Scope == checkpoint.RewindBoth
	if wantConv {
		path, err := c.forkNamedReady(plan.Turn, "", switchToFork)
		if err != nil {
			return result, err
		}
		result.ConversationForked = true
		result.ConversationOK = true
		result.Branch = path
	}
	if wantFiles {
		fileResult, err := store.CommitRewindWithForward(planID, forward, conversationApplier{c: c}, nil)
		if err != nil {
			if result.ConversationForked {
				fileResult.Partial = true
				fileResult.OK = true
				fileResult.ConversationForked = true
				fileResult.ConversationOK = true
				fileResult.Branch = result.Branch
				fileResult.Error = err.Error()
				return fileResult, nil
			}
			return fileResult, err
		}
		fileResult.ConversationForked = result.ConversationForked
		fileResult.ConversationOK = result.ConversationOK || fileResult.ConversationOK
		fileResult.Branch = result.Branch
		if fileResult.OperationID == "" {
			fileResult.OperationID = fileResult.TransactionID
		}
		return fileResult, nil
	}
	_ = store.DiscardPlan(planID)
	result.OK = result.ConversationForked
	return result, nil
}

// UndoRewind reverses the last committed rewind transaction when still available.
func (c *Controller) UndoRewind(transactionID string) (checkpoint.RewindResult, error) {
	if !c.checkpoints.enabled() || c.executor == nil {
		return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if err := c.beginRotation(); err != nil {
		if errors.Is(err, errTurnRunningRotation) {
			return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("cannot undo rewind while a turn is running"))
		}
		return checkpoint.RewindResult{}, c.rewindFail(err)
	}
	defer c.endRotation()

	store := c.checkpoints.storeRef()
	if store == nil {
		return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	result, err := store.UndoRewind(transactionID, conversationApplier{c: c})
	if err != nil {
		return result, c.rewindFail(err)
	}
	if result.OK {
		atomic.AddInt64(&c.sessionRevision, 1)
		c.sink.Emit(event.Event{Kind: event.Notice, Level: event.LevelInfo, Text: "undid last rewind"})
	}
	return result, nil
}

// PrepareFileRevert prepares a single-file restore to the session's first-touch preimage.
func (c *Controller) PrepareFileRevert(path string) (checkpoint.RewindPlan, error) {
	if !c.checkpoints.enabled() || c.executor == nil {
		return checkpoint.RewindPlan{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	store := c.checkpoints.storeRef()
	if store == nil {
		return checkpoint.RewindPlan{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	state, ok := store.FileState(path)
	if !ok {
		return checkpoint.RewindPlan{
			Path: path, CanFiles: false, DisabledReason: "file is not session-owned",
		}, nil
	}
	_ = state
	return store.PrepareFileRevert(path, atomic.LoadInt64(&c.sessionRevision))
}

// CommitFileRevert commits a single-file restore with optional conflict resolution.
func (c *Controller) CommitFileRevert(planID string, resolution checkpoint.ConflictResolution) (checkpoint.RewindResult, error) {
	if !c.checkpoints.enabled() || c.executor == nil {
		return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if err := c.beginRotation(); err != nil {
		if errors.Is(err, errTurnRunningRotation) {
			return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("cannot revert file while a turn is running"))
		}
		return checkpoint.RewindResult{}, c.rewindFail(err)
	}
	defer c.endRotation()

	store := c.checkpoints.storeRef()
	if store == nil {
		return checkpoint.RewindResult{}, c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if err := store.ValidatePlanSessionRevision(planID, atomic.LoadInt64(&c.sessionRevision)); err != nil {
		conflict := checkpoint.RewindConflict{Reason: checkpoint.ConflictStalePlan}
		return checkpoint.RewindResult{OK: false, Error: err.Error(), Conflicts: []checkpoint.RewindConflict{conflict}}, c.rewindFail(err)
	}
	result, err := store.CommitFileRevert(planID, resolution)
	if err != nil {
		return result, c.rewindFail(err)
	}
	if result.OK {
		atomic.AddInt64(&c.sessionRevision, 1)
	}
	return result, nil
}

// Rewind is the compatibility wrapper used by CLI and existing desktop paths.
// Conversation failures never leave files half-applied for both-scope: files are
// captured first, restored second, and conversation is persisted last with full
// compensation on failure.
func (c *Controller) Rewind(turn int, scope RewindScope) error {
	if !c.checkpoints.enabled() || c.executor == nil {
		return c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if err := c.beginRotation(); err != nil {
		if errors.Is(err, errTurnRunningRotation) {
			return c.rewindFail(fmt.Errorf("cannot rewind while a turn is running"))
		}
		return c.rewindFail(err)
	}
	defer c.endRotation()

	boundary, hasBound := c.checkpoints.boundary(turn)
	var forward []byte
	if scope == RewindConversation || scope == RewindBoth {
		if !hasBound {
			return c.rewindFail(fmt.Errorf("conversation rewind unavailable for turn %d (resumed session)", turn))
		}
		msgs := c.executor.Session().Snapshot()
		if boundary > len(msgs) {
			return c.rewindFail(fmt.Errorf("conversation rewind unavailable for turn %d: the conversation was compacted past this point", turn))
		}
		var err error
		forward, err = json.Marshal(msgs)
		if err != nil {
			return c.rewindFail(err)
		}
	}
	store := c.checkpoints.storeRef()
	if store == nil {
		return c.rewindFail(fmt.Errorf("checkpoints unavailable"))
	}
	if obs := c.mutationObserver; obs != nil {
		store.SetActiveWriters(obs.ActiveWriters())
	}
	rev := atomic.LoadInt64(&c.sessionRevision)
	plan, err := store.PrepareRewind(turn, checkpoint.RewindScope(scope), rev, boundary, hasBound)
	if err != nil {
		return c.rewindFail(err)
	}
	if scope == RewindConversation || scope == RewindBoth {
		store.MarkPlanConversationFork(plan.PlanID)
		plan.ConversationAction = "fork"
	}
	if (scope == RewindCode || scope == RewindBoth) && !plan.CanFiles {
		return c.rewindFail(fmt.Errorf("%s", plan.DisabledReason))
	}
	if (scope == RewindConversation || scope == RewindBoth) && !plan.CanConversation {
		return c.rewindFail(fmt.Errorf("%s", plan.DisabledReason))
	}
	if RewindPlanRequiresConfirmation(plan) {
		return c.rewindFail(fmt.Errorf("%w (%d coverage gap(s))", ErrRewindCoverageConfirmationRequired, len(plan.CoverageGaps)))
	}
	if forward == nil {
		forward, err = json.Marshal(c.executor.Session().Snapshot())
		if err != nil {
			return c.rewindFail(err)
		}
	}
	result, err := c.commitRewindReady(store, plan.PlanID, forward, scope == RewindCode, true)
	if err != nil {
		return c.rewindFail(err)
	}
	if len(result.Written) > 0 || len(result.Deleted) > 0 {
		c.sink.Emit(event.Event{Kind: event.Notice, Level: event.LevelInfo,
			Text: fmt.Sprintf("rewound code to turn %d — %d file(s) restored, %d removed", turn, len(result.Written), len(result.Deleted))})
	}
	if result.ConversationForked {
		c.sink.Emit(event.Event{Kind: event.Notice, Level: event.LevelInfo,
			Text: fmt.Sprintf("forked conversation at turn %d; parent session unchanged (%s)", turn, result.Branch)})
	}
	if result.Partial {
		c.sink.Emit(event.Event{Kind: event.Notice, Level: event.LevelWarn,
			Text: "session branch created; code was not fully restored because of a conflict"})
	}
	atomic.AddInt64(&c.sessionRevision, 1)
	return nil
}

func (c *Controller) recoverCheckpointTransactions() {
	store := c.checkpoints.storeRef()
	if store == nil || c.executor == nil {
		return
	}
	for _, note := range store.RecoverTransactionsWithApplier(conversationApplier{c: c}) {
		slog.Info("controller: checkpoint transaction recovery", "result", note)
	}
}

// wireMutationObserver installs the v2 observer on the executor.
func (c *Controller) wireMutationObserver() {
	store := c.checkpoints.storeRef()
	if store == nil || c.executor == nil {
		return
	}
	obs := checkpoint.NewMutationObserver(checkpoint.ObserverOptions{
		Store:    store,
		WriterID: "root",
	})
	c.mutationObserver = obs
	c.executor.SetMutationObserver(obs)
	// Keep legacy pre-edit hook as a secondary path when observer is absent on
	// a cloned agent; with observer set, BeforeMutation is preferred.
	c.executor.SetPreEditHook(func(ch diff.Change) {
		if c.mutationObserver != nil {
			c.mutationObserver.BeforeMutationFromChange(ch, "legacy_hook")
			return
		}
		c.checkpoints.snapshot(ch)
	})
}