能否为Lwt Promise实现生命周期内的本地静态存储？

一、Lwt 自带的线程本地存储（TLS） #

Lwt 本身提供了线程本地存储机制，适合在Promise执行链中传递上下文，核心通过Lwt.new_key、Lwt.with_value和Lwt.get_value实现：

(* 创建唯一的TLS键，用于存储上下文 *)
let context_key = Lwt.new_key ()

(* 包裹Lwt操作并设置上下文 *)
let with_context ctx f =
  Lwt.with_value context_key (Some ctx) f

(* 获取当前执行线程的上下文 *)
let get_current_context () =
  Lwt.get_value context_key

使用示例：

let my_context = Map.empty |> Map.add "user_id" 123

let main () =
  with_context my_context (fun () ->
    Lwt.bind (Lwt.return ()) (fun () ->
      match get_current_context () with
      | Some ctx -> Lwt.return (Map.find "user_id" ctx)
      | None -> Lwt.fail_with "No context found"
    )
  )

注意：该方案的上下文与当前执行的Lwt线程绑定，而非Promise对象本身。若一个Promise被多线程等待或在不同线程触发，仅能在其执行的线程内获取上下文。

二、自定义Promise包装类型（绑定上下文到Promise对象） #

如果需要直接通过Promise对象获取上下文（不受执行线程限制），可以自行包装Lwt.t，将上下文与Promise绑定：

(* 自定义带上下文的Promise类型 *)
type 'a t = {
  promise : 'a Lwt.t;
  context : 'a Map.t;
}

(* 实现你需要的get_lwt_context函数 *)
let get_lwt_context { context; _ } = context

(* 重写Lwt核心操作，传递上下文 *)
let return x ctx = { promise = Lwt.return x; context = ctx }
let bind { promise; context } f =
  let new_promise = promise >>= fun x -> (f x).promise in
  { promise = new_promise; context }

这种方式完全由你控制上下文生命周期，但需要替换所有原生Lwt操作（如用自定义bind替代Lwt.bind），侵入性较强。

三、现成库支持 #

• Lwt自带的线程本地存储（即上述第一种方案）是最常用的实现方式，无需额外依赖。
• 目前没有通用第三方库专门实现“与Promise对象绑定”的上下文存储，多数场景下线程本地存储已能满足需求。

内容的提问来源于stack exchange，提问作者Rawley Fowler