/**
 * Built-in write session tool.
 *
 * Writes files through queued local or injected operations with readback/idempotency metadata.
 */
import {
  mkdir as fsMkdir,
  readFile as fsReadFile,
  stat as fsStat,
  writeFile as fsWriteFile,
} from "node:fs/promises";
import { dirname } from "node:path";
import { Container, Text } from "@earendil-works/pi-tui";
import { structuredPatch, formatPatch, FILE_HEADERS_ONLY } from "diff";
import { Type } from "typebox";
import { isMissingPathError } from "../../../infra/errors.js";
import { captureAgentToolSourceExecutionGuard } from "../../agent-tool-source-execution-guard.js";
import { keyHint } from "../../modes/interactive/components/keybinding-hints.js";
import { getLanguageFromPath, highlightCode } from "../../modes/interactive/theme/theme.js";
import type { AgentTool } from "../../runtime/index.js";
import { textResult } from "../../tools/common.js";
import type { ToolDefinition, ToolRenderResultOptions } from "../extensions/types.js";
import { generateDiffString, generateUnifiedPatch } from "./edit-diff.js";
import {
  resolveFileMutationQueueKey,
  withFileMutationQueueKeyResolution,
} from "./file-mutation-queue.js";
import { type PersistedFileStat, verifyPersistedUtf8File } from "./file-write-verification.js";
import { resolveLocalPathToCwd, resolveToCwd } from "./path-utils.js";
import {
  invalidArgText,
  normalizeDisplayText,
  replaceTabs,
  reuseTextComponent,
  shortenPath,
  str,
  trimTrailingEmptyLines,
} from "./render-utils.js";
import type { WriteToolDetails } from "./tool-contracts.js";
import { wrapToolDefinition } from "./tool-definition-wrapper.js";

const writeSchema = Type.Object({
  path: Type.String({
    description: "File path; relative/absolute.",
  }),
  content: Type.String({ description: "File content." }),
});

const WriteToolOutputSchema = Type.Union([
  Type.Object({ changed: Type.Literal(false) }, { additionalProperties: false }),
  Type.Object(
    {
      changed: Type.Literal(true),
      created: Type.Literal(true),
      diff: Type.String(),
      patch: Type.String(),
      firstChangedLine: Type.Optional(Type.Integer({ minimum: 1 })),
    },
    { additionalProperties: false },
  ),
  Type.Object(
    {
      changed: Type.Literal(true),
      created: Type.Literal(false),
      diff: Type.String(),
      patch: Type.String(),
      firstChangedLine: Type.Optional(Type.Integer({ minimum: 1 })),
    },
    { additionalProperties: false },
  ),
  Type.Object(
    { changed: Type.Literal(true), created: Type.Optional(Type.Boolean()) },
    { additionalProperties: false },
  ),
]);
/**
 * Pluggable operations for the write tool.
 * Override these to delegate file writing to remote systems (for example SSH).
 */
export interface WriteOperations {
  /** Resolve the physical identity used to order this backend's file operations. */
  resolveQueueKey?: (absolutePath: string, signal?: AbortSignal) => string | Promise<string>;
  /** Write content to a file */
  writeFile: (absolutePath: string, content: string) => Promise<void>;
  /** Create directory recursively */
  mkdir: (dir: string) => Promise<void>;
  /** Read persisted content before reporting success */
  readFile: (absolutePath: string) => Promise<Buffer | string>;
  /** Stat the target for prechecks and persisted-file verification */
  statFile: (absolutePath: string) => Promise<PersistedFileStat | null>;
}

const defaultWriteOperations: WriteOperations = {
  writeFile: (path, content) => fsWriteFile(path, content, "utf-8"),
  mkdir: (dir) => fsMkdir(dir, { recursive: true }).then(() => {}),
  readFile: (path) => fsReadFile(path),
  statFile: async (path) => {
    try {
      const stat = await fsStat(path);
      return {
        type: stat.isFile() ? "file" : stat.isDirectory() ? "directory" : "other",
        size: stat.size,
        mtimeMs: stat.mtimeMs,
      } as const;
    } catch (error) {
      if (isMissingPathError(error)) {
        return null;
      }
      throw error;
    }
  },
};

export interface WriteToolOptions {
  /** Custom operations for file writing. Default: local filesystem */
  operations?: WriteOperations;
}

type WriteToolPrecheck = {
  state: "different" | "same" | "unknown";
  beforeStat?: PersistedFileStat | null;
  beforeText?: string;
  readAttempted?: boolean;
};

