@clayroach/effect 3.19.14-source-capture.8 → 3.19.14-source-trace.1

package/src/internal/testing/suspendedWarningData.ts

@@ -0,0 +1,85 @@
+import type * as Fiber from "../../Fiber.js"
+
+/** @internal */
+export type SuspendedWarningData = Start | Pending | Done
+
+/** @internal */
+export const OP_SUSPENDED_WARNING_DATA_START = "Start" as const
+
+/** @internal */
+export type OP_SUSPENDED_WARNING_DATA_START = typeof OP_SUSPENDED_WARNING_DATA_START
+
+/** @internal */
+export const OP_SUSPENDED_WARNING_DATA_PENDING = "Pending" as const
+
+/** @internal */
+export type OP_SUSPENDED_WARNING_DATA_PENDING = typeof OP_SUSPENDED_WARNING_DATA_PENDING
+
+/** @internal */
+export const OP_SUSPENDED_WARNING_DATA_DONE = "Done" as const
+
+/** @internal */
+export type OP_SUSPENDED_WARNING_DATA_DONE = typeof OP_SUSPENDED_WARNING_DATA_DONE
+
+/** @internal */
+export interface Start {
+  readonly _tag: OP_SUSPENDED_WARNING_DATA_START
+}
+
+/** @internal */
+export interface Pending {
+  readonly _tag: OP_SUSPENDED_WARNING_DATA_PENDING
+  readonly fiber: Fiber.Fiber<void, Error>
+}
+
+/** @internal */
+export interface Done {
+  readonly _tag: OP_SUSPENDED_WARNING_DATA_DONE
+}
+
+/**
+ * State indicating that a test has not adjusted the clock.
+ *
+ * @internal
+ */
+export const start: SuspendedWarningData = {
+  _tag: OP_SUSPENDED_WARNING_DATA_START
+}
+
+/**
+ * State indicating that a test has adjusted the clock but a fiber is still
+ * running with a reference to the fiber that will display the warning
+ * message.
+ *
+ * @internal
+ */
+export const pending = (fiber: Fiber.Fiber<void, Error>): SuspendedWarningData => {
+  return {
+    _tag: OP_SUSPENDED_WARNING_DATA_PENDING,
+    fiber
+  }
+}
+
+/**
+ * State indicating that the warning message has already been displayed.
+ *
+ * @internal
+ */
+export const done: SuspendedWarningData = {
+  _tag: OP_SUSPENDED_WARNING_DATA_DONE
+}
+
+/** @internal */
+export const isStart = (self: SuspendedWarningData): self is Start => {
+  return self._tag === OP_SUSPENDED_WARNING_DATA_START
+}
+
+/** @internal */
+export const isPending = (self: SuspendedWarningData): self is Pending => {
+  return self._tag === OP_SUSPENDED_WARNING_DATA_PENDING
+}
+
+/** @internal */
+export const isDone = (self: SuspendedWarningData): self is Done => {
+  return self._tag === OP_SUSPENDED_WARNING_DATA_DONE
+}

package/src/internal/testing/warningData.ts

@@ -0,0 +1,94 @@
+import type * as Fiber from "../../Fiber.js"
+
+/**
+ * `WarningData` describes the state of the warning message that is displayed
+ * if a test is using time by is not advancing the `TestClock`. The possible
+ * states are `Start` if a test has not used time, `Pending` if a test has
+ * used time but has not adjusted the `TestClock`, and `Done` if a test has
+ * adjusted the `TestClock` or the warning message has already been displayed.
+ *
+ * @internal
+ */
+export type WarningData = Start | Pending | Done
+
+/** @internal */
+export const OP_WARNING_DATA_START = "Start" as const
+
+/** @internal */
+export type OP_WARNING_DATA_START = typeof OP_WARNING_DATA_START
+
+/** @internal */
+export const OP_WARNING_DATA_PENDING = "Pending" as const
+
+/** @internal */
+export type OP_WARNING_DATA_PENDING = typeof OP_WARNING_DATA_PENDING
+
+/** @internal */
+export const OP_WARNING_DATA_DONE = "Done" as const
+
+/** @internal */
+export type OP_WARNING_DATA_DONE = typeof OP_WARNING_DATA_DONE
+
+/** @internal */
+export interface Start {
+  readonly _tag: OP_WARNING_DATA_START
+}
+
+/** @internal */
+export interface Pending {
+  readonly _tag: OP_WARNING_DATA_PENDING
+  readonly fiber: Fiber.Fiber<void, Error>
+}
+
+/** @internal */
+export interface Done {
+  readonly _tag: OP_WARNING_DATA_DONE
+}
+
+/**
+ * State indicating that a test has not used time.
+ *
+ * @internal
+ */
+export const start: WarningData = {
+  _tag: OP_WARNING_DATA_START
+}
+
+/**
+ * State indicating that a test has used time but has not adjusted the
+ * `TestClock` with a reference to the fiber that will display the warning
+ * message.
+ *
+ * @internal
+ */
+export const pending = (fiber: Fiber.Fiber<void, Error>): WarningData => {
+  return {
+    _tag: OP_WARNING_DATA_PENDING,
+    fiber
+  }
+}
+
+/**
+ * State indicating that a test has used time or the warning message has
+ * already been displayed.
+ *
+ * @internal
+ */
+export const done: WarningData = {
+  _tag: OP_WARNING_DATA_DONE
+}
+
+/** @internal */
+export const isStart = (self: WarningData): self is Start => {
+  return self._tag === OP_WARNING_DATA_START
+}
+
+/** @internal */
+export const isPending = (self: WarningData): self is Pending => {
+  return self._tag === OP_WARNING_DATA_PENDING
+}
+
+/** @internal */
+export const isDone = (self: WarningData): self is Done => {
+  return self._tag === OP_WARNING_DATA_DONE
+}

