package shexp

You can search for identifiers within the package.

in-package search v0.2.0

Process library and s-expression based shell

Install

Dune Dependency

github.com Changelog MIT License Edit opam file Versions (6)

Authors

J

Jane Street Group, LLC

Maintainers

J

Jane Street developers

Sources

shexp-v0.14.0.tar.gz

sha256=01fa41159385c30cc9de233fda13f359fb8ad1b01ed513dd1de8262aa64a3d35

md5=d756263aa2b95303edba19af36c0feea

doc/src/shexp.process/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
38
39
40
41
42
43
44
type t = int

(* this function is a copy&paste from stdune *)
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 : int) ->
    match List.assoc_opt n table with
    | None ->
      if n > 0 then
        Printf.sprintf "%d" n
      else
        Printf.sprintf "caml:%d" n
    | Some s -> s