Experimental Miou Backend (more recent attempt)

.github/workflows/more-ci.yml

@@ -58,7 +58,7 @@ jobs:
       # the development workflow and as part of the main CI job. These are the
       # tests that are checked for every combination of os and ocaml-compiler.
       - name: Install dependencies
-        run: opam install ./volgo.opam ./volgo-base.opam ./volgo-vcs.opam ./volgo-git-unix.opam ./volgo-git-eio.opam ./volgo-git-backend.opam ./vcs-test-helpers.opam ./volgo-tests.opam --deps-only --with-test
+        run: opam install ./volgo.opam ./volgo-base.opam ./volgo-vcs.opam ./volgo-git-unix.opam ./volgo-git-eio.opam ./volgo-git-miou.opam ./volgo-git-backend.opam ./vcs-test-helpers.opam ./volgo-tests.opam --deps-only --with-test
 
       - name: Build & Run tests
-        run: opam exec -- dune build @all @runtest -p volgo,volgo-base,volgo-vcs,volgo-git-unix,volgo-git-eio,volgo-git-backend,vcs-test-helpers,volgo-tests
+        run: opam exec -- dune build @all @runtest -p volgo,volgo-base,volgo-vcs,volgo-git-unix,volgo-git-eio,volgo-git-miou,volgo-git-backend,vcs-test-helpers,volgo-tests

dune-project

@@ -228,6 +228,38 @@
   (volgo-git-backend
    (= :version))))
 
+(package
+ (name volgo-git-miou)
+ (synopsis
+  "A Git provider for Vcs based on Volgo_git_backend for Miou programs")
+ (depends
+  (ocaml
+   (>= 5.2))
+  (miou
+   (>= 0.3.0))
+  (fpath
+   (>= 0.7.3))
+  (fpath-sexp0
+   (>= 0.2.2))
+  (pp
+   (>= 2.0.0))
+  (pplumbing
+   (>= 0.0.13))
+  (ppx_sexp_conv
+   (>= v0.17))
+  (ppx_sexp_value
+   (>= v0.17))
+  (ppxlib
+   (>= 0.33))
+  (sexplib0
+   (>= v0.17))
+  (volgo
+   (= :version))
+  (volgo-git-backend
+   (= :version))
+  (volgo-git-unix
+   (= :version))))
+
 (package
  (name vcs-test-helpers)
  (synopsis "Helper library to write tests using vcs")
@@ -329,6 +361,8 @@
    (and
     :with-doc
     (>= 2.4)))
+  (miou
+   (>= 0.3.0))
   (pp
    (>= 2.0.0))
   (pplumbing
@@ -400,6 +434,8 @@
    (= :version))
   (volgo-git-eio
    (= :version))
+  (volgo-git-miou
+   (= :version))
   (volgo-git-unix
    (= :version))
   (volgo-vcs
@@ -457,6 +493,8 @@
    (>= 0.2.2))
   (mdx
    (>= 2.4))
+  (miou
+   (>= 0.3.0))
   (pp
    (>= 2.0.0))
   (pplumbing
@@ -528,6 +566,8 @@
    (= :version))
   (volgo-git-eio
    (= :version))
