package mirage

  1. Overview
  2. Docs
The MirageOS library operating system

Install 

dune-project
 Dependency

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

Authors

  1. T
    Thomas Gazagnaire
  2. A
    Anil Madhavapeddy
  3. Gabriel Radanne
  4. M
    Mindy Preston
  5. T
    Thomas Leonard
  6. N
    Nicolas Ojeda Bar
  7. D
    Dave Scott
  8. D
    David Kaloper
  9. H
    Hannes Mehnert
  10. R
    Richard Mortier

Maintainers

  1. A
    anil@recoil.org
  2. T
    thomas@gazagnaire.org

Sources

mirage-4.10.2.tbz
sha256=4184cbc7e51b0dcdcf4345c98818c34129ff42879ef091e54849faa57b29d397
sha512=cb54de5a1741c9b5702a5c5290feb01c41ac39b220bf7d249dbaf6506834f1ac5c832726230e8ecd2fbc49f5550f9109560434e01746f0d20b6b6578e7174961

doc/src/mirage.devices/git.ml.html

Source file git.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
open Functoria.DSL

type git_client = Git_client

let git_client = typ Git_client

let git_merge_clients =
  let packages = [ package "mimic" ] in
  let connect _ _modname = function
    | [ a; b ] -> code ~pos:__POS__ "Lwt.return (Mimic.merge %s %s)" a b
    | _ -> Misc.connect_err "git_merge_client" 2
  in
  impl ~packages ~connect "Mimic.Merge"
    (git_client @-> git_client @-> git_client)

let git_tcp =
  let packages = [ package ~max:"1.0.0" "git-net" ] in
  let connect _ modname = function
    | [ _tcpv4v6; ctx ] ->
        code ~pos:__POS__ {ocaml|%s.connect %s|ocaml} modname ctx
    | _ -> Misc.connect_err "git_tcp" 2
  in
  impl ~packages ~connect "Git_net.TCP.Make"
    (Tcp.tcpv4v6 @-> Mimic.mimic @-> git_client)

let git_ssh ?group ?authenticator ?key ?password () =
  let packages = [ package ~max:"1.0.0" "git-net" ] in
  let key = Runtime_arg.ssh_key ?group key
  and password = Runtime_arg.ssh_password ?group password
  and authenticator = Runtime_arg.ssh_authenticator ?group authenticator in
  let runtime_args = Runtime_arg.[ v key; v password; v authenticator ] in
  let connect _ modname = function
    | [ _tcpv4v6; ctx; key; password; authenticator ] ->
        code ~pos:__POS__
          {ocaml|%s.connect %s >>= %s.with_optionnal_key ?authenticator:%s ~key:%s ~password:%s|ocaml}
          modname ctx modname authenticator key password
    | _ -> Misc.connect_err "git_ssh" 5
  in
  impl ~packages ~connect ~runtime_args "Git_net.SSH.Make"
    (Tcp.tcpv4v6 @-> Mimic.mimic @-> git_client)

let git_http ?group ?authenticator ?headers () =
  let packages = [ package ~max:"1.0.0" "git-net" ] in
  let authenticator = Runtime_arg.tls_authenticator ?group authenticator
  and headers = Runtime_arg.http_headers ?group headers in
  let runtime_args = Runtime_arg.[ v authenticator; v headers ] in
  let connect _ modname = function
    | [ _tcpv4v6; ctx; authenticator; headers ] ->
        code ~pos:__POS__
          {ocaml|%s.connect %s >>= %s.with_optional_tls_config_and_headers ?headers:%s ?authenticator:%s|ocaml}
          modname ctx modname headers authenticator
    | _ -> Misc.connect_err "git_http" 4
  in
  impl ~packages ~connect ~runtime_args "Git_net.HTTP.Make"
    (Tcp.tcpv4v6 @-> Mimic.mimic @-> git_client)