gthvn1/inspector
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add XapiDb

Browse source
This commit is contained in:
Guillaume 2026-03-14 02:53:18 +01:00
parent 6c2875bb6b
commit 85971fc1a0
6 changed files with 161 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
bin/main.ml
View file

@ -16,9 +16,13 @@ let () =
Printf.eprintf "You must specify a log file using -log\n";
exit 1);
if !dbfile = "" then (
Printf.eprintf "You must specify a db file using -db\n";
exit 1);
let open Inspector in
let s = State.create !logfile in
Printf.printf "dbfile is currently ignored\n";
Printf.printf "Loaded %d lines\n" (State.size s);
let s = State.create ~logfile:!logfile ~dbfile:!dbfile in
Printf.printf "Loaded %d lines from logs\n" (State.size s);
Printf.printf "Found %d entries in the DB\n" (State.dbsize s) ;
Repl.help ();
Repl.loop s