orca/cloud/apps/relay/src/database/postgres-pool-pressure.ts

import type pg from 'pg'

export type PostgresPoolPressureCounts = {
  databasePoolTotal: number
  databasePoolIdle: number
  databasePoolWaiting: number
  databasePoolWaitersMax: number
  databasePoolOldestWaitMs: number
  databasePoolWaitMsMax: number
}

// pg-pool connect timeouts have no SQLSTATE; these messages prove acquisition failed before a statement ran.
const POOL_CONNECT_TIMEOUT_MESSAGES = [
  // No pooled client came free within connectionTimeoutMillis.
  'timeout exceeded when trying to connect',
  // A new client's own handshake outran connectionTimeoutMillis.
  'Connection terminated due to connection timeout'
]
// pg raises this whenever a socket ends early, during the handshake and mid
// statement alike, so only the acquire boundary can tell the two apart.
const CONNECTION_TERMINATED_MESSAGE = 'Connection terminated unexpectedly'
// The socket to Postgres (or its proxy) failed before a client existed, e.g. a Cloud SQL restart.
const ACQUIRE_SOCKET_ERRNOS = new Set([
  'EPIPE',
  'ECONNRESET',
  'ECONNREFUSED',
  'ETIMEDOUT',
  'EHOSTUNREACH'
])

// Membership is tracked beside the error rather than on it: an error object may
// be frozen, and a mutated one would leak the marker into logs.
const poolAcquireFailures = new WeakSet<object>()

function errorMessage(error: unknown): string {
  return String((error as { message?: unknown } | null)?.message)
}

function errorCode(error: unknown): string {
  return String((error as { code?: unknown } | null)?.code)
}

export function isPostgresPoolAcquireFailure(error: unknown): boolean {
  return typeof error === 'object' && error !== null && poolAcquireFailures.has(error)
}

// connectionTimeoutMillis firing, either waiting in the queue or dialling.
export function isPostgresPoolConnectTimeout(error: unknown): boolean {
  const message = errorMessage(error)
  return POOL_CONNECT_TIMEOUT_MESSAGES.some((known) => message.includes(known))
}

// Every way the pool can fail to hand out a usable client. An early-ended
// socket counts only at the acquire boundary: retrying a statement whose commit
// outcome is unknown is not safe.
export function isPostgresPoolConnectFailure(error: unknown): boolean {
  if (isPostgresPoolConnectTimeout(error)) return true
  if (!isPostgresPoolAcquireFailure(error)) return false
  return (
    errorMessage(error).includes(CONNECTION_TERMINATED_MESSAGE) ||
    ACQUIRE_SOCKET_ERRNOS.has(errorCode(error))
  )
}

const emptyCounts = (): PostgresPoolPressureCounts => ({
  databasePoolTotal: 0,
  databasePoolIdle: 0,
  databasePoolWaiting: 0,
  databasePoolWaitersMax: 0,
  databasePoolOldestWaitMs: 0,
  databasePoolWaitMsMax: 0
})

// `priority` work skips the general queue and takes the next connection any
// caller releases, so a burst of general work cannot make it wait its turn.
export type PostgresPoolLane = 'general' | 'priority'

type GeneralLaneWaiter = {
  grant: (releaseSlot: () => void) => void
  timer: ReturnType<typeof setTimeout> | undefined
}

export class PostgresPoolPressure {
  private readonly waiters = new Map<symbol, number>()
  private waitersMax = 0
  private waitMsMax = 0
  private lastConsumed = emptyCounts()
  // Queue general work here so pg-pool queues only priority; reserving an idle connection would lose Asia drain throughput.
  private readonly generalCapacity: number
  private generalInUse = 0
  private readonly generalQueue: GeneralLaneWaiter[] = []

  constructor(
    private readonly pool: pg.Pool,
    private readonly now: () => number = Date.now
  ) {
    this.generalCapacity = pool.options?.max ?? Infinity
  }

  async connect(lane: PostgresPoolLane = 'general'): Promise<pg.PoolClient> {
    const startedAt = this.now()
    let waiter: symbol | undefined
    const markWaiting = (): void => {
      if (waiter) return
      waiter = Symbol()
      this.waiters.set(waiter, startedAt)
      this.waitersMax = Math.max(this.waitersMax, this.waiters.size)
    }
    try {
      const slot = lane === 'priority' ? () => {} : this.takeGeneralSlot(markWaiting)
      // Awaited only when queued: a free slot dials in this same turn.
      const releaseSlot = typeof slot === 'function' ? slot : await slot
      try {
        const waitingBefore = this.pool.waitingCount
        const connection = this.pool.connect()
        if (this.pool.waitingCount > waitingBefore) markWaiting()
        return await markedAcquire(connection, releaseSlot)
      } catch (error) {
        releaseSlot()
        throw error
      }
    } finally {
      if (waiter) {
        this.waitMsMax = Math.max(this.waitMsMax, this.now() - startedAt)
        this.waiters.delete(waiter)
      }
    }
  }

