jon.recoil.org / js_top_worker
this repo has no description
fork atom

Configure x-ocaml universe globally via dune-workspace --config

Instead of requiring every .mld file to specify @x-ocaml.universe and
@x-ocaml.worker tags individually, configure the default universe path
once in dune-workspace (--config x-ocaml.universe=/_opam). The shell
emits <meta> tags from config values, and per-page @x-ocaml tags can
still override them.

Changes:
- dune-workspace: add --config x-ocaml.universe=/_opam to html_flags
- gen_rules.ml: pass --config to odoc html-generate for @site build
- odoc_jon_shell.ml: emit <meta> tags from x-ocaml.* config values
- odoc generator.ml: pass config to shell page_creator
- interactive_extension.ml: upsert meta tags (update existing or create)
- x_ocaml.ml: infer jtw backend from x-ocaml-universe meta tag
- Remove @x-ocaml.universe/@x-ocaml.worker from 14 .mld files using
the default /_opam universe
- deploy-site.sh: add dune install x-ocaml, chmod fix, widget-leaflet
- findlibish.ml: module detection fallback via jsoo runtime

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Jon Ludlam's Agent 60e9a2a0 6edd4135

+14 -3
unified split
+14 -3
lib/findlibish.ml
··· 35 35 | None -> 36 36 let v = 37 37 let id = Ident.create_persistent module_name in 38 - match Symtable.Global.of_ident id with 39 - | None -> false 40 - | Some g -> Symtable.is_global_defined g 38 + let in_symtable = 39 + match Symtable.Global.of_ident id with 40 + | None -> false 41 + | Some g -> Symtable.is_global_defined g 42 + in 43 + if in_symtable then true 44 + else 45 + (* Symtable only knows about modules loaded via the bytecode linker. 46 + Modules statically compiled into the jsoo binary are registered 47 + in caml_global_data by caml_register_global but are invisible to 48 + Symtable. Check the JS runtime as a fallback. *) 49 + let open Js_of_ocaml in 50 + let global_data = Js.Unsafe.pure_js_expr "globalThis.jsoo_runtime.caml_get_global_data()" in 51 + Js.Optdef.test (Js.Unsafe.get global_data (Js.string module_name)) 41 52 in 42 53 Hashtbl.replace Js_top_worker.Impl.symtable_memo module_name v; 43 54 v