builder 0.4.0 (latest) · OCaml Package

val src : Logs.src

module Log : Logs.LOG

val let* : ('a, 'b) result -> ('a -> ('c, 'b) result) -> ('c, 'b) result

type data = (Fpath.t * string) list

val pp_data : Format.formatter -> (Fpath.t * string) list -> unit

type script_job = {

name : string;
platform : string;
script : string;

}

val pp_script_job : Format.formatter -> script_job -> unit

type orb_build_job = {

name : string;
opam_package : string;

}

val pp_orb_build_job : Format.formatter -> orb_build_job -> unit

type execution_result =

| Exited of int
| Signalled of int
| Stopped of int
| Msg of string

val pp_execution_result : Format.formatter -> execution_result -> unit

type period =

| Hourly
| Daily
| Weekly
| Never

val pp_period : Format.formatter -> period -> unit

type job =

| Script_job of script_job
| Orb_build_job of orb_build_job

val pp_job : Format.formatter -> job -> unit

val job_name : job -> string

val job_equal : job -> job -> bool

val job_platform : job -> string option

type schedule_item = {

next : Ptime.t;
period : period;
job : job;

}

val pp_schedule_item : Format.formatter -> schedule_item -> unit

type info = {

schedule : schedule_item list;
queues : (string * job list) list;
running : (Ptime.t * Uuidm.t * script_job) list;
dropped_platforms : string list;

}

val triple : 
  sep:unit Fmt.t ->
  'a Fmt.t ->
  'b Fmt.t ->
  'c Fmt.t ->
  Format.formatter ->
  ('c * 'b * 'a) ->
  unit

val pp_info : Format.formatter -> info -> unit

type cmd =

| Job_requested of string
| Job_schedule of Uuidm.t * script_job
| Job_finished of Uuidm.t * execution_result * data
| Output of Uuidm.t * string
| Output_timestamped of Uuidm.t * int64 * string
| Schedule of period * script_job
| Unschedule of string
| Info
| Info_reply of info
| Observe of Uuidm.t
| Execute of string * string option
| Schedule_orb_build of period * orb_build_job
| Reschedule of string * Ptime.t * period option
| Drop_platform of string
| Undrop_platform of string
| Client_hello of [ `Client | `Worker ] * int
| Server_hello
| Success
| Failure of string

val client_version : int

val worker_version : int

val version : string

val pp_cmd : Format.formatter -> cmd -> unit

type state_item =

| Queue of string * job list
| Schedule of schedule_item
| Dropped_platform of string

val pp_state_item : Format.formatter -> state_item -> unit

type state = state_item list

val pp_state : state_item list Fmt.t

module Asn : sig ... end

val ign_intr : ('a -> 'b) -> 'a -> 'b

val read : Unix.file_descr -> (string, [> `Msg of string ]) result

val read_cmd : Unix.file_descr -> (cmd, [> `Msg of string ]) result

val write : Unix.file_descr -> string -> (unit, [> `Msg of string ]) result

val write_cmd : Unix.file_descr -> cmd -> (unit, [> `Msg of string ]) result

package builder