  // FIFO, bounded by the pool's own acquire timeout so a queued caller fails
  // exactly as it would have inside pg-pool, and every classifier still matches.
  private takeGeneralSlot(markWaiting: () => void): (() => void) | Promise<() => void> {
    if (this.generalInUse < this.generalCapacity && this.generalQueue.length === 0) {
      this.generalInUse++
      return this.generalSlotRelease()
    }
    markWaiting()
    return new Promise((resolve, reject) => {
      const queued: GeneralLaneWaiter = { grant: resolve, timer: undefined }
      const timeoutMs = this.pool.options?.connectionTimeoutMillis ?? 0
      if (timeoutMs > 0) {
        queued.timer = setTimeout(() => {
          const index = this.generalQueue.indexOf(queued)
          if (index >= 0) this.generalQueue.splice(index, 1)
          reject(new Error(POOL_CONNECT_TIMEOUT_MESSAGES[0]))
        }, timeoutMs)
        queued.timer.unref?.()
      }
      this.generalQueue.push(queued)
    })
  }

  private generalSlotRelease(): () => void {
    let released = false
    return () => {
      if (released) return
      released = true
      const next = this.generalQueue.shift()
      if (!next) {
        this.generalInUse--
        return
      }
      // The slot passes straight to the next caller, so generalInUse is unchanged.
      clearTimeout(next.timer)
      next.grant(this.generalSlotRelease())
    }
  }

  consumeCounts(): PostgresPoolPressureCounts {
    const counts = this.readCounts()
    this.lastConsumed = counts
    this.waitersMax = this.waiters.size
    this.waitMsMax = counts.databasePoolOldestWaitMs
    return counts
  }

  peekCounts(): PostgresPoolPressureCounts {
    const current = this.readCounts()
    return {
      ...current,
      databasePoolWaitersMax: Math.max(
        current.databasePoolWaitersMax,
        this.lastConsumed.databasePoolWaitersMax
      ),
      databasePoolOldestWaitMs: Math.max(
        current.databasePoolOldestWaitMs,
        this.lastConsumed.databasePoolOldestWaitMs
      ),
      databasePoolWaitMsMax: Math.max(
        current.databasePoolWaitMsMax,
        this.lastConsumed.databasePoolWaitMsMax
      )
    }
  }

  // Instantaneous, unlike peekCounts, which holds the last interval's maxima.
  oldestWaitMs(): number {
    if (this.waiters.size === 0) return 0
    return Math.max(0, this.now() - Math.min(...this.waiters.values()))
  }

  private readCounts(): PostgresPoolPressureCounts {
    const now = this.now()
    const oldestWaitMs =
      this.waiters.size === 0 ? 0 : Math.max(0, now - Math.min(...this.waiters.values()))
    return {
      databasePoolTotal: this.pool.totalCount,
      databasePoolIdle: this.pool.idleCount,
      databasePoolWaiting: this.waiters.size,
      databasePoolWaitersMax: Math.max(this.waitersMax, this.waiters.size),
      databasePoolOldestWaitMs: oldestWaitMs,
      databasePoolWaitMsMax: Math.max(this.waitMsMax, oldestWaitMs)
    }
  }
}

async function markedAcquire(
  connection: Promise<pg.PoolClient>,
  onRelease: () => void
): Promise<pg.PoolClient> {
  let client: pg.PoolClient
  try {
    client = await connection
  } catch (error) {
    if (typeof error === 'object' && error !== null) poolAcquireFailures.add(error)
    throw error
  }
  return guardCheckedOutClient(client, onRelease)
}

// pg-pool removes error listeners on checkout and restores them on release; pool.on(error) covers only idle clients. Guard every checkout or terminated in-flight sessions crash the process.
function guardCheckedOutClient(client: pg.PoolClient, onRelease: () => void): pg.PoolClient {
  let failure: Error | undefined
  const onError = (error: Error) => {
    failure ??= error
    // Printable unlike the idle path: a checked-out client is past the
    // handshake, so its error carries no connection string.
    console.warn(
      `[orca-relay] checked-out PostgreSQL client failed: ${errorCode(error)} ${errorMessage(error)}`
    )
  }
  client.on('error', onError)

  // pg-pool assigns a fresh `release` on every acquire, so this never stacks.
  const release = client.release.bind(client)
  client.release = (releaseError?: Error | boolean) => {
    client.removeListener('error', onError)
    // Passing the error makes pg-pool destroy the client instead of returning a
    // dead connection to the pool for the next caller to trip over.
    try {
      release(releaseError ?? failure)
    } finally {
      onRelease()
    }
  }
  return client
}

export function emptyPostgresPoolPressureCounts(): PostgresPoolPressureCounts {
  return emptyCounts()
}