/**
 * Copyright (c) Microsoft Corporation.
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

import debug from 'debug';
import { z } from 'zod';

import { Client } from '@modelcontextprotocol/sdk/client/index.js';
import { PingRequestSchema } from '@modelcontextprotocol/sdk/types.js';
import { StreamableHTTPClientTransport } from '@modelcontextprotocol/sdk/client/streamableHttp.js';
import { StdioServerTransport } from '@modelcontextprotocol/sdk/server/stdio.js';

import { defineToolSchema } from './tool.js';
import * as mcpServer from './server.js';
import * as mcpHttp from './http.js';
import { wrapInProcess } from './server.js';
import { ManualPromise } from './manualPromise.js';

import type { Transport } from '@modelcontextprotocol/sdk/shared/transport.js';

const mdbDebug = debug('pw:mcp:mdb');
const errorsDebug = debug('pw:mcp:errors');

export class MDBBackend implements mcpServer.ServerBackend {
  private _stack: { client: Client, toolNames: string[], resultPromise: ManualPromise<mcpServer.CallToolResult> | undefined }[] = [];
  private _interruptPromise: ManualPromise<mcpServer.CallToolResult> | undefined;
  private _topLevelBackend: mcpServer.ServerBackend;
  private _initialized = false;

  constructor(topLevelBackend: mcpServer.ServerBackend) {
    this._topLevelBackend = topLevelBackend;
  }

  async initialize(server: mcpServer.Server): Promise<void> {
    if (this._initialized)
      return;
    this._initialized = true;
    const transport = await wrapInProcess(this._topLevelBackend);
    await this._pushClient(transport);
  }

  async listTools(): Promise<mcpServer.Tool[]> {
    const response = await this._client().listTools();
    return response.tools;
  }

  async callTool(name: string, args: mcpServer.CallToolRequest['params']['arguments']): Promise<mcpServer.CallToolResult> {
    if (name === pushToolsSchema.name)
      return await this._pushTools(pushToolsSchema.inputSchema.parse(args || {}));

    const interruptPromise = new ManualPromise<mcpServer.CallToolResult>();
    this._interruptPromise = interruptPromise;
    let [entry] = this._stack;

    // Pop the client while the tool is not found.
    while (entry && !entry.toolNames.includes(name)) {
      mdbDebug('popping client from stack for ', name);
      this._stack.shift();
      await entry.client.close();
      entry = this._stack[0];
    }
    if (!entry)
      throw new Error(`Tool ${name} not found in the tool stack`);

    const resultPromise = new ManualPromise<mcpServer.CallToolResult>();
    entry.resultPromise = resultPromise;

    this._client().callTool({
      name,
      arguments: args,
    }).then(result => {
      resultPromise.resolve(result as mcpServer.CallToolResult);
    }).catch(e => {
      mdbDebug('error in client call', e);
      if (this._stack.length < 2)
        throw e;
      this._stack.shift();
      const prevEntry = this._stack[0];
      void prevEntry.resultPromise!.then(result => resultPromise.resolve(result));
    });
    const result = await Promise.race([interruptPromise, resultPromise]);
    if (interruptPromise.isDone())
      mdbDebug('client call intercepted', result);
    else
      mdbDebug('client call result', result);
    return result;
  }

  private _client(): Client {
    const [entry] = this._stack;
    if (!entry)
      throw new Error('No debugging backend available');
    return entry.client;
  }

  private async _pushTools(params: { mcpUrl: string, introMessage?: string }): Promise<mcpServer.CallToolResult> {
    mdbDebug('pushing tools to the stack', params.mcpUrl);
    const transport = new StreamableHTTPClientTransport(new URL(params.mcpUrl));
    await this._pushClient(transport, params.introMessage);
    return { content: [{ type: 'text', text: 'Tools pushed' }] };
  }

  private async _pushClient(transport: Transport, introMessage?: string): Promise<mcpServer.CallToolResult> {
    mdbDebug('pushing client to the stack');
    const client = new Client({ name: 'Internal client', version: '0.0.0' });
    client.setRequestHandler(PingRequestSchema, () => ({}));
    await client.connect(transport);
    mdbDebug('connected to the new client');
    const { tools } = await client.listTools();
    this._stack.unshift({ client, toolNames: tools.map(tool => tool.name), resultPromise: undefined });
    mdbDebug('new tools added to the stack:', tools.map(tool => tool.name));
    mdbDebug('interrupting current call:', !!this._interruptPromise);
    this._interruptPromise?.resolve({
      content: [{
        type: 'text',
        text: introMessage || '',
      }],
    });
    this._interruptPromise = undefined;
    return { content: [{ type: 'text', text: 'Tools pushed' }] };
  }
}

const pushToolsSchema = defineToolSchema({
  name: 'mdb_push_tools',
  title: 'Push MCP tools to the tools stack',
  description: 'Push MCP tools to the tools stack',
  inputSchema: z.object({
    mcpUrl: z.string(),
    introMessage: z.string().optional(),
  }),
  type: 'readOnly',
});

export type ServerBackendOnPause = mcpServer.ServerBackend & {
  requestSelfDestruct?: () => void;
};

export async function runMainBackend(backendFactory: mcpServer.ServerBackendFactory, options?: { port?: number }): Promise<string | undefined> {
  const mdbBackend = new MDBBackend(backendFactory.create());
  // Start HTTP unconditionally.
  const factory: mcpServer.ServerBackendFactory = {
    ...backendFactory,
    create: () => mdbBackend
  };
  const url = await startAsHttp(factory, { port: options?.port || 0 });
  process.env.PLAYWRIGHT_DEBUGGER_MCP = url;

  if (options?.port !== undefined)
    return url;

  // Start stdio conditionally.
  await mcpServer.connect(factory, new StdioServerTransport(), false);
}

export async function runOnPauseBackendLoop(mdbUrl: string, backend: ServerBackendOnPause, introMessage: string) {
  const wrappedBackend = new OnceTimeServerBackendWrapper(backend);

  const factory = {
    name: 'on-pause-backend',
    nameInConfig: 'on-pause-backend',
    version: '0.0.0',
    create: () => wrappedBackend,
  };

  const httpServer = await mcpHttp.startHttpServer({ port: 0 });
  await mcpHttp.installHttpTransport(httpServer, factory);
  const url = mcpHttp.httpAddressToString(httpServer.address());

  const client = new Client({ name: 'Internal client', version: '0.0.0' });
  client.setRequestHandler(PingRequestSchema, () => ({}));
  const transport = new StreamableHTTPClientTransport(new URL(mdbUrl));
  await client.connect(transport);

  const pushToolsResult = await client.callTool({
    name: pushToolsSchema.name,
    arguments: {
      mcpUrl: url,
      introMessage,
    },
  });
  if (pushToolsResult.isError)
    errorsDebug('Failed to push tools', pushToolsResult.content);
  await transport.terminateSession();
  await client.close();

  await wrappedBackend.waitForClosed();
  httpServer.close();
}

async function startAsHttp(backendFactory: mcpServer.ServerBackendFactory, options: { port: number }) {
  const httpServer = await mcpHttp.startHttpServer(options);
  await mcpHttp.installHttpTransport(httpServer, backendFactory);
  return mcpHttp.httpAddressToString(httpServer.address());
}


class OnceTimeServerBackendWrapper implements mcpServer.ServerBackend {
  private _backend: ServerBackendOnPause;
  private _selfDestructPromise = new ManualPromise<void>();

  constructor(backend: ServerBackendOnPause) {
    this._backend = backend;
    this._backend.requestSelfDestruct = () => this._selfDestructPromise.resolve();
  }

  async initialize(server: mcpServer.Server, clientVersion: mcpServer.ClientVersion, roots: mcpServer.Root[]): Promise<void> {
    await this._backend.initialize?.(server, clientVersion, roots);
  }

  async listTools(): Promise<mcpServer.Tool[]> {
    return this._backend.listTools();
  }

  async callTool(name: string, args: mcpServer.CallToolRequest['params']['arguments']): Promise<mcpServer.CallToolResult> {
    return this._backend.callTool(name, args);
  }

  serverClosed(server: mcpServer.Server) {
    this._backend.serverClosed?.(server);
    this._selfDestructPromise.resolve();
  }

  async waitForClosed() {
    await this._selfDestructPromise;
  }
}