const WRITE_PRECHECK_READ_LIMIT_BYTES = 1024 * 1024;
const WRITE_DIFF_MAX_COMBINED_LINES = 20_000;
const WRITE_DIFF_MAX_EDIT_LENGTH = 2_000;

function countNewlines(text: string): number {
  let count = 0;
  for (let index = text.indexOf("\n"); index !== -1; index = text.indexOf("\n", index + 1)) {
    count += 1;
  }
  return count;
}

type WriteHighlightCache = {
  rawPath: string | null;
  lang: string;
  rawContent: string;
  normalizedLines: string[];
  highlightedLines: string[];
};

class WriteCallRenderComponent extends Text {
  cache?: WriteHighlightCache;

  constructor() {
    super("", 0, 0);
  }
}

const WRITE_PARTIAL_FULL_HIGHLIGHT_LINES = 50;

function highlightSingleLine(line: string, lang: string): string {
  const highlighted = highlightCode(line, lang);
  return highlighted[0] ?? "";
}

function refreshWriteHighlightPrefix(cache: WriteHighlightCache): void {
  const prefixCount = Math.min(WRITE_PARTIAL_FULL_HIGHLIGHT_LINES, cache.normalizedLines.length);
  if (prefixCount === 0) {
    return;
  }
  const prefixSource = cache.normalizedLines.slice(0, prefixCount).join("\n");
  const prefixHighlighted = highlightCode(prefixSource, cache.lang);
  for (let i = 0; i < prefixCount; i++) {
    cache.highlightedLines[i] =
      prefixHighlighted[i] ?? highlightSingleLine(cache.normalizedLines[i] ?? "", cache.lang);
  }
}

function rebuildWriteHighlightCacheFull(
  rawPath: string | null,
  fileContent: string,
): WriteHighlightCache | undefined {
  const lang = rawPath ? getLanguageFromPath(rawPath) : undefined;
  if (!lang) {
    return undefined;
  }
  const displayContent = normalizeDisplayText(fileContent);
  const normalized = replaceTabs(displayContent);
  return {
    rawPath,
    lang,
    rawContent: fileContent,
    normalizedLines: normalized.split("\n"),
    highlightedLines: highlightCode(normalized, lang),
  };
}

function updateWriteHighlightCacheIncremental(
  cache: WriteHighlightCache | undefined,
  rawPath: string | null,
  fileContent: string,
): WriteHighlightCache | undefined {
  const lang = rawPath ? getLanguageFromPath(rawPath) : undefined;
  if (!lang) {
    return undefined;
  }
  if (!cache) {
    return rebuildWriteHighlightCacheFull(rawPath, fileContent);
  }
  if (cache.lang !== lang || cache.rawPath !== rawPath) {
    return rebuildWriteHighlightCacheFull(rawPath, fileContent);
  }
  if (!fileContent.startsWith(cache.rawContent)) {
    return rebuildWriteHighlightCacheFull(rawPath, fileContent);
  }
  if (fileContent.length === cache.rawContent.length) {
    return cache;
  }

  const deltaRaw = fileContent.slice(cache.rawContent.length);
  const deltaDisplay = normalizeDisplayText(deltaRaw);
  const deltaNormalized = replaceTabs(deltaDisplay);
  cache.rawContent = fileContent;
  if (cache.normalizedLines.length === 0) {
    cache.normalizedLines.push("");
    cache.highlightedLines.push("");
  }

  const segments = deltaNormalized.split("\n");
  const lastIndex = cache.normalizedLines.length - 1;
  const firstSegment = segments.at(0);
  const currentLastLine = cache.normalizedLines.at(lastIndex);
  if (firstSegment === undefined || currentLastLine === undefined) {
    return rebuildWriteHighlightCacheFull(rawPath, fileContent);
  }
  cache.normalizedLines[lastIndex] = currentLastLine + firstSegment;
  cache.highlightedLines[lastIndex] = highlightSingleLine(
    cache.normalizedLines[lastIndex],
    cache.lang,
  );
  for (const segment of segments.slice(1)) {
    cache.normalizedLines.push(segment);
    cache.highlightedLines.push(highlightSingleLine(segment, cache.lang));
  }
  refreshWriteHighlightPrefix(cache);
  return cache;
}

