Commit: b108d273dd8362f31613ae57680bb4f0460b1675 - flitter-nix (git)

A Nix-friendly SQLite-enhanced fork of Flitter, a speedrunning split timer for Unix-style terminals

Commit MetaInfo

• Revisão: b108d273dd8362f31613ae57680bb4f0460b1675 (tree)
• Hora: 2023-05-23 13:35:35
• Autor: Corbin <cds@corb...>
• Commiter: Corbin

Mensagem de Log

Start rebuilding summary tool.

Haven't ported the statistics yet. Need sleeps first.

Mudança Sumário

• modified: bin/summary_main.ml

Diff

--- a/bin/summary_main.ml
+++ b/bin/summary_main.ml
@@ -1,10 +1,47 @@
+open Core
+open Sqlite3
+
 let usage =
-  "Usage:\n" ^ "flitter-summary <splits_path>\n"
-  ^ "Summarize the splits file pointed to by `splits_path`.\n"
+  "Usage:\n" ^ "flitter-summary <splits_db>\n"
+  ^ "Summarize the splits file pointed to by `splits_db`.\n"
+
+let check_select stmt vals f =
+  Rc.check (bind_values stmt vals);
+  Rc.check (iter stmt ~f)
 
 let () =
-  match Sys.argv with
-  | [| _; path |] ->
-      let summary = Loadsave.load_summary path in
-      Summary.print_summary summary
+  match Sys.get_argv () with
+  | [| _; db_path |] ->
+      let db = db_open db_path in
+      Rc.check (exec db "pragma foreign_keys = on;");
+      let stmt = prepare db "select count(*) from games;" in
+      check_select stmt [] (fun row ->
+          print_string
+            (sprintf "Number of games: %d\n" (Data.to_int_exn row.(0))));
+      let stmt = prepare db "select * from games;" in
+      check_select stmt [] (fun row ->
+          print_string (sprintf "* %s\n" (Data.to_string_exn row.(0))));
+      let _ = db_close db in
+      ()
+  | [| _; db_path; game |] ->
+      let db = db_open db_path in
+      Rc.check (exec db "pragma foreign_keys = on;");
+      let vals = [ Data.TEXT game ] in
+      let stmt = prepare db "select count(*) from routes where game = ?;" in
+      check_select stmt vals (fun row ->
+          print_string
+            (sprintf "Number of routes: %d\n" (Data.to_int_exn row.(0))));
+      let stmt =
+        prepare db
+          "select category, penultimate, finish_line from routes where game = \
+           ?;"
+      in
+      check_select stmt vals (fun row ->
+          print_string
+            (sprintf "* %s (%s, %s)\n"
+               (Data.to_string_exn row.(0))
+               (Data.to_string_exn row.(1))
+               (Data.to_string_exn row.(2))));
+      let _ = db_close db in
+      ()
   | _ -> print_string usage