compiler/src/lib/tiger/tiger_position.mli

   1 type t =
   2   { file       : string
   3   ; start_char : int
   4   ; start_line : int
   5   ; end_char   : int
   6   ; end_line   : int
   7   }
   8
   9 val of_lexing_positions
  10   :  pos_start:Lexing.position
  11   -> pos_end:Lexing.position
  12   -> t