Hooks (liquidsoap-lang.Liquidsoap_lang

type log =
  < f : 'a. int -> ('a, unit, string, unit) Stdlib.format4 -> 'a
  ; critical : 'a. ('a, unit, string, unit) Stdlib.format4 -> 'a
  ; severe : 'a. ('a, unit, string, unit) Stdlib.format4 -> 'a
  ; important : 'a. ('a, unit, string, unit) Stdlib.format4 -> 'a
  ; info : 'a. ('a, unit, string, unit) Stdlib.format4 -> 'a
  ; debug : 'a. ('a, unit, string, unit) Stdlib.format4 -> 'a >

type 'a t

What the language leaves to whoever links it: one implementation each, and a stand-in where there is none.

val get : 'a t -> 'a

val implement : 'a t -> 'a -> unit

Raises Failure if the hook already has an implementation.

val fallback : 'a t -> 'a -> unit

val make_log : (string list -> log) t

val log : string list -> log

val liq_libs_dir : (unit -> string) t

val log_path : string option Stdlib.ref

val eval_check : 
  (env:(string * Value.t) list ->
    tm:Liquidsoap_lang_ast.Term.t ->
    Value.t ->
    unit)
    t

type encoder_params =
  [ `Anonymous of string
  | `Encoder of encoder
  | `Labelled of string * Value.t ]
    list

and encoder = string * encoder_params

val make_encoder : 
  (pos:Liquidsoap_lang_prelude.Pos.Option.t -> encoder -> Value.t) t

val type_of_encoder : 
  (pos:Liquidsoap_lang_prelude.Pos.Option.t ->
    Liquidsoap_lang_ast.Term.encoder ->
    Liquidsoap_lang_types.Type.t)
    t

val has_encoder : (Value.t -> bool) t

val mk_source_ty : 
  (?pos:Liquidsoap_lang_ast.Term.parsed_pos ->
    string ->
    Liquidsoap_lang_ast.Parsed_term.source_annotation ->
    Liquidsoap_lang_types.Type.t)
    t

val mk_clock_ty : 
  (?pos:Liquidsoap_lang_ast.Term.parsed_pos ->
    unit ->
    Liquidsoap_lang_types.Type.t)
    t

val source_methods_t : (unit -> Liquidsoap_lang_types.Type.t) t

val getpwnam : (string -> Unix.passwd_entry) Stdlib.ref