Source file `box_sizing.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type t = Border_box | Content_box

let default = Border_box

let to_string = function
  | Border_box -> "border-box"
  | Content_box -> "content-box"

let equal a b =
  match (a, b) with
  | Border_box, Border_box -> true
  | Content_box, Content_box -> true
  | _ -> false

let compare a b =
  let to_int = function Border_box -> 0 | Content_box -> 1 in
  Int.compare (to_int a) (to_int b)

let pp fmt t = Format.pp_print_string fmt (to_string t)