jon.recoil.org
A fork of mtelver's day10 project
rename findlib_index to findlib_index.json, standardise meta_files key
Writers (jtw.ml opam mode, jtw_gen.ml day10 mode): output filename
changed from findlib_index to findlib_index.json, JSON key from
"metas" to "meta_files".
Reader (findlibish.ml): universe link resolution uses .json extension.
Runtime default (impl.ml): changed from "findlib_index" to
"findlib_index.json".
JS client, test fixtures, HTML test pages, and documentation updated
to match.
Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
+3
-3
bin/jtw_gen.ml
+3
-3
bin/jtw_gen.ml
···
46
46
let metas = List.map (fun p -> `String p) meta_paths in
47
47
Yojson.Safe.to_string (`Assoc [
48
48
("compiler", compiler);
49
-
("metas", `List metas);
49
+
("meta_files", `List metas);
50
50
])
51
51
52
52
(** Recursively collect files matching a predicate, sorted by relative path. *)
···
165
165
lib/<findlib-name>/
166
166
META, dynamic_cmis.json, *.cmi, *.cma.js
167
167
u/<universe-hash>/
168
-
findlib_index (JSON: compiler info + META paths to ../../p/...)
168
+
findlib_index.json (JSON: compiler info + META paths to ../../p/...)
169
169
v}
170
170
171
171
The findlib_index is the single entry point for clients. It contains:
···
303
303
("content_hash", `String compiler_hash);
304
304
] in
305
305
let findlib_index = generate_findlib_index ~compiler:compiler_json sorted_metas in
306
-
Os.write_to_file Path.(u_dir / "findlib_index") findlib_index
306
+
Os.write_to_file Path.(u_dir / "findlib_index.json") findlib_index
307
307
end
308
308
) solutions
309
309