package jasmin

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

Source file interval.ml

1
2
3
4
5
6
7
type interval = { min : int; max : int }
type t = interval

let size i = i.max - i.min

let pp_interval ?(closed=false) fmt { min ; max } =
  Format.fprintf fmt "[%d; %d%s" min max (if closed then "]" else "[")