@flrande/browserctl 0.1.0

package/packages/transport-mcp-stdio/src/tool-map.ts

@@ -0,0 +1,67 @@
+import { ErrorCode, createErr, createOk, type ToolResponse } from "../../protocol/src/index";
+
+export type ToolCallArgs = {
+  sessionId: string;
+  profile?: string;
+  targetId?: string;
+  timeoutMs?: number;
+  [key: string]: unknown;
+};
+
+export type ToolHandler<TData = Record<string, unknown>> = (
+  args: ToolCallArgs
+) => Promise<ToolResponse<TData>> | ToolResponse<TData>;
+
+export type ToolMap = Map<string, ToolHandler>;
+
+export const V1_TOOL_NAMES = [
+  "browser.status",
+  "browser.profile.list",
+  "browser.profile.use",
+  "browser.tab.list",
+  "browser.tab.open",
+  "browser.tab.focus",
+  "browser.tab.close",
+  "browser.snapshot",
+  "browser.screenshot",
+  "browser.dom.query",
+  "browser.dom.queryAll",
+  "browser.element.screenshot",
+  "browser.a11y.snapshot",
+  "browser.act",
+  "browser.upload.arm",
+  "browser.dialog.arm",
+  "browser.download.wait",
+  "browser.download.trigger",
+  "browser.network.waitFor",
+  "browser.cookie.get",
+  "browser.cookie.set",
+  "browser.cookie.clear",
+  "browser.storage.get",
+  "browser.storage.set",
+  "browser.frame.list",
+  "browser.frame.snapshot",
+  "browser.console.list",
+  "browser.network.responseBody"
+] as const;
+
+const browserStatusHandler: ToolHandler<{ kind: "stdio"; ready: true }> = async () =>
+  createOk({
+    kind: "stdio",
+    ready: true
+  });
+
+function createNotImplementedHandler(toolName: string): ToolHandler {
+  return async () => createErr(ErrorCode.E_DRIVER_UNAVAILABLE, `Tool is not implemented: ${toolName}`);
+}
+
+export function buildToolMap(): ToolMap {
+  const map: ToolMap = new Map();
+
+  for (const toolName of V1_TOOL_NAMES) {
+    map.set(toolName, createNotImplementedHandler(toolName));
+  }
+
+  map.set("browser.status", browserStatusHandler);
+  return map;
+}

package/scripts/smoke.ps1

@@ -0,0 +1,127 @@
+$ErrorActionPreference = 'Stop'
+Set-StrictMode -Version Latest
+
+$scriptDir = Split-Path -Parent $PSCommandPath
+$repoRoot = Resolve-Path -LiteralPath (Join-Path $scriptDir '..')
+$browserdEntry = Join-Path $repoRoot 'apps/browserd/src/main.ts'
+$browserctlEntry = Join-Path $repoRoot 'apps/browserctl/src/main.ts'
+
+$daemonProcess = $null
+$daemonPort = 41337
+$timeoutMs = 10000
+$pollIntervalMs = 250
+$pnpmExecutable = if ($IsWindows) { 'pnpm.cmd' } else { 'pnpm' }
+
+function Invoke-SmokeStatus {
+  param(
+    [Parameter(Mandatory = $true)]
+    [string]$BrowserctlEntry
+  )
+
+  $previousPort = $env:BROWSERCTL_DAEMON_PORT
+  $env:BROWSERCTL_DAEMON_PORT = "$daemonPort"
+
+  $statusOutput = & pnpm exec tsx $BrowserctlEntry status --json 2>&1
+  $exitCode = $LASTEXITCODE
+  $statusText = [string]::Join([Environment]::NewLine, @($statusOutput))
+
+  if ($null -eq $previousPort) {
+    Remove-Item Env:\BROWSERCTL_DAEMON_PORT -ErrorAction SilentlyContinue
+  } else {
+    $env:BROWSERCTL_DAEMON_PORT = $previousPort
+  }
+
+  if ($exitCode -ne 0) {
+    return @{
+      Ok = $false
+      Reason = "browserctl status exited with code $exitCode. Output: $statusText"
+    }
+  }
+
+  $statusPayload = $null
+  try {
+    $statusPayload = $statusText | ConvertFrom-Json -ErrorAction Stop
+  } catch {
+    return @{
+      Ok = $false
+      Reason = "browserctl status returned invalid JSON. Output: $statusText"
+    }
+  }
+
+  if (-not $statusPayload.ok) {
+    return @{
+      Ok = $false
+      Reason = 'browserctl status returned ok=false.'
+    }
+  }
+
+  $errorProperty = $statusPayload.PSObject.Properties['error']
+  if ($null -ne $errorProperty -and $null -ne $errorProperty.Value) {
+    $errorJson = $errorProperty.Value | ConvertTo-Json -Compress
+    return @{
+      Ok = $false
+      Reason = "browserctl status returned error payload: $errorJson"
+    }
+  }
+
+  return @{
+    Ok = $true
+    Payload = $statusPayload
+  }
+}
+
+try {
+  $previousPort = $env:BROWSERCTL_DAEMON_PORT
+  $env:BROWSERCTL_DAEMON_PORT = "$daemonPort"
+  & pnpm exec tsx $browserctlEntry daemon-stop --json *> $null
+  if ($null -eq $previousPort) {
+    Remove-Item Env:\BROWSERCTL_DAEMON_PORT -ErrorAction SilentlyContinue
+  } else {
+    $env:BROWSERCTL_DAEMON_PORT = $previousPort
+  }
+
+  $daemonEnv = @{
+    BROWSERD_TRANSPORT = 'tcp'
+    BROWSERD_PORT = "$daemonPort"
+  }
+
+  $daemonProcess = Start-Process -FilePath $pnpmExecutable `
+    -ArgumentList @('exec', 'tsx', $browserdEntry) `
+    -WorkingDirectory $repoRoot `
+    -Environment $daemonEnv `
+    -PassThru
+
+  $stopwatch = [System.Diagnostics.Stopwatch]::StartNew()
+  $lastFailure = 'status probe did not run'
+  $statusResult = $null
+
+  while ($stopwatch.ElapsedMilliseconds -lt $timeoutMs) {
+    $statusResult = Invoke-SmokeStatus -BrowserctlEntry $browserctlEntry
+    if ($statusResult.Ok) {
+      break
+    }
+
+    $lastFailure = [string]$statusResult.Reason
+    Start-Sleep -Milliseconds $pollIntervalMs
+  }
+
+  if ($null -eq $statusResult -or -not $statusResult.Ok) {
+    $elapsedMs = [int]$stopwatch.ElapsedMilliseconds
+    throw "Smoke failed: browserctl status --json was not ready within ${timeoutMs}ms (elapsed ${elapsedMs}ms). Last failure: $lastFailure"
+  }
+
+  Write-Host 'Smoke passed: daemon started and browserctl status --json returned success.'
+} finally {
+  if ($null -ne $daemonProcess -and -not $daemonProcess.HasExited) {
+    Stop-Process -Id $daemonProcess.Id -ErrorAction SilentlyContinue
+  }
+
+  $previousPort = $env:BROWSERCTL_DAEMON_PORT
+  $env:BROWSERCTL_DAEMON_PORT = "$daemonPort"
+  & pnpm exec tsx $browserctlEntry daemon-stop --json *> $null
+  if ($null -eq $previousPort) {
+    Remove-Item Env:\BROWSERCTL_DAEMON_PORT -ErrorAction SilentlyContinue
+  } else {
+    $env:BROWSERCTL_DAEMON_PORT = $previousPort
+  }
+}