package git

  1. Overview
  2. Docs
On This Page
  1. Mimic values.
Git format and protocol in pure OCaml

Install 

dune-project
 Dependency

github.com Readme Changelog ISC License Edit opam file Versions (8)

Authors

  1. T
    Thomas Gazagnaire

Maintainers

  1. T
    thomas@gazagnaire.org
  2. R
    romain.calascibetta@gmail.com

Sources

git-3.17.0.tbz
sha256=ef200d0412ed1a538525d0501298890e0b893e020528094d6a3ae12359fd0265
sha512=793009a9bf9413147e6c43dfdc4bbe39b00129a5ea0f5d3df149ad2e27b4a3c641ca3b6857476a1cee325aad4d192625220647575470f00d02fb95f085bd9009

doc/smart_git/Smart_git/index.html

Module Smart_gitSource

Sourcemodule type APPEND = sig ... end
Sourcemodule type UID = sig ... end
Sourcemodule type HTTP = sig ... end
Sourcemodule Endpoint : sig ... end

Mimic values.

When the user use an Endpoint.t to Make.fetch or Make.push, we fill the given Mimic's ctx with some available informations such as:

  • if we want to Make.fetch (`Rd) or Make.push (`Wr)
  • the scheme/protocol that the user would like to use (git://, SSH or HTTP - with or without TLS)
  • the path of the git repository
  • the host (an IP adress or a domain name)
  • the SSH user iff the user would like to use SSH
  • the port that the user would like to use

From this informations, the end-user can process them through the Mimic API (with Mimic.fold) and describe how to create needed values to start a protocol from them.

For example, if the user wants to use mirage-tcpip which needs an IP address and a port, he is able to re-use/map/fold git_host and git_port to craft what mirage-tcpip really needs.

Of course, such job is definitely outside the scope of ocaml-git and permits to us to be free about protocol implementations. An example of the plumbing needed is able with git-mirage which re-use these values to be able to start a mirage-tcpip connection, a awa-ssh connection of a cohttp (with or without ocaml-tls) connection.

Sourcetype handshake = uri0:Uri.t -> uri1:Uri.t -> Mimic.flow -> unit Lwt.t
Sourceval git_capabilities : [ `Rd | `Wr ] Mimic.value
Sourceval git_scheme : [ `Git | `SSH | `HTTP | `HTTPS | `Scheme of string ] Mimic.value
Sourceval git_path : string Mimic.value
Sourceval git_hostname : string Mimic.value
Sourceval git_ssh_user : string Mimic.value
Sourceval git_port : int Mimic.value
Sourceval git_http_headers : (string * string) list Mimic.value
Sourceval git_transmission : [ `Git | `Exec | `HTTP of Uri.t * handshake ] Mimic.value
Sourceval git_uri : Uri.t Mimic.value
Sourcemodule Make (Scheduler : Sigs.SCHED with type +'a s = 'a Lwt.t) (Pack : APPEND with type +'a fiber = 'a Lwt.t) (Index : APPEND with type +'a fiber = 'a Lwt.t) (Uid : UID) (Ref : Sigs.REF) : sig ... end