this repo has no description
Verbose
+12
-4
+5
-3
bin/jtw.ml
+5
-3
bin/jtw.ml
···
38
38
in
39
39
List.map gen_one cmis
40
40
41
-
let opam output_dir_str switch libraries no_worker =
41
+
let opam verbose output_dir_str switch libraries no_worker =
42
42
Opam.switch := switch;
43
43
let libraries =
44
44
match Ocamlfind.deps libraries with
···
49
49
(* failwith ("Bad libs: " ^ m) *)
50
50
failwith ("Bad libs: " ^ m)
51
51
in
52
-
let verbose = true in
53
52
Eio_main.run @@ fun env ->
54
53
Eio.Switch.run @@ fun sw ->
55
54
if verbose then Logs.set_level (Some Logs.Debug) else Logs.set_level None;
···
206
205
in
207
206
Arg.(value & opt string "html" & info [ "o"; "output" ] ~doc)
208
207
in
208
+
let verbose =
209
+
let doc = "Enable verbose logging" in
210
+
Arg.(value & flag & info [ "v"; "verbose" ] ~doc) in
209
211
let no_worker =
210
212
let doc = "Do not create worker.js" in
211
213
Arg.(value & flag & info [ "no-worker" ] ~doc)
···
216
218
in
217
219
let info = Cmd.info "opam" ~doc:"Generate opam files" in
218
220
Cmd.v info
219
-
Term.(ret (const opam $ output_dir $ switch $ libraries $ no_worker))
221
+
Term.(ret (const opam $ verbose $ output_dir $ switch $ libraries $ no_worker))
220
222
221
223
let main_cmd =
222
224
let doc = "An odoc notebook tool" in
+7
-1
lib/findlibish.ml
+7
-1
lib/findlibish.ml
···
46
46
47
47
let rec read_libraries_from_pkg_defs ~library_name ~dir meta_uri pkg_expr =
48
48
try
49
+
Jslib.log "Reading library: %s" library_name;
49
50
let pkg_defs = pkg_expr.Fl_metascanner.pkg_defs in
50
51
let archive_filename =
51
52
try Some (Fl_metascanner.lookup "archive" [ "byte" ] pkg_defs)
···
54
55
with _ -> None)
55
56
in
56
57
57
-
let deps_str = Fl_metascanner.lookup "requires" [] pkg_defs in
58
+
let deps_str =
59
+
try Fl_metascanner.lookup "requires" [] pkg_defs with _ -> "" in
58
60
let deps = Astring.String.fields ~empty:false deps_str in
59
61
let subdir =
60
62
List.find_opt (fun d -> d.Fl_metascanner.def_var = "directory") pkg_defs
···
72
74
let file_name_len = String.length a in
73
75
if file_name_len > 0 then Some (Filename.chop_extension a) else None)
74
76
in
77
+
Jslib.log "Number of children: %d" (List.length pkg_expr.pkg_children);
75
78
let children =
76
79
List.filter_map
77
80
(fun (n, expr) ->
81
+
Jslib.log "Found child: %s" n;
78
82
let library_name = library_name ^ "." ^ n in
79
83
match
80
84
read_libraries_from_pkg_defs ~library_name ~dir meta_uri expr
···
169
173
match List.find (fun lib -> lib.name = package) v with
170
174
| exception Not_found ->
171
175
Jslib.log "Package %s not found" package;
176
+
Jslib.log "Available packages: %s"
177
+
(String.concat ", " (List.map (fun lib -> Printf.sprintf "%s (%d)" lib.name (List.length lib.children)) v));
172
178
dcss
173
179
| lib ->
174
180
if lib.loaded then dcss