package ecaml

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file buffer0.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
open! Core
open! Import0

include Value.Make_subtype (struct
    let name = "buffer"
    let here = [%here]
    let is_in_subtype = Value.is_buffer
  end)

let equal = eq
let generate_new_buffer = Funcall.Wrap.("generate-new-buffer" <: string @-> return t)
let create ~name = generate_new_buffer name

module Blocking = struct
  let kill = Funcall.Wrap.("kill-buffer" <: t @-> return nil)
end

let kill t =
  Value.Private.run_outside_async [%here] ~allowed_in_background:true (fun () ->
    Blocking.kill t)
;;

let is_live = Funcall.Wrap.("buffer-live-p" <: t @-> return bool)
OCaml

Innovation. Community. Security.