package/src/internal/tracer.ts

@@ -0,0 +1,150 @@
+/**
+ * @since 2.0.0
+ */
+import * as Context from "../Context.js"
+import type * as Exit from "../Exit.js"
+import { constFalse } from "../Function.js"
+import type * as Option from "../Option.js"
+import type * as Tracer from "../Tracer.js"
+
+/** @internal */
+export const TracerTypeId: Tracer.TracerTypeId = Symbol.for("effect/Tracer") as Tracer.TracerTypeId
+
+/** @internal */
+export const make = (options: Omit<Tracer.Tracer, Tracer.TracerTypeId>): Tracer.Tracer => ({
+  [TracerTypeId]: TracerTypeId,
+  ...options
+})
+
+/** @internal */
+export const tracerTag = Context.GenericTag<Tracer.Tracer>("effect/Tracer")
+
+/** @internal */
+export const spanTag = Context.GenericTag<Tracer.ParentSpan, Tracer.AnySpan>("effect/ParentSpan")
+
+const randomHexString = (function() {
+  const characters = "abcdef0123456789"
+  const charactersLength = characters.length
+  return function(length: number) {
+    let result = ""
+    for (let i = 0; i < length; i++) {
+      result += characters.charAt(Math.floor(Math.random() * charactersLength))
+    }
+    return result
+  }
+})()
+
+/** @internal */
+export class NativeSpan implements Tracer.Span {
+  readonly _tag = "Span"
+  readonly spanId: string
+  readonly traceId: string = "native"
+  readonly sampled = true
+
+  status: Tracer.SpanStatus
+  attributes: Map<string, unknown>
+  events: Array<[name: string, startTime: bigint, attributes: Record<string, unknown>]> = []
+  links: Array<Tracer.SpanLink>
+
+  constructor(
+    readonly name: string,
+    readonly parent: Option.Option<Tracer.AnySpan>,
+    readonly context: Context.Context<never>,
+    links: Iterable<Tracer.SpanLink>,
+    readonly startTime: bigint,
+    readonly kind: Tracer.SpanKind
+  ) {
+    this.status = {
+      _tag: "Started",
+      startTime
+    }
+    this.attributes = new Map()
+    this.traceId = parent._tag === "Some" ? parent.value.traceId : randomHexString(32)
+    this.spanId = randomHexString(16)
+    this.links = Array.from(links)
+  }
+
+  end(endTime: bigint, exit: Exit.Exit<unknown, unknown>): void {
+    this.status = {
+      _tag: "Ended",
+      endTime,
+      exit,
+      startTime: this.status.startTime
+    }
+  }
+
+  attribute(key: string, value: unknown): void {
+    this.attributes.set(key, value)
+  }
+
+  event(name: string, startTime: bigint, attributes?: Record<string, unknown>): void {
+    this.events.push([name, startTime, attributes ?? {}])
+  }
+
+  addLinks(links: ReadonlyArray<Tracer.SpanLink>): void {
+    // eslint-disable-next-line no-restricted-syntax
+    this.links.push(...links)
+  }
+}
+
+/** @internal */
+export const nativeTracer: Tracer.Tracer = make({
+  span: (name, parent, context, links, startTime, kind) =>
+    new NativeSpan(
+      name,
+      parent,
+      context,
+      links,
+      startTime,
+      kind
+    ),
+  context: (f) => f()
+})
+
+/** @internal */
+export const externalSpan = (options: {
+  readonly spanId: string
+  readonly traceId: string
+  readonly sampled?: boolean | undefined
+  readonly context?: Context.Context<never> | undefined
+}): Tracer.ExternalSpan => ({
+  _tag: "ExternalSpan",
+  spanId: options.spanId,
+  traceId: options.traceId,
+  sampled: options.sampled ?? true,
+  context: options.context ?? Context.empty()
+})
+
+/** @internal */
+export const addSpanStackTrace = (options: Tracer.SpanOptions | undefined): Tracer.SpanOptions => {
+  if (options?.captureStackTrace === false) {
+    return options
+  } else if (options?.captureStackTrace !== undefined && typeof options.captureStackTrace !== "boolean") {
+    return options
+  }
+  const limit = Error.stackTraceLimit
+  Error.stackTraceLimit = 3
+  const traceError = new Error()
+  Error.stackTraceLimit = limit
+  let cache: false | string = false
+  return {
+    ...options,
+    captureStackTrace: () => {
+      if (cache !== false) {
+        return cache
+      }
+      if (traceError.stack !== undefined) {
+        const stack = traceError.stack.split("\n")
+        if (stack[3] !== undefined) {
+          cache = stack[3].trim()
+          return cache
+        }
+      }
+    }
+  }
+}
+
+/** @internal */
+export const DisablePropagation = Context.Reference<Tracer.DisablePropagation>()("effect/Tracer/DisablePropagation", {
+  defaultValue: constFalse
+})