From 6d8fb621d1e93b83786890d6d9cb6f0d8defa8ae Mon Sep 17 00:00:00 2001
From: DJ O'Leary <dijitol@proton.me>
Date: Fri, 26 Jun 2026 18:04:09 +0200
Subject: refactor!: invert repo directory structure

now is language first
---
 ocaml/lib/presentation/cli.ml | 62 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 ocaml/lib/presentation/cli.ml

(limited to 'ocaml/lib/presentation/cli.ml')

diff --git a/ocaml/lib/presentation/cli.ml b/ocaml/lib/presentation/cli.ml
new file mode 100644
index 0000000..7864e7f
--- /dev/null
+++ b/ocaml/lib/presentation/cli.ml
@@ -0,0 +1,62 @@
+(* Business logic behind CLI *)
+
+let run_solver name solver filepath =
+  let content = Infrastructure.File.read filepath in
+  match solver content () with
+  | Error msg ->
+      Logs.app (fun m -> m "[%s] Err=%s" name msg)
+  | Ok answer ->
+      Logs.app (fun m -> m "[%s] ANSWER=%d" name answer)
+
+let run_day _ = function
+  | 1 ->
+      let filepath = "../_input/day_01.txt" in
+      run_solver "D01P01" Application.D01p01.solve filepath ;
+      run_solver "D01P02" Application.D01p02.solve filepath ;
+      0
+  | 2 ->
+      let filepath = "../_input/day_02.txt" in
+      run_solver "D02P01" Application.D02p01.solve filepath ;
+      run_solver "D02P02" Application.D02p02.solve filepath ;
+      0
+  | 3 ->
+      let filepath = "../_input/day_03.txt" in
+      run_solver "D03P01" Application.D03p01.solve filepath ;
+      run_solver "D03P02" Application.D03p02.solve filepath ;
+      0
+  | 4 ->
+      let filepath = "../_input/day_04.txt" in
+      run_solver "D04P01" Application.D04p01.solve filepath ;
+      run_solver "D04P02" Application.D04p02.solve filepath ;
+      0
+  | 5 ->
+      let filepath = "../_input/day_05.txt" in
+      run_solver "D05P01" Application.D05p01.solve filepath ;
+      0
+  | 6 ->
+      let filepath = "../_input/day_06.txt" in
+      run_solver "D06P01" Application.D06p01.solve filepath ;
+      run_solver "D06P02" Application.D06p02.solve filepath ;
+      0
+  | _ ->
+      failwith "day not implemented"
+
+(* Command line interface *)
+
+open Cmdliner
+
+let setup_log style_renderer = Fmt_tty.setup_std_outputs ?style_renderer ()
+
+let setup_log_t = Term.(const setup_log $ Fmt_cli.style_renderer ())
+
+let day_arg =
+  let doc = "Day to run. MUST be in range of 1-12." in
+  Arg.(value & pos 0 int 1 & info [] ~docv:"DAY" ~doc)
+
+let day_t = Term.(const run_day $ setup_log_t $ day_arg)
+
+let cmd =
+  let info = Cmd.info "aoc" ~version:"0.1.0" in
+  Cmd.v info day_t
+
+let run () = Cmd.eval' cmd
-- 
cgit v1.2.3