+  (volgo-git-miou
+   (= :version))
   (volgo-git-unix
    (= :version))
   (volgo-tests

headache.sh

@@ -4,20 +4,22 @@ dirs=(
     # Add new directories below:
     "bin"
     "example"
+    "lib/vcs_test_helpers/src"
+    "lib/vcs_test_helpers/test"
     "lib/volgo/src"
     "lib/volgo/test"
     "lib/volgo_base/src"
     "lib/volgo_base/test"
-    "lib/volgo_vcs_cli/src"
-    "lib/volgo_vcs_cli/test"
-    "lib/volgo_git_unix/src"
-    "lib/volgo_git_unix/test"
-    "lib/volgo_git_eio/src"
-    "lib/volgo_git_eio/test"
     "lib/volgo_git_backend/src"
     "lib/volgo_git_backend/test"
-    "lib/vcs_test_helpers/src"
-    "lib/vcs_test_helpers/test"
+    "lib/volgo_git_eio/src"
+    "lib/volgo_git_eio/test"
+    "lib/volgo_git_miou/src"
+    "lib/volgo_git_miou/test"
+    "lib/volgo_git_unix/src"
+    "lib/volgo_git_unix/test"
+    "lib/volgo_vcs_cli/src"
+    "lib/volgo_vcs_cli/test"
     "test/expect"
 )
 

lib/volgo_git_miou/src/dune

@@ -0,0 +1,35 @@
+(library
+ (name volgo_git_miou)
+ (public_name volgo-git-miou)
+ (flags
+  :standard
+  -w
+  +a-4-40-41-42-44-45-48-66
+  -warn-error
+  +a
+  -open
+  Fpath_sexp0
+  -open
+  Sexplib0
+  -open
+  Sexplib0.Sexp_conv
+  -open
+  Volgo)
+ (libraries
+  fpath
+  fpath-sexp0
+  miou
+  pp
+  pplumbing.err
+  pplumbing.pp-tty
+  sexplib0
+  unix
+  volgo
+  volgo-git-backend
+  volgo-git-unix)
+ (instrumentation
+  (backend bisect_ppx))
+ (lint
+  (pps ppx_js_style -allow-let-operators -check-doc-comments))
+ (preprocess
+  (pps -unused-code-warnings=force ppx_sexp_conv ppx_sexp_value)))

lib/volgo_git_miou/src/import.ml

@@ -0,0 +1,22 @@
+(*******************************************************************************)
+(*  Volgo - a Versatile OCaml Library for Git Operations                       *)
+(*  Copyright (C) 2024-2025 Mathieu Barbin <mathieu.barbin@gmail.com>          *)
+(*                                                                             *)
+(*  This file is part of Volgo.                                                *)
+(*                                                                             *)
+(*  Volgo is free software; you can redistribute it and/or modify it under     *)
+(*  the terms of the GNU Lesser General Public License as published by the     *)
+(*  Free Software Foundation either version 3 of the License, or any later     *)
+(*  version, with the LGPL-3.0 Linking Exception.                              *)
+(*                                                                             *)
+(*  Volgo is distributed in the hope that it will be useful, but WITHOUT ANY   *)
+(*  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS  *)
+(*  FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License and    *)
+(*  the file `NOTICE.md` at the root of this repository for more details.      *)
+(*                                                                             *)
+(*  You should have received a copy of the GNU Lesser General Public License   *)
+(*  and the LGPL-3.0 Linking Exception along with this library. If not, see    *)
+(*  <http://www.gnu.org/licenses/> and <https://spdx.org>, respectively.       *)
+(*******************************************************************************)
+
+include Vcs.Private.Import

lib/volgo_git_miou/src/import.mli

@@ -0,0 +1,22 @@
+(*_******************************************************************************)
+(*_  Volgo - a Versatile OCaml Library for Git Operations                       *)
+(*_  Copyright (C) 2024-2025 Mathieu Barbin <mathieu.barbin@gmail.com>          *)
+(*_                                                                             *)
+(*_  This file is part of Volgo.                                                *)
+(*_                                                                             *)
+(*_  Volgo is free software; you can redistribute it and/or modify it under     *)
+(*_  the terms of the GNU Lesser General Public License as published by the     *)
+(*_  Free Software Foundation either version 3 of the License, or any later     *)
+(*_  version, with the LGPL-3.0 Linking Exception.                              *)
+(*_                                                                             *)
+(*_  Volgo is distributed in the hope that it will be useful, but WITHOUT ANY   *)
+(*_  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS  *)
+(*_  FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License and    *)
+(*_  the file `NOTICE.md` at the root of this repository for more details.      *)
+(*_                                                                             *)
+(*_  You should have received a copy of the GNU Lesser General Public License   *)
+(*_  and the LGPL-3.0 Linking Exception along with this library. If not, see    *)
+(*_  <http://www.gnu.org/licenses/> and <https://spdx.org>, respectively.       *)
+(*_******************************************************************************)
+
+include module type of Vcs.Private.Import