function formatWriteCall(
  args: { path?: string; file_path?: string; content?: string } | undefined,
  options: ToolRenderResultOptions,
  theme: typeof import("../../modes/interactive/theme/theme.js").interactiveAgentTheme,
  cache: WriteHighlightCache | undefined,
): string {
  const rawPath = str(args?.file_path ?? args?.path);
  const fileContent = str(args?.content);
  const path = rawPath !== null ? shortenPath(rawPath) : null;
  const invalidArg = invalidArgText(theme);
  let text = `${theme.fg("toolTitle", theme.bold("write"))} ${path === null ? invalidArg : path ? theme.fg("accent", path) : theme.fg("toolOutput", "...")}`;

  if (fileContent === null) {
    text += `\n\n${theme.fg("error", "[invalid content arg - expected string]")}`;
  } else if (fileContent) {
    const lang = rawPath ? getLanguageFromPath(rawPath) : undefined;
    const renderedLines = lang
      ? (cache?.highlightedLines ??
        highlightCode(replaceTabs(normalizeDisplayText(fileContent)), lang))
      : normalizeDisplayText(fileContent).split("\n");
    const lines = trimTrailingEmptyLines(renderedLines);
    const totalLines = lines.length;
    const maxLines = options.expanded ? lines.length : 10;
    const displayLines = lines.slice(0, maxLines);
    const remaining = lines.length - maxLines;
    text += `\n\n${displayLines.map((line) => (lang ? line : theme.fg("toolOutput", replaceTabs(line)))).join("\n")}`;
    if (remaining > 0) {
      text += `${theme.fg("muted", `\n... (${remaining} more lines, ${totalLines} total,`)} ${keyHint("app.tools.expand", "to expand")})`;
    }
  }

  return text;
}

function formatWriteResult(
  result: {
    content: Array<{
      type: string;
      text?: string;
      data?: string;
      mimeType?: string;
    }>;
    isError?: boolean;
  },
  theme: typeof import("../../modes/interactive/theme/theme.js").interactiveAgentTheme,
): string | undefined {
  if (!result.isError) {
    return undefined;
  }
  const output = result.content
    .filter((c) => c.type === "text")
    .map((c) => c.text || "")
    .join("\n");
  if (!output) {
    return undefined;
  }
  return `\n${theme.fg("error", output)}`;
}

function isMissingFileError(error: unknown): boolean {
  if (isMissingPathError(error)) {
    return true;
  }
  // Injected write operations may preserve only their legacy human-readable error.
  return error instanceof Error && error.message.includes("No such file or directory");
}

async function readOriginalWriteState(
  absolutePath: string,
  content: string,
  ops: WriteOperations,
): Promise<WriteToolPrecheck> {
  let stat: PersistedFileStat | null;
  try {
    stat = await ops.statFile(absolutePath);
  } catch (error) {
    return isMissingFileError(error)
      ? { state: "different", beforeStat: null }
      : { state: "unknown" };
  }
  if (!stat) {
    return { state: "different", beforeStat: stat };
  }
  if (stat.type !== "file") {
    return { state: "unknown", beforeStat: stat };
  }
  if (stat.size !== Buffer.byteLength(content, "utf8")) {
    return { state: "different", beforeStat: stat };
  }
  if (!ops.readFile || stat.size > WRITE_PRECHECK_READ_LIMIT_BYTES) {
    return { state: "unknown", beforeStat: stat };
  }

  try {
    const originalContent = await ops.readFile(absolutePath);
    const originalBytes = Buffer.isBuffer(originalContent)
      ? originalContent
      : Buffer.from(originalContent, "utf8");
    const originalText = originalBytes.toString("utf8");
    if (Buffer.byteLength(originalText, "utf8") > WRITE_PRECHECK_READ_LIMIT_BYTES) {
      return { state: "unknown", beforeStat: stat, readAttempted: true };
    }
    return {
      // No-op receipts need the same encoded bytes as post-write verification.
      state: originalBytes.equals(Buffer.from(content, "utf8")) ? "same" : "different",
      beforeStat: stat,
      beforeText: originalText,
      readAttempted: true,
    };
  } catch {
    return { state: "unknown", beforeStat: stat, readAttempted: true };
  }
}

async function resolveWriteDetails(params: {
  absolutePath: string;
  content: string;
  ops: WriteOperations;
  path: string;
  precheck: WriteToolPrecheck;
}): Promise<WriteToolDetails> {
  if (Buffer.byteLength(params.content, "utf8") > WRITE_PRECHECK_READ_LIMIT_BYTES) {
    // Keep diff work bounded; a partial patch would misrepresent the write.
    if (params.precheck.beforeStat === null) {
      return { changed: true, created: true };
    }
    return params.precheck.beforeStat ? { changed: true, created: false } : { changed: true };
  }
  if (params.precheck.beforeStat === null) {
    // Same line budget as overwrites: a created file's numbered diff is pure
    // duplication of the content and must not balloon the result payload.
    if (countNewlines(params.content) > WRITE_DIFF_MAX_COMBINED_LINES) {
      return { changed: true, created: true };
    }
    const diffResult = generateDiffString("", params.content);
    return {
      changed: true,
      created: true,
      diff: diffResult.diff,
      patch: generateUnifiedPatch(params.path, "", params.content),
      ...(diffResult.firstChangedLine === undefined
        ? {}
        : { firstChangedLine: diffResult.firstChangedLine }),
    };
  }

  const beforeStat = params.precheck.beforeStat;
  let beforeText = params.precheck.beforeText;
  if (
    beforeText === undefined &&
    !params.precheck.readAttempted &&
    beforeStat?.type === "file" &&
    beforeStat.size <= WRITE_PRECHECK_READ_LIMIT_BYTES &&
    params.ops.readFile
  ) {
    const originalContent = await params.ops.readFile(params.absolutePath).catch(() => undefined);
    const candidate = Buffer.isBuffer(originalContent)
      ? originalContent.toString("utf8")
      : originalContent;
    if (
      candidate !== undefined &&
      Buffer.byteLength(candidate, "utf8") <= WRITE_PRECHECK_READ_LIMIT_BYTES
    ) {
      beforeText = candidate;
    }
  }
  // Lossy UTF-8 decoding would publish garbage as authoritative removals.
  if (beforeText !== undefined && (beforeText.includes("\uFFFD") || beforeText.includes("\0"))) {
    beforeText = undefined;
  }
  // Bound Myers-diff work: cost scales with line tokens and edit distance, so
  // cap combined bytes AND lines before running the synchronous generator.
  if (
    beforeText !== undefined &&
    (Buffer.byteLength(beforeText, "utf8") + Buffer.byteLength(params.content, "utf8") >
      WRITE_PRECHECK_READ_LIMIT_BYTES ||
      countNewlines(beforeText) + countNewlines(params.content) > WRITE_DIFF_MAX_COMBINED_LINES)
  ) {
    beforeText = undefined;
  }
  // Reuse the bounded Myers result for both receipts instead of diffing three times.
  const preparedPatch =
    beforeText === undefined
      ? undefined
      : structuredPatch(
          params.path,
          params.path,
          beforeText,
          params.content,
          undefined,
          undefined,
          { context: 4, maxEditLength: WRITE_DIFF_MAX_EDIT_LENGTH },
        );
  if (beforeText !== undefined && preparedPatch !== undefined) {
    const diffResult = generateDiffString(beforeText, params.content, 4, preparedPatch.hunks);
    return {
      changed: true,
      created: false,
      diff: diffResult.diff,
      patch: formatPatch(preparedPatch, FILE_HEADERS_ONLY),
      ...(diffResult.firstChangedLine === undefined
        ? {}
        : { firstChangedLine: diffResult.firstChangedLine }),
    };
  }

  // Without confirmed existence, neither removals nor overwrite status can be asserted.
  return beforeStat ? { changed: true, created: false } : { changed: true };
}

async function didWriteMetadataChange(
  absolutePath: string,
  beforeStat: PersistedFileStat | null | undefined,
  ops: WriteOperations,
): Promise<boolean> {
  if (!beforeStat || !ops.statFile) {
    return false;
  }
  const afterStat = await ops.statFile(absolutePath).catch(() => null);
  if (!afterStat || afterStat.type !== "file") {
    return false;
  }
  return afterStat.size !== beforeStat.size || afterStat.mtimeMs !== beforeStat.mtimeMs;
}

function isWriteRecoveryCandidate(error: unknown, signal: AbortSignal | undefined): boolean {
  if (signal?.aborted) {
    return true;
  }
  if (!(error instanceof Error)) {
    return false;
  }
  const message = error.message.toLowerCase();
  return (
    error.name === "AbortError" ||
    error.name === "TimeoutError" ||
    message.includes("timed out") ||
    message.includes("timeout")
  );
}

function successfulWriteResult(path: string, content: string, details: WriteToolDetails) {
  return textResult(
    `Successfully wrote ${Buffer.byteLength(content, "utf8")} bytes to ${path}`,
    details,
  );
}

async function recoverSuccessfulWrite(params: {
  absolutePath: string;
  content: string;
  error: unknown;
  ops: WriteOperations;
  path: string;
  precheck: WriteToolPrecheck;
  details: WriteToolDetails;
  signal?: AbortSignal;
}) {
  if (!isWriteRecoveryCandidate(params.error, params.signal)) {
    return null;
  }
  const verified = await verifyPersistedUtf8File(params.absolutePath, params.content, params.ops);
  const changed =
    params.precheck.state === "different" ||
    (params.precheck.state === "unknown" &&
      (await didWriteMetadataChange(params.absolutePath, params.precheck.beforeStat, params.ops)));
  if (!verified || !changed) {
    return null;
  }
  return successfulWriteResult(params.path, params.content, params.details);
}

export function createWriteToolDefinition(
  cwd: string,
  options?: WriteToolOptions,
): ToolDefinition<typeof writeSchema, WriteToolDetails> {
  const ops = options?.operations ?? defaultWriteOperations;
  const resolvePath = options?.operations ? resolveToCwd : resolveLocalPathToCwd;
  return {
    name: "write",
    label: "write",
    description: "Write/overwrite file; creates parent directories.",
    promptSnippet: "Create/overwrite files",
    promptGuidelines: ["Use only new files/complete rewrites."],
    parameters: writeSchema,
    outputSchema: WriteToolOutputSchema,
    async execute(
      toolCallId,
      { path, content }: { path: string; content: string },
      signal?: AbortSignal,
      onUpdate?,
      ctx?,
    ) {
      void toolCallId;
      void onUpdate;
      void ctx;
      const assertCurrent = captureAgentToolSourceExecutionGuard();
      const absolutePath = resolvePath(path, cwd);
      const dir = dirname(absolutePath);
      const queueKey = resolveFileMutationQueueKey(absolutePath, ops.resolveQueueKey, signal);
      return withFileMutationQueueKeyResolution(queueKey, async () => {
        const precheck = await readOriginalWriteState(absolutePath, content, ops);
        if (signal?.aborted) {
          throw new Error("Operation aborted");
        }
        assertCurrent();
        // No-op: file already has identical content. Not terminal — the model
        // may still be mid-task and needs a continuation, not an ended turn.
        if (precheck.state === "same") {
          return textResult(`No changes made to ${path}. The file already has identical content.`, {
            changed: false,
          } satisfies WriteToolDetails);
        }
        const details = await resolveWriteDetails({ absolutePath, content, ops, path, precheck });
        try {
          assertCurrent();
          await ops.mkdir(dir);
          if (signal?.aborted) {
            throw new Error("Operation aborted");
          }
          assertCurrent();
          await ops.writeFile(absolutePath, content);
          if (signal?.aborted) {
            throw new Error("Operation aborted");
          }
          assertCurrent();
          if (!(await verifyPersistedUtf8File(absolutePath, content, ops))) {
            throw new Error(
              `Write verification failed for ${path}: the persisted regular file does not match the requested content. Inspect the target and retry.`,
            );
          }
          assertCurrent();
          return successfulWriteResult(path, content, details);
        } catch (error: unknown) {
          assertCurrent();
          const recovered = await recoverSuccessfulWrite({
            absolutePath,
            content,
            error,
            ops,
            path,
            precheck,
            details,
            signal,
          });
          if (recovered) {
            assertCurrent();
            return recovered;
          }
          throw error;
        }
      });
    },
    renderCall(args, theme, context) {
      const renderArgs = args as
        | { path?: string; file_path?: string; content?: string }
        | undefined;
      const rawPath = str(renderArgs?.file_path ?? renderArgs?.path);
      const fileContent = str(renderArgs?.content);
      const component =
        (context.lastComponent as WriteCallRenderComponent | undefined) ??
        new WriteCallRenderComponent();
      if (fileContent !== null) {
        component.cache = context.argsComplete
          ? rebuildWriteHighlightCacheFull(rawPath, fileContent)
          : updateWriteHighlightCacheIncremental(component.cache, rawPath, fileContent);
      } else {
        component.cache = undefined;
      }
      component.setText(
        formatWriteCall(
          renderArgs,
          { expanded: context.expanded, isPartial: context.isPartial },
          theme,
          component.cache,
        ),
      );
      return component;
    },
    renderResult(result, optionsLocal, theme, context) {
      void optionsLocal;
      const output = formatWriteResult({ ...result, isError: context.isError }, theme);
      if (!output) {
        const component = (context.lastComponent as Container | undefined) ?? new Container();
        component.clear();
        return component;
      }
      return reuseTextComponent(context.lastComponent, output);
    },
  };
}

export function createWriteTool(
  cwd: string,
  options?: WriteToolOptions,
): AgentTool<typeof writeSchema> {
  return wrapToolDefinition(createWriteToolDefinition(cwd, options));
}