package git

You can search for identifiers within the package.

in-package search v0.2.0

Git format and protocol in pure OCaml

Install

Dune Dependency

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

Authors

T

Thomas Gazagnaire

Maintainers

Sources

git-3.2.0.tbz

sha256=2648d6a45263164936aeb4f61c1ffcb6078135626a317f400156ec62033c3893

sha512=fa19fe952331a50ad75b1a16193c46e3de2950c537e54b9e9d167b03502616bee10e36d8a114365645a8e4032b78a58d0567692106e9d6fb69f17b9964ebc3cb

doc/neg/Neg/index.html

Module `Neg`

Negotiation engine used to fetch objects from a Git repository.

This implementation does not have any Git logics or how to store properly a Git object. However, it implements the negotiation engine used to fetch objects from a Git repository.

Finally, it needs fews primitives to properly receive Git objects from the state of a local Git repository:

exists which tells to us if an object exists or not.
parents to get parents of a commit.
deref to de-reference a given reference.
locals to get locals references of the Git repository.

The user must give to us a light store which is able to keep some mutable values used by the negotiation engine.

find_common talks directly to the remote Git repository.

type configuration = {

stateless : bool;
mutable multi_ack : [ `None | `Some | `Detailed ];
no_done : bool;

}

type 'uid hex = {

to_hex : 'uid -> string;
of_hex : string -> 'uid;
compare : 'uid -> 'uid -> int;

}

type 'uid negotiator

val make : compare:('uid -> 'uid -> int) -> 'uid negotiator

val find_common : 
  's Sigs.scheduler ->
  ('flow, 'error, 's) Sigs.flow ->
  'flow ->
  configuration ->
  'uid hex ->
  ('uid, 'ref, 'uid * int Stdlib.ref * int64, 'g, 's) Sigs.access ->
  ('uid, 'uid * int Stdlib.ref * int64, 'g) Sigs.store ->
  'uid negotiator ->
  Smart.Context.t ->
  ?deepen:[ `Depth of int | `Timestamp of int64 ] ->
  'uid list ->
  ([ `Continue of int | `Close ], 's) Sigs.io

val tips : 
  's Sigs.scheduler ->
  ('uid, 'ref, 'uid * int Stdlib.ref * int64, 'g, 's) Sigs.access ->
  ('uid, 'uid * int Stdlib.ref * int64, 'g) Sigs.store ->
  'uid negotiator ->
  (unit, 's) Sigs.io