package plato

  1. Overview
  2. Docs

Source file stat.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
45
[@@@warning "@A"]

type stat_results = Unix.stats

let s_ISDIR (Unix.{st_kind; _}: stat_results) : bool =
  let open Unix in
  match st_kind with
  | S_DIR -> true
  | S_REG | S_CHR | S_BLK | S_LNK | S_FIFO | S_SOCK -> false

let s_ISREG (Unix.{st_kind; _}: stat_results) : bool =
  let open Unix in
  match st_kind with
  | S_REG -> true
  | S_DIR | S_CHR | S_BLK | S_LNK | S_FIFO | S_SOCK -> false

let s_ISLNK (Unix.{st_kind; _}: stat_results) : bool =
  let open Unix in
  match st_kind with
  | S_LNK -> true
  | S_REG | S_CHR | S_BLK | S_DIR | S_FIFO | S_SOCK -> false

let s_ISBLK (Unix.{st_kind; _}: stat_results) : bool =
  let open Unix in
  match st_kind with
  | S_BLK -> true
  | S_REG | S_CHR | S_DIR | S_LNK | S_FIFO | S_SOCK -> false

let s_ISCHR (Unix.{st_kind; _}: stat_results) : bool =
  let open Unix in
  match st_kind with
  | S_CHR -> true
  | S_REG | S_DIR | S_BLK | S_LNK | S_FIFO | S_SOCK -> false

let s_ISSOCK (Unix.{st_kind; _}: stat_results) : bool =
  let open Unix in
  match st_kind with
  | S_SOCK -> true
  | S_REG | S_CHR | S_BLK | S_LNK | S_FIFO | S_DIR -> false

let s_ISFIFO (Unix.{st_kind; _}: stat_results) : bool =
  let open Unix in
  match st_kind with
  | S_FIFO -> true
  | S_REG | S_CHR | S_BLK | S_LNK | S_DIR | S_SOCK -> false