package dune-private-libs

  1. Overview
  2. Docs
Private libraries of Dune

Install

dune-project
 Dependency

Authors

Maintainers

Sources

dune-2.5.1.tbz
sha256=8f77d3a87f208e0d7cccaa1c48c4bb1bb87d62d07c3f25e9b8ba298e028ce52b
sha512=f209f12ced10c1abf8782bdb0143f4cec77795f7174d2cc75130afb1e01550b01f2f77b9e3ec4888efdad83d2f9878d179b39126f824f4e522f3ef4da34bf27e

doc/src/dune-private-libs.stdune/signal.ml.html

Source file signal.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
let name =
  let table =
    let open Sys in
    [ (sigabrt, "ABRT")
    ; (sigalrm, "ALRM")
    ; (sigfpe, "FPE")
    ; (sighup, "HUP")
    ; (sigill, "ILL")
    ; (sigint, "INT")
    ; (sigkill, "KILL")
    ; (sigpipe, "PIPE")
    ; (sigquit, "QUIT")
    ; (sigsegv, "SEGV")
    ; (sigterm, "TERM")
    ; (sigusr1, "USR1")
    ; (sigusr2, "USR2")
    ; (sigchld, "CHLD")
    ; (sigcont, "CONT")
    ; (sigstop, "STOP")
    ; (sigtstp, "TSTP")
    ; (sigttin, "TTIN")
    ; (sigttou, "TTOU")
    ; (sigvtalrm, "VTALRM")
    ; (sigprof, "PROF")
    ; (sigbus, "BUS")
    ; (sigpoll, "POLL")
    ; (sigsys, "SYS")
    ; (sigtrap, "TRAP")
    ; (sigurg, "URG")
    ; (sigxcpu, "XCPU")
    ; (sigxfsz, "XFSZ")
    ]
  in
  fun n ->
    match List.assoc table n with
    | None -> Printf.sprintf "%d\n" n
    | Some s -> s